Code: Select all
sub main()
var counter,flag=0
dim container[6]
container[0]=0x4003F61E
container[1]=0x4003F61E
container[2]=0x4003F61E
container[3]=0x4003F61E
container[4]=0x4003F61E
container[5]=0x4003F61E
start:
UO.Print("Berem 300 skrolov")
UO.Findtype( 0x0E34, 0x0000, 0x4003F61E )
UO.Exec( "moveitem finditem 350" )
wait(1000)
UO.Print("Berem 300 bloodmosa")
UO.Findtype( 0x0F7B, 0x0000, 0x4003F61E )
UO.Exec( "moveitem finditem 350" )
wait(1000)
UO.Print("Berem 300 mandrake")
UO.Findtype( 0x0F86, 0x0000, 0x4003F61E )
UO.Exec( "moveitem finditem 350" )
wait(1000)
UO.Print("Berem 300 black pearls")
UO.Findtype( 0x0F8D, 0x0000, 0x4003F61E )
UO.Exec( "moveitem finditem 350" )
wait(1000)
UO.UseType("0x1F99")
wait(1000)
UO.UseType("0x0978")
wait(1000)
while UO.Weight>110
UO.DeleteJournal()
UO.UseType("0x0E34")
wait(1900)
UO.LClick(461,453)
wait(500)
counter=0
wait(100)
while not UO.InJournal("You fail to inscribe") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x1F6C" )
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