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, 14 248 199 17
  button "Kapat", 10, 320 244 65 25, ok cancel
}
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 }
}