Noktalama işaretleri Renkli Olsun.
|
1 2 3 4 5 6 7 8 9 10 |
on *:input:*:{ if (!$regex($left($1,1),/^!|[./]|/|/i/)) { var %wn $numtok($1-,32) while (%wn > 0) { if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn } } } alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>)) alias yr return $r(2,6) |
#Kanalda Sözcük, kelime Aratma
|
1 2 3 4 5 |
Kod; alias bul var %a @ $+ $1 | window -enz %a | filter -ww $active %a $+(*,$1,*) Aktif ekranda kanala "/bul kelime" yazmanız yeterlidir. |
Kanala Giriş Uyarı Remotesi
Aşağıda bulunan remoteyi mIRC’inize eklediğiniz takdirde #Kanaladı olarak yazılan yerlere bulunduğunuz , kanala girildiğinde size uyarı gelmesini istediğiniz kanal adını yazarak , O kanala girişlerin bulundugunuz ekrana yansıması gerçekleştirilecektir. Genellikle bu komut #Help kanallarında kullanılabilir. NOT: Kanala giren operatorlerde uyarı vermeyecektir. on !*:join:#Kanaladı: .timer $+ $nick 1 1 kontrl $nick alias -l kontrl if ($count($nick(#Kanaladı,$1).pnick,+,%,@,&,.) == 0) { .echo […]
» Devamını OkuKanal Koruma Remotesi
Kanal koruma remotesi Aşağıdaki remoteyi mIRC’inize eklediğiniz takdirde kanalınıza saldırı olması durumunda kanal otomatik olarak +RM moduna alınıp. Saldırı yapan kişiler kanaldan banlanacaktır. Kısa ama çok etkili bir kod olduğundan işinizi görecektir. üzerinde değişiklik ve düzeltmeler yapabilirsiniz. on @*:text:*:#:{ if ($nick isreg #) { inc -u1 $+(%,fld.,$chan,.,$nick) | if ($($+(%,fld.,$chan,.,$nick),2) >= 3) { ban -k # $nick 2 4,1[ Flood […]
» Devamını OkuKısayol Komutları
!(+/-)(b|o|a|v|q|h) Nick1 Nick2 Nick3 – şeklinde birden fazla kişiye mode uygulayabilmenizi sağlar. Kod: !-o-h+b+v Ezgi S-Bot Ezgi Mudin Sonuç: * Mudin sets mode: -oh+bv Ezgi S-Bot Ezgi!*@* Mudin Kod: on *:input:#:{ if $regex($left($1,1),\!) { if $regex($gettok($1,1,33),(\-|\+)) { haltdef var %rt 1 while %rt <= $gettok($2-,0,32) { var %ekle $addtok(%ekle,$gettok($1,1,33),32) inc %rt } mode $active $+($gettok($1,1,33),$remove(%ekle,$chr(32))) $2- } } } Kod […]
» Devamını OkuHelperler için Yeni(away) sistemi.
Merhaba arkadaşlar, kodumuz şu şekilde aktifleşiyor.. #Helpers kanalında Helper !awaysüre Yazdıgında ( !away5 ) 5 dk away konuma gecer ve deop eder 5 dk sonra Helpere away sureniz dolmustur. Burda misiniz ? Burdaysaniz !evet yaziniz. Şeklinde cvp gelir !evet yazıldıgında tekrar opa cıkarır ve görevine devam eder.. umarım begenirsiniz güle güle kullanın .. on *:text:*:#helpers:{ if (!evet isin $1) { .cs op #Helpers $nick | /msg # $nick hosgeldin basarilar dilerim. | .timer $+ $nick off } if (!away1 isin $1) { if !%helperaway [ $+ [ $address($nick,5) ] ] { set -u900 %helperaway [ $+ [ $address($nick,5) ] ] $addtok(%helperaway [ $+ [ $address($nick,5) ] ],$nick,32) /msg # $nick away sureniz baslamistir. .cs deop #Helpers $nick .timer $+ $+($r(A,Z),$r(A,Z),$r(A,Z),$r(A,Z),$r(A,Z)) 1 60 /msg # $nick away sureniz dolmustur. Burda misiniz ? Burdaysaniz !evet yaziniz. .timer $+ $+($r(A,Z),$r(A,Z),$r(A,Z),$r(A,Z),$r(A,Z)) 1 60 .helperaway # $nick […]
» Devamını Oku