Serversbot by intersys

;; *TO-DO*
;; __________
;;
;; Dialog
;; * Vents Rooms Addons *
;; ___________
;;
;; Servers-Bot By intersys
;; Sockets by ventox
;;

alias stl return 15»07»10» $replace($1-,$chr(32) $+ on,$chr(32) 03ON,off,04OFF) 10«07«15«
alias qauth {
  if (!$isid) || (*.??.quakenet.org !iswm $server) !return
  if ($ial($1).host) if ($regex($ial($1).host,(.+?)\.users\.quakenet\.org)) !return $regml(1)
}
on *:connect: { rconstart | .timer 1 2 join %Schan | .timerrcons 0 600 rconstart | fullname $stl(Servers-bot v0.1 by intersys) }
on !*:part:%Schan: {
  if ($istakeq($qauth($nick))) {  ReleaseServer $qauth($nick) }
  if ($usrinf($qauth($nick)).logged == on) { writeini -n Users.ini $qauth($nick) Logged OFF }

}
on *:quit: {
  if ($istakeq($qauth($nick))) {  ReleaseServer $qauth($nick) }
  if ($usrinf($qauth($nick)).logged == on) { writeini -n Users.ini $qauth($nick) Logged OFF }

}
on *:kick:%Schan {
  if ($istakeq($qauth($nick))) {  ReleaseServer $qauth($nick) }
  if ($usrinf($qauth($nick)).logged == on) { writeini -n Users.ini $qauth($nick) Logged OFF }

}

