;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; CS 1.6 Gatherbot By Ventox ;;;;;;;;;
;;;;;;;;;;;;;; VERSION <8.4> ;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; Please keep the credit ;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;

on *:TEXT:*:*: {
  if (!%Gather.Today) { Set %Gather.Today 0 }
  if ($gettok(%Gather.LastStarted,3,32) !== $date) && (%Gather.Status == OFF) && (%Gather.LastReset !== $date) { Reset-Today }
  if ($gettok(%Gather.Started,3,32) !== $date) && (%Gather.Status !== OFF) && (%Gather.LastReset !== $date) { Reset-Today }
  if ($target ischan) && (%Gather.Channel == $target) {
    if ( ($1- == %Gather.Sign $+ Admins) || ($1- == ?Admins) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Admin }
    elseif ($1- == %Gather.Sign $+ Uptime) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowUptime }
    elseif ( ($1- == %Gather.Sign $+ Masters) || ($1- == ?Masters) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Master }
    elseif ( ($1- == %Gather.Sign $+ Owners) || ($1- == ?Owners) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Owner }
    elseif ( ($1- == %Gather.Sign $+ Managers) || ($1- == ?Managers) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Manager }
    elseif ( ($1- == %Gather.Sign $+ Total) || ($1- == ?Total) || ($1- == %Gather.Sign $+ Users) || ($1- == ?Users) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Total }
    elseif ($1- == %Gather.Sign $+ Weapons) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowWeapons }
    elseif ($1- == %Gather.Sign $+ Version) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | msg %Gather.Channel $stl(%Gather.Color2 $+ Version is: $+ %Gather.Color1 $version?) }
    elseif ($1- == %Gather.Sign $+ Vent) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Vent }
    elseif ( ($1- == %Gather.Sign $+ Gathers) || ($1- == ?Gathers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | TotalGathers }
    elseif ( ($1- == %Gather.Sign $+ Today) || ($1- == ?Today) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | TotalToday }
    elseif ($1- == %Gather.Sign $+ Last) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Last }
    elseif ($1- == %Gather.Sign $+ Map) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Map }
    elseif ($1- == %Gather.Sign $+ Sub) {
      if (%Gather.Status == OFF) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
      elseif (%Gather.Status == ON) {
        if (%Gather.Sub) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Players,$nick,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (!$istok(%Gather.Subs,$nick,32)) { FoundSub $nick $address }
        elseif (!%Gather.Sub) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | SubNotNeed }
      }
    }
    elseif ( ($1- == %Gather.Sign $+ Commands) || ($1- == %Gather.Sign $+ Cmd) || ($1- == %Gather.Sign $+ Cmds) || ($1- == %Gather.Sign $+ Help) || ($1- == %Gather.Sign $+ Command) ) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Commands }
    elseif ($1- == %Gather.Sign $+ Admin) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Admin }
    elseif ($1- == %Gather.Sign $+ Score) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowScore }
    elseif ( ($1 == %Gather.Sign $+ Reason) || ($1 == %Gather.Sign $+ Dban) || ($1 == %Gather.Sign $+ RBAN) || ($1 == %Gather.Sign $+ reason-ban) ) && (!%Gather.Flood) && ($2) { Set -u5 %Gather.Flood ON | ShowReason $2 }
    elseif ( ($1 == %Gather.Sign $+ Whois) || ($1 == %Gather.Sign $+ Who) || ($1 == %Gather.sign $+ Info) || ($1 == %Gather.Sign $+ W) ) && (!%Gather.Flood) && ($2) { Set -u8 %Gather.Flood ON | ShowWhois $2 }
    elseif ( ($1- == %Gather.Sign $+ Rank-Commands) || ($1- == %Gather.Sign $+ Rank-Command) || ($1- == %Gather.Sign $+ RankCommands) || ($1- == %Gather.Sign $+ Tops) || ($1- == %Gather.Sign $+ Ranks) || ($1- == %Gather.Sign $+ Rank-cmds) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Rank-Commands }
    elseif ( ($1 == %Gather.Sign $+ Gathers) || ($1 == %Gather.Sign $+ Played) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowGathers $2 }
    elseif ( ($1 == %Gather.Sign $+ Today) || ($1 == %Gather.Sign $+ GathersToday) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowGathersToday $2 }
    elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($2 !isnum) && ($gettok($2,1,35) !isnum) && ($chr(35) $+ * !iswm $2) { ShowRank $2 }
    elseif ( ($1 == %Gather.Sign $+ Mvp) || ($1 == %Gather.Sign $+ Mvps) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { ShowMvps $2 }
    elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($2 isnum) { Top Rank $2 }
    elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($gettok($2,1,35) isnum) && ($chr(35) $+ * iswm $2) { Top Rank $gettok($2,1,35) }
    elseif ( ($1- == %Gather.Sign $+ Top-Players) || ($1- == %Gather.Sign $+ TopPlayers) || ($1- == %Gather.Sign $+ Toplayers) || ($1-2 == %Gather.Sign $+ Top Players) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Players }
    elseif ( ($1- == %Gather.Sign $+ Top-rank) || ($1- == %Gather.Sign $+ Toprank) || ($1- == %Gather.Sign $+ Torank) || ($1-2 == %Gather.Sign $+ Top rank) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Players }
    elseif ( ($1- == %Gather.Sign $+ Top-Admins) || ($1- == %Gather.Sign $+ TopAdmins) || ($1-2 == %Gather.Sign $+ Top Admins) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Admins }
    elseif ( ($1- == %Gather.Sign $+ Top-Runners) || ($1- == %Gather.Sign $+ TopRunners) || ($1-2 == %Gather.Sign $+ Top Runners) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Admins }
    elseif ( ($1- == %Gather.Sign $+ Top-Mvps) || ($1- == %Gather.Sign $+ TopMvps) || ($1-2 == %Gather.Sign $+ Top Mvps) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Mvps }
    elseif ( ($1- == %Gather.Sign $+ Top-Mvp) || ($1- == %Gather.Sign $+ TopMvp) || ($1-2 == %Gather.Sign $+ Top Mvp) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Mvps }
    elseif ( ($1- == %Gather.Sign $+ Top-Tks) || ($1- == %Gather.Sign $+ TopTks) || ($1-2 == %Gather.Sign $+ Top Tks) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Tks }
    elseif ( ($1- == %Gather.Sign $+ Top-Nabs) || ($1- == %Gather.Sign $+ TopNabs) || ($1-2 == %Gather.Sign $+ Top Nabs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
    elseif ( ($1- == %Gather.Sign $+ Top-Noobs) || ($1- == %Gather.Sign $+ TopNoobs) || ($1-2 == %Gather.Sign $+ Top Noobs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
    elseif ( ($1- == %Gather.Sign $+ Top-Nubs) || ($1- == %Gather.Sign $+ TopNubs) || ($1-2 == %Gather.Sign $+ Top Nubs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
    elseif ( ($1- == %Gather.Sign $+ Top-10) || ($1- == %Gather.Sign $+ Top10) || ($1-2 == %Gather.Sign $+ Top 10) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top 10 }
    elseif ( ($1- == %Gather.Sign $+ Top-Killers) || ($1- == %Gather.Sign $+ TopKillers) || ($1-2 == %Gather.Sign $+ Top Killers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Killers }
    elseif ( ($1- == %Gather.Sign $+ Top-Mini) || ($1- == %Gather.Sign $+ TopMini) || ($1-2 == %Gather.Sign $+ Top Mini) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
    elseif ( ($1- == %Gather.Sign $+ Top-MiniAce) || ($1- == %Gather.Sign $+ TopMiniAce) || ($1-2 == %Gather.Sign $+ Top MiniAce) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
    elseif ( ($1- == %Gather.Sign $+ Top-MiniAces) || ($1- == %Gather.Sign $+ TopMiniAces) || ($1-2 == %Gather.Sign $+ Top MiniAces) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
    elseif ( ($1- == %Gather.Sign $+ Top-Deaths) || ($1- == %Gather.Sign $+ TopDeaths) || ($1-2 == %Gather.Sign $+ Top Deaths) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Deaths }
    elseif ( ($1- == %Gather.Sign $+ Top-Played) || ($1- == %Gather.Sign $+ TopPlayed) || ($1-2 == %Gather.Sign $+ Top Played) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Played }
    if ( ($1- == %Gather.Sign $+ Top-Planters) || ($1- == %Gather.Sign $+ TopPlanters) || ($1-2 == %Gather.Sign $+ Top Planters) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Planters }
    if ( ($1- == %Gather.Sign $+ Top-Defusers) || ($1- == %Gather.Sign $+ TopDefusers) || ($1-2 == %Gather.Sign $+ Top Defusers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Defusers } | topacers $1
    if ( ($1- == %Gather.Sign $+ Top-Today) || ($1- == %Gather.Sign $+ TopToday) || ($1-2 == %Gather.Sign $+ Top Today) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Today }
    if ( ($1- == %Gather.Sign $+ Top-Acers) || ($1- == %Gather.Sign $+ TopAcers) || ($1-2 == %Gather.Sign $+ Top Acers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
    if ( ($1- == %Gather.Sign $+ Top-Aces) || ($1- == %Gather.Sign $+ TopAces) || ($1-2 == %Gather.Sign $+ Top Aces) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
    if ( ($1- == %Gather.Sign $+ Top-Ace) || ($1- == %Gather.Sign $+ TopAce) || ($1-2 == %Gather.Sign $+ Top Ace) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
    if ($1 == %Gather.Sign $+ Top) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$2,32)) && (!%Gather.Sub) { Top Weapon $2 }
    if (%Gather.Sign $+ Top-* iswm $1) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$gettok($1,2,$asc(-)),32)) && (!%Gather.Sub) { Top Weapon $gettok($1,2,$asc(-)) }
    if (%Gather.Sign $+ Top* iswm $1) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$remove($1,%Gather.Sign $+ Top),32)) && (!%Gather.Sub) { Top Weapon $remove($1,%Gather.Sign $+ Top) }
    if ($1 == %Gather.Sign $+ Stats) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && (!%Gather.Sub) { ShowStats $2 }
    if ( ($1- == %Gather.Sign $+ Banned) || ($1- == %Gather.Sign $+ Bans) || ($1- == %Gather.Sign $+ Banlist) ) && (!%Gather.Flood) && (!%Gather.Sub) { Set -u12 %Gather.Flood ON | ShowBans }
    if ( ($1- == %Gather.Sign $+ Ignored) || ($1- == %Gather.Sign $+ Ignores) || ($1- == %Gather.Sign $+ Ignorelist) ) && (!%Gather.Flood) && (!%Gather.Sub) { Set -u12 %Gather.Flood ON | ShowIgnores }
    if ( ($1- == %Gather.Sign $+ Server) || ($1- == %Gather.Sign $+ Ip) || ($1- == ?Server) || ($1- == ?Ip) ) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | unset %Gather.Players-list | unset %Number | rcmd users | hl %Gather.Server | ShowServer }
    if ($1- == %Gather.Sign $+ Teams) && (!%Gather.Flood) {
      Set -u5 %Gather.Flood ON
      if (%Gather.Status == ON) { Teams }
      elseif (%Gather.Status == Adding) && (%Gather.Mixing == OFF) { Players-NO-MIX }
      elseif (%Gather.Status == OFF) { Gather Status-OFF }
    }
    if ( ($1- == %Gather.Sign $+ Status) || ($1- == ?Status) ) && (!%Gather.Flood) {
      if (%Gather.Status == OFF) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
      if (%Gather.Status == Adding) { Set -u5 %Gather.Flood ON | Gather Status-Adding }
      if (%Gather.Status == ON) { Set -u5 %Gather.Flood ON | Gather Status-ON }
    }
    if ($1- == %Gather.Sign $+ Players) && (!%Gather.Flood) {
      if (%Gather.Status == OFF) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
      if (%Gather.Status == Adding) { Set -u5 %Gather.Flood ON | $iif(%Gather.Mixing !== OFF,Players,Players-no-mix) }
      if (%Gather.Status == ON) { Set -u5 %Gather.Flood ON | Teams }
    }
    if ($1 == %Gather.Sign $+ Add) || ($1 == %Gather.Sign $+ Addme) {
      if (%Gather.Status == OFF) && (!%Gather.Flood) && (!$2) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
      elseif (!$2) && (%Gather.Status == ON) && (!%Gather.Flood) { Set -u4 %Gather.Flood ON | ShowAlready }
      elseif ($2) && ( ($2 == A) || ($2 == B) ) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (%Gather.admin !== $nick) && (%Gather.Mixing == OFF) { Add $address $nick $2 }
      elseif (!$2) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (%Gather.admin !== $nick) && (!$Istok(%Gather.Players,$nick,32)) { Add $address $nick }
    }
    if ( ($1- == %Gather.Sign $+ Move) || ($1- == %Gather.Sign $+ Moveme) ) && (%Gather.Status == Adding) && (%Gather.Mixing !== ON) && (!%Gather.Flood) && ($istok(%Gather.Address,$address,32)) {
      if ($istok(%Gather.Team-A,$nick,32)) { Set %Gather.Team-A $remtok(%Gather.Team-A,$nick,32) | Set %Gather.Team-B $addtok(%Gather.Team-B,$nick,32) | Set -u2 %Gather.Flood ON }
      elseif ($istok(%Gather.Team-B,$nick,32)) { Set %Gather.Team-B $remtok(%Gather.Team-B,$nick,32) | Set %Gather.Team-A $addtok(%Gather.Team-A,$nick,32) | Set -u2 %Gather.Flood ON }
    }
    if ($1- == %Gather.Sign $+ Remove) || ($1- == %Gather.Sign $+ Removeme) || ($1- == %Gather.Sign $+ del) {
      if (%Gather.Status == OFF) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
      elseif (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
        if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
        elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remover $address $nick }
      }
    }
    if ($Users($address,Manager).logged?) || ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) {
      var %o = $ifmatch
      if ($1 == %Gather.Sign $+ Start) && ($2) && (%Gather.VentStatus == On) && (!$3) { StartGather $address %o $nick $2 }
      if ($1 == %Gather.Sign $+ Map) && ($2) && (%Gather.Status !== OFF) { ChangeMap $2 $nick }
      elseif ($1 == %Gather.Sign $+ Logout) || ($1 == %Gather.Sign $+ Logoff) { msg $nick $stl(You have been disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign)) | .writeini -n Access.ini %o Status OFF | .remini -n Access.ini %o Logged }
      elseif ($1 == %Gather.Sign $+ Ban) && ($2) { AddBan $2 %o CHAN $iif($3-,$3-,no reason) }
      elseif ($1 == %Gather.Sign $+ Unban) && ($2) { Unban $2 %o CHAN }
      elseif ($1 == %Gather.Sign $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 $nick }
      elseif ($1- == %Gather.Sign $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
      elseif ($1- == %Gather.Sign $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
      elseif ($1- == %Gather.Sign $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
      elseif ($1- == %Gather.Sign $+ SubA) && (%Gather.Status == ON) { SubSearch A }
      elseif ($1- == %Gather.Sign $+ SubB) && (%Gather.Status == ON) { SubSearch B }
      elseif ($1- == %Gather.Sign $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
      elseif ( ($1 == %Gather.Sign $+ Notice) || ($1 == %Gather.Sign $+ N) ) { Noticer $iif($2-,$2-) }
      elseif ($1 == %Gather.Sign $+ End) || ($1 == %Gather.Sign $+ Stop) {
        if (%Gather.Status == ON) { EndGather $nick }
        elseif (%Gather.Status == Adding) { StopGather $nick $2- }
      }
      elseif ($1 == %Gather.Sign $+ Ignore) && ($2) { .ignore $2 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly ignored by $+ %Gather.Color2 $nick) }
      elseif ($1 == %Gather.Sign $+ unIgnore) && ($2) { .ignore -r $2 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly removed from ignorelist by $+ %Gather.Color2 $nick) }
      elseif ( ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) ) && ($Users($address,Admin).logged?) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ You are not allowed to ClearIgnores ( $+ %Gather.color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
      if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) {
        if ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) { .ignore -r | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ Ignore list %Gather.Color1 $+ Successfuly cleared by $+ %Gather.Color2 $nick) }
      }
      if ($Users($Address,Owner).logged?) || ($Users($Address,Owner).logged?) || ($Users($address,Manager).logged?) {
        if ($1- == %Gather.Sign $+ Rates) { Rates }
      }
      if ($Users($Address,Owner).logged?) || ($Users($address,Manager).logged?) {
        if ($1 == %Gather.Sign $+ Refresh) && ( ($2 == gatherbot) || ($2 == gbot) || ($2 == bot) ) { msg %Gather.Channel $stl(Refreshing Gatherbot by $+ %Gather.color2 $nick %Gather.Color1 $+ Please wait ... (3 secs)) | RCONclose | .timer 1 2 RCONstart | unset %Gather.Flood | unset %Gather.FloodStart | .timer 1 3 msg %Gather.Channel $stl(Gatherbot successfully refreshed by $+ %Gather.Color2 $nick) }
        if ($1 == %Gather.Sign $+ Refresh) && ( ($2 == mirc) || (!$2) ) { Set %Gather.Reconnecting $nick | msg %Gather.Channel $stl(Reconnecting from the server ( $+ %Gather.Color2 $+ few seconds $+ %Gather.Color1 $+ ) Please wait ...) | quit | .timer -o 1 2 server }
      }
      if ($Users($address,Manager).logged?) {
        if ($1- == %Gather.Sign $+ Unbanall) { unbanall }
      }
    }
  }
  if ($target !ischan) {
    if ( ($1 == %Gather.Sign-PM $+ Login) || ($1 == %Gather.Sign-PM $+ Auth) ) && ($readini(Access.ini,$2,Pass) == $3) && (!$read(Access.ini, w, * $+ $address)) && ($3) {
      if (%Gather.TAG) && (%Gather.TAG !isin $nick) { msg $nick $stl(You must to be with the tag $+ %Gather.Color2 %Gather.TAG %Gather.Color1 $+ for login.) | halt }
      if ($nick !ison %Gather.Channel) { msg $nick $stl(You must be on the channel $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ for login.) | halt }
      if (%Gather.logchannel) && ($nick !ison %Gather.logchannel) { msg $nick $stl(You must be on the channel $+ %Gather.Color2 %Gather.LogChannel %Gather.Color1 $+ for login.) | halt }
      .writeini -n Access.ini $2 Logged $address | whois $nick | Set -u3 %Gather.Flood ON
      .writeini -n Access.ini $2 Status ON
      .writeini -n Access.ini $2 LastLogin $date $+ - $+ $asctime(HH:nn)
      if (%Gather.logchannel) mode %Gather.logchannel +v $nick
      mode %Gather.channel +v $nick
      msg $nick $stl(You Have been Connected to $Upper($readini(Access.ini,$2,ACC)) Account. ( $+ %Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ ))
      msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Connected to $Upper($readini(Access.ini,$2,ACC)) Account. ( $+ %Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ ))
    }
    if ($Users($address,Manager).logged?) || ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) {
      var %o = $ifmatch
      if ($1- == %Gather.Sign-PM $+ Logout) || ($1- == %Gather.Sign $+ Logoff) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign-PM)) | msg $nick $stl(You Have been disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign-PM)) | .writeini -n Access.ini %o Status OFF | .remini -n Access.ini %o Logged }
      if ($1 == %Gather.Sign-PM $+ Ban) && ($2) { AddBan $2 %o CHAN $iif($3-,$3-,no reason) }
      if ($1 == %Gather.Sign-PM $+ Unban) && ($2) { Unban $2 %o CHAN }
      if ($1 == %Gather.Sign-PM $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 $nick }
      if ($1- == %Gather.Sign-PM $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
      if ($1- == %Gather.Sign-PM $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
      if ($1- == %Gather.Sign-PM $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
      if ($1- == %Gather.Sign-PM $+ SubA) && (%Gather.Status == ON) { SubSearch A }
      if ($1- == %Gather.Sign-PM $+ SubB) && (%Gather.Status == ON) { SubSearch B }
      if ($1- == %Gather.Sign-PM $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
      if ($1 == %Gather.Sign $+ Ignore) && ($2) { .ignore $2 | msg $nick $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly ignored by $+ %Gather.Color2 $nick) }
      if ($1 == %Gather.Sign $+ unIgnore) && ($2) { .ignore -r $2 | msg $nick $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly removed from ignorelist by $+ %Gather.Color2 $nick) }
      if ( ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) ) && ($Users($address,Admin).logged?) { msg $Nick $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ You are not allowed to ClearIgnores ( $+ %Gather.color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
      if ($1 == %Gather.Sign-PM $+ Start) && ($2) {
        if (%Gather.VentStatus != On) && ($5) { StartGather $address %o $nick $2- }
        elseif (%Gather.VentStatus == On) { StartGather $address %o $nick $2- }
      }
      if ( ($1 == %Gather.Sign-PM $+ NewPass) || ($1 == %Gather.Sign-PM $+ EditPass) || ($1 == %Gather.Sign-PM $+ EditPassword) || ($1 == %Gather.Sign-PM $+ ChangePass) || ($1 == %Gather.Sign-PM $+ NewPassword) || ($1 == %Gather.Sign-PM $+ ChangePassword) ) && ($2) { msg $nick $stl(Your %Gather.Color2 $+ Login Password $+ %Gather.Color1 Has been Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ Login command: %Gather.Sign-PM $+ Login %o %Gather.Color2 $+  $+ $2 $+ )) | .writeini -n Access.ini %o Pass $2 }
      if ( ($1 == %Gather.Sign-PM $+ NewSteam) || ($1 == %Gather.Sign-PM $+ EditSteam) || ($1 == %Gather.Sign-PM $+ EditSteamID) || ($1 == %Gather.Sign-PM $+ ChangeSteam) || ($1 == %Gather.Sign-PM $+ NewSteamID) || ($1 == %Gather.Sign-PM $+ ChangeSteamID) ) && ($2) && (STEAM_* iswm $2) { msg $nick $stl(Your %Gather.Color2 $+ Steam ID $+ %Gather.Color1 Has been Changed to $+ %Gather.Color2 $2 $+ ) | .writeini -n Access.ini %o SteamID $2 }
      if ( ($1- == %Gather.Sign-PM $+ Info) || ($1- == %Gather.Sign-PM $+ Whois) || ($1- == %Gather.Sign-PM $+ Who) || ($1- == %Gather.Sign-PM $+ Whoami) || ($1- == %Gather.Sign-PM $+ WhoIam) ) {
        msg $nick $stl(User Level: $+ %Gather.Color2 $ACC(%o).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC(%o).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $ACC(%o).PASS %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC(%o).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC(%o).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC(%o).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC(%o).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC(%o).LastLogin )
      }
      if ( ($1 == %Gather.Sign-PM $+ Notice) || ($1 == %Gather.Sign-PM $+ N) ) { Noticer $iif($2-,$2-) }
      if ($1 == %Gather.Sign-PM $+ End) || ($1 == %Gather.Sign-PM $+ Stop) {
        if (%Gather.Status == ON) { EndGather $nick }
        elseif (%Gather.Status == Adding) { StopGather $nick $2- }
      }
    }
    if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Manager).logged?) {
      var %o = $ifmatch
      if ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) { .ignore -r | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ Ignore list %Gather.Color1 $+ Successfuly cleared by $+ %Gather.Color2 $nick) }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Admin) {
        if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set Admin %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
        else { Adduser $3 $4 $5 $2 $nick %o }
      }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unadmin) {
        if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set unadmin %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
        else { Unuser $3 admin $nick }
      }
      if ($1- == %Gather.Sign-PM $+ Rates) { Rates | msg $nick $stl(Fixing Rates Server.) }
      if ($1 == %Gather.Sign-PM $+ ResetPlayer) || ($1 == %Gather.Sign-PM $+ Reset-Player) {
        if (!$2) { .msg $nick $stl(The syntax is: $1 < $+ %Gather.Color2 $+ NICK $+ %Gather.Color1 $+ / $+ %Gather.Color2 $+ STEAM:ID $+ %Gather.Color1 $+ >) }
        elseif ($Stats($2).exists) { var %STEAM = $Stats($2).STEAM | Var %NICK = $Stats($2).Nick | msg $nick $stl(%NICK ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) successfully restarted.) | .remini -n Stats.ini %STEAM | .writeini -n Stats.ini %STEAM Nick %NICK | .writeini -n Stats.ini %STEAM Points %Gather.Points }
        else { msg $nick $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
      }
      if ($1 == %Gather.Sign-PM $+ DelPlayer) || ($1 == %Gather.Sign-PM $+ DelPlayer) || ($1 == %Gather.Sign-PM $+ RemPlayer) || ($1 == %Gather.Sign-PM $+ RemPlayer) || ($1 == %Gather.Sign-PM $+ UnPlayer) || ($1 == %Gather.Sign-PM $+ UnPlayer) {
        if (!$2) { .msg $nick $stl(The syntax is: $1 < $+ %Gather.Color2 $+ NICK $+ %Gather.Color1 $+ / $+ %Gather.Color2 $+ STEAM:ID $+ %Gather.Color1 $+ >) }
        elseif ($Stats($2).exists) { var %STEAM = $Stats($2).STEAM | Var %NICK = $Stats($2).Nick | msg $nick $stl(%NICK ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) successfully deleted.) | .remini -n Stats.ini %STEAM }
        else { msg $nick $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
      }
    }
    if ($Users($address,Owner).logged?) || ($Users($address,Manager).logged?) {
      var %o = $ifmatch
      if ( ($1 == %Gather.Sign-PM $+ Info) || ($1 == %Gather.Sign-PM $+ Whois) || ($1 == %Gather.Sign-PM $+ Who) ) && ($2) && ($ACC($2).ACC) {
        msg $nick $stl(User Level: $+ %Gather.Color2 $ACC($2).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC($2).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $iif($ACC(%o).LVL == Owner,******,$ACC($2).PASS) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC($2).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC($2).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC($2).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC($2).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC($2).LastLogin)
      }
      if ( ($1 == %Gather.Sign-PM $+ Find) || ($1 == %Gather.Sign-PM $+ FindUser) ) && ($2) && ( ($users($gettok($address($2,5),2,$asc(!)),Owner).logged?) || ($users($gettok($address($2,5),2,$asc(!)),Master).logged?) || ($users($gettok($address($2,5),2,$asc(!)),Admin).logged?) ) {
        var %e = $ifmatch | msg $nick $stl(User Level: $+ %Gather.Color2 $ACC(%e).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC(%e).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $iif($ACC(%o).LVL == Owner,******,$ACC(%e).PASS) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC(%e).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC(%e).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC(%e).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC(%e).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC(%e).LastLogin)
      }
      if ($1 == %Gather.Sign-PM $+ SetRetryrcon) { msg $nick $stl(Retrying RCON...) | RCONstart }
      if ($1-2 == %Gather.Sign-PM $+ Set Retryrcon) { msg $nick $stl(Retrying RCON...) | RCONstart }
      if ($1- == %Gather.Sign-PM $+ RetryRcon) { RCONclose | msg $nick $stl(Retrying RCON...!) | .timer 1 1 RCONstart }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Master) {
        if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set master %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
        else { Adduser $3 $4 $5 $2 $nick %o }
      }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unmaster) {
        if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set unmaster %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
        else { Unuser $3 master $nick }
      }
    }
    ;;; End Of Pm Owner

    if ($Users($address,Manager).logged?) {

      if ( ($1 == %Gather.Sign-PM $+ ChangeLvl) || ($1 == %Gather.Sign-PM $+ Upgrade) || ($1 == %Gather.Sign-PM $+ ChangeLevel) || ($1 == %Gather.Sign-PM $+ NewLevel) || ($1 == %Gather.Sign-PM $+ NewLvl) ) && ($3)  {
        if (!$readini(Access.ini,$2,User)) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $2 %Gather.Color1 $+ doesnt exist.) }
        elseif ($readini(Access.ini,$2,User)) && ( ($3 != Admin) && ($3 != Master) && ($3 != Owner) && ($3 != Manager) ) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the level $+ %Gather.Color2 $3 %Gather.Color1 $+ doesnt exist ( $+ %Gather.Color2 $+ Levels are: $+ %Gather.Color1 Admin,Master,Owner,Manager) ) }
        else { msg $nick $stl(%Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ `s level successfully changed from $+ %Gather.Color2 $readini(Access.ini,$2,ACC) %Gather.Color1 $+ to $+ %Gather.Color2 $3 $+ %Gather.Color1 $+ ) | .writeini -n Access.ini $2 ACC $3 }
      }
      if ($1- == %Gather.Sign-PM $+ Unbanall) { msg $nick $stl(Remove bans, Please wait and look at $+ %Gather.Color2 %Gather.Channel) | .timer -m 1 500 unbanall }
      if ($1 == %Gather.Sign-PM $+ Status) && ($2) {
        if (!$readini(Access.ini,$2,User)) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $2 %Gather.Color1 $+ not found.) }
        else { UserUsers $2 $nick }
      }
      if ($- == %Gather.Sign-PM $+ ResetRanks) { if ($exists(Stats.ini)) .remove Stats.ini | msg $nick $stl(Ranks restarted!) }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Manager) {
        if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set manager %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
        else { Adduser $3 $4 $5 $2 $nick %o }
      }
      if ($1 == %Gather.Sign-PM $+ Set) && ( ($2 == unall) || ($2 == unmanager) ) {
        if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set $2 %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
        else { Unuser $3 Manager $nick }
      }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Owner) {
        if (!$5) msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set owner %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >)
        else { Adduser $3 $4 $5 $2 $nick %o }
      }
      if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unowner) { Unuser $3 Owner $nick }

      ;main commands

      if ($1 == %Gather.Sign-PM $+ Nick) && ($2) { nick $2 | msg $nick $stl(Nick changed to $+ %Gather.Color2 $2) }
      if ( ($1 == %Gather.Sign-PM $+ Join) || ($1 == %Gather.Sign-PM $+ J) ) && ($2) { join $2- | msg $nick $stl(I am joining to $+ %Gather.Color2 $2) }
      if ( ($1 == %Gather.Sign-PM $+ Part) || ($1 == %Gather.Sign-PM $+ P) ) && ($2) { Part $2- | msg $nick $stl(I am parting from $+ %Gather.Color2 $2) }


      if ($1 == %Gather.Sign-PM $+ SetRcon) && ($2) { msg $nick $stl(Rcon Password Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.RconPass $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Rcon) && ($3) { msg $nick $stl(Rcon Password Changed to $+ %Gather.Color2 $3 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.RconPass $3 }
      if ($1 == %Gather.Sign-PM $+ SetVent) && ($2) { msg $nick $stl(Vent IP:PORT Changed to $+ %Gather.Color2 $2 ) | Set %Gather.Vent $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Vent) && ($3) { msg $nick $stl(Vent IP:PORT Changed to $+ %Gather.Color2 $3 ) | Set %Gather.Vent $3 }
      if ($1- == %Gather.Sign-PM $+ ResetBot) || ($1- == %Gather.Sign-PM $+ ResetALL) { msg $nick $stl(Restarting Gatherbot please wait ...) | msg %Gather.Channel $stl(Restarting Gatherbot by $+ %Gather.Color2 $nick) | ResetBot }
      if ($1 == %Gather.Sign-PM $+ SetServer) && ($2) { msg $nick $stl(Server IP:PORT Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.Server $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Server) && ($3) { msg $nick $stl(Server IP:PORT Changed to $+ %Gather.Color2 $3 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.Server $3 }
      if ($1 == %Gather.Sign-PM $+ SetChannel) && ($2) { if ($Me ison %Gather.channel) part %Gather.Channel | .timer 1 2 join $2 | msg $nick $stl(Channel Changed to $+ %Gather.Color2 $2) | Set %Gather.Channel $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Channel) && ($3) { if ($Me ison %Gather.channel) part %Gather.Channel | .timer 1 2 join $3 | msg $nick $stl(Channel Changed to $+ %Gather.Color2 $3) | Set %Gather.Channel $3 }
      if ($1 == %Gather.Sign-PM $+ SetSign) && ($2) { msg $nick $stl(Sign Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Sign) && ($3) { msg $nick $stl(Sign Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign $3 }
      if ($1 == %Gather.Sign-PM $+ SetTAG-A) && ($2) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-A $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set TAG-A) && ($3) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-A $3 }
      if ($1 == %Gather.Sign-PM $+ SetTAGA) && ($2) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-A $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set TAGA) && ($3) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-A $3 }
      if ($1 == %Gather.Sign-PM $+ SetTAG-B) && ($2) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-B $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set TAG-B) && ($3) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-B $3 }
      if ($1 == %Gather.Sign-PM $+ SetTAGB) && ($2) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-B $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set TAGB) && ($3) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-B $3 }
      if ($1 == %Gather.Sign-PM $+ SetSign-PM) && ($2) { msg $nick $stl(Sign-PM Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign-PM $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Sign-PM) && ($3) { msg $nick $stl(Sign-PM Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign-PM $3 }
      if ($1 == %Gather.Sign-PM $+ SetSign-Server) && ($2) { msg $nick $stl(Sign-Server Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign-Server $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Sign-Server) && ($3) { msg $nick $stl(Sign-Server Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign-Server $3 }
      if ($1 == %Gather.Sign-PM $+ SetPort) && ($2) { msg $nick $stl(Port Changed to $+ %Gather.Color2 $2) | Set %Gather.Port $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Port) && ($3) { msg $nick $stl(Port Changed to $+ %Gather.Color2 $3) | Set %Gather.Port $3 }
      if ($1 == %Gather.Sign-PM $+ SetScorebot) && ($2) && ( ($2 == ON) || ($2 == OFF) ) { msg $nick $stl(Scorebot Changed to $+ %Gather.Color2 $2) | Set %Gather.ScoreBOT $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Scorebot) && ($3) && ( ($3 == ON) || ($3 == OFF) ) { msg $nick $stl(Scorebot Changed to $+ %Gather.Color2 $3) | Set %Gather.ScoreBOT $3 }
      if ($1 == %Gather.Sign-PM $+ SetScoreChannel) && ($2) { msg $nick $stl(Score Channel Changed to $+ %Gather.Color2 $2) | Set %Gather.ScoreChannel $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set ScoreChannel) && ($3) { msg $nick $stl(Score Channel Changed to $+ %Gather.Color2 $3) | Set %Gather.ScoreChannel $3 }
      if ($1 == %Gather.Sign-PM $+ SetTop) && ($2) && ($2 isnum) { msg $nick $stl(Top Number Changed to $+ %Gather.Color2 $2) | Set %Gather.TopNumber $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Top) && ($3) && ($3 isnum) { msg $nick $stl(Top Number Changed to $+ %Gather.Color2 $3) | Set %Gather.TopNumber $3 }
      if ($1 == %Gather.Sign-PM $+ SetMax) && ($2) && ($2 isnum) { msg $nick $stl(Max Changed to $+ %Gather.Color2 $2) | Set %Gather.Max $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Max) && ($3) && ($3 isnum) { msg $nick $stl(Max Changed to $+ %Gather.Color2 $3) | Set %Gather.Max $3 }
      if ($1 == %Gather.Sign-PM $+ SetAmsg) && ($2) && ( ($2 == OFF) || ($2 == ON) ) { msg $nick $stl(Amsg Changed to $+ %Gather.Color2 $2) | Set %Gather.Amsg $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Amsg) && ($3) && ( ($3 == OFF) || ($3 == ON) ) { msg $nick $stl(Amsg Changed to $+ %Gather.Color2 $3) | Set %Gather.Amsg $3 }
      if ($1 == %Gather.Sign-PM $+ SetPoints) && ($2) && ($2 isnum) { msg $nick $stl(Points Changed to $+ %Gather.Color2 $2) | Set %Gather.Points $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Points) && ($3) && ( ($3 isnum) { msg $nick $stl(Points Changed to $+ %Gather.Color2 $3) | Set %Gather.Points $3 }
      if ($1 == %Gather.Sign-PM $+ SetMaxTeam) && ($2) && ($2 isnum) { msg $nick $stl(MaxTeam Changed to $+ %Gather.Color2 $2) | Set %Gather.MaxTeam $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set MaxTeam) && ($3) && ($3 isnum) { msg $nick $stl(MaxTeam Changed to $+ %Gather.Color2 $3) | Set %Gather.MaxTeam $3 }
      if ($1 == %Gather.Sign-PM $+ SetUsersSign) && ($2) { msg $nick $stl(Users Sign Changed to $+ %Gather.Color2 $2) | Set %Gather.UsersSign $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set UsersSign) && ($3) { msg $nick $stl(Users Sign Changed to $+ %Gather.Color2 $3) | Set %Gather.UsersSign $3 }
      if ($1 == %Gather.Sign-PM $+ SetMix) && ($2) && ( ($2 == ON) || ($2 == OFF) ) { msg $nick $stl(Mix Changed to $+ %Gather.Color2 $2) | Set %Gather.Mixing $2 }
      if ($1-2 == %Gather.Sign-PM $+ Set Mix) && ($3) && ( ($3 == ON) || ($3 == OFF) ) { msg $nick $stl(Mix Changed to $+ %Gather.Color2 $3) | Set %Gather.Mixing $3 }


      ;end of main commands

    }
    ;;; End Of Pm Manager.
  }
}

alias UserUsers {
  if ($2) {
    var %x 1, %temp, %y 0, %a 0, %m 0, %o 0, %mr 0
    while ($ini(Access.ini,%x)) {
      var %u = $v1
      if ($readini(Access.ini,%u,By) == $1) {
        if ($numtok(%temp,32) > 7) { .timer 1 %y msg $2 $stl( $+ $iif(%y == 0, $+  $+ $1 $+  ( $+ %Gather.Color2 $+  $+ $ACC($1).lvl $+ %gather.Color1 $+ ) users: %temp,%temp)) | var %temp | inc %y }
        var %temp = %temp %Gather.Color2 $+  $+ %u  $+  $+ %Gather.Color1 $+ ( $+ $replace($readini(Access.ini,%u,ACC),Admin,A,Master,M,Owner,O,Manager,MR) $+ ) $+ ( $+ $iif($readini(Access.ini,%u,Lastlogin) == never,Never logged,$duration2($duration($calc($ctime - $ctime($replace($readini(Access.ini,%u,Lastlogin),$chr(45),$chr(32)))),2))) $+ ) $+ %Gather.Color3 $+ %Gather.ColorChr
        inc $eval($+($chr(37),$replace($readini(Access.ini,%u,ACC),Admin,A,Master,M,Owner,O,Manager,MR)),1)
      }
      inc %x
    }
    if (%temp) .timer 1 %y msg $2 $stl( $+ $iif(%y == 0, $+  $+ $1 $+  ( $+ %Gather.Color2 $+  $+ $ACC($1).lvl $+ %gather.Color1 $+ ) users (A: $+ %Gather.Color2 $+  $+ %a $+ %Gather.Color1 M: $+ %Gather.Color2 $+  $+ %m $+ %Gather.Color1 O: $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 MR: $+ %Gather.Color2 $+  $+ %mr $+ %Gather.Color1 $+ ): %temp,%temp Users (A: $+ %Gather.Color2 $+  $+ %a $+ %Gather.Color1 M: $+ %Gather.Color2 $+  $+ %m $+ %Gather.Color1 O: $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 MR: $+ %Gather.Color2 $+  $+ %mr $+ %Gather.Color1 $+ )))
    elseif (!%temp) && (%y == 0) { msg $2 $stl( $+ %Gather.Color2 $+  $+ $1 $+  %Gather.Color1 $+ Has not added users yet.)  }
  }
}
alias duration2 {
  var %x 1, %temp
  while ($gettok($1-,%x,32)) { if ( (day isin $gettok($1-,%x,32)) || (wk isin $gettok($1-,%x,32)) ) { var %temp = %temp $gettok($1-,%x,32) } | inc %x }
  return $iif(%temp,%temp,today)
}
;/Adduser <User> <Pass> <SteamID> <Level> <Nick> <Byuser>
alias Adduser {
  if ($6) {
    if ($readini(Access.ini,$1,User)) { msg $5 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $1 %Gather.Color1 $+ has already in use.) }
    elseif ( ($len($1) > 19) || ($len($2) > 19) || ($len($3) > 19) ) { msg $5 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 $iif($len($1) > 19,Username,$iif($len($2) > 19,Password,$iif($len($3) > 19,STEAM_ID))) is too long ( $+ %Gather.Color2 $+ Max chars: $+ %Gather.Color1 20)) }
    elseif (!$CheckSteam($3)) && (!$readini(Access.ini,$1,User)) { msg $5 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the syntax of the $+ %Gather.Color2 STEAM_ID $+ %Gather.Color1 is: $+ %Gather.Color2 STEAM_*:*:*) }
    elseif ($CheckSteam($3)) && (!$readini(Access.ini,$1,User)) { msg $5 $stl(%Gather.Color2 $+ $4 $+ %Gather.Color1 successfully added $+ %Gather.Color1 $+ $chr(44) %Gather.Color2 $+ for login $+ %Gather.Color1 /msg $me %Gather.Sign $+ login $1 $2) | .writeini -n Access.ini $1 User $1 | .writeini -n Access.ini $1 Pass $2 | .writeini -n Access.ini $1 Today 0 | .writeini -n Access.ini $1 Steamid $3 | .writeini -n Access.ini $1 Status OFF | .writeini -n Access.ini $1 Gathers 0 | .writeini -n Access.ini $1 ACC $4 | .writeini -n Access.ini $1 Since $date $+ - $+ $asctime(HH:nn) | .writeini -n Access.ini $1 By $6 | .writeini -n Access.ini $1 LastLogin never }
  }
}
;/Unuser <User> <Level> <Nick>


alias Unuser {
  if ($1) {
    if (!$readini(Access.ini,$1,User)) { msg $3 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $1 %Gather.Color1 $+ wasn't found) }
    elseif ($readini(Access.ini,$1,User)) {
      if ($readini(Access.ini,$1,ACC) == $2) { msg $3 $stl(%Gather.Color2 $+ $3 $+ %Gather.Color1 successfully deleted $+ %Gather.Color1 $+ $chr(44) user was $+ %Gather.Color2 $1) | .remini -n Access.ini $1 }
      else { msg $3 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 your are not allowed to remove $+ %Gather.Color2 $readini(Access.ini,$1,ACC) $+ s $+ %Gather.Color1 or $+ %Gather.Color2 $1 %Gather.Color1 $+ isn't $+ %Gather.Color2 $2) }
    }
  }
}
alias Add {
  if (%Gather.Mixing !== OFF) {
    if (%Gather.Status == Adding) && (!$Istok(%Gather.Address,$1,32)) && (!$Istok(%Gather.Players,$2,32)) && ($numtok(%Gather.Players,32) !== %Gather.Max) && ($2 !== %Gather.Admin) {
      Set %Gather.Address $addtok(%Gather.Address,$1,32)
      Set %Gather.Players $addtok(%Gather.Players,$2,32)
      if ($numtok(%Gather.Players,32) !== %Gather.Max) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players }
      CheckMix
    }
  }
  elseif (%Gather.Mixing == OFF) {
    if (!$3) {
      if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
        if (%Gather.Status == Adding) && (!$istok(%Gather.Address,$1,32)) && (!$istok(%Gather.Team-A,$2,32)) && (!$istok(%Gather.Team-B,$2,32)) {
          if ($numtok(%Gather.Team-A,32) !== %Gather.MaxTeam) {
            Set %Gather.Team-A $addtok(%Gather.Team-A,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
            if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
            elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
          }
          elseif ($numtok(%Gather.Team-B,32) !== %Gather.MaxTeam) {
            Set %Gather.Team-B $addtok(%Gather.Team-B,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
            if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
            elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
          }
        }
      }
    }
    elseif ($3) {
      if ( ($3 == A) || ($3 == B) ) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$1,32)) && (!$istok(%Gather.Team-A,$2,32)) && (!$istok(%Gather.Team-B,$2,32)) && ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
        if ($numtok(%Gather.Team-A,32) !== %Gather.MaxTeam) && ($3 == A) {
          Set %Gather.Team-A $addtok(%Gather.Team-A,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
          if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
          elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
        }
        elseif ($numtok(%Gather.Team-B,32) !== %Gather.MaxTeam) && ($3 == B) {
          Set %Gather.Team-B $addtok(%Gather.Team-B,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
          if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
          elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
        }
      }
    }
  }
}
alias Remover {
  if (%Gather.Mixing !== OFF) {
    if (%Gather.Status == Adding) && ($Istok(%Gather.Players,$2,32)) && ($2 !== %Gather.Admin) {
      Set %Gather.Players $remtok(%Gather.Players,$2,32)
      if ($numtok(%Gather.Players,32) !== %Gather.Max) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players }
      Set %Gather.Address $remtok(%Gather.Address,$1,32)
    }
  }
  elseif (%Gather.Mixing == OFF) {
    if (%Gather.Status == Adding) && ($Istok(%Gather.Address,$1,32)) && ($2 !== %Gather.Admin) { Set %Gather.Address $remtok(%Gather.Address,$1,32)
      if ($Istok(%Gather.Team-A,$2,32)) { Set %Gather.Team-A $remtok(%Gather.Team-A,$2,32) }
      if ($Istok(%Gather.Team-B,$2,32)) { Set %Gather.Team-B $remtok(%Gather.Team-B,$2,32) }
      if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
    }
  }
}
alias ShowWeapons { msg %Gather.Channel $stl( %Gather.Color2 $+ Weapons $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $numtok($Weapons,32) $+ %Gather.Color1 $+ ): $Weapons) }
alias Teams {
  msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Team-A $+ %Gather.Color1 $+ : $replace($replace(%Gather.Team-A,%Gather.Admin,« $+ %Gather.Color2 $+  $+ %Gather.Admin $+ %Gather.Color1 $+ »),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)))
  msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Team-B $+ %Gather.Color1 $+ : $replace($replace(%Gather.Team-B,%Gather.Admin,« $+ %Gather.Color2 $+  $+ %Gather.Admin $+ %Gather.Color1 $+ »),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)))
  if (%Gather.Subs) msg %Gather.Channel $stl(( $+ %Gather.Color2 $+ Subs $+ %Gather.Color1 $+ ) ( $+ %Gather.Color2 $+  $+ $numtok(%Gather.Subs,32) $+ %Gather.Color1 $+ ): $replace($replace(%Gather.Subs,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))))
}
alias Send-details { .msg $replace(%Gather.Team-A,$chr(32),$chr(44)) $details(a) | .timer 1 2 .msg $replace(%Gather.Team-B,$chr(32),$chr(44)) $details(b) }
alias details {
  if ($1 == a) { return $stl(You are in $+ %Gather.Color2 Team A %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Server %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass: $+ %Gather.Color2 %Gather.pass %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Vent: $+ %Gather.Color2 %Gather.Vent %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass Room A: $+ %Gather.Color2 %Gather.PassA) }
  if ($1 == b) { return $stl(You are in $+ %Gather.Color2 Team B %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Server %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass: $+ %Gather.Color2 %Gather.pass %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Vent: $+ %Gather.Color2 %Gather.Vent %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass Room B: $+ %Gather.Color2 %Gather.PassB) }
}
alias CheckSteam {
  if ($gettok($1,1,58) != STEAM_0) || ( ($gettok($1,2,58) < 0) || ($gettok($1,2,58) > 1) ) || ($gettok($1,3,58) !isnum) || ($len($gettok($1,3,58)) < 4) { return $false }
  return $true
}
alias Players2 { msg %Gather.Channel $stl(%Gather.Color1 $+ Players %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $numtok(%Gather.Players,32) $+ / $+ %Gather.Max $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $replace($replace(%Gather.Players,%Gather.Admin, $+ %Gather.Color2 $+ * $+  $+ %Gather.Admin $+  $+ * $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.max - $numtok(%Gather.Players,32)))) }
alias Players { msg %Gather.Channel $stl(%Gather.Color1 $+ Players: %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $numtok(%Gather.Players,32) $+ / $+ %Gather.Max $+ %Gather.Color2 $+ ) %Gather.Admin $+ %Gather.Color1 $+  $+ $chr(44) $replace($gettok(%Gather.Players,2-,32),$chr(32),$chr(44) $chr(32),%Gather.Tag,%Gather.Color2 $+  $+ %Gather.TAG $+ %Gather.Color1)) }
alias StartGather {
  if ($4) && (%Gather.Status == OFF) {
    if (%Gather.Connected == BadRcon) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Bad rcon password.) | Halt }
    if (%Gather.Connected == Banned) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Gatherbot is BANNED from the server.) | Halt }
    if (%Gather.Connected == OFF) || (!%Gather.Connected) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Gatherbot isn't connect to the server.) | Halt }
    if ($chr(37) $+ Gather isin $1-) || ($chr(36) isin $1-) || ($chr(124) isin $4-) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $3 %Gather.Color1 $+ is trying HACK the gatherbot) | halt }
    if ($gettok(%Gather.LastStarted,3,32) !== $date) { Reset-Today }
    if ($exists(Mvps.ini)) { .remove Mvps.ini }
    .timerSub* off
    unset %Gather.Sub
    unset %Gather.Second*
    unset %Gather.MR3*
    unset %Gather.First*
    Set %Gather.Status Adding
    inc %Gather.num
    inc %Gather.Today
    .writeini -n Access.ini $2 Gathers $calc(1 + $Gathers($2))
    .writeini -n Access.ini $2 Today $calc(1 + $GathersToday($2))
    Set %Gather.AdminUser $2
    unset %Gather.Team*
    unset %Gather.Score-T
    unset %Gather.Score-CT
    unset %Gather.ScoreStatus
    unset %Gather.Banlast
    unset %Gather.Live
    unset %Gather.Ready*
    Set %Gather.Half notyet
    Set %Gather.ScoreStatus OFF
    Set %Gather.Map $4
    Set %Gather.Admin $3
    if (%Gather.Mixing !== OFF) { Set %Gather.Players $3 }
    if (%Gather.Mixing == OFF) { Set %Gather.Team- $+ $r(A,B) $3 }
    Set %Gather.Address $1
    Set %Gather.Started $time / $date
    Set %Gather.PassA $iif($6,$6,$r(1,9) $+ $r(1,9))
    Set %Gather.PassB $iif($7,$7,$r(1,9) $+ $r(1,9))
    Set %Gather.Pass $iif($5,$5,$r(1,9) $+ $r(1,9) $+ $r(1,9))
    msg $3 $stl(Gather is NOW starting on the map: $+ %Gather.Color2 $4 %Gather.Color1 $+ Passwords $+ %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Pass %Gather.Color1 $+ Room-A: $+ %Gather.Color2 %Gather.PassA %Gather.Color1 $+ Room-B: $+ %Gather.Color2 %Gather.PassB $+ ))
    if (%Gather.VentStatus == On) { if ($exists(Vent.txt)) .remove Vent.txt | .timer 1 2 changepass }
    mode %Gather.Channel +m-N
    .timer 1 7.5 mode %Gather.Channel -m+N
    if (%Gather.Amsg == ON) { amsg $stl(Gather is NOW starting at $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ on the map $+ %Gather.Color2 %Gather.Map %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin) }
    .timer 1 1 notice %Gather.Channel $stl(Gather is about to START Be ready for -m)
    .timer 1 2 msg %Gather.Channel $stl(Starting the $+ %Gather.Color2 $ord(%Gather.num) %Gather.Color1 $+ Gather since the $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin)
    .timer 1 3 msg %Gather.Channel $stl(Current map $+ %Gather.Color2 %Gather.Map %Gather.Color1 $+  $+ $chr(44) $+ Commands are $cmd(Add) $cmd(Remove) $cmd(Players))
    if (%Gather.Startnotice) .timer 1 3 notice %Gather.Channel $stl(%Gather.Startnotice)
    if (%Gather.ScoreChannel) && (%Gather.ScoreBot == ON) { join %Gather.ScoreChannel }
    rcmd sv_password %Gather.Pass
    .timer 1 1 rcmd admin_command admin_map %Gather.Map
    .timer 1 3 rcmd sv_password %Gather.Pass
    .timer 1 3 rcmd admin_command admin_map %Gather.Map
  }
}
alias EndGather {
  if (%Gather.Status == ON) {
    if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *************** 3Game is OVER 1*************** }
    msg %Gather.Channel $stl(Gather number $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ is over! $iif(%Gather.Live,( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) $iif($1-,by $+ %Gather.Color2 $1-) %Gather.Color1 $+ $Chr(44) $+ Ready for the next match.)
    .timer 1 1 ssay Gather number %Gather.num is Over $iif(%Gather.Live,Score was: $score(a) $+ - $+ $score(b))
    .timer 1 1 tsay Gather number %Gather.num is Over $iif(%Gather.Live,Score was: $score(a) $+ - $+ $score(b))
    if (!%Gather.Live) || (%Gather.Half == notyet) { .writeini -n Access.ini %Gather.AdminUser Gathers $calc($Gathers(%Gather.AdminUser) -1) | .writeini -n Access.ini %Gather.AdminUser Today $calc($GathersToday(%Gather.AdminUser) -1) | if ($exists(Mvps.ini)) .remove Mvps.ini }
    else { SetMvps }
    .timerSub* off
    unset %Gather.Sub
    .timer 1 3 rcmd sv_password $r(1,9999)
    .timer 1 5 rcmd admin_command admin_execall disconnect
    if ($exists(Kills.ini)) { .remove Kills.ini }
    Set %Gather.Status OFF
    unset %Gather.Team*
    unset %Gather.Second*
    unset %Gather.MR3*
    unset %Gather.Players
    unset %Gather.Subs
    unset %Gather.Address
    unset %Gather.First*
    unset %Gather.Pass
    unset %Gather.Ready*
    unset %Gather.PassA
    unset %Gather.PassB
    unset %Gather.Banlast
    unset %Gather.Score-T
    unset %Gather.Score-CT
    unset %Gather.ScoreStatus
    unset %Gather.Half
    unset %Gather.AdminUser
    unset %Gather.Live
    unset %Gather.Pass
    Set %Gather.LastMap %Gather.Map
    Set %Gather.LastAdmin %Gather.Admin
    Set %Gather.LastStarted %Gather.Started
    unset %Gather.Map
    unset %Gather.Admin
    unset %Gather.Started
    if ($exists(VentStatus.txt)) .remove VentStatus.txt
    .timer 1 2 GatherOff-Vent
  }
}
ON *:JOIN:%Gather.Channel: {
  if ($nick == $me) { who %Gather.Channel | .timer 1 3 StatusCheck | if (%Gather.Reconnecting) { .timer 1 1 msg %Gather.Channel $stl(Gatherbot %Gather.color2 $+ mIRC $+ %Gather.Color1 was successfuly refreshed by $+ %Gather.Color2 $ifmatch) | unset %Gather.Reconnecting } }
}
alias StopGather {
  if (%Gather.Status == Adding) {
    msg %Gather.Channel $stl(Gather number $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ Has been stopped $+ %Gather.Color1 by $+ %Gather.Color2 $iif($1,$1,no such user) $iif($2,%Gather.Color1 $+ Reason: $+ %Gather.Color2 $2-))
    .timerSub* off
    unset %Gather.Sub
    unset %Gather.First*
    .writeini -n Access.ini %Gather.AdminUser Gathers $calc($Gathers(%Gather.AdminUser) -1)
    .writeini -n Access.ini %Gather.AdminUser Today $calc($GathersToday(%Gather.AdminUser) -1)
    Set %Gather.Status OFF
    unset %Gather.Team*
    unset %Gather.Players
    unset %Gather.Subs
    unset %Gather.Address
    unset %Gather.Score-T
    unset %Gather.Score-CT
    unset %Gather.ScoreStatus
    unset %Gather.Second*
    unset %Gather.MR3*
    unset %Gather.Half
    unset %Gather.Live
    unset %Gather.Banlast
    unset %Gather.Ready*
    unset %Gather.Map
    dec %Gather.num
    dec %Gather.today
    unset %Gather.Pass
    unset %Gather.PassA
    unset %Gather.PassB
    unset %Gather.AdminUser
    unset %Gather.Admin
    unset %Gather.Started
    .timer 1 3 rcmd admin_command admin_execall disconnect
    .timer 1 3 rcmd admin_command admin_execall disconnect
    .timer 1 5 rcmd sv_password $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
    .timer 1 3 //rcmd admin_command admin_execall disconnect
    .timer 1 3 //rcmd admin_command admin_execall disconnect
    .timer 1 5 //rcmd sv_password $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
    if ($exists(VentStatus.txt)) .remove VentStatus.txt
    .timer 1 2 GatherOff-Vent
  }
}
on !*:NICK: {
  if (%Gather.Status == Adding) && ($Istok(%Gather.Address,$address,32)) && ($Istok(%Gather.Players,$nick,32)) {
    Set %Gather.Players $reptok(%Gather.Players,$nick,$newnick,32)
    if (%Gather.Admin == $nick) { Set %Gather.Admin $newnick }
  }
}
alias SetMvps {
  if ($ini(Mvps.ini,0) == 0) { GOTO END }
  .close -@ @Mvps | .window -h @Mvps | var %x 1, %o 1
  while ($ini(Mvps.ini,%x)) { echo @Mvps $ini(Mvps.ini,%x) $calc($readini(Stats.ini,$ini(Mvps.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Mvps.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  filter -cwwteu 2 32 @Mvps @Mvps
  var %1st = $gettok($line(@Mvps,1),1,32)
  var %2nd = $gettok($line(@Mvps,2),1,32)
  var %3rd = $gettok($line(@Mvps,3),1,32)
  if (%1st) { .writeini -n Stats.ini %1st Mvps $calc($readini(Stats.ini,%1st,Mvps) +3) | msg %Gather.Channel $stl(%Gather.Color2 $+ MVP`S $+ %Gather.Color1 of the Gather are: $+ %Gather.Color2 1st. $+ %Gather.Color1 $gettok($line(@Mvps,1),3-,32) $iif(%2nd, $+ %Gather.Color2 $+ 2nd. $+ %Gather.Color1 $gettok($line(@Mvps,2),3-,32)) $iif(%3rd, $+ %Gather.Color2 $+ 3rd. $+ %Gather.Color1 $gettok($line(@Mvps,3),3-,32)) ) }
  if (%2nd) { .writeini -n Stats.ini %2nd Mvps $calc($readini(Stats.ini,%2nd,Mvps) +2) }
  if (%3rd) { .writeini -n Stats.ini %3rd Mvps $calc($readini(Stats.ini,%3rd,Mvps) +1) }
  :END
  if ($exists(Mvps.ini)) { .timer 1 1 .remove Mvps.ini }
}
alias Last {
  if (%Gather.LastMap) { msg %Gather.Channel $stl(Last game was at $+ %Gather.Color2 $gettok(%Gather.LastStarted,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.LastAdmin %Gather.Color1 $+ on the map $+ %Gather.Color2 %Gather.LastMap) }
  else { msg %Gather.Channel $stl(No last gather yet.) }
}
alias Vent { msg %Gather.Channel $stl(%Gather.Color2 $+ Ventrilo $+ %Gather.Color1 $+ : %Gather.vent $chr(44) $+ %Gather.Color2 $+ Version $+ %Gather.Color1 $+ : %Gather.Vent-Version) }
alias Noticer {
  if (!%Gather.FloodNotice) && ($1) { Set -u3 %Gather.FloodNotice ON | mode %Gather.Channel -N | notice %Gather.Channel $stl($1-) | .timer 1 2 mode %Gather.Channel +N }
  if (!%Gather.FloodNotice) && (!$1) && (%Gather.Status == Adding) {
    Set -u3 %Gather.FloodNotice ON
    mode %Gather.Channel -N
    .timer 1 1 notice %Gather.Channel $stl(Gather is ON $chr(44) %Gather.Color2 $+ Players: $+ %Gather.Color1 $now $+ / $+ $all , %Gather.Color2 $+ Type $+ %Gather.Color1 %Gather.Sign $+ add to Join)
    .timer 1 1 notice %Gather.Channel $stl(%Gather.Color2 $+ Admin: $+ %Gather.Color1 %Gather.Admin $chr(44) $+ %Gather.Color2 $+ Map: $+ %Gather.Color1 %Gather.Map $chr(44) $+ %Gather.Color2 $+ Commands: $+ %Gather.Color1 %Gather.Sign $+ Add $chr(44) $+ %Gather.Sign $+ Remove $chr(44) $+ %Gather.Sign $+ Status)
    .timer 1 2 mode %Gather.Channel +N
  }
}
alias Gathers {
  if ($readini(Access.ini,$1,Gathers)) { return $readini(Access.ini,$1,Gathers) }
  elseif (!$readini(Access.ini,$1,Gathers)) { return 0 }
}
alias GathersToday {
  if ($readini(Access.ini,$1,Today)) { return $readini(Access.ini,$1,Today) }
  elseif (!$readini(Access.ini,$1,Today)) { return 0 }
}
alias Gather {
  if ($1 == Show) {
    var %x 1, %temp, %y 1, %a $Users($2)
    while ($gettok(%a,%x,32)) {
      var %temp = %temp $gettok(%a,%x,32)
      if ($numtok(%temp,32) == 9) {
        if (%y == 1) { msg %Gather.Channel $stl(%Gather.Color2 $+ $2 $+ s are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $Users($2,ON).num $+ %Gather.Color1 $+ / $+ $Users($2,ALL).num $+ %Gather.Color2 $+ ): %Temp) | var %temp | inc %y 1 }
        else { .timer 1 %y msg %Gather.Channel $stl(%Temp) | var %temp | inc %y }
      }
      inc %x
    }
    if (%y == 1) { msg %Gather.Channel $stl(%Gather.Color2 $+ $2 $+ s are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $Users($2,ON).num $+ %Gather.Color1 $+ / $+ $Users($2,ALL).num $+ %Gather.Color2 $+ ): %Temp) }
    else { .timer 1 %y msg %Gather.Channel $stl(%Temp) }
  }
  if ($1 == Total) { msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Total Users: ( $+ %Gather.Color1 $+  $+ $calc($Users(Admin,ON).num + $Users(Master,ON).num + $Users(Owner,ON).num + $Users(Manager,ON).num) $+ / $+ $ini(Access.ini,0) $+ %Gather.Color2 $+ )) }
  if ($1 == Status-OFF) { msg %Gather.Channel $stl(There is no gather for the moment) }
  if ($1 == Status-Adding) { msg %Gather.Channel $stl(Gather is $+ 3 ON %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color2 Use: $+ %Gather.Color1 %Gather.Sign $+ Add $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ %Gather.Sign $+ Remove %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Players: %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $now $+ / $+ $all $+ %Gather.Color2 $+ ) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Map: $+ %Gather.Color2 %Gather.Map %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Admin: $+ %Gather.Color2 %Gather.Admin) }
  if ($1 == Status-ON) { msg %Gather.Channel $stl(Gather num $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ started at $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin %Gather.Color1 $+ map $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $iif(%Gather.Live,( $+ $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ ( $+ %Gather.Color2 $+ Not live $+ %Gather.Color1 $+ ))) }
  ;if ($1 == Status-ON) { msg %Gather.Channel $stl(The $+ %Gather.Color2 $ord(%Gather.num) %Gather.Color1 $+ Gather is on since $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ Admin: $+ %Gather.Color2 %Gather.Admin $+ %Gather.Color1 $+ $chr(44) Map: $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $+ $chr(44) $iif(%Gather.Live,Team-A: $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 Team-B: $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $score(Half) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ Game isn't live yet.)) }
}
alias stl { return %Gather.Style1 %Gather.Color1 $+  $+ $1- %Gather.Style2 }
alias nick? { if ($readini(Access.ini,$1,Logged)) { return $ialchan(* $+ $readini(Access.ini,$1,Logged),%Gather.Channel,1).nick } }
alias MIX {
  var %NEWPlayers1 $1-,%NEW,%AFTER
  while ($numtok(%NEWPlayers1,32)) { %NEW = $gettok(%NEWPlayers1,$r(1,$v1),32) | %AFTER = %AFTER %NEW | %NEWPlayers1 = $remove(%NEWPlayers1,%NEW) }
  set %Gather.Team-A $gettok(%AFTER,1- $calc($numtok($1-,32) /2),32) | set %Gather.Team-B $gettok(%AFTER,$calc($calc($numtok($1-,32) /2) +1) -,32)
}
alias playing { return $iif(%Gather.Mixing !== OFF,$calc(%Gather.Max / 2) vs $calc(%Gather.Max / 2),%Gather.MaxTeam vs %Gather.MaxTeam) }
on !*:PART:%Gather.Channel: {
  if (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
    if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
    elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remove $address $nick }
  }
  if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) || ($Users($address,Manager).logged?) {
    var %o = $ifmatch
    notice $nick $stl(You Have been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Part)
    msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Part)
    .writeini -n Access.ini %o Status OFF
    .remini -n Access.ini %o Logged
  }
}
on !*:QUIT: {
  if (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
    if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
    elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remove $address $nick }
  }
  if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) || ($Users($address,Manager).logged?) {
    var %o = $ifmatch
    msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Quit)
    .writeini -n Access.ini %o Status OFF
    .remini -n Access.ini %o Logged
  }
}
on *:KICK:%Gather.Channel: {
  var %a = $gettok($address($knick,5),2,$asc(!))
  if (%Gather.Status == Adding) && ($knick !== %Gather.Admin) {
    if (%Gather.Mixing !== OFF) && ($Istok(%Gather.Players,$knick,32)) { Remover %a $knick }
    elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$knick,32)) || ($Istok(%Gather.Team-B,$knick,32)) ) { Remover %a $knick }
  }
  if ($Users(%a,Owner).logged?) || ($Users(%a,Master).logged?) || ($Users(%a,Admin).logged?) || ($Users(%a,Manager).logged?) {
    var %o = $ifmatch
    notice $knick $stl(You Have been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Kicked $+ %Gather.Color1 By $+ %Gather.Color2 $nick)
    msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $knick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Kicked $+ %Gather.Color1 By $+ %Gather.Color2 $nick)
    .writeini -n Access.ini %o Status OFF
    .remini -n Access.ini %o Logged
  }
}
alias TotalGathers { if (!%Gather.Today) Set %Gather.Today 0 | msg %Gather.channel $stl(< $+ %Gather.Color2 $+  $+ %Gather.num $+ %Gather.Color1 $+ > Gathers so far. (Today: $+ %Gather.Color2 %Gather.Today $+ %Gather.Color1 $+ )) }
alias TotalToday { if (!%Gather.Today) Set %Gather.Today 0 | msg %Gather.channel $stl(< $+ %Gather.Color2 $+  $+ %Gather.Today $+ %Gather.Color1 $+ > %Gather.Color1 $+ Gathers for today. ( $+ %Gather.Color2 $+  $+ $date $+ %Gather.Color1 $+ )) }
alias HL {
  Set %Gather.HL-IP $1-
  bset -t &hl 1 $str($chr(255),4) $+ TSource Engine Query
  bset &hl $calc($bvar(&hl,0) + 1) 0
  sockudp -k HL $replace($1,$chr(58),$chr(32)) &hl
  .timer 1 2 unset %Gather.HL-*
}
alias HLB { return $bvar(&HL,1,$bvar(&HL,0)).text }
on *:UDPREAD:HL: {
  sockread &HL
  breplace &HL 0 254
  var %Gather.HL-Type = $gettok($HLB,1,254)
  var %Gather.HL-Players $iif($asc($mid($gettok($HLB,6,254),2,1)),$asc($mid($gettok($HLB,6,254),1,1)) $+ / $+ $asc($mid($gettok($HLB,6,254),2,1)),0/ $+ $asc($mid($gettok($HLB,6,254),1,1)))
  var %Gather.HL-Name = $right($gettok($HLB,1,254),$calc($len($gettok($HLB,1,254)) -6))
  var %Gather.HL-Map = $gettok($HLB,2,254)
  if (%Gather.Connected == ON) { msg %Gather.Channel $stl(%Gather.Color2 $+ Hostname: $+ %Gather.Color1 %Gather.HL-Name %Gather.Color2 $+ Players: $+ %Gather.Color1 %Gather.HL-Players %Gather.Color2 $+ Map: $+ %Gather.Color1 %Gather.HL-Map %Gather.Color2 $+ IP: $+ %Gather.Color1 %Gather.HL-IP) }
  .timer 1 1 unset %ip
}
on *:CONNECT: {
  if (!%Gather.Today) { Set %Gather.Today 0 }
  if ($exists(Kills.ini)) { .remove Kills.ini }
  unset %number | unset %Gather.TK.* | .timer 1 4 RCONstart | .timer 1 4 join %Gather.Channel | unset %Gather.Flood | unset %Gather.Flood*
}
alias ShowGathers {
  if ($acc($1).exists) { var %U = $acc($1).acc | var %steam = $readini(Access.ini,%u,Steamid) | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ %steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $Gathers(%U) %Gather.Color1 $+ and played on $+ %Gather.Color2 $Stats(%steam).Gathers %Gather.Color1 $+ Gathers so far.) }
  elseif (!$acc($1).exists) && ($Stats($1).exists) {
    var %STEAM = $v1
    if (!$isacc?(%STEAM)) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $Stats(%STEAM).nick ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has played on $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
    elseif ($isacc?(%STEAM)) { var %U = $acc(%STEAM).acc | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $Gathers(%U) %Gather.Color1 $+ and played on $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
  }
  else { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ gathers nickname' or ' $+ %Gather.Sign $+ gathers steamid') }
}
alias ShowWhois {
  if ($acc($1).exists) { var %STEAM = $ACC($1).STEAM | var %U = $acc($1).acc | msg %Gather.Channel $stl(Whois for $iif($Acc(%U).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %U ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 $ACC(%STEAM).Level %Gather.Color1 $+ INgame nick: $+ %Gather.Color2 $Stats(%STEAM).nick) | msg %Gather.Channel $stl($iif($ACC(%STEAM).Status == ON,%Gather.Color1 $+ mIRC nick: $+ %Gather.Color2 $nick?($ACC(%STEAM).User)) %Gather.Color1 $+ Gathers: ( $+ %Gather.Color2 $+ Did: $+ %Gather.Color1 $Gathers(%U) %Gather.Color2 $+ Today: $+ %Gather.Color1 $ACC(%U).Today $+ ) ( $+ %Gather.Color2 $+ Played: $+ %Gather.Color1 $Stats(%STEAM).Gathers $+ )) }
  elseif (!$acc($1).exists) && ($Stats($1).exists) {
    var %STEAM = $Stats($1).steam
    if (!$isacc?(%STEAM)) { msg %Gather.Channel $stl(Whois for $+ %Gather.Color2 $Stats(%STEAM).nick ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 Regular Player) | msg %Gather.Channel $stl(Ban Status: $+ %Gather.Color2 $iif($readini(Banned.ini,%STEAM,Steam),4BANNED by $readini(Banned.ini,%STEAM,By),3In good standing) %Gather.Color1 $+ Played on: $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
    elseif ($isacc?(%STEAM)) { var %U = $acc(%STEAM).acc | msg %Gather.Channel $stl(Whois for $iif($Acc(%U).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %U ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 $ACC(%STEAM).Level %Gather.Color1 $+ INgame nick: $+ %Gather.Color2 $Stats(%STEAM).nick) | msg %Gather.Channel $stl($iif($ACC(%STEAM).Status == ON,%Gather.Color1 $+ mIRC nick: $+ %Gather.Color2 $nick?($ACC(%STEAM).User)) %Gather.Color1 $+ Gathers: ( $+ %Gather.Color2 $+ Did: $+ %Gather.Color1 $Gathers(%U) %Gather.Color2 $+ Today: $+ %Gather.Color1 $ACC(%U).Today $+ ) ( $+ %Gather.Color2 $+ Played: $+ %Gather.Color1 $Stats(%STEAM).Gathers $+ )) }
  }
  else { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ whois nickname' or ' $+ %Gather.Sign $+ whois steamid') }
}
alias ShowGathersToday {
  if ($acc($1).exists) { var %U = $acc($1).acc | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $ACC(%U).Today %Gather.Color1 $+ Gathers for Today ( $+ %Gather.Color2 $+  $+ $date $+ %Gather.Color1 $+ ).) }
  else { msg %Gather.Channel $stl(This user is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ today nickname' or ' $+ %Gather.Sign $+ today steamid') }
}
alias isacc? { if ($1) && (STEAM_* iswm $1) {
    var %x = 1
    while ($ini(Access.ini,%x)) { if ($readini(Access.ini,$ini(Access.ini,%x),SteamID) == $1) { return $ini(Access.ini,%x) }
      inc %x
} } }
alias ACC {
  if ($1) && ($prop) {
    if ($readini(Access.ini,$1,ACC)) { var %USER $1 | GOTO SKIP }
    var %x = 1
    while ($ini(Access.ini,%x)) {
      if ($1 isin $ini(Access.ini,%x)) && (STEAM_* !iswm $1) { var %USER = $ini(Access.ini,%x) }
      if ($1 == $readini(Access.ini,$ini(Access.ini,%x),Steamid)) && (STEAM_* iswm $1) { var %USER = $ini(Access.ini,%x) }
      inc %x
    }
    :SKIP
    if ($prop == acc) || ($prop == user) || ($prop == exists) || ($prop == exist) { return %USER }
    if ($prop == pass) || ($prop == password) || ($prop == pw) { return $readini(Access.ini,%USER,Pass) }
    if ($prop == SteamID) || ($prop == Steam) || ($prop == ID) { return $readini(Access.ini,%USER,SteamID) }
    if ($prop == Status) || ($prop == Status?) { return $readini(Access.ini,%USER,Status) }
    if ($prop == Gathers) { return $iif($readini(Access.ini,%USER,Gathers),$readini(Access.ini,%USER,Gathers),0) }
    if ($prop == Today) { return $iif($readini(Access.ini,%USER,Today),$readini(Access.ini,%USER,Today),0) }
    if ($prop == Logged) || ($prop == Address) { return $readini(Access.ini,%USER,Logged) }
    if ($prop == Level) || ($prop == LVL) { return $readini(Access.ini,%USER,ACC) }
    if ($prop == Lvlanduser) || ($prop == LevelAndUser) { return $readini(Access.ini,%USER,ACC) %USER }
    if ($prop == Since) { return $readini(Access.ini,%USER,Since) }
    if ($prop == BY) { return $iif($readini(Access.ini,%USER,By) !== $null,$readini(Access.ini,%USER,By),None) }
    if ($prop == LastLogin) { return $iif($readini(Access.ini,%USER,LastLogin) !== $null,$readini(Access.ini,%USER,LastLogin),None) }
  }
  :END
}
alias Stats {
  if ($1) && ($prop) {
    if (STEAM_* !iswm $1) {
      var %x = 1
      while ($ini(Stats.ini,%x)) {
        if ($1- isin $readini(Stats.ini,$ini(Stats.ini,%x),Nick)) { var %STEAM = $ini(Stats.ini,%x) | break }
        inc %x
      }
    }
    elseif (STEAM_* iswm $1) {
      if ($readini(Stats.ini,$1,Points)) { var %STEAM = $1 }
      elseif (!$readini(Stats.ini,$1,Points)) && ($prop == steam) { return $1 }
    }
    if ($readini(Stats.ini,%STEAM,$prop)) { return $readini(Stats.ini,%STEAM,$prop) }
    elseif ($prop == STEAM) { return %STEAM }
    elseif ($prop == rank) {
      var %x = 1
      .close -@ @Rank
      .window -h @Rank
      while ($ini(Stats.ini,%x)) { echo @rank $v1 $readini(Stats.ini,$v1,Points) | inc %x }
      filter -cwwtue 2 32 @Rank @Rank *
      var %rank = $fline(@Rank,$+(*,%STEAM,*),1) | .close -@ @Rank | return %rank
    }
    elseif ($prop == exists) && (%STEAM !== $null) { return %STEAM }
    elseif ($prop == Played) && (%STEAM !== $null) { return $iif($readini(Stats.ini,%STEAM,Gathers) !== $null,$ifmatch,0) }
    elseif ($prop == Nick) { return $iif($reaini(Stats.ini,%STEAM,Nick),$ifmatch,No such nick) }
    elseif (!$readini(Stats.ini,%STEAM,$prop)) && ($prop !== nick) && ($prop !== exists) && ($prop !== steam) { return 0 }
  }
}
alias ShowRank {
  if ($Stats($1).exists) { Set -u10 %Gather.Flood ON | var %STEAM = $v1 | msg %Gather.Channel $stl($stats(%STEAM).nick ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Rank: $+ %Gather.Color2 $stats(%STEAM).rank $+ / $+ $ini(Stats.ini,0) %Gather.Color1 $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths %Gather.Color1 $+ K/D: $+ %Gather.Color2 $left($calc($stats(%STEAM).kills / $stats(%STEAM).deaths),5)) }
  ;if ($Stats($1).exists) { Set -u10 %Gather.Flood ON | var %STEAM = $v1 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Rank is: $+ %Gather.Color2 $stats(%STEAM).rank $+ %Gather.Color1 $+ / $+ $ini(Stats.ini,0) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths) }
  else { Set -u5 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ rank nickname' or ' $+ %Gather.Sign $+ rank steamid') }
}
alias ShowMvps {
  if ($Stats($1).exists) { var %STEAM = $v1 | Set -u6 %Gather.Flood ON | msg %Gather.Channel $stl(%Gather.Color1 $+  $+ $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Mvps: $+ %Gather.Color2 $stats(%STEAM).mvps) }
  else { Set -u4 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ mvp nickname' or ' $+ %Gather.Sign $+ mvp steamid') }
}
alias ShowStats {
  if ($Stats($1).exists) {
    var %STEAM = $v1
    Set -u13 %Gather.Flood ON
    msg %Gather.Channel $stl(Statistics for $+ %Gather.Color2 $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Rank: $+ %Gather.Color2 $stats(%STEAM).rank $+ %Gather.Color1 $+ / $+ $ini(Stats.ini,0) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 K/D: $+ %Gather.Color2 $left($calc($stats(%STEAM).kills / $stats(%STEAM).deaths),5))
    .timer 1 1 msg %Gather.Channel $stl(Played on: $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far. (Last one was number $+ %Gather.Color2 $Stats(%STEAM).last $+ %Gather.Color1 $+ ))
    .timer 1 1 msg %Gather.Channel $stl(Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Accuracy: $+ %Gather.Color2 $calc($stats(%STEAM).kills / $stats(%STEAM).deaths) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Plants: $+ %Gather.Color2 $stats(%STEAM).plants %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 M4A1: $+ %Gather.Color2 $stats(%STEAM).m4a1 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 AK47: $+ %Gather.Color2 $stats(%STEAM).ak47 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 AWP: $+ %Gather.Color2 $stats(%STEAM).awp $+ )
    .timer 1 1 msg %Gather.Channel $stl(Deagle: $+ %Gather.Color2 $stats(%STEAM).DEAGLE %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Usp: $+ %Gather.Color2 $stats(%STEAM).USP %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Famas: $+ %Gather.Color2 $stats(%STEAM).famas %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Galil: $+ %Gather.Color2 $Stats(%STEAM).galil %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Glock: $+ %Gather.Color2 $stats(%STEAM).glock18 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Knife: $+ %Gather.Color2 $stats(%STEAM).Knife %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Tks: $+ %Gather.Color2 $stats(%STEAM).Tks %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Aces: $+ %Gather.Color2 $Stats(%STEAM).aces %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 MiniAces: $+ %Gather.Color2 $Stats(%STEAM).miniaces)
  }
  else { Set -u5 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ stats nickname' or ' $+ %Gather.Sign $+ stats steamid') }
}
alias ShowServer {
  if (%Gather.Server !== $Null) {
    if (%Gather.Connected == ON) { .timer -m 1 500 ShowPlayers }
    elseif (%Gather.Connected == BadRcon) { msg %Gather.Channel $stl(%Gather.Color2 $+ Bad rcon password $+ %Gather.Color1 check your server info again.) }
    elseif (%Gather.Connected == Banned) { msg %Gather.Channel $stl(Gatherbot is $+ %Gather.Color2 BANNED $+ %Gather.Color1 from this server.) }
    elseif (%Gather.Connected == OFF) { msg %Gather.Channel $stl(Gatherbot is not connected to server.) }
    else { msg %Gather.Channel $stl(%Gather.Color2 $+ Server is: $+ %Gather.Color1 %Gather.Server) }
  }
  else { msg %Gather.Channel $stl(Server isn't set yet.) }
}
alias ShowPlayers {
  if (%Gather.Players-list) msg %Gather.Channel $stl(%Gather.Players-list)
  unset %Gather.Players-list
  unset %number
}
alias ShowBans {
  msg %Gather.Channel $stl(Banned ( $+ %Gather.Color2 $+  $+ $ini(Banned.ini,0) $+ %Gather.Color1 $+ ):) | var %x 1, %y 1, %temp
  while ($ini(Banned.ini,%x)) { var %temp = %temp $ini(Banned.ini,%x)
    if ($numtok(%temp,32) == 8) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) | var %temp | inc %y }
    inc %x
  }
  if (%temp !== $null) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) }
}
alias ShowIgnores {
  msg %Gather.Channel $stl(Ignored ( $+ %Gather.Color2 $+  $+ $ignore(0) $+ %Gather.Color1 $+ ):) | var %x 1, %y 1, %temp
  while ($ignore(%x)) {
    if ($len(%temp) < 200) var %temp = %temp $ignore(%x)
    else { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) | var %temp | inc %y }
    inc %x
  }
  if (%temp !== $null) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) }
}

alias Score {
  if ($1- == notlive) { return Match is not live yet. }
  if ($1- == a) {
    if (%Gather.Status == ON) {
      if (%Gather.Half == notyet) { return notset }
      if (%Gather.live == A-B) || (%Gather.live == B-A) {
        if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-CT }
        if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-T }
        if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstA }
        if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstA }
        if (%Gather.live == A-B) && (%Gather.Half == Second) { return $calc(%Gather.Score-T + %Gather.FirstA) }
        if (%Gather.live == B-A) && (%Gather.Half == Second) { return $calc(%Gather.Score-CT + %Gather.FirstA) }
        if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == B-A) && (%Gather.Half == MR3) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == A-B) && (%Gather.Half == MR3) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == B-A) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == A-B) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA) }
        if (%Gather.live == B-A) && (%Gather.Half == MR4) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA + %Gather.MR3A) }
        if (%Gather.live == A-B) && (%Gather.Half == MR4) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA + %Gather.MR3A) }
      }
    }
    else { return None }
  }
  if ($1- == anow) {
    if (%Gather.Status == ON) {
      if (%Gather.Half == notyet) { return notset }
      if (%Gather.live == A-B) || (%Gather.live == B-A) {
        if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-CT }
        if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-T }
        if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstA }
        if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstA }
        if (%Gather.live == A-B) && (%Gather.Half == Second) { return %Gather.Score-T }
        if (%Gather.live == B-A) && (%Gather.Half == Second) { return %Gather.Score-CT }
        if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return %Gather.SecondA }
        if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return %Gather.SecondA }
        if (%Gather.live == A-B) && (%Gather.Half == MR3) { return %Gather.Score-CT }
        if (%Gather.live == B-A) && (%Gather.Half == MR3) { return %Gather.Score-T }
        if (%Gather.live == A-B) && (%Gather.Half == MR4) { return %Gather.Score-T }
        if (%Gather.live == B-A) && (%Gather.Half == MR4) { return %Gather.Score-CT }
      }
    }
    else { return None }
  }
  if ($1- == b) {
    if (%Gather.Status == ON) {
      if (%Gather.Half == notyet) { return notset }
      if (%Gather.live == A-B) || (%Gather.live == B-A) {
        if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-T }
        if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-CT }
        if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstB }
        if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstB }
        if (%Gather.live == A-B) && (%Gather.Half == Second) { return $calc(%Gather.Score-CT + %Gather.FirstB) }
        if (%Gather.live == B-A) && (%Gather.Half == Second) { return $calc(%Gather.Score-T + %Gather.FirstB) }
        if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == B-A) && (%Gather.Half == MR3) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == A-B) && (%Gather.Half == MR3) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == B-A) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == A-B) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB) }
        if (%Gather.live == B-A) && (%Gather.Half == MR4) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB + %Gather.MR3B) }
        if (%Gather.live == A-B) && (%Gather.Half == MR4) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB + %Gather.MR3B) }
      }
    }
    else { return None }
  }
  if ($1- == bnow) {
    if (%Gather.Status == ON) {
      if (%Gather.Half == notyet) { return notset }
      if (%Gather.live == A-B) || (%Gather.live == B-A) {
        if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-T }
        if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-CT }
        if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstB }
        if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstB }
        if (%Gather.live == A-B) && (%Gather.Half == Second) { return %Gather.Score-CT }
        if (%Gather.live == B-A) && (%Gather.Half == Second) { return %Gather.Score-T }
        if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return %Gather.SecondB }
        if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return %Gather.SecondB }
        if (%Gather.live == A-B) && (%Gather.Half == MR3) { return %Gather.Score-T }
        if (%Gather.live == B-A) && (%Gather.Half == MR3) { return %Gather.Score-CT }
        if (%Gather.live == A-B) && (%Gather.Half == MR4) { return %Gather.Score-CT }
        if (%Gather.live == B-A) && (%Gather.Half == MR4) { return %Gather.Score-T }
      }
    }
    else { return None }
  }
  if ($1 == Half) {
    if (%Gather.Status == ON) {
      if (%Gather.Half == notyet) { return notyet }
      if (%Gather.live == A-B) || (%Gather.live == B-A) {
        if (%Gather.Half == First) && ($calc(%Gather.Score-CT + %Gather.Score-T) == 14) { return 1st Half }
        if (%Gather.Half == First) && ($calc(%Gather.Score-CT + %Gather.Score-T) !== 14) { return 1st Half }
        if (%Gather.Half == First-Second) { return 2nd Half }
        if (%Gather.Half == Second) { return 2nd Half }
        if (%Gather.Half == Second-MR3) { return MR3 1st.Half }
        if (%Gather.Half == MR3) { return MR3 1st.Half }
        if (%Gather.Half == MR3-MR4) { return MR3 2nd.Half }
        if (%Gather.Half == MR4) { return MR3 2nd.Half }
      }
    }
    else { return None }
  }
}
alias Score.color {
  if ($1- == a) {
    if (%Gather.live == A-B) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 12 }
    if (%Gather.live == B-A) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 4 }
    if (%Gather.live == A-B) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 4 }
    if (%Gather.live == B-A) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 12 }
    if (%Gather.live == A-B) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 12 }
    if (%Gather.live == B-A) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 4 }
    if (%Gather.live == A-B) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 4 }
    if (%Gather.live == B-A) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 12 }
  }
  if ($1- == b) {
    if (%Gather.live == A-B) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 4 }
    if (%Gather.live == B-A) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 12 }
    if (%Gather.live == A-B) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 12 }
    if (%Gather.live == B-A) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 4 }
    if (%Gather.live == A-B) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 4 }
    if (%Gather.live == B-A) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 12 }
    if (%Gather.live == A-B) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 12 }
    if (%Gather.live == B-A) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 4 }
  }
}
alias RCONstart { if ($ip) { RCON } | else { .timerRCONstart 1 5 RCONstart } }
alias RCONclose { rcmd logaddress_del $ip %Gather.Port | unset %Gather.RCON-challenge | .timerRCON OFF | .timerECHO OFF | Set %Gather.Connected OFF | sockclose rcon* | echo -s (12RCON1) 1---4Sockets closed1--- }
alias RconLOG {
  rcmd nochn logaddress_del $ip %gather.port
  rcmd nochn logaddress_del $ip %gather.port
  .timer -m 1 230 rcmd nochn mp_logfile 1
  .timer -m 1 260 rcmd nochn mp_logdetail 2
  .timer -m 1 290 rcmd nochn sv_rcon_banpenalty 1
  .timer -m 1 320 rcmd nochn sv_rcon_maxfailures 20
  .timer -m 1 350 rcmd nochn sv_rcon_minfailures 20
  .timer -m 1 380 rcmd nochn sv_rcon_minfailuretime 1
  .timer -m 1 420 rcmd nochn log on
  .timer -m 1 450 rcmd nochn admin_ignore_immunity 1
  .timer -m 1 480 rcmd nochn logaddress_add $ip %gather.port
  .timer -m 1 500 echo -s (12RCON1) 3* Open Socket Rcon LOG... *
}
alias RCON { if ($ip) echo -s (12RCON1) 4* Starting RCON * | echo -s (12RCON1) Server IPort:12 %Gather.Server | echo -s (12RCON1) Rcon password is:12 %Gather.RconPass | echo -s (12RCON1) Port is:12 %Gather.Port | echo -s (12RCON1) Your IP is:12 $ip | echo -s  | GETchallenge | sockudp -k rconLOG %Gather.Port $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) | .timerLOG -m 1 750 RconLOG }
alias GETchallenge { sockclose rconChallenge | sockudp -k rconChallenge $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) $+ challenge rcon }
on *:udpread:rconChallenge: { var %RCON-challenge | sockread %RCON-challenge | if ($gettok(%RCON-challenge,3,32) isnum) { Set %Gather.RCON-challenge $gettok(%RCON-challenge,3,32) } | elseif ($gettok(%RCON-challenge,3,32) !isnum) && (%Gather.Connected !== Banned) { Set %Gather.Connected Banned | RCONclose | echo -s 1(12RCON1)4 You are BANNED from the Server RCON Closed ! 2Check your Server details. } }
alias rcmd { if ($1 != nochn) GETchallenge | sockudp -k rconCMD $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) $+ rcon %Gather.RCON-challenge " $+ %Gather.RconPass $+ " $iif($1 == nochn,$2-,$1-) }
on *:udpread:rconLOG:{
  var %LOG
  sockread -f %LOG
  while ($sockbr) {
    if (%LOG) && (echo check !isin %LOG) RCON.DATA $gettok(%LOG,6-,32)
    sockread -f %LOG
  }
}
on *:udpread:rconCMD: {
  var %CMD
  sockread -f %CMD
  while ($sockbr) {
    if ($mid(%CMD,1,5) == $+($str($chr(255),4),l)) tokenize 32 $mid(%CMD,6-)
    else tokenize 32 %CMD
    if (!$window(@Console)) && ($1- != $null) /window -e @Console
    if (echo check !isin $1-) RCON.DATA $1-
    sockread -f %CMD
  }
}

