Скрипт на Cooking!
Posted: 2005-08-22 14:16:18
Люди дайте пожалуйста скрипт на Cooking.Чар готовит рыбные стэки которые у него в бэкпаке на форже.Благодарю заранее.
Code: Select all
sub Cook()
VAR Exit=0, LastTimer, TryToPoison
uo.print('Выбери СУНДУК С Жратвой:')
uo.exec('addobject Container')
while uo.targeting()
wait(100)
wend
uo.print('Выбери Жаровню:')
uo.exec('addobject Forge')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x097B','0x0000','backpack');
If UO.GetQuantity('finditem')>200 Then
UO.SetReceivingContainer('Container');
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x097A',-1,'backpack') ;
If UO.GetQuantity('finditem')<2 then
UO.FindType('0x097A','0x0000','Container') ;
wait(1000)
UO.Grab('300','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.FindType('0x097A','0x0000','backpack')
UO.WaitTargetObject('Forge')
UO.UseObject('finditem')
wait(4000)
CheckLag()
If UO.InJournal("You burn") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub