dialog test { 
  title "KaNaL_TaRaMa_IsTaTiKLeR" 
  size -1 -1 250 170 
  option dbu 
  button "[ KaPaT ]", 7, 95 132 42 11, flat ok 
  tab "HosT'Da_aRa", 1, 1 -2 247 131 
  box "", 8, 3 11 243 116, tab 1 
  box "", 5, 6 34 237 90, tab 1 
  box "aRaNaCaK_KeLiMe", 3, 6 14 207 20, tab 1 
  edit "", 2, 9 22 150 10, tab 1 autohs 
  button "iDeNT", 6, 204 23 30 8, tab 1 flat 
  list 9, 8 39 233 83, tab 1 size hsbar vsbar 
  button "HosT", 4, 171 23 30 8, tab 1 flat 
  tab "NickListe'De_aRa", 10 
  box "", 11, 3 11 243 116, tab 10 
  box "", 12, 6 34 237 90, tab 10 
  box "aRaNaCaK_KeLiMe", 13, 6 14 207 20, tab 10 
  edit "", 14, 9 22 150 10, tab 10 autohs 
  button "aRa", 15, 161 23 30 8, tab 10 flat 
  button "TüM_KaNaLLaRDa", 16, 194 23 50 8, tab 10 flat 
  list 17, 8 39 233 83, tab 10 size hsbar vsbar 
  tab "iRcOP'LaR", 18 
  box "", 19, 3 11 243 116, tab 18 
  box "", 20, 6 33 237 91, tab 18 
  box "", 21, 6 15 237 19, tab 18 
  button "", 24, 9 21 231 10, tab 18 flat 
  list 25, 8 38 233 84, tab 18 size hsbar vsbar 
  tab "KaNaL_iSTaTiK", 22 
  list 23, 8 20 233 92, tab 22 size hsbar vsbar 
  box "", 26, 6 15 237 99, tab 22 
  box "", 27, 3 11 243 116, tab 22 
  button "", 29, 6 115 237 10, tab 22 flat 
  tab "cLoNLaR", 30 
  box "", 31, 3 11 243 116, tab 30 
  list 32, 8 38 233 84, tab 30 size hsbar vsbar 
  box "", 33, 6 33 237 91, tab 30 
  box "", 34, 6 15 237 19, tab 30 
  button "", 37, 9 21 231 10, tab 30 flat 
  button "[ GöNDeR ]", 28, 50 132 42 11, flat 
  button "DaHa_FaZLa_KaNaL", 38, 140 132 57 11 
  link "EdiTLeMe Ve TüRKcEyE CeViRi: ZaLiM", 39, 80 150 100 8
} 

dialog ch { 
  title "KaNaL" 
  size -1 -1 68 92 
  option dbu 
  list 2, 2 2 63 74, size vsbar 
  box "", 1, 0 -3 67 82 
  button "[ KaPaT ]", 3, 16 81 37 10, flat ok 
} 

on *:dialog:ch:*:*:{ 
  if ($devent = init) { 
    init_chan 
  } 
  if ($devent == sclick) { 
    if ($did = 2) { 
      if ($did(2).sel) { 
        set %chan $did(2).seltext 
        dialog -x ch ch 
        chanstat 
        ref.chan 
      } 
    } 
  } 
} 

