An Grav

[t1m3]

Нужен скриптик на AN Grav под ноги, тоесть еслы у тебя под ногах стоит Фаер фильд то скрипт чтоб его уберал, Нажемаещ кнопку и Ан Гравит точно под ногах.

[u0rypT]

Code: Select all

sub DispelFild()
var n
Dim Filds[5]
Filds[0] = 4
Filds[1] = '0x3967' ; ПФ
Filds[2] = '0x3979' ; ПФ
Filds[3] = '0x3996' ; ФФ
Filds[4] = '0x398C' ; ФФ
If UO.Dead() Then
   UO.Print("You are Dead")
   Return
End If
If UO.GetGlobal('DispelFildCheck')<>'on' Then
   UO.SetGlobal('DispelFildCheck','on')
   UO.Set('finddistance','0')
         For n = 1 TO Filds[0]
            UO.FindType(Filds[n],'-1','1')
               If UO.FindCount() Then
                  UO.Cast('Dispel Field','finditem')
               End If
         Next
   UO.SetGlobal('DispelFildCheck','off')
Else
   UO.Print("Wait")
End If
end sub

[t1m3]

Спасибо.

[u0rypT]

Пожалуйста, пользуйся.

[Mihail]

аналогичный "скрипт"
set finddistance 0; waittargetobject ~0x0000; cast "Dispel"

[1wizzy1]

Вычитал:У Диваныча этот винт кто-то уже крутил шаловливыми ручками, он его просто на место вернул.