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

Укажите на ошибку пожалуста!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3476		 Page 1 of 1
Author:  AvantriX [ 2005-03-22 23:54:51 ]
Post subject:  Укажите на ошибку пожалуста!
Code:
sub autobandage()
repeat
if (UO.Str-UO.Life)>15 then
;UO.UseType(0x0F0C); хелки
UO.exec("waittargetself")
UO.UseType(0x0E21)
wait(5000) 
end if
if UO.Count(0x0E21)<500 then
UO.WaitTargetObject(0x4019EA82); Water Trough мыть бинты
UO.UseType(0x0E20)
wait(1000)
end if
wait(500)
while UO.Dead()
wait(5000)
wend
until false
end sub

sub EquipWeapon()
var Weapon1='0x13E3' , Weapon2='0x13B1' , victim='0x000009F0' shield='0x1B76' <<<< тут ругается
repeat
if UO.GetHP(victim)>40 AND NOT UO.GetGraphic(UO.ObjAtLayer('Rhand'))==Weapon1 then
UO.equipt('Rhand',Weapon1)
wait(1000)
UO.equipt('Lhand',Shield)
UO.Print('Mochilovka!')
UO.Print(UO.GetGraphic(UO.ObjAtLayer('Rhand')))
wait(2000)
end if
if UO.GetHP(victim)<20 AND not UO.GetGraphic(UO.ObjAtLayer('Rhand'))==Weapon2 then
UO.equipt('Rhand',Weapon2)
UO.Print('STOP!!!')
wait(500)
UO.Print(STR(UO.GetHP(victim)))
wait(2000)
end if
if UO.GetHP(victim)==0 then
UO.Exec("playwav C:\GAMES\injection\Script\alarm1")
wait(10000)
UO.WaitTargetObject('lastcorpse')
UO.UseType(0x0F51)
end if
wait(3000)
until False
end sub


Помогите плз ошибка указана в скрипте
выдает ошибку пауз эррор =0(
заранее благодарю
Code:
Code:


		
				
	

	


	


	

	

		Author: 
		Arsuri [ 2005-03-23 11:29:01 ]
	

	

		Post subject: 
		
	

	

		
Вот так строку запиши:

Code:
var Weapon1='0x13E3' , Weapon2='0x13B1' , victim='0x000009F0', shield='0x1B76' 




В скрипте перед переменной shield запятая пропущена.

		
				
	

	









	Page 1 of 1
	All times are UTC+02:00




	Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/