Miscellany

; SITE CONFIG
menu * {
  &Trader
  .&Site Manager
  ..Add Site:addsite
  ..Delete Site:delsite
  ..-
  ..Enable Site:enablesite
  ..Disable Site:disablesite
  .&Trader Manager
  ..Enable Trader:set %tstatus on 
  ..Disable Trader:set %tstatus off
  ..-
  ..Show Stats:fstats
  .Update IP:gip
  .Say Addline:gaddline
}

alias tlog { 
  if ($1 == TRADES) { 
    write trader/releases.log  ( $+ $2 $+ ) $adate $time - $3-
  } 
  else {  
    write trader/trader.log  ( $+ $1 $+ ) $adate $time - $2-  
  }
}

alias addsite { 
  set %sname $?="Site Name:"
  set %scountry $?="Country:"
  set %sspeed $?="Speed:"
  set %sstatus $?!="Enabled?"
  writeini -n trader/sites.ini %sname Country %scountry
  writeini -n trader/sites.ini %sname Speed %sspeed
  if (%sstatus == $true) {
    writeini -n trader/sites.ini %sname Status Online
  } 
  elseif (%sstatus == $false) {
    writeini -n trader/sites.ini %sname Status Offline
  }
  echo -a Creating Rules Directory for %sname . . .
  mkdir trader/RULES/ $+ %sname
  echo -a Done . . . Output Folder: trader/RULES/ $+ %sname
  tlog CONFIG Added site %sname
}

alias delsite {
  set %sname $?="Site Name:"
  echo -a Cleaning up folders and files . . .
  remini trader/sites.ini %sname
  remove trader/RULES/ $+ %sname $+ /allow.ini
  remove trader/RULES/ $+ %sname $+ /skip.ini
  rmdir trader/RULES/ $+ %sname
  echo -a Done!
  tlog CONFIG Deleted site %sname
}

alias enablesite {
  set %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Online
  tlog CONFIG Enabled site %sname
}

alias disablesite {
  set %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Offline
  tlog CONFIG Disabled site %sname
}

alias fstats {
  while ($exists(%[FRush]Dir $+ RushCfg.xml) == $false) { set %[FRush]Dir $sdir(c:\,Select your FTPRush's folder) }

  var %line = $read(%[FRush]Dir $+ rushcfg.xml,w,*<TSTATS START="*" UP="*" DN="*" FXP="*" />*)
  var %[FtpRSTS]tmpdate = $gettok(%line,2,34)
  var %[FtpRSTS]UP = $gettok(%line,4,34)
  var %[FtpRSTS]DN = $gettok(%line,6,34)
  var %[FtpRSTS]FXP = $gettok(%line,8,34)
  var %[FtpRSTS]date = $ctime($and($calc(%[FtpRSTS]tmpdate /65536),31) $+ $chr(47) $+ $and($calc(%[FtpRSTS]tmpdate /2097152),15) $+ $chr(47) $+ $left($calc(%[FtpRSTS]tmpdate /33554432 +1980),4))
  var %[FtpRSTS]days = $calc(($ctime - %[FtpRSTS]date)/86400)

  say - I have 3Uploaded7 $bytes(%[FtpRSTS]UP,3).suf - 3Downloaded7 $bytes(%[FtpRSTS]DN,3).suf - 3FXPed7 $bytes(%[FtpRSTS]FXP,3).suf - since 3 $asctime(%[FtpRSTS]date,d/mm/yyyy)
  say - Average of 7 $bytes($calc(%[FtpRSTS]UP / %[FtpRSTS]days),3).suf $+ /day 3Uploaded,7 $bytes($calc(%[FtpRSTS]DN / %[FtpRSTS]days),3).suf $+ /day 3Downloaded,7 $bytes($calc(%[FtpRSTS]FXP / %[FtpRSTS]days),3).suf $+ /day 3FXPed for3 %[FtpRSTS]days days. 
  tlog mIRC Outputted FTPRush stats to $chan
}

alias gip {
  set %gip $?="IP - Connected IP -> [ $ip ] $crlf $+ Input Example: 10.15.35.*"
  echo -a Your IP is now: %gip
  tlog CONFIG Updated IP to %gip
}

alias gaddline {
  echo -a site adduser asfafsacszxcwq@ $+ %gip
  echo -a Your IP is: $ip
  tlog CONFIG Outputted addline
}


;TRADER CODE

on *:TEXT:*:*:{
; this part has to be changed (below)
  var %bnick
  if ($nick == %bnick) {
    set %strip $strip($1-)
    set %new $gettok(%strip,,32)
    set %release $gettok(%strip,3,32)
    set %section $gettok(%strip,2,32)
    if (%new == ALLOWED) && (%tstatus = on) {
      tstart %section %release
      tlog TRADES %section %release
    }
  } 
}

alias tcheck {
  var %ctype $1
  var %csite $2
  var %csection $3
  var %crelease $4
  var %ccount 1
  var %cmatch false

  while ($trules(%ctype,%csite,%ccount)) {
    if ($regex($trules(%ctype,%csite,%ccount),(.*)\|(.*)) >= 1 ) {
      if ( $regml(1) == %csection ) || ($regml(1) == *) {
        if ( $regml(2) iswm %crelease) {
          %cmatch = true
          break
        }
      }
    }
    inc %ccount
  }
  echo -a %cmatch
  return %cmatch
}

alias trules {
  return $read(trader\RULES\ $+ $2 $+ \ $+ $1 $+ .txt,$3)
}

alias bid {
  if ($tsettings(bots,$1)) {
  return $tsettings(bots,$1) }
  else { return 0 }
}

alias tsettings {
  return $readini(trader\sites.ini,$1,$2)
}