Inscript Oskom free
Posted: 2010-01-29 17:56:17
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) как с этим работать
почему не пашет и хотел переделать под фсы,останавливается на выборе круга магии свитка
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) как с этим работать
почему не пашет и хотел переделать под фсы,останавливается на выборе круга магии свитка