on *:dialog:test:*:*:{ 
  if ($devent == init) { 
    ref.chan 
    chanstat 
  } 
  if ($devent == sclick) { 
    if ($did = 38) { 
      dialog -m ch ch 
    }
    if ($did = 39) {
      /run https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did = 6) { 
      if ($did(2).text) { 
        blubb2 $did(2).text 
      } 
    } 
    if ($did = 4) { 
      if ($did(2).text) { 
        blubb $did(2).text 
      } 
    } 
    if ($did = 7) { 
      scon -r 
      unset %chan 
    } 
    if ($did = 15) { 
      if ($did(14).text) { 
        did -r $dname 17 
        check $did(14).text 
      } 
    } 
    if ($did = 16) { 
      if ($did(14).text) { 
        did -r $dname 17 
        spyall $did(14).text 
      } 
    } 
    if ($did = 24) { 
      ref.chan 
    } 
    if ($did = 29) { 
      did -r $dname 23 
      chanstat 
    } 
    if ($did = 37) { 
      did -r $dname 32 
      all_clones 
    } 
    if ($did = 28) { 
      if ($dialog(test).tab == 1) { 
        post 9 
      } 
      elseif ($dialog(test).tab == 10) { 
        post 17 
      } 
      elseif ($dialog(test).tab == 18) { 
        post 25 
      } 
      elseif ($dialog(test).tab == 22) { 
        post 23 
      } 
      elseif ($dialog(test).tab == 30) { 
        post 32 
      } 
    } 
  } 
} 

alias -l post { 
  if ($1) { 
    var %i = 1 
    while (%i <= $did(test,$1).lines) { 
      if ($did(test,$1,%i).text != $null) { 
        .timer.post $+ %i 1 %i msg $active 10 $+ $did(test,$1,%i).text 
      } 
      inc %i 1 
    } 
  } 
} 

alias -l init_chan { 
  did -r ch 2 
  var %i = 1 
  while (%i <= $chan(0)) { 
    did -a ch 2 $chan(%i) 
    if ($chan(%i) == %chan) { 
    } 
    inc %i 1 
  } 
} 

alias -l ref.chan { 
  set -u10 %who 1 
  if (!%who [ $+ [ %chan ] ]) { 
    set -u60 %who [ $+ [ %chan ] ] 1 
    who %chan 
    did -r test 25 
    did -a test 25 --> %chan KaNaLiNDaKi iRcOP'LaR 
  } 
  did -o test 24 24 %chan KaNaLiNDa iRcOP aRa
  did -o test 37 37 %chan KaNaLiNDa cLoNe aRa 
  did -o test 29 29 %chan KaNaL iSTaTiKLeRi YeNiLe
  dialog -t test KaNaL_TaRaMa_IsTaTiKLeR v2.0 ( $+ %chan $+ / $+ $server $+ ) 
  did -r test 32 
  did -r test 9 
  did -r test 17 
} 

alias -l blubb { 
  if ($1) { 
    did -r test 9 
    var %i = 1, %h = 0 
    while (%i <= $nick(%chan,0)) { 
      if (* $+ $1 $+ * iswm $address($nick(%chan,%i),2)) { 
        did -a test 9 $address($nick(%chan,%i),5) 
        inc %h 1 
      } 
      inc %i 1 
    } 
    if (%h == 0) { 
      did -a test 9 $1 HiCBiR HosT'Da BuLuNMaDi! 
    } 
    did -z test 9 
  } 
} 

alias -l blubb2 { 
  if ($1) { 
    did -r test 9 
    var %i = 1, %h = 0 
    while (%i <= $nick(%chan,0)) { 
      if (*!* $+ $1 $+ *@* iswm $address($nick(%chan,%i),1)) { 
        did -a test 9 $address($nick(%chan,%i),5) 
        inc %h 1 
      } 
      inc %i 1 
    } 
    if (%h == 0) { 
      did -a test 9 $1 HiCBiR iDeNT'De BuLuNMaDi!
    } 
    did -z test 9 
  } 
} 


alias -l all_clones { 
  var %c = 1 
  while (%c <= $nick(%chan,0)) { 
    var %ni = $nick(%chan,%c), %a = $address($nick(%chan,%c),2), %i = 1, %cl2 = 1 
    while (%i <= $nick(%chan,0)) { 
      if (%a == $address($nick(%chan,%i),2)) && (%ni != $nick(%chan,%i)) { 
        var %cl = %cl $nick(%chan,%i) VE
        inc %cl2 1 
      } 
      inc %i 1 
    } 
    if (%cl2 > 1) { 
      did -a test 32 %ni VE $deltok(%cl,$numtok(%cl,32),32) cLoNLaR!
      unset %cl 
      did -z test 32 
    } 
    inc %c 1 
  } 
} 

