;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; ZxoR Gatherbot ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
;  ZxoR Gatherbot Version 2.7  ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
;    Copyright (C) 2011  ZxoR
;
;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 3 of the License, or
;    (at your option) any later version.
;
;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.
;    You can contact the developer via www.mIRCs.co.il (#mIRCs @ Quakenet).

on *:text:*:*: {
  if ($chan == %CS.chan) {
    if ($nick isreg #) && ($cancmd) {
      if (%t.f. [ $+ [ $nick ] ] >= 12) && (!%CS.Flood) {
        set -u60 %CS.Flood ByZxoR
        msg %CS.Chan $stl(?,Text flood has been detected $+ $chr(44) Gatherbot will be locked for ²1 minute¶ for ensure stability.)
        .return 1
      }
      elseif ($me isop #) { inc -u3 %t.f. [ $+ [ $nick ] ] 1 }
    }
    var %CS.temp.bnum = $bnumbsign($mid($1,1,1)),%cn = %CS.Temp.bnum,%usign = $mid($1,1,1)
    if ($1 == ?status) && (!%CS.Flood) {
      var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%buffer,%cur2 = 1
      if (%max == 0) { msg %CS.Chan $stl(?,There are no gatherbots initialized right now.) | return 1 }
      while (%cur <= %max) {
        if (%cur2 == 4) { var %cur2 = 1 | ddecmd say %CS.Chan $stl(?,%buffer) | var %buffer }
        var %gname = $readini(%f,$ini(%f,%cur),Name),%ggn = $ini(%f,%cur),%gstatus = $readini(%f,$ini(%f,%cur),status),%buffer = %buffer ¶ $+ $iif(%cur2 > 1,$(|) $chr(32)) $+ ( $+ %Color [ $+ [ %ggn ] $+ .c2 ] $+ $NGet(%ggn,Sign) $+ ¶) $+ %gname ( $+ $iif($NGet(%ggn,Locked) == 0,$iif(%gstatus == OFF,4OFF,$iif(%gstatus == adding,² $+ $numtok(%CS [ $+ [ %ggn ] $+ .adding ],32) $+ ¶/² $+ $NGet(%ggn,MaxPlayers),3ON) $+ ¶ $+ $chr(211) $+ %Color [ $+ [ %ggn ] $+ .c2 ] $+ %CS [ $+ [ %ggn ] $+ .Map ]),4Locked¶) $+ ¶)
        inc %cur
        inc %cur2
      }
      ddecmd say # $stl(?,%buffer)
      set -u3 %CS.Flood ByZxoR
    }
    if (%usign == ?) && (!%CS.Flood) && ($cancmd) {
      if ($1 == ?club) && ($2 isnum) && ($2 <= $ini(Clubs.ini,0)) && ($2 >= 1) && (!%CS.Flood) {
        unset %CS.Club [ $+ [ $2 ] $+ .players ]
        set -u3 %CS.Flood ByZxoR
        if ($CGet($2,game) == CS) crcmd $2 users
        elseif ($CGet($2,game) == TF2) crcmd $2 status
        .timer -m 1 50 chl $2 full
      }
      elseif ($1 == ?clubs) && (!%CS.BigFlood) && (!%CS.Flood) {
        set -u10 %CS.BigFlood ByZxoR
        set -u4 %CS.Flood ByZxoR
        var %cur = 1,%tcur = 1,%max = $ini(clubs.ini,0)
        if (%max < 1) { msg %CS.Chan $stl(?,There are no clubs right now.) | return 1 }
        mode %CS.Chan m
        while (%cur <= %max) {
          .timer 1 %tcur /CHL %cur
          inc %cur
          inc %tcur 3
        }
        .timer 1 %tcur /mode %CS.Chan -m
      }
      elseif ($1 == ?cmds) || ($1 == ?commands) || ($1 == ?help) {
        set -u3 %CS.Flood ByZxoR
        msg %CS.Chan $stl(?,Gatherbot Commands: $+(²,%usign,¶status) $+(²,%usign,¶gathers) $+(²,%usign,¶clubs) $+(²,%usign,¶club <number>) $+(²,%usign,¶score) $+(²,%usign,¶server) $+(²,%usign,¶Vent/TeamSpeak))
      }
      elseif ($1 == ?gathers) || ($1 == ?today) {
        var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%buffer,%cur2 = 1,%temp.total = 0
        if (%max == 0) { msg %CS.Chan $stl(?,There is no gatherbots right now.) | return 1 }
        while (%cur <= %max) {
          var %ggn = $ini(%f,%cur)
          inc %temp.total $NGET(%ggn,Today)
          inc %cur
        }
        msg # $stl(?,¶Total games for today:² %temp.total $+ ¶.)
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == ?score) {
        var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%buffer,%cur2 = 1
        if (%max == 0) { msg %CS.Chan $stl(?,There is no gatherbots right now.) | return 1 }
        while (%cur <= %max) {
          if (%cur2 = 6) { ddecmd say %CS.Chan $stl(?,%buffer) | var %buffer,%cur2 = 1 }
          var %gname = $readini(%f,$ini(%f,%cur),Name)
          var %ggn = $ini(%f,%cur)
          var %gstatus = $readini(%f,$ini(%f,%cur),status)
          if ($NGet(%ggn,Game) == CS) {
            var %buffer = %buffer ¶ $+ $iif(%cur2 > 1,$(|) $chr(32)) $+ %gname ( $+ $iif($NGet(%ggn,Locked) == 0,$iif(%gstatus == OFF,4OFF,² $+ $iif( %CS [ $+ [ %ggn ] $+ .Half ] == NotYet,%Color [ $+ [ %ggn ] $+ .c2 ] $+ Not Live¶,$teamcolor(a,$teamscore(a,%cur),%cur) $+ ¶-² $+ $teamcolor(b,$teamscore(b,%cur),%cur))),4Locked¶) $+ ¶)
          }
          elseif ($NGet(%ggn,Game) == TF2) {
            var %buffer = %buffer ¶ $+ $iif(%cur2 > 1,$(|) $chr(32)) $+ %gname ( $+ $iif($NGet(%ggn,Locked) == 0,$iif(%gstatus == OFF,4OFF,² $+ $iif(!%CS [ $+ [ %ggn ] $+ .Live ],%Color [ $+ [ %ggn ] $+ .c2 ] $+ Not Live¶,   $iif($Nget(%ggn,Type) == CTF,$+(04,%CS [ $+ [ %ggn ] $+ .red ],¶-12,%CS [ $+ [ %ggn ] $+ .blue ]),²N¶/²A))),4Locked¶) $+ ¶)
          }
          inc %cur
          inc %cur2
        }
        ddecmd say # $stl(?,%buffer)
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == ?server) || ($1 == ?servers) || ($1 == ?ip) {
        var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%buffer,%cur2 = 1
        if (%max == 0) { msg %CS.Chan $stl(?,There is no gatherbots right now.) | return 1 }
        while (%cur <= %max) {
          if (%cur2 == 4) { ddecmd say # $stl(?,%buffer) | var %buffer,%cur2 = 1 }
          var %gname = $readini(%f,$ini(%f,%cur),Name)
          var %ggn = $ini(%f,%cur)
          var %gstatus = $readini(%f,$ini(%f,%cur),status)
          var %buffer = %buffer ¶ $+ $iif(%cur2 > 1,$(|) $chr(32)) $+ %Color [ $+ [ %ggn ] $+ .C2 ] $+ %gname (¶ $+ %Color [ $+ [ %ggn ] $+ .C1 ] $+ $iif($NGet(%ggn,Locked) == 0,$NGet(%ggn,IP),Locked) $+ %Color [ $+ [ %ggn ] $+ .C2 ] $+ )¶
          inc %cur
          inc %cur2
        }
        ddecmd say # $stl(?,%buffer)
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == ?vent) || ($1 == ?vents) || ($1 == ?ts) || ($1 == ?teamspeaks) || ($1 == ?teamspeak) {
        var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%buffer,%cur2 = 1
        if (%max == 0) { msg %CS.Chan $stl(?,There is no gatherbots right now.) | return 1 }
        while (%cur <= %max) {
          if (%cur2 == 4) { msg # $stl(?,%buffer) | var %buffer,%cur2 = 1 }
          var %gname = $readini(%f,$ini(%f,%cur),Name)
          var %ggn = $ini(%f,%cur)
          var %gstatus = $readini(%f,$ini(%f,%cur),status)
          var %gtype = $iif($NGet(%ggn,TS-Selected),10TS¶,14VENT¶)
          var %buffer = %buffer ¶ $+ $iif(%cur2 > 1,$(|) $chr(32)) $+ %Color [ $+ [ %ggn ] $+ .C2 ] $+ %gname (¶ $+ %Color [ $+ [ %ggn ] $+ .C1 ] $+ $iif($NGet(%ggn,Locked) == 0,$iif($NGet(%ggn,TS-Selected),$NGet(%ggn,TS-Ip),$NGet(%ggn,V-Ip)) $+ $chr(91) $+  $+ %gtype $+  $+ $chr(93),Locked) $+ %Color [ $+ [ %ggn ] $+ .C2 ] $+ )¶
          inc %cur
          inc %cur2
        }
        msg # $stl(?,%buffer)
        set -u3 %CS.Flood ByZxoR
      }
    }
    if (%CS.Temp.bnum > 0) {
      tokenize 32 $remove($strip($mid($1-,2)),²,¶)
      if ($1 == Players) && (!%CS.Flood) { set -u3 %CS.Flood ByZxoR | csplayers %CS.Temp.bnum }
      elseif ($1 == status) && (!%CS.Flood) {
        if ($NGet(%CS.Temp.Bnum,Locked) == 1) { msg # $stl(%cn,$NGet(%CS.Temp.bnum,Name) is temporarily locked.) | return 1 }
        if ($NGet(%CS.Temp.bnum,status) == OFF) { msg # $stl(%cn,$NGet(%CS.Temp.bnum,Name) is offline. $iif($NGET(%cn,Number) > 0,The last gather (² $+ $ord($NGET(%cn,Number)) $+ ¶) was² $overtime($gettok($NGet(%cn,Last),1,32)) ago¶ $+ $chr(44) Agent:² $gettok($NGet(%cn,Last),2,32) $+ ¶ $+ $chr(44) Map:² $gettok($NGet(%cn,Last),3,32) $+ ¶.)) }
        elseif ($NGet(%CS.Temp.bnum,status) == Adding) { msg # $stl(%cn,$NGet(%CS.Temp.bnum,Name) looking for players already² $overtime(%CS [ $+ [ %CS.Temp.bnum ] $+ .ctime ]) $+ ¶.) }
        elseif ($NGet(%CS.Temp.bnum,status) == ON) {
          msg # $stl(%cn,$NGet(%CS.Temp.bnum,Name) is 3ON¶ since² $asctime(%CS [ $+ [ 1 ] $+ .ctime ],HH:nn:ss) ( $+ $overtime(%CS [ $+ [ %CS.Temp.bnum ] $+ .ctime ]) ago) $+ ¶ $+ $chr(44) Agent:² %CS [ $+ [ %CS.Temp.bnum ] $+ .Admin ] $+ ¶ $+ $chr(44) $iif($NGet(%cn,Game) != TF2,$iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Half ] == NotYet,Game isn't live yet,Score: ² $+ $teamscore(a,%cn) $+ ¶-² $+ $teamscore(b,%cn)),$iif(%CS [ $+ [ %cn ] $+ .Live ] == ON,Score: 04RED¶( $+ %CS [ $+ [ %cn ] $+ .RED ] $+ ) 12BLUE¶( $+ %CS [ $+ [ %cn ] $+ .Blue ] $+ ),Game isn't live yet)) $+ ¶.)
          if ($NGet(%cn,isHLTV) == 1) && ($nget(%cn,usetv)) { msg # $stl(%cn,$NGet(%cn,Name) HLTV Server:² $NGet(%cn,HLTV)) }
          elseif ($NGet(%cn,issourcetv) == 1) && ($nget(%cn,usetv)) { msg # $stl(%cn,$NGet(%cn,Name) SourceTV Server:² $NGet(%cn,sourceTV)) }
        }
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == help) || ($1 == commands) || ($1 == cmds) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        msg %CS.Chan $stl(%cn,² $+ $NGet(%cn,Name) ¶Commands: $+(²,%usign,¶status) $+(²,%usign,¶server) $+(²,%usign,¶,$iif($NGet(%cn,TS-Selected),teamspeak,vent)) $iif($Nget(%cn,usetv),$+(²,%usign,¶,$iif($Nget(%cn,isHLTV),HLTV,sourceTV))) $+(²,%usign,¶teams) $+(²,%usign,¶requestmap) $+(²,%usign,¶today) $+(²,%usign,¶rank) $+(²,%usign,¶agent) $+(²,%usign,¶top))
      }
      elseif ($1 == last) && (!%CS.Flood) && ($cancmd) && (!%CS [ $+ [ %cn ] $+ .live ]) {
        if ($NGET(%cn,Number) > 0) { msg # $stl(%cn,The last gather (² $+ $ord($NGET(%cn,Number)) $+ ¶) was² $overtime($gettok($NGet(%cn,Last),1,32)) ago¶ $+ $chr(44) Agent:² $gettok($NGet(%cn,Last),2,32) $+ ¶ $+ $chr(44) Map:² $gettok($NGet(%cn,Last),3,32) $+ ¶.) }
        else { msg # $stl(%cn,$NGet(%cn,Name) has never played before.) }
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == ban) && ($userbyhost($address($nick,2))) {
        if (!$secure($2-)) { return 1 }
        if ($3) {
          if ($issteam($2)) {
            if ($isban($2)) { msg # $stl(?,$2 is already banned.) | return 1 }
            if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-ban)) { msg # $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
            addban $2  $nick  $3  $4-
          }
          else {
            if ($steambynick($2)) { var %sid = $v1 }
            else { msg # $stl(?,Unknown steam $+ $chr(44) Use: %usign $+ $1 <Steam_ID> <time> [reason]) | return 1 }
            if ($isban(%sid)) { msg # $stl(?,%sid is already banned.) | return 1 }
            if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-ban)) { msg # $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
            addban %sid  $nick  $3  $4-
          }
          else { msg # $stl(?,Unknown steam, use $1 <Steam_ID> <duration> [reason]) }
        }
        else { msg # $stl(?,Ban syntax error. Use /msg $me !BanHelp) }
      }
      elseif ($1 == hltv) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%cn,locked)) { msg %CS.chan $stl(%cn,² $+ $Nget(%cn,Name) ¶is locked.) | return 1 }
        if ($NGet(%cn,isHLTV)) && ($nget(%cn,useTV)) { hltv %cn }
        elseif ($Nget(%cn,issourcetv)) { msg # $stl(%cn,$NGet(%cn,Name) is using sourceTV $+ $chr(44) Use: ² $+ %usign $+ srcTV¶.) }
        else { msg # $stl(%cn,$NGet(%cn,Name) HLTV Server is not available.) }
      }
      elseif ($1 == srctv) || ($1 == sourcetv) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%cn,locked)) { msg %CS.chan $stl(%cn,² $+ $Nget(%cn,Name) ¶is locked.) | return 1 }
        if ($NGet(%cn,issourcetv)) && ($nget(%cn,useTV)) { hltv %cn }
        elseif ($Nget(%cn,ishltv)) { msg # $stl(%cn,$NGet(%cn,Name) is using HLTV $+ $chr(44) Use: ² $+ %usign $+ HLTV¶.) }
        else { msg # $stl(%cn,$NGet(%cn,Name) SourceTV Server is not available.) }
      }
      elseif ($1 == unban) && ($userbyhost($address($nick,2))) {
        if ($regex($2,/STEAM_\d:\d:\d+/i)) {
          if (!$isban($2)) { msg # $stl(?,¶ $+ $2 is not banned.) | return 1 }
          delban $2
        }
        else {
          if ($steambynick($2)) { var %sid = $v1 }
          else { msg # $stl(?,Unknown steam, use $ServerSyntax(Unban) <Steam_ID>) | return 1 }
          if (!$isban(%sid)) { msg # $stl(?,%sid is not banned.) | return 1 }
          delban %sid
        }
        else { msg # $stl(?,Unknown steam, use $ServerSyntax(Unban) <Steam_ID>) }
      }
      elseif ($1 == version) && (!%CS.flood) {
        describe # is using Gatherbot version 2.7 [mIRC $version $+ ].
        set -u3 %CS.Flood ByZxoR
      }
      elseif (($1 == add) || ($1 == $+($chr(249),$chr(226),$chr(226)))) && (!%CS.AddFlood) {
        if ($NGet(%CS.Temp.bnum,status) == adding) {
          if ($istok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],$nick,32)) { return 1 }
          set %CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ] $addtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],$nick,32)
          if ($numtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],32) >= $NGet(%CS.Temp.bnum,MaxPlayers)) && ($NGet(%cn,AutoMix) == 1) { mixing %CS.Temp.Bnum }
          elseif (!%CS.Flood2) { csplayers %cn | set -u15 %CS.Flood2 ByZxoR }
        }
        elseif (!%CS.Flood) { msg # $stl(%cn,$NGet(%CS.Temp.bnum,Name) is not looking for players right now.) | set -u5 %CS.Flood ByZxoR }
      }
      elseif ($1 == rstart) && ($NGet(%cn,AutoMix) == 0) && ($userbyhost($address($nick,2))) {
        if ($numtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],32) >= $NGet(%CS.Temp.bnum,MaxPlayers)) { mixing %CS.Temp.Bnum }
      }
      elseif ($1 == Teams) && ($cancmd) && (!%CS.Flood) {
        if ($NGet(%CS.Temp.BNum,Status) == ON) {
          if ($NGet(%cn,Game) == CS) {
            msg # $stl(%cn,² $+ $NGet(%cn,Name) ¶Team-A: $replace($fix32(%CS [ $+ [ %CS.Temp.Bnum ] $+ .TeamA ],%cn),²,¶) $+ .)
            msg # $stl(%cn,² $+ $NGet(%cn,Name) ¶Team-B: $replace($fix32(%CS [ $+ [ %CS.Temp.Bnum ] $+ .TeamB ],%cn),²,¶) $+ .)
          }
          elseif ($NGet(%cn,Game) == TF2) {
            msg # $stl(%cn,² $+ $NGet(%cn,Name) 04RED¶: $replace($fix32($remtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .TeamA ],%CS [ $+ [ %CS.Temp.Bnum ] $+ .AMedic ],32),%cn),²,¶) $+ . 04MEDIC¶: %CS [ $+ [ %CS.Temp.Bnum ] $+ .AMedic ] $+ .)
            msg # $stl(%cn,² $+ $NGet(%cn,Name) 12BLUE¶: $replace($fix32($remtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .TeamB ],%CS [ $+ [ %CS.Temp.Bnum ] $+ .BMedic ],32),%cn),²,¶) $+ . 12MEDIC¶: %CS [ $+ [ %CS.Temp.Bnum ] $+ .BMedic ] $+ .)
          }
          if (%CS [ $+ [ %CS.temp.bnum ] $+ .TeamSubs ]) { msg # $stl(%cn,² $+ $NGet(%cn,Name) ²Subs¶: $replace($fix32(%CS [ $+ [ %CS.Temp.Bnum ] $+ .TeamSUBS ],%cn),²,¶) $+ .) }
          set -u3 %CS.Flood ByZxoR
          return 1
        }
        msg # $stl(%cn,$NGet(%CS.Temp.BNum,Name) is offline.)
      }
      elseif ($1 == requestmap) && ($cancmd) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%cn,locked)) { msg %CS.chan $stl(%cn,² $+ $Nget(%cn,Name) ¶is locked.) | return 1 }
        if (!$2) {
          if (%CS.Temp.req. [ $+ [ $wildsite ] ]) { msg %CS.Chan $stl(%cn,The current² $NGet(%cn,Name) ¶requested map is: ² $+ $gettok(%CS.Temp.req. [ $+ [ $wildsite ] ],1,32) $+ ¶.) }
          else { msg %CS.Chan $stl(?,Syntax: %usign $+ requestmap <map> - With this command you can request map from the admins $+ $chr(44) you can do it once a while. When admin will run gather with random map $+ $chr(44) it will automaticly select your requested map.) }
          return 1
        }
        if (!$canrun(%cn)) { msg %CS.Chan $stl(%cn,You cannot request map right now.) | return 1 }
        if (%CS [ $+ [ %cn ] $+ .requestmap ]) { msg %CS.Chan $stl(%cn,You cannot request any map right now because theres another request available ( $+  $+ ).) | return 1 }
        if (%CS.Temp.req. [ $+ [ $wildsite ] ]) { msg %CS.Chan $stl(%cn,You have already request a map in² $gettok(%CS.Temp.req. [ $+ [ $wildsite ] ],2-,32) ¶(² $+ $gettok(%CS.Temp.req. [ $+ [ $wildsite ] ],1,32) $+ ¶).) | return 1 }
        if ($secure($2)) {
          set -u300 %CS [ $+ [ %cn ] $+ .requestmap ] $remove($lower($2),|,%,$)
          set -u300 %CS.Temp.req. [ $+ [ $wildsite ] ] $remove($lower($2),|,%,$) $Nget(%cn,name)
          msg %CS.Chan $stl(%cn,The map² $2 ¶requested by² $nick ¶and available as² $NGet(%cn,Name) ¶default map for ²5 minutes¶.)
        }
      }
      elseif ($1 == uptime) && (!%CS.Flood) { msg %CS.Chan $stl(%cn,My computer is on and I connected already from² $asctime($calc($ctime - $duration($uptime(system,2))),dd/mm/yyyy HH:nn:ss) ¶thats was² $expandtime($uptime(system,2)) ago¶.) | set -u3 %CS.Flood ByZxoR }
      elseif ($1 == today) && ($cancmd) && (!%CS.Flood) { msg %CS.Chan $stl(%cn,² $+ $NGet(%cn,Name) ¶Today's Gathers:² $NGET(%cn,Today) $+ ¶.) | set -u3 %CS.Flood ByZxoR }
      elseif ($1 == Server) || ($1 == IP) && ($cancmd) && (!%CS.Flood) { hl %CS.Temp.BNum | set -u4 %CS.Flood ByZxoR }
      elseif ($1 == Sub) && ($NGet(%cn,Status) == ON) {
        if (!$2) {
          if ($istok(%CS [ $+ [ %CS.temp.bnum ] $+ .TeamA ],$nick,32)) || ($istok(%CS [ $+ [ %CS.temp.bnum ] $+ .TeamB ],$nick,32)) || ($istok(%CS [ $+ [ %CS.temp.bnum ] $+ .TeamSubs ],$nick,32)) { return 1 }
          if (!%CS [ $+ [ %Cs.temp.bnum ] $+ .Sub ]) { msg # $stl(%cn,Substitute player for² $NGet(%cn,Name) ¶is not needed.) | set -u3 %CS.Flood ByZxoR | return 1 }
          msg # $stl(%cn,Substitute player For $iif($NGet(%cn,Game) != TF2,Team- $+ $upper(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]),$iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ] == A,the 04RED¶ team,the 12BLUE¶ team)) has been found:² $nick ¶- Details are now sent to you.)
          details %CS.Temp.bnum $nick %CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]
          ssay %cn Substitute player For $iif($NGet(%cn,Game) != TF2,Team- $+ $upper(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]),$iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ] == A,the RED team,the BLUE team)) has been found: $nick
          tsay %cn Substitute player For Team- $+ $upper(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]) has been found: $nick
          set %CS [ $+ [ %CS.temp.bnum ] $+ .TeamSubs ] $addtok(%CS [ $+ [ %CS.temp.bnum ] $+ .TeamSubs ],$nick,32)
          .timersubmsg [ $+ [ %CS.temp.bnum ] ] off
          unset %CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]
        }
        elseif ($2) && ($userbyhost($address($nick,2))) {
          if (($2 == A) || ($2 == B)) && ($NGet(%cn,Game) == CS) { subsearch %cn $2 }
          elseif (($2 == RED) || (Blu* iswm $2)) && ($NGet(%cn,Game) == TF2) { subsearch %cn $iif($2 == RED,A,B) }
          elseif ($2 == off) {
            if (!%CS [ $+ [ %Cs.temp.bnum ] $+ .Sub ]) { return 1 }
            msg # $stl(%cn,Substitute searching For $iif($NGet(%cn,Game) != TF2,Team- $+ $upper(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]),$iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ] == A,the 04RED¶ team,the 12BLUE¶ team)) has been canceled.)
            .timersubmsg [ $+ [ %CS.temp.bnum ] ] off
            unset %CS [ $+ [ %CS.Temp.bnum ] $+ .Sub ]
          }
        }
      }
      elseif ($1 == Rank) && ($cancmd) && (!%CS.Flood) {
        if (!$secure($2-)) { return 1 }
        set -u3 %CS.Flood ByZxoR
        var %usr $iif($mid($2,1,1) != $chr(35),$iif($fline(@Rank-Points,* $+ $iif($2,$2-,$nick) $+ *),$v1,-1),$iif($mid($2,2) isnum,$iif($$mid($2,2) <= $line(@Rank-Points,0),$iif($mid($2,2) > 0,$mid($2,2),1),$line(@Rank-Points,0)),-2))
        if (%usr == -1) { msg # $stl(?,' $+ $iif($2,$v1,$nick) $+ ' was not found on the ranking list.) | return 1 }
        if (%usr == -2) { msg # $stl(?,Error has occurred while rank checking.) | return 1 }
        var %rewards = $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),rewards),$v1,0)
        ddecmd say # $stl(?,² $+ $gettok($line(@Rank-Points,%usr),2,92) ¶(² $+ $gettok($line(@Rank-Points,%usr),1,92) $+ ¶)( $+ $accessbyseam($gettok($line(@Rank-Points,%usr),1,92)) $+ ) Rank:² $comparesign($gettok($line(@Rank-Points,%usr),1,92)) $+ %usr $+ / $+ $line(@Rank-Points,0) ¶Points:² $gettok($line(@Rank-Points,%usr),3,92) ¶MVPs:² $iif($readini(Stats.ini,$gettok($line(@Rank-Points,%usr),1,92),MVPs),$v1,0) ¶Rewards:² $+($round($calc((%rewards /40)*100),2),%) $+ $iif(%stats.state == 1,¶ Full Statistics:² $+(http://,%stats.site,/,%stats.pinfo,?uid=,$suserid($gettok($line(@Rank-Points,%usr),1,92)))) $+ ¶.)
      }
      elseif (($1 == rewards) || ($1 == achievements) || ($1 == stats)) && ($cancmd) && (!%CS.Flood) && ($NGet(%cn,Game) == CS) {
        if (!$secure($2-)) { return 1 }
        set -u5 %CS.Flood ByZxoR
        var %usr $iif($mid($2,1,1) != $chr(35),$iif($fline(@Rank-Points,* $+ $iif($2,$2-,$nick) $+ *),$v1,-1),$iif($mid($2,2) isnum,$iif($$mid($2,2) <= $line(@Rank-Points,0),$iif($mid($2,2) > 0,$mid($2,2),1),$line(@Rank-Points,0)),-2))
        if (%usr == -1) { msg # $stl(?,' $+ $iif($2,$v1,$nick) $+ ' was not found on the ranking list.) | return 1 }
        if (%usr == -2) { msg # $stl(?,Error has occurred while rank checking.) | return 1 }
        var %rewards = $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),rewards),$v1,0)
        ddecmd say %CS.Chan $stl(?,² $+ $gettok($line(@Rank-Points,%usr),2,92) ¶(² $+ $gettok($line(@Rank-Points,%usr),1,92) $+ ¶)( $+ $accessbyseam($gettok($line(@Rank-Points,%usr),1,92)) $+ ) ¶got² %rewards ¶achievements $+ $chr(44) which constitute² $+($round($calc((%rewards / 40)*100),2),%) ¶of total achievements.)
        ddecmd say %CS.Chan $stl(?,Kills:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),kills),$v1,0) ¶Deaths:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),deaths),$v1,0) ¶Rifles:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),aims),$v1,0) ¶Stabs:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),knife),$v1,0) ¶Grenades:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),grenade),$v1,0))
        ddecmd say %CS.Chan $stl(?,¶Shotguns:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),shotguns),$v1,0) ¶Plants:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),plants),$v1,0) ¶Defuses:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),defuses),$v1,0) ¶TKs:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),Tks),$v1,0) ¶Total games done:² $iif($readini(stats.ini,$gettok($line(@Rank-Points,%usr),1,92),gathers),$v1,0))
      }
      elseif (($1 == MVPs) || ($1 == MVP)) && ($cancmd) && (!%CS.Flood) {
        if (!$secure($2-)) { return 1 }
        set -u3 %CS.Flood ByZxoR
        var %usr $iif($mid($2,1,1) != $chr(35),$iif($fline(@Rank-MVPS,* $+ $iif($2,$2-,$nick) $+ *),$v1,-1),$iif($mid($2,2) isnum,$iif($$mid($2,2) <= $line(@Rank-MVPs,0),$iif($mid($2,2) > 0,$mid($2,2),1),$line(@Rank-MVPs,0)),-2))
        if (%usr == -1) { ddecmd say # $stl(?,$iif($2,$v1,$nick) is not in the MVPs list.) | return 1 }
        if (%usr == -2) { ddecmd say # $stl(?,Error has occurred while MVP checking.) | return 1 }
        ddecmd say # $stl(?,² $+ $gettok($line(@Rank-MVPs,%usr),2,92) ¶(² $+ $gettok($line(@Rank-MVPs,%usr),1,92) $+ ¶) ¶has accumulate²  $+ $gettok($line(@Rank-MVPs,%usr),3,92) $+ ¶ MVPs and ranked  $+ %usr $+ / $+ $line(@Rank-MVPs,0) $+  on the top MVPs list.)
      }
      elseif ($1 == Agent) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%CS.temp.bnum,Status) != OFF) {
          msg # $stl(%cn,$NGet(%CS.temp.bnum,Name) Agent:² %CS [ $+ [ %CS.Temp.bnum ] $+ .Admin ] $+ ¶.)
        }
      }
      elseif ($1 == Refresh) && (($userbyhost($address($nick,2)) == Owner) || ($userbyhost($address($nick,2)) == Master)) {
        if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-refresh)) { msg # $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
        if (!$2) { .timerrefresh 1 120 /unset %CS.Passkey $(|) msg # $stl(?,Gatherbot refreshing has been faild.) | set %CS.Passkey $r(a,z) $+ $r(A,Z) $+ $r(1,9) $+ $r(A,Z) $+ $r(1,88) $+ $r(a,z) | msg # $stl(?,Are you sure you want to refresh gatherbot? Use the generated passkey: $NGet(%cn,Sign) $+ $lower($1) %CS.Passkey)  }
        else { if ($2 == %CS.Passkey) { set %CS.Flood REFRESHING | mode # m | msg # $stl(?,Please wait...) | retryrcons | updatelist quiet | msg # $stl(?,Gatherbot has been refreshed.) | unset %CS.Passkey | .timerrefresh off | mode # -m | .timerunsetfloodrefresh 1 3 /unset %CS.Flood } | elseif (%CS.Passkey) { msg # $stl(?,Wrong Passkey!) } }
      }
      elseif ($1 == top) && ($cancmd) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($line(@Rank-Points,0) == 0) { msg %CS.Chan $stl(?,There is no enough players to use TOP command.) | return 1 }
        if ($2 == players) {
          if (%stats.state == 1) { msg # $stl(?,Top players List: $+(http://,%stats.site,/,%stats.plist,?sort=points&to=50)) | return 1 }
          var %cur = 1,%max = 5,%buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -Players ] ¶Out Of² $line(@Rank-Points,0) ¶known Players:)
          while (%cur <= %max) {
            if ($line(@Rank-Points,%cur)) {
              var %stid = $gettok($v1,1,92)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶), Points:² $gettok($v1,3,92) $+ ¶, Kills:² $iif($readini(Stats.ini,$gettok($v1,1,92),Kills),$v1,0) $+ ¶, Deaths:² $iif($readini(Stats.ini,%stid, deaths ),$v1,0) $+ ¶.)
            }
            inc %cur
          }
        }
        elseif ($2 == Plants) {
          if ($NGet(%cn,Game) == TF2) { msg %CS.Chan $stl(?,Top Plants is not available for ²Team-Fortress¶.) | return 0 }
          var %cur = 1
          var %max = 5
          var %buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -Planters ] ¶Out Of² $line(@Rank-Plants,0) ¶known Planters:)
          while (%cur <= %max) {
            if ($line(@Rank-Plants,%cur)) {
              var %stid = $gettok($v1,1,92)
              var %vline = $line(@Rank-Plants,%cur)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶) Plants:² $gettok(%vline,3,92) Points:² $iif($readini(Stats.ini,$gettok($v1,1,92),Points),$v1,0))
            }
            inc %cur
          }
        }
        elseif ($2 == mvps) {
          if (%stats.state == 1) { msg # $stl(?,Top MVPs players List: $+(http://,%stats.site,/,%stats.plist,?sort=mvps&to=10)) | return 1 }
          var %cur = 1
          var %max = 5
          var %buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -MVPs ] ¶Out Of² $line(@Rank-mvps,0) ¶known Players:)
          while (%cur <= %max) {
            if ($line(@Rank-mvps,%cur)) {
              var %stid = $gettok($v1,1,92)
              var %vline = $line(@Rank-mvps,%cur)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶) MVPs:² $gettok(%vline,3,92) Points:² $iif($readini(Stats.ini,$gettok($v1,1,92),Points),$v1,0))
            }
            inc %cur
          }
        }
        elseif ($2 == Aces) {
          if ($NGet(%cn,Game) == TF2) { msg %CS.Chan $stl(?,Top ACEs is not available for ²Team-Fortress¶.) | return 0 }
          var %cur = 1
          var %max = 5
          var %buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -Aces ] ¶Out Of² $line(@Rank-aces,0) ¶known Acers:)
          while (%cur <= %max) {
            if ($line(@Rank-aces,%cur)) {
              var %stid = $gettok($v1,1,92)
              var %vline = $line(@Rank-aces,%cur)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶) ACEs:² $gettok(%vline,3,92) Points:² $iif($readini(Stats.ini,$gettok($v1,1,92),Points),$v1,0))
            }
            inc %cur
          }
        }
        elseif ($2 == Kills) {
          if (%stats.state == 1) { msg # $stl(?,Top kills List: $+(http://,%stats.site,/,%stats.plist,?sort=nkills&to=10)) | return 1 }
          var %cur = 1
          var %max = 5
          var %buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -Kills ] ¶Out Of² $line(@Rank-kills,0) ¶known Killers:)
          while (%cur <= %max) {
            if ($line(@Rank-kills,%cur)) {
              var %stid = $gettok($v1,1,92)
              var %vline = $line(@Rank-kills,%cur)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶) Kills:² $gettok(%vline,3,92) Points:² $iif($readini(Stats.ini,$gettok($v1,1,92),Points),$v1,0))
            }
            inc %cur
          }
        }
        elseif ($2 == Deaths) {
          if (%stats.state == 1) { msg # $stl(?,Top deaths List: $+(http://,%stats.site,/,%stats.plist,?sort=deaths&to=10)) | return 1 }
          var %cur = 1
          var %max = 5
          var %buffer
          ddecmd say %CS.Chan $stl(?,The² Top [ $+ [ %max ] $+ -Deaths ] ¶Out Of² $line(@Rank-deaths,0) ¶known noobs:)
          while (%cur <= %max) {
            if ($line(@Rank-Deaths,%cur)) {
              var %stid = $gettok($v1,1,92)
              var %vline = $line(@Rank-Deaths,%cur)
              .timer 1 %cur /ddecmd say %CS.Chan $stl(?, $+ $ord(%cur) $+ :² $gettok($v1,2,92) $+ ¶(² $+ %stid $+ ¶) Deaths:² $gettok(%vline,3,92) Points:² $iif($readini(Stats.ini,$gettok($v1,1,92),Points),$v1,0))
            }
            inc %cur
          }
        }
        else { msg # $stl(?,Use:² %usign $+ TOP <Players/Aces/Plants/Kills/Deaths/MVPs>) | if (%stats.state == 1) { msg # $stl(?,You can watch the full players list at:² $+(http://,%stats.site,/,%stats.plist) $+ ¶.) } }
      }
      elseif ($1 == Admins) && ($cancmd) && (!%CS.Flood) { returnlist Admins }
      elseif ($1 == Masters) && ($cancmd) && (!%CS.Flood) { returnlist Masters }
      elseif ($1 == Owners) && ($cancmd) && (!%CS.Flood) { returnlist Owners }
      elseif ($1 == score) && ($cancmd) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%CS.Temp.bnum,Status) == OFF) { msg # $stl(%cn,$NGet(%CS.Temp.bnum,name) is offline.) }
        elseif ($NGet(%CS.Temp.bnum,Status) == Adding) { return 1 }
        elseif ($NGet(%CS.Temp.bnum,Status) == On) {
          if ($NGet(%cn,Game) == CS) {
            if ($NGet(%cn,Type) != GG) { msg # $stl(%cn,² $+ $NGet(%CS.Temp.bnum,name) ¶ $+ $iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Half ] == NotYet,haven't started yet.,Score: Team-A(² $+ $teamcolor(a,$TeamScore(a,%CS.Temp.bnum),%CS.Temp.bnum) $+ ¶) Team-B(² $+ $teamcolor(b,$TeamScore(b,%CS.Temp.bnum),%CS.Temp.bnum) $+ ¶) Half(² $+ $iif($NGet(%cn,Type) == Regular,$iif($TeamScore(b,%CS.Temp.bnum) != Waiting,$+ %CS [ $+ [ %CS.Temp.bnum ] $+ .Half ],Not-live),DeathMatch) $+ ¶))) }
            else { msg %CS.Chan $stl(%cn,² $+ $NGet(%CS.Temp.bnum,name) ¶ $+ $iif(%CS [ $+ [ %CS.Temp.bnum ] $+ .Half ] == NotYet,haven't started yet.,Lead players: $iif($gg_sortusers(%cn),$v1,None.))) }
          }
          elseif ($NGet(%cn,Game) == TF2) {
            if ($NGET(%cn,Type) == CTF) { msg %CS.Chan $stl(%cn,² $+ $nget(%cn,name) $iif(%CS [ $+ [ %cn ] $+ .Live ] == ON,¶Score: 04RED(¶ $+ %CS [ $+ [ %cn ] $+ .RED ] $+ 04) 12BLUE(¶ $+ %CS [ $+ [ %cn ] $+ .blue ] $+ 12) ¶Game(² $+ $tf2.prefixtotype($NGet(%cn,type)) $+ ¶).,¶haven't started yet.)) }
            else { msg %CS.Chan $stl(%cn,² $+ $nget(%cn,name) ¶Live score is not available in² $tf2.prefixtotype($NGet(%cn,type)) ¶maps. Winners will be announced at the end of the gather.) }
          }

        }
      }
      elseif ($1 == notice) || ($1 == N) && ($userbyhost($address($nick,2))) && (!%CS.Flood) {
        if (!$secure($2-)) { return 1 }
        if ($2) { set -u3 %CS.Flood ByZxoR | .mode # -N | .notice # $stl(?,$2-) | .Mode # +N }
        else { return 1 }
      }
      elseif (($1 == dban) || ($1 == reason)) && ($2) && ($cancmd) && (!%CS.Flood) {
        if (!$secure($2-)) { return 1 }
        set -u3 %CS.Flood ByZxoR
        if (!$issteam($2)) { msg # $stl(?,Error: Please input vaild banned steam.) | return 1 }
        if ($isban($2)) { msg %CS.chan $stl(?,² $+ $iif($issteam($2),$nickbysteam($2),$2) ¶Banned by:² $dban($2).by ¶Expire:² $expiredate($2) ¶Time left:² $timeleftbysteam($2) ¶For reason:² $dban($2).reason) }
        else { msg %CS.Chan $stl(?,²Nick\SteamID¶ is not banned.) }
      }
      elseif ($1 == gathers) && ($cancmd) && (!%CS.Flood) {
        if (!$secure($2-)) { return 1 }
        set -u3 %CS.Flood ByZxoR
        if ($2) {
          var %target = $iif($issteam($2),$2,$steambynick($2))
          if ($readini(Stats.ini,%target,Gathers)) { msg # $stl(%cn,² $+ $readini(Stats.ini,%target,Nick) $+ ¶(² $+ %target $+ ¶) has done² $readini(Stats.ini,%target,Gathers) ¶gathers so far.) }
          else { msg # $stl(%cn,'² $+ $2 $+ ¶' Not found) }
        }
        else {
          msg # $stl(%cn,² $+ $NGet(%CS.Temp.Bnum,Name) ¶was runned for² $numer($NGet(%CS.Temp.Bnum,number)) ¶gathers $+ $chr(44) The last gather was² $overtime($gettok($Nget(%cn,last),1,32)) ago¶.)
          return 1
        }
      }
      elseif (($1 == vent) || ($1 == ventrilo)) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%cn,TS-selected) == 1) { msg %CS.Chan $stl(%cn,² $+ $NGet(%cn,name) ¶is using Team-Speak instead of Ventrilo $+ $chr(44) Use² $Nget(%cn,Sign) $+ TeamSpeak¶ for more information.) | return 1 }
        if (3.0* iswm $NGET(%cn,V-Ver)) { msg # %CS [ $+ [ %cn ] $+ .V-Response ] }
        else { msg # $stl(%cn,Ventrilo Server: $NGET(%cn,V-IP) ( $+ $NGET(%cn,V-Ver) $+ )) }
      }
      elseif (($1 == ts) || ($1 == teamspeak)) && (!%CS.Flood) {
        set -u3 %CS.Flood ByZxoR
        if ($NGet(%cn,TS-selected) == 0) { msg %CS.Chan $stl(%cn,² $+ $NGet(%cn,name) ¶is using Ventrilo instead of Team-Speak $+ $chr(44) Use² $Nget(%cn,Sign) $+ Vent¶ for more information.) | return 1 }
        set %TS [ $+ [ %cn ] $+ .status ] Details
        TSRcon %cn serverlist
      }
      elseif ($1 == stop) && ($NGet(%CS.Temp.bnum,Status) != OFF) && ($userbyhost($address($nick,2))) {
        msg # $stl(%cn,² $+ $NGet(%CS.Temp.bnum,name) ¶Number² $numer(%CS [ $+ [ %CS.Temp.bnum ] $+ .number ]) ¶has just stopped by the agent² $nick $+ $iif($2,¶ $+ $chr(44) Reason:² $2-,¶.))
        Gather-END %CS.Temp.bnum
        set -u3 %CS.Flood ByZxoR
      }
      elseif ($1 == map) && (!%CS.Flood) {
        var %bnum = %CS.Temp.bnum
        set -u3 %CS.Flood ByZxoR
        if (!$2) {
          if ($NGet(%bnum,Status) == OFF) { msg # $stL(%cn,$NGet(%bnum,name) is offline.) | return 1 }
          elseif ($NGet(%bnum,Status) == Adding) || ($NGet(%bnum,Status) == ON) { msg # $stl(%cn,$NGet(%bnum,name) - Map is:² %CS [ $+ [ %bnum ] $+ .map ] $+ ¶.) | return 1 }
        }
        else {
          if ($userbyhost($wildsite)) && ($NGet(%bnum,Status) == Adding) {
            if (!$secure($2-)) { return 1 }
            if (ctf_* iswm $2) && ($Nget(%cn,Game) == TF2) { var %CType = CTF }
            elseif (cp_* iswm $2) && ($Nget(%cn,Game) == TF2) { var %ctype = CP }
            elseif (pl_* iswm $2) && ($Nget(%cn,Game) == TF2) { var %ctype = PL }
            elseif (plr_* iswm $2) && ($Nget(%cn,Game) == TF2) { var %ctype = PLR }
            elseif ($Nget(%cn,Game) == TF2) { msg %CS.Chan $stl(%cn,Unknown game type. Only: [cp/ctf/pl/plr] allowed.) | return 0 }
            if ($Nget(%cn,Game) == TF2) { NSet %cn Type %Ctype }
            msg # $stl(%cn,The map has been changed to² $lower($2) $iif($Nget(%cn,Game) == TF2,$+ ¶(² $+ $tf2.prefixtotype(%ctype) $+ ¶)) ¶by² $nick $+ ¶.)
            set %CS [ $+ [ %bnum ] $+ .map ] $lower($2)
            if ($Nget(%cn,Game) == CS) rcmd %cn changelevel $lower($2)
            elseif ($Nget(%cn,Game) == TF2) rcmd %cn map $lower($2)
          }
        }
      }
      elseif ($1 == start) && ($canrun(%CS.Temp.bnuM)) && ($userbyhost($address($nick,2))) && (!%CS.FLood) && ($secure($2-)) {
        if ($NGet(%cn,RandMap) == 0) && (!$2) && (!%CS [ $+ [ %cn ] $+ .Requestmap ]) { msg # $stl(?,$NGet(%cn,Name) cannot start gather with random map $+ $chr(44) Please specify map!) | return 1 }
        if ($NGet(%cn,connected) != ON) { msg # $stl(?,² $+ $NGet(%cn,name) ¶cannot be started because the server is not connected to the gatherbot ( $+ $NGet(%CS.Temp.bnum,Connected) $+ ).) | return 1 }
        if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-Run)) { msg # $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .map ] $lower($iif($2,$2,$iif(%CS [ $+ [ %cn ] $+ .requestmap ],$v1,$iif($exists(Maplist [ $+ [ %cn ] $+ .txt ]),$read(Maplist [ $+ [ %cn ] $+ .txt ]),de_dust2))))
        if (ctf_* iswm %CS [ $+ [ %CS.Temp.bnum ] $+ .map ]) && ($Nget(%cn,Game) == TF2) { var %CType = CTF }
        elseif (cp_* iswm %CS [ $+ [ %CS.Temp.bnum ] $+ .map ]) && ($Nget(%cn,Game) == TF2) { var %ctype = CP }
        elseif (pl_* iswm %CS [ $+ [ %CS.Temp.bnum ] $+ .map ]) && ($Nget(%cn,Game) == TF2) { var %ctype = PL }
        elseif (plr_* iswm %CS [ $+ [ %CS.Temp.bnum ] $+ .map ]) && ($Nget(%cn,Game) == TF2) { var %ctype = PLR }
        elseif ($Nget(%cn,Game) == TF2) { msg %CS.Chan $stl(?,Unknown game type. Only: [cp/ctf/pl/plr] allowed.) | return 0 }
        if ($Nget(%cn,Game) == TF2) { NSet %cn Type %Ctype }
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .pass ] $r(100,999)
        NSet %CS.Temp.bnum Status Adding
        .timer 1 10 mode # -m
        set -u10 %CS.AddFlood WAITING FOR -m
        rcon %cn
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .adding ] $nick
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .adminfile ] $isacc($usernamebyhost($address($nick,2)))
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .adminacc ] $usernamebyhost($address($nick,2))
        writeini $isacc($usernamebyhost($address($nick,2))) $usernamebyhost($address($nick,2)) LastGather $date $time
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .Admin ] $nick
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .ctime ] $ctime($date $time)
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .number ] $calc($NGet(%CS.Temp.bnum,number) +1)
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .VentA ] $r(100,999)
        set %CS [ $+ [ %CS.Temp.bnum ] $+ .VentB ] $r(100,999)
        if ($NGet(%cn,TS-Selected) == 0) {
          .write -c ventcmd.txt /subchan $qt($NGet(%CS.Temp.bnum,V-Chan)) $qt($NGet(%CS.Temp.bnum,Name) is waiting) $qt(ZxoR Gatherbot) $qt($r(1,9999)) $qt($r(1,9999)) $qt(Do $NGet(%CS.Temp.bnum,sign) $+ add)
          .run -hide ventrcon.exe -f ventcmd.txt -n $qt(ZxoRGatherbot) -a $NGet(%CS.Temp.bnum,V-Rcon) $NGet(%CS.Temp.bnum,V-IP)
        }
        if ($Nget(%cn,Game) == CS) {
          .timer 1 1 rcmd %CS.Temp.bnum admin_command admin_execall echo "Gather is starting on this server."
          .timer 1 1 rcmd %CS.Temp.bnum admin_command admin_execall disconnect
          .timer 1 1 rcmd %CS.Temp.bnum admin_command admin_execall disconnect
          .timer 1 2 rcmd %CS.Temp.bnum admin_command admin_rcon csdm_active 0
          .timer 1 2 rcmd %CS.Temp.bnum admin_command admin_rcon csdm_disable
          .timer 1 2 rcmd %CS.Temp.bnum amx_gungame 0
          .timer 1 2 rcmd %CS.Temp.bnum gg_enabled 0
          .timer 1 2 rates %CS.Temp.bnum
          .msg $nick $stl(%cn,²Gather agent¶: Server-IP:² $NGet(%cn,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet(%cn,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet(%cn,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet(%cn,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² Team-B:( $+ %CS [ $+ [ %cn ] $+ .VentA ] $+ ) Team-B:( $+ %CS [ $+ [ %cn ] $+ .VentB ] $+ ) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ %cn ] $+ .Pass ] $+ ¶.)
        }
        elseif ($NGet(%cn,Game) == TF2) {
          .timer 1 2 rcmd %CS.Temp.bnum writeid
          .timer 1 2 rcmd %CS.Temp.bnum writeip
          .timer 1 2 rcmd %CS.Temp.bnum log on
          .timer 1 2 rcmd %CS.Temp.bnum sv_log_onefile 0
          .timer 1 2 rcmd %CS.Temp.bnum sv_logfile 1
          .timer 1 2 rcmd %CS.Temp.bnum sv_logbans 1
          .timer 1 2 rcmd %CS.Temp.bnum sv_logecho 1
          .timer 1 2 rcmd %CS.Temp.bnum sv_allowdownload 1
          .timer 1 2 rcmd %CS.Temp.bnum sv_allowupload 1
          .timer 1 2 rcmd %CS.Temp.bnum mp_autoteambalance 0
          .timer 1 2 rcmd %CS.Temp.bnum mp_allowspectators 0
          .timer 1 18 rcmd %CS.Temp.bnum mp_tournament 0
          .timer 1 18 rcmd %CS.Temp.bnum mp_friendlyfire 1
          .timer 1 18 rcmd %CS.Temp.bnum sv_alltalk 0
          .timer 1 18 rcmd %CS.Temp.bnum mp_scrambleteams 0
          .timer 1 18 rcmd %CS.Temp.bnum mp_tournament_restart 3
          .msg $nick $stl(%cn,²Gather agent¶: Server-IP:² $NGet(%cn,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet(%cn,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet(%cn,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet(%cn,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² RED:( $+ %CS [ $+ [ %cn ] $+ .VentA ] $+ ) BLUE:( $+ %CS [ $+ [ %cn ] $+ .VentB ] $+ ) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ %cn ] $+ .Pass ] $+ ¶.)
        }
        .timer 1 3 rcmd %CS.Temp.bnum sv_password %CS [ $+ [ %CS.Temp.bnum ] $+ .pass ]
        .timer 1 5 rcmd %CS.Temp.bnum sv_password %CS [ $+ [ %CS.Temp.bnum ] $+ .pass ]
        .timer 1 1 msg # $stl(%cn,² $+ $NGet(%CS.Temp.bnum,Name) ¶number² $numer(%CS [ $+ [ %CS.Temp.bnum ] $+ .number ]) ¶started now!)
        .timer 1 2 msg # $stl(%cn,Map:² %CS [ $+ [ %CS.Temp.bnum ] $+ .map ] $+ ¶ $+ $chr(44) Agent:² $nick $+ ¶ $+ $chr(44) To add yourself write:² %usign $+ add¶.)
        if (!$NGet(%cn,Rank)) .timer 1 3 msg # $stl(%cn,Please note that² $NGet(%cn,name) ¶does not keep statistics of games played in it.)
        .timer 1 8 rcmd %CS.Temp.bnum map %CS [ $+ [ %CS.Temp.bnum ] $+ .map ]
        mode # +m
        if ($exists(MVPs [ $+ [ %cn ] $+ .ini ])) { .remove MVPs [ $+ [ %cn ] $+ .ini ] }
      }
      elseif ($1 == del) || ($1 == rem) || ($1 == delete) || ($1 == remove) {
        if ($NGet(%CS.Temp.bnum,status) == adding) {
          if ($istok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],$nick,32)) {
            if ($nick == %CS [ $+ [ %CS.Temp.bnum ] $+ .Admin ]) { return 1 }
            set %CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ] $remtok(%CS [ $+ [ %CS.Temp.Bnum ] $+ .adding ],$nick,32)
            if (!%CS.Flood2) { csplayers %cn | set -u5 %CS.Flood2 ByZxoR }
          }
          else { return 1 }
        }
      }
    }
  }
  elseif ($chan !ischan) {
    if ($1 == !add) && ($userbyhost($wildsite)) {
      if (!$secure($2-)) { return 1 }
      if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-addremove)) { msg $nick $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
      if ($2 == owner) && ($userbyhost($address($nick,2)) == Owner) {
        if ($5) {
          if ($isacc($3)) { msg $nick $stl(?,Username $qt($3) already exists as $remove($v1,s.ini) $+ .) | return 1 }
          writeini owners.ini $$3 Password $md5($$4)
          writeini owners.ini $$3 Logged 0
          writeini owners.ini $$3 Steam $$5
          writeini owners.ini $$3 Gathers 0
          writeini owners.ini $$3 admins 0
          writeini owners.ini $$3 masters 0
          writeini owners.ini $$3 owners 0
          incini $isacc($usernamebyhost($wildsite)) $usernamebyhost($wildsite) owners 1
          autoupt $$5
          msg $nick $stl(?,The owner $qt($3) has been added to OWNERS list.)
        }
        else { msg $nick $stl(?,Syntax error. User: $1-2 <Username> <Password> <SteamID>) }
      }
      elseif ($2 == master) && ($userbyhost($address($nick,2)) == Owner) {
        if ($5) {
          if ($isacc($3)) { msg $nick $stl(?,Username $qt($3) already exists as $remove($v1,s.ini) $+ .) | return 1 }
          writeini masters.ini $$3 Password $md5($$4)
          writeini masters.ini $$3 Logged 0
          writeini masters.ini $$3 Steam $$5
          writeini masters.ini $$3 Gathers 0
          writeini masters.ini $$3 admins 0
          writeini masters.ini $$3 masters 0
          writeini masters.ini $$3 owners 0
          incini $isacc($usernamebyhost($wildsite)) $usernamebyhost($wildsite) masters 1
          autoupt $$5
          msg $nick $stl(?,The master $qt($3) has been added to MASTERS list.)
        }
        else { msg $nick $stl(?,Syntax error. User: $1-2 <Username> <Password> <SteamID>) }
      }
      elseif ($2 == admin) && (($userbyhost($address($nick,2)) == Owner) || ($userbyhost($address($nick,2)) == Master)) {
        if ($5) {
          if ($isacc($3)) { msg $nick $stl(?,Username $qt($3) already exists as $remove($v1,s.ini) $+ .) | return 1 }
          writeini admins.ini $$3 Password $md5($$4)
          writeini admins.ini $$3 Logged 0
          writeini admins.ini $$3 Steam $$5
          writeini admins.ini $$3 Gathers 0
          writeini admins.ini $$3 admins 0
          writeini admins.ini $$3 masters 0
          writeini admins.ini $$3 owners 0
          incini $isacc($usernamebyhost($wildsite)) $usernamebyhost($wildsite) admins 1
          autoupt $$5
          msg $nick $stl(?,The admin $qt($3) has been added to ADMINS list.)
        }
        else { msg $nick $stl(?,Syntax error. User: $1-2 <Username> <Password> <SteamID>) }
      }
      else { msg $nick $stl(?,Error: !ADD <owner/master/admin> <username> <password> <steamid>) }
    }
    elseif ($1 == !info) || ($1 == !details) || ($1 == !whois) || ($1 == !who) && ($userbyhost($wildsite)) {
      if (!$2) { msg $nick $stl(?,Error: $1 <Username>) | return 1 }
      if (!$isacc($2)) { msg $nick $stl(?,Error: Username not found) | return 1 }
      if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-info)) { msg $nick $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
      msg $nick $stl(?,¶The user² $qt($2) ¶is² $remove($isacc($2),s.ini) $+ ¶ $+ $chr(44) Last logged at:² $iif($readini($isacc($2),$2,LastLogged),$v1,Never) $+ ¶ $+ $chr(44) Last run was:² $iif($readini($isacc($2),$2,LastGather),$v1,Never) $+ ¶.)
      msg $nick $stl(?,$qt($2) appointed $iif($readini($isacc($2),$2,owners),$v1,0) owners $+ $chr(44) $iif($readini($isacc($2),$2,masters),$v1,0) masters and $iif($readini($isacc($2),$2,admins),$v1,0) admins.)
    }
    elseif ($1 == !BanHelp) && ($userbyhost($wildsite)) && (!%CS.PMFlood) {
      set -u5 %CS.PMFlood ByZxoR
      msg $nick $stl(?,Syntax: !ban <steamID> [duration] [reason])
      .timer 1 1 msg $nick $stl(?,Duration - $chr(224) $+ $chr(229) $+ $chr(248) $+ $chr(234) $+ $chr(32) $+ $chr(228) $+ $chr(225) $+ $chr(224) $+ $chr(239))
      .timer 1 2 msg $nick $stl(?,²!ban STEAM_0:0:000000 7d Cheater¶ - $chr(224) $+ $chr(237) $+ $chr(32) $+ $chr(250) $+ $chr(248) $+ $chr(246) $+ $chr(228) $+ $chr(32) $+ $chr(236) $+ $chr(250) $+ $chr(250) $+ $chr(32) $+ $chr(225) $+ $chr(224) $+ $chr(239) $+ $chr(32) $+ $chr(236) $+ $chr(238) $+ $chr(249) $+ $chr(234) $+ $chr(32) $+ $chr(249) $+ $chr(225) $+ $chr(229) $+ $chr(242) $+ $chr(44) $+ $chr(32) $+ $chr(228) $+ $chr(230) $+ $chr(239) $+ $chr(32) $+ $chr(224) $+ $chr(250) $+ $chr(32) $+ $chr(228) $+ $chr(230) $+ $chr(238) $+ $chr(239) $+ $chr(32) $+ $chr(228) $+ $chr(225) $+ $chr(224))
      .timer 1 3 msg $nick $stl(?,²!ban STEAM_0:0:000000 7d2h25m Cheater¶ - $chr(224) $+ $chr(237) $+ $chr(32) $+ $chr(250) $+ $chr(248) $+ $chr(246) $+ $chr(228) $+ $chr(32) $+ $chr(236) $+ $chr(250) $+ $chr(250) $+ $chr(32) $+ $chr(225) $+ $chr(224) $+ $chr(239) $+ $chr(32) $+ $chr(236) $+ $chr(238) $+ $chr(249) $+ $chr(234) $+ $chr(32) $+ $chr(249) $+ $chr(225) $+ $chr(229) $+ $chr(242) $+ $chr(32) $+ $chr(249) $+ $chr(242) $+ $chr(250) $+ $chr(233) $+ $chr(233) $+ $chr(237) $+ $chr(32) $+ $chr(229) $+ $chr(50) $+ $chr(53) $+ $chr(32) $+ $chr(227) $+ $chr(247) $+ $chr(229) $+ $chr(250) $+ $chr(44) $+ $chr(32) $+ $chr(228) $+ $chr(230) $+ $chr(239) $+ $chr(32) $+ $chr(224) $+ $chr(250) $+ $chr(32) $+ $chr(228) $+ $chr(230) $+ $chr(238) $+ $chr(239) $+ $chr(32) $+ $chr(228) $+ $chr(225) $+ $chr(224))
    }
    elseif ($1 == !del) || ($1 == !delete) || ($1 == !remove) || ($1 == !rem) && ($userbyhost($wildsite)) {
      if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-addremove)) { msg $nick $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
      if ($2 == owner) && ($userbyhost($address($nick,2)) == Owner) {
        if ($3) {
          if ($isacc($3) != owners.ini) { msg $nick $stl(?,Username $qt($3) is not in owners list.) | return 1 }
          var %sid = $readini(owners.ini,$3,steam)
          remini owners.ini $3
          msg $nick $stl(?,The owner $3 removed from OWNERS list.)
        }
        autoupt %sid
        else { msg $nick $stl(?,Syntax error. Use: $1 owner <Username>) }
      }
      elseif ($2 == master) && ($userbyhost($address($nick,2)) == Owner) {
        if ($3) {
          if ($isacc($3) != masters.ini) { msg $nick $stl(?,Username $qt($3) is not in masters list.) | return 1 }
          var %sid = $readini(masters.ini,$3,steam)
          remini masters.ini $3
          msg $nick $stl(?,The master $3 removed from MASTERS list.)
          autoupt %sid
        }
        else { msg $nick $stl(?,Syntax error. Use: !del master <Username>) }
      }
      elseif ($2 == admin) && ($userbyhost($address($nick,2)) == Owner) || ($userbyhost($address($nick,2)) == Master) {
        if ($3) {
          if ($isacc($3) != admins.ini) { msg $nick $stl(?,Username $qt($3) is not in admins list.) | return 1 }
          var %sid = $readini(admins.ini,$3,steam)
          remini admins.ini $3
          msg $nick $stl(?,The admin $3 removed from ADMINS list.)
          autoupt %sid
        }
        else { msg $nick $stl(?,Syntax error. Use: !del admin <Username>) }
      }
      else { msg $nick $stl(?,Error: !DEL <owner/master/admin> <username>) }
    }
    elseif ($1 == !set) && ($userbyhost($wildsite)) && ($userbyhost($address($nick,2)) == Owner) {
      if (!$secure($2-)) { return 1 }
      if ($readini($userbyhost($wildsite) $+ s.ini,$usernamebyhost($wildsite),Cant-set)) { msg $nick $stl(?,Sorry $nick $+ $chr(44) You dont have access to use this command.) | return 1 }
      if ($2 == channel) { part %CS.Chan | set %CS.Chan $$3 | msg $nick $stl(?,Channel Seted to: $$3) | join %CS.Chan | ddecmd channel %CS.Chan }
      else { msg $nick $stl(?,!set <Channel> <#Chan>) }
    }
    elseif ($1 == !help) || ($1 == !commands) && ($userbyhost($wildsite)) { msg $nick $stl(?,!set channel <#channel> / !add <owner/master/admin> <username> <password> <steamid>) }
    elseif ($1 == !login) {
      if ($readini(admins.ini,$2,Password) == $md5($3)) || ($readini(masters.ini,$2,Password) == $md5($3)) || ($readini(owners.ini,$2,Password) == $md5($3)) {
        if ($readini($isacc($2),$2,Logged) == 0) || ($readini($isacc($2),$2,Address) != $address($nick,2)) {
          writeini $isacc($2) $2 Logged 1
          writeini $isacc($2) $2 LastLogged $date $time
          writeini $isacc($2) $2 Address $wildsite
          msg $nick $stl(?,You were successfully logged in.)
          if ($nick isreg %CS.Chan) mode %CS.Chan +v $nick
        }
      }
    }
  }
  return 1
}
alias NGet {
  if (!$1) { return $ini(Settings.ini,0) }
  return $readini(Settings.ini,$1,$$2)
}
alias CGet {
  if (!$1) { return $ini(clubs.ini,0) }
  return $readini(clubs.ini,$1,$$2)
}
alias NSet {
  writeini Settings.ini $1 $2 $$3-
}
alias CSet {
  writeini clubs.ini $1 $2 $$3-
}
alias mixing {
  mode %CS.Chan +m
  .timer 1 20 mode %CS.Chan -m
  set -u19 %CS.Flood ByZxoR
  var %gnum = $1
  tokenize 32 %CS [ $+ [ %gnum ] $+ .adding ]
  var %max = $NGet(%gnum,MaxPlayers),%evt = $calc((%max /2) -1),%ev = $calc(%max /2)
  set %CS [ $+ [ %gnum ] $+ .half ] NotYet
  if ($NGet(%gnum,Mixing) == 1) {
    var %cur = 1
    :randab
    var %random = $r(1,$0)
    if ($istok(%randab,%random,32)) { goto randab }
    var %player = $ [ $+ [ %random ] ]
    set %CS [ $+ [ %gnum ] $+ .Players ] $addtok(%CS [ $+ [ %gnum ] $+ .Players ],%player,32)
    if ($numtok(%CS [ $+ [ %gnum ] $+ .Players ],32) < $0) { goto randab }
    if ($NGet(%gnum,AutoMix) != 1) { set %CS [ $+ [ %gnum ] $+ .Players ] %CS [ $+ [ %gnum ] $+ .Admin ] $remtok(%CS [ $+ [ %gnum ] $+ .Players ],%CS [ $+ [ %gnum ] $+ .Admin ],32) }
  }
  else { set %CS [ $+ [ %gnum ] $+ .players ] %CS [ $+ [ %gnum ] $+ .adding ] }
  var %mta = 1- $+ $calc($NGet(%gnum,MaxPlayers) / 2),%mtb = $calc(($NGet(%gnum,MaxPlayers) / 2) + 1) $+ - $+ $NGet(%gnum,MaxPlayers)
  set %CS [ $+ [ %gnum ] $+ .TeamA ] $gettok(%CS [ $+ [ %gnum ] $+ .players ],%mta,32)
  set %CS [ $+ [ %gnum ] $+ .TeamB ] $gettok(%CS [ $+ [ %gnum ] $+ .players ],%mtb,32)
  set %CS [ $+ [ %gnum ] $+ .ctime ] $ctime($date $time)
  set %CS [ $+ [ %gnum ] $+ .Half ] NotYet
  unset %CS [ $+ [ %gnum ] $+ .players ]
  unset %CS [ $+ [ %gnum ] $+ .adding ]
  msg %CS.Chan $stl(%gnum,Mixing Teams and sending details $+ $chr(44) Please wait...)
  if ($NGet(%gnum,game) == CS) {
    .timer 1 2 msg %CS.Chan $stl(%gnum,Team-A:² $fix32(%CS [ $+ [ %gnum ] $+ .TeamA ],%gnum) $+ ¶.)
    .timer 1 3 msg %CS.Chan $stl(%gnum,Team-B:² $fix32(%CS [ $+ [ %gnum ] $+ .TeamB ],%gnum) $+ ¶.)
  }
  elseif ($NGet(%gnum,Game) == TF2) {
    set %CS [ $+ [ %gnum ] $+ .AMedic ] $gettok(%CS [ $+ [ %gnum ] $+ .TeamA ],%ev,32)
    set %CS [ $+ [ %gnum ] $+ .BMedic ] $gettok(%CS [ $+ [ %gnum ] $+ .TeamB ],%ev,32)
    .timer 1 2 msg %CS.Chan $stl(%gnum,04RED:² $fix32($gettok(%CS [ $+ [ %gnum ] $+ .TeamA ],1- [ $+ [ %evt ] ],32),%gnum) $+ ¶ $+ $chr(44) ¶MEDIC:² $fix32($gettok(%CS [ $+ [ %gnum ] $+ .TeamA ],%ev,32),%gnum) $+ ¶.)
    .timer 1 3 msg %CS.Chan $stl(%gnum,12BLUE:² $fix32($gettok(%CS [ $+ [ %gnum ] $+ .TeamB ],1- [ $+ [ %evt ] ],32),%gnum) $+ ¶ $+ $chr(44) ¶MEDIC:² $fix32($gettok(%CS [ $+ [ %gnum ] $+ .TeamB ],%ev,32),%gnum) $+ ¶.)
  }
  .timer 1 4 msg %CS.Chan $stl(%gnum,Please wait until you get the information $+ $chr(44) and then connect the server and to the $iif($NGet(%gnum,TS-Selected),TeamSpeak,Ventrilo) quickly $+ $chr(44) enjoy!)
  NSet %gnum Status ON
  .timer 1 3 .ddecmd say $replace(%CS [ $+ [ %gnum ] $+ .TeamA ],$chr(32),$chr(44)) $details(%gnum,GLOBAL,a).return
  .timer 1 6 .ddecmd say $replace(%CS [ $+ [ %gnum ] $+ .TeamB ],$chr(32),$chr(44)) $details(%gnum,GLOBAL,b).return
  cchan %gnum
}
alias SetMvps {
  if ($ini(Mvps [ $+ [ $1 ] $+ .ini ],0) == 0) { GOTO END }
  .close -@ @Mvps [ $+ [ $1 ] ] | .window @Mvps [ $+ [ $1 ] ] | var %x 1, %o 1
  while ($ini(Mvps [ $+ [ $1 ] $+ .ini ],%x)) { echo @Mvps [ $+ [ $1 ] ] $ini(Mvps [ $+ [ $1 ] $+ .ini ],%x) $calc($readini(Mvps [ $+ [ $1 ] $+ .ini ],$ini(Mvps [ $+ [ $1 ] $+ .ini ],%x),Points) +0) $iif($readini(Stats.ini,$ini(Mvps [ $+ [ $1 ] $+ .ini ],%x),Nick),$ifmatch,No such nick) | inc %x }
  filter -cwwteu 2 32 @Mvps [ $+ [ $1 ] ] @Mvps [ $+ [ $1 ] ]
  var %1st = $gettok($line(@Mvps [ $+ [ $1 ] ],1),1,32),%2nd = $gettok($line(@Mvps [ $+ [ $1 ] ],2),1,32),%3rd = $gettok($line(@Mvps [ $+ [ $1 ] ],3),1,32)
  if (%1st) { .writeini -n Stats.ini %1st Mvps $calc($readini(Stats.ini,%1st,Mvps) +3) | msg %CS.Chan $stl($1,² $+ $NGet($1,Name) $+ ¶'s MVPs are:¶ 1st.² $gettok($line(@Mvps [ $+ [ $1 ] ],1),3-,32) $iif(%2nd,¶2nd.² $gettok($line(@Mvps [ $+ [ $1 ] ],2),3-,32)) $iif(%3rd,¶3rd.² $gettok($line(@Mvps [ $+ [ $1 ] ],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 [ $+ [ $1 ] $+ .ini ])) { .timer 1 1 .remove Mvps [ $+ [ $1 ] $+ .ini ] }
  window -c @MVps [ $+ [ $1 ] ]
}
alias SetGGMvps {
  if ($ini(Mvps [ $+ [ $1 ] $+ .ini ],0) == 0) { GOTO END }
  .close -@ @Mvps [ $+ [ $1 ] ] | .window @Mvps [ $+ [ $1 ] ] | var %x 1, %o 1
  while ($ini(Mvps [ $+ [ $1 ] $+ .ini ],%x)) { echo @Mvps [ $+ [ $1 ] ] $ini(Mvps [ $+ [ $1 ] $+ .ini ],%x) $calc($readini(Mvps [ $+ [ $1 ] $+ .ini ],$ini(Mvps [ $+ [ $1 ] $+ .ini ],%x),Points) +0) $iif($readini(Stats.ini,$ini(Mvps [ $+ [ $1 ] $+ .ini ],%x),Nick),$ifmatch,No such nick) | inc %x }
  filter -cwwteu 2 32 @Mvps [ $+ [ $1 ] ] @Mvps [ $+ [ $1 ] ]
  var %1st = $gettok($line(@Mvps [ $+ [ $1 ] ],1),1,32) | var %2nd = $gettok($line(@Mvps [ $+ [ $1 ] ],2),1,32) | var %3rd = $gettok($line(@Mvps [ $+ [ $1 ] ],3),1,32)
  if (%1st) { .writeini -n Stats.ini %1st Mvps $calc($readini(Stats.ini,%1st,Mvps) +3) | msg %CS.Chan $stl($1,MVPs of² $NGet($1,Name) ¶are:¶ 1st.² $gettok($line(@Mvps [ $+ [ $1 ] ],1),3-,32) $iif(%2nd,¶2nd.² $gettok($line(@Mvps [ $+ [ $1 ] ],2),3-,32)) $iif(%3rd,¶3rd.² $gettok($line(@Mvps [ $+ [ $1 ] ],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 [ $+ [ $1 ] $+ .ini ])) { .timer 1 1 .remove Mvps [ $+ [ $1 ] $+ .ini ] }
  window -c @MVps [ $+ [ $1 ] ]
}
alias bnumbsign {
  var %max = $ini(Settings.ini,0)
  var %cur = 1
  while (%cur <= %max) {
    if ($readini(Settings.ini,$ini(Settings.ini,%cur),Sign) == $1) { return $ini(Settings.ini,%cur) }
    inc %cur
  }
  return 0
}
alias csplayers {
  if ($NGet($1,Status) == ON) { msg %CS.chan $stl($1,² $+ $NGet($1,Name) ¶Team A:² $replace(%CS [ $+ [ $1 ] $+ .TeamA ],$chr(32),$chr(32) $+ ¶-² $+ $chr(32)) $+ ¶, Team B:² $replace(%CS [ $+ [ $1 ] $+ .TeamB ],$chr(32),$chr(32) $+ ¶-² $+ $chr(32)) $+ ¶.) }
  elseif ($NGet($1,Status) == Adding) { msg %CS.chan $stl($1,$NGet($1,Name) Players ¶(² $+ $numtok(%CS [ $+ [ $1 ] $+ .adding ],32) $+ ¶/² $+ $NGet($1,MaxPlayers) $+ ¶):² $fix32(%CS [ $+ [ $1 ] $+ .Adding ],$1) $+ $iif($numtok(%CS [ $+ [ $1 ] $+ .adding ],32) < $NGet($1,MaxPlayers),$str(¶ $+ $chr(44) $+ $chr(32) $+ 14-,$calc($NGet($1,MaxPlayers) - $numtok(%CS [ $+ [ $1 ] $+ .adding ],32)))) $+ ¶.)  }
  elseif ($NGet($1,Status) == OFF) { msg %CS.chan $stl($1,$NGet($1,Name) is offline.) }
  else { return 0 }
  set -u3 %CS.Flood ByZxoR
}
alias incini {
  if ($4) {
    writeini -n $1 $2 $3 $iif($readini($1,$2,$3),$calc($v1 + $4),$4)
  }
  else { echo -s 2* Syntax Error: INCINI }
}
alias decini {
  if ($4) {
    writeini -n $1 $2 $3 $iif($readini($1,$2,$3),$calc($v1 - $4),$calc(0 - $4))
  }
  else { echo -s 2* Syntax Error: DECINI }
}
alias RCONstart { var %x 1, %y 1 | while ($ini(Settings.ini,%x)) { .timerRCONSTART [ $+ [ %x ] ] 1 %y RCON %x $(|) TSRCon %x | .timerRCONKEEP [ $+ [ %x ] ] 0 600 RCON %x | inc %x | inc %y 10 } }
alias RCONclose { .timerRCON $+ $1 Off | .timerECHO $+ $1 Off |  rcmd $1 logaddress_del $ip $readini(Settings.ini,$ini(Settings.ini,$1),Port) | .remini -n Settings.ini $ini(CServers,$1) challenge | .writeini -n Settings.ini $ini(CS_bot.ini,$1) Connected OFF | sockclose rcon $+ $1 * }
alias RconLOG {
  set -u3 %CS [ $+ [ $1 ] $+ .logaddress ] 1
  rcmd $1 logaddress_del
  rcmd $1 nochn logaddress_del $ip $readini(Settings.ini,$ini(Settings.ini,$1),Port)
  rcmd $1 nochn logaddress_del $ip $readini(Settings.ini,$ini(Settings.ini,$1),Port)
  .timer -m 1 230 rcmd $1 nochn mp_logfile 1
  .timer -m 1 260 rcmd $1 nochn mp_logdetail 2
  .timer -m 1 290 rcmd $1 nochn sv_rcon_banpenalty 1
  .timer -m 1 320 rcmd $1 nochn sv_rcon_maxfailures 20
  .timer -m 1 350 rcmd $1 nochn sv_rcon_minfailures 20
  .timer -m 1 380 rcmd $1 nochn sv_rcon_minfailuretime 1
  .timer -m 1 420 rcmd $1 nochn log on
  .timer -m 1 450 rcmd $1 nochn admin_ignore_immunity 1
  .timer -m 1 480 rcmd $1 nochn logaddress_add $ip $readini(Settings.ini,$ini(Settings.ini,$1),Port)
}
alias CRCONstart { var %x 1, %y 1 | while ($ini(Clubs.ini,%x)) { .timerCRCONSTART [ $+ [ %x ] ] 1 %y CRCON %x | .timerCRCONKEEP [ $+ [ %x ] ] 1 600 CRCON %x | inc %x | inc %y 10 } }
alias CRCONclose { .timerCRCON $+ $1 Off | .timerCECHO $+ $1 Off |  crcmd $1 logaddress_del $ip $readini(clubs.ini,$ini(clubs.ini,$1),Port) | .remini -n clubs.ini $ini(Clubs.ini,$1) challenge | .writeini -n clubs.ini $ini(clubs.ini,$1) Connected OFF | sockclose club $+ $1 * }
alias CRconLOG {
  crcmd $1 nochn logaddress_del $ip $readini(clubs.ini,$ini(clubs.ini,$1),Port)
  crcmd $1 nochn logaddress_del $ip $readini(clubs.ini,$ini(clubs.ini,$1),Port)
  .timer -m 1 230 crcmd $1 nochn mp_logfile 1
  .timer -m 1 260 crcmd $1 nochn mp_logdetail 2
  .timer -m 1 290 crcmd $1 nochn sv_rcon_banpenalty 1
  .timer -m 1 320 crcmd $1 nochn sv_rcon_maxfailures 20
  .timer -m 1 350 crcmd $1 nochn sv_rcon_minfailures 20
  .timer -m 1 380 crcmd $1 nochn sv_rcon_minfailuretime 1
  .timer -m 1 420 crcmd $1 nochn log on
  .timer -m 1 450 crcmd $1 nochn admin_ignore_immunity 1
  .timer -m 1 480 crcmd $1 nochn logaddress_add $ip $readini(clubs.ini,$ini(clubs.ini,$1),Port)
}
alias RCON {
  if ($ip) {
    NSet $1 Connected Connecting
    reloadrcon
    if ($NGet($1,Game) == CS) {
      GETchallenge $1
      .sockudp -k rcon $+ $1 $+ LOG $readini(Settings.ini,$ini(Settings.ini,$1),Port) $replace($readini(Settings.ini,$ini(Settings.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4)
      .timerLOG -m 1 750 RconLOG $1
      ctrlsys 2Attempting to connect to server number $1 $+ .
      .timerTIMEDOUT [ $+ [ $1 ] ] 1 60 NSet $1 Connected TimedOut $(|) reloadrcon
    }
    elseif ($NGet($1,Game) == TF2) {
      source $1
      .timerTIMEDOUT [ $+ [ $1 ] ] 1 60 NSet $1 Connected TimedOut $(|) reloadrcon
    }
  }
  else { ctrlsys 4The bot looks like he not connected to the IRC Server so well. Cannot starting sockets! If it false, try to change the gatherbot settings. }
}
alias GETchallenge {
  .sockclose rcon $+ $1 $+ Challenge
  .sockudp -k rcon $+ $1 $+ Challenge $replace($readini(Settings.ini,$ini(Settings.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4) $+ challenge rcon
}
on *:udpread:rcon*Challenge: { var %RCON-challenge | sockread %RCON-challenge | if ($gettok(%RCON-challenge,3,32) isnum) { var %n = $remove($sockname,rcon,Challenge) | .writeini -n Settings.ini $ini(Settings.ini,%n) challenge $gettok(%RCON-challenge,3,32) } | elseif ($gettok(%RCON-challenge,3,32) !isnum) && ($readini(Settings.ini,$ini(Settings.ini,%n),Connected) != Banned) { .writeini -n Settings.ini $ini(Settings.ini,%n) Connected Banned | RCONclose %n } }
alias rcmd {
  if ($NGet($1,Game) == CS) {
    if ($2 != nochn) GETchallenge $1
    .sockudp -k rcon $+ $$1 $+ CMD $replace($readini(Settings.ini,$ini(Settings.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4) $+ rcon $readini(Settings.ini,$ini(Settings.ini,$1),challenge) " $+ $readini(Settings.ini,$ini(Settings.ini,$1),RCONpass) $+ " $iif($$2 == nochn,$$3-,$$2-)
  }
  elseif ($NGet($1,Game) == TF2) {
    source.cmd $1 $$2-
  }
}
on *:udpread:rcon*LOG:{
  var %LOG
  var %n = $remove($sockname,rcon,log)
  sockread -f %LOG
  while ($sockbr) {
    if (%LOG) && (echo -- !isin %LOG) {
      if ($gettok(%LOG,6-,32) != %CS [ $+ [ %n ] $+ .rconlastlog ]) { set -u1 %CS [ $+ [ %n ] $+ .rconlastlog ] $gettok(%LOG,6-,32) | RCON.DATA %n $gettok(%LOG,6-,32) }
    }
    sockread -f %LOG
  }
  reloadrcon
}
on *:udpread:rcon*CMD: {
  var %CMD
  var %n = $remove($sockname,rcon,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(@Server- [ $+ [ %n ] ])) && ($1- != $null) /window -e @Server- [ $+ [ %n ] ]
    if (echo -- !isin $1-) RCON.DATA %n $1-
    set -u1 %CS [ $+ [ %n ] $+ .rconlastlog ] $1-
    sockread -f %CMD
  }
}
alias crcon {
  if ($ip) {
    if ($CGet($1,Game) == CS) {
      .sockclose club $+ $1 $+ LOG
      writeini clubs.ini $1 Connected Connecting
      .CLUBchallenge $1
      .sockudp -k club $+ $1 $+ LOG $readini(clubs.ini,$ini(clubs.ini,$1),Port) $replace($readini(clubs.ini,$ini(clubs.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4)
      .timerLOG -m 1 750 CRconLOG $1
      ctrlsys 2Connection try sent to club - $+ $1 $+ -
      .timerTIMEDOUTC [ $+ [ $1 ] ] 1 60 writeini clubs.ini $1 Connected TimedOut
    }
    elseif ($CGet($1,Game) == TF2) {
      csource $1
    }
  }
  else { ctrlsys 4The bot looks like he not connected to the IRC Server so well. Cannot starting sockets! }
}
alias CLUBchallenge {
  sockclose club $+ $1 $+ Challenge
  .sockudp -k club $+ $1 $+ Challenge $replace($readini(clubs.ini,$ini(clubs.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4) $+ challenge rcon
}
on *:udpread:club*Challenge: { var %RCON-challenge | sockread %RCON-challenge | if ($gettok(%RCON-challenge,3,32) isnum) { var %n = $remove($sockname,club,Challenge) | .writeini -n clubs.ini $ini(clubs.ini,%n) challenge $gettok(%RCON-challenge,3,32) } | elseif ($gettok(%RCON-challenge,3,32) !isnum) && ($readini(clubs.ini,$ini(clubs.ini,%n),Connected) != Banned) { .writeini -n clubs.ini $ini(clubs.ini,%n) Connected Banned | CRCONclose %n } }
alias crcmd {
  if ($CGet($1,Game) == CS) {
    if ($2 != nochn) CLUBchallenge $1
    .sockudp -k club $+ $$1 $+ CMD $replace($readini(clubs.ini,$ini(clubs.ini,$1),IP),$chr(58),$chr(32)) $str($chr(255),4) $+ rcon $readini(clubs.ini,$ini(clubs.ini,$1),challenge) " $+ $readini(clubs.ini,$ini(clubs.ini,$1),RCONpass) $+ " $iif($$2 == nochn,$$3-,$$2-)
  }
  elseif ($CGet($1,game) == TF2) {
    csource.cmd $1 $$2-
  }
}
on *:udpread:club*LOG:{
  var %LOG
  var %n = $remove($sockname,club,log)
  sockread -f %LOG
  while ($sockbr) {
    if (%LOG) && (echo -- !isin %LOG) {
      if ($gettok(%LOG,6-,32) != %CS [ $+ [ %n ] $+ .crconlastlog ]) { set -u1 %CS [ $+ [ %n ] $+ .crconlastlog ] $gettok(%LOG,6-,32) | CLUB.DATA %n $gettok(%LOG,6-,32) }
    }
    sockread -f %LOG
  }
}
on *:udpread:club*CMD: {
  var %CMD
  var %n = $remove($sockname,club,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(@Club- [ $+ [ %n ] ])) && ($1- != $null) /window -e @Club- [ $+ [ %n ] ]
    if (echo -- !isin $1-) CLUB.DATA %n $1-
    set -u1 %CS [ $+ [ %n ] $+ .crconlastlog ] $1-
    sockread -f %CMD
  }
}
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 CLUB.DATA {
  if (!$window(@Club- $+ $1)) .window -e @Club- $+ $1
  var %rcon.dat = $2- , %rcon.said = $clr($2-).said , %rcon.id = $1 , %rcon.nick = $replace($clr($2-).nick,$chr(124),$chr(124)) , %rcon.nick2 = $replace($clr($2-).nick2,$chr(124),$chr(124)) , %rcon.steam = $clr($2-).steam , %rcon.steam2 = $clr($2-).steam2 , %rcon.num = $clr($2-).num , %r = rconCMD , %rcon.weapon = $clr($2-).weapon , %rcon.team = $clr($2-).team , %rcon.team2 = $clr($2-).team2
  if ($CGet(%rcon.id,Game) == CS) {
    echo @Club- $+ $1 < $+ $time $+ > <Counter-Strike Club> $$2-
    if (*Bad rcon_password.* iswm $2-) && ($readini(Clubs.ini,$ini(Clubs.ini,$1),Connected) != BadRcon) { .writeini -n Clubs.ini $1 Connected BadRcon | ctrlsys 4Club number $1 got bad rcon password. }
    if ((Server shutdown isin $2-) || (FATAL ERROR (shutting down)* iswm $2-)) && ($readini(clubs.ini,$ini(clubs.ini,%rcon.id),Connected) == ON) {
      .writeini -n Clubs.ini $1 Connected OFF
      ctrlsys 4Club $1 reported on sock closing (Shutdown/Fatal Error).
      .timer 5 60 club $1
    }
    if ($regex($2-,\d+ : STEAM_0:\d:\d+ : .+)) {
      set %CS.Club [ $+ [ %rcon.id ] $+ .players ] $iif($steamisadmin($4),$addtok(%CS.Club [ $+ [ %rcon.id ] $+ .players ],4 $+ $6-,44),$addtok(%CS.Club [ $+ [ %rcon.id ] $+ .players ],$6-,44))
    }
    if ($CGet(%rcon.id,Connected) != ON) && (Bad Rcon !isin $2-)  { .writeini -n Clubs.ini $1 Connected ON | crcmd $1 allow_client_exec 1 | .timerCECHO $+ $1 0 10 crcmd $1 echo --ZxoR Gatherbot Connection Check-- | ctrlsys 3Club $1 is connected to CS Server! | .timerCTIMEDOUT [ $+ [ $1 ] ] OFF }
    if (*STEAM USERID validated* iswm $clr($2-)) {
      if ($isban(%rcon.steam)) { crcmd %rcon.id admin_command admin_kick %rcon.nick | crcmd %rcon.id admin_command admin_ssay $split(%rcon.nick) $+ ( $+ %rcon.steam $+ ) is banned from the server and cannot join the club. }
      else {
        crcmd %rcon.id admin_command admin_ssay $split(%rcon.nick) has vaildated and connected seccsusfully.
        crcmd %rcon.id allow_client_exec 1
      }
    }
    if (Bad Rcon: "rcon* iswm %rcon.dat) { .writeini -n Clubs.ini $1 Connected BadRcon }
    if ($clr($2-) == say) || ($clr($2-) == say_team) && ($steamisadmin(%RCON.Steam)) {
      tokenize 32 $Rescuechar($clr($2-).said)
      if ($1 == $ServerSyntax(rr)) { crcmd %rcon.id sv_restart 1 }
      elseif ($1 == $ServerSyntax(map)) && ($2) { crcmd %rcon.id changelevel $lower($2) }
      elseif ($1 == @) || ($1 == !) { crcmd %rcon.id admin_command admin_tsay $split(%rcon.nick) $+ : $2- | cspeak %rcon.id fvox/blip }
      elseif ($1 == $ServerSyntax(kick)) { crcmd %rcon.id admin_command admin_kick $2- | cspeak %rcon.id fvox/blip }
      elseif ($1- == $ServerSyntax(prac)) { cspeak %rcon.id fvox/blip | CPRAC %rcon.id }
      elseif ($1- == $ServerSyntax(MR15)) { cspeak %rcon.id fvox/blip | CMR15 %rcon.id }
      elseif ($1 == $ServerSyntax(hook)) {
        if ($2 == 1) || ($2 == on) { crcmd %rcon.id amx_hook on | cspeak %rcon.id fvox/blip }
        elseif ($2 == $chr(48)) || ($2 == off) { crcmd %rcon.id amx_hook on | cspeak %rcon.id fvox/blip }
        else { cspeak %rcon.id fvox/buzz | return 1 }
      }
      elseif ($1 == $ServerSyntax(hs)) || ($1 == $ServerSyntax(headshot)) {
        if ($2 == 1) || ($2 == on) { crcmd %rcon.id hs_mode 1 | cspeak %rcon.id fvox/blip }
        elseif ($2 == $chr(48)) || ($2 == off) { crcmd %rcon.id hs_mode 0 | cspeak %rcon.id fvox/blip }
        else { cspeak %rcon.id fvox/buzz | return 1 }
      }
      elseif ($1 == $ServerSyntax(Ban)) {
        if ($3) {
          if ($issteam($2)) {
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban $2  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-))
            cspeak %rcon.id fvox/blip
          }
          else {
            if ($steambynick($2)) { var %sid = $v1 }
            else { cspeak %rcon.id fvox/buzz | crcmd %rcon.id admin_command admin_ssay You must enter SteamID, Nick is unknown. | return 1 }
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban %sid  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
            cspeak %rcon.id fvox/blip
          }
          else { crcmd %rcon.id admin_command admin_ssay Unknown steam, use $ServerSyntax(Ban) <Steam_ID> | cspeak %rcon.id fvox/buzz }
        }
        else { crcmd %rcon.id admin_command admin_ssay Ban syntax error. | cspeak %rcon.id fvox/buzz }
      }
      elseif ($1 == $ServerSyntax(Unban)) {
        if ($regex($2,/STEAM_\d:\d:\d+/i)) {
          if (!$isban($2)) { crcmd %rcon.id admin_command admin_ssay $2 is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar($2)
          cspeak %rcon.id fvox/blip
        }
        else {
          if ($steambynick($2)) { var %sid = $v1 }
          if (!$isban(%sid)) { crcmd %rcon.id admin_command admin_ssay %sid is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar(%sid)
          cspeak %rcon.id fvox/blip
        }
        else { crcmd %rcon.id admin_command admin_ssay Unknown steam, use $ServerSyntax(Unban) <Steam_ID> | cspeak %rcon.id fvox/buzz }
      }
    }
  }
  elseif ($CGet(%rcon.id,Game) == TF2) {
    echo @Club- $+ $1 < $+ $time $+ > <Team-Fortress Club> $$2-
    if ($regex($2-,/# \d+ "(.+)" (STEAM_0:\d:\d+)/i)) {
      set %CS.Club [ $+ [ %rcon.id ] $+ .players ] $iif($steamisadmin($regml(2)),$addtok(%CS.Club [ $+ [ %rcon.id ] $+ .players ],4 $+ $regml(1),44),$addtok(%CS.Club [ $+ [ %rcon.id ] $+ .players ],$regml(1),44))
    }
    elseif (*STEAM USERID validated* iswm $clr($2-)) {
      if ($isban(%rcon.steam)) {
        crcmd %rcon.id kickid %rcon.steam "You are banned from the gather servers."
        cssay %rcon.id $split(%rcon.nick) $+ ( $+ %rcon.steam $+ ) is banned from the server and cannot join the club.
      }
      else {
        cssay %rcon.id $split(%rcon.nick) has vaildated and connected seccsusfully.
        crcmd %rcon.id mp_autoteambalance 0
      }
    }
    elseif ($clr($2-) == say) || ($clr($2-) == say_team) && ($steamisadmin(%RCON.Steam)) {
      Tokenize 32 $Rescuechar($clr($2-).said)
      if ($1 == $ServerSyntax(rr)) { crcmd %rcon.id mp_restartgame 1 }
      elseif ($1 == $ServerSyntax(map)) && ($2) { crcmd %rcon.id changelevel $lower($2) }
      elseif ($1 == $ServerSyntax(kick)) { crcmd %rcon.id kick $2- }
      elseif ($1 == $ServerSyntax(Ban)) {
        if ($3) {
          if ($issteam($2)) {
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban $2  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-))
          }
          else {
            if ($steambynick($2)) { var %sid = $v1 }
            else { cssay %rcon.id You must enter SteamID, Nick is unknown. | return 1 }
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban %sid  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
          }
          else { cssay %rcon.id Unknown steam, use $ServerSyntax(Ban) <Steam_ID> }
        }
        else { cssay %rcon.id Ban syntax error. }
      }
      elseif ($1 == $ServerSyntax(Unban)) {
        if ($regex($2,/STEAM_\d:\d:\d+/i)) {
          if (!$isban($2)) { cssay %rcon.id $2 is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar($2)
        }
        else {
          if ($steambynick($2)) { var %sid = $v1 }
          if (!$isban(%sid)) { cssay %rcon.id %sid is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { cssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar(%sid)
        }
        else { cssay %rcon.id Unknown steam, use $ServerSyntax(Unban) <Steam_ID> }
      }
    }
  }
}
alias RCON.DATA {
  if (!$window(@Server- $+ $1)) .window -e @Server- $+ $1
  var %rcon.dat = $2- , %rcon.said = $clr($2-).said , %rcon.id = $1 , %rcon.nick = $replace($clr($2-).nick,$chr(124),$chr(124)) , %rcon.nick2 = $replace($clr($2-).nick2,$chr(124),$chr(124)) , %rcon.steam = $clr($2-).steam , %rcon.steam2 = $clr($2-).steam2 , %rcon.num = $clr($2-).num , %r = rconCMD , %rcon.weapon = $clr($2-).weapon , %rcon.team = $clr($2-).team , %rcon.team2 = $clr($2-).team2
  if ($NGet(%rcon.id,Game) == CS) {
    echo @Server- $+ $1 < $+ $time $+ > <Counter-Strike> $$2-
    if (*Bad rcon_password.* iswm $2-) && ($readini(Settings.ini,$ini(Settings.ini,$1),Connected) != BadRcon) { .writeini -n Settings.ini $1 Connected BadRcon | ctrlsys 4Gatherbot $1 got bad rcon password. }
    if ((Server shutdown isin $2-) || (FATAL ERROR (shutting down)* iswm $2-)) && ($NGet(%rcon.id,Connected) == ON) {
      .writeini -n Settings.ini $1 Connected OFF
      ctrlsys 4Server $1 reported on sock closing (Shutdown/Fatal Error).
      .timer 5 60 rcon $1
      if ($NGet(%rcon.id,status) != OFF) && (FATAL ERROR (shutting down)* iswm $2-) {
        .timer 1 3 msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,Name) ¶has forcefully destroyed because of a fatal error.)
        gather-end %rcon.id
      }
    }
    if ($NGet(%rcon.id,Connected) != ON) && (Bad Rcon !isin $2-) && ($readini(Settings.ini,$1,Connected) != ON) { .writeini -n Settings.ini $1 Connected ON | rcmd $1 allow_client_exec 1 | .timerECHO $+ $1 0 10 rcmd $1 echo --ZxoR Gatherbot Connection Check-- | ctrlsys 3Gatherbot $1 is connected to CS Server! | .timerTIMEDOUT [ $+ [ $1 ] ] OFF }
    if (*STEAM USERID validated* iswm $clr($2-)) {
      if ($isban(%rcon.steam)) { rcmd %rcon.id admin_command admin_kick %rcon.nick | ssay %rcon.id $split(%rcon.nick) $+ ( $+ %rcon.steam $+ ) is banned from the server and cannot join the gather. }
      elseif ($NGet(%rcon.id,Status) == ON) {
        ssay %rcon.id $split(%rcon.nick) has vaildated and connected seccsusfully.
        rcmd %rcon.id allow_client_exec 1
      }
    }
    if ($regex(%rcon.dat,/(.+)\.bsp/i)) && (%CS.AskForMaps == %rcon.id) { write Maplist [ $+ [ %rcon.id ] $+ .txt ] $regml(1) }
    if (Bad Rcon: "rcon* iswm %rcon.dat) { .writeini -n Settings.ini $1 Connected BadRcon }
    if ($NGET(%rcon.id,Type) == Regular) {
      if (*Team "TERRORIST" triggered "Terrorists_Win"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) { inc %CS [ $+ [ %rcon.id ] $+ .Score-T ] 1 }
      if (*Team "CT" triggered "CTs_Win"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) { inc %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 1 }
      if (*Team "CT" triggered "Target_Saved"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) { inc %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 1 }
      if (*Team "TERRORIST" triggered "Target_Bombed"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) && (%CS [ $+ [ %rcon.id ] $+ .BombPlanet ]) { inc %CS [ $+ [ %rcon.id ] $+ .Score-T ] 1 | writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] $gettok(%CS [ $+ [ %rcon.id ] $+ .BombPlanet ],1,32) Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],$gettok(%CS [ $+ [ %rcon.id ] $+ .BombPlanet ],1,32),Points) +1)  | if ($savescore(%rcon.id)) { writeini -n Stats.ini $gettok(%CS [ $+ [ %rcon.id ] $+ .BombPlanet ],1,32) Points $calc($readini(Stats.ini,$gettok(%CS [ $+ [ %rcon.id ] $+ .BombPlanet ],1,32),Points) +1) } | unset %CS [ $+ [ %rcon.id ] $+ .BombPlanet ] }
      if (*Team "CT" triggered "Bomb_Defused"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) { inc  %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 1 }
      if (*World triggered "Round_End"* iswm %rcon.dat) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
        if ($exists(Kills [ $+ [ %rcon.id ] $+ .ini ])) {
          var %x = 1
          while ($ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x)) {
            if ($readini(Kills [ $+ [ %rcon.id ] $+ .ini ],$ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x),Kills) == 4) { if ($savescore(%rcon.id)) { .writeini -n Stats.ini $ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x) MiniAces $calc($readini(Stats.ini,$ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x),MiniAces) +1) | .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] $ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x) Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],$ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x),Points) +3.07) | .writeini -n Stats.ini $ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x) Points $calc($readini(Stats.ini,$ini(Kills [ $+ [ %rcon.id ] $+ .ini ],%x),Points) +3.07) } }
            inc %x
          }
          .remove Kills [ $+ [ %rcon.id ] $+ .ini ]
        }
        if ($calc($teamscore(a,%rcon.id) + $teamscore(b,%rcon.id)) >= 15) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == First) { SwapTeams %rcon.id | ENDHalf-1 %rcon.id }
        if ($calc($teamscore(a,%rcon.id) + $teamscore(b,%rcon.id)) == 14) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == First) { .timer 1 6 ssay %rcon.id Last round has been started. | .timer 1 6 tsay %rcon.id Last round has been started. }
        if ($teamscore(a,%rcon.id) == 15)) && ($teamscore(b,%rcon.id) == 15)) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == Second) { .timer 1 6 ssay Last round for the both of the teams! The winners in this round are the winners of the gather! | .timer 1 6 tsay %rcon.id Last round for the both of the teams! The winners in this round are the winners of the gather! }
        elseif ($teamscore(a,%rcon.id) == 15) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == Second) { .timer 1 6 ssay Last round for Team-A has been started. | .timer 1 6 tsay %rcon.id Last round for Team-A has been started. }
        elseif ($teamscore(b,%rcon.id) == 15) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == Second) { .timer 1 6 ssay Last round for Team-B has been started. | .timer 1 6 tsay %rcon.id Last round for Team-B has been started. }
        if ($teamscore(a,%rcon.id) >= 16) || ($teamscore(b,%rcon.id) >= 16) && (%CS [ $+ [ %rcon.id ] $+ .Half ] == Second) { SetMvps %rcon.id | msg %CS.CHAN $stl(%rcon.id,$NGet(%rcon.id,Name) has ended. Score:² $teamscore(a,%rcon.id) $+ - $+ $teamscore(b,%rcon.id) $+ ¶.) | Gather-END %rcon.id }
        if (%CS [ $+ [ %rcon.id ] $+ .Half ] != First-Second) SSCore %rcon.id
      }
      if (World triggered "Round_Start"* iswm %rcon.dat) && ($ifcscore(%rcon.id)) && ($NGet(%rcon.id,Status) == ON) { unset %CS [ $+ [ %rcon.id ] $+ .BombPlanet ] | if ($exists(Kills [ $+ [ %rcon.id ] $+ .ini ])) { .remove Kills [ $+ [ %rcon.id ] $+ .ini ] } }
      if (World triggered "Round_Draw"* iswm %rcon.dat) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) { unset %CS [ $+ [ %rcon.id ] $+ .BombPlanet ] | if ($exists(Kills [ $+ [ %rcon.id ] $+ .ini ])) { .remove Kills [ $+ [ %rcon.id ] $+ .ini ] } }
      if ($1 isnum) && ($2 == :) && ($remove($3,STEAM_,:) isnum) && ($4 == :) && ($5) { inc %CS [ $+ [ %rcon.id ] $+ .number ] 1 | set %CS [ $+ [ %rcon.id ] $+ .PList ] %CS [ $+ [ %rcon.id ] $+ .PList ] ( $+ %number $+ ) $iif($steamisadmin($3),$replace($5-,$chr(124),$chr(124)),$replace($5-,$chr(124),$chr(124))) }
      if (attacked == $clr($1-)) && (%rcon.team == %rcon.team2) {
        rcmd %rcon.id admin_command admin_ssay ( $+ $iif(%RCON.team == TERRORIST,TS,CT)  $+ ) ( $+ $split(%rcon.nick) $+ ) attacked ( $+ $split(%rcon.nick2) $+ )
      }
      if (Killed == $clr($2-)) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
        if (%rcon.team != %rcon.team2) {
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 1 }
            if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 1 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points 1 }
            .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 [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points) + $Guns(%rcon.weapon))
            .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points) -1)
            .writeini -n Stats.ini %rcon.steam $clr($2-).gun $calc($readini(Stats.ini,%rcon.steam,$clr($2-).gun) +1)
            .writeini -n Stats.ini %rcon.steam2 deaths $calc($readini(Stats.ini,%rcon.steam2,deaths) +1)
            if ($readini(Kills [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Kills)) { .writeini -n Kills [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Kills $calc($readini(Kills [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Kills) +1) }
            elseif (!$readini(Kills [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Kills)) { .writeini -n Kills [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Kills 1 }
            if ($readini(Kills [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Kills) == 5) { .writeini -n Stats.ini %rcon.steam Aces $calc($readini(Stats.ini,%rcon.steam,Aces) +1) | .writeini -n MVPs [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(MVPs [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points) +4.51) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +4.51) | tsay %rcon.id %rcon.nick Just did an ACE. | ssay %rcon.id %rcon.nick Just did an ACE. | msg %CS.Chan $stl(%rcon.id,%rcon.nick just did an ACE!) | .remove Kills [ $+ [ %rcon.id ] $+ .ini ] }
            if (!$readini(Stats.ini,%rcon.steam,Last)) || ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
              .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
              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.steam,Gathers) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 30) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 50) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 4] }
            }
            if (%rcon.weapon == Knife) {
              incini Stats.ini %rcon.steam Knife 1
              if ($readini(Stats.ini,%rcon.steam,Knife) == 1) { reward %rcon.id  %rcon.nick  %rcon.steam Stab steep [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,Knife) == 2) { reward %rcon.id  %rcon.nick  %rcon.steam Stab steep [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,Knife) == 3) { reward %rcon.id  %rcon.nick  %rcon.steam Stab steep [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,Knife) == 4) { reward %rcon.id  %rcon.nick  %rcon.steam Stab steep [Level 4] }
            }
            elseif (%rcon.weapon == Grenade) {
              incini Stats.ini %rcon.steam grenade 1
              if ($readini(Stats.ini,%rcon.steam,grenade) == 1) { reward %rcon.id  %rcon.nick  %rcon.steam Grenade generator [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,grenade) == 2) { reward %rcon.id  %rcon.nick  %rcon.steam Grenade generator [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,grenade) == 3) { reward %rcon.id  %rcon.nick  %rcon.steam Grenade generator [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,grenade) == 4) { reward %rcon.id  %rcon.nick  %rcon.steam Grenade generator [Level 4] }
            }
            elseif ((%rcon.weapon == XM1014) || (%rcon.weapon == M3)) {
              incini Stats.ini %rcon.steam shotguns 1
              if ($readini(Stats.ini,%rcon.steam,shotguns) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Blood hunter [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,shotguns) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Blood hunter [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,shotguns) == 15) { reward %rcon.id  %rcon.nick  %rcon.steam Blood hunter [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,shotguns) == 20) { reward %rcon.id  %rcon.nick  %rcon.steam Blood hunter [Level 4] }
            }
            elseif ((%rcon.weapon == AWP) || (%rcon.weapon == Scout) || (%rcon.weapon == G3sg1) || (%rcon.weapon == SG550)) {
              incini Stats.ini %rcon.steam aims 1
              if ($readini(Stats.ini,%rcon.steam,aims) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Aim like a pro [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,aims) == 30) { reward %rcon.id  %rcon.nick  %rcon.steam Aim like a pro [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,aims) == 50) { reward %rcon.id  %rcon.nick  %rcon.steam Aim like a pro [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,aims) == 70) { reward %rcon.id  %rcon.nick  %rcon.steam Aim like a pro [Level 4] }
            }
            elseif ((%rcon.weapon == Deagle) || (%rcon.weapon == USP) || (%rcon.weapon == P228) || (%rcon.weapon == Glock18) || (%rcon.weapon == FiveSeven) || (%rcon.weapon == Elite)) {
              incini Stats.ini %rcon.steam pistols 1
              if ($readini(Stats.ini,%rcon.steam,pistols) == 20) { reward %rcon.id  %rcon.nick  %rcon.steam Pistol Cannon [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam,pistols) == 30) { reward %rcon.id  %rcon.nick  %rcon.steam Pistol Cannon [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam,pistols) == 40) { reward %rcon.id  %rcon.nick  %rcon.steam Pistol Cannon [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam,pistols) == 50) { reward %rcon.id  %rcon.nick  %rcon.steam Pistol Cannon [Level 4] }
            }
            if (!$readini(Stats.ini,%rcon.steam2,Last)) || ($readini(Stats.ini,%rcon.steam2,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
              .writeini -n Stats.ini %rcon.steam2 Last %CS [ $+ [ %rcon.id ] $+ .number ]
              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 }
              if ($readini(Stats.ini,%rcon.steam2,Gathers) == 5) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 1] }
              elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 10) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 2] }
              elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 30) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 3] }
              elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 50) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 4] }
            }
            if ($readini(Stats.ini,%rcon.steam,kills) == 100) { reward %rcon.id  %rcon.nick  %rcon.steam Godlike [Level 1] }
            elseif ($readini(Stats.ini,%rcon.steam,kills) == 200) { reward %rcon.id  %rcon.nick  %rcon.steam Godlike [Level 2] }
            elseif ($readini(Stats.ini,%rcon.steam,kills) == 300) { reward %rcon.id  %rcon.nick  %rcon.steam Godlike [Level 3] }
            elseif ($readini(Stats.ini,%rcon.steam,kills) == 400) { reward %rcon.id  %rcon.nick  %rcon.steam Godlike [Level 4] }
          }
        }
        elseif (%rcon.team == %rcon.team2) {
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 0 }
            if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 0 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 0 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points 0 }
            .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) -1)
            .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points) -1)
            .writeini -n Stats.ini %rcon.steam Tks $calc($readini(Stats.ini,%rcon.steam,Tks) +1)
            if ($readini(Stats.ini,%rcon.steam,Tks) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Teams burden [Level 1] }
            elseif ($readini(Stats.ini,%rcon.steam,Tks) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Teams burden [Level 2] }
            elseif ($readini(Stats.ini,%rcon.steam,Tks) == 15) { reward %rcon.id  %rcon.nick  %rcon.steam Teams burden [Level 3] }
            elseif ($readini(Stats.ini,%rcon.steam,Tks) == 20) { reward %rcon.id  %rcon.nick  %rcon.steam Teams burden [Level 4] }
            .writeini -n Stats.ini %rcon.steam Vote %rcon.num
          }
          ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has killed teammate $+ $chr(44) to ban him use: $serversyntax(bantk)
          set %CS [ $+ [ %rcon.id ] $+ .bantk ] %rcon.steam
        }
      }
      if (Triggered == $clr($2-)) {
        if ($clr($2-).said == Planted_The_Bomb) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
          set %CS [ $+ [ %rcon.id ] $+ .BombPlanet ] %rcon.steam %rcon.nick
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 1 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1 }
            .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .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 ($readini(Stats.ini,%rcon.steam,plants) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Perfect Terrorist [Level 1] }
            elseif ($readini(Stats.ini,%rcon.steam,plants) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Perfect Terrorist [Level 2] }
            elseif ($readini(Stats.ini,%rcon.steam,plants) == 15) { reward %rcon.id  %rcon.nick  %rcon.steam Perfect Terrorist [Level 3] }
            elseif ($readini(Stats.ini,%rcon.steam,plants) == 20) { reward %rcon.id  %rcon.nick  %rcon.steam Perfect Terrorist [Level 4] }
          }
        }
        if ($clr($2-).said == Defused_The_Bomb) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 1 }
            if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1 }
            .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .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 ($readini(Stats.ini,%rcon.steam,defuses) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Bomb disposal [Level 1] }
            elseif ($readini(Stats.ini,%rcon.steam,defuses) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Bomb disposal [Level 2] }
            elseif ($readini(Stats.ini,%rcon.steam,defuses) == 15) { reward %rcon.id  %rcon.nick  %rcon.steam Bomb disposal [Level 3] }
            elseif ($readini(Stats.ini,%rcon.steam,defuses) == 20) { reward %rcon.id  %rcon.nick  %rcon.steam Bomb disposal [Level 4] }
          }
        }
      }
    }
    elseif ($NGET(%rcon.id,Type) == DM) {
      if (Killed == $clr($2-)) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
        if (%rcon.team != %rcon.team2) {
          if ($ifcscore(%rcon.id)) {
            .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
            .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
            if ($savescore(%rcon.id)) {
              if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 0 }
              if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 0 }
            }
            speak %rcon.id fvox/bell
            if ($savescore(%rcon.id)) {
              .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 Stats.ini %rcon.steam2 deaths $calc($readini(Stats.ini,%rcon.steam2,deaths) +1)
              if (!$readini(Stats.ini,%rcon.steam2,Last)) || ($readini(Stats.ini,%rcon.steam2,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
                .writeini -n Stats.ini %rcon.steam2 Last %CS [ $+ [ %rcon.id ] $+ .number ]
                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 }
              }
              if (!$readini(Stats.ini,%rcon.steam,Last)) || ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
                .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
                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(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1 }
              if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points 1 }
              .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points) + $Guns(%rcon.weapon))
              .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points) -1)
            }
            if (%rcon.team == TERRORIST) { inc %CS [ $+ [ %rcon.id ] $+ .Score-T ] 1 }
            elseif (%rcon.team == CT) { inc %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 1 }
            if ($teamscore(a,%rcon.id) >= $NGET(%rcon.id,DM-Target)) || ($teamscore(b,%rcon.id) >= $NGET(%rcon.id,DM-Target)) {
              if ($savescore(%rcon.id)) { setmvps %rcon.id }
              if ($teamscore(a,%rcon.id) >= $NGET(%rcon.id,DM-Target)) { .timer 1 1 .speak %rcon.id "Team a reach the target" | ssay %rcon.id The winners are: Team A! | tsay %rcon.id The winners are: Team A! | msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,Name) ¶number² $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) ¶has ended! The first team was reach the DeathMatch target was ²Team-A¶.) }
              elseif ($teamscore(b,%rcon.id) >= $NGET(%rcon.id,DM-Target)) { .timer 1 1 .speak %rcon.id "Team b reach the target" | ssay %rcon.id The winners are: Team B! | tsay %rcon.id The winners are: Team B! | msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,Name) ¶number² $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) ¶has ended! The first team was reach the DeathMatch target was ²Team-B¶.) }
              rcmd %rcon.id admin_command admin_rcon csdm_active 0
              rcmd %rcon.id admin_command admin_rcon csdm_disable
              gather-enD %rcon.id
              return 1
            }
            ShowServerScore %rcon.id
            speak %rcon.id "fvox/bell"
          }
        }
        elseif (%rcon.team == %rcon.team2) {
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 0 }
            if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 0 }
            .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) -1)
            .writeini -n Stats.ini %rcon.steam Tks $calc($readini(Stats.ini,%rcon.steam,Tks) +1)
          }
          ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has killed teammate $+ $chr(44) to ban him use: $serversyntax(bantk)
          set %CS [ $+ [ %rcon.id ] $+ .bantk ] %rcon.steam
          if (%rcon.team == TERRORIST) { dec %CS [ $+ [ %rcon.id ] $+ .Score-T ] 1 }
          elseif (%rcon.team == CT) { dec %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 1 }
          ShowServerScore %rcon.id
        }
      }
    }
    elseif ($NGET(%rcon.id,Type) == GG) {
      if (Killed == $clr($2-)) && (%CS [ $+ [ %rcon.id ] $+ .live ]) && ($NGet(%rcon.id,Status) == ON) {
        if (%rcon.team != %rcon.team2) {
          if ($ifcscore(%rcon.id)) {
            .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
            .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
            if ($savescore(%rcon.id)) {
              if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 0 }
              if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 0 }
            }
            speak %rcon.id fvox/bell
            incini GunGame [ $+ [ %rcon.id ] $+ .ini ] score %rcon.steam 1
            if ($savescore(%rcon.id)) {
              .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 Stats.ini %rcon.steam2 deaths $calc($readini(Stats.ini,%rcon.steam2,deaths) +1)
              if (!$readini(Stats.ini,%rcon.steam2,Last)) || ($readini(Stats.ini,%rcon.steam2,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
                .writeini -n Stats.ini %rcon.steam2 Last %CS [ $+ [ %rcon.id ] $+ .number ]
                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 }
                if ($readini(Stats.ini,%rcon.steam2,Gathers) == 5) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 1] }
                elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 10) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 2] }
                elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 30) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 3] }
                elseif ($readini(Stats.ini,%rcon.steam2,Gathers) == 50) { reward %rcon.id  %rcon.nick2  %rcon.steam2 Gamer [Level 4] }
              }
              if (!$readini(Stats.ini,%rcon.steam,Last)) || ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
                .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
                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.steam,Gathers) == 5) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 1] }
                elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 10) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 2] }
                elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 30) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 3] }
                elseif ($readini(Stats.ini,%rcon.steam,Gathers) == 50) { reward %rcon.id  %rcon.nick  %rcon.steam Gamer [Level 4] }
              }
              if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1 }
              if (!$readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points)) { .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points 1 }
              .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam,Points) + $Guns(%rcon.weapon))
              .writeini -n Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points $calc($readini(Mvps [ $+ [ %rcon.id ] $+ .ini ],%rcon.steam2,Points) -1)
            }
            if ($readini(GunGame [ $+ [ %rcon.id ] $+ .ini ],score,%rcon.steam) == $NGET(%rcon.id,GG-Target)) {
              if ($savescore(%rcon.id)) { setggmvps %rcon.id }
              ssay %rcon.id The winners is: $split(%rcon.nick) $+ ! | tsay %rcon.id The winners is: $split(%rcon.nick) $+ ! | msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,Name) ¶number² $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) ¶has ended! The winner is ² $+ $split(%rcon.nick) $+ ¶.)
              rcmd %rcon.id admin_command admin_rcon csdm_active 0
              rcmd %rcon.id admin_command admin_rcon csdm_disable
              gather-end %rcon.id
              return 1
            }
            speak %rcon.id "fvox/bell"
          }
        }
        elseif (%rcon.team == %rcon.team2) {
          .writeini -n Stats.ini %rcon.steam nick $split(%rcon.nick)
          .writeini -n Stats.ini %rcon.steam2 nick $split(%rcon.nick2)
          if ($savescore(%rcon.id)) {
            if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points 0 }
            if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points 0 }
            .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) -1)
            .writeini -n Stats.ini %rcon.steam Tks $calc($readini(Stats.ini,%rcon.steam,Tks) +1)
          }
          .writeini -n GunGame [ $+ [ %rcon.id ] $+ .ini ] score %rcon.steam $calc($readini(GunGame [ $+ [ %rcon.id ] $+ .ini ],score,%rcon.steam) -1)
          ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has killed teammate $+ $chr(44) to ban him use: $serversyntax(bantk)
          set %CS [ $+ [ %rcon.id ] $+ .bantk ] %rcon.steam
        }
      }
    }
    if (disconnected == $clr($2-)) && (%CS [ $+ [ %rcon.id ] $+ .live ]) {
      ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has quit in the middle of the gather $+ $chr(44) to ban him use: $serversyntax(banlast)
      set %CS [ $+ [ %rcon.id ] $+ .banlast ] %rcon.steam
    }
    if (You have been banned from this server. == %Rcon.data) && ($readini(Settings.ini,$1,Connected) != Banned) { .writeini -n Settings.ini $1 Connected Banned }
    if ($clr($2-) == say) || ($clr($2-) == say_team) && ($NGet(%rcon.id,Status) == ON) {
      Tokenize 32 $Rescuechar($clr($2-).said)
      if ($1 == $ServerSyntax(score)) { speak %rcon.id fvox/blip | sscore %rcon.id }
      if ($1 == $ServerSyntax(agent)) { speak %rcon.id fvox/blip | ssay %rcon.id $NGet(%rcon.id,Name) Agent is: %CS [ $+ [ %rcon.id ] $+ .Admin ] }
      if ($1 == $ServerSyntax(commands)) || ($1 == $ServerSyntax(help)) { speak %rcon.id fvox/blip | ssay %rcon.id -> Server commands are: !SCORE !PLAYERS !AGENT | ssay %rcon.id -> Admin commands are: !RR [secs(1)] !KICK !BANTK !BANLAST !BAN <STEAMID> !UNBAN <STEAMID> !KNIVES !PASSWORD <PASSWORD> !MAP <MAPNAME> | ssay %rcon.id -> !PRAC !RATES !MR15 !STOP !LIVE !SUB !T <NICK> !CT <NICK> !SLAY <NICK> !NAME <NICK> !/@ <MESSAGE> !SSAY <MESSAGE> !FF <0/1> !FREEZETIME <TIME> !SS }
      if ($1 == $ServerSYntax(teams)) || ($1 == $ServerSYntax(players)) { speak %rcon.id fvox/blip | ssay %rcon.id Team-A: $replace(%CS [ $+ [ %rcon.id ] $+ .TeamA ],$chr(32),$Chr(32) $+ - $+ $chr(32)) | ssay %rcon.id Team-B: $replace(%CS [ $+ [ %rcon.id ] $+ .TeamB ],$chr(32),$Chr(32) $+ - $+ $chr(32)) | ssay %rcon.id Subs: $iif(%CS [ $+ [ %rcon.id ] $+ .TeamSubs ],$replace($v1,$chr(32),$Chr(32) $+ - $+ $chr(32)),None.) }
      if ($steamisadmin(%RCON.Steam)) {
        if ($1 == $ServerSyntax(rr)) || ($1 == $ServerSyntax(restartround)) { rcmd %rcon.id sv_restart $iif($2 isnum,$2,1) }
        elseif ($1 == $ServerSyntax(Kick)) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_kick $Rescuechar($2-) }
        elseif ($1 == $serverSyntax(bantk)) && (%CS [ $+ [ %rcon.id ] $+ .bantk ]) {
          addban %CS [ $+ [ %rcon.id ] $+ .bantk ]  $split(%rcon.nick) 7d Team Kill
          speak %rcon.id fvox/blip
          ssay %rcon.id %CS [ $+ [ %rcon.id ] $+ .bantk ] has been banned due TeamKilling during gather.
          unset %CS [ $+ [ %rcon.id ] $+ .bantk ]
        }
        elseif ($1 == $serverSyntax(banlast)) && (%CS [ $+ [ %rcon.id ] $+ .banlast ]) {
          addban %CS [ $+ [ %rcon.id ] $+ .banlast ]  $split(%rcon.nick) 7d Quit in the middle
          speak %rcon.id fvox/blip
          ssay %rcon.id %CS [ $+ [ %rcon.id ] $+ .banlast ] has been banned due quit in the middle of the gather.
          unset %CS [ $+ [ %rcon.id ] $+ .banlast ]
        }
        elseif ($1 == $ServerSyntax(Ban)) {
          if ($3) {
            if ($issteam($2)) {
              if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
              addban $2  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
              speak %rcon.id fvox/blip
            }
            else {
              if ($steambynick($2)) { var %sid = $v1 }
              else { speak %rcon.id fvox/buzz | rcmd %rcon.id admin_command admin_ssay You must enter SteamID, Nick is unknown. | return 1 }
              if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
              addban %sid  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
              speak %rcon.id fvox/blip
            }
            else { ssay %rcon.id Unknown steam, use $ServerSyntax(Ban) <Steam_ID> | speak %rcon.id fvox/buzz }
          }
          else { ssay %rcon.id Ban syntax error. | speak %rcon.id fvox/buzz }
        }
        elseif ($1 == $ServerSyntax(Unban)) {

          if ($regex($2,/STEAM_\d:\d:\d+/i)) {
            if (!$isban($2)) { rcmd %rcon.id admin_command admin_ssay $2 is not banned. | return 1 }
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            delban $Rescuechar($2)
            speak %rcon.id fvox/blip
          }
          else {
            if ($steambynick($2)) { var %sid = $v1 }
            if (!$isban(%sid)) { rcmd %rcon.id admin_command admin_ssay %sid is not banned. | return 1 }
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            delban $Rescuechar(%sid)
            speak %rcon.id fvox/blip
          }
          else { ssay %rcon.id Unknown steam, use $ServerSyntax(Unban) <Steam_ID> | speak %rcon.id fvox/buzz }
        }
        elseif ($1 == $ServerSyntax(knives)) || ($1 == $ServerSyntax(knife)) || ($1 == $ServerSyntax(knifes)) {
          rcmd %rcon.id admin_command zxor_knivesonly 1
          .timer 1 1 rcmd %rcon.id admin_command admin_csay red ~ Knives Round ~ Please wait ~
          .timer 1 2 rcmd %rcon.id admin_command admin_csay green ~ Knives Round ~ Please wait ~
          .timer 1 3 rcmd %rcon.id admin_command admin_csay red ~ Knives Round ~ Please wait ~
          .timer 1 4 rcmd %rcon.id admin_command admin_csay green ~ Knives Round ~ Please wait ~
          .timer 1 4 mr15 %rcon.id
          .timer 1 6 speak %rcon.id fvox/bell $(|) rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 7 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 8 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 9 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 10 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 11 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 12 rcmd %rcon.id admin_command admin_tsay red Knives round has been started! DO NOT SHOOT!
          .timer 1 14 rcmd %rcon.id admin_command admin_tsay green Knives round has been started! DO NOT SHOOT!
          .timer 1 13 rcmd %rcon.id admin_command admin_execall drop
          .timer 1 13 rcmd %rcon.id admin_command admin_execall drop
          .timer 1 14 speak %rcon.id fvox/buzz
        }
        elseif ($1 == $ServerSyntax(Pass)) || ($1 == $ServerSyntax(Password)) {
          if (!$secure($2-)) { return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-password)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          if ($2) { speak %rcon.id fvox/blip | rcmd %rcon.id sv_password $Rescuechar($2) | ssay %rcon.id Server password has been changed to $2 | set %CS [ $+ [ %rcon.id ] $+ .pass ] $Rescuechar($2) }
          else { ssay %rcon.id The current server password is: %CS [ $+ [ %rcon.id ] $+ .pass ] }
        }
        elseif ($1 == $ServerSyntax(Map)) && ($2) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_map $Rescuechar($2) | set %CS [ $+ [ %rcon.id ] $+ .map ] $Rescuechar($2) }
        elseif ($1- == $ServerSyntax(prac)) { speak %rcon.id fvox/blip | PRAC %rcon.id }
        elseif ($1- == $ServerSyntax(rates)) { speak %rcon.id fvox/blip | Rates %rcon.id }
        elseif ($1- == $ServerSyntax(MR15)) { speak %rcon.id fvox/blip | MR15 %rcon.id }
        elseif ($1 == $ServerSyntax(stop)) || ($1 == $ServerSyntax(end)) {
          msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,name) ¶Number² $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) ¶has just stopped by² $split(%rcon.nick) ¶(From server)¶.)
          ssay %rcon.id $NGET(%rcon.id,Name) Number $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) has just stopped by $split(%rcon.nick) $+ !
          Gather-END %rcon.id
        }
        elseif ($1 == $ServerSyntax(Live)) {
          if (%CS [ $+ [ %rcon.id ] $+ .Half ] == First) || (%CS [ $+ [ %rcon.id ] $+ .Half ] == NotYet) {
            if (A.* iswm %rcon.nick) {
              if (%rcon.team == CT) { set %CS [ $+ [ %rcon.id ] $+ .Live ] A-B }
              elseif (%rcon.team == TERRORIST) { set %CS [ $+ [ %rcon.id ] $+ .Live ] B-A }
            }
            elseif (B.* iswm %rcon.nick) {
              if (%rcon.team == CT) { set %CS [ $+ [ %rcon.id ] $+ .Live ] B-A }
              elseif (%rcon.team == TERRORIST) { set %CS [ $+ [ %rcon.id ] $+ .Live ] A-B }
            }
            else { SSay %rcon.id Error: all the players have to be with currect tag: A.Nick / B.Nick (e.x: B.ZxoR) | speak %rcon.id fvox/buzz | return 1 }
            if ($NGet(%rcon.id,Type) == Regular) {
              if (%CS [ $+ [ %rcon.id ] $+ .Half ] == NotYet) { msg %CS.Chan $stl(%rcon.id,First half is now starting $+ $chr(44) Score: ²0¶-²0¶.) }
              set %CS [ $+ [ %rcon.id ] $+ .Half ] First
              set %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 0
              set %CS [ $+ [ %rcon.id ] $+ .Score-T ] 0
              if ($NGet(%rcon.id,Fun) == 0) { MR15 %rcon.id } | else { prac %rcon.id }
              ssay %rcon.id The first half started now, play fair and enjoy!
              tsay %rcon.id The first half started now, play fair and enjoy!
              .timer 1 1 tsay %rcon.id ~ First half has just started! ~
              .timer 1 2 tsay %rcon.id ~! First half has just started! !~ $(|) speak %rcon.id "doop round number one"
              .timer 1 3 tsay %rcon.id ~!~ First half has just started! ~!~
              .timer 1 4 tsay %rcon.id ~!~ [First half has just started!] ~!~
              .timer 1 5 tsay %rcon.id ~!~ [First half has just started!] ~!~
              .timer 1 6 tsay %rcon.id red ~!~ [First half has just started!] ~!~
              .timer 1 7 tsay %rcon.id blue ~!~ [First half has just started!] ~!~
              .timer 1 8 tsay %rcon.id red ~!~ [First half has just started!] ~!~
              .timer 1 9 tsay %rcon.id green ~!~ [First half has just started!] ~!~
              rcmd %rcon.id admin_command admin_rcon csdm_active 0
              rcmd %rcon.id admin_command admin_rcon csdm_disable
            }
            elseif ($NGet(%rcon.id,Type) == DM) {
              if (%CS [ $+ [ %rcon.id ] $+ .Half ] == NotYet) { msg %CS.Chan $stl(%rcon.id,²DeathMatch¶ game has been started! The first team will reach² $NGet(%rcon.id,DM-Target) ¶points wins!) }
              set %CS [ $+ [ %rcon.id ] $+ .Half ] First
              MR15 %rcon.id
              speak %rcon.id "doop doop doop"
              rcmd %rcon.id admin_command admin_rcon csdm_active 1
              rcmd %rcon.id admin_command admin_rcon csdm_enable
              rcmd %rcon.id sv_restart 1
              .timer 1 1.5 /set %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 0
              .timer 1 1.5 /set %CS [ $+ [ %rcon.id ] $+ .Score-T ] 0
              ssay %rcon.id DeathMatch game has been started! The first team will reach $NGet(%rcon.id,DM-Target) kills wins!
              tsay %rcon.id DeathMatch game has been started! The first team will reach $NGet(%rcon.id,DM-Target) kills wins!
              .timer 1 5 /.timerDMSCORE [ $+ [ %rcon.id ] ] 0 5 /.ShowServerScore %rcon.id
            }
            elseif ($NGet(%rcon.id,Type) == GG) {
              if ($exists(GunGame [ $+ [ %rcon.id ] $+ .ini ])) { .remove GunGame [ $+ [ %rcon.id ] $+ .ini ] }
              if (%CS [ $+ [ %rcon.id ] $+ .Half ] == NotYet) { msg %CS.Chan $stl(%rcon.id,²GunGame¶ game has been started! The first player will reach² $NGet(%rcon.id,GG-Target) ¶kills wins!) }
              set %CS [ $+ [ %rcon.id ] $+ .Half ] First
              speak %rcon.id "doop doop doop"
              rcmd %rcon.id gg_messages 1
              rcmd %rcon.id gg_block_objectives 1
              rcmd %rcon.id gg_save_temp 0
              rcmd %rcon.id gg_disable_money 1
              rcmd %rcon.id gg_dm 1
              rcmd %rcon.id gg_kills_per_lvl 2
              rcmd %rcon.id amx_gungame 1
              rcmd %rcon.id gg_enabled 1
              .timer 1 1 rcmd %rcon.id amx_gungame_restart
              .timer 1 2 /set %CS [ $+ [ %rcon.id ] $+ .Score-CT ] 0
              .timer 1 2 /set %CS [ $+ [ %rcon.id ] $+ .Score-T ] 0
            }
          }
          elseif (%CS [ $+ [ %rcon.id ] $+ .Half ] == Second) || (%CS [ $+ [ %rcon.id ] $+ .Half ] == First-Second)  {
            set %CS [ $+ [ %rcon.id ] $+ .Score-T ] %CS [ $+ [ %rcon.id ] $+ .FirstT ]
            set %CS [ $+ [ %rcon.id ] $+ .Score-CT ] %CS [ $+ [ %rcon.id ] $+ .FirstCT ]
            if (%CS [ $+ [ %rcon.id ] $+ .Half ] == First-Second) { msg %CS.Chan $stl(%rcon.id,Second half is now starting $+ $chr(44) Score: ² $+ $teamscore(a,%rcon.id) $+ ¶-² $+ $teamscore(b,%rcon.id)) }
            set %CS [ $+ [ %rcon.id ] $+ .Half ] Second
            if ($NGet(%rcon.id,Fun) == 0) { MR15 %rcon.id } | else { prac %rcon.id }
            .timer 1 2 ssay %rcon.id The second half started now, play fair and enjoy!
            .timer 1 2 tsay %rcon.id The second half started now, play fair and enjoy!
            .timer 1 2 speak %rcon.id "doop round number two"
          }
        }
        elseif ($1 == $ServerSyntax(Sub)) {
          speak %rcon.id fvox/blip
          if ($2 == off) {
            if (%CS [ $+ [ %rcon.id ] $+ .Sub ]) {
              msg %CS.Chan $stl(%rcon.id,Substitute Searching For Team- $+ $upper(%CS [ $+ [ %rcon.id ] $+ .Sub ]) has been canceled.)
              .timersubmsg [ $+ [ %rcon.id ] ] off
              ssay %rcon.id Substitute Searching For Team- $+ $upper(%CS [ $+ [ %rcon.id ] $+ .Sub ]) has been canceled.
              tsay %rcon.id Substitute Searching For Team- $+ $upper(%CS [ $+ [ %rcon.id ] $+ .Sub ]) has been canceled.
              unset %CS [ $+ [ %rcon.id ] $+ .Sub ]
            }
            else { ssay %rcon.id Substitute player is not needed. }
          }
          elseif ($2 == A) || ($2 == B) {
            subsearch %rcon.id $2
            ssay %rcon.id Sub searching for Team- $+ $upper($2) has been started.
            tsay %rcon.id Sub searching for Team- $+ $upper($2) has been started.
          }
          else { ssay %rcon.id Bad sub command. Syntax: $ServerSyntax(Sub) <A/B/OFF> | speak %rcon.id fvox/buzz }
        }
        elseif ($1 == $ServerSyntax(T)) && ($2) { speak %rcon.id fvox/blip | MOVE-T %rcon.id $Rescuechar($2-) }
        elseif ($1 == $ServerSyntax(CT)) && ($2) { speak %rcon.id fvox/blip | MOVE-CT %rcon.id $Rescuechar($2-) }
        elseif ($1 == $ServerSyntax(Slay)) && ($2) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_slay $Rescuechar($2-) }
        elseif ($1 == $ServerSyntax(Name)) && ($2) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_execclient $2 name " $+ $Rescuechar($3-) }
        elseif ($1 == @) || ($1 == !) || ($1 == $ServerSyntax(tsay)) { speak %rcon.id fvox/bell | rcmd %rcon.id admin_command admin_tsay $split(%rcon.nick) $+ : $Rescuechar($2-) }
        elseif ($1 == $ServerSyntax(ssay)) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_ssay $2- }
        elseif ($1 == $ServerSyntax(disconnect)) || ($1 == $ServerSyntax(Quit)) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_execall disconnect }
        elseif ($1 == $ServerSyntax(FF)) {
          speak %rcon.id fvox/blip
          if ($2 == ON) || ($2 == 1) { rcmd %rcon.id admin_command admin_ssay Friendlyfire is ON now. | rcmd %rcon.id mp_friendlyfire 1 }
          if ($2 == OFF) || ($2 == $chr(48)) { rcmd %rcon.id admin_command admin_ssay Friendlyfire is OFF now. | rcmd %rcon.id mp_friendlyfire 0 }
        }
        elseif ($1 == $ServerSyntax(Freezetime)) { speak %rcon.id fvox/blip | rcmd %rcon.id admin_command admin_ssay Freezetime is $Rescuechar($2) now. | rcmd %rcon.id mp_freezetime $Rescuechar($2) }
        elseif ($1 == $ServerSyntax(ss)) { speak %rcon.id fvox/blip | tsay %rcon.id Snapshot has just taken by the admin ( $+ $split(%rcon.nick) $+ ) | rcmd %rcon.id admin_quiet 1 | rcmd %rcon.id allow_client_exec 1 | rcmd %rcon.id admin_command admin_execall snapshot | rcmd %rcon.id admin_quiet 2 }
      }
    }
  }
  elseif ($NGet($1,Game) == TF2) {
    echo @Server- $+ $1 < $+ $time $+ > <Team-Fortress> $$2-
    if (*command "log on" iswm $2-) && ($NGet(%rcon.id,Connected) != ON) { NSet %rcon.id Connected ON }
    elseif (*rcon from "*": Bad Password* iswm $2-) && ($NGet(%rcon.id,Connected) != BadRcon)  { NSet %rcon.id Connected BadRcon }
    elseif (*STEAM USERID validated* iswm $clr($2-)) {
      if ($isban(%rcon.steam)) {
        rcmd %rcon.id kickid %rcon.steam "You are banned from the gather servers."
        ssay %rcon.id $split(%rcon.nick) $+ ( $+ %rcon.steam $+ ) is banned from the server and cannot join the gather.
      }
      else {
        ssay %rcon.id $split(%rcon.nick) has vaildated and connected seccsusfully.
        rcmd %rcon.id mp_autoteambalance 0
        writeini stats.ini %rcon.steam Nick %rcon.nick
      }
    }
    elseif ($regex(%rcon.dat,/(\S+)\.bsp/i)) && (%CS.AskForMaps == %rcon.id) { write Maplist [ $+ [ %rcon.id ] $+ .txt ] $regml(1) }
    elseif ($2- == World triggered "Round_Start") && (%CS [ $+ [ %rcon.id ] $+ .PRELive ] == ON) {
      if (!%CS [ $+ [ %rcon.id ] $+ .Live ]) msg %CS.Chan $stl(%rcon.id,² $+ $Nget(%rcon.id,name) ¶is now starting!)
      set %CS [ $+ [ %rcon.id ] $+ .Live ] ON
      ssay %rcon.id ATTENTION: The gather is starting now! $iif($r(1,2) == 1,FIGHT TO THE DEATH!,GO GO GO!)
    }
    elseif ($clr($2-) == committed suicide with) && ($NGet(%rcon.id,Status) == ON) && (%CS [ $+ [ %rcon.id ] $+ .Live ] == ON) {
      if ($savescore(%rcon.id)) decini stats.ini %rcon.steam Points 1
      writeini stats.ini %rcon.steam Nick %rcon.nick
    }
    if (disconnected == $clr($2-)) && (%CS [ $+ [ %rcon.id ] $+ .live ]) {
      ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has quit in the middle of the gather $+ $chr(44) to ban him use: $serversyntax(banlast) $+ .
      set %CS [ $+ [ %rcon.id ] $+ .banlast ] %rcon.steam
      writeini stats.ini %rcon.steam Nick %rcon.nick
    }
    elseif ($clr($2-) == say) || ($clr($2-) == say_team) && ($NGet(%rcon.id,Status) == ON) {
      writeini stats.ini %rcon.steam Nick %rcon.nick
      Tokenize 32 $Rescuechar($clr($2-).said)
      if ($1 == $ServerSYntax(status)) {
        if (!%CS [ $+ [ %rcon.id ] $+ .Live ]) && (!%CS [ $+ [ %rcon.id ] $+ .PRELive ]) { ssay %rcon.id Status: Game isn't live yet. }
        elseif (%CS [ $+ [ %rcon.id ] $+ .Live ]) && (!%CS [ $+ [ %rcon.id ] $+ .PRELive ]) { ssay %rcon.id Status: Game is live, wating for all teams to be ready. }
        elseif (%CS [ $+ [ %rcon.id ] $+ .Live ]) && (%CS [ $+ [ %rcon.id ] $+ .PRELive ]) { ssay %rcon.id Status: The game is live. }
      }
      elseif ($1 == $ServerSYntax(teams)) || ($1 == $ServerSyntax(players)) {
        ssay %rcon.id RED: $replace($remtok(%CS [ $+ [ %rcon.id ] $+ .TeamA ],%CS [ $+ [ %rcon.id ] $+ .AMedic ],32),$chr(32),$Chr(32) $+ - $+ $chr(32)) -> MEDIC: %CS [ $+ [ %rcon.id ] $+ .AMedic ]
        ssay %rcon.id BLUE: $replace($remtok(%CS [ $+ [ %rcon.id ] $+ .TeamB ],%CS [ $+ [ %rcon.id ] $+ .BMedic ],32),$chr(32),$Chr(32) $+ - $+ $chr(32)) -> MEDIC: %CS [ $+ [ %rcon.id ] $+ .BMedic ]
        ssay %rcon.id Subs: $iif(%CS [ $+ [ %rcon.id ] $+ .TeamSubs ],$replace($v1,$chr(32),$Chr(32) $+ - $+ $chr(32)),None.)
      }
      if (!$steamisadmin(%rcon.steam)) { return NOT-ADMIN: STOP }
      if ($1 == $ServerSyntax(live)) {
        set %CS [ $+ [ %rcon.id ] $+ .PRELive ] ON
        set %CS [ $+ [ %rcon.id ] $+ .Blue ] 0
        set %CS [ $+ [ %rcon.id ] $+ .Red ] 0
        .timer 1 2 ssay %rcon.id Game is now LIVE. Waiting for the teams to be ready! After all teams be ready, game will be start automaticly.
        rcmd %rcon.id mp_tournament 1
        rcmd %rcon.id mp_tournament_restart
      }
      elseif ($1 == $ServerSyntax(Ban)) {
        if ($3) {
          if ($issteam($2)) {
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban $2  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
          }
          else {
            if ($steambynick($2)) { var %sid = $v1 }
            else { ssay %rcon.id You must enter SteamID, Nick is unknown. | return 1 }
            if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-ban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
            addban %sid  $split(%rcon.nick)  $Rescuechar($3)  $Rescuechar($4-)
          }
          else { ssay %rcon.id Unknown steam, use $ServerSyntax(Ban) <Steam_ID> }
        }
        else { ssay %rcon.id Ban syntax error. | speak %rcon.id fvox/buzz }
      }
      elseif ($1 == $ServerSyntax(Unban)) {
        if ($regex($2,/STEAM_\d:\d:\d+/i)) {
          if (!$isban($2)) { ssay %rcon.id $2 is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar($2)
        }
        else {
          if ($steambynick($2)) { var %sid = $v1 }
          if (!$isban(%sid)) { ssay %rcon.id %sid is not banned. | return 1 }
          if ($readini($steamisadminf(%rcon.steam),$steamisadmin(%rcon.steam),Cant-unban)) { ssay %rcon.id Sorry %rcon.nick $+ $chr(44) You dont have access to use this command. | return 1 }
          delban $Rescuechar(%sid)
        }
        else { ssay %rcon.id Unknown steam, use $ServerSyntax(Unban) <Steam_ID> }
      }
      elseif ($1 == $ServerSyntax(Sub)) {
        if ($2 == off) {
          if (%CS [ $+ [ %rcon.id ] $+ .Sub ]) {
            msg %CS.Chan $stl(%rcon.id,Substitute Searching For $iif(%CS [ $+ [ %rcon.id ] $+ .Sub ] == A,the 04RED¶ team,the 12BLUE¶ team) has been canceled.)
            .timersubmsg [ $+ [ %rcon.id ] ] off
            ssay %rcon.id Substitute Searching For $iif(%CS [ $+ [ %rcon.id ] $+ .Sub ] == A,the RED team,the BLUE team) has been canceled.
            tsay %rcon.id Substitute Searching For Team- $+ $upper(%CS [ $+ [ %rcon.id ] $+ .Sub ]) has been canceled.
            unset %CS [ $+ [ %rcon.id ] $+ .Sub ]
          }
          else { ssay %rcon.id Substitute player is not needed. }
        }
        elseif ($2 == RED) || (BLU* iswm $2) {
          subsearch %rcon.id $iif($2 == red,A,B)
          ssay %rcon.id Sub searching for $iif(%CS [ $+ [ %rcon.id ] $+ .Sub ] == A,the RED team,the BLUE team) has been started.
          tsay %rcon.id Sub searching for Team- $+ $upper($2) has been started.
        }
        else { ssay %rcon.id Bad sub command. Syntax: $ServerSyntax(Sub) <RED/BLUE/OFF> }
      }
      elseif ($1 == $ServerSyntax(Kick)) { rcmd %rcon.id kick $Rescuechar($2-) }
      elseif ($1 == $serverSyntax(bantk)) && (%CS [ $+ [ %rcon.id ] $+ .bantk ]) {
        addban %CS [ $+ [ %rcon.id ] $+ .bantk ]  $split(%rcon.nick) 7d Team Kill
        ssay %rcon.id %CS [ $+ [ %rcon.id ] $+ .bantk ] has been banned due TeamKilling during gather.
        unset %CS [ $+ [ %rcon.id ] $+ .bantk ]
      }
      elseif ($1 == $serverSyntax(banlast)) && (%CS [ $+ [ %rcon.id ] $+ .banlast ]) {
        addban %CS [ $+ [ %rcon.id ] $+ .banlast ]  $split(%rcon.nick) 7d Quit in the middle
        ssay %rcon.id %CS [ $+ [ %rcon.id ] $+ .banlast ] has been banned due quit in the middle of the gather.
        unset %CS [ $+ [ %rcon.id ] $+ .banlast ]
      }
      elseif ($1 == $ServerSyntax(stop)) || ($1 == $ServerSyntax(end)) {
        msg %CS.Chan $stl(%rcon.id,² $+ $NGet(%rcon.id,name) ¶Number² $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) ¶has just stopped by² $split(%rcon.nick) ¶(From server)¶.)
        ssay %rcon.id $NGET(%rcon.id,Name) Number $numer(%CS [ $+ [ %rcon.id ] $+ .number ]) has just stopped by $split(%rcon.nick) $+ !
        Gather-END %rcon.id
      }
      elseif ($ServerSyntax(map) == $1) {
        if (ctf_* iswm $2) { var %CType = CTF }
        elseif (cp_* iswm $2) { var %ctype = CP }
        elseif (pl_* iswm $2) { var %ctype = PL }
        elseif (plr_* iswm $2) { var %ctype = PLR }
        else { ssay %rcon.id Unknown game type. Only: [cp/ctf/pl/plr] allowed. | return 0 }
        NSet %rcon.id Type %Ctype
        set %CS [ $+ [ %rcon.id ] $+ .map ] $2
        .timer 1 2 rcmd %rcon.id map $2
      }
      elseif ($ServerSyntax(rr) == $1) {
        rcmd %rcon.id mp_tournament_restart 1
      }
    }
    elseif ($clr($2-) == killed) {
      if ($savescore(%rcon.id)) incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1
      if ($savescore(%rcon.id)) decini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam2 Points 1
      if ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
        .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
        incini Stats.ini %rcon.steam Gathers 1
      }
      if ($readini(Stats.ini,%rcon.steam2,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
        .writeini -n Stats.ini %rcon.steam2 Last %CS [ $+ [ %rcon.id ] $+ .number ]
        incini Stats.ini %rcon.steam2 Gathers 1
      }
      if (%rcon.team == %rcon.team2) {
        if ($savescore(%rcon.id)) { decini stats.ini %rcon.steam Points 1 | decini stats.ini %rcon.steam Kills 1 }
        if ($savescore(%rcon.id)) incini stats.ini %rcon.steam2 Deaths 1
        writeini -n stats.ini %rcon.steam Nick %rcon.nick
        writeini -n stats.ini %rcon.steam2 Nick %rcon.nick2
        ssay %rcon.id %rcon.nick $+ ( $+ %rcon.steam $+ ) has killed teammate $+ $chr(44) to ban him use: $serversyntax(bantk)
        set %CS [ $+ [ %rcon.id ] $+ .bantk ] %rcon.steam
      }
      else {
        if ($savescore(%rcon.id)) incini stats.ini %rcon.steam Points 1
        if ($savescore(%rcon.id)) incini stats.ini %rcon.steam Kills 1
        writeini -n stats.ini %rcon.steam Nick %rcon.nick
        writeini -n stats.ini %rcon.steam2 Nick %rcon.nick2
        if ($savescore(%rcon.id)) incini stats.ini %rcon.steam2 Deaths 1
        if ($savescore(%rcon.id)) decini stats.ini %rcon.steam2 Points 1
      }
    }
    elseif ($2- == server cvars end) {
      echo @Server- $+ %rcon.id $timestamp <Team-Fortress> Server CVARs end. Gatherbot CVARs Start.
      .timer 1 6 rcmd %rcon.id mp_tournament 1
      .timer 1 7 rcmd %rcon.id mp_tournament_stopwatch 1
      .timer 1 6 rcmd %rcon.id mp_autoteambalance "0"
      .timer 1 6 rcmd %rcon.id tf_tournament_hide_domination_icons "1"
      .timer 1 6 rcmd %rcon.id mp_friendlyfire "1"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_demoman "1"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_engineer "0"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_heavy "1"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_medic "1"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_pyro "0"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_scout "2"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_sniper "0"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_soldier "2"
      .timer 1 6 rcmd %rcon.id tf_tournament_classlimit_spy "0" $(|) echo @Server- $+ %rcon.id $timestamp <Team-Fortress> Gatherbot CVARs end
    }
    elseif ((*World triggered "Round_Win"* iswm $2-) || (*World triggered "Mini_Round_Win"* iswm $2-)) && ($NGet(%rcon.id,Status) == ON) && (%CS [ $+ [ %rcon.id ] $+ .Live ] == ON) {
      if (*"Blue"* iswm $2-) {
        var %winner = BLUE
      }
      elseif (*"Red"* iswm $2-) {
        var %winner = RED
      }
      else { var %winner = STALEMATE }
      .timer 1 10 .rcmd %rcon.id map %CS [ $+ [ %rcon.id ] $+ .map ]
      if ($savescore(%rcon.id)) { setmvps %rcon.id }
      msg %CS.Chan $stl(%rcon.id,$NGet(%rcon.id,name) has ended. $iif(%winner == stalemate,There are no winners $+ $chr(44) Stalemate!,$iif(%winner == RED,04RED¶,12BLUE¶) team wins!))
      gather-end %rcon.id
    }
    elseif (($clr($2-) == triggered) || ($clr($3-) == triggered)) && ($NGet(%rcon.id,Status) == ON) && (%CS [ $+ [ %rcon.id ] $+ .Live ] == ON) {
      if ($clr($2-).said == killedobject) && ($savescore(%rcon.id)) {
        incini stats.ini %rcon.steam Points 1.5
        incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 1.5
      }
      if ($clr($2-).said == kill assist) && ($savescore(%rcon.id)) {
        incini stats.ini %rcon.steam Points 0.5
        incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 0.5
      }
      if ($NGet(%rcon.id,Type) == ctf) {
        tokenize 34 $2- | tokenize 34 $2-
        if (*flagevent (event picked up )* iswm $1-) {
          if ($savescore(%rcon.id)) {
            incini stats.ini %rcon.steam Points 0.5
            incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 0.5
          }
          if ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
            .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
            incini Stats.ini %rcon.steam Gathers 1
          }
          writeini stats.ini %rcon.steam Nick %rcon.nick
        }
        elseif (*triggered flagevent (event captured )* iswm $1-) {
          if ($savescore(%rcon.id)) { incini stats.ini %rcon.steam Captures 1 | incini stats.ini %rcon.steam Points 2 | incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points 2 }
          writeini stats.ini %rcon.steam Nick %rcon.nick
          inc %CS [ $+ [ %rcon.id ] $+ . $+ [ %rcon.team ] ]
          if ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
            .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
            incini Stats.ini %rcon.steam Gathers 1
          }
          ssay %rcon.id %rcon.nick got 2 points for capture. Score: RED( $+ %CS [ $+ [ %rcon.id ] $+ .RED ] $+ ) BLUE( $+ %CS [ $+ [ %rcon.id ] $+ .BLUE ] $+ ).
        }
      }
      elseif ($NGet(%rcon.id,type) == cp) || ($NGet(%rcon.id,type) == pl) || ($NGet(%rcon.id,type) == plr) {
        if ($5 == "pointcaptured") && ($savescore(%rcon.id)) {
          noop $regex($2-,/player\d+ (".+<\d+><STEAM_\d:[0-1]:\d+><(?:blue|red)>")/ig)
          var %x = 1,%buffer
          while $regml(%x) {
            var %rcon.steam = $clr($regml(%x)).steam,%rcon.nick = $clr($regml(%x)).nick,%rcon.team = $clr($regml(%x)).team
            incini stats.ini %rcon.steam Points $iif($regml(0) > 1,1.5,3)
            incini Mvps [ $+ [ %rcon.id ] $+ .ini ] %rcon.steam Points $iif($regml(0) > 1,1.5,3)
            incini stats.ini %rcon.steam Captures 1
            var %buffer = $addtok(%buffer,%rcon.nick,44)
            if ($readini(Stats.ini,%rcon.steam,Last) != %CS [ $+ [ %rcon.id ] $+ .number ]) {
              .writeini -n Stats.ini %rcon.steam Last %CS [ $+ [ %rcon.id ] $+ .number ]
              incini Stats.ini %rcon.steam Gathers 1
            }
            inc %x
          }
          ssay %rcon.id %buffer got $iif($regml(0) > 1,1.5,3) points for capture.
        }
      }
    }
  }
}
alias tsay { rcmd $1 admin_command admin_tsay $2- }
alias ssay {
  rcmd $1 $iif($NGet($1,Game) != TF2,admin_command admin_ssay $$2-,say $$2-)
}
alias cssay {
  crcmd $1 $iif($CGet($1,Game) != TF2,admin_command admin_ssay $$2-,say $$2-)
}
alias MOVE-T { rcmd $1 admin_quiet 2 | rcmd $1 admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd $1 admin_command admin_execclient $2- chooseteam | rcmd $1 admin_command admin_execclient $2- menuselect 1 }
alias MOVE-CT { rcmd $1 admin_quiet 2 | rcmd $1 admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd $1 admin_command admin_execclient $2- chooseteam | rcmd $1 admin_command admin_execclient $2- menuselect 2 }
alias MR15 {
  rcmd $1 alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  rcmd $1 alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  rcmd $1 alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 800;mr123"
  rcmd $1 alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  rcmd $1 alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  rcmd $1 alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  rcmd $1 mr122k
}
alias PRAC {
  rcmd $1 alias prac122k "admin_ignore_immunity 1;default_access 0;Prac1"
  rcmd $1 alias Prac1 "mp_forcecamera 0;mp_forcechasecam 0;mp_c4timer 35;Prac2"
  rcmd $1 alias Prac2 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 16000;Prac3"
  rcmd $1 alias Prac3 "mp_autokick 0;mp_friendlyfire 0;mp_freezetime 0;Prac4"
  rcmd $1 alias Prac4 "mp_roundtime 7;mp_buytime 9;mp_fadetoblack 0;Prac5"
  rcmd $1 alias Prac5 "sv_alltalk 1;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  rcmd $1 prac122k
  rcmd $1 admin_command zxor_knivesonly 0
}
alias Rates {
  var %cur = 1,%max = $lines(rates.txt)
  while (%cur <= %max) {
    .rcmd $1 $read(rates.txt,%cur)
    inc %cur
  }
  .timer 1 2 ssay $1 Rates loaded. Please wait.
  .timer 1 3 rcmd $1 admin_command admin_rcon restart
  .timer 1 5 rcon $1
}
alias CMR15 {
  crcmd $1 alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  crcmd $1 alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  crcmd $1 alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 800;mr123"
  crcmd $1 alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  crcmd $1 alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  crcmd $1 alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  crcmd $1 mr122k
  rcmd $1 admin_command zxor_knivesonly 0
}
alias CPRAC {
  crcmd $1 alias prac122k "admin_ignore_immunity 1;default_access 0;Prac1"
  crcmd $1 alias Prac1 "mp_forcecamera 0;mp_forcechasecam 0;mp_c4timer 35;Prac2"
  crcmd $1 alias Prac2 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 16000;Prac3"
  crcmd $1 alias Prac3 "mp_autokick 0;mp_friendlyfire 0;mp_freezetime 0;Prac4"
  crcmd $1 alias Prac4 "mp_roundtime 7;mp_buytime 9;mp_fadetoblack 0;Prac5"
  crcmd $1 alias Prac5 "sv_alltalk 1;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  crcmd $1 prac122k
}
alias CRates {
  var %cur = 1,%max = $lines(rates.txt)
  while (%cur <= %max) {
    .crcmd $1 $read(rates.txt,%cur)
    inc %cur
  }
  .timer 1 2 cssay $1 Rates loaded. Please wait.
  .timer 1 3 crcmd $1 admin_command admin_rcon restart
  .timer 1 5 rcon $1
}
on *:connect: {
  auth
  .timer 1 3 join %CS.Chan
  ddecmd channel %CS.Chan
  if (%dde.identify) ddecmd identify $v1
  ddecmd nick %dde.nick
  ddecmd host %DDE.server %DDE.port
  if (%DDE) ddecmd connect
  ClearGatherbot
  retryrcons
  .timerchecktimer 0 1 checktime
  Ventsocket
  .timerventsocket 0 60 Ventsocket
  updatelist
}
on *:DISCONNECT: ddecmd disconnect
alias RetryRCONS {
  ctrlsys 2Retrying all RCON connections...
  .sockclose *
  .timerRCON* Off
  .timerECHO* Off
  if ($ini(Settings.ini,0) > 0) .timer 1 3 RCONstart
  if ($ini(Clubs.ini,0) > 0) .timer 1 3 CRCONstart
}
alias ServerSyntax {
  return ! $+ $1-
}
alias teamscore {
  if ($1 == a) {
    if (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == First) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == First) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == Second) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == Second) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) || (%CS [ $+ [ $2 ] $+ .Half ] == NotYet) || (!%CS [ $+ [ $2 ] $+ .Half ]) { return Waiting }
  }
  elseif ($1 == b) {
    if (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == First) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == First) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == Second) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == Second) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == A-B) && (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) { return %CS [ $+ [ $2 ] $+ .Score-T ] }
    elseif (%CS [ $+ [ $2 ] $+ .Live ] == B-A) && (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) { return %CS [ $+ [ $2 ] $+ .Score-CT ] }
    elseif (%CS [ $+ [ $2 ] $+ .Half ] == First-Second) || (%CS [ $+ [ $2 ] $+ .Half ] == NotYet) || (!%CS [ $+ [ $2 ] $+ .Half ]) { return Waiting }
  }
  else { return Syntax Error }
}
alias teamcolor {
  if ($1 == a) {
    if (%CS [ $+ [ $3 ] $+ .Live ] == A-B) && (%CS [ $+ [ $3 ] $+ .Half ] == First) { return 12 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == B-A) && (%CS [ $+ [ $3 ] $+ .Half ] == First) { return 04 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == A-B) && (%CS [ $+ [ $3 ] $+ .Half ] == Second) { return 04 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == B-A) && (%CS [ $+ [ $3 ] $+ .Half ] == Second) { return 12 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Half ] == First-Second) || (%CS [ $+ [ $2 ] $+ .Half ] == NotYet) || (!%CS [ $+ [ $3 ] $+ .Half ]) { return 15 $+ $2 }
  }
  elseif ($1 == b) {
    if (%CS [ $+ [ $3 ] $+ .Live ] == A-B) && (%CS [ $+ [ $3 ] $+ .Half ] == First) { return 04 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == B-A) && (%CS [ $+ [ $3 ] $+ .Half ] == First) { return 12 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == A-B) && (%CS [ $+ [ $3 ] $+ .Half ] == Second) { return 12 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Live ] == B-A) && (%CS [ $+ [ $3 ] $+ .Half ] == Second) { return 04 $+ $2 }
    elseif (%CS [ $+ [ $3 ] $+ .Half ] == First-Second) || (%CS [ $+ [ $3 ] $+ .Half ] == NotYet) || (!%CS [ $+ [ $3 ] $+ .Half ]) { return 15 $+ $2 }
  }
  else { return Syntax Error }
}
alias sscore {
  if (!%CS [ $+ [ $1 ] $+ .live ]) { return 1 }
  if ($NGet($1,Game) == TF2) {
    if (!%CS [ $+ [ $1 ] $+ .TsayF ]) { set -u3 %CS [ $+ [ $1 ] $+ .TsayF ] ByZxoR | ssay $1 Score: RED( $+ %CS [ $+ [ $1 ] $+ .RED ] $+ ) - BLUE( $+ %CS [ $+ [ $1 ] $+ .BLUE ] $+ ). }
    return 1
  }
  if ($NGet($1,Type) != GG) {
    if (!%CS [ $+ [ $1 ] $+ .TsayF ]) { set -u3 %CS [ $+ [ $1 ] $+ .TsayF ] ByZxoR | ssay $1 Score: Team-A( $+ $teamscore(a,$1) $+ ) - Team-B( $+ $teamscore(b,$1) $+ ) - $iif($NGET($1,Type) == Regular,%CS [ $+ [ $1 ] $+ .Half ] Half.,DeathMatch mode.) }
  }
  else {
    if (!%CS [ $+ [ $1 ] $+ .TsayF ]) { set -u3 %CS [ $+ [ $1 ] $+ .TsayF ] ByZxoR | ssay $1 $remove($strip($gg_sortusers($1)),¶,²) }
  }
}
alias Guns {
  if ($1 == AK47) return 1.00
  elseif ($1 == M4A1) return 1.00
  elseif ($1 == Famas) return 1.00
  elseif ($1 == Galil) return 1.00
  elseif ($1 == AWP) return 1.05
  elseif ($1 == MP5navy) return 1.25
  elseif ($1 == Deagle) return 1.50
  elseif ($1 == Usp) return 1.50
  elseif ($1 == Glock18) return 1.50
  elseif ($1 == Grenade) return 1.80
  elseif ($1 == Aug) return 1.05
  elseif ($1 == SG552) return 1.05
  elseif ($1 == MAC10) return 1.25
  elseif ($1 == P90) return 1.25
  elseif ($1 == TMP) return 1.25
  elseif ($1 == UMP45) return 1.25
  elseif ($1 == G3sg1) return 1.40
  elseif ($1 == M3) return 1.40
  elseif ($1 == XM1014) return 1.40
  elseif ($1 == Elite) return 1.50
  elseif ($1 == FiveSeven) return 1.50
  elseif ($1 == P228) return 1.50
  elseif ($1 == Scout) return 1.60
  elseif ($1 == SG550) return 1.70
  elseif ($1 == M249) return 1.80
  elseif ($1 == Knife) return 2.00
  else return 0.00
}
alias steamisadmin {
  if ($1 == STEAM_ID_LAN) return 1
  var %f = admins.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return $ini(%f,%cur) }
    inc %cur
  }
  var %f = masters.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return $ini(%f,%cur) }
    inc %cur
  }
  var %f = owners.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return $ini(%f,%cur) }
    inc %cur
  }
  return $false
}
alias steamisadminf {
  var %f = admins.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return %f }
    inc %cur
  }
  var %f = masters.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return %f }
    inc %cur
  }
  var %f = owners.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),Steam) == $1) { return %f }
    inc %cur
  }
  return $false
}

