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