seksinci panpalarima ozel nesil atlatma kodu

Evet beyler, entrynin en altinda verdigim 2 linkte gordugunuz gibi ilk once kendi nickim ustunde denedim ve kesinlikle calisiyor.

yapmaniz gereken sey;

1: start: (. Hmake nicksch 100)
1yemisinci: #: (($ comchan ($ nick, 0) <2) (nick $ yemisinci)) $ nicksgrab er
1:ciksinci: (nick $ ciksinci) $ nicksgrab
1: kick: #: (
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: Change: #: (
var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2nickiniz? 4]? 12 $ ifmatch?)
(% NickPrecedent) (echo-tm $ chan $ ifmatch) yemisinci
)

Not: nickiniz yazan yere nickinizi yazmazsaniz calismaz

buda yalanina sokuyumcular icin;

Oncesi;
http://imgim.com/8200incin8468852.png

Sonrasi;
http://imgim.com/yemis.png

bunuda uplattirmayin ciksinci panpalarim

1: start: (. hmake nicksch 100)
1yemisinci: #: (($ comchan ($ nick, 0) <2) (nick $ yemisinci)) $ nicksgrab er
1:ciksinci: (nick $ ciksinci) $ nicksgrab
1: kick: #: (
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: change: #: (
var% nickprecedent = $ iif ($ nickstrouve ($ nick, $ site),? 4 [? 2amua yenigine? 4]? 12 $ ifmatch?)
(% nickprecedent) (echo-tm $ chan $ ifmatch) yemisinci
)