An Grav
Posted: 2007-05-15 08:42:09
Нужен скриптик на AN Grav под ноги, тоесть еслы у тебя под ногах стоит Фаер фильд то скрипт чтоб его уберал, Нажемаещ кнопку и Ан Гравит точно под ногах.
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