;
;            ******************************
;            *  Targeter_Quick  ver 0,71  *
;            *<<>><<>><<>><<>><<>><<>><<>>*
;            *           Romek_z_Jawora   *
;            ******************************
set %key F5     ;przycisk jesli alt lub cos nalezy wpisac %key ALT , #spc , F4
set %dist 18    ;jak daleko szukac - 18 max
set %typy HS_IS_XU_AV_FH_PG  ;lepiej nie ruszac, ale jak ktos chce....
;--------------------------------------------------
set %LoA
;------------- Legion Asmoday'a -------------------
;--------------------------------------------------
;   is
set %LoA %LoA , _ , QFETCB   ; Ismael
set %LoA %LoA , _ , ZBTVPC   ; Iris
set %LoA %LoA , _ , AYMVEB   ; Shanti

;   T
set %LoA %LoA , _ , WUFSKB   ; Kabalock
set %LoA %LoA , _ , ZLCADC   ; Adeltha
;   RJ
set %LoA %LoA , _ , XKPOB    ; Arubin
;   faja
;set %LoA %LoA , _ ,         ; Porton
;set %LoA %LoA , _ ,         ; Kelia
;   xaw     Azzar
set %LoA %LoA , _ , FULCBC
;   Lae
set %LoA %LoA , _ , BUOIW      Laertes
;set %LoA %LoA , _ ,         ; Caurien
;   Yell
set %LoA %LoA , _ , BTSVT    ; Yelin
;set %LoA %LoA , _ ,         ; Xan
;--------------------------------------------------
;Inni: Magnus, Nowak, Newton, RGL
;--------------------------------------------------
set %ChS
;-------------       Chaos     --------------------
;   Z
set %ChS %ChS , _ , BDEWGB   ; Thievia
set %ChS %ChS , _ , OQXQQB   ; Trygg
;   h-
set %ChS %ChS , _ , IAFTDB   ; Azmaer
set %ChS %ChS , _ , NOVJC        ; Durthan
;   Animek
set %ChS %ChS , _ , GKQVGB   ; Vailerie
;   kedo
set %ChS %ChS , _ , HRPQIB   ; Andrekus
set %ChS %ChS , _ , VXCVQB   ; Fenicjus
;   dev
set %ChS %ChS , _ , UAGRDC   ; Viconia
;   Saremus
set %ChS %ChS , _ , OLHXGB   ; Wisegard
set %ChS %ChS , _ , LHPYTB   ; Wilarien
;   rumek
set %ChS %ChS , _ , RGLBMC   ; Elorand
;   triss
set %ChS %ChS , _ , ZPKPX   ; Evelin
;--------------------------------------------------
;Inni: Aaaaa, misha, Wesolek, Goblin, ole
;--------------------------------------------------
set %przyjaciele %LoA , _ , %ChS
ignoreitem %przyjaciele 1
if #charid notin %przyjaciele
   ignoreitem #charid 1
repeat
	onhotkey %key
		gosub szukanie
until #false

sub szukanie
      set %time #scnt + 10
      set #sysmsgcol 80
	    event sysmessage [Targeter]: Szukam
      repeat
            finditem %typy G_ , %dist
            if #findkind = -1
            {
               ignoreitem reset 2
               finditem %typy G_ , %dist
            }
            if #findkind <> -1
            {
               for #findindex 1 #findcnt
	             {
                event property #findid
                ignoreitem #findid 3
                if #findrep = 7
                   continue
                if #findtype in FH_PG && #findcol = 0
                   continue
                if pustyni in #property || drow in #property
                   continue
               if - in #property && oszust notin #property
                   continue
                set %cel #findid
                ignoreitem %cel 3
                gosub RemoveSurname #property
                gosub namierz %cel #result
                ignoreitem %cel 2
                return
               }
            }
    until #findkind = -1
  set #sysmsgcol 41
  event sysmessage [Target]: Pusto
  wait 10
return

sub namierz
	repeat
		event macro 26 0
		if %tscnt <> #scnt
		{
       finditem %1 G
       if #findkind = -1
       {
          set #sysmsgcol 41
          event sysmessage [Targeter]: Nie udalo sie namierzyc
          set #ltargetid %1
          return
       }
    }
	until #ltargetid = %1
	set #sysmsgcol 88
	event sysmessage [Targeter]: %2
return



sub RemoveSurname
set #lpc 300
set %Name %1
  str Count %Name #spc , #spc
  if #strres > 0
  {
    set %DspcCnt #strres
    str Pos %Name #spc , #spc %DspcCnt
    set %x #strres
    str Len %Name
    set %dl #strres - %x + 1
    str Del %Name %x %dl
    set %Name #strres
  }
  str Pos %Name (
  if #strres = 0
  {
    str Pos %Name $
    if #strres > 0
    {
      str Del %Name #strres 1
      set %Name #strres
    }
  }
  else
  {
    set %x #strres - 1
    str Len %Name
    set %dl #strres - %x + 1
    str Del %Name %x %dl
    set %Name #strres
  }
  str Count %Name #spc
  if #strres = 0
    return
  for %i 1 #strres
  {
    str Pos %Name #spc 1
    set %dlugosc #strres - 1
    str Mid %Name 1 %dlugosc
    if %i = 1
    {
      set %str #strres
      str Len %str
      str Del %str #strres 1
    }
    set %str _ , #strres , _
    if %str in _Wyjet_spod_Prawa_Lotrowsk_Lajdack_Nieprzyjemn_Porywcz_Porzadn_Uprzejm_Dobr_Uczciw_Godn_Zaufania_Odrazajac_Podl_Wredn_Niehonorow_Niecn_Wyrozniajac_sie_Przyzwoit_Honorow_Powazan_Zacn_Niegodziw_Okrutn_Haniebn_Pogardy_Glosn_Szanowan_Szacunku_Podziwu_Znan_Wielk_Przerazajac_Zl_Nikczemn_Zlowrog_Nieslawn_Znamienit_Oslawion_Szlachetn_Wybitn_Wspanial_Mroczn_Pozbawion_Honoru_Sir_Dama_Lord_Lady_
    {
      set %dlugosc %dlugosc + 1
      str Del %Name 1 %dlugosc
      set %Name #strres
    }
    else
      break
  }
  str Left %Name 1
  if #strres = #spc
  {
    str Del %Name 1 1
    set %Name #strres
  }
  str Pos %Name #spc , - , #spc , Oszust
  if #strres > 0
  {
    set %x #strres
    str Len %Name
    set %dl #strres - %x + 1
    str Del %Name %x %dl
    set %Name #strres
  }
  if Sir in %Name
  {
  str del %Name 1 3
  set %Name #strres
  }
  if Dama in %Name || Lady in %Name || Lord in %Name
  {
  str del %Name 1 4
  set %Name #strres
  }
  str pos %Name #spc
  if #strres > 0
  {
    set %x #strres - 1
    str left %Name %x
    set %Name #strres
  }
set #lpc 10
return %Name