| Goemon | 29 Haziran 2015 20:26 |
Kanal Join ve Part Kodu
Kanal Join ve Part Kodu Tarafımca Düzenlenmiştir Güle Güle Kullanın. Kod:
on me:*:join:#:$iif($read(kanalpart.txt,w,$chan),leave #)
menu status,channel {
Join&Part KanaL Menüsü:joinpart
}
alias joinpart { if $dialog(joinpart) { !echo -a 10Join&Part KanaL Menüsü 2Zaten 3AÇIK! } | else { !dialog -m joinpart joinpart } }
dialog joinpart {
title "Join // Part Kanal Menüsü"
size -1 -1 163 126
option dbu
box "Global KanaL", 1, 3 1 78 122
list 2, 7 25 71 95, size
edit "", 3, 7 11 42 10
button "Ekle", 4, 51 11 26 10
box "Yasaklı KanaL", 5, 83 1 78 122
edit "", 6, 87 11 42 10
button "Ekle", 7, 131 11 26 10
list 8, 87 25 71 95, size
}
on *:dialog:joinpart:init:*: {
loadbuf -o $dname 2 kanaljoin.txt
loadbuf -o $dname 8 kanalpart.txt
}
on *:dialog:joinpart:sclick:4: {
var %e = $did(3)
if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt }
else { $iif($read(kanaljoin.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanaljoin.txt %e) | did -a $dname 2 %e | did -r $dname 3 }
}
on *:dialog:joinpart:dclick:2: {
var %sigo $did(2).seltext
write -ds $+ %sigo kanaljoin.txt
yen1ile_
}
alias yen1ile_ { did -r joinpart 2 | loadbuf -o joinpart 2 kanaljoin.txt }
on *:dialog:joinpart:sclick:7: {
var %e = $did(6)
if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt }
else { $iif($read(kanalpart.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanalpart.txt %e) | did -a $dname 8 %e | did -r $dname 6 }
}
on *:dialog:joinpart:dclick:8: {
var %sigo $did(8).seltext
write -ds $+ %sigo kanalpart.txt
ye2nile_
}
alias ye2nile_ { did -r joinpart 8 | loadbuf -o joinpart 8 kanalpart.txt }
on 1:connect:{
var %d = 1 | while %d <= $lines(kanaljoin.txt) {
/sajoin $read(kanaljoin.txt,%d) | mode $read(kanaljoin.txt,%d) +o $me | inc %d
}
}
|
