Yoko

Posted: **2004-12-18 00:29:40**

Братья, качаю хелинг курсой. Помогите, пожалуйста, чтобы когда закончатся бандажки брались окрававленные, мылись и скрипт продолжал работу.
Использую такой скрипт:
В нем все вроде работает, кроме закоментаренного отрезка (его я сам пытался написать) В чем ошибка?

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

Заранее спасибо.

Posted: **2004-12-20 06:53:44**

Code: Select all

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

Posted: **2004-12-20 07:07:49**

Вот хороший скрипт,немного я его редактировал:

Code: Select all

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

Posted: **2004-12-20 07:24:44**

Bloodmoon wrote:Вот хороший скрипт,немного я его редактировал:

Я первый

Yoko

как помыть Blood bandages?

как помыть Blood bandages?