Cuma , 27 Nisan 2018
Sohbet Giriş
Oto join Oto part
www.mircalem.biz

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.

oto-join-oto-part

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 }
}

Hakkında admin

Cevapla

E-posta adresiniz yayınlanmayacak. Required fields are marked *

*

Terörü Lanetliyoruz