Каталог файлов

sub main()

VAR Exit=0, LastTimer, Sunduk

wait (1000)

uo.print ('****Скрипт для крафта пойла SteelSkin****')

wait(1000)

uo.print ('**УКАЖИ СУНДУК С РЕГАМИ И ПУСТЫМИ БУТЫЛКАМИ**')

uo.addObject('Sunduk')

while uo.targeting()

wait(500)

wend

wait (1000)

uo.useobject ('Sunduk')

wait (1000)

UO.UnSetCatchBag()

wait (500)

UO.SetCatchBag('Sunduk')

wait(500)

uo.print ('****CRAFTED BY InVasPor****')

wait(1000)

start:

while Exit<>1

wait (50)

UO.DeleteJournal()

wait (100)

CheckLag()

wait (100)

UO.FindType('0x0F0E','0x0000','backpack'); empty bootle

wait (100)

   If UO.GetQuantity('finditem')<=2 then

wait (100)

UO.UnSetCatchBag()

wait (500)

UO.FindType('0x0F0E','0x0000','Sunduk')

wait (50)

CheckLag()

wait (50)

UO.Grab('100','finditem')

wait(1000)

UO.SetCatchBag('Sunduk')

wait(500)

   Endif

wait (100)

UO.FindType('0x0F85','0x0000','backpack'); GI

wait (100)

   If UO.GetQuantity('finditem')<=20 then

wait (100)

UO.UnSetCatchBag()

wait (500)

UO.FindType('0x0F85','0x0000','Sunduk')

wait (50)

CheckLag()

wait (50)

UO.Grab('300','finditem')

wait(1000)

UO.SetCatchBag('Sunduk')

wait(500)

   Endif

wait(50)

while not UO.Hidden()

UO.Warmode(0)

uo.print("xide")

UO.UseSkill("Hiding")

wait(3200)

wend

LastTimer=UO.Timer()

UO.WaitMenu('What sort of potion do you want to','Greater Heal')

UO.UseType(0x0F85) ; GI

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")

wait(500)

wend

If UO.InJournal("You toss the failed") then

wait (50)

repeat

wait(100)

until UO.Timer()>=LastTimer+100

EndIf

wait (50)

CheckLag()

wait (50)

wend

goto start

end sub

sub CheckLag()

if uo.Waiting()>0 then

uo.Exec('canceltarget')

end if

uo.DeleteJournal()

uo.Click('backpack')

repeat

wait(200)

until uo.InJournal('backpack')

while uo.injournal('backpack')

uo.setJournalLine(uo.Injournal('backpack')-1,'is Empty!')

wait (100)

wend

end sub