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
)