Hazır Kod FTP ile OPER/Ekleme

alias opersconfdir return Unreal3.2.10.7
alias ftpip return 77.83.200.15
alias ftpuser return ircqr
alias ftppass return z1xc32z1vc5
alias masternick return Zadrich
alias flagss {
  if $1 == N { return OoaAreDRhwgcLkKbZtBnGNCzW^Hv }
  elseif $1 === a { return OaorehwgcLkKbZtBnGzW^Hv }
  elseif $1 === A { return OAorehwgcLkKbZtBnGzW^Hv }
  elseif $1 == C { return OorehwgcLkKbZtBnGCzW^Hv }
  elseif $1 === o { return OorewgcLkKbZtBnGzW^Hv }
  elseif $1 === O { return OrewgcLkKbZtBnGzW^Hv }
}
alias userdir return $+($token($mircdir,1,92),\Users\,$token($mircdir,3,92),\)
raw 243:*: { msg %ochn 2Nick:4 $5 2Yetki:4 $6 }
alias ftp {
  .remove $shortfn($mircdiroper.ftp)
  write oper.ftp close $ftpip
  write oper.ftp open $ftpip
  write oper.ftp $ftpuser
  write oper.ftp $ftppass
  write oper.ftp cd $opersconfdir
  write oper.ftp $iif($1 == yukle,send $+($userdir,opers.conf),get opers.conf opers.conf)
  write oper.ftp quit
  run ftp -s:oper.ftp
}
on *:text:*:#: {
  if $regex($1,/^[.!]oper$/Si) {
    if !$istok($masternick,$nick,32) { msg # $qt($nick) Bu komutu kullanmaya yetkili değilsiniz. }
    elseif ($nick !isreg $chan) { msg # $qt($nick) Bu komutu kullanmak için nick şifrenizi girmelisiniz. }
    else {
      if !$regex($2,/^(ekle|sil|list|setpass|setflag)$/Si) { msg # $qt($nick) Lütfen $qt(!oper ekle [nick pass N|a|A|C|o|O] yada !oper sil [nick]) şeklinde kullanın. }
      elseif ($2 == ekle) {
        if !$regex($5,/^(n|a|c|o)$/Si) { msg # $qt($nick) Lütfen $qt(!oper ekle [nick pass N|a|A|C|o|O]) şeklinde kullanın. }
        else {
          ftp indir
          write $+($userdir,opers.conf) oper $3 $chr(123) from $chr(123) userhost *@*; $+($chr(125),;) password $+(",$4,"; flags $flagss($5),;) snomask +ksScfFvGqo ; maxlogins 3 ; class clients; $+($chr(125),;)
          ftp yukle | msg # $qt($3) nickine $qt($5) flagı ile oper eklenmiştir. şifresi: $qt($4) | .timerREHASH 1 2 rehash
        }
      }
      elseif ($2 == list) { stats o | set -u5 %ochn # }
      elseif ($2 == sil) {
        if (!$3) { msg # $qt($nick) Lütfen $qt(!oper sil [nick]) şeklinde kullanın. }
        else {
          ftp indir
          noop $read($+($userdir,opers.conf),w,$+(oper $3 *))
          write $+(,-dl,$readn,) $+($userdir,opers.conf)
          ftp yukle | msg # $qt($3) nickinin operi silinmiştir. | .timerREHASH 1 2 rehash
        }
      }
    }
  }
}