Mirc üzerinden ftpye girmeden oper ekleme

alias opersconfdir return unrealircd/conf/conf
alias ftpip return 88.888.88.88
alias ftpuser return ircweb
alias ftppass return 564563g
alias masternick return AdmiraL nick2 nick3 nick4
alias flagss {
  if $1 == Q { return networkowner }
  elseif $1 == J { return rootadmin }
  elseif $1 == U { return superadmin }
  elseif $1 === e { return teknikadmin }
  elseif $1 === N { return netadmin }
  elseif $1 == a { return services-admin }
  elseif $1 === A { return admin }
  elseif $1 === C { return coadmin }
  elseif $1 === g { return globop }
  elseif $1 === O { return locop }
}
alias userdir return $+($token($mircdir,1,92),\Users\,$token($mircdir,3,92),\)
raw 243:*: { msg %ochn 2Nick:4 $7 2Yetki:4 $11 }
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,operss.conf),get operss.conf operss.conf)
  write oper.ftp quit
  run ftp -s:oper.ftp
}
on *:text:*:#master:{
  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 |Q|J|U|e|N|a|A|C|o|O] yada !oper sil [nick]) şeklinde kullanın. }
      elseif ($2 == ekle) { 
        if !$regex($5,/^(Q|J|U|e|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,operss.conf) oper $3 $chr(123) from $chr(123) userhost *@*; $+($chr(125),;) password $+(",$4,"; flags $flagss($5),;) snomask +ksScfFvGqo ; maxlogins 3 ; class clients; $+($chr(125),;) 
          ;write $+($userdir,operss.conf) oper $3 $chr(123) class opers; $chr(123) mask *@*; $+($chr(125),;) password $+(",$4,"; operclass $flagss($5),;) snomask bcDFfkejvGnNqsSo; maxlogins 1;    $+($chr(125)
          write $+($userdir,operss.conf) oper $3 {	class opers;	mask *@*;	password $+(",$4,";  operclass $flagss($5),;) snomask bcDFfkejvGnNQqsSoAC;	 maxlogins 1; $+($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,operss.conf),w,$+(oper $3 *))
          write $+(,-dl,$readn,) $+($userdir,operss.conf)
          ftp yukle | msg # $qt($3) nickinin operi silinmiştir. | .timerREHASH 1 2 rehash
        }
      }
    }
  }
}