alias 3db {
  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))
  say %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3dv {
  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))
  say %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3dr {
  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))
  say %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}

alias 3dg {
  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))
  say %mytext
  unset %mytext %mytext.txt %mytext.space %conta %lgh
}
alias qmsg {
  var %toplam = $query(0)
  while (%toplam) { msg $query(%toplam) $1- | dec %toplam }
}
alias repair-mdx {
  write -c $manifest <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  write $manifest <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  write $manifest <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="mIRC.mIRC.mIRC" type="win32"/>
  write $manifest <description>Internet Relay Chat Software</description>
  write $manifest </assembly>
}
ON @1:TEXT:*:#: {
  if ( $nick isop $chan ) halt
  if ( $len($strip($1-)) >= 150) {
    if ( $me isop $chan ) {
      uzunkick
    halt }
  }
}
ON @1:NOTICE:*:#: {
  if ( $nick isop $chan ) halt
  if ( $len($strip($1-)) >= 150) {
    if ( $me isop $chan ) {
      uzunkick
    halt }
  }
}
ON @1:ACTION:*:#: {
  if ( $nick isop $chan ) halt
  if ( $len($strip($1-)) >= 150) { 
    if ( $me isop $chan ) {
      uzunkick
    halt }
  }
}
alias remote { if ( $1 = on ) {  } | else { .echo -a 0,2 Script'te Gizli inviter,Trojan vb Kodlar Yoktur. Lutfen Remoteleri Kapatmayiniz  | halt }
}
