repeat
onhotkey 1
  gosub atak
until #false

sub atak
set %typy OF_BG_EG_RD_PG_JG_MG_VD_SF_AH_SG_GE_YFM  ;kon,niedzwiedz,lama,goryl,wilk,ost,konBialy,siwy wilk,klacz,wielki jelen,klacz,gaman
repeat
      if #scnt <> %scnt
      {
         finditem %typy G
         if #findkind = -1
            continue
         for #findindex 1 #findcnt
         {
             ignoreitem #findid
             set #ltargetid #findid
             event macro 27 0 ;<---------------------wpisac tutaj numer attacklast
         }

         event sysmessage atakuje
         ignoreitem reset
         break
      }
until #false
return