#juser on
raw 352*:*:{
if (*serv* iswm $6) || (mtx* iswm $6) || ($+($me,*) iswm $6) || (*_logger* iswm $6) || (Q = $6) || (*A090EFAB* iswm $address($6,2)) || (*servi* iswm $address($6,2)) { halt }
;bu kısma Excemp (kapsam dısı) kullanıcıların host-mask-nicklerini girebilirsiniz
if ($6 ison %CH: ) { halt }
else {
.echo $6 %CH:
echo @Juser 4Cekilen nick:12 $6
}
halt
}
raw 352*:*:{
echo @juser 4,8 join işlemi tamam
unset %CH:
echo @juser bu pencere 15 Saniye içinde kapanacak
.timer@Juse 1 15 if ($window(@Juser)) { .window -c @Juser }
.disable #juser
halt
}
#juser off
alias Juser {
if (!$window(@Juser)) { .window -bLe @Juser }
if ($window(@Juser)) {
echo @Juser 14,14¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
}
if ($1 = $null) {
echo @Juser Eksik parametre
echo @Juser Kullanım :
echo @Juser Juser #kanal
halt
}
if (#* !iswm $1) {
echo @Juser yanlış parametre Kanal Belitmediniz
echo @Juser Kullanım :
echo @Juser /Juser #kanal
halt
}
if (#* iswm $1) {
;mode larınızda Join Flood varsa kullanın .mode $1 -l
;\\.mode $1 -l
set %cH: $1
.enable #juser
.who *
}
}

#unban on
on @*:ban:#:{ if ($banmask iswm $address($me,5)) { mode $chan -b $banmask } }
on *:kick:#:{ if ($knick == $me) { .timer 1 2 /join $chan | set %knc $nick } }
raw 474:*:{ chanserv unban $2 | join $2 }
#unban end
menu channel {
Ban Koruması
.On:/enable #unban
.Off:/disable #unban
}

karizmayazi on
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\\/) {
msg $active $replacecs($1-,::,2he3he4he5he6he7he,ç,¢,a.s.,a.SeLam..,?,¿,l,L,ı,I,ş,$,Ş,$,ç,¢,o,ø,b,ß,<,«,>,»)
halt
}
}
#karizmayazi end

bu kodla mIRC Whois Takip Penceresini görebilirsiniz
on ^*:snotice:*: {
if *size*/whois*cekti* iswm $1- {
inc -u10 %whois. [ $+ [ $1 ] ] 1
if %whois. [ $+ [ $1 ] ] >= 3 {
kill $1 Whois flood yaptığınız için sunucudan uzaklaştırıldınız.
}
echo -a [Bilgi] > $1-2 size whois cekti
if !$window(@Whois) { window -a @Whois } {
aline @Whois [**] > $1-2 rumuzu size whois cekti.
}
}
}

mirc Kanallara Otomatik giriş hazır kodu
dialog mmkanalar {
title “SiberChat Kanallar”
size -1 -1 179 215
option dbu
text ” Global Kanalar”, 1, 7 26 45 10
check “#siberchat”, 2, 6 42 48 10
check “#Zurna”, 3, 6 52 50 10
check “#Oyun”, 4, 6 62 50 10
check “#Sohbet”, 5, 6 73 50 10
check “#SanalNikah”, 6, 6 84 50 10
text ” Özel Kanallar”, 7, 60 112 45 11
text ” Şehir Kanalları”, 14, 59 26 45 10
check “#Istanbul”, 16, 60 42 42 10
check “#Ankara”, 17, 60 53 39 10
check “#Izmir”, 18, 60 64 39 10
check “#Bursa”, 19, 60 75 39 10
check “#Antalya”, 20, 60 86 41 10
check “#Adana”, 21, 60 98 38 10
text ” Müzik Kanalları”, 22, 111 26 45 10
check “#Metal”, 23, 108 42 50 10
check “#Rock”, 24, 108 54 50 10
check “#Hiphop”, 25, 108 66 50 10
check “#Rap”, 26, 108 77 50 10
check “#Arabesk”, 27, 108 88 50 10
check “#Radyo”, 28, 108 99 50 10
text ” Takım Kanalları”, 29, 9 112 45 10
check “#Fenerbahçe”, 30, 5 128 50 10
check “#Galatasaray”, 31, 5 139 50 10
check “#Beşiktaş”, 32, 5 150 50 10
check “#Trabzonspor”, 33, 5 161 50 10
check “#Bursaspor”, 34, 5 172 50 10
check “#Ankaragücü”, 35, 5 183 50 10
check “#oyun”, 8, 6 96 50 10
check “#Sevgi”, 9, 59 129 43 10
check “#Aşk”, 10, 59 140 44 10
check “#Dostluk”, 11, 59 151 45 10
check “#Felsefe”, 12, 59 162 50 10
check “#Edebiyat”, 13, 59 173 50 10
check “#Cinsellik”, 15, 59 184 50 10
text ” Yardım ve Eğitim Kanalları”, 36, 112 113 65 10
check “#Help”, 37, 109 129 50 10
check “#ruled”, 38, 109 139 50 10
check “#Eğitim”, 39, 109 149 50 10
text ” SiberChat kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbet’e katılabilirsiniz. NOT : Birden fazla kanal secebilirsiniz.”, 42, 6 3 167 20, center
box “”, 40, 1 21 178 174
button “Sohbete Bağlan!”, 41, 14 198 143 12
}

