mIRC Baska Nickle Gireni Belirleme Kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Kod; 1: start: (. Hmake nicksch 100) 1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er 1: ç?k?n: (nick $ site) $ nicksgrab 1: kick: #: ( ($ Comchan ($ önemsiz, e?er 0) <2) ( ?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) ( ) ) alias (nicksgrab . $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1 ) NicksTrouve (alias var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2) return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch) ) 1: JOIN: #: ( var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?) (% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er ) |