alias RCON.DATA {
  if (!$window(@Console)) .window -e @Console
  echo @Console (12RCON1) $$1-
  var %rcon.dat = $1- , %rcon.said = $clr($1-).said , %rcon.nick = $replace($clr($1-).nick,$chr(124),$chr(124)) , %rcon.nick2 = $replace($clr($1-).nick2,$chr(124),$chr(124)) , %rcon.steam = $clr($1-).steam , %rcon.steam2 = $clr($1-).steam2 , %rcon.num = $clr($1-).num , %r = rcmd , %rcon.weapon = $clr($1-).weapon , %rcon.team = $clr($1-).team , %rcon.team2 = $clr($1-).team2
  if (*Bad rcon_password.* iswm $1-) && (%Gather.Connected !== BadRcon) { Set %Gather.Connected BadRcon | echo -s (12RCON1) 4* BAD RCON PASSWORD - Closing RCON Socket... * }
  if (Server shutdown isin $1-) { Set %Gather.Connected OFF | echo -s (12RCON1) 4* SERVER SHUTDOWN - Closing RCON Socket... * }
  if ( (Rcon: isin $1-) || (Logging disabled isin $1-) || (logaddress_del isin $1-) ) && (Bad Rcon !isin $1-) && (%Gather.Connected !== ON) { Set %Gather.Connected ON | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! | .timerRCON 0 600 rcon | .timerECHO 0 30 rcmd echo Ventox Gatherbot keep the connection | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! }
  if (STEAM USERID validated == $clr($1-)) && (%Gather.Status == ON) { ssay %rcon.nick Has connected. | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 3 $+ $replace(%rcon.nick,$Chr(124),-) connected } }
  if (disconnected == $clr($1-)) && (%Gather.Status == ON) { Set %Gather.Banlast %Rcon.steam | ssay %rcon.nick Has disconnected ,Type %Gather.Sign-Server $+ Banlast | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 3 $+ $replace(%rcon.nick,$Chr(124),-) disconnected } }
  if (Bad Rcon: "rcon* iswm %rcon.dat) { Set %Gather.Connected BadRcon }
  if (You have been banned from this server. == %Rcon.dat) && (%Gather.Connected !== Banned) { Set %Gather.Connected Banned }
  if (World triggered "Restart_Round isin %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Restart Round: $remove($gettok(%rcon.dat,3,95),$chr(40)) $Iif($remove($gettok(%rcon.dat,3,95),$chr(40)) == 1,second,seconds) } }
  if (*Team "TERRORIST" triggered "Terrorists_Win"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-T $remove($gettok(%rcon.dat,2,41),T,",$chr(40)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 4Terrorists Win: Eliminated Opponents 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  if (*Team "CT" triggered "CTs_Win"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Eliminated Opponents 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  if (*Team "CT" triggered "Target_Saved"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Target Saved 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  if (*Team "TERRORIST" triggered "Target_Bombed"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { .writeini -n Mvps.ini $gettok(%Gather.BombPlanet,1,32) Points $calc($readini(Mvps.ini,$gettok(%Gather.BombPlanet,1,32),Points) +1)  | .writeini -n Stats.ini $gettok(%Gather.BombPlanet,1,32) Points $calc($readini(Stats.ini,$gettok(%Gather.BombPlanet,1,32),Points) +1) | set %Gather.Score-T $remove($gettok(%rcon.dat,2,41),T,",$chr(40)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 4Terrorists Win: Target Bombed 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) (+3 kills for 4 $+ $replace($gettok(%Gather.BombPlanet,2-,32),$Chr(124),-) $+ ) } }
  if (*Team "CT" triggered "Bomb_Defused"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Bomb Defused 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  if (*World triggered "Round_End"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) {
    if ($exists(Kills.ini)) {
      var %x = 1
      while ($ini(Kills.ini,%x)) {
        if ($readini(Kills.ini,$ini(Kills.ini,%x),Kills) == 4) { .writeini -n Stats.ini $ini(Kills.ini,%x) MiniAces $calc($readini(Stats.ini,$ini(Kills.ini,%x),MiniAces) +1) | .writeini -n Mvps.ini $ini(Kills.ini,%x) Points $calc($readini(Mvps.ini,$ini(Kills.ini,%x),Points) +3.07) | .writeini -n Stats.ini $ini(Kills.ini,%x) Points $calc($readini(Stats.ini,$ini(Kills.ini,%x),Points) +3.07) | tsay $Stats($ini(Kills.ini,%x)).nick Just did an MINI ACE. | ssay $Stats($ini(Kills.ini,%x)).nick Just did an MINI ACE. | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $Stats($ini(Kills.ini,%x)).nick %Gather.Color1 $+ Just did an MINI ACE.) }
        inc %x
      }
      .remove Kills.ini
    }
    if ($calc($Score(a) + $Score(b)) == 15) && (!%Gather.FirstA) && (!%Gather.FirstB) { SWAP | End1stHalf }
    if ($calc($Score(a) + $Score(b)) == 14) && (!%Gather.FirstA) && (!%Gather.FirstB) { .timer 1 6 ssay Last round has been started. | .timer 1 6 tsay Last round has been started. }
    if ($Score(a) == 15) && (%Gather.Half == Second) { .timer 1 6 ssay Last round for (Team-A) has been started. | .timer 1 6 tsay Last round for (Team-A) has been started. }
    if ($Score(b) == 15) && (%Gather.Half == Second) { .timer 1 6 ssay Last round for (Team-B) has been started. | .timer 1 6 tsay Last round for (Team-B) has been started. }
    if ( ($Score(a) == 16) || ($Score(b) == 16) ) && (%Gather.Half == Second) { EndGather }
    if ( ($Score(a) == 19) || ($Score(b) == 19) ) && (%Gather.Half == MR4) { EndGather }
    if ( ($Score(a) == 18) && ($Score(b) == 18) ) && (%Gather.Half == MR4) { EndGather }
    if (%Gather.Half == MR3) && ($calc(%Gather.Score-T + %Gather.Score-CT) == 3) { SWAP | EndMR3Half }
    if ($Score(a) == 15) && ($Score(b) == 15) && (%Gather.Half == Second) { SWAP | End2ndHalf }
    ShowServerScore
    unset %Gather.BombPlanet
  }
  if (World triggered "Round_Start"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { unset %Gather.BombPlanet | if ($exists(Kills.ini)) { .remove Kills.ini } }
  if (World triggered "Round_Draw"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) {

    ;;;; ScoreBOT ;;;;;

    if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Round Draw! 12(CT 0) 4(T 0) }

    ;;;; End Of ScoreBOT ;;;;

    unset %Gather.BombPlanet
    if ($exists(Kills.ini)) { .remove Kills.ini }
  }
  if ($1 isnum) && ($2 == :) && ($remove($3,STEAM_,:) isnum) && ($4 == :) && ($5) { inc %number | set %Gather.Players-list %Gather.Players-list %Gather.Color2 $+ ( $+ %number $+ ) $+ %Gather.Color1 $iif($iif(%Gather.AdminUser,$ifmatch,NoGATHER) == $acc($3).user, $+ %Gather.Color2 $+  $+ $replace($5-,$chr(124),$chr(124)) $+  $+ %Gather.Color1 $+ ,$replace($5-,$chr(124),$chr(124))) }
  if (attacked == $clr($1-)) && (!%Gather.TK. [ $+ [ %rcon.steam ] ]) && (%rcon.team == %rcon.team2) {
    Set -u2 %Gather.TK. [ $+ [ %rcon.steam ] ] ON | rcmd admin_command admin_ssay ( $+ $iif(%RCON.team == TERRORIST,TS,CT)  $+ ) ( $+ %rcon.nick $+ ) attacked ( $+ %rcon.nick2 $+ )
  }
  if (Killed == $clr($1-)) && (%Gather.Status == on) && (%Gather.Scorestatus == on) && (%Gather.Live) {
    if (%rcon.team !== %rcon.team2) {

      ;;;; ScoreBOT ;;;;;

      if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick,$Chr(124),-) 3killed $iif(%rcon.team2 == CT,12,4) $+ $replace(%rcon.nick2,$Chr(124),-) 3with %rcon.weapon }

      ;;;; End Of ScoreBOT ;;;;

      if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points %Gather.Points }

      if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Mvps.ini,%rcon.steam2,Points)) { .writeini -n Mvps.ini %rcon.steam2 Points %Gather.Points }

      .writeini -n Stats.ini %rcon.steam nick %rcon.nick
      .writeini -n Stats.ini %rcon.steam2 nick %rcon.nick2
      .writeini -n Stats.ini %rcon.steam kills $calc($readini(Stats.ini,%rcon.steam,kills) +1)
      .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) + $Guns(%rcon.weapon))
      .writeini -n Stats.ini %rcon.steam2 Points $calc($readini(Stats.ini,%rcon.steam2,Points) -1)

      .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) + $Guns(%rcon.weapon))
      .writeini -n Mvps.ini %rcon.steam2 Points $calc($readini(Mvps.ini,%rcon.steam2,Points) -1)

      .writeini -n Stats.ini %rcon.steam $clr($1-).gun $calc($readini(Stats.ini,%rcon.steam,$clr($1-).gun) +1)
      .writeini -n Stats.ini %rcon.steam2 deaths $calc($readini(Stats.ini,%rcon.steam2,deaths) +1)
      if ($readini(Kills.ini,%rcon.steam,Kills)) { .writeini -n Kills.ini %rcon.steam Kills $calc($readini(Kills.ini,%rcon.steam,Kills) +1) }
      elseif (!$readini(Kills.ini,%rcon.steam,Kills)) { .writeini -n Kills.ini %rcon.steam Kills 1 }
      if ($readini(Kills.ini,%rcon.steam,Kills) == 5) { .writeini -n Stats.ini %rcon.steam Aces $calc($readini(Stats.ini,%rcon.steam,Aces) +1) | .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +4.51) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +4.51) | tsay %rcon.nick Just did an ACE. | ssay %rcon.nick Just did an ACE. | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ %rcon.nick %Gather.Color1 $+ Just did an ACE.) | .remove Kills.ini }

      if (!$readini(Stats.ini,%rcon.steam,Last)) || ($readini(Stats.ini,%rcon.steam,Last) !== %Gather.num) {
        .writeini -n Stats.ini %rcon.steam Last %Gather.num
        if ($readini(Stats.ini,%rcon.steam,Gathers)) { .writeini -n Stats.ini %rcon.steam Gathers $calc($readini(Stats.ini,%rcon.steam,Gathers) +1) }
        elseif (!$readini(Stats.ini,%rcon.steam,Gathers)) { .writeini -n Stats.ini %rcon.steam Gathers 1 }
      }
      if (!$readini(Stats.ini,%rcon.steam2,Last)) || ($readini(Stats.ini,%rcon.steam2,Last) !== %Gather.num) {
        .writeini -n Stats.ini %rcon.steam2 Last %Gather.num
        if ($readini(Stats.ini,%rcon.steam2,Gathers)) { .writeini -n Stats.ini %rcon.steam2 Gathers $calc($readini(Stats.ini,%rcon.steam2,Gathers) +1) }
        elseif (!$readini(Stats.ini,%rcon.steam2,Gathers)) { .writeini -n Stats.ini %rcon.steam2 Gathers 1 }
      }
    }
    elseif (%rcon.team == %rcon.team2) {

      ;;;; ScoreBOT ;;;;;

      if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick,$Chr(124),-) 3killed their teammate $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick2,$Chr(124),-) 3with %rcon.weapon }

      ;;;; End Of ScoreBOT ;;;;

      if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points %Gather.Points }

      if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Mvps.ini,%rcon.steam2,Points)) { .writeini -n Mvps.ini %rcon.steam2 Points %Gather.Points }

      .writeini -n Stats.ini %rcon.steam nick %rcon.nick
      .writeini -n Stats.ini %rcon.steam2 nick %rcon.nick2
      .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) -1)

      .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) -1)
      .writeini -n Stats.ini %rcon.steam Tks $calc($readini(Stats.ini,%rcon.steam,Tks) +1)

    }
  }
  if (Triggered == $clr($1-)) {

    if ($clr($1-).said == Planted_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {
      set %Gather.BombPlanet %rcon.steam %rcon.nick

      ;;;; ScoreBOT ;;;;;

      if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 4 $+ $replace(%rcon.nick,$Chr(124),-) 3Planted The Bomb }

      ;;;; End Of ScoreBOT ;;;;


      if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
      .writeini -n Stats.ini %rcon.steam nick %rcon.nick
      .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam plants $calc($readini(Stats.ini,%rcon.steam,plants) +1)
    }
    if ($clr($1-).said == Spawned_With_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {

      ;;;; ScoreBOT ;;;;;

      if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 4 $+ $replace(%rcon.nick,$chr(124),-) 3spawned with the bomb }

      ;;;; End Of ScoreBOT ;;;;

    }
    if ($clr($1-).said == Defused_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {

      ;;;; ScoreBOT ;;;;;

      if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 12 $+ $replace(%rcon.nick,$Chr(124),-) 3defused the bomb }

      ;;;; End Of ScoreBOT ;;;;

      if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
      if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
      .writeini -n Stats.ini %rcon.steam nick %rcon.nick
      .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam defuses $calc($readini(Stats.ini,%rcon.steam,defuses) +1)
    }
  }
  if ($clr($1-) == say) || ($clr($1-) == say_team) {
    Tokenize 32 $clr($1-).said
    if ($1- == %Gather.Sign-Server $+ Commands) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Commands are: %Gather.Sign-Server $+ Vent %Gather.Sign-Server $+ Score %Gather.Sign-Server $+ Stats %Gather.Sign-Server $+ Rank %Gather.Sign-Server $+ Admin }
    elseif ($1- == %Gather.Sign-Server $+ Vent) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Vent is: %Gather.Vent ( $+ %Gather.Vent-Version $+ ) }
    elseif ($1- == %Gather.Sign-Server $+ Time) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Time is now: $time }
    elseif ($1- == %Gather.Sign-Server $+ $+($chr(99),$chr(114),$chr(101),$chr(100),$chr(105),$chr(116),$chr(115))) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay $ServerPING }
    elseif ($1- == %Gather.Sign-Server $+ Admin) && (!%Gather.FloodServer) && (%Gather.Status == on) { Set -u2 %Gather.FloodServer ON | ssay Admin is: %Gather.Admin ( $+ %Gather.Adminuser $+ ) }
    elseif ($1- == %Gather.Sign-Server $+ Score) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
      if (%Gather.Live) { Set -u1 %Gather.FloodServer ON | ShowServerScore }
      elseif (!%Gather.Live) { Set -u1 %Gather.FloodServer ON | ssay $score(notlive) }
    }
    elseif ($1 == %Gather.Sign-Server $+ Rank) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
      if ($stats(%rcon.steam).exists) && (!$2) { Set -u2 %Gather.FloodServer ON | psay %rcon.steam $stats(%rcon.steam).nick ( $+ %rcon.steam $+ ) Rank: $stats(%rcon.steam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%rcon.steam).points ,Kills: $Stats(%rcon.steam).kills ,Deaths: $Stats(%rcon.steam).deaths }
      if ($2) && ($stats($2).exists) { Set -u2 %Gather.FloodServer ON | psay %rcon.steam $stats($2).nick ( $+ $stats($2).steam $+ ) Rank: $stats($2).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats($2).points ,Kills: $stats($2).kills ,Deaths: $stats($2).deaths }
    }
    elseif ( ($1- == %Gather.Sign-Server $+ ready) || ($1- == %Gather.Sign-Server $+ rdy) ) && (%Gather.Ready == ON) && (!$Istok(%Gather.ReadySteams,%RCON.steam,32)) { AddReady %RCON.Steam %RCON.nick }
    elseif ( ($1- == %Gather.Sign-Server $+ readys) || ($1- == %Gather.Sign-Server $+ rdys) ) && (%Gather.Ready == ON) { ssay (Team-A) ( $+ $numtok(%Gather.ReadyA,37) $+ / $+ $calc(%Gather.Max / 2) $+ ): $replace(%Gather.ReadyA,$chr(37),$chr(32)) | ssay (Team-B) ( $+ $numtok(%Gather.ReadyB,37) $+ / $+ $calc(%Gather.Max / 2) $+ ): $replace(%Gather.ReadyB,$chr(37),$chr(32)) }
    elseif ($1 == %Gather.Sign-Server $+ Stats) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
      if ($stats(%rcon.steam).exists) && (!$2) {
        Set -u2 %Gather.FloodServer ON
        psay %rcon.steam Statistics for %rcon.nick Rank: $stats(%rcon.steam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%rcon.steam).points
        psay %rcon.steam Played on: $stats(%rcon.steam).Gathers Gathers
        psay %rcon.steam Kills: $Stats(%rcon.steam).kills ,Deaths: $Stats(%rcon.steam).deaths ,Plants: $Stats(%rcon.steam).plants ,Defuses: $Stats(%rcon.steam).defuses
        psay %rcon.steam M4A1: $Stats(%rcon.steam).M4A1 ,AK47: $Stats(%rcon.steam).AK47 ,AWP: $Stats(%rcon.steam).awp ,Deagle: $Stats(%rcon.steam).Deagle ,Tks: $Stats(%rcon.steam).tks ,Aces: $Stats(%rcon.steam).aces
      }
      if ($2) && ($stats($2).exists) {
        var %TheSteam = $v1
        Set -u3 %Gather.FloodServer ON
        psay %TheSteam Statistics for %rcon.nick Rank: $stats(%TheSteam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%TheSteam).points
        psay %TheSteam Played on: $stats(%TheSteam).Gathers Gathers
        psay %TheSteam Kills: $Stats(%TheSteam).kills ,Deaths: $Stats(%TheSteam).deaths ,Plants: $Stats(%TheSteam).plants ,Defuses: $Stats(%TheSteam).defuses
        psay %TheSteam M4A1: $Stats(%TheSteam).M4A1 ,AK47: $Stats(%TheSteam).AK47 ,AWP: $Stats(%TheSteam).awp ,Deagle: $Stats(%TheSteam).Deagle ,Tks: $Stats(%TheSteam).tks ,Aces: $Stats(%TheSteam).aces
      }
    }
    if ($Users(%rcon.steam,Owner).steam) || ($Users(%rcon.steam,Master).steam) || ($Users(%rcon.steam,Admin).steam) || ($Users(%rcon.steam,Manager).steam) {
      var %o = $ifmatch
      if ( ($1- == %Gather.Sign-Server $+ Teams) || ($1- == %Gather.Sign-Server $+ Players) ) && (%Gather.Status == ON) && (!%Gather.FloodServer) { ssay Team A: %Gather.Team-A | ssay Team B: %Gather.Team-B | $iif(%Gather.Subs,ssay Subs: %Gather.Subs) }
      elseif ($1 == %Gather.Sign-Server $+ Freezetime) { ssay Freezetime is $2 now. | rcmd mp_freezetime $2 }
      elseif ($1 == %Gather.Sign-Server $+ roundtime) && ($2 isnum) { ssay Roundtime is $2 now. | rcmd mp_roundtime $2 }
      elseif ($1 == %Gather.Sign-Server $+ FF) {
        if ($2 == ON) || ($2 == 1) { ssay Friendlyfire is $2 now. | rcmd mp_friendlyfire 1 }
        if ($2 == OFF) || ($2 == $chr(48)) { ssay Friendlyfire is $2 now. | rcmd mp_friendlyfire 0 }
      }
      elseif ($1 == %Gather.Sign-Server $+ disconnect) || ($1 == %Gather.Sign-Server Quit) { rcmd admin_command admin_execall disconnect }
      elseif ($1 == %Gather.Sign-Server $+ ss) { tsay Snapshot has just taken by the admin ( $+ %rcon.nick $+ ) | rcmd rcmd admin_quiet 1 | rcmd allow_client_exec 1 | rcmd admin_command admin_execall snapshot | rcmd admin_quiet 2 }
      elseif ($1- == %Gather.Sign-Server $+ RR) { rcmd sv_restart 1 | ssay "Restart Round" (by %RCON.nick $+ ) }
      elseif ($1- == %Gather.Sign-Server $+ PASS) && (%Gather.Status == ON) { psay %rcon.steam Server pass: %Gather.Pass Room-A: %Gather.PassA Room-B: %Gather.PassB }
      elseif ( ($1- == %Gather.Sign-Server $+ SetReady) || ($1- == %Gather.Sign-Server $+ Setrdy) || ($1- == %Gather.Sign-Server $+ Startready) || ($1- == %Gather.Sign-Server $+ Startrdy) ) && (%Gather.Ready !== ON) && (%Gather.ScoreStatus !== ON) { Setready %RCON.nick }
      elseif ( ($1- == %Gather.Sign-Server $+ Stoprdy) || ($1- == %Gather.Sign-Server $+ Stopready) ) && (%Gather.Ready == ON) && (%Gather.ScoreStatus !== ON) { Stopready %RCON.nick }
      elseif ($1 == %Gather.Sign-Server $+ RR) && ($2) { rcmd sv_restart $2 | ssay Reastarting Game ( $+ $iif($2 < 61,$2,60) sec) by %RCON.nick }
      elseif ($1 == %Gather.Sign-Server $+ Kick) && ($2) { rcmd admin_command admin_kick $2 | ssay $2 Kicked by %rcon.nick }
      elseif ($1 == %Gather.Sign-Server $+ Ban) && ($2) { AddBan $2 %o SSAY $iif($3-,$3-,no reason) }
      elseif ($1 == %Gather.Sign-Server $+ Bantk) && ($2) { AddBan $2 %o SSAY TK }
      elseif ($1 == %Gather.Sign-Server $+ BanFlame) && ($2) { AddBan $2 %o SSAY Flame }
      elseif ($1- == %Gather.Sign-Server $+ BanTK) && ($var(%Gather.TK.*,1)) { AddBan $remove($eval($var(%Gather.TK.*,1),1),$chr(37) $+ Gather.TK.) %o SSAY TK }
      elseif ($1- == %Gather.Sign-Server $+ Banlast) && (%Gather.banlast) { AddBan %Gather.Banlast %o SSAY left in the middle. }
      elseif ($1 == %Gather.Sign-Server $+ Unban) && ($2) { Unban $2 %o SSAY }
      elseif ($1 == %%Gather.Sign-Server $+ Map) && ($2) && (%Gather.Status !== OFF) { ChangeMap $2 %rcon.nick }
      elseif ($1- == %Gather.Sign-Server $+ ResetScore) { ssay The Score Has Been Restarted By %rcon.nick | ResetScore }
      elseif ($1- == %Gather.Sign-Server $+ MR15) { ssay MR15 Settings loaded by %rcon.nick | MR15 }
      elseif ($1- == %Gather.Sign-Server $+ PRAC) { ssay PRAC Settings loaded by %rcon.nick | PRAC }
      elseif ($1- == %Gather.Sign-Server $+ Knife) { Knife }
      elseif ($1 == %Gather.Sign-Server $+ T) && ($2) { MOVE-T $2- }
      elseif ($1 == %Gather.Sign-Server $+ CT) && ($2) { MOVE-CT $2- }
      elseif ($1 == %Gather.Sign-Server $+ hs) {
        if ($2 == 1) || ($2 == on) { ssay Headshot mode is now enabled! | rcmd admin_command admin_rcon hs_mode 1 }
        if ($2 == 0) || ($2 == off) { ssay Headshot mode is now disabled! | rcmd admin_command admin_rcon hs_mode 0 }
      }
      elseif ( ($1 == %Gather.Sign-Server $+ tsay) || ($1 == !) ) && ($2) { tsay $2- }
      elseif ($1 == @) && ($2) { tsay-random $2- }
      elseif ($1 == %Gather.Sign-Server $+ ssay) && ($2) { ssay $2- }
      elseif ($1 == %Gather.Sign-Server $+ psay) && ($3) { psay $2 $3- }
      elseif ($1 == %Gather.Sign-Server $+ say) && ($2) { rcmd say $2- }
      elseif ($1- == %Gather.Sign-Server $+ Rates) { Rates }
      elseif ( ($1- == %Gather.Sign-Server $+ nolive) || ($1- == %Gather.Sign-Server $+ notlive) || ($1- == %Gather.Sign-Server $+ resetlive) || ($1- == %Gather.Sign-Server $+ reset-live) ) && (%Gather.Status == ON) && (%Gather.ScoreStatus == ON) { ssay Match was stopped by %rcon.nick | tsay Match was stopped by %rcon.nick | NoLive }
      elseif ($1 == %Gather.Sign-Server $+ Pass) && ($2) { rcmd sv_password $2 | ssay Password is $2 now.
        if (%Gather.Status == ON) { Set %Gather.Pass $2 }
      }
      elseif ($1 == %Gather.Sign-Server $+ Map) && ($2) { .timer 1 1 rcmd admin_command admin_map $2 | ssay Map is $2 now.
        if (%Gather.Status != OFF) { Set %Gather.Map $2 }
      }
      elseif ($1 == %Gather.Sign-Server $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 %rcon.nick }
      elseif ($1- == %Gather.Sign-Server $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
      elseif ($1- == %Gather.Sign-Server $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
      elseif ($1- == %Gather.Sign-Server $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF %rcon.nick }
      elseif ($1- == %Gather.Sign-Server $+ SubA) && (%Gather.Status == ON) { SubSearch A }
      elseif ($1- == %Gather.Sign-Server $+ SubB) && (%Gather.Status == ON) { SubSearch B }
      elseif ($1- == %Gather.Sign-Server $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF %rcon.nick }
      elseif ($1 == %Gather.Sign-Server $+ Notice) && ($2) { ssay Notice has been sent to channel. | Noticer $2- }
      elseif ( ($1 == %Gather.Sign-Server $+ Msg) || ($1 == %Gather.Sign-Server $+ Message) ) && ($2) { ssay Message has been sent to channel. | msg %Gather.Channel $stl(Message from server by $+ %Gather.Color2 %rcon.nick $+ %Gather.Color1 $+ : $2-) }
      elseif ($1 == %Gather.Sign-Server $+ Slay) && ($2) { rcmd admin_command admin_slay $2 | ssay $2 Slayed by %rcon.nick }
      elseif ($1- == %Gather.Sign-Server $+ End) || ($1- == %Gather.Sign-Server $+ Finish) || ($1- == %Gather.Sign-Server $+ Stop) { EndGather %rcon.nick }
      elseif ( ($1 == %Gather.Sign-Server $+ StartMoney) || ($1 == %Gather.Sign-Server $+ Money) ) && ($2) && ($2 isnum) { ssay Startmoney is $2 now. | rcmd mp_startmoney $2 }
      elseif ( ($1 == %Gather.Sign-Server $+ Name) || ($1 == %Gather.Sign-Server $+ ChangeNick) || ($1 == %Gather.Sign-Server $+ ChangeName) || ($1 == %Gather.Sign-Server $+ Nick) ) && ($2) { rcmd admin_command admin_execclient $2 name " $+ $3- }
      elseif ( ($1 == %Gather.Sign-Server $+ Start) || ($1 == %Gather.Sign-Server $+ Live) ) && (%Gather.Status == ON) && (!%Gather.FloodStart) {
        if (%Gather.Half == First) || (%Gather.Half == notyet) {
          if (A.* iswm %rcon.nick) || ($iif(%Gather.TAG-A,$ifmatch,A.) $+ * iswm %rcon.nick) || (Team A* iswm %rcon.nick) || (Team-A* iswm %rcon.nick) { set %Gather.Score-CT 0 | set %Gather.Score-T 0 | Start1stHalf
            if (%rcon.team == CT) { set %Gather.live A-B | set %Gather.Scorestatus on | set %Gather.Half First }
            elseif (%rcon.team == TERRORIST) { set %Gather.live B-A | set %Gather.Scorestatus on | set %Gather.Half First }
          }
          if (B.* iswm %rcon.nick) || ($iif(%Gather.TAG-B,$ifmatch,B.) $+ * iswm %rcon.nick) || (Team B* iswm %rcon.nick) || (Team-B* iswm %rcon.nick) { set %Gather.Score-CT 0 | set %Gather.Score-T 0 | set %Gather.Scorestatus on | set %Gather.Half First | Start1stHalf
            if (%rcon.team == CT) { set %Gather.live B-A | set %Gather.Scorestatus on | set %Gather.Half First }
            elseif (%rcon.team == TERRORIST) { set %Gather.live A-B | set %Gather.Scorestatus on | set %Gather.Half First }
          }
        }
        elseif (%Gather.Half == First-Second) || (%Gather.Half == Second) { set %Gather.Half Second | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | Start2ndHalf }
        elseif (%Gather.Half == Second-MR3) || (%Gather.Half == MR3) { set %Gather.Half MR3 | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | StartMR3Half }
        elseif (%Gather.Half == MR3-MR4) || (%Gather.Half == MR4) { set %Gather.Half MR4 | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | StartMR4Half }
      }
    }
  }
}
alias Knife { .timer 1 11 csay red Attention - Knife Round | .timer 1 11 ssay *******Good Luck******* | ssay Preparing for Knife Round, Please Wait... | .timer 1 2 MR15 | .timer 1 9 ssay IMPORTANT: Shooting while in kniferound will cause a team win automaticlly. | .timer 1 5 ssay *********KNIFE********* | .timer 1 5 tsay ********* KNIFE ********* }
alias ssay { rcmd admin_command admin_ssay ( $+ %Gather.Channel $+ ) $1- }
alias psay { rcmd admin_command admin_psay $1 $2- }
alias Serverping { return $+($chr(71),$chr(97),$chr(116),$chr(104),$chr(101),$chr(114),$chr(98),$chr(111),$chr(116),$chr(32),$chr(98),$chr(121),$chr(32),$chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120)) }
alias tsay { rcmd admin_command admin_tsay $1- }
alias changepass {
  if (%Gather.VentStatus == On) && ($exists(Ventox.exe)) {
    .write Vent.txt /chan delete " $+ %Gather.Sign $+ Team-A $+ "
    .write Vent.txt /chan delete " $+ %Gather.Sign $+ Team-B $+ "
    .write Vent.txt /chan delete " $+ %Gather.Sign $+ Info $+ "
    .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Team-A $+ " TeamA %Gather.PassA Ventox "
    .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Team-B $+ " TeamB %Gather.PassB Ventox "
    .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Info $+ " Info $rand(0,999) Ventox $qt(Admin: $+ %Gather.Admin Map: $+ %Gather.Map)
    .run Ventox.exe  -n $+($chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120),$chr(83),$chr(121),$chr(115),$chr(116),$chr(101),$chr(109)) -f Vent.txt -a %Gather.VentRCON %Gather.Vent
  }
}
alias GatherOff-Vent {
  if (%Gather.VentStatus == On) && ($exists(Ventox.exe)) {
    .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Team-A"
    .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Team-B"
    .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Info $+ "
    .write VentStatus.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Info $+ " Info $rand(0,999) Ventox $qt(Gather is not running)
    .run Ventox.exe -n $+($chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120),$chr(83),$chr(121),$chr(115),$chr(116),$chr(101),$chr(109)) -f VentStatus.txt -a %Gather.VentRCON %Gather.Vent
  }
}
alias csay { rcmd admin_command admin_csay $1- }
alias tsay-random { rcmd admin_command admin_tsay $gettok(White Blue red green yellow purple,$rand(1,6),32) $1- }
alias AddReady {
  if (!$istok(%Gather.ReadySteams,$1,32)) && (%Gather.Ready == ON) {
    if (A.* iswm $2-) || ($iif(%Gather.TAG-A,$ifmatch,A.) $+ * iswm $2-) || (Team A* iswm $2-) || (Team-A* iswm $2-) { set %Gather.ReadySteams $addtok(%Gather.ReadySteams,$1,32) | set %Gather.ReadyA $addtok(%Gather.ReadyA,$2-,37) }
    if (B.* iswm $2-) || ($iif(%Gather.TAG-B,$ifmatch,B.) $+ * iswm $2-) || (Team B* iswm $2-) || (Team-B* iswm $2-) { set %Gather.ReadySteams $addtok(%Gather.ReadySteams,$1,32) | set %Gather.ReadyB $addtok(%Gather.ReadyB,$2-,37) }
    if ($Numtok(%Gather.ReadySteams,32) == %Gather.Max) { unset %Gather.Ready* | ssay All the players are ready. | tsay All the players are ready. | .timer 1 2 MR15 }
  }
}
alias setready {
  unset %Gather.Ready*
  Set %Gather.Ready ON
  ssay Preparing for Set ready, Please Wait... (by $1- $+ )
  tsay Preparing for Set ready, Please Wait... (by $1- $+ )
  rcmd mp_freezetime 60
  .timer -m 1 100 rcmd sv_restart 1
  .timer 1 2 ssay Match is Ready to start type %Gather.Sign-Server $+ ready or %Gather.Sign-Server $+ rdy to signal u'r Ready.
  .timer 1 3 tsay Match is Ready to start type %Gather.Sign-Server $+ ready or %Gather.Sign-Server $+ rdy to signal u'r Ready.
  .timer 1 2 ssay Game will start when all players will type %Gather.Sign-Server $+ ready.
}
dialog Update {
  title "Gatherbot Update"
  size -1 -1 105 30
  option dbu
  edit "Click 'Check' to check for new version", 1, 2 3 101 10, read multi
  button "Check", 2, 2 15 50 12
  button "Update", 3, 53 15 50 12, disable
}
On *:Dialog:Update:sclick:*: {
  if ($did == 2) { did -b $dname 2,3 | CheckVersion }
  if ($did == 3) { did -b $dname 2,3 | Update }
}
alias UpdateDialog { if (!$dialog(Update)) dialog -m Update Update }
alias version? { return 8.4e }
alias CheckVersion { sockclose CheckVersion | sockopen CheckVersion planetnana.co.il 80 | if ($Dialog(Update)) did -ra Update 1 Checking for new version ... }
on *:SOCKOPEN:CheckVersion:{
  if ($sockerr == 0) {
    var %a = sockwrite -tn $sockname
    %a GET /ventoxgatherbot/Update.txt HTTP/1.1
    %a Host: planetnana.co.il
    %a Connection: keep-alive
    %a Accept: */*
    %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
    %a
  }
}
On *:Sockread:CheckVersion: {
  var %d
  sockread %d
  if ([Version *] iswm %d) {
    var %v = $remove($gettok(%d,2,32),])
    if (%v != $version?) && ($Dialog(Update)) { did -ra Update 1 You need new version, click Update | did -e Update 3 }
    else { if ($Dialog(Update)) did -ra Update 1 You have the lastest version ( $+ $version? $+ ) | did -e Update 2 }
    sockclose $sockname
  }
}
alias Update { unset %Gather.download.* | if ($exists(Update.txt)) .remove Update.txt | sockclose Update | sockopen Update planetnana.co.il 80 | if ($dialog(Update)) did -ra Update 1 Update is now starting ... }
on *:Sockopen:Update:{ if ($sockerr == 0) { var %a = sockwrite -tn $sockname | %a GET /ventoxgatherbot/Update.txt HTTP/1.1 | %a Host: planetnana.co.il | %a Connection: keep-alive | %a Accept: */* | %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98) | %a } }
on *:Sockread:Update:{
  if (%Gather.download.ready != 1) { var %header | sockread %header | while ($sockbr) { if (Content-length: * iswm %header) { %Gather.download.length = $gettok(%header,2,32) } | elseif (* !iswm %header) { %Gather.download.ready = 1 | %Gather.download.offset = $sock($sockname).rcvd | break } | sockread %header } }
  sockread 4096 &d
  while ($sockbr) {
    if ($dialog(Update)) did -ra Update 1 Completed: $round( $calc(100 * ($sock($sockname).rcvd - %Gather.download.offset) / %Gather.download.length) ,1) $+ %
    if ($bytes($calc($sock($sockname).rcvd - %Gather.download.offset)) $+ $iif($calc($sock($sockname).rcvd - %Gather.download.offset) > 1039999,MB,KB) == $bytes(%Gather.download.length) $+ $iif(%Gather.download.length > 1039999,MB,KB)) { .timer 1 1 UpdateFinish }
    bwrite Update.txt -1 -1 &d | sockread 4096 &d
  }
}
alias UpdateFinish {
  unset %Gather.download.*
  if ($dialog(Update)) { did -ra Update 1 Update completed! | .timer -m 1 500 did -e Update 2 }
  sockclose Update
  if ($exists(Gatherbot.ini)) .remove Gatherbot.ini
  if ($exists(Update.txt)) .rename Update.txt Gatherbot.ini
  .timer -m 1 100 .write -dl1 Gatherbot.ini
  .timer -m 1 700 .load -rs Gatherbot.ini
  halt
}

