|
sub inscription() var counter,z,ingcount,gCount,p,CurCOnt,flag=0 dim container[1] container[0]=0x400AB13A container[1]=0x400AB13A Start: UO.Print("Taking resources, until weight 280") wait(3000) UO.Findtype( 0x0E34, 0x0000, 0x4001055A ) UO.Exec( "moveitem finditem 100" ) wait(1000) UO.Findtype( 0x0F7A, 0x0000, 0x4001055A ) UO.Exec( "moveitem finditem 100" ) wait(1000) UO.Findtype( 0x0F86, 0x0000, 0x4001055A ) UO.Exec( "moveitem finditem 100" ) wait(1000) UO.Findtype( 0x0F7B, 0x0000, 0x4001055A ) UO.Exec( "moveitem finditem 100" ) while UO.Weight>280 wait(3000) UO.DeleteJournal() wait(500) UO.UseType("0x0E34") wait(2000) UO.LClick(465,453) counter=0 UO.DeleteJournal() while not UO.InJournal("You fail") and not UO.InJournal("You put") and counter<60 wait(500) counter=counter+1 wend UO.FindType("0x1F4C" ) UO.moveitem ('finditem' ,1, 0x4001055A) endif wend goto start end sub
UO.LClick(465,453) как с этим работать
почему не пашет и хотел переделать под фсы,останавливается на выборе круга магии свитка
|