Yoko

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