on *:dialog:mmkanalar:*:*:{
if $devent == sclick {
if $did !== 41 {
if $did($did).state == 1 { .write kanallar.txt $did($did) $+ $chr(11) $+ $did } | else { .write -dw $+ $did($did) $+ $chr(11) $+ $did kanallar.txt }
}
if $did == 41 {
.server irc.siberchat.net
.dialog -x $dname $dname
}
}
if $devent == init {
if $lines(kanallar.txt) !== 0 {
var %i 1
while %i <= $lines(kanallar.txt) {
.did -c $dname $gettok($read(kanallar.txt,%i),2,11)
inc %i
}
}
}
}
on *:connect:{
if $lines(kanallar.txt) !== 0 {
var %y 1
while %y <= $lines(kanallar.txt) {
.join $gettok($read(kanallar.txt,%y),1,11)
inc %y
}
}
}

Mirc Düşman Listesine alma hazır kodu
on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı.
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “DeLimIRC – Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}

mirc Karşılama Mesajı hazır kodu
On *:join:#kanalismi:{
if $nick == KarsilanacakRumuz { /msg $chan KarsılanacakRumuz kanala girdi. }
}

mirc Kanaldaki yazıları aktarma kodu
On *:text:*:#Sohbet:{ /msg #radyo < $+ $nick $+ > $1- }

