Page 1 of 1

Equip оружия

Posted: 2004-11-23 20:18:28
by b1sh0p
Мне нужен скрипт 4тоб если оружие ломалось , то я мог одеть оружее того же типа с моего бэкпака. Мне надо 4тоб он повторялся.
Я шото сделал , но чар одевает оружее потом пишется ошибка какаето и капец...*:(( Помогите плиз я в инже пока не шарю . Токо не отсылайте в help . Я не знаю как эти команды употреблять.

sub help()
VAR Weapon,WpnType='0x0F51'
If Weapon<>"" Then
UO.Equipt('Rhand',WpnType)
wait(2000)
Endif
wend
end sub

Re: Equip оружия

Posted: 2004-11-23 21:22:36
by Ugrum.

Code: Select all

sub ArmD() 
Var WpnType='0x0F51'  

 While UO.GetHP()>0  
wait(1500)  
IF Not UO.ObjAtLayer('Rhand') then  
   UO.equipt('Rhand',WpnType) 
   Wait(2000)      
END IF
 wend  
end sub 
"Я не знаю как эти команды употреблять." :) Не поверишь! Как их "употреблять" ума не приложу. :)

Posted: 2004-11-23 21:27:16
by b1sh0p
Спасибо те огромное. Я внатуре не шарю и тЫ мне о4енЪ помог
Respect