#### FTP BİLGİLERİ ########
alias _server return Sunucu Adi
alias _username return KuLLanici Adi
alias _pass return ParoLa
#######################
alias sistem {
  .remove settings.txt
  var %random $r(1,9) $+ $r(A,Z) $+ $r(1,9) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(A,Z)
  as client z-default set password %random
  msg #bilgi Şifre degişdirildi Şifre;[ %random ]
  write settings.txt [Folders]
  write settings.txt Photo Folder=photos
  write settings.txt Skin Folder=skins
  write settings.txt Sound Folder=sounds
  write settings.txt $chr(32)
  write settings.txt [Protection]
  write settings.txt ircPass=decode: $+ %random
  write settings.txt ircPort=Portunuz
  write settings.txt ignorewords=Bilgi
  write settings.txt ident=identiniz
  write settings.txt fullname=FuLLnameniz
  write settings.txt quitMSg=esChat
  write settings.txt portSubDomain=www
  write settings.txt autoIgnore=Off
  write settings.txt repeatMsg=Off
  write settings.txt $chr(32)
  write settings.txt [Commands]
  write settings.txt Pong=PONG
  write settings.txt User=USER
  write settings.txt Privmsg=PRIVMSG
  write settings.txt Join=JOIN
  write settings.txt NickPassword=Off
  write settings.txt $chr(32)
  write settings.txt [JavaScripts]
  write settings.txt f1=nudge
  write settings.txt $chr(32)
  write settings.txt [Allowed Domains]
  write settings.txt $chr(32)
  write settings.txt [Blocked Domains]
  write settings.txt www.uyesiz.org
  write settings.txt uyesiz.org
  write settings.txt $chr(32)
  write settings.txt [AutoJoin Domains]
  .remove $shortfn($mircdirhelper.ftp)
  write helper.ftp close $_server
  write helper.ftp open $_server
  write helper.ftp $_username
  write helper.ftp $_pass
  write helper.ftp cd public_html/Java
  write helper.ftp send $mircdir $+ settings.txt
  write helper.ftp quit
  run ftp -s:helper.ftp
}

#### FTP BİLGİLERİ ########
alias _server return Sunucu Adi
alias _username return KuLLanici Adi
alias _pass return ParoLa
#######################
alias sistem {
  .remove settings.txt
  var %rn $regsubex($upper($left($md5($ticks),24)),/(.)/g,$iif(5 \\ \n,\t,-))
  var %y write settings.txt 
  as client z-default set password %rn
  msg #bilgi Şifre degişdirildi Şifre;[ %rn ]
  %y [Folders]
  %y Photo Folder=photos
  %y Skin Folder=skins
  %y Sound Folder=sounds
  %y $chr(32)
  %y [Protection]
  %y ircPass=decode: $+ %rn
  %y ircPort=Portunuz
  %y ignorewords=Bilgi
  %y ident=identiniz
  %y fullname=FuLLnameniz
  %y quitMSg=esChat
  %y portSubDomain=www
  %y autoIgnore=Off
  %y repeatMsg=Off
  %y [Commands]
  %y Pong=PONG
  %y User=USER
  %y Privmsg=PRIVMSG
  %y Join=JOIN
  %y NickPassword=Off
  %y [JavaScripts]
  %y f1=nudge
  %y [Allowed Domains]
  %y [Blocked Domains]
  %y www.uyesiz.org
  %y uyesiz.org
  %y [AutoJoin Domains]
  .remove $shortfn($mircdirhelper.ftp)
  write helper.ftp close $_server
  write helper.ftp open $_server
  write helper.ftp $_username
  write helper.ftp $_pass
  write helper.ftp cd public_html/Java
  write helper.ftp send $mircdir $+ settings.txt
  write helper.ftp quit
  run ftp -s:helper.ftp
}