IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Like Tree1Beğeni(ler)
  • 1 Post By immortaL
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 11 Ocak 2017, 13:19   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Oto join Oto part


Reklam

Bir Sunucuda bellirlediğiniz kanallara otomatik Join veya Part yapmanızı sağlayan dialog halinde remotedir dialog penceresini açmak için /otojp yaza bilir yada her hangibi bir kanalda sayfanın boş bir alanına sağ tıkladığınız açılacak menünde Join Part Kanalar yazısını göreceksiniz oradandan da aça bilirsiniz


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu status,menubar,channel { - » Join Part Kanallar:/dialog -m otojp otojp - } on *:start:hmake joins | hmake parts | if !$file(j.s) { write -c j.s } | hload joins j.s | if !$file(p.s) { write -c p.s } | hload parts p.s alias otojp if !$dialog(otojp) { dialog -m otojp otojp } | else { dialog -x otojp } dialog otojp { title "Join KanaL ve Oto Part PaneLi" size -1 -1 406 282 option pixels notheme edit "Edit", 1, 20 14 99 20 list 2, 20 37 98 200 button "EKLE", 3, 122 38 65 25 button "SiL", 4, 123 73 65 25 edit "Edit", 5, 209 13 100 20 list 6, 208 36 100 205 button "EKLE", 7, 319 38 65 25 button "SiL", 8, 320 72 65 25 text "Auto Join ve Yasakli KanaLLaR", 9, 100 248 199 17 button "Kapat", 10, 320 244 65 25, ok cancel text "#Join Kanallar", 11, 30 228 199 17 text "#Part Kanallar", 12, 220 228 199 17 } on *:dialog:otojp:*:*:{ if $devent == init { did -ra $dname 1,5 #Kanal yaz. | y $dname p | y $dname j } if $devent == dclick { if $did == 2 { hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j } if $did == 6 { hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p } } if $devent == sclick { if $did == 4 { if !$did($dname,2).seltext { uyari kanal seçiniz listeden. | return } | hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j } if $did == 8 { if !$did($dname,6).seltext { uyari kanal seçiniz listeden. | return } | hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p } if $did == 3 { if !$did($dname,1) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,1) { uyari $me Lütfen #Kanal yazin. | return } hadd -m joins $did($dname,1) bastard | hsave joins j.s | .y $dname j } if $did == 7 { if !$did($dname,5) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,5) { uyari $me Lütfen #Kanal yazin. | return } hadd -m parts $did($dname,5) bastard | hsave parts p.s | .y $dname p } } } alias y { if $2 == j { did -r $1 2 | var %s 1, %f $hget(joins,0).item | while %s <= %f { did -a $1 2 $hget(joins,%s).item | inc %s } } if $2 == p { did -r $1 6 | var %z 1, %w $hget(parts,0).item | while %z <= %w { did -a $1 6 $hget(parts,%z).item | inc %z } } } alias uyari { noop $input($str(_,30) $+ $crlf $+ $crlf $+ $1- $+ $crlf $+ $str(_,30),bwaok,Script Uyari!) } on *:connect:{ var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | ./timergoemon 1 20 close -m | inc %s } var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x } } on me:*:join:#:{ var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | inc %s } var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x } }

Bir Sunucuda bellirlediğiniz kanallara otomatik Join veya Part yapmanızı sağlayan dialog halinde remotedir dialog penceresini açmak için /otojp yaza bilir yada her hangibi bir kanalda sayfanın boş bir alanına sağ tıkladığınız açılacak menünde Join Part Kanalar yazısını göreceksiniz oradandan da aça bilirsiniz


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu status,menubar,channel { - » Join Part Kanallar:/dialog -m otojp otojp - } on *:start:hmake joins | hmake parts | if !$file(j.s) { write -c j.s } | hload joins j.s | if !$file(p.s) { write -c p.s } | hload parts p.s alias otojp if !$dialog(otojp) { dialog -m otojp otojp } | else { dialog -x otojp } dialog otojp { title "Join KanaL ve Oto Part PaneLi" size -1 -1 406 282 option pixels notheme edit "Edit", 1, 20 14 99 20 list 2, 20 37 98 200 button "EKLE", 3, 122 38 65 25 button "SiL", 4, 123 73 65 25 edit "Edit", 5, 209 13 100 20 list 6, 208 36 100 205 button "EKLE", 7, 319 38 65 25 button "SiL", 8, 320 72 65 25 text "Auto Join ve Yasakli KanaLLaR", 9, 100 248 199 17 button "Kapat", 10, 320 244 65 25, ok cancel text "#Join Kanallar", 11, 30 228 199 17 text "#Part Kanallar", 12, 220 228 199 17 } on *:dialog:otojp:*:*:{ if $devent == init { did -ra $dname 1,5 #Kanal yaz. | y $dname p | y $dname j } if $devent == dclick { if $did == 2 { hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j } if $did == 6 { hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p } } if $devent == sclick { if $did == 4 { if !$did($dname,2).seltext { uyari kanal seçiniz listeden. | return } | hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j } if $did == 8 { if !$did($dname,6).seltext { uyari kanal seçiniz listeden. | return } | hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p } if $did == 3 { if !$did($dname,1) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,1) { uyari $me Lütfen #Kanal yazin. | return } hadd -m joins $did($dname,1) bastard | hsave joins j.s | .y $dname j } if $did == 7 { if !$did($dname,5) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,5) { uyari $me Lütfen #Kanal yazin. | return } hadd -m parts $did($dname,5) bastard | hsave parts p.s | .y $dname p } } } alias y { if $2 == j { did -r $1 2 | var %s 1, %f $hget(joins,0).item | while %s <= %f { did -a $1 2 $hget(joins,%s).item | inc %s } } if $2 == p { did -r $1 6 | var %z 1, %w $hget(parts,0).item | while %z <= %w { did -a $1 6 $hget(parts,%z).item | inc %z } } } alias uyari { noop $input($str(_,30) $+ $crlf $+ $crlf $+ $1- $+ $crlf $+ $str(_,30),bwaok,Script Uyari!) } on *:connect:{ var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | ./timergoemon 1 20 close -m | inc %s } var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x } } on me:*:join:#:{ var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | inc %s } var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x } }

TeSTeRe bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
join, oto, part
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık