Ultima Online Antares

#+++++++++++++-= Auto Attack all players    =-+++++++++++++++
sub StartAttack1();биндим для атаки всех чаров
StartAttack(1)
end sub
#++++++++++-= Auto Attack PK players only   =-+++++++++++++++
sub StartAttack0();биндим для атаки только ПК,серых и вражественной гильдии
StartAttack(0)
end sub

sub StartAttack(status)
UO.Ignore("self")
Var FindOK=false,temp,mess,t=0,k
DIM Friend[50]
VAR endlist=6; последнее число в списке друзей
Friend[0]="feduk"
Friend[1]="SENYA"
Friend[2]="Gurza"
Friend[3]="ALF"
Friend[4]="Flatra"
Friend[5]="Antonio."
Friend[6]="Freeman"
uo.set('finddistance','10')
for t=0 to 1
  repeat
   uo.findtype("0x019"+str(t),"-1","ground")
   temp=0
   for k=0 to endlist
    if Uo.GetName("finditem")==Friend[k] and uo.findcount()<>0 then
     UO.Ignore("finditem")
     k=endlist
     temp=1
    end if
   next
   if temp==0 and uo.findcount()<>0 then
    if status==0 and uo.getnotoriety("finditem")>2 then
     UO.addobject('Enemy',uo.getserial("finditem"))
     Uo.print ("Curent target = "+uo.getname('Enemy'))
     uo.ignore('Enemy')
     uo.attack('Enemy')
     return
      else
      if status==1 then
       UO.addobject('Enemy',uo.getserial("finditem"))
       Uo.print("Curent target = "+uo.getname('Enemy'))
       uo.ignore('Enemy')
       return
        else
         uo.ignore("finditem")
      end if                        
     end if
    end if
  until uo.findcount()==0
   if uo.findcount()==0 then
    UO.IgnoreReset()      
   end if
next
end sub