Page 1 of 1

ветеран помаги!!

Posted: 2005-08-19 14:18:57
by Zolik
Можете напиать скрипт на одевание меча с щитом и лука чтоб в паке искал или указывать перекрестием лук и оружие.

Posted: 2005-08-19 14:28:45
by Leo
Берёшь оружие в руки. Пишешь ,setarm 1. Потом в Hotkeys пишешь arm 1.

Posted: 2005-08-19 14:29:27
by flake
А причем тут "Ветеран помоги"? :lol:

Code: Select all

sub SelectWeps()  ; выбор оружия
UO.Exec('addobject Shield')
    While UO.Targeting()
       Wait(100)
    Wend
UO.Exec('addobject Weapon')
    While UO.Targeting()
       Wait(100)
    Wend
UO.Exec('addobject Bow')
    While UO.Targeting()
       Wait(100)
    Wend
endsub

sub ArmWeap()  ; поочередное одевание лука / щита+дива.
  If UO.GetGlobal( 'mywep' ) == 'bow' Then
    UO.SetGlobal( 'mywep', 'shield' )
    UO.UseObject( 'Shield' )
    UO.UseObject( 'Weapon' )
  Else
    UO.SetGlobal( 'mywep', 'bow' )
    UO.UseObject( 'Bow' )
  Endif
endsub

Posted: 2005-08-19 19:48:10
by Zolik
Огромное спасибо!!! :P