alias -l check { 
  var %x = 1, %i = 0 
  while (%x <= $calc($nick(%chan,0) + 1)) { 
    if ($wildtok($nick(%chan,%x),* $+ $$1 $+ *,0,0) == 1) { 
      var %user = %user $+ $nick(%chan,%x) $+ $chr(44) 
      inc %i 
    } 
    inc %x 
  } 
  did -a test 17 --> %chan KaNaLi NiCKLiSTeSiNDe $$1 KeLiMeSiNDe $iif(%i == 1,) %i KiSi VaR.
  if (%user != $null) { 
    var %i = $numtok(%user,44), %x = 1 
    while (%x <= %i) { 
      did -a test 17 $chr(149) $gettok(%user,%x,44) 
      inc %x 1 
    } 
    did -a test 17 
  } 
  did -z test 17 
} 

alias -l spyall { 
  var %i = 1, %oldchan = %chan 
  while (%i <= $chan(0)) { 
    set %chan $chan(%i) 
    check $did(14).text 
    inc %i 1 
  } 
  set %chan %oldchan 
} 

raw 352:*:{ 
  if (%who == 1) { 
    if ($chr(42) isin $7) { 
      did -a test 25 $chr(149) $6 
    } 
    haltdef 
  } 
} 

raw 315:*:{ 
  if (%who == 1) { 
    haltdef 
  } 
} 
alias -l chanstat { 
  var %o = 0, %p = 0, %nostat = 0, %op = 0, %hop = 0, %voice = 0, %c = $nick(%chan,0), %i = 1 
  while (%i <= %c) { 
    if ($chr(33) isin $nick(%chan,%i).pnick) { 
      inc %o 1 
    } 
    elseif ($chr(126) isin $nick(%chan,%i).pnick) { 
      inc %o 1 
    } 
    elseif ($chr(42) isin $nick(%chan,%i).pnick) { 
      inc %p 1 
    } 
    elseif ($chr(38) isin $nick(%chan,%i).pnick) { 
      inc %p 1 
    } 
    elseif ($nick(%chan,%i) isop %chan) { 
      inc %op 1 
    } 
    elseif ($nick(%chan,%i) ishop %chan) { 
      inc %hop 1 
    } 
    elseif ($nick(%chan,%i) isvoice %chan) { 
      inc %voice 1 
    } 
    else { 
      inc %nostat 1 
    } 
    inc %i 1 
  } 
  did -r test 23 
  did -a test 23 ToPiC: $strip($chan(%chan).topic) 
  did -a test 23 
  did -a test 23 %chan iSTaTiKLeRi ( $+ %c KiSi VaR SuaN) 
  did -a test 23 --------------------------------------------------- 
  did -a test 23 KaNaL SaHiBi: %o KiSi ( $+ $prozent(%o,%c) $+ ) 
  did -a test 23 sOP: %p KiSi ( $+ $prozent(%p,%c) $+ ) 
  did -a test 23 OP: %op KiSi ( $+ $prozent(%op,%c) $+ ) 
  did -a test 23 HaLF_OP: %hop KiSi ( $+ $prozent(%hop,%c) $+ ) 
  did -a test 23 VoiCLeR: %voice KiSi ( $+ $prozent(%voice,%c) $+ ) 
  did -a test 23 YeTKiSiZLeR: %nostat KiSi ( $+ $prozent(%nostat,%c) $+ ) 
  did -a test 23 --------------------------------------------------- 
  did -a test 23 %chan KaNaLi MoDLaRi : $chan(%chan).mode 
  did -z test 23 
} 
alias -l prozent { 
  if ($$1 <= $$2) { 
    return $+($round($calc($$1 / ($$2 / 100)),1),%) 
  } 
} 
menu channel, {  
  KaNaL_TaRaMa: { 
    set %chan $chan 
    dialog -m test test 
  }  
}