Kanallara Otomatik giriş
mirc Kanallara Otomatik giriş hazır kodu
dialog mmkanalar {
title “mIRCHane Kanallar”
size -1 -1 179 215
option dbu
text ” Global Kanalar”, 1, 7 26 45 10
check “#Str_chat”, 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 “#str_dostluk”, 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 ” mIRCHane 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.mirchane.com
.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
}
}
}