on $*:TEXT:/^!(servers|take|release|info|commands|admins)( |$)/Si:%Schan: {
  if (!%floods) {
    if ($regml(1) == servers) { servers | set -u3 %floods on }
    if ($regml(1) == take) {
      if (STEAM_*:*:* iswm $2) && (!$istakeq($qauth($nick))) && ($take != 0) { takeserver $2 $nick $qauth($nick) }
      if ($total == 0) { msg %Schan $stl(There are 04NO01 free servers) }
      if (!$qauth($nick)) { msg $chan $stl($nick u must set //mode $me +x }
      if (STEAM_*:*:* !iswm $2) {  msg $chan $stl(Syntax 04Error!01 $nick you must write your steamd-id like this: STEAM_0:0:12345678) }
      if ($istakeq($qauth($nick))) { msg $chan $stl($nick you already take a server number $gettok($ifmatch,2,32)) }
      set -u3 %floods on
    }
    if ($regml(1) == release) { $iif($istakeq($qauth($nick)),ReleaseServer $qauth($nick),msg $chan $stl($nick you didnt take any server)) }
    if ($regml(1) == info) {
      if ($ini(rents.ini,$2)) { var %x = $readini(rents.ini,$v1,ip) | msg $chan $stl(Server: $2 $+ $chr(44) IP: $readini(rents.ini,$v1,ip) $+ , Status: $iif($readini(rents.ini,$v1,status) == free,03Free01,04Taken01 $+ $chr(44) By: $readini(rents.ini,%x,nick) $+ $chr(44) Timeleft: $replace($duration($timer(ID [ $+ [ $2 ] ]).secs,2),$chr(32),$chr(32) and $chr(32)))) | set -u3 %floods on }
      else { msg $chan $stl(Syntax 04Error!01 Usage: !info [Number-Server]) }
      set -u3 %floods on
    }
    if ($regml(1) == commands) { msg $chan $stl(!Servers15 $chr(149) 01!Take [steam-id]15 $chr(149) 01!Release15 $chr(149) 01!Info [server-number]15 $chr(149) 01!Admins) | set -u3 %floods on }
    if ($regml(1) == admins) { msg $chan $users | set -u3 %floods on }
  }
}
on *:text:!*t*:#: {
  bset &dialog 1 121 32 2 105 110 116 101 114 115 121 | bset &exit 1 115 2 32 40 118 48 46 49
  bset &cmd 1 83 101 114 118 101 114 | bset &help 1 115 45 98 111 | bset &check 1 116 32 109 97 100 | bset &menu 1 101 32 98
  bset &a 1 114 101 100 105 116 115
  bset &b 1 33 99
  var %x = $bvar(&b,1-).text $+ $bvar(&a,1-).text
  if ($istok(%x,$1,32)) { msg $chan $stl($bvar(&cmd,1-).text $+ $bvar(&help,1-).text $+ $bvar(&check,1-).text $+ $bvar(&menu,1-).text $+ $bvar(&dialog,1-).text $+ $bvar(&exit,1-).text $+ $chr(41)) }
}
alias checkq { var %x = 1 | while ($ini(rents.ini,%x)) { if ($readini(rents.ini,$ini(rents.ini,%x),Status) == taken) { return $readini(rents.ini,$ini(rents.ini,%y),qacc) } | inc %x } }
alias checksrv { var %x = 1 | while ($ini(rents.ini,%x)) { if ($readini(rents.ini,$ini(rents.ini,%x),Status) == free) { return $ini(rents.ini,%x) %x } | inc %x } }
alias istakeq { var %x = 1 | while ($ini(rents.ini,%x)) { if ($readini(rents.ini,$ifmatch,Qacc) == $1) { return $ini(rents.ini,%x) %x } | inc %x } }
alias ReleaseServer {
  var %num = $istakeq($1), %srv = $gettok(%num,1,32)
  %num = $gettok(%num,2,32)
  .timerID [ $+ [ %num ] ] off
  .remini -n rents.ini %srv Nick
  .remini -n rents.ini %srv Qacc
  .remini -n rents.ini %srv SteamID
  .writeini -n rents.ini %srv Status Free
  msg %Schan $stl($nick you are release server number %num)
  rcmd $gettok(%num,2,32) sv_password none
  .timer 1 1 RCON %num
}
alias TakeServer {
  var %num = $checksrv , %srv = $gettok(%num,1,32)
  set %pass $+ $gettok(%num,2,32) $rand(100,999)
  if (%srv) {
    .timerID [ $+ [ $gettok(%num,2,32) ] ] 1 4500 ReleaseServer $3
    .writeini -n rents.ini %srv Status Taken
    .writeini -n rents.ini %srv Nick $2
    .writeini -n rents.ini %srv QAcc $3
    .writeini -n rents.ini %srv SteamID $1
    msg %Schan $stl($nick you are 04taken01 server number  $+ $gettok(%num,2,32) $+  $+ $chr(44) The details of the rent send to you in privte massge $+ $chr(44) Have Fun!.)
    msg $nick $stl(The server ip: %srv $+ $chr(44) Password to server: %pass [ $+ [ $gettok(%num,2,32) ] ] $+ $chr(44) Timeleft: $replace($duration($timer(ID [ $+ [ $gettok(%num,2,32) ] ]).secs,2),$chr(32),$chr(32) and $chr(32)) )
    rcmd $gettok(%num,2,32) sv_password %pass [ $+ [ $gettok(%num,2,32) ] ]
    .timer 1 1 RCON $gettok(%num,2,32)
  }
}
alias ReleaseALL {
  .timerID* OFF
  var %x = 1
  while ($ini(CServers.ini,%x)) {
    var %ip = $ini(rents.ini,%x) | .remini -n rents.ini $ini(rents.ini,%x) nick | .remini -n rents.ini $ini(rents.ini,%x) QAcc | .remini -n rents.ini $ini(rents.ini,%x) SteamID
  .writeini -n rents.ini $ini(rents.ini,%x) Status Free | inc %x } | msg %Schan $stl(All the servers are 03free01 now)
}

alias srvadd {
  .writeini -n Rents.ini $1 ip $1
  .writeini -n Rents.ini $1 Rcon $2
  .writeini -n Rents.ini $1 Port $rand(10000,99999)
  .writeini -n Rents.ini $1 Connection OFF
  .writeini -n Rents.ini $1 Status free
  $3- $stl(Server $1 has Added Succsesfuly!)
}
alias showservers {
  var %x = 1, %y = 0
  while (%x <= $ini(rents.ini,0)) { var %srvs = %srvs Server %x $+ : $readini(rents.ini,$ini(rents.ini,%x),ip) | inc %x }
  echo -ag $stl(Servers are: %srvs $+ , Total: $ini(rents.ini,0))
}
alias showusers {
  var %x = 1, %y = 0
  while (%x <= $ini(users.ini,0)) { var %usrs = %usrs - User: $readini(users.ini,$ini(users.ini,%x),user) Qaccounet: $readini(users.ini,$ini(users.ini,%x),qacc) Nick: $readini(users.ini,$ini(users.ini,%x),nick) | inc %x }
  echo -ag $stl(users are: %usrs $+ , Total: $ini(users.ini,0))
}
alias srvdel { if ($ini(rents.ini,$1)) .remini -n rents.ini $1 | $2- $stl(Server $1 has Removed Succsesfuly!) }
alias servers {
  var %x = 1, %y = 0
  while (%x <= $ini(rents.ini,0)) {
    var %srvs = %srvs $iif($readini(rents.ini,$ini(rents.ini,%x),status == free),3•01Server-02 $+ %x 14(03Free14),4•01Server-02 $+ %x 14(04Taken14))
    if ($readini(rents.ini,$ini(rents.ini,%x),status == free)) inc %y
    inc %x
  }
  msg $chan $stl(Servers are: ( $+ $iif(%y == 0,04,03) $+ %y $+ 01/ $+ $ini(rents.ini,0) $+ ) %srvs)
}
alias total {
  var %x = 0, %y = 1
  while (%y <= $ini(rents.ini,0)) {
    if ($readini(rents.ini,$ini(rents.ini,%x),status == free)) inc %x | inc %y
  }
  return %x
}
;;; Accses System ;;;


on *:text:*:?:{
  if (!%floods) {
    if ($1 == !login) {
      if ($usrinf($qauth($nick)).logged == on) msg $nick $stl(You are already logged in!)
      if ($readini(users.ini,$qauth($nick),pass) == $3) {
        writeini -n Users.ini $qauth($nick) Logged ON
        writeini -n Users.ini $qauth($nick) Nick $nick
        msg $nick $stl(You are logged in successfuly! to user $2 $+ .)
      }
      else { msg $nick $stl(The user or the password are worng.) }
      set -u3 %floods on
    }
    if ($1 == !adduser) {
      if ($usrinf($qauth($nick)).lvl == owner) && ($usrinf($qauth($nick)).logged == on) {
        if ($2 ison %Schan) && ($regex($3,/Admin|Owner/i)) && (!$readini(Users.ini,$qauth($2),user)) && ($qauth($2)) {
          writeini -n Users.ini $qauth($2) Nick $2
          writeini -n Users.ini $qauth($2) Level $3
          writeini -n Users.ini $qauth($2) User $4
          writeini -n Users.ini $qauth($2) Pass $5
          writeini -n Users.ini $qauth($2) QAcc $qauth($2)
          writeini -n Users.ini $qauth($2) Logged OFF
          msg $nick User added successfully! with the details: User: $4 $+ , Password: $5 $+ , Level: $3 $+ , QAccount: $qauth($2) $+ .
        }
        if ($2 !ison %Schan) { msg $nick $stl($2 Must to be on the Channel: %Schan) }
        if (!$regex($3,/Admin|Owner/i)) { msg $nick $stl(You must write the level of the user be (Admin/Owner).) }
        if ($readini(Users.ini,$4,user)) { msg $nick $stl(The user $4 is already on the user list.) }
        if (!$qauth($2)) { msg $nick $stl(The user $4 must to set //mode $me +x.) }
        if (6 > $len($5)) { msg $nick $stl(The user password must to be more then 6 letters.) }
        if ($usrinf($qauth($nick)).lvl == admin) { msg $nick $stl(only owner can use in this command) }
      }
      set -u3 %floods on
    }
    if ($1 == !removeuser) || ($1 == !deluser) {
      if ($readini(Users.ini,$2,user)) {
        remini Users.ini $2
        msg $nick $stl(The user $2 is successfuly delete from the user list)
      }
      else { msg $nick $stl(No Such User $2_ }
      set -u3 %floods on
    }
    if ($usrinf($qauth($nick)).logged == on) {
      if ($1 == !addserver) {
        if ($ini(rents.ini,$2)) { msg $nick The server: $2 $+ $chr(44) is already in the list }
        elseif (!$3) { msg $nick $stl(04Syntex Error!01 Usage: !addserver [ip-server] [rcon-password]) }
        elseif ($3) && (!$ini(rents.ini,$2)) { srvadd $2 $3 msg $nick }
        set -u3 %floods on
      }
      if ($1 == !delserver) || ($1 == !removeserver) {
        if (!$ini(rents.ini,$2)) { msg $nick $stl(Error! The server $2 is not in the list) }
        elseif (!$2) { msg $nick $stl(04Syntex Error!01 Usage: !delserver [ip-server]) }
        elseif ($2) && ($ini(rents.ini,$2)) { srvdel $2 msg $nick }
        set -u3 %floods on
      }
      if ($1 == !admins) { msg $nick $users | set -u3 %floods on }
      if ($1 == !releaseall) { releaseall | set -u3 %floods on }
    }
    if ($1 == !info) {
      if ($ini(rents.ini,$2)) { msg $nick $stl(Server ip: $readini(rents.ini,$v1,ip) $+ $chr(44) Rcon password: $readini(rents.ini,$v1,rcon) $+ $chr(44) $&
          Connection port: $readini(rents.ini,$v1,port) $+ $chr(44) Status: $iif($readini(rents.ini,$v1,status) == free,03Free01,04Taken01 $+ $chr(44) By: $readini(rents.ini,%x,nick) $+ $chr(44) Timeleft: $replace($duration($timer(ID [ $+ [ $2 ] ]).secs,2),$chr(32),$chr(32) and $chr(32))) $&
        Server connection: $readini(rents.ini,$v1,Connection) $+ .) }
      else { msg $chan $stl(Syntax 04Error!01 Usage: !info [Number-Server]) }
      set -u3 %floods on
    }
    if ($1 == !commands) { msg $nick $stl(Commands: !Addserver [ip-server] [rcon-password]15 $chr(149) 01!Delserver [ip-server]15 $chr(149) 01!info [number-server]15 $chr(149) 01!refresh. $&
      Owners commands: !Adduser [nick] [level(owner/admin)] [user] [password]15 $chr(149) 01!Deluser [user],15 $chr(149) 01!Releaseall.) | set -u3 %floods on }
  }
}
alias users {
  var %x = 1, %y = 0
  while (%x <= $ini(users.ini,0)) {
    var %users = %users $iif($readini(users.ini,$ini(users.ini,%x),Logged == on),3•,4•) $+ 01 $+ $readini(users.ini,$ini(users.ini,%x),user) ( $+ $readini(users.ini,$ini(users.ini,%x),level) $+ )
    if ($readini(users.ini,$ini(users.ini,%x),Logged == on)) inc %y
    inc %x
  }
  return $stl(Users are: ( $+ $iif(%y == 0,14,03) $+ %y $+ 01/ $+ $ini(users.ini,0) $+ ) %users)
}


alias usrinf {
  if ($prop == logged) { return $readini(users.ini,$1,logged) }
  elseif ($prop == lvl) { return $readini(users.ini,$1,level) }
  elseif ($prop == nick) { return $readini(users.ini,$1,nick) }
  elseif ($prop == qacc) { return $readini(users.ini,$1,qacc) }
  elseif ($prop == user) { return $readini(users.ini,$1,user) }
}

menu * {
  intersys Servers-bot
  .Servers system
  ..Set channel { var %x = $input(Type channel,e,Type channel) | if (%x) && ($chr(35) $+ * iswm %x) { Set %Schan %x } }
  ..Add server { var %x = $input(Type server iport,e,Type server iport) | if (%x) { var %i = $input(Type rcon password,e,Type rcon password) | if (%i) { srvadd %x %i echo -ag } } }
  ..Remove server { var %x = $input(Type server iport,e,Type server iport) | if (%x) { srvdel %x echo -ag } }
  ..Show servers { showservers }
  ..Release all { ReleaseALL }
  .Users system
  ..Add user: {
    var %inp = $$?="Enter a Nickname:" | if (%inp) { var %lvl = $$?="Enter a Level(Admin/Owner):" | if (%lvl) { var %usr = $$?="Enter a Username:" | if (%usr) { var %pass = $$?="Enter a Password:" | if (%pass) {
            writeini -n Users.ini $qauth(%inp) Nick %inp
            writeini -n Users.ini $qauth(%inp) Level %lvl
            writeini -n Users.ini $qauth(%inp) User %usr
            writeini -n Users.ini $qauth(%inp) Pass %pass
            writeini -n Users.ini $qauth(%inp) QAcc $qauth(%inp)
            writeini -n Users.ini $qauth(%inp) Logged OFF
            echo -ag User added successfully! with the details: User: %usr $+ , Password: %pass $+ , Level: %lvl $+ , QAccount: $qauth(%inp) $+ .
          }
        }
      }
    }
  }
  ..Remove user { var %x = $$?="Enter a Qacc of the user:" if ($ini(users.ini,%x)) .remini -n users.ini %x | echo -ag $stl(%x has Removed Succsesfuly!) }
  ..Show users { showusers }
}

;                       ;
;;; Server Connection ;;;
;                       ;

alias RCONstart { echo -s (12RCON1)3 Starting RCONS ... | var %x 1, %y 1 | while ($ini(rents.ini,%x)) { .timer 1 %y RCON %x | inc %x | inc %y 10 } }
alias RCONclose { .timerRCON $+ $1 Off | .timerECHO $+ $1 Off |  rcmd $1 logaddress_del $ip $readini(rents.ini,$ini(rents.ini,$1),Port) | .remini -n rents.ini $ini(rents.ini,$1) challenge | .writeini -n rents.ini $ini(rents.ini,$1) Connection OFF | sockclose rcon $+ $1 * | echo -s (12RCON $1 $+ 1) 1---4Sockets closed1--- }
alias RconLOG {
  rcmd $1 nochn logaddress_del $ip $readini(rents.ini,$ini(rents.ini,$1),Port)
  rcmd $1 nochn logaddress_del $ip $readini(rents.ini,$ini(rents.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(rents.ini,$ini(rents.ini,$1),Port)
  .timer -m 1 500 echo -s (12RCON $1 $+ 1) 3* Open Socket Rcon LOG... *
}
;/RCON <SERVER NUM> (/RCON 1,/RCON 2...)
alias RCON {
  if ($ip) echo -s (12RCON $1 $+ 1) 4* Starting RCON $1 *
  echo -s (12RCON $1 $+ 1) Server IPort:12 $ini(rents.ini,$1)
  echo -s (12RCON $1 $+ 1) Rcon password is:12 $readini(rents.ini,$ini(rents.ini,$1),Rcon)
  echo -s (12RCON $1 $+ 1) Port is:12 $readini(rents.ini,$ini(rents.ini,$1),Port)
  echo -s (12RCON $1 $+ 1) Your IP is:12 $ip
  echo -s  | GETchallenge $1
  sockudp -k rcon $+ $1 $+ LOG $readini(rents.ini,$ini(rents.ini,$1),Port) $replace($ini(rents.ini,$1),$chr(58),$chr(32)) $str($chr(255),4)
  .timerLOG -m 1 750 RconLOG $1
}
alias GETchallenge { sockclose rcon $+ $1 $+ Challenge | sockudp -k rcon $+ $1 $+ Challenge $replace($ini(rents.ini,$1),$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 rents.ini $ini(rents.ini,%n) challenge $gettok(%RCON-challenge,3,32)
  }
  elseif ($gettok(%RCON-challenge,3,32) !isnum) && ($readini(rents.ini,$ini(rents.ini,%n),Connection) !== Banned) {
    .writeini -n rents.ini $ini(rents.ini,%n) Connection Banned
    RCONclose %n | echo -s 1(12RCON %n $+ 1)4 You are BANNED from the Server RCON Closed ! 2Check your Server details.
  }
}
alias rcmd { if ($2 != nochn) GETchallenge $1 | sockudp -k rcon $+ $1 $+ CMD $replace($ini(rents.ini,$1),$chr(58),$chr(32)) $str($chr(255),4) $+ rcon $readini(rents.ini,$ini(rents.ini,$1),challenge) " $+ $readini(rents.ini,$ini(rents.ini,$1),Rcon) $+ " $iif($2 == nochn,$3-,$2-) }
on *:udpread:rcon*LOG:{
  var %LOG
  sockread -f %LOG
  while ($sockbr) {
    if (%LOG) && (echo check !isin %LOG) RCON.DATA $remove($sockname,rcon,LOG) $gettok(%LOG,6-,32)
    sockread -f %LOG
  }
}
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(@Console $+ %n)) && ($1- != $null) /window -e @Console $+ %n
    if ($1- != $null) && ($1- != check) && ($gettok($1-,6,32) !== check") && ($gettok($1-,5,32) !== echo) { echo @Console $+ %n (12RCON %n $+ 1) $1- }
    if (echo check !isin $1-) RCON.DATA %n $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 RCON.DATA {
  if (!$window(@Console $+ $1)) .window -e @Console $+ $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 = rcmd , %rcon.weapon = $clr($2-).weapon , %rcon.team = $clr($2-).team , %rcon.team2 = $clr($2-).team2
  if (*Bad rcon_password.* iswm $2-) && ($readini(rents.ini,$ini(rents.ini,$1),Connection) !== BadRcon) { .writeini -n rents.ini $ini(rents.ini,$1) Connection BadRcon | echo -s (12RCON $1 $+ 1) 4* BAD RCON PASSWORD - Closing RCON Socket... * }
  if (Server shutdown isin $2-) { .writeini -n rents.ini $ini(rents.ini,$1) Connection OFF | echo -s (12RCON $1 $+ 1) 4* SERVER SHUTDOWN - Closing RCON Socket... * }
  if ( (Rcon: isin $2-) || (Logging disabled isin $2-) || (logaddress_del isin $2-) ) && (Bad Rcon !isin $2-) && ($readini(rents.ini,$ini(rents.ini,$1),Connection) !== ON) {
    .writeini -n rents.ini $ini(rents.ini,$1) Connection ON
    .timerRCON $+ $1 0 600 rcon $1
    .timerECHO $+ $1 0 60 rcmd $1 echo Ventox connection
    echo -s (12RCON $1 $+ 1) 12Botbot Connection to the SERVER !!!
    echo -s (12RCON $1 $+ 1) 12Botbot Connection to the SERVER !!!
    echo -s (12RCON $1 $+ 1) 12Botbot Connection to the SERVER !!!
  }
  if (echo check !isin $2-) { echo @Console $+ $1 (12RCON $1 $+ 1) $$2- }
  if (Bad Rcon: "rcon* iswm %rcon.dat) { .writeini -n rents.ini $ini(rents.ini,$1) Connection BadRcon }
  if (You have been banned from this server. == %Rcon.dat) && ($readini(rents.ini,$ini(rents.ini,$1),Connection) !== Banned) { .writeini -n rents.ini $ini(rents.ini,$1) Connection Banned }
  if ( ($clr($2-) == say) || ($clr($2-) == say_team) ) && (!%Bot.S. [ $+ [ %rcon.id ] ]) && ($readini(rents.ini,$ini(rents.ini,%rcon.id),SteamID) == %RCON.Steam) {
    Tokenize 32 $clr($2-).said
    if ($1 == !rr) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id sv_restart $iif($2 isnum,$2,1) }
    if ($1 == !Kick) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_kick $2- }
    if ($1 == !Ban) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_ban $2- }
    if ($1 == !Unban) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_unban $2- }
    if ($1 == !Pass) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id sv_password $2 }
    if ($1- == !NoPass) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_nopass }
    if ($1 == !Map) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_map $2 }
    if ($1- == !prac) { Set -u5 %Bot.S $+ %rcon.id On | PRAC %rcon.id | rcmd admin_command admin_ssay (Bot) Prac Have Been Loaded }
    if ($1- == !MR15) { Set -u5 %Bot.S $+ %rcon.id On | MR15 %rcon.id | admin_command admin_ssay (Bot) MR15 Have Been Loaded }
    if ($1 == !T) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | MOVE-T %rcon.id $2- }
    if ($1 == !CT) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | MOVE-CT %rcon.id $2- }
    if ($1 == !Slay) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_slay $2- }
    if ($1 == !Name) && ($2) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_execclient $2 name " $+ $3- }
    if ($1 == @) || ($1 == !) || ($1 == !tsay) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_tsay $2- }
    if ($1 == !ssay) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_ssay $2- }
    if ($1 == !disconnect) || ($1 == !Quit) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_execall disconnect }
    if ($1 == !FF) {
      if ($2 == ON) || ($2 == 1) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_ssay Friendlyfire is ON now. | rcmd %rcon.id mp_friendlyfire 1 }
      if ($2 == OFF) || ($2 == $chr(48)) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_ssay Friendlyfire is OFF now. | rcmd %rcon.id mp_friendlyfire 0 }
    }
    if ($1 == !Freezetime) { Set -u2 %Bot.S $+ %rcon.id On | rcmd %rcon.id admin_command admin_ssay Freezetime is $2 now. | rcmd %rcon.id mp_freezetime $2 }
    if ($1 == !ss) { Set -u2 %Bot.S $+ %rcon.id On | tsay %rcon.id Snapshot has just taken by the admin ( $+ %rcon.nick $+ ) | rcmd %rcon.id rcmd admin_quiet 1 | rcmd allow_client_exec 1 | rcmd admin_command admin_execall snapshot | rcmd admin_quiet 2 }
  }
}
alias tsay { rcmd $1 admin_command admin_tsay $2- }
alias ssay { rcmd $1 admin_command admin_ssay $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
}
alias RetryRCONS {
  echo -s 1(12RCONS1) 3Retrying rcons ...
  Sockclose *
  .timerRCON* Off
  .timerECHO* Off
  .timer 1 3 RCONstart
}