t1m3 wrote:Как хилить другово ? может на ласттаргет както... я хз не разу о такое не думал!
Code: Select all
sub healfriend()
uo.print('!!Where is your friend?')
uo.addobject('drugan')
while uo.targeting()
wait(100)
wend
If UO.GetHP(drugan) < UO.GetMaxHP(drugan) Then
repeat
UO.WaitTargetObject(drugan)
UO.UseType('0x0000')#bandages
wait(5000)
until UO.GetHP(drugan) == UO.GetMaxHP(drugan)
end if
end sub
Code: Select all
sub ghSvoy()
UO.Exec("usetype 0x1F49")
UO.Exec("waittargetobject 'friend'")
end subCode: Select all
UO.WaitTargetObject('drugan')Code: Select all
sub ress2()
; правлено и переписано Edred-ом от не фиг делать ;)
;
VAR i, VAR Chuvak, ArmorColor
dim fr[13]
fr[0] = "0x00613D58" ; Iluxa [Conclave]
fr[1] = "0x0060F626" ; Gerald [DW]
fr[2] = "0x004885F4" ; ZloyMult [DW]
fr[3] = "0x00008AB4" ; Gambit [ANKLAV]
fr[4] = "0x005999ED" ; DemonX [ANKLAV]
fr[5] = "0x00115979" ; Hell [ANKLAV]
fr[6] = "0x0057A9C9" ; WizarD [ANKLAV]
fr[7] = "0x0031F6A5" ; Lom [DW]
fr[8] = "0x0036ca8f" ; MaKLAUD [Conclave]
fr[9] = "0x0038ca38" ; ANGEL
fr[10] = "0x00000CED" ; KPOBb [DW]
fr[11] = "0x004A2181" ; Ax-Man [ANKLAV]
fr[12] = "0x0024DB12" ; Edred, гы
VAR flag = 0, lastnom = 12
uo.ignorereset()
uo.ignore(uo.getserial("self"))
uo.set("quiet","1")
uo.set("finddistance",str(distance))
uo.findtype("0x0192","-1","ground")
while UO,FindCount() > 0
Chuvak = uo.getserial("finditem")
for i = 0 to lastnom
if Chuvak == fr[i] then
; бум ресить
ResThisChar( Chuvak )
endif
uo.ignore(Chuvak)
next
uo.findtype("0x0192","-1","ground")
wend
uo.print("Больше никого нет.")
endsub
Sub ResThisChar( men1 )
uo.print("Ресаем! " + uo.getname(men1))
if UO.GetDistance( men1 ) < 4 Then
if uo.warmode() <> 1 then
uo.exec("warmode 1")
endif
uo.ignorereset()
uo.waittargetobject(men1)
uo.msg(".heal")
else
if uo.count("0x1F67") > 0 then
if uo.mana < 25 then
uo.msg(".mp")
wait(300)
endif
uo.waittargetobject(men1)
uo.usetype("0x1F67")
else
if uo.mana < 50 then
uo.msg(".mp")
wait(300)
endif
uo.cast("Resurrection",men1)
endif
endif
endsubEdred wrote:Кто-то когда-то просил меня переделать немного скриптик на эту тему, скрипт писал, кажись, Кровь (но это поймет только пара человек здесь).
Тебе скрипт надо переделывать, это под Циту, с использованием сферных команд через точку. И это скрипт на ресс, но ресс в том числе и с бинтов, так что фактически тот же хил. В общем, можешь взять за основу. Скрипт ресает друзей в бою, если ты еще этого не понял.Code: Select all
sub ress2()
; правлено и переписано Edred-ом от не фиг делать ;)
;
VAR i, VAR Chuvak, ArmorColor
dim fr[13]
fr[0] = "0x00613D58" ; Iluxa [Conclave]
fr[1] = "0x0060F626" ; Gerald [DW]
fr[2] = "0x004885F4" ; ZloyMult [DW]
fr[3] = "0x00008AB4" ; Gambit [ANKLAV]
fr[4] = "0x005999ED" ; DemonX [ANKLAV]
fr[5] = "0x00115979" ; Hell [ANKLAV]
fr[6] = "0x0057A9C9" ; WizarD [ANKLAV]
fr[7] = "0x0031F6A5" ; Lom [DW]
fr[8] = "0x0036ca8f" ; MaKLAUD [Conclave]
fr[9] = "0x0038ca38" ; ANGEL
fr[10] = "0x00000CED" ; KPOBb [DW]
fr[11] = "0x004A2181" ; Ax-Man [ANKLAV]
fr[12] = "0x0024DB12" ; Edred, гы
VAR flag = 0, lastnom = 12
uo.ignorereset()
uo.ignore(uo.getserial("self"))
uo.set("quiet","1")
uo.set("finddistance",str(distance))
uo.findtype("0x0192","-1","ground")
while UO,FindCount() > 0
Chuvak = uo.getserial("finditem")
for i = 0 to lastnom
if Chuvak == fr[i] then
; бум ресить
ResThisChar( Chuvak )
endif
uo.ignore(Chuvak)
next
uo.findtype("0x0192","-1","ground")
wend
uo.print("Больше никого нет.")
endsub
Sub ResThisChar( men1 )
uo.print("Ресаем! " + uo.getname(men1))
if UO.GetDistance( men1 ) < 4 Then
if uo.warmode() <> 1 then
uo.exec("warmode 1")
endif
uo.ignorereset()
uo.waittargetobject(men1)
uo.msg(".heal")
else
if uo.count("0x1F67") > 0 then
if uo.mana < 25 then
uo.msg(".mp")
wait(300)
endif
uo.waittargetobject(men1)
uo.usetype("0x1F67")
else
if uo.mana < 50 then
uo.msg(".mp")
wait(300)
endif
uo.cast("Resurrection",men1)
endif
endif
endsub
