;
;            ******************************
;            *  Targeter_Quick  ver 0,71  *
;            *<<>><<>><<>><<>><<>><<>><<>>*
;            *           Romek_z_Jawora   *
;            ******************************
ZVMKD; last


set %key 1     ;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 %przyjaciele BIODG_DCLBF_VPLC_TGTIH_KTFW_EUJD_GLGFH_NXDZAB_EYDGR_EQXKG
;-------------------------------------------------
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
	             {
                for %i 1 10
                {
                    event property #findid
                    if #property <> $
                       break
                }
                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 #sysmsgcol 4000
                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