bu kod ile Kanallara Otomatik giriş yapabilirsiniz.
kod:
dialog mmkanalar {
title Geveze.net 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 Geveze kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbete 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.geveze.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
}
}
}
kod:
dialog mmkanalar {
title Geveze.net 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 Geveze kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbete 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.geveze.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
}
}
}