Yoko

Чтоб одевал и снимал и лечил себя...ПОЖАЛУСТА)))

Скока даш ?

sub Healing() 
var Exit, LastTimer, Live 
uo.Print('Выбери Курсанутую Вещь: ') 
uo.Exec('addobject Curse') 
while uo.Targeting() 
wait(100)
wend
wait(300)
uo.DisArm() 
wait(2000) 
Exit=0 
while Exit <> 1 
Live=uo.STR 
CheckLag() 
uo.WaitTargetType('0x1008') 
uo.UseType('0x0E20')  
wait(500)
uo.UseObject('Curse')
SpiritSpeak()
wait(1500)
repeat 
wait(500) 
until uo.Life<Live 
CheckLag() 
LastTimer=uo.Timer() 
repeat 
uo.BandageSelf() 
wait(4000) 
until uo.Life==uo.STR or LastTimer+300<uo.Timer() 
wend 
end sub 

sub SpiritSpeak()
uo.UseSkill('Spirit Speak')
wait(2500)
end sub

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub 

Мде... чёт он у меня непашет он одеваетст курсу и стоит тупо хиляется.... и всё снимать он её походу дела даже несобирался.... хоть и простоял минут 10
Так что допиши его нормально

Скрипт рабочий сам на нем до ГМ поднял ! Скрипт для ДВР на нругих шардах не гарантируется..

У меня тот тоже не пашет...
Вот другой. На нем я на дрв прокачал до ГМ. 100% работает. Хотя иногда почему-то сбивается.

sub healing() 
 VAR bandage       = 0x0E21   ;чистые бандаги 
 VAR bloodbandages = 0x0E20 ;грязные бандаги 
 VAR washbasin     = 0x1008  ;мойка для бинтиков 
 VAR kursa         = 0x1517 ; рубашка простая ширт так помойму 
 VAR eda           = 0x09bb ; свинка жареная :) 

 ; тут не че не не меняем )--------------------------- 

 Var Strength 
 Strength=UO.Life 
    repeat 
  CheckLag() 
  uo.usetype(eda) 
  uo.usetype(kursa)

   
repeat 
wait(200)
until UO.Life<Strength
   CheckLag() 
  uo.undress()  
  while UO.Life<Strength and UO.Count("bandage")>0 
      CheckLag() 
   UO.waittargetself() 
  UO.usetype("bandage") 
    wait(5000) 
  WEnd 
  wait(500) 
  while UO.Count("0x0E20")>0 
    UO.waittargettype(washbasin) 
   UO.usetype('0x0E20') 
   wait(1000) 
  WEnd 
 until UO.Count("bandage")==0 AND UO.Count("bloodbandages")==0 
  UO.Print("You no have a bandage !!! :-(")  
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub