//inc -u15 %püf [ $+ [ $nick ] ] [ $+ [ $1- ] ]
ben yazdığımda sorun gözükmüyor.Neyse hash table ile bi koruma yazdım.Denedim iş görüyor.Kolay gelsin.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:join:#:{ if $nick == $me && !$hget($chan) { hmake $chan 100 } }
on *:part:#:{ if $nick == $me && $hget($chan) { hfree $chan }
on *:text:*:#:{ if !$hget($chan,$+($nick,$1-)) { hadd # $+($nick,$1-) 1 } | else { hadd # $+($nick,$1-) $calc($hget($chan,$+($nick,$1-)) + 1) } | if ($hget($chan,$+($nick,$1-)) == 2) { msg # $nick Uyarı } | if ($hget($chan,$+($nick,$1-)) == 3) { msg #opers $nick Uyarıldı } | if ($hget($chan,$+($nick,$1-)) == 5) { kline $nick | hdel # $+($nick,$1-) } }