alias ENDHalf-1 {
  msg %CS.Chan $stl($1,First half has just ended with the score: ² $+ $TeamScore(a,$1) $+ ¶-² $+ $teamScore(b,$1) $+ ¶.)
  ssay $1 First round has just ended - Score: Team-A( $+ $teamscore(a,$1) $+ ) Team-B( $+ $teamscore(b,$1) $+ ).
  set %CS [ $+ [ $1 ] $+ .FirstT ] %CS [ $+ [ $1 ] $+ .Score-CT ]
  set %CS [ $+ [ $1 ] $+ .FirstCT ] %CS [ $+ [ $1 ] $+ .Score-T ]
  set %CS [ $+ [ $1 ] $+ .half ] First-Second
}
on *:input:@*-*: {
  if (@Server-* iswm $active) {
    if ($NGet($remove($active,@Server-),game) == CS) {
      rcmd $remove($active,@Server-) $1-
    }
    elseif ($NGet($remove($active,@Server-),game) == TF2) { source.cmd $remove($active,@Server-) $1- }
  }
  elseif (@Club-* iswm $active) { crcmd $remove($active,@Club-) $1- }
}
alias GATHER-END {
  if (%CS [ $+ [ $1 ] $+ .Live ]) {
    .incini Settings.ini $1 number 1
    .incini Settings.ini $1 Today 1
    .incini %CS [ $+ [ $1 ] $+ .adminfile ] %CS [ $+ [ $1 ] $+ .adminacc ] Gathers 1
    if ($savescore($1)) { .timer 1 3 .updatelist }
    .nset $1 last $ctime($date $time) %CS [ $+ [ $1 ] $+ .admin ] %CS [ $+ [ $1 ] $+ .map ]
  }
  if ($exists(GunGame [ $+ [ $1 ] $+ .ini ])) { .remove GunGame [ $+ [ $1 ] $+ .ini ] }
  .dchan $1
  .NSet $1 Status OFF
  .ssay $1 $NGet($1,Name) prepare the server to the next game.
  .timer 1 7 rcmd $1 sv_password $r(999,9999999)
  .timer 1 15 rcmd $1 sv_password $r(999,9999999)
  .rcmd $1 amx_gungame 0
  .timer 1 7 rcmd $1 admin_command admin_execall disconnect
  .timer 1 7 rcmd $1 admin_command admin_execall disconnect
  .timer 1 7 rcmd $1 admin_command admin_execall disconnect
  .timerDMSCORE [ $+ [ $1 ] ] off
  .timersubmsg [ $+ [ $1 ] ] off
  .loadadmins
  .unset %CS [ $+ [ $1 ] $+ .* ]
}
on *:quit: {
  var %cur = 1
  var %max = $ini(Settings.ini,0)
  if ($isacc($usernamebyhost($address($nick,2)))) { writeini $v1 $usernamebyhost($address($nick,2)) Logged 0 }
  while (%cur <= %max) {
    if ($Readini(Settings.ini,$ini(Settings.ini,%cur),Status) == Adding) {
      if ($istok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,32)) { set %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ] $remtok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,32) }
      if ($nick == %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .admin ]) {
        msg %CS.Chan $stl($ini(Settings.ini,%cur),² $+ $NGet($ini(Settings.ini,%cur),name) ¶Number² $numer(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .number ]) ¶has just stopped by² $nick $+ ¶, Reason:² The agent quited¶.)
        Gather-END $ini(Settings.ini,%cur)
      }
    }
    inc %cur
  }
  loadadmins
}
on *:part:%CS.Chan: {
  var %cur = 1
  var %max = $ini(Settings.ini,0)
  if ($isacc($usernamebyhost($address($nick,2)))) { writeini $v1 $usernamebyhost($address($nick,2)) Logged 0 }
  while (%cur <= %max) {
    if ($Readini(Settings.ini,$ini(Settings.ini,%cur),Status) == Adding) {
      if ($istok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,32)) { set %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ] $remtok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,32) }
      if ($nick == %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .admin ]) {
        msg %CS.Chan $stl($ini(Settings.ini,%cur),² $+ $NGet($ini(Settings.ini,%cur),name) ¶Number² $numer(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .number ]) ¶has just stopped by² $nick $+ ¶, Reason:² The agent part the channel¶.)
        Gather-END $ini(Settings.ini,%cur)
      }
    }
    inc %cur
  }
  loadadmins
}
on *:nick: {
  var %cur = 1
  var %max = $ini(Settings.ini,0)
  while (%cur <= %max) {
    if ($Readini(Settings.ini,$ini(Settings.ini,%cur),Status) == Adding) {
      if ($istok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,32)) {
        set %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ] $reptok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$nick,$newnick,32)
        if ($nick == %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .admin ]) { set %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .admin ] $newnick }
      }
    }
    inc %cur
  }
}
on *:kick:%CS.Chan: {
  var %cur = 1
  var %max = $ini(Settings.ini,0)
  if ($isacc($usernamebyhost($address($knick,2)))) { writeini $v1 $usernamebyhost($address($knick,2)) Logged 0 }
  while (%cur <= %max) {
    if ($Readini(Settings.ini,$ini(Settings.ini,%cur),Status) == Adding) {
      if ($istok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$knick,32)) { set %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ] $remtok(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .adding ],$knick,32) }
      if ($knick == %CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .admin ]) {
        msg %CS.Chan $NGet($ini(Settings.ini,%cur),name) Number $numer(%CS [ $+ [ $ini(Settings.ini,%cur) ] $+ .number ]) has just stopped by $knick $+ , Reason: The agent part the channel¶.
        Gather-END $ini(Settings.ini,%cur)
      }
    }
    inc %cur
  }
  loadadmins
}
alias isacc {
  if ($ini(admins.ini,$1) > 0) { return admins.ini }
  elseif ($ini(owners.ini,$1) > 0) { return owners.ini }
  elseif ($ini(masters.ini,$1) > 0) { return masters.ini }
  else { return $false }
}
alias userbyhost {
  var %cur = 1
  var %f = owners.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1)  { return Owner } | inc %cur }
  var %cur = 1
  var %f = masters.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1) { return Master } | inc %cur }
  var %cur = 1
  var %f = admins.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1) { return Admin } | inc %cur }
  return $false
}
alias usernamebyhost {
  var %cur = 1
  var %f = owners.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1)  { return $ini(%f,%cur) } | inc %cur }
  var %cur = 1
  var %f = masters.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1) { return $ini(%f,%cur) } | inc %cur }
  var %cur = 1
  var %f = admins.ini
  var %max = $ini(%f,0)
  while (%cur <= %max) { if ($readini(%f,$ini(%f,%cur),Address) == $1) && ($readini(%f,$ini(%f,%cur),Logged) == 1) { return $ini(%f,%cur) } | inc %cur }
  return $false
}
alias ctrlsys {
  if (!$window(@Control-System)) { window @Control-System }
  echo @Control-System $+(3[12,$time,03,$(|),12,$date,3]02) $$1-
}
alias returnlist {
  who %CS.Chan
  var %sent = 0
  if ($1 == Admins) {
    var %f = Admins.ini,%cur = 1,%buffer,%logged = 0,%max = $ini(%f,0),%cur2 = 0
    while (%cur <= %max) {
      if (9 // %cur) { .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur <= 9,Admins list:) ² $+ %buffer) | inc %sent | inc %cur2 | var %buffer }
      var %tlkd = $ini(%f,%cur)
      var %col = $iif($readini(%f,%tlkd,Logged) == 1,03,04)
      var %buffer = %buffer %col $+ %tlkd $+ $iif($readini(%f,%tlkd,Logged),²( $+ $nicksbyhost(%CS.chan,$readini(%f,%tlkd,Address)) $+ ) $+ %col) $+ $chr(91) $+ ¶ $+ $iif($readini(%f,%tlkd,Gathers),$v1,040) $+ %col $+ $chr(93)
      inc %logged $readini(%f,%tlkd,Logged)
      inc %cur
    }
    if (!%buffer) var %buffer = None.
    inc %sent
    .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur < 10,Admins list:) ² $+ %buffer)
  }
  elseif ($1 == masters) {
    var %f = masters.ini,%cur = 1,%buffer,%logged = 0,%max = $ini(%f,0),%cur2 = 0
    while (%cur <= %max) {
      if (9 // %cur) { .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur <= 9,Masters list:) ² $+ %buffer) | inc %sent | inc %cur2 | var %buffer }
      var %tlkd = $ini(%f,%cur)
      var %col = $iif($readini(%f,%tlkd,Logged) == 1,03,04)
      var %buffer = %buffer %col $+ %tlkd $+ $iif($readini(%f,%tlkd,Logged),²( $+ $nicksbyhost(%CS.chan,$readini(%f,%tlkd,Address)) $+ ) $+ %col) $+ $chr(91) $+ ¶ $+ $iif($readini(%f,%tlkd,Gathers),$v1,040) $+ %col $+ $chr(93)
      inc %logged $readini(%f,%tlkd,Logged)
      inc %cur
    }
    if (!%buffer) var %buffer = None.
    .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur < 10,Masters list:) ² $+ %buffer)
    inc %sent
  }
  elseif ($1 == owners) {
    var %f = owners.ini,%cur = 1,%buffer,%logged = 0,%max = $ini(%f,0),%cur2 = 0
    while (%cur <= %max) {
      if (9 // %cur) { .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur <= 9,Owners list:) ² $+ %buffer) | inc %sent | inc %cur2 | var %buffer }
      var %tlkd = $ini(%f,%cur)
      var %col = $iif($readini(%f,%tlkd,Logged) == 1,03,04)
      var %buffer = %buffer %col $+ %tlkd $+ $iif($readini(%f,%tlkd,Logged),²( $+ $nicksbyhost(%CS.chan,$readini(%f,%tlkd,Address)) $+ ) $+ %col) $+ $chr(91) $+ ¶ $+ $iif($readini(%f,%tlkd,Gathers),$v1,040) $+ %col $+ $chr(93)
      inc %logged $readini(%f,%tlkd,Logged)
      inc %cur
    }
    if (!%buffer) var %buffer = None.
    .timer 1 %cur2 /msg %CS.Chan $stl(?,$iif(%cur < 10,Owners list:) ² $+ %buffer)
    inc %sent
  }
  if (%sent > 0) set -u [ $+ [ $calc(%sent *2) ] ] %CS.Flood ReturnLIST pause for $calc(%sent *2) seconds.
  return 0
}
alias subsearch {
  set %CS [ $+ [ $1 ] $+ .sub ] $2
  submsg $1 $uPPeR($2)
  .timersubmsg [ $+ [ $1 ] ] 0 60 submsg $1 $2
}
alias -l submsg {
  if (%CS.Temp.Submsgflood) { return 1 }
  var %cur = 1,%f = Settings.ini,%max = $ini(%f,0),%neededn,%needed
  while (%cur <= %max) {
    if (%CS [ $+ [ $ini(%f,%cur) ] $+ .sub ]) { inc %needed | var %neededn = $addtok(%neededn,$ini(%f,%cur),32) }
    inc %cur
  }
  if (%needed == 1) {
    var %c1 = %Color [ $+ [ $1 ] $+ .c2 ]
    msg %CS.Chan $stl($1,Sub is needed for $iif($NGet($1,Game) != TF2,Team- $+ $upper(%CS [ $+ [ $1 ] $+ .Sub ]),$iif(%CS [ $+ [ $1 ] $+ .Sub ] == A,the 04RED¶ team,the 12BLUE¶ team)) $+ $chr(44) Type %c1 $+ $NGet($1,Sign) $+ ¶sub to be a sub $+ $chr(44) Admin: %c1 $+ %CS [ $+ [ $1 ] $+ .admin ] $+ ¶ $+ $chr(44) Map: %c1 $+ %CS [ $+ [ $1 ] $+ .map ] $+ ¶ $+ $chr(44) $iif(%CS [ $+ [ $1 ] $+ .Live ],Score: $iif($Nget($1,Game) != TF2,%c1 $+ $teamscore(a,$1) $+ ¶- $+ %c1 $+ $teamscore(b,$1),04 $+ %CS [ $+ [ $1 ] $+ .RED ] $+ ¶-12 $+ %CS [ $+ [ $1 ] $+ .BLUE ]) $+ ¶.,Game isn't live yet.))
  }
  elseif (%needed >= 2) {
    var %cur = 1,%max = %needed,%buffer = Subs are needed:
    while (%cur <= %max) {
      var %gnx = $gettok(%neededn,%cur,32)
      var %c1 = %Color [ $+ [ %gnx ] $+ .c2 ]
      var %buffer = %buffer $+ $iif(%cur > 1,$chr(44)) $+ $chr(32) $+ %c1 $+ $NGet(%gnx,Sign) $+ ¶Sub ( $+ %c1 $+ %CS [ $+ [ %gnx ] $+ .map ] $+ ¶| $+ %c1 $+ $iif(%CS [ $+ [ %gnx ] $+ .Live ],$iif($NGet(%gnx,Game) != TF2,$teamscore(a,%gnx) $+ - $+ $teamscore(b,%gnx),$+(04,%CS [ $+ [ %gnx ] $+ .Red ],¶-12,%CS [ $+ [ %gnx ] $+ .BLUE ])),Not-live) $+ ¶)
      inc %cur
    }
    msg %CS.Chan $stl(?,%buffer $+ .)
  }
  set -u35 %CS.Temp.Submsgflood ByZxoR
}
alias ifcscore {
  if (%CS [ $+ [ $1 ] $+ .half ] == First) || (%CS [ $+ [ $1 ] $+ .half ] == Second) { return $true }
  return $false
}
alias details {
  ;/details <num> <nick> <a/b>
  ;$details(<num>,<nick>,<a/b>).return
  if ($nget($1,game) == TF2) {
    if ($prop == return) { return $stl($1,$iif($3 == A,04RED,12BLUE) $+ ¶: Server-IP:² $NGet($1,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet($1,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² $iif($3 == a,%CS [ $+ [ $1 ] $+ .VentA ],%CS [ $+ [ $1 ] $+ .VentB ]) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ $1 ] $+ .Pass ] $+ ¶.) }
    msg $2 $stl($1,$iif($3 == A,04RED,12BLUE) $+ ¶: Server-IP:² $NGet($1,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet($1,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² $iif($3 == a,%CS [ $+ [ $1 ] $+ .VentA ],%CS [ $+ [ $1 ] $+ .VentB ]) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ $1 ] $+ .Pass ] $+ ¶.)
  }
  elseif ($nget($1,game) == CS) {
    if ($prop == return) { return $stl($1,Team-² $+ $upper($3) $+ ¶: Server-IP:² $NGet($1,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet($1,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² $iif($3 == a,%CS [ $+ [ $1 ] $+ .VentA ],%CS [ $+ [ $1 ] $+ .VentB ]) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ $1 ] $+ .Pass ] $+ ¶.) }
    msg $2 $stl($1,Team-² $+ $upper($3) $+ ¶: Server-IP:² $NGet($1,IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -IP:² $NGet($1,V-IP) $+ ¶ $+ $chr(44)  $+ $iif($NGet($1,TS-Selected),TeamSpeak,Ventrilo) $+ -Password:² $iif($3 == a,%CS [ $+ [ $1 ] $+ .VentA ],%CS [ $+ [ $1 ] $+ .VentB ]) $+ ¶ $+ $chr(44) Server-Password:² %CS [ $+ [ $1 ] $+ .Pass ] $+ ¶.)
  }
}
alias updatelist {
  var %cur = 1
  window -c @Rank-Points
  window -c @Rank-Aces
  window -c @Rank-Plants
  window -c @Rank-Kills
  window -c @Rank-deaths
  window -c @Rank-MVPs
  window -c @Rank-rewards
  window -h @Rank-Points
  window -h @Rank-MVPs
  window -h @Rank-Aces
  window -h @Rank-Kills
  window -h @Rank-deaths
  window -h @Rank-Plants
  window -h @Rank-rewards
  var %max = $ini(stats.ini,0)
  while (%cur <= %max) {
    var %steamid = $ini(stats.ini,%cur)
    echo @Rank-Points %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,points),$v1,0)
    echo @Rank-plants %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,plants),$v1,0)
    echo @Rank-aces %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,aces),$v1,0)
    echo @Rank-Kills %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,kills),$v1,0)
    echo @Rank-deaths %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,deaths),$v1,0)
    echo @Rank-MVPs %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,mvps),$v1,0)
    echo @Rank-rewards %steamid $+ \ $+ $readini(stats.ini,%steamid,nick) $+ \ $+ $iif($readini(stats.ini,%steamid,rewards),$v1,0)
    if (%stats.state == 1) && (!%CS.UPTFlood) { .timerAUTOUPT [ $+ [ %cur ] ] 1 %cur autoupt %steamid }
    inc %cur
  }
  if (%stats.state == 1) && (!%CS.UPTFlood) {
    set -u [ $+ [ %cur ] ] %CS.UPTFlood ByZxoR
    if ($1 != quiet) { msg %CS.Chan $stl(?,Gatherbot has been started to update the site. It may take a while (Approximately $expandtime($duration(%cur,2)) $+ ).) }
  }
  filter -cwwtue 3 92 @Rank-Points @Rank-Points *
  filter -cwwtue 3 92 @Rank-Aces @Rank-Aces *
  filter -cwwtue 3 92 @Rank-Plants @Rank-Plants *
  filter -cwwtue 3 92 @Rank-Kills @Rank-Kills *
  filter -cwwtue 3 92 @Rank-Deaths @Rank-deaths *
  filter -cwwtue 3 92 @Rank-MVPs @Rank-MVPs *
  filter -cwwtue 3 92 @Rank-rewards @Rank-rewards *
  var %cur = 1
  while (%cur <= %max) {
    writeini -n stats.ini $gettok($line(@Rank-Points,%cur),1,92) lastrank2 $iif($readini(stats.ini,$gettok($line(@Rank-Points,%cur),1,92),lastrank),$v1,$line(@Rank-Points,0))
    writeini -n stats.ini $gettok($line(@Rank-Points,%cur),1,92) lastrank %cur
    inc %cur
  }
}
alias canrun {
  if ($NGet($1,Status) != OFF) { return $false }
  var %cur = 1
  var %max = $ini(Settings.ini,0)
  while (%cur <= %max) {
    if ($NGet(%cur,Status) == Adding) { return $false }
    inc %cur
  }
  return $true
}
alias addban {
  tokenize 2 $1-
  if (!$secure($1-)) { return 1 }
  if ($duration($regsubex($3,/([^\d]+)/g,\1 $chr(32))) == 0) { tokenize 2 $1  $2  7d  $iif($3,$3-,No Reason) }
  writeini Banned.ini $$1 SteamID $1
  writeini Banned.ini $$1 By $$2
  writeini Banned.ini $$1 Expire $calc($ctime($date $time) + $duration($regsubex($3,/([^\d]+)/g,\1 $chr(32))))
  writeini Banned.ini $$1 Reason $iif($4-,$v1,No Reason)
  .timer -o 1 $duration($regsubex($3,/([^\d]+)/g,\1 $chr(32))) delban $1 Automaticly
  msg %CS.chan $stl(?,$brack(Banned) SteamID: $1 - Banned By: $2 - Duration: $expandtime($duration($duration($regsubex($3,/([^\d]+)/g,\1 $chr(32))))) - For Reason: $iif($4-,$v1,No Reason))
  var %cur = 1,%max = $ini(Settings.ini,0)
  while (%cur <= %max) { rcmd %cur admin_command admin_kick $1 | inc %cur }
  var %cur = 1,%max = $ini(Clubs.ini,0)
  while (%cur <= %max) { crcmd %cur admin_command admin_kick $1 | inc %cur }
  autoupt $$1
  return 1
}
alias delban {
  if (!$ini(banned.ini,$1)) { return 1 }
  if (!$2) { msg %CS.Chan $stl(?,$brack(Unbanned) SteamID:² $1 $+ ¶ $+ $chr(44) The reason was:² $readini(banned.ini,$1,Reason) $+ ¶.) }
  remini Banned.ini $$1
  autoupt $$1
  return 1
}
alias isban {
  return $readini(Banned.ini,$$1,SteamID)
  return 0
}
alias dban {
  if ($prop == by) { return $Readini(Banned.ini,$1,by) }
  elseif ($prop == Reason) { return $Readini(Banned.ini,$1,Reason) }
  elseif ($prop == expire) { return $Readini(Banned.ini,$1,Expire) }
}
alias expiredate { return $date($dban($$1).expire) $time($dban($1).expire) }
alias nickbysteam { return $iif($readini(Stats.ini,$1,Nick),$v1,(Unknown Nick)) }
alias steambynick {
  var %cur = 1
  var %max = $ini(Stats.ini,0)
  while (%cur <= %max) {
    var %cura = $ini(Stats.ini,%cur)
    if (* $+ $1 $+ * iswm $readini(Stats.ini,%cura,Nick)) { return %cura }
    inc %cur
  }
  return $false
}
alias timeleftbysteam {
  return $expandtime($duration($calc( $readini(Banned.ini,$$1,Expire) - $ctime($date $time) ),2))
  return 0
}
alias timeleftbysteamex {
  return $calc( $readini(Banned.ini,$$1,Expire) - $ctime($date $time) )
  return 0
}
alias isexpire {
  if ($calc( $readini(Banned.ini,$$1,Expire) - $ctime($date $time) ) <= 0) { return $true }
  else return $false
}
alias checkexpires {
  var %cur = 1,%max = $ini(banned.ini,0)
  while (%cur <= %max) {
    var %tlkd = $ini(Banned.ini,%cur)
    if ($isexpire(%tlkd)) { remini Banned.ini %tlkd }
    else { .timer -o 1 $timeleftbysteamex(%tlkd) delban %tlkd Automaticly }
    inc %cur
  }
  return 1
}
on *:start: {
  run -n DDEAssistance.exe
  DataUpdate
  checkexpires
  retryrcons
  ClearGatherbot
  .timer 1 60 retryrcons $(|) reloadrcon
  dialog -m zxor_crd zxor_crd
}
on *:exit: {
  ddecmd disconnect
  run taskkill.exe /F /IM DDEAssistance.exe
}
alias issteam {
  return $regex($1,/^STEAM_\d:\d:\d+$/i)
}
alias HL {
  .timerT1M3 [ $+ [ $1 ] ] 1 35 msg %CS.Chan $stl($1,$Nget($1,name) server connection is timed out.) $(|) unset %ip $(|) unset %CS.Temp.HL2P
  set %ip $1
  set %CS.Temp.HL2P $NGET($1,IP)
  bset -t &hl 1 $str($chr(255),4) $+ TSource Engine Query
  bset &hl $calc($bvar(&hl,0) + 1) 0
  .sockudp -k HL $replace(%CS.Temp.HL2P,$chr(58),$chr(32)) &hl
  .timer 1 2 unset %CS.Temp.HL*
}
alias CHL {
  set %cip $1
  if ($2 == full) { set -u2 %iwantfull 1 }
  set %CS.CTemp.HL2P $readini(Clubs.ini,$ini(clubs.ini,$1),IP)
  bset -t &hl 1 $str($chr(255),4) $+ TSource Engine Query
  bset &hl $calc($bvar(&hl,0) + 1) 0
  .sockudp -k CHL $replace(%CS.CTemp.HL2P,$chr(58),$chr(32)) &hl
  .timer 1 2 unset %CS.CTemp.HL*
}
alias HLB { return $bvar(&HL,1,$bvar(&HL,0)).text }
on *:UDPREAD:HL: {
  var %CS.Temp.HL-Number = %ip
  sockread -f &reply
  var %offset, %CS.Temp.HL-name, %CS.Temp.HL-map, %game, %num, %max, %ip, %dir,%CS.Temp.HL-Players,%CS.Temp.HL-Type
  if ($chr($bvar(&reply,5)) == m) {
    %offset = 6
    %ip = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.Temp.HL-name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.Temp.HL-map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.Temp.HL-Type = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %num = $bvar(&reply,%offset)
    %max = $bvar(&reply,$calc(%offset + 1))
    %CS.Temp.HL-Players = %num $+ / $+ %max
  }
  else {
    %offset = 7
    %CS.Temp.HL-name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.Temp.HL-map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.Temp.HL-Type = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %num = $bvar(&reply,$calc(%offset + 2))
    %max = $bvar(&reply,$calc(%offset + 3))
    %CS.Temp.HL-Players = %num $+ / $+ %max
  }
  if (!%CS.Temp.HL-Map) || (!%CS.Temp.HL-Name) || (!%CS.Temp.HL-Players) || (!%CS.Temp.HL-Type) || (*/dl

???
???????
??? iswm $HLB) { return 1 }
  if ($NGet(%CS.Temp.HL-Number,Connected) == ON) {
    msg %CS.Chan $stl(%CS.Temp.HL-Number,Hostname:² %CS.Temp.HL-Name ¶ $+ $(|) ¶Players:² %CS.Temp.HL-Players ¶ $+ $(|) ¶Map:² %CS.Temp.HL-Map ¶ $+ $(|) ¶IP:² $NGet(%CS.Temp.HL-Number,IP))
  }
  else {
    .timert1m3 [ $+ [ %CS.Temp.HL-Number ] ] off
    msg %CS.Chan $stl(%CS.Temp.HL-Number,$NGet(%CS.Temp.HL-Number,Name) $iif($NGet(%CS.Temp.HL-Number,Game) != TF2,Counter-Strike,Team-Fortress) server is not connected ( $+ $NGet(%CS.Temp.HL-Number,Connected) $+ ).)
  }
  .timerT1M3 [ $+ [ %CS.Temp.HL-Number ] ] off
  .timer 1 1 unset %ip $(|) unset %CS.Temp.HL2S
}
on *:UDPREAD:CHL: {
  sockread -f &reply
  var %offset, %CS.CTemp.HL-name, %CS.CTemp.HL-map, %game, %num, %max, %ip, %dir,%CS.CTemp.HL-Players,%CS.CTemp.HL-Type
  if ($chr($bvar(&reply,5)) == m) {
    %offset = 6
    %ip = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.CTemp.HL-name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.CTemp.HL-map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.CTemp.HL-Type = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %num = $bvar(&reply,%offset)
    %max = $bvar(&reply,$calc(%offset + 1))
    %CS.CTemp.HL-Players = %num $+ / $+ %max
  }
  else {
    %offset = 7
    %CS.CTemp.HL-name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.CTemp.HL-map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %CS.CTemp.HL-Type = $bvar(&reply,%offset,128).text
    inc %offset $calc($len($bvar(&reply,%offset,128).text) + 1)
    %num = $bvar(&reply,$calc(%offset + 2))
    %max = $bvar(&reply,$calc(%offset + 3))
    %CS.CTemp.HL-Players = %num $+ / $+ %max
  }
  .timer 1 1 unset %cip $(|) unset %CS.CTemp.HL2S $(|) .unset %iwantfull
  msg %CS.Chan $stl(?,Club $chr(35) $+ %cip Host:² %CS.CTemp.HL-Name ¶ $+ $(|) ¶Players:² %CS.CTemp.HL-Players ¶ $+ $(|) ¶Map:² %CS.CTemp.HL-Map ¶ $+ $(|) ¶IP:² $Readini(Clubs.ini,%cip,IP) ¶ $+ $(|) Game:² $iif($Readini(clubs.ini,%cip,Game) == TF2,Team Fortress 2,Counter-Strike 1.6))
  if (%iwantfull == 1) { msg %CS.Chan $stl(?,Players:² $iif($cfix32(%CS.Club [ $+ [ %cip ] $+ .players ]),$v1,Empty) $+ ¶.) }
}
on *:sockclose:HL: {
  if (!%CS.Temp.HL-Name) { msg %CS.Chan $stl(%ip,$NGet(%ip,Name) server is offline.) | .timert1m3 [ $+ [ %ip ] ] off }
  unset %CS.Temp.HL-*
  unset %ip
  unset %CS.Temp.HL2S
}
alias fix32 {
  return $replace($reptok($1,%CS [ $+ [ $2 ] $+ .Admin ],4« $+ %CS [ $+ [ $2 ] $+ .Admin ] $+ 4»²,1,32),$chr(32),¶ $+ $chr(44) $+ ² $+ $chr(32))
}
alias cfix32 {
  return $replace($1,$chr(44),¶ $+ $chr(44) $+ ² $+ $chr(32))
}
alias overtime {
  var %a $duration($calc( $ctime($date $time) - $1 ) ,2)
  return $expandtime(%a)
}
alias split {
  if (A.* iswm $1) || (B.* iswm $1) { return $Rescuechar($mid($1-,3)) }
  else { return $Rescuechar($1-) }
}
dialog zxor_dde {
  title "ZxoR Gatherbot DDE Assistant"
  size -1 -1 202 69
  option dbu
  text "DDE IRC Server:", 1, 1 2 48 8, center
  text "DDE IRC Port:", 2, 1 12 48 8, center
  text "DDE IRC Nickname: ", 3, 1 22 48 8, center
  text "Identify line: /MSG ", 4, 1 32 48 8, center
  edit "irc.SERVERNAME.com", 5, 51 1 150 10, multi return autohs autovs
  edit "6667", 6, 51 11 150 10, multi return autohs autovs
  edit "ZGb-Assistant", 7, 51 21 150 10, multi return autohs autovs
  edit "Q@CServe.quakenet.org AUTH USERNAME PASSWORD", 8, 51 31 150 10, multi return autohs autovs
  check "Enable DDE Assistant", 9, 2 44 62 10
  button "Save and Connect", 11, 1 56 200 12
}
dialog zxor_crd {
  title "ZxoR Gatherbot - Thanks list"
  size -1 -1 364 107
  option dbu
  icon 3, 0 -32 366 168, Thanks.bmp, 0
}
dialog zxor_sctrl {
  title "Servers Manager"
  size -1 -1 208 216
  option dbu
  box "Edit Place", 1, 0 47 208 169
  list 2, 1 11 167 36, size
  text "Available Servers:", 3, 2 1 165 8, center
  button "Add", 4, 169 11 37 12
  button "Delete", 5, 169 23 37 12
  button "Reload", 6, 169 35 37 12
  button "Save", 22, 2 202 204 12, disable
  edit "", 8, 126 -3 31 4, hide disable
  button "R", 59, 400 230 8 42
  tab "Main Settings", 74, 2 52 203 148
  text "Gatherbot Name:", 9, 45 72 42 8, tab 74
  edit "", 10, 88 71 66 10, tab 74 autohs autovs
  text "Server IP:Port:", 11, 47 83 38 8, tab 74
  edit "", 12, 88 82 66 10, tab 74 autohs autovs
  text "Socket Port:", 13, 50 94 30 8, tab 74
  edit "", 14, 88 93 45 10, tab 74 autohs autovs
  button "Rand", 15, 134 94 19 8, tab 74
  text "Rcon:", 16, 59 105 15 8, tab 74
  edit "", 17, 88 104 66 10, tab 74 autohs autovs
  text "Max Players:", 18, 51 116 32 8, tab 74
  edit "", 19, 88 115 24 10, tab 74 autohs autovs
  text "Sign:", 20, 114 116 13 8, tab 74
  check "Mixing Teams", 32, 88 126 65 10, tab 74
  edit "", 21, 129 115 25 10, tab 74 autohs autovs
  text "Mixing Teams:", 31, 50 127 35 8, tab 74
  text "Auto Mix:", 42, 55 138 24 8, tab 74
  check "no !rstart needed", 43, 88 137 66 10, tab 74
  check "Locked ?", 46, 88 147 67 10, tab 74
  button "Open maps list", 48, 96 158 58 9, disable tab 74
  text "Ranking?:", 57, 48 169 36 8, tab 74 center
  check "Rank players.", 58, 88 168 50 10, tab 74
  check "", 65, 88 157 7 10, tab 74
  text "Random Maps:", 49, 48 158 36 8, tab 74
  text "Locked:", 47, 57 148 19 8, tab 74
  tab "Game Type", 78
  radio "Regular", 54, 15 80 50 10, tab 78
  radio "Fun", 45, 15 89 50 10, tab 78
  radio "DeathMatch Target:", 55, 15 98 59 10, tab 78
  radio "GunGame Target:", 63, 15 107 59 10, tab 78
  edit "", 64, 75 109 17 9, tab 78 autohs autovs
  edit "", 56, 75 99 17 9, tab 78 autohs autovs
  box "Counter-Strike:", 80, 12 72 91 50, tab 78
  box "Team Fortress", 79, 107 72 91 50, tab 78
  radio "Team Fortress 2", 81, 110 82 52 10, tab 78
  text "Mods: cp_/ctf_/pl_/plr_", 44, 119 91 58 8, tab 78
  tab "Ventrilo/TeamSpeak", 82
  text "IP:Port:", 23, 35 78 54 8, tab 82 center
  edit "", 24, 89 77 80 10, tab 82 autohs autovs
  text "Rcon:", 25, 35 89 54 8, tab 82 center
  edit "", 26, 89 88 80 10, tab 82 autohs autovs
  text "Channel:", 27, 35 100 54 8, tab 82 center
  edit "", 28, 89 99 80 10, tab 82 autohs autovs
  text "Version:", 29, 35 111 54 8, tab 82 center
  edit "", 30, 89 110 80 10, tab 82 autohs autovs
  edit "", 7, 89 131 80 10, tab 82 autohs autovs
  text "IP:Port:", 66, 35 132 54 8, tab 82 center
  text "Admin Username:", 68, 35 143 54 8, tab 82 center
  edit "", 69, 89 142 80 10, tab 82 autohs autovs
  edit "", 70, 89 153 80 10, tab 82 autohs autovs
  text "Admin Password:", 71, 35 154 54 8, tab 82 center
  text "Connection TCP Port:", 72, 35 165 54 8, tab 82 center
  edit "", 73, 89 164 80 10, tab 82 autohs autovs
  edit "", 75, 89 175 80 10, tab 82 autohs autovs
  text "Main Channel ID:", 76, 35 176 54 8, tab 82 center
  text " .::. Ventrilo .::.", 50, 35 68 133 8, tab 82 center
  text " .::. TeamSpeak .::.", 77, 35 122 133 8, tab 82 center
  check "Use TeamSpeak Instead of ventrilo.", 67, 35 187 134 10, tab 82
  tab "Colors", 83
  text ".::. Colors .::.", 33, 38 105 135 8, tab 83 center
  edit "", 35, 92 113 68 10, tab 83 autohs autovs
  text "Color #1 (Main):", 34, 50 114 40 8, tab 83
  text "Color #2 (Alt):", 37, 51 125 38 8, tab 83
  edit "", 36, 92 124 68 10, tab 83 autohs autovs
  edit "", 38, 92 135 68 10, tab 83 autohs autovs
  text "Start Prefix:", 41, 51 136 38 8, tab 83 center
  text "End Prefix:", 40, 51 147 38 8, tab 83 center
  edit "", 39, 92 146 68 10, tab 83 autohs autovs
  tab "TV", 60
  box "Source (sourceTV)", 61, 47 127 114 36, tab 60
  radio "sourceTV Enabled", 87, 50 138 54 10, tab 60
  text "sourceTV Server:", 85, 51 149 43 8, tab 60
  edit "", 86, 95 148 64 10, tab 60 autohs autovs
  edit "", 53, 87 110 72 10, tab 60 autohs autovs
  box "Half-Life (HLTV)", 84, 47 91 114 36, tab 60
  text "HLTV Server:", 51, 51 111 32 8, tab 60
  radio "HLTV Enabled", 62, 50 99 50 10, tab 60
  check "Enable TV server", 52, 47 81 52 10, tab 60
}
dialog zxor_clubs {
  title "Clubs Manager"
  size -1 -1 148 112
  option dbu
  list 1, 0 0 109 43, size
  button "Add", 2, 110 2 37 12
  button "Delete", 3, 110 16 37 12
  button "Reset", 4, 110 30 37 12
  box "Club - ID: 0", 5, 1 44 146 67
  text "Club IP:", 6, 5 63 30 8, center
  text "Club rcon:", 7, 5 74 30 8, center
  text "Socket port:", 8, 5 85 30 8, center
  edit "", 9, 36 62 108 10
  edit "", 10, 36 73 108 10
  edit "", 11, 36 84 108 10
  button "Save", 12, 5 96 139 12
  radio "Counter-Strike 1.6", 13, 5 52 56 10
  radio "Team Fortress 2", 14, 65 52 50 10
}
on *:dialog:*:init:0: {
  if ($dname == zxor_sctrl) {
    var %cur = 1,%max = $ini(Settings.ini,0)
    while (%cur <= %max) {
      did -a zxor_sctrl 2 $readini(Settings.ini,$ini(Settings.ini,%cur),Name) ( $+ $ini(Settings.ini,%cur) $+ )
      inc %cur
    }
    did -c zxor_sctrl 2 1
    if ($did($dname,2).lines > 0) { fillselected }
    elseif ($did($dname,2).lines == 0) { did -b $dname 48 | did -b $dname 22 | did -b $dname 5 }
  }
  elseif ($dname == zxor_dde) {
    if (%dde.server) did -ra $dname 5 $v1
    if (%dde.port) did -ra $dname 6 $v1
    if (%dde.nick) did -ra $dname 7 $v1
    if (%dde.identify) did -ra $dname 8 $v1
    if (%dde) did -c $dname 9
  }
  elseif ($dname == zxor_clubs) {
    var %cur = 1,%max = $ini(Clubs.ini,0)
    while (%cur <= %max) {
      did -a zxor_clubs 1 $readini(Clubs.ini,$ini(Clubs.ini,%cur),IP) ( $+ $ini(Clubs.ini,%cur) $+ )
      inc %cur
    }
    did -c zxor_clubs 1 1
    cfillselected
  }
  elseif ($dname == zxor_rates) {
    var %cur = 1,%max = $lines(rates.txt)
    while (%cur <= %max) {
      did -o $dname 1 %cur $read(rates.txt,%cur)
      inc %cur
    }
  }
  elseif ($dname == ZxoR_actrl) {
    loadadmins
    did -c $dname 1 1
    did -b $dname 17,18
  }
  elseif ($dname == zxor_rcon) {
    reloadrcon
  }
  elseif ($dname == zxor_site) {
    if (%stats.site) { did -ra $dname 3 $v1 }
    if (%stats.page) { did -ra $dname 5 $v1 }
    if (%stats.passkey) { did -ra $dname 7 $v1 }
    if (%stats.pinfo) { did -ra $dname 10 $v1 }
    if (%stats.plist) { did -ra $dname 13 $v1 }
    if (%stats.state == 1) { did -c $dname 8 } | else { did -u $dname 8 }
  }
  elseif ($dname == zxor_main) {
    did -ra zxor_main 2 %Color?.c1
    did -ra zxor_main 4 %Color?.c2
    did -ra zxor_main 6 %Color?.p1
    did -ra zxor_main 7 %Color?.p2
    did -ra zxor_main 13 %CS.Chan
    if (%CS.Sounds == 1) { did -c $dname 11 } | else { did -u $dname 11 }
  }
}
on *:dialog:*:sclick:*: {
  if ($dname == zxor_rates) {
    var %cur = 1,%max = $did($dname,1).lines
    write -c rates.txt
    while (%cur <= %max) {
      write rates.txt $did($dname,1,%cur).text
      inc %cur
    }
  }
  elseif ($dname == zxor_maps) {
    if ($did == 2) { write Maplist [ $+ [ $did($dname,6) ] $+ .txt ] $lower($$?="Please enter map name") | reloadmaps }
    elseif ($did == 3) { .write -dl [ $+ [ $did(zxor_maps,1).sel ] ] Maplist [ $+ [ $did($dname,6) ] $+ .txt ] | reloadmaps }
    elseif ($did == 4) {
      var %sid = $did($dname,6)
      if ($NGet(%sid,CONNECTED) != ON) { noop $input(Error: $NGet(%sid,name) is not connected to the server.,ho,Error) | return 1 }
      if (%CS.AskForMaps) { noop $input(Error: You are already request maps for $NGet($v1,name) $+ .,ho,Error) | return 1 }
      set -u5 %CS.AskForMaps %sid
      .timer 1 5 reloadmaps
      .timer 1 5.1 lookupm %sid
      write -c Maplist [ $+ [ %sid ] $+ .txt ]
      did -r $dname 1
      rcmd %sid maps *
    }
  }
  elseif ($dname == zxor_dde) {
    if ($did == 11) {
      set %dde.server $did($dname,5)
      set %dde.port $did($dname,6)
      set %dde.nick $did($dname,7)
      set %dde.identify $did($dname,8)
      set %dde $did($dname,9).state
      if (%dde) {
        ddecmd channel %CS.Chan
        if (%dde.identify) ddecmd identify $v1
        ddecmd nick %dde.nick
        ddecmd host %DDE.server %DDE.port
        ddecmd connect
      }
      else { dde DDEAssistance ddeDDEconv ddeDDEServer disconnect }
    }
  }
  elseif ($dname == zxor_actrl) {
    if ($did == 1) {
      if (!$did($dname,1).seltext) return 1
      var %name = $gettok($did($dname,1).seltext,1,32),%level = $remove($gettok($did($dname,1).seltext,2,32),$chr(41),$chr(40)),%steam = $readini(%level $+ s.ini,%name,Steam)
      did -ra $dname 7 %name
      did -ra $dname 8 %level
      did -ra $dname 22 %steam
      did -r $dname 21
      var %file = %level $+ s.ini
      if (!$readini(%file,%name,Cant-run)) { did -c $dname 9 } | else { did -u $dname 9 }
      if (!$readini(%file,%name,Cant-ban)) { did -c $dname 10 } | else { did -u $dname 10 }
      if (!$readini(%file,%name,Cant-unban)) { did -c $dname 11 } | else { did -u $dname 11 }
      if (!$readini(%file,%name,Cant-addremove)) { did -c $dname 12 } | else { did -u $dname 12 }
      if (!$readini(%file,%name,Cant-password)) { did -c $dname 13 } | else { did -u $dname 13 }
      if (!$readini(%file,%name,Cant-info)) { did -c $dname 14 } | else { did -u $dname 14 }
      if (!$readini(%file,%name,Cant-refresh)) { did -c $dname 15 } | else { did -u $dname 15 }
      if (!$readini(%file,%name,Cant-set)) { did -c $dname 16 } | else { did -u $dname 16 }
      did -e $dname 17,18
    }
    elseif ($did == 17) {
      var %name = $gettok($did($dname,1).seltext,1,32),%level = $remove($gettok($did($dname,1).seltext,2,32),$chr(41),$chr(40)),%steam = $did($dname,22).text,%file = %level $+ s.ini
      if (!$issteam($did($dname,22).text)) { noop $$input(Invaild steam ID.,ho,Error) | return 1 }
      if (!$did($dname,9).state) { writeini %file %name Cant-Run 1 } | else { writeini %file %name Cant-Run 0 }
      if (!$did($dname,10).state) { writeini %file %name Cant-ban 1 } | else { writeini %file %name Cant-ban 0 }
      if (!$did($dname,11).state) { writeini %file %name Cant-unban 1 } | else { writeini %file %name Cant-unban 0 }
      if (!$did($dname,12).state) { writeini %file %name Cant-addremove 1 } | else { writeini %file %name Cant-addremove 0 }
      if (!$did($dname,13).state) { writeini %file %name Cant-password 1 } | else { writeini %file %name Cant-password 0 }
      if (!$did($dname,14).state) { writeini %file %name Cant-info 1 } | else { writeini %file %name Cant-info 0 }
      if (!$did($dname,15).state) { writeini %file %name Cant-refresh 1 } | else { writeini %file %name Cant-refresh 0 }
      if (!$did($dname,16).state) { writeini %file %name Cant-set 1 } | else { writeini %file %name Cant-set 0 }
      if ($did($dname,22).text) { writeini %file %name Steam $v1 }
      if ($did($dname,21).text) { writeini %file %name Password $md5($v1) }
      noop $$input(%Name rights has been saved.,io,Done!)
    }
    elseif ($did == 18) {
      var %name = $gettok($did($dname,1).seltext,1,32),%level = $remove($gettok($did($dname,1).seltext,2,32),$chr(41),$chr(40)),%file = %level $+ s.ini
      remini %file %name
      noop $$input(%Name has been removed from %level $+ s list..,io,Done!)
      loadadmins
      did -b $dname 17,18
    }
    elseif ($did == 23) {
      var %fx = $?="Please Enter level: Admin / Master / Owner"
      if (%fx != Master) && (%fx != Owner) && (%fx != Admin) { noop $$input(Error: Wrong level.,ho,Error) | return 0 }
      var %usr = $?="Please enter username"
      var %f = %fx $+ s.ini
      var %pwd = $?="Please enter password"
      writeini %f %usr Password $md5(%pwd)
      writeini %f %usr Logged 0
      var %st = $?="Please enter steam id (Like: STEAM_0:1:12980927)"
      if (!$issteam(%st)) { noop $$input(Error: Wrong SteamID.,ho,Error) | remini %f %usr | return 0 }
      writeini %f %usr Steam %st
      writeini %f %usr Gathers 0
      if (%fx == Admin) { var %lv 1 }
      elseif (%fx == Master) { var %lv 2 }
      elseif (%fx == Owner) { var %lv 3 }
      else { var %lv 0 }
      noop $$input(Done! The %fx %usr has been added.,io,Done!)
      loadadmins
    }
  }
  elseif ($dname == zxor_clubs) {
    if ($did == 2) {
      var %cur = 1,%f = Clubs.ini
      while (!%maxo) {
        if (!$readini(%f,$ini(%f,%cur),IP)) { var %scid = %cur | break }
        inc %cur
      }
      writeini clubs.ini %scid IP 0.0.0.0:0000
      writeini clubs.ini %scid Port 0000
      writeini clubs.ini %scid RconPASS xxxx
      writeini clubs.ini %scid Game CS
      writeini clubs.ini %scid Version 2.7
      did -r $dname 1
      var %cur = 1,%max = $ini(Clubs.ini,0)
      while (%cur <= %max) {
        did -a zxor_clubs 1 $readini(Clubs.ini,$ini(Clubs.ini,%cur),IP) ( $+ $ini(Clubs.ini,%cur) $+ )
        inc %cur
      }
      did -c zxor_clubs 1 $calc(%cur -1)
      cfillselected
    }
    elseif ($did == 3) {
      var %sid = $remove($gettok($did(zxor_clubs,1).seltext,2,32),$chr(41),$chr(40))
      remini Clubs.ini %sid
      .timercrconkeep [ $+ [ %sid ] ] off
      did -r $dname 1
      .sockclose club [ $+ [ %sid ] $+ * ]
      .timercecho [ $+ [ %cid ] ] off
      var %cur = 1,%max = $ini(Clubs.ini,0)
      while (%cur <= %max) {
        did -a zxor_clubs 1 $readini(Clubs.ini,$ini(Clubs.ini,%cur),IP) ( $+ $ini(Clubs.ini,%cur) $+ )
        inc %cur
      }
      did -c zxor_clubs 1 1
      cfillselected
    }
    elseif ($did == 4) { cfillselected }
    elseif ($did == 12) {
      var %sid = $remove($gettok($did(zxor_clubs,1).seltext,-1,32),$chr(41),$chr(40))
      writeini clubs.ini %sid IP $did($dname,9)
      writeini clubs.ini %sid Port $did($dname,11)
      writeini clubs.ini %sid RconPASS $did($dname,10)
      if ($did($dname,13).state) { writeini clubs.ini %sid Game CS }
      else { writeini clubs.ini %sid Game TF2 }
      did -r $dname 1
      var %cur = 1,%max = $ini(Clubs.ini,0)
      while (%cur <= %max) {
        did -a zxor_clubs 1 $readini(Clubs.ini,$ini(Clubs.ini,%cur),IP) ( $+ $ini(Clubs.ini,%cur) $+ )
        inc %cur
      }
      did -c $dname 1 %sid
      crcon %sid
    }
    elseif ($did == 1) { cfillselected }
  }
  elseif ($dname == zxor_sctrl) {
    if ($did == 6) {
      fillselected
    }
    elseif ($did == 59) {
      did -ra $dname 35 00,01
      did -ra $dname 36 07,01
      did -ra $dname 38 7,1[15«0
      did -ra $dname 39 15,1»7]
    }
    elseif ($did == 55) || ($did == 63) { did -u $dname 58 }
    elseif ($did == 45) || ($did == 54) { did -c $dname 58 }
    elseif ($did == 48) {
      if (!$dialog(zxor_maps)) dialog -m zxor_maps zxor_maps
      did -ra zxor_maps 6 $remove($gettok($did(zxor_sctrl,2).seltext,-1,32),$chr(41),$chr(40))
      reloadmaps
    }
    elseif ($did == 4) {
      var %cur = 1,%f = Settings.ini
      while (!%maxo) {
        if (!$readini(%f,$ini(%f,%cur),IP)) { var %scid = %cur | break }
        inc %cur
      }
      NSet %scid IP 0.0.0.0:0000
      NSet %scid Name Gatherbot 1
      NSet %scid MaxPlayers 10
      NSet %scid Port 0000
      NSet %scid Status OFF
      NSet %scid Sign !
      NSet %scid Connected OFF
      NSet %scid Number 0
      NSet %scid RCONPass xxxxx
      NSet %scid V-IP 0.0.0.0:0000
      NSet %scid V-Rcon xxxxx
      NSet %scid V-Chan xxxxx
      NSet %scid V-Ver x.x
      NSet %scid TS-IP 0.0.0.0:0000
      NSet %scid TS-Username Administrator
      NSet %scid TS-Password ***********
      NSet %scid TS-TCP 10011
      NSet %scid TS-Channel 00
      Nset %scid TS-Selected 0
      NSet %scid Mixing 1
      NSet %scid AutoMix 1
      NSet %scid Game CS
      NSet %scid Rank 1
      NSet %scid Locked 0
      NSet %scid Today 0
      NSet %scid Fun 0
      NSet %scid Last 0 None None
      NSet %scid HLTV 0.0.0.0:00000
      NSet %scid ISHLTV 1
      NSet %scid sourceTV 0.0.0.0:00000
      NSet %scid ISsourceTV 0
      NSet %scid useTV 0
      NSet %scid RandMap 1
      NSet %scid Type Regular
      NSet %scid DM-Target 200
      NSet %scid GG-Target 30
      NSet %scid Version 2.7
      set %Color [ $+ [ %scid ] $+ .c1 ] 00,01
      set %Color [ $+ [ %scid ] $+ .c2 ] 07,01
      set %Color [ $+ [ %scid ] $+ .p1 ] 7,1[15«0
      set %Color [ $+ [ %scid ] $+ .p2 ] 15,1»7]
      write -c Maplist [ $+ [ %scid ] $+ .txt ] de_dust2
      write Maplist [ $+ [ %scid ] $+ .txt ] de_dust
      write Maplist [ $+ [ %scid ] $+ .txt ] de_inferno
      write Maplist [ $+ [ %scid ] $+ .txt ] de_nuke
      var %cur = 1,%max = $ini(Settings.ini,0)
      did -r zxor_sctrl 2
      while (%cur <= %max) {
        did -a zxor_sctrl 2 $readini(Settings.ini,$ini(Settings.ini,%cur),Name) ( $+ $ini(Settings.ini,%cur) $+ )
        inc %cur
      }
      did -c zxor_sctrl 2 %scid
      fillselected
    }
    elseif ($did == 22) {
      var %cur = 1,%max = $ini(Settings.ini,0),%scid = $did(zxor_sctrl,8)
      while (%cur <= %max) {
        if ($did(zxor_sctrl,21) == $readini(Settings.ini,$ini(Settings.ini,%cur),Sign)) && (%cur != %scid) { noop $$input(Error: This sign is already in use by $NGet(%cur,name) $+ .,ho,Error) | return 1 }
        if (($did(zxor_sctrl,14) == $readini(Settings.ini,$ini(Settings.ini,%cur),Port)) || ($did(zxor_sctrl,14) == $readini(Settings.ini,$ini(Settings.ini,%cur),TS-Port))) && (%cur != %scid) { noop $$input(Error: The port $Brack($did(zxor_sctrl,14)) is already in use by $NGet(%cur,name) $+ .,ho,Error) | return 1 }
        if ($did(zxor_sctrl,10) == $readini(Settings.ini,$ini(Settings.ini,%cur),Name)) && (%cur != %scid) { noop $$input(Error: The name of the gatherbot is already in use for other gatherbot! you have to choose another name.,ho,Error) | return 1 }
        if ($did(zxor_sctrl,12) == $readini(Settings.ini,$ini(Settings.ini,%cur),IP)) && (%cur != %scid) { noop $$input(Error: The server that you choose for this gatherbot is the same server for $NGet(%cur,Name) $+ $chr(44) You have to choose another server.,ho,Error) | return 1 }
        inc %cur
      }
      if ($did($dname,14) == $did($dname,73)) { noop $$input(Error: The port of the TeamSpeak TCP Connection cant be the same as the Gatherbot Socket Port.,ho,Error) | return 1 }
      if ($did($dname,19) < 4) && ($did($dname,81).state) { noop $$input(Error: TF2 Game type cannot handle less then 4 players. You must choose 4 or more.,ho,Error) | return 1 }
      NSet %scid IP $did(zxor_sctrl,12)
      NSet %scid Name $did(zxor_sctrl,10)
      NSet %scid MaxPlayers $iif(2 // $did(zxor_sctrl,19),$did(zxor_sctrl,19),$calc($did(zxor_sctrl,19) +1))
      NSet %scid Port $did(zxor_sctrl,14)
      NSet %scid Sign $did(zxor_sctrl,21)
      NSet %scid RCONPass $did(zxor_sctrl,17)
      NSet %scid V-Ver $did(zxor_sctrl,30)
      NSet %scid V-IP $did(zxor_sctrl,24)
      NSet %scid V-Rcon $did(zxor_sctrl,26)
      NSet %scid V-Chan $did(zxor_sctrl,28)
      NSet %scid TS-IP $did(zxor_sctrl,7)
      NSet %scid TS-Username $did(zxor_sctrl,69)
      NSet %scid TS-Password $did(zxor_sctrl,70)
      NSet %scid TS-TCP $did(zxor_sctrl,73)
      NSet %scid TS-Channel $did(zxor_sctrl,75)
      NSet %scid Mixing $did(zxor_sctrl,32).state
      NSet %scid AutoMix $did(zxor_sctrl,43).state
      NSet %scid Locked $did(zxor_sctrl,46).state
      NSet %scid HLTV $did(zxor_sctrl,53)
      NSet %scid ISHLTV $did(zxor_sctrl,62).state
      NSet %scid sourceTV $did(zxor_sctrl,86)
      NSet %scid ISsourceTV $did(zxor_sctrl,87).state
      NSet %scid useTV $did(zxor_sctrl,52).state
      NSet %scid RandMap $did(zxor_sctrl,65).state
      NSet %scid DM-Target $did(zxor_sctrl,56)
      NSet %scid GG-Target $did(zxor_sctrl,64)
      NSet %scid Fun $did(zxor_sctrl,45).state
      NSet %scid Rank $did(zxor_sctrl,58).state
      Nset %scid TS-Selected $did(zxor_sctrl,67).state
      if ($did($dname,54).state) { NSet %scid Type Regular | NSET %scid Fun 0 | Nset %scid Game CS }
      elseif ($did($dname,45).state) { NSet %scid Type Regular | NSET %scid Fun 1 | Nset %scid Game CS }
      elseif ($did($dname,63).state) { NSet %scid Type GG | NSET %scid Fun 0 | Nset %scid Game CS }
      elseif ($did($dname,55).state) { NSet %scid Type DM | NSET %scid Fun 0 | Nset %scid Game CS }
      elseif ($did($dname,81).state) { if ($NGet(%scid,Status) == off) { NSet %scid Type None } | NSet %scid Fun 0 | Nset %scid Game TF2 }
      set %Color [ $+ [ %scid ] $+ .c1 ] $did(zxor_sctrl,35)
      set %Color [ $+ [ %scid ] $+ .c2 ] $did(zxor_sctrl,36)
      set %Color [ $+ [ %scid ] $+ .p1 ] $did(zxor_sctrl,38)
      set %Color [ $+ [ %scid ] $+ .p2 ] $did(zxor_sctrl,39)
      var %cur = 1,%max = $ini(Settings.ini,0)
      var %scid = $did(zxor_sctrl,2).sel
      did -r zxor_sctrl 2
      while (%cur <= %max) {
        did -a zxor_sctrl 2 $readini(Settings.ini,$ini(Settings.ini,%cur),Name) ( $+ $ini(Settings.ini,%cur) $+ )
        inc %cur
      }
      did -c zxor_sctrl 2 %scid
      fillselected
      retryrcons
    }
    elseif ($did == 2) {
      fillselected
    }
    elseif ($did == 15) {
      :sel
      var %r = $r(1111,9999),%cur = 1,%max = $ini(Settings.ini,0)
      while (%cur <= %max) {
        if ($Readini(Settings.ini,$Ini(Settings.ini,%cur),Port) == %r) || ($Readini(Settings.ini,$Ini(Settings.ini,%cur),TS-TCP) == %r) { goto sel }
        inc %cur
      }
      did -ra zxor_sctrl 14 %r
    }
    elseif ($did == 5) {
      var %sid = $remove($gettok($did(zxor_sctrl,2).seltext,-1,32),$chr(41),$chr(40))
      .remini Settings.ini %sid
      .timertimedout [ $+ [ %sid ] ] off
      .timerrconkeep [ $+ [ %sid ] ] off
      .timerRCONSTART [ $+ [ %sid ] ] off
      .timerRetryC [ $+ [ %sid ] ] off
      if ($exists(Maplist [ $+ [ %sid ] $+ .txt ])) { .remove Maplist [ $+ [ %sid ] $+ .txt ] }
      unset %Color [ $+ [ %sid ] $+ .* ]
      did -r zxor_sctrl 2
      var %cur = 1,%max = $ini(Settings.ini,0)
      while (%cur <= %max) {
        did -a zxor_sctrl 2 $readini(Settings.ini,$ini(Settings.ini,%cur),Name) ( $+ $ini(Settings.ini,%cur) $+ )
        inc %cur
      }
      did -c zxor_sctrl 2 %scid
      fillselected
    }
  }
  elseif ($dname == zxor_main) {
    if ($did == 9) {
      set %Color?.c1 $did($dname,2)
      set %Color?.c2 $did($dname,4)
      set %Color?.p1 $did($dname,6)
      set %Color?.p2 $did($dname,7)
      set %CS.Chan $did($dname,13)
      DDECMD channel %CS.Chan
      set %CS.Sounds $did($dname,11).state
    }
  }
  elseif ($dname == zxor_rcon) {
    if ($did == 2) { retryrcons }
    elseif ($did == 3) { window -a @Server- [ $+ [ $gettok($did($dname,1).seltext,2,32) ] ] }
    elseif ($did == 4) { run http://www.utorrent.com/testport?port= [ $+ [ $remove( $gettok($did($dname,1).seltext,6,32) ,~) ] ] }
    elseif ($did == 5) { dialog -x $dname $dname | dialog -m zxor_sctrl zxor_sctrl }
  }
  elseif ($dname == zxor_site) {
    if ($did == 9) {
      set %stats.site $did($dname,3)
      set %stats.page $did($dname,5)
      set %stats.passkey $did($dname,7)
      set %stats.pinfo $did($dname,10)
      set %stats.plist $did($dname,13)
      set %stats.state $did($dname,8).state
      if (%stats.state == 1) && ($input(Do you wish to update the site right now? it may take a while..,,Update?)) {
        updatelist
      }
    }
  }
}
alias fillselected {
  did -e zxor_sctrl 48
  did -e zxor_sctrl 22
  did -e zxor_sctrl 5
  var %fill = /did -ra zxor_sctrl
  var %slc = $did(zxor_sctrl,2).seltext
  var %sid = $remove( $gettok(%slc,-1,32) ,$chr(41),$chr(40) )
  if (!%sid) {
    did -b zxor_sctrl 48
    did -b zxor_sctrl 22
    did -b zxor_sctrl 5
  }
  if ($Nget(%sid,TS-Selected) == 1) { did -c zxor_sctrl 67 }
  else { did -u zxor_sctrl 67 }
  %fill 1 Edit Place - ID: %sid
  %fill 10 $readini(Settings.ini,%sid,Name)
  %fill 8 %sid
  %fill 12 $readini(Settings.ini,%sid,IP)
  %fill 14 $readini(Settings.ini,%sid,Port)
  %fill 17 $readini(Settings.ini,%sid,RCONPASS)
  %fill 19 $readini(Settings.ini,%sid,MaxPlayers)
  %fill 21 $readini(Settings.ini,%sid,Sign)
  %fill 24 $readini(Settings.ini,%sid,V-IP)
  %fill 26 $readini(Settings.ini,%sid,V-Rcon)
  %fill 28 $readini(Settings.ini,%sid,V-Chan)
  %fill 30 $readini(Settings.ini,%sid,V-Ver)
  %fill 53 $readini(Settings.ini,%sid,HLTV)
  %fill 86 $readini(Settings.ini,%sid,sourceTV)
  %fill 7 $NGet(%sid,TS-IP)
  %fill 69 $NGet(%sid,TS-Username)
  %fill 70 $NGet(%sid,TS-Password)
  %fill 73 $NGet(%sid,TS-TCP)
  %fill 75 $NGet(%sid,TS-Channel)
  %fill 35 %color [ $+ [ %sid ] $+ .c1 ]
  %fill 36 %color [ $+ [ %sid ] $+ .c2 ]
  %fill 38 %color [ $+ [ %sid ] $+ .p1 ]
  %fill 39 %color [ $+ [ %sid ] $+ .p2 ]
  %fill 56 $NGet(%sid,DM-Target)
  %fill 64 $NGet(%sid,GG-Target)
  if ($NGet(%sid,AutoMix) == 1) { did -c zxor_sctrl 43 } | else { did -u zxor_sctrl 43 }
  if ($NGet(%sid,RandMap) == 1) { did -c zxor_sctrl 65 } | else { did -u zxor_sctrl 65 }
  if ($NGet(%sid,useTV) == 1) { did -c zxor_sctrl 52 } | else { did -u zxor_sctrl 52 }
  if ($NGet(%sid,ISHLTV) == 1) { did -c zxor_sctrl 62 | did -u zxor_sctrl 87 }
  elseif ($NGet(%sid,ISsourceTV) == 1) { did -u zxor_sctrl 62 | did -c zxor_sctrl 87 }
  if ($NGet(%sid,Rank) == 0) { did -u zxor_sctrl 58 } | else { did -c zxor_sctrl 58 }
  if ($NGet(%sid,Locked) == 1) { did -c zxor_sctrl 46 } | else { did -u zxor_sctrl 46 }
  if ($NGet(%sid,Mixing) == 1) { did -c zxor_sctrl 32 | did -e zxor_sctrl 43  } | else { did -u zxor_sctrl 32 | did -b zxor_sctrl 43 | did -u zxor_sctrl 43 | NSet %sid AutoMix 0 }
  if ($NGet(%sid,Type) == Regular) && ($NGet(%sid,Fun) == 0) { did -c zxor_sctrl 54 | did -u $dname 55,45,63 }
  if ($NGet(%sid,Game) == CS) {
    did -u $dname 81
    elseif ($NGet(%sid,Type) == DM) { did -c zxor_sctrl 55 | did -u $dname 54,45 }
    elseif ($NGET(%sid,Type) == GG) { did -c $dname 63 | did -u zxor_sctrl 55,54,45 }
    elseif ($NGet(%sid,Type) == Regular) && ($NGet(%sid,Fun) != 0) { did -c zxor_sctrl 45 | did -u $dname 55,54,63 }
  }
  elseif ($NGet(%sid,Game) == TF2) {
    did -u $dname 54,45,55,63
    if ($NGet(%sid,Game) == TF2) { did -c $dname 81 }
  }
}
alias cfillselected {
  did -e zxor_clubs 9
  did -e zxor_clubs 10
  did -e zxor_clubs 11
  did -e zxor_clubs 12
  did -e zxor_clubs 3
  did -e zxor_clubs 13
  did -e zxor_clubs 14
  var %fill = /did -ra zxor_clubs
  var %slc = $did(zxor_clubs,1).seltext
  var %sid = $remove($gettok(%slc,-1,32),$chr(41),$chr(40) )
  if (!%sid) {
    did -b zxor_clubs 9
    did -b zxor_clubs 10
    did -b zxor_clubs 11
    did -b zxor_clubs 12
    did -b zxor_clubs 3
    did -b zxor_clubs 13
    did -b zxor_clubs 14
  }
  %fill 5 Club - ID:  %sid
  %fill 9 $readini(Clubs.ini,%sid,IP)
  %fill 10 $readini(Clubs.ini,%sid,RCONpass)
  %fill 11 $readini(Clubs.ini,%sid,Port)
  if ($CGet(%sid,Game) == CS) { did -c zxor_clubs 13 | did -u zxor_clubs 14 }
  elseif ($CGet(%sid,Game) == TF2) { did -u zxor_clubs 13 | did -c zxor_clubs 14 }
}
alias cchan {
  if ($Nget($$1,TS-Selected) == 0) {
    .write -c ventcmd.txt /chan delete $qt($NGet($1,Name) is waiting)
    .write ventcmd.txt /subchan $qt($NGet($1,V-Chan)) $qt($NGet($1,Name) Team-A) $qt(A) $qt(%CS [ $+ [ $1 ] $+ .VentA ]) $qt($r(1,9999)) $qt($replace(%CS [ $+ [ $1 ] $+ .TeamA ],$chr(32),$chr(44)))
    .write ventcmd.txt /subchan $qt($NGet($1,V-Chan)) $qt($NGet($1,Name) Team-B) $qt(B) $qt(%CS [ $+ [ $1 ] $+ .VentB ]) $qt($r(1,9999)) $qt($replace(%CS [ $+ [ $1 ] $+ .TeamB ],$chr(32),$chr(44)))
    .write ventcmd.txt /subchan $qt($NGet($1,V-Chan)) $qt($NGet($1,Name) Map: $+ %CS [ $+ [ $1 ] $+ .map ]) $qt(Information) $qt(ZxoRed) $qt(ZxoRed) $qt(Admin: $+ %CS [ $+ [ $1 ] $+ .Admin ])
    .run -hide ventrcon.exe -f ventcmd.txt -n $qt(ZxoRGatherbot) -a $NGet($1,V-Rcon) $NGet($1,V-IP)
  }
  else {
    set %TS [ $+ [ $1 ] $+ .status ] Create
    TSRcon $1 channelcreate channel_name= $+ $replace($NGet($1,Name) Team-A,$chr(32),\s) channel_topic= $+ $replace($NGet($1,Name) Team-A,$chr(32),\s) channe_description= $+ $replace($NGet($1,Name) Team-A,$chr(32),\s) channel_password= $+ %CS [ $+ [ $1 ] $+ .VentA ] channel_flag_permanent=1 cpid= $+ $Nget($1,TS-Channel)
    TSRcon $1 channelcreate channel_name= $+ $replace($NGet($1,Name) Team-B,$chr(32),\s) channel_topic= $+ $replace($NGet($1,Name) Team-B,$chr(32),\s) channe_description= $+ $replace($NGet($1,Name) Team-B,$chr(32),\s) channel_password= $+ %CS [ $+ [ $1 ] $+ .VentB ] channel_flag_permanent=1 cpid= $+ $Nget($1,TS-Channel)
  }
}
alias dchan {
  if ($Nget($$1,TS-Selected) == 0) {
    .write -c ventcmd.txt /chan delete $qt($NGet($1,Name) is waiting)
    .write ventcmd.txt /chan delete $qt($NGet($1,Name) Team-A)
    .write ventcmd.txt /chan delete $qt($NGet($1,Name) Team-B)
    .write ventcmd.txt /chan delete $qt($NGet($1,Name) Map: $+ %CS [ $+ [ $1 ] $+ .map ])
    .run -hide ventrcon.exe -f ventcmd.txt -n $qt(ZxoRGatherbot) -a $NGet($1,V-Rcon) $NGet($1,V-IP)
  }
  else {
    TSRcon $1 channeldelete cid= $+ %CS [ $+ [ $1 ] $+ .VentAID ] force=1
    TSRcon $1 channeldelete cid= $+ %CS [ $+ [ $1 ] $+ .VentBID ] force=1
  }
}
menu * {
  ZxoR Gatherbot v2.7: noop $input(This gatherbot was made by ZxoR $crlf >> www.mIRCs.co.il $crlf >> #mIRCs @ Quakenet,io,Credits)
  -
  ZxoR Gatherbot Options
  .Main Settings: dialog -m zxor_main zxor_main
  .Servers Manager: dialog -m zxor_sctrl zxor_sctrl
  .Clubs Manager: dialog -m zxor_clubs zxor_clubs
  .Access Manager: dialog -m zxor_actrl zxor_actrl
  .Rcon Manager: dialog -m zxor_rcon zxor_rcon
  .Counter-Strike Rates commands: dialog -m zxor_rates zxor_rates
  .Online updated site: dialog -m zxor_site zxor_site
  .DDE Assistant: dialog -m zxor_dde zxor_dde
  .Retry All Rcons: retryrcons
  .-
  .Reset Gatherbot: if ($$input(Attention: The command you going to run will REMOVE ALL YOUR DATA from the gatherbot! Please make a backup before click OK - If you not sure about it press cancel.,hu,Wait! Read!)) { reset.accepted }
  .-
  .Thanks: dialog -m zxor_crd zxor_crd
  .GNU License: $iif($exists(GNU.GPL.License.txt),.run GNU.GPL.License.txt,.noop $input(Error: GNU license file not found.,ho,Error))
}
alias loadadmins {
  if ($dialog(zxor_actrl)) {
    did -r zxor_actrl 1
    var %f = owners.ini,%cur = 1,%max = $ini(%f,0)
    while (%cur <= %max) { did -a zxor_actrl 1 $ini(%f,%cur) ( $+ Owner $+ ) | inc %cur }
    var %f = masters.ini,%cur = 1,%max = $ini(%f,0)
    while (%cur <= %max) { did -a zxor_actrl 1 $ini(%f,%cur) ( $+ Master $+ ) | inc %cur }
    var %f = admins.ini,%cur = 1,%max = $ini(%f,0)
    while (%cur <= %max) { did -a zxor_actrl 1 $ini(%f,%cur) ( $+ Admin $+ ) | inc %cur }
  }
}
dialog zxor_rcon {
  title "Rcon Manager"
  size -1 -1 310 183
  option dbu
  list 1, 1 1 308 167, size
  button "Retry Rcons", 2, 1 169 76 12
  button "Show Window", 3, 78 169 76 12, disable
  button "Check Port", 4, 155 169 76 12
  button "Servers Manager", 5, 232 169 76 12
}
alias reloadrcon {
  if ($dialog(zxor_rcon)) {
    var %f = Settings.ini,%cur = 1,%max = $ini(%f,0)
    .did -r zxor_rcon 1
    while (%cur <= %max) {
      did -a zxor_rcon 1 ID: %cur - Server: $readini(%f,$ini(%f,%cur),IP) ~ $+ $readini(%f,$ini(%f,%cur),Port) - Rcon: $readini(%f,$ini(%f,%cur),RconPASS) - Status: $readini(%f,$ini(%f,%cur),Connected)
      inc %cur
    }
    var %f = Clubs.ini,%curc = 1,%max = $ini(%f,0)
    while (%curc <= %max) {
      did -a zxor_rcon 1 ID: %cur - Club: $readini(%f,$ini(%f,%curc),IP) ~ $+ $readini(%f,$ini(%f,%curc),Port) - Rcon: $readini(%f,$ini(%f,%curc),RconPASS) - Status: $readini(%f,$ini(%f,%curc),Connected)
      inc %cur
      inc %curc
    }
  }
}
alias swapteams {
  rcmd $1 admin_quiet 2
  rcmd $1 admin_command admin_execall setinfo "_vgui_menus" "0"
  rcmd $1 admin_command admin_execteam 1 chooseteam
  rcmd $1 admin_command admin_execteam 1 menuselect 2
  rcmd $1 admin_command admin_execteam 2 chooseteam
  rcmd $1 admin_command admin_execteam 2 menuselect 1
}
alias speak {
  if (%CS.Sounds == 0) { return 1 }
  rcmd $1 admin_quiet 2
  rcmd $1 admin_command admin_execall speak $2-
  rcmd $1 admin_command admin_execall clear
}
alias cspeak {
  if (%CS.Sounds == 0) { return 1 }
  crcmd $1 admin_quiet 2
  crcmd $1 admin_command admin_execall speak $2-
  crcmd $1 admin_command admin_execall clear
}
alias stl {
  if ($1 isnum) {
    var %c1 %Color [ $+ [ $1 ] $+ .c1 ]
    var %c2 %Color [ $+ [ $1 ] $+ .c2 ]
    var %p1 = %Color [ $+ [ $1 ] $+ .p1 ]
    var %p2 = %Color [ $+ [ $1 ] $+ .p2 ]
    return %p1 %c1 $+ $replace($2-,$chr(182),%c1,$chr(178),%c2) %p2
  }
  elseif ($1 == ?) {
    var %c1 %Color?.c1
    var %c2 %Color?.c2
    var %p1 = %Color?.p1
    var %p2 = %Color?.p2
    return %p1 %c1 $+ $replace($2-,$chr(182),%c1,$chr(178),%c2) %p2
  }
}
alias ClearGatherbot {
  var %cur = 1,%f = Settings.ini,%max = $ini(%f,0)
  if (%max == 0) { return 1 }
  while (%cur <= %max) {
    gather-end $ini(%f,%cur)
    writeini %f $ini(%f,%cur) Connected OFF
    inc %cur
  }
  var %cur = 1,%f = admins.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    writeini %f $ini(%f,%cur) Logged 0
    inc %cur
  }
  var %cur = 1,%f = masters.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    writeini %f $ini(%f,%cur) Logged 0
    inc %cur
  }
  var %cur = 1,%f = owners.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    writeini %f $ini(%f,%cur) Logged 0
    inc %cur
  }
}
alias cancmd {
  var %f = Settings.ini,%cur = 1,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($NGet($ini(%f,%cur),Status) == adding) { return $false }
    inc %cur
  }
  return $true
}
dialog zxor_main {
  title "Main settings"
  size -1 -1 91 73
  option dbu
  text "Neutral Color 1:", 1, 1 21 39 8
  edit "", 2, 41 20 50 10, autohs autovs
  text "Neutral Color 2:", 3, 1 31 39 8
  edit "", 4, 41 30 50 10, autohs autovs
  text "Neutral Prefix1:", 5, 1 41 39 8
  edit "", 6, 41 40 50 10, autohs autovs
  edit "", 7, 41 50 50 10, autohs autovs
  text "Neutral Prefix2:", 8, 1 51 39 8
  button "Save", 9, 0 61 91 12
  text "Sounds:", 10, 1 12 39 7, center
  text "Channel:", 12, 1 3 39 7, center
  edit "", 13, 41 2 50 10, autohs autovs
  check "Enabled", 11, 42 12 49 8
}
alias -l reset.accepted {
  unset %CS*
  if (!$$input(Do you want to save servers? $crlf OK: Save servers \ CANCEL: Remove servers)) { write -c Settings.ini | unset %Color* }
  var %cur = 1,%f = Settings.ini,%max = $ini(%f,0)
  while (%cur <= %Max) {
    .remove Kills [ $+ [ $ini(%f,%cur) ] $+ .ini ]
    .remove MVPs [ $+ [ $ini(%f,%cur) ] $+ .ini ]
    inc %cur
  }
  if (!$$input(Do you want to save stats? $crlf OK: Save stats \ CANCEL: Remove stats)) { .remove Stats.ini }
  .remove Admins.ini
  .remove owners.ini
  .remove masters.ini
  .set %Color?.c1 00,01
  .set %Color?.c2 00,01
  .set %Color?.p1 0,1[15«
  .set %Color?.p2 15,1»0]
  .set %CS.Chan #ZxoR-Gatherbot
  .ddecmd diconnect
  unset %dde.*
  set %dde 0
  noop $input(Done! The gatherbot reseted.,io,Done!)
}
on *:join:%CS.Chan: {
  if (%j.f. [ $+ [ # ] ] >= 4) {
    if (!%CS.Flood) {
      msg %CS.Chan $stl(?,Massiv channel attack detected $+ $chr(44) Gatherbot will be locked for ²1 minute¶.)
      set -u60 %CS.Flood ByZxoR - Flood detected
    }
  }
  else { inc -u5 %j.f. [ $+ [ # ] ] 1 }
}
alias Ventsocket {
  var %cur = 1
  while ($ini(settings.ini,%cur)) {
    if ($NGet(%cur,V-Ver) < 3) { return }
    sockclose Vent. $+ %cur
    set %V [ $+ [ %cur ] $+ -IP ] $gettok($NGet(%cur,V-IP),1,58)
    set %V [ $+ [ %cur ] $+ -Port ] $gettok($NGet(%cur,V-IP),2,58)
    sockopen Vent. $+ %cur www.Ventrilo.com 80
    sockmark Vent. $+ %cur %cur
    inc %cur
  }
}
on *:sockopen:Vent.*: {
  var %num = $sock($sockname).mark
  .sockwrite -nt $sockname GET /status.php?hostname= $+ %V [ $+ [ %num ] $+ -IP ] $+ &port= $+ %V [ $+ [ %num ] $+ -Port ] HTTP/1.1
  .sockwrite -nt $sockname Accept: */*
  .sockwrite -nt $sockname Accept-Language: he
  .sockwrite -nt $sockname Host: www.Ventrilo.com
  .sockwrite -nt $sockname Connection:  Keep-Alive
  .sockwrite -tn $sockname $crlf
}
on *:SOCKREAD:Vent.*:{
  var %var,%num = $sock($sockname).mark
  sockread %var
  if (>A< isin %var) { set %V [ $+ [ %num ] $+ -Nick ] 1 }
  elseif (<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%nick) { set %V [ $+ [ %num ] $+ -Nicks ] %V [ $+ [ %num ] $+ -Nicks ] $remove(%var,<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %V [ $+ [ %num ] $+ -Nick ] }
  elseif (<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%nick) { set %V [ $+ [ %num ] $+ -Nicks ] %V [ $+ [ %num ] $+ -Nicks ] $remove(%var,<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %V [ $+ [ %num ] $+ -Nick ] }
  elseif (Auth isin %var) { set %V [ $+ [ %num ] $+ -Auth ] 1 }
  elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%V [ $+ [ %num ] $+ -Auth ]) { set %V [ $+ [ %num ] $+ -Auths ] $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %V [ $+ [ %num ] $+ -Auth ] }
  elseif (Name isin %var) { set %V [ $+ [ %num ] $+ -Name ] 1 }
  elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%V [ $+ [ %num ] $+ -Name ]) { set %V [ $+ [ %num ] $+ -Names ] $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %V [ $+ [ %num ] $+ -name ] }
  elseif (Client Count isin %var) { set %V [ $+ [ %num ] $+ -ss ] 1 }
  elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%V [ $+ [ %num ] $+ -ss ]) { set %V [ $+ [ %num ] $+ -users ] $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %V [ $+ [ %num ] $+ -ss ] }
  elseif (Max Clients isin %var) { set %V [ $+ [ %num ] $+ -Max ] 1 }
  elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%V [ $+ [ %num ] $+ -Max ]) { set %V [ $+ [ %num ] $+ -Maxs ] $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>,$chr(32)) | unset %V [ $+ [ %num ] $+ -max ] }
  elseif (Comment isin %var) { set %V [ $+ [ %num ] $+ -comment ] 1 }
  elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%V [ $+ [ %num ] $+ -Comment ]) { set %V [ $+ [ %num ] $+ -Comments ] $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %V [ $+ [ %num ] $+ -comment ] }
}
on *:sockclose:vent.*:{
  var %num = $sock($sockname).mark
  if (%V [ $+ [ %num ] $+ -Names ]) && (%V [ $+ [ %num ] $+ -Auths ]) && (%V [ $+ [ %num ] $+ -Users ]) && (%V [ $+ [ %num ] $+ -Maxs ]) { set %CS [ $+ [ %Num ] $+ .V-Response ] $stl(%num,Ventrilo Hostname: %V [ $+ [ %num ] $+ -Names ] Users: %V [ $+ [ %num ] $+ -Users ] $+ / $+ %V [ $+ [ %num ] $+ -Maxs ] IP: %V [ $+ [ %num ] $+ -IP ] $+ : $+ %V [ $+ [ %num ] $+ -Port ] ( $+ $NGet(%num,V-Ver) $+ )¶.) }
  else { set %CS [ $+ [ %Num ] $+ .V-Response ] $stl(%Num,Ventrilo is timed out. IP: $NGet(%num,V-IP) ( $+ $NGet(%num,V-Ver) $+ )¶.) }
  unset %V [ $+ [ %num ] $+ -* ]
}
alias checktime {
  if ($time == 00:00:00) {
    var %cur = 1,%max = $ini(Settings.ini,0)
    while (%cur <= %max) {
      nset %cur Today 0
      inc %cur
    }
  }
}
alias expandtime {
  var %x $regsubex($1-,/(\d+\w+)+ (\d+\w+)?$/g,\1 and \2)
  return $replace(%x,wks,$chr(32) $+ weeks,wk,$chr(32) $+ week,hr,$chr(32) $+ hour,hrs,$chr(32) $+ hours,min,$chr(32) $+ minute,mins,$chr(32) $+ minutes,sec,$chr(32) $+ second,secs,$chr(32) $+ seconds,day,$chr(32) $+ day,days,$chr(32) $+ days)
}
alias HLTV {
  .timerT1M3HL [ $+ [ $1 ] ] 1 35 msg %CS.Chan $stl($1,$NGet($1,Name) $iif($Nget($1,isHLTV),HLTV,SourceTV) connection is timed out.) $(|) unset %ip $(|) unset %CS.Temp.HLTV2P
  set %ip $1
  set %CS.Temp.HLTV2P $NGET($1,$iif($Nget($1,isHLTV),HLTV,SourceTV))
  bset -t &hl 1 $str($chr(255),4) $+ TSource Engine Query
  bset &hl $calc($bvar(&hl,0) + 1) 0
  .sockudp -k HLTV $replace(%CS.Temp.HLTV2P,$chr(58),$chr(32)) &hl
  .timer 1 2 unset %CS.Temp.HLTV*
}
on *:UDPREAD:HLTV: {
  sockread &HL
  breplace &HL 0 254
  set %CS.Temp.HLTV-Type $gettok($HLB,1,254)
  set %CS.Temp.HLTV-Players $iif($asc($mid($gettok($hlb,5,254),5,1)),$v1,0) $+ / $+ $iif($asc($mid($gettok($hlb,5,254),4,1)),$v1,$asc($gettok($hlb,6,254)))
  set %CS.Temp.HLTV-Name $right($gettok($HLB,1,254),$calc($len($gettok($HLB,1,254)) -6))
  set %CS.Temp.HLTV-Map $gettok($HLB,2,254)
  if ($NGet(%ip,isHLTV) == 1) || ($NGet(%ip,issourceTV) == 1) {
    if ($regex(%CS.Temp.HLTV-Name,/^(\d+)\.(\d+)\.(\d+)\.(\d+):(\d+)$/i) == 0) {
      msg %CS.Chan $stl(%ip,$iif($Nget(%ip,isHLTV),HLTV,SourceTV) $+ :² %CS.Temp.HLTV-Name ¶ $+ $(|) ¶Slots:² %CS.Temp.HLTV-Players ¶ $+ $(|) ¶IP:² $NGet(%ip,$iif($Nget(%ip,isHLTV),HLTV,SourceTV)))
      msg %CS.Chan $stl(%ip,STEAM One-Click Connect: ²steam://connect/ $+ $NGET(%ip,$iif($Nget(%ip,isHLTV),HLTV,SourceTV)))
    }
  }
  else { msg %CS.Chan $stl(%ip,$iif($Nget($1,isHLTV),HLTV,SourceTV) server is not connected.) }
  .timerT1M3HL [ $+ [ %ip ] ] off
  .timer 1 1 unset %ip $(|) unset %CS.Temp.HLTV2S
}
on *:sockclose:HLTV: {
  if (!%CS.Temp.HLTV-Name) { msg %CS.Chan $stl(%ip,HLTV server is offline.) }
  unset %CS.Temp.HLTV-*
  unset %ip
  unset %CS.Temp.HLTV2S
}
alias suserid {
  return $iif($ini(stats.ini,$1),$v1,$false)
}
alias UPT {
  var %sockname = UPT. $+ $calc($ticks + $r(9999,9999999))
  sockopen %sockname %stats.site 80
  sockmark %sockname $+(/,%stats.page,?uid=,$1,&steam=,$2,&nick=,$3,&points=,$4,&plants=,$5,&deaths=,$6,&gathers=,$7,&kills=,$8,&mvps=,$9,&tks=,$10,&aces=,$11,&banned=,$12,&banreason=,$13,&access=,$$14,&passkey=,$dataseparate(%stats.passkey))
  .timerUPTimeout. [ $+ [ %sockname ] ] 1 15 .sockclose %sockname
}
on *:sockopen:UPT.*: {
  .sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  .sockwrite -n $sockname Host: %stats.site
  .sockwrite -n $sockname User-Agent: Telnet
  .sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  .sockwrite -n $sockname Accept-Language: en-us;q=0.5,en;q=0.3
  .sockwrite -n $sockname Accept-Encoding: none
  .sockwrite -n $sockname Accept-Charset: ISO-8859-1;
  .sockwrite -n $sockname Connection: close
  .sockwrite -n $sockname $chr(13) $+ $chr(10)
}
dialog zxor_site {
  title "Online updated site"
  size -1 -1 145 91
  option dbu
  text "Site URL:", 1, 2 12 39 8, center
  text "Update ZxoR Gatherbot based site with ranking information", 2, 1 1 143 8
  edit "site.com", 3, 44 11 100 10, autohs autovs
  text "Site update file:", 4, 2 23 39 8, center
  edit "page.php", 5, 44 22 100 10, autohs autovs
  text "Passkey:", 6, 2 57 39 8, center
  edit "EnterPasskey", 7, 44 56 100 10, autohs autovs
  check "Site ranking enabled. If enabled, details must be right.", 8, 2 67 142 10
  button "Save settings", 9, 0 79 145 12
  edit "playerinfo.php", 10, 44 33 100 10, autohs autovs
  text "Player info file:", 11, 2 34 39 8, center
  text "Players list file:", 12, 2 46 39 8, center
  edit "list.php", 13, 44 45 100 10, autohs autovs
}
alias dataseparate {
  return $regsubex($1-,/(\W)/g,% $+ $base($asc(\1),10,16,2))
}
alias autoupt {
  var %steamid = $1
  if ($ini(stats.ini,$1) == 0) writeini stats.ini $1 Points 0
  if (%stats.state == 1) { upt $suserid(%steamid) %steamid $dataseparate($iif($readini(stats.ini,%steamid,nick),$v1,-Unknown nick-)) $iif($readini(stats.ini,%steamid,Points),$v1,0.00) $iif($readini(stats.ini,%steamid,Plants),$v1,0)  $iif($readini(stats.ini,%steamid,Deaths),$v1,0) $iif($readini(stats.ini,%steamid,gathers),$v1,0) $iif($readini(stats.ini,%steamid,kills),$v1,0) $iif($readini(stats.ini,%steamid,mvps),$v1,0) $iif($readini(stats.ini,%steamid,tks),$v1,0) $iif($readini(stats.ini,%steamid,aces),$v1,0) $iif($isban(%steamid),1,0) $dataseparate($iif($dban(%steamid).reason,$v1,No reason)) $accessbyseam(%steamid) }
}
alias fillthelist {
  var %cur = 1
  while (%cur <= $1) {
    var %sid = $+(STEAM_0:,$r(0,1),:,$r(10000000,99999999))
    writeini -n stats.ini %sid nick $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
    writeini -n stats.ini %sid plants $r(1,15)
    writeini -n stats.ini %sid points $r(1,225)
    writeini -n stats.ini %sid kills $r(1,500)
    writeini -n stats.ini %sid deaths $r(1,255)
    writeini -n stats.ini %sid gathers $r(1,30)
    writeini -n stats.ini %sid MVPs $r(1,15)
    writeini -n stats.ini %sid Tks $r(1,15)
    inc %cur
  }
}
alias comparesign {
  if ($readini(stats.ini,$$1,lastrank) == $readini(stats.ini,$$1,lastrank2)) { return 14¶ }
  elseif ($readini(stats.ini,$$1,lastrank) > $readini(stats.ini,$$1,lastrank2)) { return 04Ȧ }
  elseif ($readini(stats.ini,$$1,lastrank) < $readini(stats.ini,$$1,lastrank2)) { return 03Ǧ }
  else { return 14¶ }
}
alias savescore {
  return $iif($NGet($1,Rank) == 1,$true,$false)
}
alias SHOWSERVERSCORE { tsay $1 Team-A $chr(91) $+ $teamscore(a,$1) $+ / $+ $Nget($1,DM-Target) $+ $chr(93) <-> Team-B $chr(91) $+ $teamscore(b,$1) $+ / $+ $Nget($1,DM-Target) $+ $chr(93) }
alias Rescuechar { return $replace($1-,$chr(124),*,$chr(37),*) }
alias timers echo -ag 4Access Denied. This command can make a serious mistakes. If you sure you wanna do it anyway, use: /!Timers and be carefully.
alias accessbyseam {
  var %cur = 1,%f = admins.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),steam) == $1) return Admin
    inc %cur
  }
  var %cur = 1,%f = masters.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),steam) == $1) return Master
    inc %cur
  }
  var %cur = 1,%f = owners.ini,%max = $ini(%f,0)
  while (%cur <= %max) {
    if ($readini(%f,$ini(%f,%cur),steam) == $1) return Owner
    inc %cur
  }
  return Player
}
raw 439:*: {
  if (!%CS.Flood) { msg %CS.Chan $stl(?,Error: The gatherbot get an "Target change too fast" error for $9 seconds while sending details. please request details from your gather admin.) }
  set -u [ $+ [ $9 ] ] %CS.Flood ByZxoR
  halt
}
dialog zxor_rates {
  title "Servers Rates Commands List"
  size -1 -1 215 118
  option dbu
  edit "", 1, 0 0 215 105, multi return
  button "Save rates", 2, 1 105 213 12
}
alias numer { return $regsubex($1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44)) }
dialog zxor_maps {
  title "Please wait..."
  size -1 -1 115 155
  option dbu
  list 1, 0 0 115 131, size vsbar
  button "Add", 2, 1 142 37 12
  button "Remove", 3, 39 142 37 12
  button "Get maps list", 4, 77 142 37 12
  text "There are X maps loaded.", 5, 1 132 113 8, center
  edit "", 6, 7 161 50 10, hide
}
alias reloadmaps {
  var %dname = zxor_maps
  did -r %dname 1
  var %cur = 1,%max = $lines(Maplist [ $+ [ $did(%dname,6) ] $+ .txt ])
  while (%cur <= %max) {
    did -a %dname 1 $read(Maplist [ $+ [ $did(%dname,6) ] $+ .txt ],%cur)
    inc %cur
  }
  dialog -t %dname $Nget($did(%dname,6),name) maps
  did -ra %dname 5 There are %max maps loaded.
}
alias lookupm {
  if ($Lines(Maplist [ $+ [ $1 ] $+ .txt ]) == 0) { noop $input(Error: Unable to get maps list for $NGet($$1,name) $+ .,ho,Error) } |  else { noop $input(Maps loaded from $NGet($$1,name) server.,io,Information) }
}
alias gg_sortusers {
  var %buffer,%sid = $$1,%cur = 1,%max = $ini(GunGame [ $+ [ %sid ] $+ .ini ],score,0)
  while (%cur <= %max) {
    var %buffer = $addtok(%buffer,$readini(GunGame [ $+ [ %sid ] $+ .ini ],score,$ini(GunGame [ $+ [ %sid ] $+ .ini ],score,%cur)) $ini(GunGame [ $+ [ %sid ] $+ .ini ],score,%cur),44)
    inc %cur
  }
  tokenize 44 $sorttok(%buffer,44,nr)
  return $iif($1,²1 $+ $chr(41) $+ ¶  $+ $nickbysteam($gettok($v1,2,32)) $+ $+(,$chr(40),¶,$gettok($1,1,32),¶,$chr(41))) $iif($2,~ ²2 $+ $chr(41) $+ ¶  $+ $nickbysteam($gettok($v1,2,32)) $+ $+(,$chr(40),¶,$gettok($2,1,32),¶,$chr(41))) $iif($3,~ ²3 $+ $chr(41) $+ ¶  $+ $nickbysteam($gettok($v1,2,32)) $+ $+(,$chr(40),¶,$gettok($3,1,32),¶,$chr(41)))
}
alias -l Brack { return $chr(40) $+ $1- $+ $chr(41) }
dialog zxor_actrl {
  title "ZxoR Gatherbot - Access Manager"
  size -1 -1 261 151
  option dbu
  list 1, 1 10 77 128, size
  text "Users list:", 2, 23 1 25 8
  box "User rights", 3, 80 10 180 128
  text "Name:", 4, 83 23 18 8, center
  text "Level:", 5, 83 34 18 8, center
  text "User rights:", 6, 82 49 176 8, center
  edit "", 7, 103 22 50 10, disable
  edit "", 8, 103 33 50 10, disable
  check "User is allowed to run gathers", 9, 82 57 84 10
  check "User is allowed to ban users", 10, 82 66 80 10
  check "User is allowed to unban users", 11, 82 75 84 10
  check "User is allowed to add/remove users (Master+)", 12, 82 84 125 10
  check "User is allowed to change server password", 13, 82 93 114 10
  check "User is allowed to get information about other users (Master+)", 14, 82 102 162 10
  check "User is allowed to refresh the gatherbot (Master+)", 15, 82 111 133 10
  check "User is allowed to use !set command (Owners)", 16, 82 120 122 10
  button "Save", 17, 223 138 37 12
  button "Remove user", 18, 41 138 37 12
  text "STEAM:", 19, 156 23 31 8, center
  text "Password:", 20, 156 34 31 8, center
  edit "", 21, 189 33 67 10
  edit "", 22, 189 22 67 10
  button "Add user", 23, 1 138 37 12
}
alias reward {
  tokenize 22 $1-
  speak $1 fvox/beep
  ssay $1 [ACHIEVEMENT] $split($2) $+ $+($chr(40),$3,$chr(41)) has just earned new achievement: $$4-
  incini stats.ini $3 rewards 1
}
alias secure {
  if ($chr(37) !isin $1-) && ($chr(124) !isin $1-) && ($chr(36) !isin $1-) { return $true }
  return $false
}
alias TSRcon {
  if (!$NGet($1,TS-Selected)) { return 1 }
  if (!$2) {
    .sockclose ts [ $+ [ $$1 ] ]
    sockopen ts [ $+ [ $$1 ] ] $gettok($NGet($1,TS-Ip),1,58) $NGet($1,TS-TCP)
    .timerts [ $+ [ $1 ] ] 0 25 TSRcon $1 Keep-Alive
    return 1
  }
  if (!$sock(ts [ $+ [ $$1 ] ])) { sockopen ts [ $+ [ $$1 ] ] $gettok($NGet($1,TS-Ip),1,58) $NGet($1,TS-TCP) | .timerts [ $+ [ $1 ] ] 0 25 TSRcon $1 Keep-Alive }
  .timer 1 3 .sockwrite -tn ts [ $+ [ $1 ] ] $2-
}
on *:sockopen:ts*: {
  if (!$sockerr) {
    var %sid = $remove($sockname,ts)
    .sockwrite -tn $sockname use 1
    .sockwrite -tn $sockname login client_login_name= $+ $NGet(%sid,TS-Username) client_login_password= $+ $NGet(%sid,TS-Password)
  }
}
on *:sockread:ts*: {
  var %sockread,%sid = $remove($sockname,ts)
  sockread -n %sockread
  if (%TS [ $+ [ %sid ] $+ .status ] == details) {
    if ($regex(%sockread,/virtualserver_id=\d+ virtualserver_port=\d+ virtualserver_status=online virtualserver_clientsonline=(\d+) virtualserver_queryclientsonline=\d+ virtualserver_maxclients=(\d+) virtualserver_uptime=\d+ virtualserver_name=(\S+) virtualserver_autostart=\d+/i)) {
      msg %CS.Chan $stl(%sid,TeamSpeak Hostname: $replace($regml(3),\s,$chr(32)) Users: $regml(1) $+ / $+ $regml(2) IP: $Nget(%sid,TS-IP)¶.)
      unset %TS [ $+ [ %sid ] $+ .status ]
    }
  }
  elseif (%TS [ $+ [ %sid ] $+ .status ] == create) {
    if ($regex(%sockread,/cid=(\d+)/i)) {
      if (!%CS [ $+ [ %sid ] $+ .VentAID ]) { set %CS [ $+ [ %sid ] $+ .VentAID ] $regml(1) }
      else { set %CS [ $+ [ %sid ] $+ .VentBID ] $regml(1) | unset %TS [ $+ [ %sid ] $+ .status ] }
    }
  }
}
alias source {
  sockclose source $+ $1
  sockopen source $+ $1 $gettok($NGet($1,IP),1,58) $gettok($NGet($1,IP),2,58)
  .timerfixer [ $+ [ $1 ] ] 3 5 source.cmd $1 echo connection-fixer: SOURCE $(|) source.log $1
}
alias csource {
  sockclose csource $+ $1
  sockopen csource $+ $1 $gettok($CGet($1,IP),1,58) $gettok($CGet($1,IP),2,58)
  .timercfixer [ $+ [ $1 ] ] 3 5 csource.cmd $1 echo connection-fixer: SOURCE $(|) csource.log $1
}
on *:sockclose:source*:{ source $remove($sockname,source) }
on *:sockclose:csource*:{ source $remove($sockname,csource) }
on *:sockopen:source*:{
  var %id = $remove($sockname,source)
  bset -t &pass 1 $NGet(%id,RCONpass)
  bset &id 1 $inttonum(255).reverse
  bset &type 1 $inttonum(3).reverse
  bset &ending 1 0 0
  bset &len 1 $inttonum($calc($bvar(&id,0) + $bvar(&pass,0) + $bvar(&type,0) + $bvar(&ending,0))).reverse
  bset &send 1 $bvar(&len,1-) $bvar(&id,1-) $bvar(&type,1-) $bvar(&pass,1-) $bvar(&ending,1-)
  .sockwrite -n $sockname &send
}
on *:sockopen:csource*:{
  var %id = $remove($sockname,csource)
  bset -t &pass 1 $CGet(%id,RCONpass)
  bset &id 1 $inttonum(255).reverse
  bset &type 1 $inttonum(3).reverse
  bset &ending 1 0 0
  bset &len 1 $inttonum($calc($bvar(&id,0) + $bvar(&pass,0) + $bvar(&type,0) + $bvar(&ending,0))).reverse
  bset &send 1 $bvar(&len,1-) $bvar(&id,1-) $bvar(&type,1-) $bvar(&pass,1-) $bvar(&ending,1-)
  .sockwrite -n $sockname &send
}
on *:sockread:source*: {
  var %id = $remove($sockname,source)
  sockread -n &data
  while ($sockbr) && (!$sockerr) {
    rcon.data.source %id $bvartext($bvar(&data,1,$calc($bvar(&data,0) -1)))
    sockread -n &data
  }
}
on *:sockread:csource*: {
  var %id = $remove($sockname,csource)
  sockread -n &data
  while ($sockbr) && (!$sockerr) {
    club.data.source %id $bvartext($bvar(&data,1,$calc($bvar(&data,0) -1)))
    sockread -n &data
  }
}
on *:udpread:*:{
  if (Source.Log* iswm $sockname) { sockread &temp | RCON.DATA.source $remove($sockname,source.log) $bvar(&temp,31-,$calc($bvar(&temp,0) - 32)).text }
  elseif (cSource.Log* iswm $sockname) { sockread &temp | Club.DATA.source $remove($sockname,csource.log) $bvar(&temp,31-,$calc($bvar(&temp,0) - 32)).text }
}
alias inttonum {
  if ($prop == $null) {  var %x = $replace($gettok($1,4,32) $gettok($1,3,32) $gettok($1,2,32) $gettok($1,1,32),$chr(32),.)  | if (%x = 255.255.255.255) { return -1 } |  else { return $longip(%x) } }
  else { if ($1 == -1) { return 255 255 255 255 }  | return $gettok($longip($1),4,46) $gettok($longip($1),3,46) $gettok($longip($1),2,46) $gettok($longip($1),1,46)  }
}
alias bvartext {
  tokenize 32 $1-
  var %x = $calc($0 -1),%buffer
  while $gettok($1-,%x,32) > 31 {
    dec %x
  }
  inc %x
  tokenize 32 $gettok($1-,%x -,32)
  var %x = 1,%end = $0
  while %x <= %end {
    var %buffer = %buffer $+ $chr($iif($gettok($1-,%x,32) != 32,$v1,254))
    inc %x
  }
  return $replace(%buffer,$chr(254),$chr(32))
}
alias source.cmd {
  bunset &pass &id &type &ending &len &send
  bset -t &pass 1 $$2-
  bset &id 1 $inttonum(64).reverse
  bset &type 1 $inttonum(2).reverse
  bset &ending 1 0 0
  bset &len 1 $inttonum($calc($bvar(&id,0) + $bvar(&pass,0) + $bvar(&type,0) + $bvar(&ending,0))).reverse
  bset &send 1 $bvar(&len,1-) $bvar(&id,1-) $bvar(&type,1-) $bvar(&pass,1-) $bvar(&ending,1-)
  if ($sock(source $+ $1)) {
    .sockwrite source $+ $1 &send
  }
  else { source $1 | .timer  1 5 source.cmd $$1- }
}
alias csource.cmd {
  bunset &pass &id &type &ending &len &send
  bset -t &pass 1 $$2-
  bset &id 1 $inttonum(64).reverse
  bset &type 1 $inttonum(2).reverse
  bset &ending 1 0 0
  bset &len 1 $inttonum($calc($bvar(&id,0) + $bvar(&pass,0) + $bvar(&type,0) + $bvar(&ending,0))).reverse
  bset &send 1 $bvar(&len,1-) $bvar(&id,1-) $bvar(&type,1-) $bvar(&pass,1-) $bvar(&ending,1-)
  if ($sock(csource $+ $1)) {
    .sockwrite csource $+ $1 &send
  }
  else { csource $1 | .timer  1 5 csource.cmd $$1- }
}
alias source.log {
  ctrlsys 03 $+ $NGet($1,Name) is connected to SOURCE-engine Server!
  nset $1 connected ON
  .timerTIMEDOUT [ $+ [ $1 ] ] off
  reloadrcon
  sockudp -k Source.LOG $+ $1 $NGet($1,port) $gettok($NGet($1,ip),1,58) $gettok($NGet($1,ip),2,58)
  source.cmd $1 echo SourceENGINE Connection check
  source.cmd $1 sv_rcon_banpenalty 1
  source.cmd $1 sv_rcon_maxfailures 20
  source.cmd $1 sv_rcon_minfailures 20
  source.cmd $1 sv_rcon_minfailuretime 1
  source.cmd $1 logaddress_del $ip $+ : $+ $NGet($1,port)
  source.cmd $1 logaddress_add $ip $+ : $+ $NGet($1,port)
  source.cmd $1 log on
  .timer -m 1 500 source.cmd $1 echo SourceENGINE Connection check
}
alias csource.log {
  ctrlsys 03 $+ Club $1 is connected to SOURCE-engine Server!
  cset $1 connected ON
  .timerTIMEDOUTC [ $+ [ $1 ] ] off
  reloadrcon
  sockudp -k cSource.LOG $+ $1 $CGet($1,port) $gettok($CGet($1,ip),1,58) $gettok($CGet($1,ip),2,58)
  csource.cmd $1 echo SourceENGINE Connection check
  csource.cmd $1 sv_rcon_banpenalty 1
  csource.cmd $1 sv_rcon_maxfailures 20
  csource.cmd $1 sv_rcon_minfailures 20
  csource.cmd $1 sv_rcon_minfailuretime 1
  csource.cmd $1 logaddress_del $ip $+ : $+ $NGet($1,port)
  csource.cmd $1 logaddress_add $ip $+ : $+ $NGet($1,port)
  csource.cmd $1 log on
  .timer -m 1 500 csource.cmd $1 echo SourceENGINE Connection check
  .timercecho [ $+ [ $1 ] ] 0 30 csource.cmd $1 echo SourceENGINE Connection check
}
alias RCON.DATA.source {
  if ($NGet($1,Connected) == Connecting) { source.log $1 }
  if ($len($2-) < 3) halt
  if ($2) RCON.DATA $1 $2-
}
alias CLUB.DATA.source {
  if ($CGet($1,Connected) == Connecting) { csource.log $1 }
  if ($len($2-) < 3) halt
  if ($2) CLUB.DATA $1 $2-
}
alias tf2.prefixtotype {
  if ($1 == CTF) return Capture The Flag
  elseif ($1 == CP) return Control Points
  elseif ($1 == pl) return Payload
  elseif ($1 == plr) return Payload race
  return Unknown
}
alias DataUpdate {
  ;Do not touch this part. DataUpdate is only for developers.
  var %x = 1,%updated = 0
  while $ini(settings.ini,%x) {
    if (!$NGet(%x,version)) { NSet %x Version 2.3 }
    if ($NGet(%x,version) != 2.7) {
      NSet %x Game CS
      NSet %x useTV $iif($NGet(%x,ISHLTV),1,0)
      NSet %x ISsourceTV 0
      NSet %x sourceTV 0.0.0.0:0000
      NSet %x version 2.7
      var %updated = 1
      echo -sgc info $NGet(%x,name) upgraded to version 2.7.
    }
    inc %x
  }
  var %x = 1
  while $ini(clubs.ini,%x) {
    if (!$CGet(%x,version)) { CSet %x Version 2.3 }
    if ($CGet(%x,version) == 2.3) {
      CSet %x Game CS
      CSet %x version 2.7
      var %updated = 1
      echo -sgc info Club %x upgraded to version 2.7.
    }
    inc %x
  }
  if (%updated) noop $input(Gatherbots/clubs data updated to the current version.,io,DataUpdator for version 2.7.)
  return 1
}
alias nicksbyhost {
  var %x = 1,%buffer
  while ($ialchan($2,$1,%x).nick) {
    var %buffer = $addtok(%buffer,$v1,44)
    inc %x
  }
  return %buffer
}
alias ddecmd {
  if (%DDE) { dde DDEAssistance ddeDDEconv ddeDDEServer $1- }
  elseif ($1 == SAY) { msg $2- }
  return 1
}
; EOF ZxoR Gatherbot