25 Ekim 2020, 16:33
|
#1
|
|
Oto Cevaplama
Kod
kanalda yazılan mesaj kısmı özelede yazılabilir
on *:text:*:#: {
if $noflood($+($chan,-,$nick),selam) && ($regex($1-,sell*amm*) || $regex($1-,slm) || $regex($1-,s\.a$) || $regex($1-,s\.a\.)) {
if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
msg $chan selam $nick $+ . iyiyim sen nasılsın
}
else { msg $chan selam }
}
if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
msg $chan $nick iyiyim sen nasılsın?
}
if ($regex($1-,asl .*) || $regex($1-,^asl$)) && $noflood($+($chan,-,$nick),asl) { msg $chan ne yapacaksın asl yi? }
}
;whois kısmı
on $*:snotice:/\/whois on you.$/Si: {
if $noflood($+(whois-,$2),whois) {
.notice $2 0,2Buyrun Nasıl Yardımcı oLabiLirim ? KişiseL Sohbet İçin Lütfen ÖzeLimi Meşgul Etmeyin.Yardım ALmak İçin #operheLp KanaLından OnLine OperLere ULaşabiLirsiniz..KEYİFLİ SOHBETLER..
}
}
on *:nick: {
noflood pid $nick $newnick
var %i = $chan(0)
while %i {
noflood pid $+($chan(%i),-,$nick) $+($chan(%i),-,$newnick)
dec %i 1
}
}
;noflood(nick,text) pid kullanıldı böylece nick değiştimi işlemimiz kısa sürecek <img draggable="false" role="img" class="emoji" alt="😀" src="https://s0.wp.com/wp-content/mu-plugins/wpcom-smileys/twemoji/2/svg/1f600.svg" scale="0">
alias noflood {
if !$timer(NFLD) { .timerNFLD 0 60 /noflood timer }
if !$hget(PID-NFLD) { hmake PID-NFLD 70 }
if $isid {
if !$hget(PID-NFLD,$1) { hadd PID-NFLD $1 $+($ctime,$rand(0,99)) }
var %PID = $hget(PID-NFLD,$1)
if !$hget($+(NFLD-,%PID)) { hmake $+(NFLD-,%PID) 50 | hadd $+(NFLD-,%PID) ctime $ctime }
if $hmatch($+(NFLD-,%PID),$replace($2,$chr(32),$chr(160)),0) { return $false }
else { hadd $+(NFLD-,%PID) $replace($2,$chr(32),$chr(160)) $ctime | hadd $+(NFLD-,%PID) ctime $ctime | return $true }
}
else {
if $regex($1-,^timer$) {
var %i = $hget(0)
while %i {
if $regex($hget(%i),^NFLD-.*) {
if $calc($ctime - $hget($hget(%i),ctime)) > 1200 { hfree $hget(%i) }
}
dec %i 1
}
}
if $regex($1,^pid$) && $2 && $3 {
if $hget(PID-NFLD,$2) {
hadd PID-NFLD $3 $v1
hdel PID-NFLD $2
}
}
}
}
|
|
|