Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{
if $regex($1,/^[!\.]seslen$/Si) && $regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/) && $2 {
msg # $regsubex($str(-,$nick(#,0)),/./g, $+($chr(3),$r(1,4)) $iif($nick(#,\n) != $me,$iif($nick(#,\n) != Nick1,$iif($nick(#,\n) != Nick2,$nick(#,\n)))) $+($chr(32),$chr(3),5)) ==>6 $nick 1size5 $chan 1kanalında sesleniyor: $+($chr(3),12,$2-)
}
}
ya da;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{
if $regex($1,/^[!\.]seslen$/Si) && $2 {
.hadd -ms seslen $chan $2- | who $chan
}
}
raw 352:*:{
if $hget(seslen,$2) {
if $regex($7,/(%|@|&|~|\.)/) {
if $regex($6,/( $+ $me $+ |Nick1|Nick2|Nick3)/Si) { return }
.hadd -m seslen nickler $hget(seslen,nickler) $+($chr(3),$r(1,4),$6)
}
}
}
raw 315:*:{
if $hget(seslen,$2) && $hget(seslen,nickler) {
msg $2 $hget(seslen,nickler) $+($chr(32),$chr(3),5) ==>6 $me 1size5 $2 1kanalında sesleniyor: $+($chr(3),12,$hget(seslen,$2))
.hfree -sw seslen
}
}
İki şekilde de yapabilirsiniz. Gerekli noktaları kırmızı ile belirttim.
İyi forumlar.