IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - mIRC Scripting Hazır Kodlar

Bizim mekan Reklam alanı

Like Tree1Beğeni(ler)
  • 1 Post By immortaL
Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 11 Ocak 2017, 13:19   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post Oto join Oto part

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:
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.





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
join, oto, part

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:14.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.