;9mm-Parabellum
Alias gvoice {
  if ($1 == begin) { return - }
  var %i = $comchan($active,0)
  var %z = 1
  while (%i) {
    if ($1 == %z) {
      if ($me isop $comchan($active,%i) && $active isreg $comchan($active,%i)) { return $+($comchan($active,%i),$chr(58),mode $comchan($active,%i) +v $active) }
      else return $+($style(2),$chr(32),$comchan($active,%i),$chr(58),mode $comchan($active,%i) +v $active)
    }
    dec %i
    inc %z
  }
  if ($1 == end) { return - }
}
Alias gop {
  if ($1 == begin) { return - }
  var %i = $comchan($active,0)
  var %z = 1
  while (%i) {
    if ($1 == %z) {
      if ($me isop $comchan($active,%i) && $active !isop $comchan($active,%i)) { return $+($comchan($active,%i),$chr(58),mode $comchan($active,%i) +o $active) }
      else return $+($style(2),$chr(32),$comchan($active,%i),$chr(58),mode $comchan($active,%i) +o $active)
    }
    dec %i
    inc %z
  }
  if ($1 == end) { return - }
}
alias takeop {
  if ($1 == begin) { return - }
  var %i = $comchan($active,0)
  var %z = 1
  while (%i) {
    if ($1 == %z) {
      if ($me isop $comchan($active,%i) && $active isop $comchan($active,%i)) { return $+($comchan($active,%i),$chr(58),mode $comchan($active,%i) -o $active) }
      else return $+($style(2),$chr(32),$comchan($active,%i),$chr(58),mode $comchan($active,%i) -o $active)
    }
    dec %i
    inc %z
  }
  if ($1 == end) { return - }
}
alias kb {
  if ($1 == begin) { return - }
  var %i = $comchan($active,0)
  var %z = 1
  while (%i) {
    if ($1 == %z) {
      if ($me isop $comchan($active,%i)) { return $+($comchan($active,%i),$chr(58),bk $comchan($active,%i) $active) }
      else return $+($style(2),$chr(32),$comchan($active,%i),$chr(58),bk)
    }
    dec %i
    inc %z
  }
  if ($1 == end) { return - }
}
alias bk {  ban2 $1 $2 %Bantype2 | kick $1 $2 0,2   $me    }

alias 3dfc {
  set %mytext.txt $1-
  set %lgh $len(%mytext.txt) | set %conta 1
  :next
  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }
  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 6(6) }
  else { set %mytext.space 13,6(0 $mid(%mytext.txt,%conta,1) 1) }
  set %mytext %mytext %mytext.space | .timer444 1 1 /unset %mytext
  inc %conta 1
  goto next
  :fine
  %mytext = $remove(%mytext,$chr(32))
  topic # %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}
alias 3dbc {
  set %mytext.txt $1-
  set %lgh $len(%mytext.txt) | set %conta 1
  :next
  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }
  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 2(2) }
  else { set %mytext.space 12,2(0 $mid(%mytext.txt,%conta,1) 1) }
  set %mytext %mytext %mytext.space | .timer444 1 1 /unset %mytext
  inc %conta 1
  goto next
  :fine
  %mytext = $remove(%mytext,$chr(32))
  topic # %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3dvc {
  set %mytext.txt $1-
  set %lgh $len(%mytext.txt) | set %conta 1
  :next
  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }
  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 3(3) }
  else { set %mytext.space 9,3(0 $mid(%mytext.txt,%conta,1) 1) }
  set %mytext %mytext %mytext.space | .timer444 1 1 /unset %mytext
  inc %conta 1
  goto next
  :fine
  %mytext = $remove(%mytext,$chr(32))
  topic # %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3drc {
  set %mytext.txt $1-
  set %lgh $len(%mytext.txt) | set %conta 1
  :next
  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }
  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 5(5) }
  else { set %mytext.space 4,5(0 $mid(%mytext.txt,%conta,1) 1) }
  set %mytext %mytext %mytext.space | .timer444 1 1 /unset %mytext
  inc %conta 1
  goto next
  :fine
  %mytext = $remove(%mytext,$chr(32))
  topic # %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3dgc {
  set %mytext.txt $1-
  set %lgh $len(%mytext.txt) | set %conta 1
  :next
  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }
  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 14(14) }
  else { set %mytext.space 15,14(0 $mid(%mytext.txt,%conta,1) 1) }
  set %mytext %mytext %mytext.space | .timer444 1 1 /unset %mytext
  inc %conta 1
  goto next
  :fine
  %mytext = $remove(%mytext,$chr(32))
  topic # %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}
raw 353:*:{
  if (%§.names == $3) || (($hget(x_sets,onjoin.shownames)) && ($_v%(jjoin.,$3))) {
    _namesparse $3 $remove($4,:) $5-
    if (!$4) { ce Names $logo No "visible" nicks on $3 | unset %§.names }
  }
  halt
}
on  1:TEXT:*ping*:#: if (%isteyeneping == ON) { ping $nick | notice $nick Tarafimdan Pinglendin %isim }

;XXXXXXXXXXXXXXXXXXXXXX 22 ekim

on ^*:OPEN:?:*:{
  if (%nicktasmasi == ON) { 
    inc %i
    if (%i >= %nicktasmakisi) { ignore -pu60 *!*@* $network | unset %i | close -m | echo -s 0,2 Özelinize cok Fazla Mesaj Geldi, Özeller 1 dk Kapali | halt }
    .timer 1 %nicktasmasure unset %i
  }
}

dialog nicktasma {
  title "OzlemCafe mIRC ozele Nick Tasimasi"
  size -1 -1 230 125
  edit "",24, 47 30 17 20
  text "Saniyede",27, 71 35 85 17
  edit "",25, 120 30 17 20
  text "Farkli nick",26,145 35 50 17
  text "ozel Acarsa ozelleri Kapat ve 1 dk Engelle",28, 7 60 250 17
  button "&Tamam", 200, 15 97 200 20, ok 
}
on 1:dialog:nicktasma:*:*: {
  if ($devent == init) {
    did -a nicktasma 24 %nicktasmasure
    did -a nicktasma 25 %nicktasmakisi
  }
  if ($devent == edit) {
    if ($did == 24) { set %nicktasmasure $did(24) } 
    if ($did == 25) { set %nicktasmakisi $did(25) } 
  }
}

dialog ozeleflood {
  title "OzlemCafe mIRC ozele Flood"
  size -1 -1 230 125
  edit "",24, 57 30 17 20
  text "Saniyede",27, 81 35 85 17
  edit "",25, 130 30 17 20
  text "Satır",26,155 35 50 17
  text "Yazarsa ip Nosunu 2 dk Engelle",28, 35 60 200 17
  button "&Tamam", 200, 15 97 200 20, ok 
}
on 1:dialog:ozeleflood:*:*: {
  if ($devent == init) {
    did -a ozeleflood 24 %pfl.time
    did -a ozeleflood 25 %pfl.lines
  }
  if ($devent == edit) {
    if ($did == 24) { set %pfl.time $did(24) } 
    if ($did == 25) { set %pfl.lines $did(25) } 
  }
}
