Code: Select all
sub resurct()
var tBandage = '0x0E21'
if UO.Count(tBandage) < 20 then
UO.Print("HE4EM PECATb")
return
end if
VAR i,k,CharX,CharY,MyX,MyY,Char
DIM Player[8]
Player[0]='0x0011325C' ;SVOLOCH(P)
Player[1]='0x0005A98F' ;KadP(P)
Player[2]='0x0010023D' ;BEPMYT(p)
Player[3]='0x000FF1CB' ;MaTpOc(p)
Player[4]='0x000F5BAF' ;Kulibin(p)
Player[5]='0x001FF6A2' ;Hipirion (A)
Player[6]='0x000B0F2A' ;GooD(p)
Player[7]='0x001681C0' ;Marinka(p)
#Player[8]='0x0009F5A8' ;
#Player[9]='0x0005AC39' ;?ey (Aiaaeun)
#Player[10]='0x00040AAC' ;Nea (Aiaaeun)
#Player[11]='0x001F79B8' ;
#Player[12]='0x0004F642' ;
#Player[13]='0x000C91FF' ;
UO.FindType('0x0192',-1,'ground')
Char=0
If UO.FindCount()>0 Then
For k=1 to UO.FindCount()
UO.FindType('0x0192',-1,'ground')
For i=0 to 7
MyX=UO.GetX()
MyY=UO.GetY()
CharX=UO.GetX(Player[i])
CharY=UO.GetY(Player[i])
If Player[i]==UO.GetSerial('finditem')AND Uo.GetDistance("finditem")<=1 Then
Char=Player[i]
Else
UO.Ignore('finditem','on')
EndIf
Next
Next
EndIf
If Char<>0 Then
UO.SetArm('CWeapon')
UO.WaitTargetObject(Char)
UO.UseType('0x0E21')
UO.Print("?anno?aeo!!!")
wait(500)
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
Else
UO.Print("A?iaa ana ?eau!!!")
EndIf
UO.IgnoreReset()
end sub