mirc Sahte log hazırlamak isteyenler bu kod
sahtelog { dialog -m sahtelog sahtelog }
dialog sahtelog {
title “Sahte Log Hazırlama”
size -1 -1 155 246
option dbu
edit “”, 1, 15 14 50 10, autohs
edit “”, 2, 15 25 50 10, autohs
edit “”, 3, 15 36 50 10, autohs
edit “”, 4, 15 47 50 10, autohs
edit “”, 5, 15 58 50 10, autohs
edit “”, 6, 15 69 50 10, autohs
edit “”, 7, 15 80 50 10, autohs
edit “”, 8, 15 91 50 10, autohs
edit “”, 9, 15 102 50 10, autohs
edit “”, 10, 15 113 50 10, autohs
edit “”, 11, 68 14 83 10, autohs
edit “”, 12, 68 25 83 10, autohs
edit “”, 13, 68 37 83 10, autohs
edit “”, 14, 68 48 83 10, autohs
edit “”, 15, 68 60 83 10, autohs
edit “”, 16, 68 71 83 10, autohs
edit “”, 17, 68 82 83 10, autohs
edit “”, 18, 68 93 83 10, autohs
edit “”, 19, 68 103 83 10, autohs
edit “”, 20, 68 114 83 10, autohs
text “Sahte Log HazırLanacak Nick”, 21, 0 6 70 8
text “Yazdığı Mesaj”, 22, 87 6 54 8
edit “”, 23, 59 133 86 10, autohs
text “Gönderilecek Kanal/Kişi”, 24, 0 133 60 8
box “Sahte Log Biçimi”, 25, 7 143 138 37
button “Text”, 26, 12 153 37 11
button “Notice”, 27, 52 153 37 11
button “Action”, 28, 91 153 37 11
edit “”, 29, 37 167 50 10, read
text “Şu Anda”, 30, 16 168 21 8
text “Durumunda”, 31, 89 168 46 8
link “By SCouNDReL”, 32, 48 221 51 8
text “Not: Eğer İstediğinizden Fazla Metin Boşluğu Varsa ” – ” Yazınız Eğer Koymazsanız Başka Şeyler Gönderebilir…”, 35, 18 202 136 19
button “Gönder”, 36, 18 183 115 14
button “Kapat”, 37, 126 224 31 18, ok
}
on 1:dialog:sahtelog:*:*:{
if ($devent == init) {
did -a $dname 1 %kisi1
did -a $dname 2 %kisi2
did -a $dname 3 %kisi3
did -a $dname 4 %kisi4
did -a $dname 5 %kisi5
did -a $dname 6 %kisi6
did -a $dname 7 %kisi7
did -a $dname 8 %kisi8
did -a $dname 9 %kisi9
did -a $dname 10 %kisi10
did -a $dname 11 %mesaj1
did -a $dname 12 %mesaj2
did -a $dname 13 %mesaj3
did -a $dname 14 %mesaj4
did -a $dname 15 %mesaj5
did -a $dname 16 %mesaj6
did -a $dname 17 %mesaj7
did -a $dname 18 %mesaj8
did -a $dname 19 %mesaj9
did -a $dname 20 %mesaj10
did -a $dname 29 %durum
did -a $dname 23 %kanal
}
if ($devent == sclick) {
if ($did == 36) { set %kisi1 $did(1) | set %kisi2 $did(2) | set %kisi3 $did(3) | set %kisi4 $did(4) | set %kisi5 $did(5) | set %kisi6 $did(6) | set %kisi7 $did(7) | set %kisi8 $did( | set %kisi9 $did(9) | set %kisi10 $did(10) | set %mesaj1 $did(11) | set %mesaj2 $did(12) | set %mesaj3 $did(13) | set %mesaj4 $did(14) | set %mesaj5 $did(15) | set %mesaj6 $did(16) | set %mesaj7 $did(17) | set %mesaj8 $did(18) | set %mesaj9 $did(19) | set %mesaj10 $did(20) | set %kanal $did(23) |
if (%durum == Text) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) < $+ %kisi1 $+ > %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) < $+ %kisi2 $+ > %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) < $+ %kisi3 $+ > %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) < $+ %kisi4 $+ > %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) < $+ %kisi5 $+ > %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) < $+ %kisi6 $+ > %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) < $+ %kisi7 $+ > %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) < $+ %kisi8 $+ > %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) < $+ %kisi9 $+ > %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) < $+ %kisi10 $+ > %mesaj10 }
}
if (%durum == Notice) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) – $+ %kisi1 $+ – %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) – $+ %kisi2 $+ – %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) – $+ %kisi3 $+ – %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) – $+ %kisi4 $+ – %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) – $+ %kisi5 $+ – %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) – $+ %kisi6 $+ – %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) – $+ %kisi7 $+ – %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) – $+ %kisi8 $+ – %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) – $+ %kisi9 $+ – %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) – $+ %kisi10 $+ – %mesaj10 }
}
if (%durum == Action) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) * %kisi1 %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) * %kisi2 %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) * %kisi3 %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) * %kisi4 %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) * %kisi5 %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) * %kisi6 %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) * %kisi7 %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) * %kisi8 %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) * %kisi9 %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) * %kisi10 %mesaj10 }
}
}
if ($did == 26) { set %durum Text | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 27) { set %durum Notice | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 28) { set %durum Action | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 37) { set %kisi1 $did(1) | set %kisi2 $did(2) | set %kisi3 $did(3) | set %kisi4 $did(4) | set %kisi5 $did(5) | set %kisi6 $did(6) | set %kisi7 $did(7) | set %kisi8 $did( | set %kisi9 $did(9) | set %kisi10 $did(10) | set %mesaj1 $did(11) | set %mesaj2 $did(12) | set %mesaj3 $did(13) | set %mesaj4 $did(14) | set %mesaj5 $did(15) | set %mesaj6 $did(16) | set %mesaj7 $did(17) | set %mesaj8 $did(18) | set %mesaj9 $did(19) | set %mesaj10 $did(20) | set %kanal $did(23) }
if ($did == 33) { run www.mirchane.com }
if ($did == 34) { run www.mircalem.net }
}
}
on 1:LOAD:{
set %kisi1 -
set %kisi2 -
set %kisi3 -
set %kisi4 -
set %kisi5 -
set %kisi6 -
set %kisi7 -
set %kisi8 -
set %kisi9 -
set %kisi10 -
set %mesaj1 -
set %mesaj2 -
set %mesaj3 -
set %mesaj4 -
set %mesaj5 -
set %mesaj6 -
set %mesaj7 -
set %mesaj8 -
set %mesaj9 -
set %mesaj10 -
set %durum Text
echo -a 4,1Bu Addon 0,1SCouNDReL 4,1Tarafından Hazırlanmıştır
}

Tüm Kanallardan ban Atma hazır kodu
alias tumban {
if $1 == $me || $comchan($1,1) == $null { halt }
set %kanalsayisi $comchan($1,0)
var %x = 1
while (%x <= %kanalsayisi) { if $me isop $comchan($1,%x) { .mode $comchan($1,%x) +b $address($1,2) | .kick $comchan($1,%x) $1 Kanaldan atılma sebebini buraya giriniz. | inc %x } }
}

//kullanımı /tumban nick