/ScriptServ

; Ren-Ren's Fileserver v1.02
; Copyright© 2001-2003 by Adrian Au. All rights reserved.
; http://adrian.saxtus.gr
; http://www.geocities.com/renx2
; renx2@yahoo.com
on 1:load:{
  if ($script(rfs-system.mrc) != $null) || ($script(rfs-dialog.mrc) != $null) || ($script(rfs-fserve.mrc) != $null) || ($script(rfs-events.mrc) != $null) || ($script(rfs-dmain.mrc) != $null) { echo 4 -s Please remove previous versions of RFS before installing. You may need to unload manually (all rfs-*.mrc files) | halt }
  if ($file( [ [ $scriptdir ] $+ ] rfs-license.txt) == $null) { echo 4 -s rfs-license.txt file must be in the RFS directory ( $+ $scriptdir $+ )! | set -u3 %rfsabort 1 | .timer 1 1 .unload -rs rfs-init.mrc | halt }
  if ($dialog(rfsLicense,rfslicense,-2) != I agree) { .timer 1 1 .unload -rs rfs-init.mrc | halt }
  if ($version < 5.91) echo 4 -s Warning! RFS works best on mIRC v5.91 or higher. You are currently using mIRC v $+ $version $+ . RFS may not work correctly or may not run at all.
  hfree -w rfs*
  .load -rs " $+ $scriptdir $+ rfs-sys.mrc $+ "
  if (%rfs-dir == $null) %rfs-dir = $rfs-def(dir)
  if (%rfs-sound1 == $null) %rfs-sound1 = $rfs-def(sound1)
  if (%rfs-sound2 == $null) %rfs-sound2 = $rfs-def(sound2)
  .load -rs " $+ $scriptdir $+ rfs-dlg.mrc"
  .load -rs " $+ $scriptdir $+ rfs-evnt.mrc"
  .load -rs " $+ $scriptdir $+ rfs-fsrv.mrc"
  .load -rs " $+ $scriptdir $+ rfs-dmn.mrc"
  if ($exists($rfs-def(ini)) != $true) || ($ini($rfs-def(ini),Network,0) < 1) || ($ini($rfs-def(ini),Network,0) == $null) writeini -n $rfs-def(ini) Network irc.example.net DALnet
  rfs-alert 0 Welcome to RFS by Adrian Au. Press Shift-F12 to open in the future. If you find RFS useful, please consider making a donation at the page. Thanks! $rfs-def(page)
  if ($network == $null) && ($server != $null) rfs-setnetwork
  .timer 1 1 rfs
  .timer 1 1 dialog -ma RFSOption $+ $rfs-network rfsoption
  .unload -rs rfs-init.mrc
}
on 1:dialog:rfsLicense:init:0:{
  var %~rfstmp = 1
  :A
  var %~rfstmp2 = $read -l $+ %~rfstmp " $+ [ $scriptdir $+ ] rfs-license.txt"
  if (%~rfstmp2 != $null) {
    did -a rfsLicense 1 %~rfstmp2 $crlf
    inc %~rfstmp 1
    goto A
  }
  did -a rfsLicense 1 $crlf By clicking "I agree", you are agreeing to the terms of this agreement.
}
dialog rfslicense {
  title rfs License
  size -1 -1 200 110
  option dbu
  edit "",1,5 5 195 90,read,multi,vsbar
  button "I agree",11,25 98 60 10,result,ok
  button "I do not agree",12,120 98 60 10,cancel
}
; End of script