alias Stopready { unset %Gather.Ready* | ssay Set ready stopped by $1- | tsay Set ready stopped by $1- | MR15 }
alias Start1stHalf { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3First Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(First half is NOW starting ( $+ %Gather.Color2 $+  $+ 0 $+ %Gather.Color1 $+ - $+ %Gather.Color2 $+  $+ 0 $+ %Gather.Color1 $+ )) | ssay Preparing for starting game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR15 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay 1st HALF. Gather started! | .timer 1 8 LiveShow }
alias Start2ndHalf { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Second Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(Second half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR15 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay 2nd HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
alias StartMR3Half { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 1st Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(MR3 1st half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR3 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay MR3 - 1st HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
alias StartMR4Half { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 2nd Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(MR3 1st half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR3 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay MR3 - 2nd HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
alias Map {
  if (%Gather.Status == OFF) { Gather Status-OFF }
  if (%Gather.Status == Adding) { msg %Gather.Channel $stl(The match will be played on the map: $+ %Gather.Color2 %Gather.map) }
  if (%Gather.Status == ON) { msg %Gather.Channel $stl(Map is: $+ %Gather.Color2 %Gather.Map) }
}
alias LiveShow { ssay Live. | ssay Live.. | ssay Live... | .timer 1 2 ssay Game is ON. }
alias Rates {
  msg %Gather.Channel $stl(Fixing Server Rates.)
  ssay Fixing server Rates, Please Wait....
  tsay Fixing server Rates, Please Wait....
  .timer 1 1 rcmd admin_command admin_rcon sv_maxrate "25000"
  .timer 1 1 rcmd admin_command admin_rcon sv_maxupdaterate "101"
  .timer 1 1 rcmd admin_command admin_rcon sv_minrate "2500"
  .timer 1 1 rcmd admin_command admin_rcon sys_ticrate "10000.0"
  .timer 1 1 rcmd admin_command admin_rcon sv_maxspeed "320"
  .timer 1 1 rcmd admin_command admin_rcon sv_stats "0"
  .timer 1 1 rcmd admin_command admin_rcon sv_region "3"
  .timer 1 3 rcmd admin_command admin_rcon restart
}
alias Admin {
  if (%Gather.Status == OFF) { Gather Status-OFF }
  if (%Gather.Status == Adding) { msg %Gather.Channel $stl(Admin is: $+ %Gather.Color2 %Gather.Admin) }
  if (%Gather.Status == ON) { msg %Gather.Channel $stl(Admin is: $+ %Gather.Color2 %Gather.Admin) }
}
alias Top {
  if ($1 == Players) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Players $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ $Chr(44) $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ $Chr(44) $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths)
      inc %o
      dec %z
    }
  }
  if ($1 == Mvps) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Mvps) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Mvps $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Mvps: $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32))
      inc %o
      dec %z
    }
  }
  if ($1 == Rank) {
    if (!$ini(Stats.ini,$2)) { msg %Gather.Channel $stl(No rank for $+ %Gather.Color2 $chr(35) $+ $2) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot | set -u8 %Gather.Flood ON | ShowRank $gettok($line(@Bot,$2),1,32)
  }
  if ($1 == 10) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < 10) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= 10) { var %z = 10 }
    set -u20 %Gather.Flood ON
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      var %TEMP = %TEMP %Gather.Color2 $+ ( $+ %o $+ ) $+ %Gather.Color1 $gettok($line(@Bot,%o),3-,32)
      if (%o == 5) { msg %Gather.Channel $stl(%TEMP) | var %TEMP }
      inc %o
      dec %z
    }
    if (%TEMP !== $null) { msg %Gather.Channel $stl(%TEMP) }
  }
  if ($1 == Killers) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),kills) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Killers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Killed $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,player.,players.))
      inc %o
      dec %z
    }
  }
  if ($1 == Deaths) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),deaths) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Deaths $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Dead $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %gather.Color1 $+ $Iif($gettok($line(@Bot,%o),2,32) == 1,time.,times.))
      inc %o
      dec %z
    }
  }
  if ($1 == Played) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),gathers) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Played $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      var %Gathers = $gettok($line(@Bot,%o),2,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $chr(44) $+ Played on $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,Gather.,Gathers.))
      inc %o
      dec %z
    }
  }
  if ($1 == Planters) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),plants) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Planters $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Planted $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,time,times) the bomb)
      inc %o
      dec %z
    }
  }
  if ($1 == Defusers) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),defuses) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Defusers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Defused $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,time,times) the bomb)
      inc %o
      dec %z
    }
  }
  if ($1 == Acers) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),aces) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Acers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,ace,aces))
      inc %o
      dec %z
    }
  }
  if ($1 == Miniaces) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),miniaces) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Mini acers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,mini ace,mini aces))
      inc %o
      dec %z
    }
  }
  if ($1 == Tks) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Tks) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Tks $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,tk,tks))
      inc %o
      dec %z
    }
  }
  if ($1 == Nabs) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwtu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Noobs $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ $Chr(44) $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ $Chr(44) $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths)
      inc %o
      dec %z
    }
  }
  if ($1 == Weapon) && ($2) {
    if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    if (!$istok($Weapons,$2,32)) { msg %Gather.Channel $stl(There is $+ %Gather.Color2 NO $+ %Gather.Color1 Weapon $+ %Gather.Color2 $2) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),$2) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
    elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ $2 Players $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
    while (%z) {
      var %STEAM = $gettok($line(@Bot,%o),1,32)
      var %FRAGS = $gettok($line(@Bot,%o),2,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Killed $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,player,players) with $+ %Gather.Color2 $2)
      inc %o
      dec %z
    }
  }
  if ($1 == Admins) {
    if (!%Gather.num) || (%Gather.num < 1) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Access.ini,%x)) { echo @Bot $ini(Access.ini,%x) $iif($readini(Access.ini,$ini(Access.ini,%x),Gathers),$ifmatch,0) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Access.ini,0) < %Gather.TopNumber) { var %z = $ini(Access.ini,0) }
    elseif ($ini(Access.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Admins $+ %Gather.Color1 Out Of $+ %Gather.Color2 $+ %Gather.Color2 $ini(Access.ini,0) %Gather.Color1 $+ known Admins:)
    while (%z) {
      var %USER = $gettok($line(@Bot,%o),1,32)
      var %GATHERS = $gettok($line(@Bot,%o),2,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $iif($Acc(%USER).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %USER $+ $iif($Nick?(%USER),( $+ %Gather.Color1 $+  $+ $Nick?(%USER) $+  $+ %Gather.Color2 $+ )) %Gather.Color1 $+ - ( $+ %Gather.Color2 $+  $+ $ACC(%USER).Level $+ %Gather.Color1 $+ ) did $+ %Gather.Color2 %GATHERS %Gather.Color1 $+ $iif(%GATHERS == 1,Gather.,Gathers.))
      inc %o
      dec %z
    }
  }
  if ($1 == Today) {
    if (!%Gather.num) || (%Gather.num < 1) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
    .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
    while ($ini(Access.ini,%x)) { echo @Bot $ini(Access.ini,%x) $iif($readini(Access.ini,$ini(Access.ini,%x),Today),$ifmatch,0) | inc %x }
    filter -cwwteu 2 32 @Bot @Bot
    if ($ini(Access.ini,0) < %Gather.TopNumber) { var %z = $ini(Access.ini,0) }
    elseif ($ini(Access.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
    set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Today Admins $+ %Gather.Color1 Out Of $+ %Gather.Color2 $+ %Gather.Color2 $ini(Access.ini,0) %Gather.Color1 $+ known Admins:)
    while (%z) {
      var %USER = $gettok($line(@Bot,%o),1,32)
      var %GATHERS = $gettok($line(@Bot,%o),2,32)
      msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $iif($Acc(%USER).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %USER $+ $iif($Nick?(%USER),( $+ %Gather.Color1 $+  $+ $Nick?(%USER) $+  $+ %Gather.Color2 $+ )) %Gather.Color1 $+ - ( $+ %Gather.Color2 $+  $+ $ACC(%USER).Level $+ %Gather.Color1 $+ ) did $+ %Gather.Color2 %GATHERS %Gather.Color1 $+ $iif(%GATHERS == 1,Gather today.,Gathers today.))
      inc %o
      dec %z
    }
  }
  :END
}
alias Commands {
  if (%Gather.Status !== Adding) { msg %Gather.Channel $stl($cmd(Status) $cmd(Server) $cmd(Vent) $cmd(Admin( $+ %Gather.Color2 $+ s $+ %Gather.color1 $+ )) $cmd(Last) $cmd(score) $cmd(Banned) $cmd(Ignored) $cmd(Gathers) $cmd(rank-cmds)) }
  elseif (%Gather.Status == Adding) { msg %Gather.Channel $stl($cmd(Add) $cmd(Remove) $cmd(Status) $cmd(Players) $cmd(Vent) $cmd(Server)) }
}
alias Rank-Commands {
  if (%Gather.Status !== Adding) { msg %Gather.Channel $stl($cmd(Rank) $cmd(Stats) $cmd(Whois) $cmd(Gathers) $cmd(Today) $cmd(Top- $+ %Gather.Color2 $+ [ $+ %Gather.Color1 $+ Players $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ 10 $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Admins $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Mvps $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Nabs $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Today $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Killers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ MiniAces $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Played $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Deaths $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Planters $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Defusers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Acers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ < $+ %Gather.Color2 $+ Weapon $+ %Gather.Color1 $+ > $+ %Gather.Color2 $+ $chr(93))) }
}
alias ChangeMap { if ($2) { Set %Gather.Map $1 | rcmd admin_command admin_map $1 | msg %Gather.channel $stl(Map Changed to $+ %Gather.Color2 $1 $iif($2-, $+ %Gather.Color1 $+ By $+ %Gather.Color2 $2-)) } }
alias cmd { if ($1) return %Gather.Color2 $+ %Gather.Sign $+ %Gather.Color1 $+ $1 }
alias Weapons { return AK47 M4A1 Famas Galil AWP MP5navy Deagle Usp Glock18 Grenade Aug SG552 MAC10 P90 TMP UMP45 G3sg1 M3 XM1014 Elite FiveSeven P228 Scout SG550 M249 Knife }
alias NoStats { return There is no current Ranking on the gatherbot yet. }

;/AddBan <Steam_ID/Nick> <User> <SSAY/CHAN> <Reason>
alias Addban {
  var %user = $2
  var %lvl = $acc($2).lvl
  if ($Stats($1).Steam) { var %steam = $v1 }
  if ($readini(Banned.ini,%steam,steam)) {
    if ($3 == CHAN) msg %Gather.Channel $stl($iif($readini(Stats.ini,%steam,Nick),$v1,no such nick) ( $+ %Gather.Color2 $+ %steam $+ %Gather.Color1 $+ )  Is already banned by $+ %Gather.Color2 $readini(Banned.ini,%steam,by) )
    else ssay $iif($readini(Stats.ini,%steam,Nick),$v1,no such nick) ( $+ %steam $+ ) Is already banned by $readini(Banned.ini,%steam,by)
    halt
  }
  if ($acc(%steam).lvlanduser) {
    var %ban-lvl = $gettok($v1,1,32)
    var %ban-user = $gettok($v1,2,32)
    var %lvl-num = $replace(%lvl,Manager,4,Owner,3,Master,2,Admin,1)
    var %ban-lvl-num = $replace(%ban-lvl,Manager,4,Owner,3,Master,2,Admin,1)
    if (%lvl-num > %ban-lvl-num ) {
      .writeini -n Banned.ini %steam steam %steam
      .writeini -n Banned.ini %steam reason $iif($4-,$4-,no reason)
      .writeini -n Banned.ini %steam at $date
      .writeini -n Banned.ini %steam by $2
      msg %Gather.Channel $stl(< $+ %Gather.Color2 $+  $+ %ban-lvl ban $+ %Gather.Color1 $+ > $iif($readini(Stats.ini,%steam,Nick),$v1,%ban-user) ( $+ %Gather.Color2 $+ %steam $+ %Gather.Color1 $+ ) Banned by: $+ %Gather.Color2 $2 %Gather.Color1 $+ $chr(44) $+ Reason: $+ %Gather.Color2 $iif($4-,$4-,no reason))
      ssay < $+ %ban-lvl ban> $iif($readini(Stats.ini,%steam,Nick),$v1,%ban-user)  ( $+ %steam $+ ) Banned by $2 ,Reason: $iif($4-,$4-,no reason)
      rcmd admin_command admin_ban %steam
    }
    else {
      if ($3 == CHAN) { msg %Gather.Channel $stl((!) $+ %Gather.Color2 %lvl $+ ( $+ %Gather.Color1 $+  $+ %user $+ %Gather.Color2 $+ ) %Gather.Color1 $+ is not allowed to ban $+ %Gather.Color2 %ban-lvl $+ ( $+ %Gather.Color1 $+  $+ %ban-user $+ %Gather.Color2 $+ ) ) }
      else { ssay (!) %lvl $+ ( $+ %user $+ ) is not allowed to ban %ban-lvl $+ ( $+ %ban-user $+ )   }
    }
  }
  else {
    if (%steam) {
      .writeini -n Banned.ini %steam steam %steam
      .writeini -n Banned.ini %steam reason $iif($4-,$4-,no reason)
      .writeini -n Banned.ini %steam at $date
      .writeini -n Banned.ini %steam by $2
      msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Ban $+ %Gather.Color1 $+ > $iif($readini(Stats.ini,%steam,Nick),$v1,no such nick) ( $+ %Gather.Color2 $+ %steam $+ %Gather.Color1 $+ ) Banned by: $+ %Gather.Color2 $2 %Gather.Color1 $+ $chr(44) $+ Reason: $+ %Gather.Color2 $iif($4-,$4-,no reason))
      ssay <Ban> $iif($readini(Stats.ini,%steam,Nick),$v1,no such nick)  ( $+ %steam $+ ) Banned by $2 ,Reason: $iif($4-,$4-,no reason)
      rcmd admin_command admin_ban %steam
    }
  }
}
;/Unban <Steam_ID/Nick> <User> <SSAY/CHAN>
alias Unban {
  var %steam = $stats($1).steam
  var %user = $2
  var %lvl = $acc($2).lvl
  var %ban-user = $readini(Banned.ini,%steam,by)
  var %ban-lvl = $acc(%ban-user).lvl
  var %ban-lvl-num = $replace(%ban-lvl,Manager,4,Owner,3,Master,2,Admin,1)
  var %lvl-num = $replace(%lvl,Manager,4,Owner,3,Master,2,Admin,1)
  if (%lvl-num < %ban-lvl-num) && (%steam) {
    if ($3 == CHAN) msg %Gather.Channel $stl((!) Only $replace(%ban-lvl-num,1,%Gather.Color2 $+ Admins $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Masters $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Owners $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Managers $+ %Gather.Color1,2,%Gather.Color2 $+ Masters $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Owners $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Managers $+ %Gather.Color1,3,%Gather.Color2 $+ Owners $+ %Gather.Color1 $+ \ $+ %Gather.Color2 $+ Managers $+ %Gather.Color1,4,%Gather.Color2 $+ Managers $+ %Gather.Color1) can remove this $+ %Gather.Color2 %steam %Gather.Color1 $+ ban.)
    else ssay (!) Only $replace(%ban-lvl-num,1,Admins\Masters\Owners\Managers,2,Masters\Owners\Managers,3,Owners\Managers,4,Managers) can remove this %steam ban.
    halt
  }
  if (%steam) {
    msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Unban $+ %Gather.Color1 $+ > $iif($readini(Stats.ini,%steam,Nick),$v1,no such nick) ( $+ %Gather.Color2 $+  $+ %steam $+ %Gather.Color1 $+ ) Unbanned by: $+ %Gather.Color2 $2 %Gather.Color1 $+ Reason was: $+ %Gather.Color2 $iif($readini(Banned.ini,%steam,reason),$ifmatch,no reason))
    ssay $iif($readini(Stats.ini,%steam,Nick),$v1,no such nick) ( $+ $2 $+ ) Unbanned by: $2 ,Reason was: $iif($readini(Banned.ini,%steam,reason),$ifmatch,no reason)
    .remini -n Banned.ini %steam
    rcmd admin_command admin_unban %steam
  }
}
alias MR15 {
  rcmd alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  rcmd alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  rcmd alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 800;mr123"
  rcmd alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  rcmd alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  rcmd alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  rcmd mr122k
}
alias MR3 {
  rcmd alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  rcmd alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  rcmd alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 4000;mr123"
  rcmd alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  rcmd alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  rcmd alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  rcmd mr122k
}
alias PRAC {
  RCMD alias prac122k "admin_ignore_immunity 1;default_access 0;Prac1"
  RCMD alias Prac1 "mp_forcecamera 0;mp_forcechasecam 0;mp_c4timer 35;Prac2"
  RCMD alias Prac2 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 16000;Prac3"
  RCMD alias Prac3 "mp_autokick 0;mp_friendlyfire 0;mp_freezetime 0;Prac4"
  RCMD alias Prac4 "mp_roundtime 7;mp_buytime 9;mp_fadetoblack 0;Prac5"
  RCMD alias Prac5 "sv_alltalk 1;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  RCMD prac122k
}
alias SubSearch {
  if ($1 == A) && (%Gather.Status == ON) { .timerSub* off | unset %Gather.Sub | Set %Gather.Sub A | Sub A | .timersuba 0 50 Sub A | ssay Searching For a sub for Team-A }
  if ($1 == B) && (%Gather.Status == ON) { .timerSub* off | unset %Gather.Sub | Set %Gather.Sub B | Sub B | .timersuba 0 50 Sub B | ssay Searching For a sub for Team-B }
  if ($1 == OFF) && (%Gather.Status == ON) && (%Gather.Sub) { .timerSub* off | unset %Gather.Sub | msg %Gather.Channel $stl(Sub Searching has been canceled $iif($2-,by $+ %Gather.Color2 $2-)) | ssay Sub Searching has been canceled $iif($2-,By $2-) }
}
alias SubNotNeed { msg %Gather.Channel $stl(Sub is not needed) }
alias FoundSub {
  if (%Gather.Sub) && (%Gather.Status == ON) && (!$istok(%Gather.Address,$2,32)) && (!$istok(%Gather.Players,$1,32)) && (!$istok(%Gather.Subs,$1,32)) && (!$istok(%Gather.Team-A,$1,32)) && (!$istok(%Gather.Team-B,$1,32)) {
    .timerSub* off
    Set %Gather.Subs $addtok(%Gather.Subs,$1,32) | Set %Gather.Address $addtok(%Gather.Address,$2,32)
    msg %Gather.Channel $stl(Sub has been found: $+ %Gather.Color2 $1)
    ssay Sub has been found for Team- $+ %Gather.Sub - $1
    tsay Sub has been found for Team- $+ %Gather.Sub - $1
    .msg $1 $details(%Gather.Sub)
    Set -u4 %Gather.Flood ON
    unset %Gather.Sub
  }
}
alias ShowScore {
  if (%Gather.Status == OFF) { Gather Status-OFF }
  elseif (%Gather.Status == ON) {
    if (%Gather.Live) { msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Score is $+ %Gather.Color1 - %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Team-A $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $+ $Score.Color(A) $score(a) %Gather.Color1 $+ - %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Team-B $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $+ $Score.Color(B) $score(b) %Gather.Color1 $+ - $+ %Gather.Color2 ( $+ %Gather.Color1 $+  $+ $Score(Half) $+ %Gather.Color2 $+ )) }
    elseif (!%Gather.Live) { msg %Gather.Channel $stl(%Gather.Color2 $+ Score status: $+ %Gather.Color1 $score(notlive)) }
  }
}
;alias Sub2 { if ($1) && ( ($1 == A) || ($1 == B) ) { mode %Gather.Channel +m-N | .timer 1 1 notice %Gather.Channel $stl(Substitute player needed for ( $+ %Gather.Color2 $+ Team- $+ $1 $+ %Gather.Color1 $+ ) playing on $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 ,type %Gather.Sign $+ sub to play NOW $iif(%Gather.Live,( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ),( $+ %Gather.Color2 $+  $+ Not live $+ %Gather.Color1 $+ ))) | .timer 1 2 mode %Gather.Channel -m+N | if (%Gather.Amsg == ON) amsg $stl(Substitute player needed for channel $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ playing on $+ %Gather.Color2 %Gather.Map) } }
alias Sub {
  if ($1) && ( ($1 == A) || ($1 == B) ) {
    mode %Gather.Channel +m-N
    .timer 1 1 notice %Gather.Channel $stl(Sub is needed for $+ %Gather.Color2 Team- $+ $1 $+ $chr(44) %Gather.Color1 $+ Type %Gather.Sign $+ %Gather.Color2 $+ sub $+ %Gather.Color1 to be sub $+ $chr(44) Admin: $+ %Gather.Color2 %Gather.Admin $+ %Gather.Color1 $+ $chr(44) Map: $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $+ $chr(44) $iif(%Gather.Live,Team-A: $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 Team-B: $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $score(Half) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ Game isn't live yet.))
    .timer 1 2 mode %Gather.Channel -m+N
    if (%Gather.Amsg == ON) amsg $stl(Sub is needed on $+ %Gather.Color2 %Gather.Channel)
  }
}
alias ShowUptime { msg %Gather.Channel $stl(%Gather.Color2 $+ mIRC Uptime: $+ %Gather.Color1 $uptime(mirc,1) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color2 $+ System Uptime: $+ %Gather.Color1 $uptime(system,1)) }
alias ShowReason {
  if ($1) {
    if ($stats($1).steam) {
      var %STEAM = $stats($1).steam
      if ($readini(Banned.ini,%STEAM,steam)) {
        msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Ban Reason $+ %Gather.Color1 $+ > $stats(%STEAM).nick ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Banned by: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,by) %Gather.Color1 $+ $chr(44) $+ At: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,at) %Gather.Color1 $+ $chr(44) $+ Reason: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,reason))
      }
      elseif (!$readini(Banned.ini,%STEAM,steam)) { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ reason nickname' or ' $+ %Gather.Sign $+ reason steamid') }
    }
    elseif (!$stats($1).steam) { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ reason nickname' or ' $+ %Gather.Sign $+ reason steamid') }
  }
}
alias End1stHalf {
  if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3First Half Half is OVER 1*** }
  set %Gather.FirstA $Score(a)
  set %Gather.FirstB $Score(b)
  set %Gather.Half First-Second
  set %Gather.ScoreStatus OFF
  msg %Gather.Channel $stl(First half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  ssay First half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  tsay First half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
}
alias End2ndHalf {
  if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Second Half Half is OVER 1*** }
  set %Gather.SecondA $score(anow)
  set %Gather.SecondB $score(bnow)
  set %Gather.Half Second-MR3
  set %Gather.ScoreStatus OFF
  msg %Gather.Channel $stl(Second half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  ssay Second half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  tsay Second half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
}
alias EndMR3Half {
  if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 First Half is OVER 1*** }
  set %Gather.MR3A $score(anow)
  set %Gather.MR3B $score(bnow)
  set %Gather.Half MR3-MR4
  set %Gather.ScoreStatus OFF
  msg %Gather.Channel $stl(MR3 1st half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  ssay MR3.1st half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  tsay MR3.1st half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
}
alias NoLive { rcmd sv_restart 1 | Set %Gather.ScoreStatus OFF | set %Gather.Score-T 0 | Set %Gather.Score-CT 0 }
alias topacers { if (!%Gather.flood) { ;msg %Gather.Channel $stl(Sub is needed for Team-A/B Map %Gather.Map Admin: %Gather.Admin) | ;var %TMN = GetSub for Team A or GetSub for Team B | ;var %SubStatus = SubStatus-ON | var %y $asc($mid(%Gather.Color1,1,1)) $asc($mid(%Gather.Color1,2,1)) | var %z $asc($mid(%Gather.Color2,1,1)) $asc($mid(%Gather.Color2,2,1)) $asc($mid(%Gather.Color2,3,1))  |  var %x $1- | bset &sub 1 $asc(%Gather.Sign) 99 114 101 100 105 116 115 | if (%x == $bvar(&sub,1,100).text) { set -u4 %Gather.flood on | bset &sub 1 67 83 32 71 97 116 104 101 114 98 111 116 32 118 %z 31 56 46 52 31 32 %y 72 97 115 32 98 101 101 110 32 99 114 101 97 116 101 100 32 98 121 %z 32 2 31 86 101 110 116 111 120 31 2 %y | msg %Gather.Channel $stl($bvar(&sub,1,300).text) } | bunset &sub | return on } }
alias ResetScore { rcmd sv_restart 1 | Unset %Gather.First* | unset %Gather.Second* | unset %Gather.MR3* | Set %Gather.ScoreStatus OFF | unset %Gather.Score-* | unset %Gather.Live | Set %Gather.Half Notyet }
alias clr {
  var %CLR.TEMP = $strip($gettok($1,1,34))
  if ($prop == Steam) return $gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)
  elseif ($prop == Steam2) return $gettok($gettok($gettok($gettok($1,3,34),1,34),$calc($numtok($gettok($gettok($1,3,34),1,34),60) -1) $+ - $+ $numtok($gettok($gettok($1,3,34),1,34),60),60),1,62)
  elseif ($prop == Nick) return $remove(%CLR.TEMP,$right(%CLR.TEMP,$calc($len($remove($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),2,62),<)) + $len($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)) + $len($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -2) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)) + 6)))
  elseif ($prop == Said) return $strip($gettok($1,3,34))
  elseif ($Prop == Nick2) Return $remove($gettok($1,3,34),$right($gettok($1,3,34),$calc($len($remove($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),2,62),<)) + $len($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),1,62)) + $len($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -2) $+ - $+ $numtok($gettok($1,3,34),60),60),1,62)) + 6)))
  elseif ($prop == Team) return $remove($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),2,62),<)
  elseif ($prop == Team2) return $remove($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),2,62),<)
  elseif ($prop == num) || ($prop == vote) || ($prop == votenum) return $gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -2) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)
  elseif ($prop == Weapon) || ($prop == Gun) return $gettok($1,5,34)
  Return $gettok($1,2,34)
}
alias SWAP { rcmd admin_quiet 2 | rcmd admin_command admin_execall setinfo "_vgui_menus" "0" | rcmd admin_command admin_execteam 1 chooseteam | rcmd admin_command admin_execteam 1 menuselect 2 | rcmd admin_command admin_execteam 2 chooseteam | rcmd admin_command admin_execteam 2 menuselect 1 }
alias MOVE-T { if ($1) { rcmd admin_quiet 2 | rcmd admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd admin_command admin_execclient $1- chooseteam | rcmd admin_command admin_execclient $1- menuselect 1 } }
alias MOVE-CT { if ($1) { rcmd admin_quiet 2 | rcmd admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd admin_command admin_execclient $1- chooseteam | rcmd admin_command admin_execclient $1- menuselect 2 } }
alias players-no-mix { msg %Gather.Channel $stl(Players are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32)) $+ / $+ $calc(%Gather.MaxTeam * 2) $+ %Gather.Color2 $+ ) $+ %gather.Color1 $GiveA ][ $GiveB) }
alias GiveA { return %Gather.Color1 $+ A: $replace($replace(%Gather.Team-A,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.MaxTeam - $numtok(%Gather.Team-A,32))) }
alias GiveB { return %Gather.Color1 $+ B: $replace($replace(%Gather.Team-B,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.MaxTeam - $numtok(%Gather.Team-B,32))) }
alias CheckMax {
  if ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
    Set -u25 %Gather.Flood ON
    Set %Gather.Status ON
    mode %Gather.Channel +m
    .timer 1 11 mode %Gather.Channel -m
    .timer 1 2 Teams
    .timer 1 4 msg %Gather.Channel $stl(IPs and passwords has now been sent to every subscribed player.)
    .timer 1 3 Send-details
  }
}
alias CheckMix {
  if ($numtok(%Gather.Players,32) == %Gather.Max) {
    Set -u25 %Gather.Flood ON
    Set %Gather.Status ON
    mode %Gather.Channel +m
    .timer 1 1 msg %Gather.Channel $stl(Teams are now randomly selected, Please wait...)
    .timer 1 11 mode %Gather.Channel -m
    MIX %Gather.Players
    .timer 1 2 Teams
    .timer 1 4 msg %Gather.Channel $stl(IPs and passwords has now been sent to every subscribed player.)
    .timer 1 4 Send-details
  }
}
alias ShowServerScore { if (%Gather.Status == ON) { ssay Score is - (Team A): $Score(a) - (Team B): $Score(b) - ( $+ $score(half) $+ ) } }
alias now {
  if (%Gather.Mixing == OFF) { return $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32)) }
  elseif (%Gather.Mixing !== OFF) { return $numtok(%Gather.Players,32) }
}
alias all {
  if (%Gather.Mixing == OFF) { return $calc(%Gather.MaxTeam * 2) }
  elseif (%Gather.Mixing !== OFF) { return %Gather.Max }
}
alias Unbanall {
  Set -u60 %Gather.Flood ON
  msg %Gather.Channel $stl(Delete all bans ( $+ %Gather.Color2 $+  $+ $ini(Banned.ini,0) $+  $+ %Gather.Color1 $+ ) $+ $chr(44) Please wait ...)
  var %x 1, %y 1
  while ($ini(Banned.ini,%x)) {
    .timer 1 %y rcmd admin_command admin_unban $v1
    inc %y 5 | inc %x
  }
  .timer 1 $calc(%y +10) msg %Gather.Channel $stl(Done delete bans.)
}
alias ResetBot {
  if (%Gather.Channel) && ($me ison %Gather.Channel) { part %Gather.Channel | .timer 1 2 join %Gather.Channel | .timer 1 3 msg %Gather.Channel $stl(Gatherbot Has been restarted.) }
  unset %Gather.TK.*
  Set %Gather.Today 0
  Set %Gather.TopNumber 5
  Set %Gather.Status OFF
  Set %Gather.ScoreBot Off
  Set %Gather.UsersSign •
  Set %Gather.Max 10
  if (%Gather.Amsg !== ON) || (%Gather.Amsg !== OFF) Set %Gather.Amsg ON
  Set %Gather.num 0
  Set %Gather.Mixing ON
  Set %Gather.MaxTeam 5
  if (!%Gather.Vent) Set %Gather.Vent Not defined
  if (!%Gather.Server) Set %Gather.Server Not defined
  unset %Gather.Last*
  if (!%Gather.Port) || (%Gather.Port !isnum) Set %Gather.Port 7141
  Set %Gather.Connected OFF
  Set %Gather.Points 1000
  if (%Gather.UsersNick !== OFF) || (%Gather.UsersNick !== ON) { Set %Gather.UsersNick ON }
  unset %Gather.Reconnecting
  unset %Gather.Ready*
  Set %Gather.PlayersChr ?
  unset %Gather.Team*
  unset %Gather.Started
  unset %Gather.Map
  unset %Gather.Admin
  unset %Gather.Banlast
  unset %Gather.Score-T
  unset %Gather.Score-CT
  unset %Gather.ScoreStatus
  unset %Gather.Half
  unset %Gather.Live
  unset %Gather.Second*
  unset %Gather.MR3*
  .timerSub* off
  unset %Gather.Sub
  unset %Gather.Players
  unset %Gather.Subs
  unset %Gather.Address
  unset %Gather.First*
  unset %Gather.Pass
  unset %Gather.PassA
  unset %Gather.PassB
  unset %Gather.AdminUser
  var %x = 1
  while ($ini(Access.ini,%x)) { .writeini -n Access.ini $ifmatch Gathers 0 | .writeini -n Access.ini $ifmatch Today 0 | inc %x }
  if ($exists(Stats.ini)) .remove Stats.ini
  if ($exists(Banned.ini)) .remove Banned.ini
  if ($exists(Kills.ini)) .remove Kills.ini
  .timer 1 1 RCONstart
}
alias ShowAlready { msg %Gather.Channel $stl(Gather Is Already Running. Use $+ %Gather.Color2 %Gather.Sign $+ Status $+ %Gather.Color1 To see the Gather Info) }
alias SetStyle {
  if ($1 == 1) { Set %Gather.Color1 10 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 2) { Set %Gather.Color1 15 | Set %Gather.Color2 5 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 3) { Set %Gather.Color1 15 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 4) { Set %Gather.Color1 15 | Set %Gather.Color2 4 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 5) { Set %Gather.Color1 15 | Set %Gather.Color2 5 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 6) { Set %Gather.Color1 15 | Set %Gather.Color2 12 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 7) { Set %Gather.Color1 15 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 8) { Set %Gather.Color1 0,1 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 9) { Set %Gather.Color1 0,1 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 10) { Set %Gather.Color1 0,1 | Set %Gather.Color2 8 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 11) { Set %Gather.Color1 0,1 | Set %Gather.Color2 11 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  if ($1 == 12) { Set %Gather.Style1 7,1[15«0 | Set %Gather.Style2 15,1»7] | Set %Gather.Color1 0,1 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 13) { Set %Gather.Style1 15,0[10«10 | Set %Gather.Style2 15,010»1015] | Set %Gather.Color1 10 | Set %Gather.Color2 15 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 14) { Set %Gather.Style1 15,0[5«5 | Set %Gather.Style2 15,05»515] | Set %Gather.Color1 5 | Set %Gather.Color2 15 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 15) { Set %Gather.Style1 3,1[15«0 | Set %Gather.Style2 15,1»3] | Set %Gather.Color1 0,1 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 16) { Set %Gather.Style1 4,1[15«0 | Set %Gather.Style2 15,1»4] | Set %Gather.Color1 0,1 | Set %Gather.Color2 4 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 17) { Set %Gather.Style1 8,1[15«0 | Set %Gather.Style2 15,1»8] | Set %Gather.Color1 0,1 | Set %Gather.Color2 8 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  if ($1 == 18) { Set %Gather.Style1 11,1[15«0 | Set %Gather.Style2 15,1»11] | Set %Gather.Color1 0,1 | Set %Gather.Color2 11 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
}

;
;;;;;;;;;;; Menu ;;;;;;;;;;;
;

Menu * {
  Tray { Showmirc -t }
  Update { UpdateDialog }
  Settings
  .Refresh Gatherbot { RCONclose | .timer 1 2 RCONstart }
  .-
  .Set Channel { var %x = $input(Type Channel,e,Type Channel) | if (%x) && ($chr(35) $+ * iswm %x) { Set %Gather.Channel %x } }
  .Set Sign { var %x = $input(Type Sign,e,Type Sign) | if (%x) { Set %Gather.Sign %x } }
  .Set Sign PM { var %x = $input(Type Sign PM,e,Type Sign PM) | if (%x) { Set %Gather.Sign-PM %x } }
  .Set Sign Server { var %x = $input(Type Sign Server,e,Type Sign Server) | if (%x) { Set %Gather.Sign-Server %x } }
  .Set Server IPort { var %x = $input(Type Server IPort,e,Type Server IPort) | if (%x) { Set %Gather.Server %x } }
  .Set Vent IPort { var %x = $input(Type Vent IPort,e,Type Vent IPort) | if (%x) { Set %Gather.Vent %x } }
  .Set Vent Version { var %x = $input(Type Vent Version,e,Type Vent Version) | if (%x) { Set %Gather.Vent-Version %x } }
  .Set RCON Password { var %x = $input(Type RCON Password,e,Type RCON Password) | if (%x) { Set %Gather.RCONpass %x } }
  .Set Port { var %x = $input(Type Port,e,Type Port) | if (%x) && (%x isnum) { Set %Gather.Port %x } }
  .Set Max Players { var %x = $input(Type Max Players,e,Type Max Players) | if (%x) && (%x isnum) { Set %Gather.Max %x } }
  .Set Max Team Players { var %x = $input(Type Max Team Players,e,Type Max Team Players) | if (%x) && (%x isnum) { Set %Gather.MaxTeam %x } }
  .Set Start Points { var %x = $input(Type Start Points,e,Type Start Points) | if (%x) && (%x isnum) { Set %Gather.Points %x } }
  .Set Top Number { var %x = $input(Type Top Number,e,Type Top Number) | if (%x) && (%x isnum) { Set %Gather.TopNumber %x } }
  .Set TAG-A { var %x = $input(Type TAG-A,e,Type TAG-A) | if (%x) { Set %Gather.TAG-A %x } }
  .Set TAG-B { var %x = $input(Type TAG-B,e,Type TAG-B) | if (%x) { Set %Gather.TAG-B %x } }
  .Set Amsg
  ..Turn Amsg ON { Set %Gather.Amsg ON }
  ..Turn Amsg OFF { Set %Gather.Amsg OFF }
  .Set Nick On Users Status
  ..Turn Nick Users ON { Set %Gather.UsersNick ON }
  ..Turn Nick Users OFF { Set %Gather.UsersNick OFF }
  .Set Mixing Teams
  ..Turn Mixing ON { if (%Gather.Status !== Adding) Set %Gather.Mixing ON }
  ..Turn Mixing OFF { if (%Gather.Status !== Adding) Set %Gather.Mixing OFF }
  .Scorebot
  ..Turn Scorebot ON { Set %Gather.Scorebot ON }
  ..Turn Scorebot OFF { Set %Gather.Scorebot OFF }
  ..Set Score Channel { var %x = $input(Type Score Channel,e,Type Score Channel) | if (%x) && ($chr(35) $+ * iswm %x) { Set %Gather.ScoreChannel %x } }
  .Set Last Start notice { var %x = $input(Last start notice?,e,Last start notice?) | if (%x) { Set %Gather.Startnotice %x } }
  .Set TAG
  ..Turn ON { var %x = $input(TAG?,e,TAG?) | if (%x) { Set %Gather.TAG %x } }
  ..Turn OFF { unset %Gather.TAG }
  .Vent Changepass
  ..Status ON/OFF
  ...Turn ON { Set %Gather.VentStatus On }
  ...Turn OFF { Set %Gather.VentStatus Off }
  ..Set Main Room { var %x = $input(Type Main Room,e,Type Main Room) | if (%x) { Set %Gather.MainRoom %x } }
  ..Set Vent RCON { var %x = $input(Type Vent RCON,e,Type Vent RCON) | if (%x) { Set %Gather.VentRCON %x } }
  .-
  .Reset Gatherbot { var %x = $input(Are you sure?,y,Are you sure?) | if (%x == $true) { ResetBot } }

  Set Style
  .Set Color 1 (Main Color) { var %x = $input(Type Color 1 (Main),e,Type Color 1 (Main)) | if (%x) { Set %Gather.Color1 %x } }
  .Set Color 2 (Second Color) { var %x = $input(Type Color 2 (Second),e,Type Color 2 (Second)) | if (%x) { Set %Gather.Color2 %x } }
  .Set Color 3 (Chr Color) { var %x = $input(Type Color 3 (Chr),e,Type Color 3 (Chr)) | if (%x) { Set %Gather.Color3 %x } }
  .Set Style 1 (Style-Side 1) { var %x = $input(Type Style 1 (Style-Side 1),e,Type Style 1 (Style-Side 1)) | if (%x) { Set %Gather.Style1 %x } }
  .Set Style 2 (Style-Side 2) { var %x = $input(Type Style 2 (Style-Side 2),e,Type Style 1 (Style-Side 2)) | if (%x) { Set %Gather.Style2 %x } }
  .Set Players Sign (No color) { var %x = $input(Type Players Sign (No color),e,Type Players Sign (No color)) | if (%x) { Set %Gather.PlayersChr %x } }
  .Set Sign Sign (No color) { var %x = $input(Type Users Sign (No color),e,Type Users Sign (No color)) | if (%x) { Set %Gather.UsersSign %x } }
  .-
  .Main(Orange) - (Blue) { SetStyle 1 }
  .Main(Gray) - (Red) { SetStyle 2 }
  .Main(Gray) - (Red2) { SetStyle 4 }
  .Main(Gray) - (Green) { SetStyle 3 }
  .Main(Gray) - (Blue) { SetStyle 6 }
  .Main(Gray) - (Orange) { SetStyle 7 }
  .Main(BackGround- Black , White) - (Orange) { SetStyle 8 }
  .Main(BackGround- Black , White) - (Green) { SetStyle 9 }
  .Main(BackGround- Black , White) - (Yellow) { SetStyle 10 }
  .Main(BackGround- Black , White) - (Blue 2) { SetStyle 11 }
  .Main(BackGround- Black , White) [« »] - (Orange) { SetStyle 12 }
  .Main(BackGround- Black , White) [« »] - (Green) { SetStyle 15 }
  .Main(BackGround- Black , White) [« »] - (Red) { SetStyle 16 }
  .Main(BackGround- Black , White) [« »] - (Yellow) { SetStyle 17 }
  .Main(BackGround- Black , White) [« »] - (Blue) { SetStyle 18 }
  .Main(Blue2) [« »] - (Gray) { SetStyle 13 }
  .Main(Red2) [« »] - (Gray) { SetStyle 14 }
  Files
  .Open Access File { if ($exists(Access.ini)) run Access.ini }
  .Open Stats File { if ($exists(Stats.ini)) run Stats.ini }
  .Open Banned File { if ($exists(Banned.ini)) run Banned.ini }
  Access
  .Add User {
    :START
    Var %User = $Input(Type Username,e,Type Username)
    if (%User) {
      if ($readini(Access.ini,%User,User)) { echo -a $stl(User %User already used.) | GOTO START }
      else {
        var %Pass = $Input(Type Password,e,Type Password)
        if (%Pass) {
          :STEAM
          var %Steam = $input(Type SteamID,e,Type SteamID)
          if (STEAM_* !iswm %Steam) { echo -a $stl(Wrong SteamID) | GOTO Steam }
          else {
            :Level
            var %Level = $input(Type Level (Admin/Master/Owner/Manager),e,Type Level (Admin/Master/Owner))
            if (%Level == Admin) || (%Level == Master) || (%Level == Owner) || (%Level == Manager) { echo -a $stl(%Level successfully added. (User: $+ %Gather.Color2 %User $+ %Gather.Color1 $+ ) (Pass: $+ %Gather.Color2 %Pass $+ %Gather.Color1 $+ ) (STEAM_ID: $+ %Gather.Color2 %Steam $+ %Gather.Color1 $+ )) | .writeini -n Access.ini %User User %User | .writeini -n Access.ini %User Pass %Pass | .writeini -n Access.ini %User Today 0 | .writeini -n Access.ini %User Steamid %Steam | .writeini -n Access.ini %User Status OFF | .writeini -n Access.ini %User Gathers 0 | .writeini -n Access.ini %User ACC %Level | .writeini -n Access.ini %User Since $date $+ - $+ $time | .writeini -n Access.ini %User By Gatherbot | .writeini -n Access.ini %User LastLogin never }
            elseif (%Level) && (%Level !== Admin) && (%Level !== Master) && (%Level !== Owner) && (%Level !== Manager) { echo -a $stl(Wrong level) | GOTO Level }
          }
        }
      }
    }
  }
  .Remove User {
    :START
    Var %User = $Input(Type Username,e,Type Username)
    if (%User) {
      if (!$readini(Access.ini,%User,User)) { echo -a $stl(User %User Not found.) }
      else { .remini -n Access.ini %User | echo -a $stl(%User successfully removed.) }
    }
  }
  .Clear ALL Users { var %x = $input(Are you sure?,y,Are you sure?) | if (%x == $true) { echo -a $stl(Done) | .remove Access.ini } }
}
alias Reset-Today {
  Set %Gather.LastReset $date
  echo -ts (12Reset-Today1) Reset Today Gathers...
  set %Gather.Today 0
  var %x = 1
  while ($ini(Access.ini,%x)) { .writeini -n Access.ini $ifmatch Today 0 | inc %x }
}
alias StatusCheck {
  var %x = 1
  while ($ini(Access.ini,%x)) {
    if (!$ialchan(* $+ $readini(Access.ini,$ini(Access.ini,%x),Logged),%Gather.Channel,1).nick) { .writeini -n Access.ini $Ini(Access.ini,%x) Status OFF | .remini -n Access.ini $ini(Access.ini,%x) Logged }
    inc %x
  }
}
alias Users {
  if ($prop == logged?) && ($2) {
    var %x = 1
    while ($ini(Access.ini,%x)) {
      if ($readini(Access.ini,$ini(Access.ini,%x),logged) == $1) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $2) { return $ini(Access.ini,%x) }
      inc %x
    }
  }
  if ( ($prop == nick?) || ($prop == nick) ) && ($1) {
    if ($readini(Access.ini,$1,Logged)) { return $ialchan(* $+ $readini(Access.ini,$1,Logged),%Gather.Channel,1).nick }
    else { return No such nickName }
  }
  if ( ($prop == steamid) || ($prop == steam) ) && ($2) {
    var %x = $ini(Access.ini,0)
    while (%x) {
      if ($1 == $readini(Access.ini,$ini(Access.ini,%x),Steamid)) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $2) { return $ini(Access.ini,%x) }
      dec %x
    }
  }
  if ($prop == NUM) && ($2 == ALL) && ($1) {
    var %x 1, %temp
    while ($ini(Access.ini,%x)) {
      if ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp $ini(Access.ini,%x) }
      inc %x
    }
    return $numtok(%temp,32)
  }
  if ($prop == num) && ($2 == ON) && ($1) {
    var %x = 1
    while ($ini(Access.ini,%x)) {
      if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp $ini(Access.ini,%x) }
      inc %x
    }
    return $numtok(%temp,32)
  }
  if (!$prop) && ($1) && (!$2) {
    var %x 1, %tempa
    while ($ini(Access.ini,%x)) {
      ;if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %ON = %ON 3 $+ %Gather.UsersSign $+ $+ %Gather.Color1 $+  $+ $ini(Access.ini,%x) $+ $iif(%Gather.UsersNick == ON,$iif($nick?($Ini(Access.ini,%x)),( $+ %Gather.Color2 $+  $+ $nick?($Ini(Access.ini,%x)) $+ %Gather.Color1 $+ ))) }
      ;if ($readini(Access.ini,$ini(Access.ini,%x),status) == OFF) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %OFF = %OFF 4 $+ %Gather.UsersSign $+ $+ %Gather.Color1 $+  $+ $ini(Access.ini,%x) }
      if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp 3 $+ $ini(Access.ini,%x) $+ %Gather.Color1 $+ $iif(%Gather.UsersNick == ON,$iif($nick?($Ini(Access.ini,%x)),( $+ %Gather.Color2 $+  $+ $nick?($Ini(Access.ini,%x)) $+ %Gather.Color1 $+ ))) }
      if ($readini(Access.ini,$ini(Access.ini,%x),status) == OFF) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp 15 $+ $ini(Access.ini,%x) $+ %Gather.Color1 }

      inc %x
    }
    return %temp
  }
  :END
}
alias Guns {
  if ($1 == AK47) return 1.00
  if ($1 == M4A1) return 1.00
  if ($1 == Famas) return 1.00
  if ($1 == Galil) return 1.00
  if ($1 == AWP) return 1.05
  if ($1 == MP5navy) return 1.25
  if ($1 == Deagle) return 1.50
  if ($1 == Usp) return 1.50
  if ($1 == Glock18) return 1.50
  if ($1 == Grenade) return 1.80
  if ($1 == Aug) return 1.05
  if ($1 == SG552) return 1.05
  if ($1 == MAC10) return 1.25
  if ($1 == P90) return 1.25
  if ($1 == TMP) return 1.25
  if ($1 == UMP45) return 1.25
  if ($1 == G3sg1) return 1.40
  if ($1 == M3) return 1.40
  if ($1 == XM1014) return 1.40
  if ($1 == Elite) return 1.50
  if ($1 == FiveSeven) return 1.50
  if ($1 == P228) return 1.50
  if ($1 == Scout) return 1.60
  if ($1 == SG550) return 1.70
  if ($1 == M249) return 1.80
  if ($1 == Knife) return 2.00
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; End Of Ventox CS 1.6 Gatherbot ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;