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

Народ дайте плс на хелинг с курсой
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1547		 Page 1 of 1
Author:  killmon [ 2004-10-06 18:47:40 ]
Post subject:  Народ дайте плс на хелинг с курсой
Чтоб одевал и снимал и лечил себя...ПОЖАЛУСТА)))
Author:  autopilot [ 2004-10-11 09:22:32 ]
Post subject: 
Скока даш ?
Author:  kuviCk [ 2004-10-11 12:00:29 ]
Post subject:  Re: Народ дайте плс на хелинг с курсой
killmon wrote:
Чтоб одевал и снимал и лечил себя...ПОЖАЛУСТА)))

Code:
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
Author:  OldArtes [ 2004-10-18 07:50:48 ]
Post subject: 
Мде... чёт он у меня непашет :( он одеваетст курсу и стоит тупо хиляется.... и всё снимать он её походу дела даже несобирался.... хоть и простоял минут 10
Так что допиши его нормально :)
Author:  autopilot [ 2004-10-18 08:47:35 ]
Post subject: 
Скрипт рабочий сам на нем до ГМ поднял ! Скрипт для ДВР на нругих шардах не гарантируется..
Author:  MitAl [ 2004-10-18 09:59:21 ]
Post subject: 
OldArtes wrote:
Мде... чёт он у меня непашет :( он одеваетст курсу и стоит тупо хиляется.... и всё снимать он её походу дела даже несобирался.... хоть и простоял минут 10
Так что допиши его нормально :)


У меня тот тоже не пашет...
Вот другой. На нем я на дрв прокачал до ГМ. 100% работает. Хотя иногда почему-то сбивается.
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/