Miscellany

public text v1 · immutable
#228691
·published 2006-10-30 05:48 UTC
on *:LOAD:{
  writeini -n main.conf Version Trader 1.8
}
on *:START:{
  window -z @Trade
}
menu nicklist {
  Set Owner:/writeini -n main.conf Config Owner $$1 | echo 10[Owner: 15 $+ $$1 $+ 10] | aline -ap @Status 10[Owner: 15 $+ $$1 $+ 10]
}
menu menubar {
  AutoTrader
  .Add Section:set %ADDsecname $$?="Section Name?" | writeini -n sections.conf NumSecs NumSecs $calc($readini(sections.conf,NumSecs,NumSecs) + 1) | writeini -n sections.conf Sections Section $+ $readini(sections.conf,NumSecs,NumSecs) %ADDsecname | aline -ap @Trade 10[15Section Added10][Name: 15 $+ %ADDsecname $+ 10] | echo 10[15Section Added.. See @Trade window for details10] | unset %ADDsecname
  .Add Site:addsite
  .FTP Client
  ..UltraFXP:writeini -n main.conf Config FTPClient UltraFXP | echo 10[15Client Updated.. Please check Trade window for more information10] | aline -ap @Trade 10[15Client Updated10][Client: 15UltraFXP10]
  ..FTPRush:writeini -n main.conf Config FTPClient FTPRush | echo 10[15Client Updated.. Please check Trade window for more information10] | aline -ap @Trade 10[15Client Updated10][Client: 15FTPRush10]
}
on ^*:TEXT:*in*:*:{
  if ($nick == $readini(nicks.conf,$nick,Nickname)) {
    set %GETname $readini(nicks.conf,$nick,Sitename)
    set %GETnum $readini(nicks.conf,$nick,Sitenum)
    if ($readini(sites.conf,Site $+ %GETnum,SRB) == Source) { set %source $readini(sites.conf,Site $+ %GETnum,Name) }
    unset %GETname
    unset %GETnum
    if (DN isin $strip($2)) { halt }
    if (UP isin $strip($2)) { halt }
    if (passed isin $strip($1)) { halt }
    if (failed isin $strip($1)) { halt }
    if (invite isin $strip($1)) { halt }
    if (pre isin $strip($1)) { halt }
    if ($strip($1) == MONTH-RANK) { halt }
    if ($strip($1) == iD3) { halt }
    if ($strip($1) == NFO) { halt }
    if ($strip($1) == WIPE) { halt }
    if ($strip($1) == DELDIR) { halt }
    if ($strip($1) == RACE) { set %rls $strip($9) }
    else { set %rls $strip($5) }
    set %sitenum 1
    set %SECnum 1
    while (%SECnum <= $readini(sections.conf,NumSecs,NumSecs)) {
      if ($readini(sections.conf,Sections,Section $+ %SECnum) isin $strip($3)) {
        while (%sitenum <= $readini(sites.conf,NumSites,NumSites)) {
          if ($readini(sites.conf,Site $+ %sitenum,Name) == %source) { inc %sitenum 1 }
          if ($readini(sites.conf,Site $+ %sitenum,R $+ $readini(sections.conf,Sections,Section $+ %SECnum)) == yes) {
            set %sites %sitelist
            if (%source isin %sitelist) { set %sitelist %sites $+ ; $+ $readini(sites.conf,Site $+ %sitenum,Name) }
            else { set %sitelist %source $+ ; $+ $readini(sites.conf,Site $+ %sitenum,Name) }
            if ($readini(main.conf,Config,FTPClient) == UltraFXP) { tradeUltra %source $readini(sites.conf,Site $+ %sitenum,Name) %rls $readini(sections.conf,Sections,Section $+ %SECnum) $calc($ctime - $readini(rls.list,PRE,%rls)) $strip($1) }
            if ($readini(main.conf,Config,FTPClient) == FTPRush) { tradeRush %sitelist $readini(sections.conf,Sections,Section $+ %SECnum) %rls }
            inc %sitenum 1
          }
          else { inc %sitenum 1 }
        }
      }
      inc %SECnum 1
    }
    ;unset %sitenum
    ;unset %SECnum
    ;unset %source
    unset %sitelist
    unset %sites
  }
}
on *:TEXT:.*:*:{
  if ($readini(main.conf,Config,Owner) == $nick) || ($readini(users.conf,$nick,Nick) == $nick) {
    if ($1 == .site) {
      if ($2 == add) {
        msg # 10[15Initiating AddSite Sequence10]
        set %SECknow 1
        set %addSite 1
        set %addnick $nick
        writeini -n sites.conf NumSites NumSites $calc($readini(sites.conf,NumSites,NumSites) + 1)
        msg # 10[Question 1: 15What is the sites Name?10]
        halt
      }
      if ($2 == mod) {
        if ($4 == section) {
          if ($6 == allow) {
            if ($readini(sites.conf,$3,S0DAY) != $null) { writeini -n sites.conf $3 S $+ $5 YES }
            if ($readini(sites.conf,$3,R0DAY) != $null) { writeini -n sites.conf $3 R $+ $5 YES }
            msg # 10[15Modded Sucessfully10]
          }
        }
      }
    }
    if ($1 == .section) {
      if ($2 == add) {
        if ($3 == $null) { msg # 10[Message: 15ERROR10][Comment: 15.section add <SECTION NAME>10] }
        else {
          writeini -n sections.conf NumSecs NumSecs $calc($readini(sections.conf,NumSecs,NumSecs) + 1)
          writeini -n sections.conf Sections Section $+ $readini(sections.conf,NumSecs,NumSecs) $3
          msg # 10[Added Section:15 $3 $+ 10]
        }
      }
      else { halt }
    }
    if (%addSite == 1) {
      if ($nick == %addnick) {
        writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) Name $1
        set %STEname $1
        set %addSite 2
        msg # 10[Question 2: 15What is the sites Pretime? (in mins)10]
        halt
      }
    }
    if (%addSite == 2) {
      if ($nick == %addnick) {
        writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) PTime $calc($1 * 60)
        set %addSite 3
        msg # 10[Question 3: 15Sites Botnick?10]
        halt
      }
    }
    if (%addSite == 3) {
      if ($nick == %addnick) {
        writeini -n nicks.conf $1 Nickname $1
        writeini -n nicks.conf $1 Sitename %STEname
        writeini -n nicks.conf $1 Sitenum $readini(sites.conf,NumSites,NumSites)
        set %addSite 4
        msg # 10[Question 3: 15Is the site a Source site, Race site, or Both?10]
        halt
      }
    }
    if (%addSite == 4) {
      if ($nick == %addnick) {
        if ($1 == Source) {
          writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Source
          set %SRB S
          msg # 10[Question 4: 15Is this site a source for $readini(sections.conf,Sections,Section $+ %SECknow) $+ 10]
          set %addSite 5
          halt
        }
        if ($1 == Race) {
          writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Race
          msg # 10[Question 4: 15Are you racing $readini(sections.conf,Sections,Section $+ %SECknow) on this site?10]
          set %addSite 5
          set %SRB R
          halt
        }
        if ($1 == Both) {
          writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Both
          msg # 10[Question 4: 15Is this site a source for $readini(sections.conf,Sections,Section $+ %SECknow) $+ 10]
          set %addSite 5
          set %SRB B
          halt
        }
        else {
          msg # 10[Message: 15ERROR10][Comment: 15Reponce is Source, Race, or Both10]
          halt
        }
      }
    }
    if (%addSite == 5) {
      if ($nick == %addnick) {
        while (%SECknow <= $readini(sections.conf,NumSecs,NumSecs)) {
          if (%SRB == B) {
            writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) S $+ $readini(sections.conf,Sections,Section $+ %SECknow) $1
            writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) R $+ $readini(sections.conf,Sections,Section $+ %SECknow) $1
            inc %SECknow 1
            if (%SECknow => $readini(sections.conf,NumSecs,NumSecs)) {
              msg # 10[Site Added, Have a nice day10]
              unset %addSite
              unset %SRB
              unset %SECknow
              halt
            }
            else {
              msg # 10[Question 4: 15Is this site a source/race destination for $readini(sections.conf,Sections,Section $+ %SECknow) $+ 10]
              halt
            }
          }
          else {
            writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) %SRB $+ $readini(sections.conf,Sections,Section $+ %SECknow) $1
            inc %SECknow 1
            if (%SECknow > $readini(sections.conf,NumSecs,NumSecs)) {
              msg # 10[Site Added, Have a nice day10]
              unset %addSite
              unset %SRB
              unset %SECknow
              unset %STEname
              unset %addnick
              halt
            }
            else {
              msg # 10[Question 4: 15Is this site a source for $readini(sections.conf,Sections,Section $+ %SECknow)10]
              halt
            }
          }
        }
      }
    }
    if ($1 == .user) {
      if ($2 == add) {
        writeini -n users.conf $3 Nick $3
        writeini -n users.conf $3 AllowALL yes
      }
    }
    if ($1 == .presend) {
      if ($2 == enable) {
        writeini -n main.conf Config PreSend yes
        msg # 10[PreSend: 15ENABLED10]
      }
      if ($2 == disable) {
        writeini -n main.conf Config PreSend no
        msg # 10[PreSend: 15DISABLED10]
      }
    }
  }
}
on *:TEXT:*PRE*:*:{
  if ($readini(nicks.conf,$nick,Prebot) == yes) {
    writeini -n rls.list PRE $strip($5) $ctime
  }
}
alias tradeRush {
  msg #Oxyg3n $1-
  dll rushmirc.dll RushScript RushApp.FTP.RemoveQueue('','','',RS_FAIL);
  dll rushmirc.dll RushScript RushApp.FTP.Transfer(0,'','','',' $+ $1 $+ ',' $+ $2 $+ ',' $+ $3 $+ ','','','','','','([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)',500,0,0,0,0,0,0);
  dll Rushmirc.dll RushScript RushApp.FTP.Transfer(0, '', '', '', 'AD;FC', 'MP3', ' $+ $strip($5) $+ ', 0, '', '', '', '', '([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)', 999, 0, 0, RS_SORTDATE or RS_APPEND or RS_LOGOUT, 0, 0, 0);
  aline -ap @Trade [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Site Chain: 15 $+ $1 $+ 10][Cat: 15 $+ $2 $+ 10][Release: 15 $+ $3 $+ 10]
  if ($readini(main.conf,Config,Channel) != None) { msg $readini(main.conf,Config,Channel) [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Site Chain: 15 $+ $1 $+ 10][Cat: 15 $+ $2 $+ 10][Release: 15 $+ $3 $+ 10] }
}
alias tradeUltra {
  if ($6 == NEW) {
    if ($readini(main.conf,Config,EnablePreSend) == yes) {
      if (Sample isin $3) { halt }
      if (Subs isin $3) { halt }
      if ($5 <= $readini(sites.conf,$2,PTime)) {
        dll ufxpmirc.dll ufscript UF_FXPDIR(' $+ $1 $+ ',' $+ $4 $+ ',' $+ $2 $+ ',' $+ $4 $+ ',' $+ $strip($3) $+ ',-1)
        aline -ap @Trade [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10][Pred: 15 $+ $duration($5) ago10]
        if ($readini(main.conf,Config,Channel) != None) { msg $readini(main.conf,Config,Channel) [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10][Pred: 15 $+ $duration($5) ago10] }
      }
      else {
        writeini -n dontsend.lst $2 $3 DONTSEND
        aline -ap @Trade [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15None10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10][Reason: 15Out of site Pretime10][Pred: 15 $+ $duration($5) ago10]
        if ($readini(main.conf,Config,Channel) != None) { msg $readini(main.conf,Config,Channel) [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15None10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10][Reason: 15Out of site Pretime10][Pred: 15 $+ $duration($5) ago10] }
      }
    }
    else {
      if ($readini(dontsend.lst,$2,$3) == DONTSEND) { halt }
      else {
        dll ufxpmirc.dll ufscript UF_FXPDIR(' $+ $1 $+ ',' $+ $4 $+ ',' $+ $2 $+ ',' $+ $4 $+ ',' $+ $strip($3) $+ ',-1)
        aline -ap @Trade [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10]
        if ($readini(main.conf,Config,Channel) != None) { msg $readini(main.conf,Config,Channel) [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10] }
      }
    }
  }
  else {
    dll ufxpmirc.dll ufscript UF_FXPDIR(' $+ $1 $+ ',' $+ $4 $+ ',' $+ $2 $+ ',' $+ $4 $+ ',' $+ $strip($3) $+ ',-1)
    aline -ap @Trade [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10]
    if ($readini(main.conf,Config,Channel) != None) { msg $readini(main.conf,Config,Channel) [ $+ $date $time $+ ] 10[Type: 15Trade10][Trade: 15Auto10][Source: 15 $+ $1 $+ 10][Dest: 15 $+ $2 $+ 10][Cat: 15 $+ $4 $+ 10][Release: 15 $+ $3 $+ 10] }
  }
}
alias addsite {
  set %SECknow 1
  writeini -n sites.conf NumSites NumSites $calc($readini(sites.conf,NumSites,NumSites) + 1)
  set %STEname $$?="Site Name?"
  writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) Name %STEname
  set %STEPtime $$?="Site Pretime?"
  writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) PTime $calc(%STEPtime* 60)
  set %STEbotnick $$?="Site botnick?"
  writeini -n nicks.conf %STEbotnick Nickname %STEbotnick
  writeini -n nicks.conf %STEbotnick Sitename %STEname
  writeini -n nicks.conf %STEbotnick Sitenum $readini(sites.conf,NumSites,NumSites)
  set %SRB $$?="Source/Race site?"
  if (%SRB == Source) {
    writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Source
  }
  if (%SRB == Race) {
    writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Race
  }
  if (%SRB == Both) {
    writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) SRB Both
  }
  if (%SRB != Source) && (%SRB != Race) && (%SRB != Both) {
    set %SRB $$?="Source/Race site (Source,Race,Both are the only inputs)"
  }
  while (%SECknow <= $readini(sections.conf,NumSecs,NumSecs)) {
    if ($readini(sites.conf,Site $+ $readini(sites.conf,NumSites,NumSites),SRB) == Source) {
      writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) S $+ $readini(sections.conf,Sections,Section $+ %SECknow) $$?="Is this a Source/Race site for $readini(sections.conf,Sections,Section $+ %SECknow) $+ "
    }
    if ($readini(sites.conf,Site $+ $readini(sites.conf,NumSites,NumSites),SRB) == Race) {
      writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) R $+ $readini(sections.conf,Sections,Section $+ %SECknow) $$?="Is this a Source/Race site for $readini(sections.conf,Sections,Section $+ %SECknow) $+ "
    }
    if ($readini(sites.conf,Site $+ $readini(sites.conf,NumSites,NumSites),SRB) == Both) {
      writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) S $+ $readini(sections.conf,Sections,Section $+ %SECknow) $$?="Is this a Source/Race site for $readini(sections.conf,Sections,Section $+ %SECknow) $+ "
      writeini -n sites.conf Site $+ $readini(sites.conf,NumSites,NumSites) R $+ $readini(sections.conf,Sections,Section $+ %SECknow) $$?="Is this a Source/Race site for $readini(sections.conf,Sections,Section $+ %SECknow) $+ "
    }
    inc %SECknow 1
  }
  echo 10[15Site Added, Please see status window for details10]
  aline -ap @Status 10[15Site Added10][Name: 15 $+ %STEname $+ 10]
  unset %SECknow
  unset %STEname
  unset %STEbotnick
  unset %STEPtime
}