Yoko

sub Ress()
 
uo.ignorereset() 
uo.print('autoRess Started') 
uo.DeleteJournal() 
UO.Set('finddistance','2') 
uo.findtype('0x0192',-1,'ground') 
if uo.findcount() then 
uo.waittargetobject('finditem') 
uo.usetype('0x0E21') 
uo.print(uo.getname('finditem')+' will be resurrecting') 
else 
uo.Print(uo.getname('finditem')+' (color: '+UO.JournalColor(UO.InJournal()+1)+')'+' is not guild member') 
end if 
end if 
wait(500) 
end sub

sub Ress()
VAR n
Dim ress[2]
ress[1] = '0x0192'
ress[2] = '0x0193'
uo.print('autoRess Started')
UO.Set('finddistance','2')
For n = 1 To 2
uo.findtype( ress[n] , -1 ,'ground')
if uo.findcount() then
uo.waittargetobject('finditem')
uo.usetype('0x0E21')
uo.print('resurrecting')
end if
Next
end sub

sub Ress() 
var i 
Dim a[2] 
a[1] = '0x0192' 
a[2] = '0x0193' 
UO.Set('finddistance','2') 
For i= 1 to 2 
uo.findtype(a[i], -1, 'ground') 
if uo.findcount() then 
uo.waittargetobject('finditem') 
uo.usetype('0x0E21')
#uo.cast('Resurrection') ; если надо ресать магией
else 
uo.print('ghost not found') 
end if 
Next 
end sub