Помогите пожалуйста!

[klema12]

не могу доделать чтоб он брал итемил выкидывал и опять повторял всё с начала

Code: Select all

sub Item()
VAR Item="0x1F03"
VAR Sunduk="0x4AD5A75F"
uo.set("distance","0")
hungry()
   uo.exec("waittargetground 0x1F03;grab 1")
wait(100)

While UO.Count(Item)
UO.FindType(Item,-1,'my')
wait(100)
If UO.FindCount() Then
Repeat
UO.DeleteJournal()
UO.WaitTargetObject('finditem')
UO.Useskill('Item Identification')
wait(1000)
Until UO.InJournal('This is a normal item')
UO.MoveItem('finditem',1,Sunduk)
Endif
Wend
end sub 

sub hungry()
var i
UO.ServerPrint(".hungry")
Wait(500)
i=UO.LastMessage()
If i=="You aren't hungry at all" Then
UO.Exec("usetype '0x097B'")
EndIf
end sub

заранее огромное спасибо!!