mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
25 Ekim 2020, 16:33 | #1 |
Oto Cevaplama
Kodkanalda 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 } } } } |
|
|
26 Ekim 2020, 00:18 | #2 |
emegine saglik
|
|
|
26 Ekim 2020, 00:19 | #3 |
Emeğine sağlık
________________
. |
|
|
26 Ekim 2020, 01:02 | #4 |
Emeğinize sağlık
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|