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

как помыть Blood bandages?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2276		 Page 1 of 1
Author:  Irbis [ 2004-12-18 00:29:40 ]
Post subject:  как помыть Blood bandages?
Братья, качаю хелинг курсой. Помогите, пожалуйста, чтобы когда закончатся бандажки брались окрававленные, мылись и скрипт продолжал работу.
Использую такой скрипт:
В нем все вроде работает, кроме закоментаренного отрезка (его я сам пытался написать) В чем ошибка?

sub HealTrain()
VAR CharHP=150, LastTimer
uo.disarm()

While UO.SkillVal('Healing',1)<1000
ToHide()


;if UO.InJournal('No bandages')then
;UO.DeleteJournal()
;UO.FindType('0x0e20',-1,'backpack') ;Blood bandages
;wait(499)
;If UO.GetQuantity('finditem') then
;UO.WaitTargetObject('0x40194893') ; Wash basin
;UO.Usetype('finditem')
;Endif
;Endif
;wait(777)


uo.waittargettype ('0x1008')
uo.usetype('0x0e85') ;cursa kirka
wait (777)
uo.canceltarget()
While UO.GetHP()>CharHP-2
wait(777)
Wend
UO.BandageSelf()
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
wait(777)
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100
Wend
end sub

Заранее спасибо.
Author:  Askaneli [ 2004-12-20 06:53:44 ]
Post subject: 
Code:
sub Train_Healing() 
var i,j,tekstr
uo.undress() 
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000)
      j=0
      repeat
      wait(10)
      j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress() 
      wait(100)
      cheklag()
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         cheklag()
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
      else 
         cheklag()
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
Author:  Bloodmoon [ 2004-12-20 07:07:49 ]
Post subject: 
Вот хороший скрипт,немного я его редактировал:
Code:
sub Train_Healing()
var i
while True
   UO.FindType(0x0E21,"-1","my")
   if UO.FindCount() then
      uo.usetype(0x1718); Cursed Hat
      CheckLag()
      if i==3 or not i then
         Spirit() #----
         i=1
      else
         i=i+1
      endif
#      uo.useskill ("Spirit Speak")
         wait(2000)
      uo.undress()
      wait(100)
      uo.exec('bandageself')
      Wait(2000)
   else
      UO.FindType(0x0E20,"-1","my")
      if UO.FindCount() then
         uo.waittargettype(0x1008)   # wash basin
         uo.UseType(0x0E20)   #bloody bandages
         CheckLag()
      else
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing")
         Play_Sound(1)
      endif
   endif
wend
end sub
Author:  Askaneli [ 2004-12-20 07:24:44 ]
Post subject: 
Bloodmoon wrote:
Вот хороший скрипт,немного я его редактировал:

Я первый
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/