U menja voznikla problemka so skriptom
Po skriptu on dolzhen brat' butilki i regi iz sunduka i gotovuju butilku klast' v meshok
Vse bi horosho toko kogda 1 krug butilok on sdelal,na vtorom on ne beret regi!
I inogda sbivaetsja NO ITEM FIND 4to eto?
Budte dobri podpravte moj skriptik!
sub main()
var counter,z,ingcount,gCount,p,CurCOnt,flag=0
dim container[5]
container[0]=0x400329E2
container[1]=0x400329E2
container[2]=0x400329E2
container[3]=0x400329E2
container[4]=0x400329E2
container[5]=0x400329E2
start:
UO.Print("Berem jari")
UO.Findtype( 0x0F85, 0x0000, 0x4001CB1F )
UO.Exec( "moveitem finditem 300" )
wait(1000)
UO.Print("Berem regi")
UO.Findtype( 0x1005, 0x0000, 0x4001CB1F )
UO.Exec( "moveitem finditem 250" )
wait(1000)
while UO.Weight>130
UO.DeleteJournal()
UO.UseType("0x0E9B")
wait(1000)
UO.LClick(428,220)
wait(500)
UO.LClick(315,452)
counter=0
UO.DeleteJournal()
while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x182E" )
UO.moveitem ('finditem' ,1, container[flag])
if flag==5 then
flag=0
endif
if flag==4 then
flag=5
endif
if flag==3 then
flag=4
endif
if flag==2 then
flag=3
endif
if flag==1 then
flag=2
endif
if flag==0 then
flag=1
endif
wend
goto start
end sub
(
