Yoko

sub maina() 
VAR E, t, Enemy='0x003450B5' , MinHP=40, G=true, L, Weap='0x0EC2' ; type of weapon
UO.Attack(Enemy) 
UO.DeleteJournal() 
while G==true 
wait(500) 
if not UO.ObjAtLayer("Rhand") then 
UO.FindType(Weap,-1,'backpack') 
if UO.FindCount() then 
UO.Equip('Rhand','finditem') 
endif 
endif 
if UO.InJournal("stay") or UO.Life<MinHP then 
UO.Say("stay") 
t=UO.Timer() 
repeat 
E=true 
UO.Exec('warmode 0') 
wait(500) 
if UO.WarMode()==1 then 
E=false 
UO.Say("stay") 
t=UO.Timer() 
endif 
until E==true and UO.Timer()>=t+30 
CheckLag() 
UO.SetArm('myarm') 
while UO.Life<UO.Str 
L=UO.Life 
UO.Exec('warmode 0') 
DelJ("the") 
t=UO.Timer() 
UO.Exec('bandageself') 
repeat 
Wait(500) 
until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100 
CheckLag() 
if UO.Life<L then 
UO.Say("stay") 
endif 
wend 
CheckBandage() 
UO.Arm('myarm') 
if not UO.InJournal("iiaoaee!") then 
UO.Say("go") 
repeat 
wait(50) 
until UO.InJournal("go") or UO.Life<UO.Str 
DelJ(UO.GetName()+": go") 
repeat 
wait(50) 
until UO.InJournal("go") or UO.Life<UO.Str 
else 
UO.Say("go") 
endif 
UO.DeleteJournal() 
UO.Attack(Enemy) 
endif 
if UO.Dead() then 
UO.Exec('warmode 1') 
endif 
wend 
end sub 

sub DelJ(s) 
VAR MN=UO.InJournal(s) 
while MN > 0 
UO.SetJournalLine(MN-1, '') 
MN=UO.InJournal(s) 
wend 
end sub 

sub CheckLag() 
DelJ("backpack") 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub 

sub CheckBandage() 
VAR Banka='0x4007F84C' ; ID of wash basin 
UO.waittargetobject(banka) 
UO.usetype(0x0e20) 
Wait(1000) 
end sub

Пожауйста!Доработайте скрипт! Нужно чтоб противники при хиллинге отхрдили по оси х на 1 клетку друг от друга!и как здоровье FULL обратно подползали!Спасибо...
P.S. Был у меня такой скрипт раньше,но бесследно исчез..

_________________
kraftlive

sub main()
VAR bandage       = 0x0E21 ; ?enoua aeioeee 
 VAR bloodbandages = 0x0E20 ; Eniieuciaaiiua aeioeee 
 VAR washbasin     = 0x1008 ; Ienea n aiaie 
start:



if uo.life < 100 or uo.GetHP('lastattack') < 100 then
otoyti()
healing()
podoyti()
end if
wait(300)
;uo.print(str(uo.GetHP('lastattack')))
goto start
end sub



sub Hodba()
while UO.life>0
   
      
      
   
      
if UO.InJournal("LECHUS") then
;wait(4000)

      while NOT UO.InJournal("VILECHILSYA")
         uo.press(38)
      wend

UO.DeleteJournal()
end if
uo.press(40)
wait(500)
wend
end sub


sub test()

;uo.print(str(uo.Gety()))

end sub

sub healing()
VAR bandage       = 0x0E21 ; ?enoua aeioeee 
 VAR bloodbandages = 0x0E20 ; Eniieuciaaiiua aeioeee 
 VAR washbasin     = 0x1008 ; Ienea n aiaie 
 UO.SetArm('CWeapon')
UO.SAY("lechis")
   wait(100) 
   while UO.Life<uo.str or UO.GetHP('lastattack') <> 256
   UO.Print("Ea?einy ...")      
   UO.Exec("bandageself") 
   wait(4000) 
  WEnd 
  wait(500) 
 ; while UO.Count("bloodbandages")>0 
;   UO.Print("Iiai aeioeee ...")      
   uo.usetype(bloodbandages) 
   uo.waittargettype(washbasin) 
  wait(500) 
  ;WEnd 
  UO.Arm('CWeapon')
;  uo.say("VILECHILSYA")
end sub

sub stoit()
VAR bandage       = 0x0E21 ; ?enoua aeioeee 
 VAR bloodbandages = 0x0E20 ; Eniieuciaaiiua aeioeee 
 VAR washbasin     = 0x1008 ; Ienea n aiaie 


while uo.life > 0
if uo.injournal('lechis') then
UO.SetArm('CWeapon')
#while  uo.GetGraphic('self')==HumanType
#      uo.DisArm()
#      wait(500)
#      uo.deletejournal()
#      repeat
#         uo.usetype('0x097B','0x0000')
#         wait(1000)
#      until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
#      uo.Exec("waitmenu 'What do you' 'Daemon'")
#      uo.Cast('Polymorph')
#      wait(7500)
#   wend
####
while UO.Life<uo.str 
   UO.Print("Ea?einy ...")      
   UO.Exec("bandageself") 
   wait(4000) 
  WEnd 
   UO.Arm('CWeapon')
     uo.usetype(bloodbandages) 
   uo.waittargettype(washbasin) 
  wait(500) 
 
  UO.DeleteJournal()
end if 
wait(200)
#uo.WarMode (0)
wend
end sub

sub otoyti()
var x =0
while uo.gety() < uo.gety('lastattack') + 3 
x=x+1
uo.press(40)
wait(50)
wend
end sub

sub podoyti()
var x =0
while uo.gety() > uo.gety('lastattack') + 1
x= x+1
uo.press(38)
wait(500)
wend
end sub

Инструкция:
1.Двух чаров ставим по углам маленького дома (вот так \)
2.Северо-западному чару запускаем функцию stoit.
3.Юго-восточному чару запускаем main, мышкой берем статус северо-западного и атачим. Если чар не подходит к противнику, нужно сделать это руками.
4.Скрипт запустится и боевые скилы будут рости.

А можно просто на 1 клетку друг от друга чтоб отходили? Я так любил этот скрипт, и забавно было смотреть,когда чар,у которого хиллинг больше прокачен,помогает хилиться другому)

_________________
kraftlive