Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;
- ; ******************************
- ; * Targeter_Quick ver 1.1 *
- ; *<<>><<>><<>><<>><<>><<>><<>>*
- ; * Romek_z_Jawora & odzi *
- ; ******************************
- set %dist 18
- set %przyjaciele WULBMB_JWKLEC_FULCBC_CAKBMC_FLFVCD_VCAIB_HSNCKD_CLRRXC_LLUIDD_HRPQIB_EFKAMC_NHARGC_TUDLWB_VXCVQB_GQAVPC_OFXFQB_EHPDKD_VYPSKD_ANHGHB_KAQHID_NGLNVB_AGSIID_MJHSFD_DXLFWC_CEHFV_JVIJGB_KZDHMC_GBROGD_FXESWC_XCVQF_MANKPC_LGUMU_XEQCOD_UFAMEB_QJSPPC_LZMWT_JLVALD_FGOJCC_QDLIID_BPWZED_
- ignoreitem %przyjaciele 1
- if #charid notin %przyjaciele
- ignoreitem #charid 1
- repeat
- onhotkey 2
- gosub szukanie
- until #false
- sub szukanie
- set %time #scnt + 10
- set #sysmsgcol 80
- event sysmessage [Targeter]: Szukam
- repeat
- finditem HS_IS_XU_AV_FH_PG G_ , %dist
- if #findkind = -1
- {
- ignoreitem reset 2
- finditem HS_IS_XU_AV_FH_PG 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
- ;gosub wskaz %cel
- 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
Add Comment
Please, Sign In to add comment