Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Kanalda Otomatik Cycle
Kod: Kodu kopyalamak için üzerine çift tıklayın! dialog AutoJoin {
title "Otomatik Giris"
size -1 -1 263 440
box "Kanal Listesi",2, 5 60 253 280
box " Otomatik [Auto Join] Giris ",3, 5 5 253 50
edit "", 4, 31 80 200 22, autohs
edit "", 7, 31 105 200 22, autohs
edit "", 8, 31 130 200 22, autohs
edit "", 9, 31 155 200 22, autohs
edit "", 10, 31 180 200 22, autohs
edit "", 11, 31 205 200 22, autohs
edit "", 12, 31 230 200 22, autohs
edit "", 13, 31 255 200 22, autohs
edit "", 14, 31 280 200 22, autohs
edit "", 15, 31 305 200 22, autohs
text " Kanal adlarını yazınız (örnek : #CetirDek)", 6,12 25 250 20
text "1.", 16,13 82 15 20
text "2.", 17,13 107 15 20
text "3.", 18,13 132 15 20
text "4.", 19,13 157 15 20
text "5.", 20,13 182 15 20
text "6.", 21,13 207 15 20
text "7.", 22,13 232 15 20
text "8.", 23,13 257 15 20
text "9.", 24,13 282 15 20
text "10.", 25,13 307 15 20
check "Listedeki Kanala Baglandıgımda Otomatik Gir",26, 13 345 400 20,tab
box "Bilgiler",210, 5 375 254 60
text "Sunucuya Baglanınca Otomatık Giris Sistemi", 211,10 388 250 20
text "Girişler join Olarak Tanımlanmıstır ", 212,10 402 250 20
text "CetirDek", 213,10 415 250 20
}
on 1:dialog:autojoin:sclick:*:{
if ($did == 26) {
if ($did(26).state == 1) { .enable #otogiris }
if ($did(26).state == 0) { .disable #otogiris }
}
}
alias autojoin { dialog -m autojoin autojoin }
on 1:DIALOG:autojoin:*:*: {
if ($devent == init) {
did -a autojoin 4 %ajchan1
did -a autojoin 7 %ajchan2
did -a autojoin 8 %ajchan3
did -a autojoin 9 %ajchan4
did -a autojoin 10 %ajchan5
did -a autojoin 11 %ajchan6
did -a autojoin 12 %ajchan7
did -a autojoin 13 %ajchan8
did -a autojoin 14 %ajchan9
did -a autojoin 15 %ajchan10
}
if ($devent == edit) {
if ($did == 4) { set %ajchan1 $did(4) }
if ($did == 7) { set %ajchan2 $did(7) }
if ($did == 8) { set %ajchan3 $did(8) }
if ($did == 9) { set %ajchan4 $did(9) }
if ($did == 10) { set %ajchan5 $did(10) }
if ($did == 11) { set %ajchan6 $did(11) }
if ($did == 12) { set %ajchan7 $did(12) }
if ($did == 13) { set %ajchan8 $did(13) }
if ($did == 14) { set %ajchan9 $did(14) }
if ($did == 15) { set %ajchan10 $did(15) }
}
}
#otogiris off
on *:connect:{
.join %ajchan1 | /join %ajchan2 | /join %ajchan3 | /join %ajchan4 | /join %ajchan5 | /join %ajchan6 | /join %ajchan7 | /join %ajchan8 | /join %ajchan9 | /sajoin %ajchan10
.echo -s 0,4----------------[ Ajoin listesine eklediginiz kanallara girildi.. ]----------------
}
#otogiris end Otopart Kod: Kodu kopyalamak için üzerine çift tıklayın! dialog Autopart {
title "Otomatik Part"
size -1 -1 263 440
box "Kanal Listesi",2, 5 60 253 280
box " Otomatik [Auto Part] Çıkış ",3, 5 5 253 50
edit "", 4, 31 80 200 22, autohs
edit "", 7, 31 105 200 22, autohs
edit "", 8, 31 130 200 22, autohs
edit "", 9, 31 155 200 22, autohs
edit "", 10, 31 180 200 22, autohs
edit "", 11, 31 205 200 22, autohs
edit "", 12, 31 230 200 22, autohs
edit "", 13, 31 255 200 22, autohs
edit "", 14, 31 280 200 22, autohs
edit "", 15, 31 305 200 22, autohs
text " Kanal adlarını yazınız (örnek : #Cetirdek)", 6,12 25 250 20
text "1.", 16,13 82 15 20
text "2.", 17,13 107 15 20
text "3.", 18,13 132 15 20
text "4.", 19,13 157 15 20
text "5.", 20,13 182 15 20
text "6.", 21,13 207 15 20
text "7.", 22,13 232 15 20
text "8.", 23,13 257 15 20
text "9.", 24,13 282 15 20
text "10.", 25,13 307 15 20
check "Listedeki Kanala Baglandıgımda Otomatik Çık",26, 13 345 400 20,tab
box "Bilgiler",210, 5 375 254 60
text "Sunucuya Baglanınca Otomatık Part Sistemi", 211,10 388 250 20
text "Çıkışlar Part Olarak Tanımlanmıstır ", 212,10 402 250 20
text "CetirDek", 213,10 415 250 20
}
on *:dialog:Autopart:*:*:{
dll dll/mdx.dll SetMircVersion $version | dll dll/mdx.dll MarkDialog $dname
dll dll/mdx.dll SetFont 2,3,4,7,8,9,10,11,12,13,14,15,6,16,17,18,19,20,21,22,23,24,25,26,210,211,212,213, 12 700 Tahoma
dll dll/mdx.dll SetFont +b 3,26,27 700 Tahoma
}
on 1:dialog:autopart:sclick:*:{
if ($did == 26) {
if ($did(26).state == 1) { .enable #otopart }
if ($did(26).state == 0) { .disable #otopart }
}
}
alias autopart { dialog -m autopart autopart }
on 1:DIALOG:autopart:*:*: {
if ($devent == init) {
did -a autopart 4 %ajchan1
did -a autopart 7 %ajchan2
did -a autopart 8 %ajchan3
did -a autopart 9 %ajchan4
did -a autopart 10 %ajchan5
did -a autopart 11 %ajchan6
did -a autopart 12 %ajchan7
did -a autopart 13 %ajchan8
did -a autopart 14 %ajchan9
did -a autopart 15 %ajchan10
}
if ($devent == edit) {
if ($did == 4) { set %ajchan1 $did(4) }
if ($did == 7) { set %ajchan2 $did(7) }
if ($did == 8) { set %ajchan3 $did(8) }
if ($did == 9) { set %ajchan4 $did(9) }
if ($did == 10) { set %ajchan5 $did(10) }
if ($did == 11) { set %ajchan6 $did(11) }
if ($did == 12) { set %ajchan7 $did(12) }
if ($did == 13) { set %ajchan8 $did(13) }
if ($did == 14) { set %ajchan9 $did(14) }
if ($did == 15) { set %ajchan10 $did(15) }
}
}
#otopart off
on *:connect:{
.part %ajchan1 | /part %ajchan2 | /part %ajchan3 | /part %ajchan4 | /part %ajchan5 | /part %ajchan6 | /part %ajchan7 | /part %ajchan8 | /part %ajchan9 | /part %ajchan10
.echo -s 0,4----------------[ Otopart listesine eklediginiz kanallardan Çıkıldı.. ]----------------
}
#otopart end 2 side aynı sadece birini part birini join olarak değiştirdim.
Konu ZenqerDenq tarafından (15 Ağustos 2019 Saat 11:38 ) değiştirilmiştir.
|