Yoko :: Хилинг

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

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

Кто-то когда-то просил меня переделать немного скриптик на эту тему, скрипт писал, кажись, Кровь (но это поймет только пара человек здесь).

Тебе скрипт надо переделывать, это под Циту, с использованием сферных команд через точку. И это скрипт на ресс, но ресс в том числе и с бинтов, так что фактически тот же хил. В общем, можешь взять за основу. Скрипт ресает друзей в бою, если ты еще этого не понял.

Code:

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

Author:	t1m3 [ 2006-06-09 21:26:25 ]
Post subject:	Хилинг
Как хилить другово ? может на ласттаргет както... я хз не разу о такое не думал!

Author:	Dominator [ 2006-06-11 05:26:50 ]
Post subject:	Re: Хилинг
t1m3 wrote: Как хилить другово ? может на ласттаргет както... я хз не разу о такое не думал! Ну ты можежеш например хилить по ИДу ,ето верняк

Author:	MaxHo[LofD] [ 2006-06-11 13:25:37 ]
Post subject:
Code: sub ghSvoy() UO.Exec("usetype 0x1F49") UO.Exec("waittargetobject 'friend'") end sub

Author:	Scripts Writer [ 2006-06-11 16:32:20 ]
Post subject:
Code: UO.WaitTargetObject('drugan')

Author:	kooler [ 2006-06-13 17:21:53 ]
Post subject:
А я в то время играл и качался с кровью в одном сарайчике жили нупами были Ж) играл Димедролом и Crazy Дайте асю Крови плиз

Yoko http://forum.yoko.com.ua/

Хилинг http://forum.yoko.com.ua/viewtopic.php?f=20&t=7929	Page 1 of 1

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/