Попроту очеть нада.
Code: Select all
sub main()
VAR k = 0
While TRUE
UO.FindType(0x1BDD,-1,'ground')
If UO.FindCount() == 0 Then
return
Endif
UO.Grab(Str(30),'finditem')
wait(900)
While (UO.Count(0x1BDD) > 10)
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('What do you want to carve the wood into?', 'shaft' )
if UO.count('0x0F51')>0 then
UO.Usetype('0x0F51')
UO.waittargettype(0x1BDD)
else
UO.Usetype('0x0F52')
UO.waittargettype(0x1BDD)
end if
k = 0
while NOT UO.InJournal('BowCraft c.e.p') AND NOT UO.InJournal('Ваша') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count(0x1BD4) > 30 then
UO.FindType(0x1BD4,-1,-1)
UO.MoveItem( 'finditem', 0, 'ground')
wait( 900 )
end if
Wend
Wend
end sub