alias findscrim {
  JOIN #calscrim
  JOIN #findscrim
  ECHO Finding scrim.
  TIMERcalscrim 0 30 MSG #calscrim 4,0[1 DGK 4·1 5v5 4·1 our 4·1 chi 4·1 de_any 4·1 CALm14/1p+ 4]
  TIMERfindscrim 0 30 MSG #findscrim 4,0[1 DGK 4·1 5v5 4·1 our 4·1 chi 4·1 de_any 4·1 CALm14/1p+ 4]
}
alias foundscrim {
  PART #calscrim
  PART #findscrim
  ECHO Scrim found.
  TIMERcalscrim off
  TIMERfindscrim off
}

alias findringer {
  JOIN #findringer
  ECHO Finding ringer.
  TIMERfindringer 0 60 MSG #invitecs 4,0[1 DGK 4·1 Need 1 chi CALm14/1p+ 4]
  TIMERteamDGK 0 120 MSG #teamDGK 4,0[1 DGK 4·1 Need 1 chi CALm14/1p+ 4]
}
alias foundringer {
  PART #findringer
  ECHO Scrim found.
  TIMERfindringer off
  TIMERteamDGK off
}

; private DGK server bot
;   by John "jayKAY" Kater @ #teamDGK (jayKAY20o6@yahoo.com) & (f1sh@live.com)
;
; - Allows users (ones with access) in-game to do RCON commands without using an RCON password
;    -> Users with access have their steamids on seperate lines in rconaccess.txt where this file is.
; - Live server logs are displayed in the window @cs_bot on your mIRC. 
;    -> You can also issue RCON commands in @cs_bot by typing /rcon cmdhere

; Can't see logs? - "It doesn't work!"
;   -> Either nothing is happening in the server, you have the wrong RCON password, 
;      or you need to open port 7131 UDP on your firewall/router.


on *:load:{
  if ($exists($scriptdirrconaccess.txt)) write -c $scriptdirrconaccess.txt
  write $scriptdirrconaccess.txt 
  echo -a Counter-Strike Server Bot (v1.7)
  echo -a $str($chr(160),2) by bunkahumpa (bobby921@gmail.com)
  echo -a $chr(160)
  echo -a - Allows users (ones with access) in-game to do RCON commands without using an RCON password
  echo -a $str($chr(160),5) -> Users with access have their steamids on seperate lines in rconaccess.txt where this file is.
  echo -a - Live server logs are displayed in the window @cs_bot on your mIRC. 
  echo -a $str($chr(160),5) -> You can also issue RCON commands in @cs_bot by typing /rcon cmdhere
  echo -a $chr(160)
  echo -a Can't see logs? - "It doesn't work!"
  echo -a $str($chr(160),5) -> Either nothing is happening in the server, you have the wrong RCON password, 
  echo -a $str($chr(160),8) or you need to open port 7131 UDP on your firewall/router.
  echo -a $chr(160)
  echo -a $chr(160)
  echo -a To get started type /csbot or right-click and select "CS Server Bot"
  if (!$dialog(cs_bot)) dialog -m cs_bot cs_bot
  else dialog -v cs_bot
}

on *:unload:{
  sockclose rconcmd
  sockclose csbot
  .timerchallenge off
  if ($window(@cs_bot)) window -c @cs_bot
  unset %csbot.*
}

menu status,channel,query {
  CS Server Bot
  .Open CS Server Bot:csbot
  .-
  .Saved Server Information:{
    if (!$dialog(cs_bot)) dialog -m cs_bot cs_bot
    else dialog -v cs_bot
  }
  .RCON SteamID Access List:if ($exists($scriptdirrconaccess.txt)) run $scriptdirrconaccess.txt
}

dialog cs_bot {
  title "Server Information"
  size -1 -1 98 49
  option dbu
  text "IP:", 1, 3 2 9 8
  text "Port:", 2, 3 14 14 8
  text "RCON:", 3, 3 26 18 8
  edit %csbot.ip, 4, 33 1 63 10, autohs
  edit %csbot.port, 5, 33 13 29 10
  edit %csbot.rcon, 6, 33 25 63 10, pass autohs
  button "Cancel", 7, 14 38 37 10, cancel
  button "Save", 8, 59 38 37 10
}

on *:dialog:cs_bot:sclick:8:{
  set %csbot.ip $did(cs_bot,4)
  set %csbot.port $did(cs_bot,5)
  set %csbot.rcon $did(cs_bot,6)
  dialog -x cs_bot
}

menu @cs_bot {
  Saved Server Information:{
    if (!$dialog(cs_bot)) dialog -m cs_bot cs_bot
    else dialog -v cs_bot
  }
  RCON SteamID Access List:if ($exists($scriptdirrconaccess.txt)) run $scriptdirrconaccess.txt
  -
  Get RCON Status:rcon status
  -
  Restart Round (1s):rcon sv_restartround 1
  Go live on 3 (lo3):liveonthree
  -
  Restart CS Server Bot:{
    window -c @cs_bot
    csbot
  }
  Close CS Server Bot:{
    sockclose rconcmd
    sockclose csbot
    .timerchallenge off
    window -c @cs_bot
  }
  -
  Clear Window:clear @cs_bot
}

alias csbot {
  if (!$window(@cs_bot)) {
    window -e @cs_bot
    if ($sock(rconcmd)) sockclose rconcmd
    if ($sock(csbot)) sockclose csbot
    if ((!%csbot.ip) || (!%csbot.port) || (!%csbot.rcon)) {
      echo @cs_bot Some required server information is missing. Please correct it in the saved server information dialog.
      if (!$dialog(cs_bot)) dialog -m cs_bot cs_bot
      else dialog -v cs_bot
    }
    else {
      if ($gettok($ipverify($+(%csbot.ip,:,%csbot.port)),1,32) == Valid) {
        set %csbot.first 1
        challengetimer
        .timertimeout -o 1 10 timeout
        echo @cs_bot Assuming your RCON password is correct for the server you can issue rcon commands by typing /rcon cmdhere
        echo @cs_bot $chr(160)
        echo @cs_bot $asctime([HH:nn:ss]) --> Starting CS Server Bot on $+(%csbot.ip,:,%csbot.port,...)
        echo @cs_bot $chr(160)
      }
      else {
        echo @cs_bot That is not a correct IP/Port. Please correct it in the saved server information dialog.
        if (!$dialog(cs_bot)) dialog -m cs_bot cs_bot
        else dialog -v cs_bot
      }
    }
  }
  else window -a @cs_bot
}

alias -l ipverify {
  var %regex = /((?:\d{1,3}\.){3}\d{1,3})((?::|\s)\d{1,5})*$/
  if ($regex(ip,$1,%regex)) {
    var %x = 1
    while (%x <= $gettok($regml(ip,1),0,46)) {
      if ($gettok($regml(ip,1),%x,46) > 255) return Invalid
      inc %x
    }
    if ($prop == ip) return Valid - $regml(ip,1)
    if ($prop == port) {
      if ($regml(ip,2)) {
        if ($right($ifmatch,-1) <= 65535) return Valid - $ifmatch
        else return Invalid
      }
    }
    else return Valid - $iif($regml(ip,2),$regml(ip,1) $+ $regml(ip,2),$regml(ip,1))
  }
  else return Invalid
}

alias -l timeout {
  if (!$sock(csbot).rcvd) {
    if ($window(@cs_bot)) {
      echo @cs_bot $asctime([HH:nn:ss]) --> Server timed out! Is your connection or the server down?
      echo @cs_bot $asctime([HH:nn:ss]) --> Close this window and try again later.
    }
    .timerchallenge off
    if ($sock(csbot)) sockclose csbot
    if ($sock(rconcmd)) sockclose rconcmd
  }
}

on *:exit:{
  nologs %csbot.ip %csbot.port %csbot.challenge %csbot.rcon
  sockclose rconcmd
  sockclose csbot
  .timerchallenge off
}

on *:close:@cs_bot:{
  nologs %csbot.ip %csbot.port %csbot.challenge %csbot.rcon
  sockclose rconcmd
  sockclose csbot
  .timerchallenge off
}

alias -l challengetimer {
  if ($timer(challenge)) .timerchallenge off
  else dochallenge
  .timerchallenge -o 0 300 dochallenge
}

alias -l dochallenge {
  challenge %csbot.ip %csbot.port
  .timerlogs 1 2 logs %csbot.ip %csbot.port %csbot.challenge %csbot.rcon
}

alias -l execcal { rcon exec cal.cfg }
alias -l execserver { rcon exec server.cfg }

alias -l liveonthree {
  execcal
  rcon say Live on three restarts
  .timerRS1 2 1 rcon sv_restartround 1
  .timerRS3 1 4 rcon sv_restartround 3
  .timerLIVE 1 8 rcon say LIVE! GL HF
  ; if you want to display each team's scores at the end of each round remove the semicolon below this comment
  ; it will keep the score for 15 rounds and then when teams switch it will switch the scores to stay accurate
  ; for the next 15 rounds.
  .timersetlive 1 8 csbotlive
}

alias -l csbotlive {
  set %csbot.live 1
  if ($calc(%csbot.ct + %csbot.t) != 15) {
    set %csbot.ct 0
    set %csbot.t 0
  }
  else {
    var %t = %csbot.t, %ct = %csbot.ct
    set %csbot.t %ct
    set %csbot.ct %t
    rcon say CT: %csbot.ct T: %csbot.t
  }
}

alias -l challenge {
  if ($sock(csbot)) sockclose csbot
  sockudp -kn csbot 7131 $1 $2 ÿÿÿÿchallenge rcon
}
alias -l logs {
  var %ip = $1, %port = $2, %challenge = $3, %password = $4-
  ; remove your address from the server in case it's already there (prevents double sending)
  sockudp -kn csbot %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " logaddress_del $ip 7131
  ; enable server log stuff
  sockudp -kn rconcmd %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " mp_logmessages 1
  sockudp -kn rconcmd %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " mp_logfile 1
  ; enable logging
  sockudp -kn rconcmd %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " log on
  ; set log address
  sockudp -kn csbot 7131 %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " logaddress_add $ip 7131
}
alias -l nologs {
  var %ip = $1, %port = $2, %challenge = $3, %password = $4-
  sockudp -kn csbot %ip %port ÿÿÿÿrcon %challenge " $+ %password $+ " logaddress_del $ip 7131
  sockclose rconcmd
  sockclose csbot
  .timerchallenge off
}

alias rcon { sockudp -kn rconcmd %csbot.ip %csbot.port ÿÿÿÿrcon %csbot.challenge " $+ %csbot.rcon $+ " $1- }

on *:udpread:rconcmd:{
  if ($sockerr > 0) return
  :nextread
  var %temp | sockread -f %temp
  if ($sockbr == 0) return
  if (%temp == $null) goto nextread
  else {
    if (ÿÿÿÿl isin %temp) var %temp = $right(%temp,-5)
    if (ÿÿÿÿ isin %temp) var %temp = $right(%temp,-4)
    if (%temp == ") var %temp = $null
    if (Log file isin %temp) var %temp = $null
    if (Server logging data to file isin %temp) var %temp = $null
    if (Logging disabled isin %temp) var %temp = $null
    if (Unable to open logfiles under isin %temp) var %temp = $null
    if (Bad challenge. isin %temp) var %temp = $null
    if (Server cvar isin %temp) var %temp = $gettok(%temp,7-,32)
    if (Server say isin %temp) var %temp = Server say $gettok(%temp,7-,32)
    if (%temp) {
      if ($window(@cs_bot)) aline -p @cs_bot $asctime([HH:nn:ss]) RCON: %temp
    }
  }
  goto nextread
}

on *:udpread:csbot:{
  if ($sockerr > 0) return
  :nextread
  var %data | sockread -f %data
  if ($sockbr == 0) return
  if (%data == $null) goto nextread
  else {
    if ($sock(csbot).saddr != %csbot.ip) return
    if (%csbot.first) {
      echo @cs_bot $asctime([HH:nn:ss]) --> CS Server Bot started on $+(%csbot.ip,:,%csbot.port)
      echo @cs_bot $chr(160)
      .timertimeout off
      unset %csbot.first
      rcon status
    }
    if (*"*from*"*"* iswm %data) var %data = $null
    if ($gettok(%data,1,32) == ÿÿÿÿchallenge) {
      set %csbot.challenge $gettok(%data,3,32)
      logs %csbot.ip %csbot.port %csbot.challenge %csbot.rcon
      var %data = $null
      goto nextread
    }
    if (Bad challenge. isin %data) var %data = $null
    if (Couldn't find address in list isin %data) var %data = $null
    if (No addresses added yet isin %data) var %data = $null
    if (ÿÿÿÿldeleting: isin %data) var %data = $null
    if (current: isin %data) var %data = $null
    if (%data == ÿÿÿÿlBad rcon_password.) {
      var %data = $null
      sockclose csbot
      sockclose rconcmd
      .timerchallenge off
      if (%csbot.first) unset %csbot.first
      if ($window(@cs_bot)) aline -p @cs_bot $asctime([HH:nn:ss]) --> Bad RCON Password.
    }
    if ($gettok(%data,1,32) == ÿÿÿÿlog) var %data = $gettok(%data,6-,32)
    if (logaddress isin $gettok(%data,1,32)) var %data = $null
    if ($gettok(%data,1,32) == L) {
      if ($window(cs_bot)) aline -p @cs_bot $asctime([HH:nn:ss]) %data
      var %data = $null
    }
    if ($gettok(%data,1,32) == $+($chr(91),ADMIN,$chr(93))) var %data = $null
    if ($gettok(%data,1,32) == $+($chr(91),META,$chr(93))) var %data = $null
    if ($gettok(%data,1,32) == $+($chr(91),STATSME,$chr(93))) var %data = $null
    if ($gettok(%data,1,32) == ERROR:) var %data = $null
    if ($regex(%data,/"(.*?)(?:<[^>]+>){2}<([^>]*)>"/g)) {
      if ($regex(playernumber,%data,/"(.*?)(?:<[^>]+>){1}<([^>]*)>"/g)) var %playernumber = $left($gettok($regml(playernumber,1),-1,60),-1)
      var %csbot.player = $regml(1)
      var %csbot.team = $regml(2)
      if ($regex(logged,%data,/".*?<\d+><STEAM_(0:[0|1]:\d+)><\w+>"/g)) {
        var %steamid = $regml(logged,1)
        var %say = $gettok(%data,3,34)
        if ($left(%say,1) == -) { 
          var %x = 1
          while (%x <= $lines($scriptdirrconaccess.txt)) {
            if (%steamid == $read($scriptdirrconaccess.txt,%x)) {
              if (%say == -commands) {
                rcon say -rs, -cal, -cevo, -server, -lo3, -notlive, -score, -say <stuff>
                rcon say -findringer/-foundringer, -findscrim/-foundscrim, -pmcs/-pmvent
                rcon say -map <map>, -time, -alltalk, $+($chr(91),1,$chr(124),0,$chr(93)) $+ , -footsteps $+($chr(91),1,$chr(124),0,$chr(93))
                rcon say -info, -steamids, -kick <#userID/name>, -kickt, -kickct
                rcon say -pregame, -voice, -money <amount>
              }
              if (%say == -time) {
                if ($asctime(z) == -4) var %timezone = atlantic
                elseif ($asctime(z) == -5) var %timezone = eastern
                elseif ($asctime(z) == -6) var %timezone = central
                elseif ($asctime(z) == -7) var %timezone = mountain
                elseif ($asctime(z) == -8) var %timezone = pacific
                else var %timezone = other ( $+ $asctime(z) GMT)
                rcon say $asctime(dddd $+ $chr(44) mmmm doo $+ $chr(44) yyyy) - $asctime(h:nn:ssTT) %timezone time
              }
              if (%say == -findringer) {
                findringer
                rcon say Joining #findringer
                rcon say Timer started in #teamDGK
                rcon say Finding Ringer.
              }
              if (%say == -foundringer) {
                foundringer
                rcon say Parting #findringer
                rcon say Timer stopped in #teamDGK
                rcon say Found Ringer.
              }              
              if (%say == -pm * iswm %say) msg $gettok(%say,2-,32) connect 216.246.49.50:27015;password scrimdgk
              if (%say == -alltalk 1) rcon sv_alltalk 1
              if (%say == -alltalk 0) rcon sv_alltalk 0
              if (%say == -findscrim) {
                findscrim
                rcon say Joining #findscrim
                rcon say Joining #calscrim
                rcon say Finding Scrim.
              }
              if (%say == -foundscrim) {
                foundscrim
                rcon say Parting #findscrim
                rcon say Parting #calscrim
                rcon say Found Scrim.
              }
              if (%say == -footsteps 1) rcon mp_footsteps 1
              if (%say == -footsteps 0) rcon mp_footsteps 0
              if (-money * iswm %say) rcon mp_startmoney $gettok(%say,2-,32)
              if (%say == -rs) rcon sv_restartround 1
              if (%say == -cal) execcal
              if (%say == -cevo) rcon exec cevo.cfg
              if (%say == -voice) {
                rcon sv_voicecodec voice_speex
                rcon sv_voicequality 5
              }
              if (%say == -server) execserver
              if (%say == -lo3) liveonthree
              if (%say == -steamids) steamiddotcom
              if (%say == -pregame) {
                rcon mp_maxrounds 0
                rcon mp_startmoney 16000
                rcon mp_footsteps 0
                rcon mp_roundtime 60
                rcon mp_freezetime 0
                rcon sv_restartround 1
                rcon say Pregame config executed
              }
              if (%say == -notlive) {
                if (%csbot.live) {
                  unset %csbot.live
                  unset %csbot.ct
                  unset %csbot.t
                  rcon say Not Live! Score - CT: 0 T: 0
                }
              }
              if (%say == -score) {
                if (%csbot.live) rcon say CT: $iif(!%csbot.ct,0,%csbot.ct) T: $iif(!%csbot.t,0,%csbot.t)
              }
              if (%say == -info) { 
                rcon say Digital Gaming Kings - #teamDGK - Idle and Support
              }
              if (-map * iswm %say) { 
                rcon say Attempting to change map to $gettok(%say,2,32) $+ ...
                rcon changelevel $gettok(%say,2,32)
              }
              if (-say * iswm %say) rcon say $gettok(%say,2-,32)
              if (%say == -kickt) {
                var %y = 1
                while (%y <= $gettok(%csbot.ts,0,255)) {
                  		  rcon say Ts Kicked
                  rcon kick $+($chr(35),$gettok(%csbot.ts,%y,255))
                  inc %y
                }
                unset %csbot.ts
              }
              if (%say == -kickct) {
                var %y = 1
                while (%y <= $gettok(%csbot.cts,0,255)) {
                  		  rcon say CTs Kicked
                  rcon kick $+($chr(35),$gettok(%csbot.cts,%y,255))
                  inc %y
                }
                unset %csbot.cts
              }
              if (-kick * iswm %say) {
                rcon kick $+(",$gettok(%say,2-,32),")
              }
            }
            inc %x
          }
        }
      }
      if (($regml(3)) && ($regml(4))) {
        var %csbot.player2 = $regml(3)
        var %csbot.team2 = $regml(4)
        if (%csbot.team2 == CT) {
          var %csbot.player2 = 12 $+ %csbot.player2
          var %csbot.team2 = 12CT
        }
        if (%csbot.team2 == TERRORIST) {
          var %csbot.player2 = 04 $+ %csbot.player2
          var %csbot.team2 = 4T
        }
      }
      if (%csbot.team == CT) {
        var %csbot.player = 12 $+ %csbot.player
        var %csbot.team = 12CT
      }
      if (%csbot.team == TERRORIST) {
        var %csbot.player = 04 $+ %csbot.player
        var %csbot.team = 4T
      }
      else {
        var %csbot.player = 03 $+ %csbot.player
        var %csbot.team = 3 $+ %csbot.team
      }
    }
  }
  if (say_team isin $gettok(%data,2,34)) var %data = $iif($gettok(%data,$gettok(%data,0,32),32) == (dead),*DEAD*) %csbot.player $+ ( $+ %csbot.team $+ ) 3says (team): $gettok(%data,3,34)
  elseif (say isin $gettok(%data,2,34)) var %data = $iif($gettok(%data,$gettok(%data,0,32),32) == (dead),*DEAD*) %csbot.player $+ ( $+ %csbot.team $+ ) 3says: $gettok(%data,3,34)
  else {
    if (Rcon: "rcon* iswm %data) var %data = $null
    if (%data == ") var %data = $null
    if (Server cvar* iswm %data) var %data = $null
    if (Server say "* iswm %data) var %data = 3Server say: $iif($right($gettok(%data,3-,32),1) != ",$gettok(%data,3-,32) $+ ",$gettok(%data,3-,32))
    if (Log file* iswm %data) var %data = $null
    if (*connected, address "*:*" iswm %data) var %data = %csbot.player 3connected
    if (*STEAM USERID validated iswm %data) var %data = $null
    if (*entered the game iswm %data) var %data = %csbot.player 3entered the game
    if (*disconnected iswm %data) {
      var %data = %csbot.player 3disconnected
      if (%csbot.team == 4T) {
        var %total = $gettok(%csbot.ts,0,255), %x = 1
        if (%total == 1) unset %csbot.ts
        else {
          while (%x <= %total) {
            if ($gettok(%csbot.ts,%x,255) == %playernumber) {
              if (%x == 1) {
                if ($gettok(%csbot.ts,0,255) == 1) unset %csbot.ts
                else set %csbot.ts $gettok(%csbot.ts,2-,255)
              }
              elseif (%x == %total) set %csbot.ts $gettok(%csbot.ts,1- $calc(%total - 1),255)
              else {
                var %low = $calc(%x - 1), %high = $calc(%x + 1)
                set %csbot.ts $gettok(%csbot.ts,1- $+ %low,255) $+ $chr(255) $+ $gettok(%csbot.ts,%high $+ -,255)
              }
              if (%csbot.ts) {
                if ($left(%csbot.ts,1) != $chr(255)) set %csbot.ts $chr(255) $+ %csbot.ts
              }
              inc %x
            }
            else inc %x
          }
        }
        if (!%csbot.ts) {
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }      
      }
      if (CT isin %csbot.team) {
        var %total = $gettok(%csbot.cts,0,255), %x = 1
        if (%total == 1) unset %csbot.cts
        else {
          while (%x <= %total) {
            if ($gettok(%csbot.cts,%x,255) == %playernumber) {
              if (%x == 1) {
                if ($gettok(%csbot.cts,0,255) == 1) unset %csbot.cts
                else set %csbot.cts $gettok(%csbot.cts,2-,255)
              }
              elseif (%x == %total) set %csbot.cts $gettok(%csbot.cts,1- $calc(%total - 1),255)
              else {
                var %low = $calc(%x - 1), %high = $calc(%x + 1)
                set %csbot.cts $gettok(%csbot.cts,1- $+ %low,255) $+ $chr(255) $+ $gettok(%csbot.cts,%high $+ -,255)
              }
              if (%csbot.cts) {
                if ($left(%csbot.cts,1) != $chr(255)) set %csbot.cts $chr(255) $+ %csbot.cts
              }
              inc %x
            }
            else inc %x
          }
        }
        if (!%csbot.cts) {
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
      }
    }
    if (changed name to isin $gettok(%data,2,34)) {
      if (12 isin %csbot.player) var %data = %csbot.player 3changed name to 12 $+ $gettok(%data,3,34)
      if (04 isin %csbot.player) var %data = %csbot.player 3changed name to 04 $+ $gettok(%data,3,34)
    }
    if (%data == World triggered "Round_End") var %data = *** Round Ended ***
    if (%data == World triggered "Round_Start") var %data = *** Round Started ***
    if (Kick: " isin %data) var %data = %csbot.player was kicked by console
    if (triggered "Game_idle_kick" (auto) isin %data) var %data = %csbot.player was auto-kicked for being idle too long
    if (World triggered "Game_Commencing" isin %data) {
      var %data = *** Game Commencing! ***
      if (%csbot.live == 1) {
        unset %csbot.live
        unset %csbot.ct
        unset %csbot.t
      }
    }
    if (Loading map "*" iswm %data) var %data = 03Loading Map: $gettok(%data,3,32)
    if (Started map "*" $chr(40) $+ CRC "*" $+ $chr(41) iswm %data) var %data = 03Started Map: $gettok(%data,3,32)
    if (World triggered "Round_Draw" isin %data) {
      var %data = *** 3Round Draw! 12 $+ $remove($gettok(%data,4-5,32),") 4 $+ $remove($gettok(%data,6-7,32),")
      if (%csbot.live == 1) {
        unset %csbot.live
        unset %csbot.ct
        unset %csbot.t
      }
    }
    var %maxrounds = 15
    if (World triggered "Restart_Round_ isin %data) {
      var %seconds = $gettok($gettok(%data,3,95),1,40)
      if (%seconds == 1) var %secondsword = second
      else var %secondsword = seconds
      var %data = *** 3Restart Round:  $+ %seconds $+  %secondsword
      if (%csbot.live == 1) {
        if ($calc(%csbot.ct + %csbot.t) != %maxrounds) {
          set %csbot.ct 0
          set %csbot.t 0
        }
      }
    }
    if (triggered "Spawned_With_The_Bomb" isin %data) var %data = %csbot.player 3spawned with the Bomb
    if (Team "CT" scored isin %data) var %data = 12CT: $remove($gettok(%data,4,32),")
    if (Team "TERRORIST" scored isin %data) var %data = 4T: $remove($gettok(%data,4,32),")
    if (joined team "CT" isin %data) {
      var %data = %csbot.player 3joined team 12CT
      if (CT !isin %csbot.team) set %csbot.cts $+(%csbot.cts,$chr(255),%playernumber)
      if (%csbot.team == 4T) {
        var %total = $gettok(%csbot.ts,0,255), %x = 1
        if (%total == 1) unset %csbot.ts
        else {
          while (%x <= %total) {
            if ($gettok(%csbot.ts,%x,255) == %playernumber) {
              if (%x == 1) {
                if ($gettok(%csbot.ts,0,255) == 1) unset %csbot.ts
                else set %csbot.ts $gettok(%csbot.ts,2-,255)
              }
              elseif (%x == %total) set %csbot.ts $gettok(%csbot.ts,1- $calc(%total - 1),255)
              else {
                var %low = $calc(%x - 1), %high = $calc(%x + 1)
                set %csbot.ts $gettok(%csbot.ts,1- $+ %low,255) $+ $chr(255) $+ $gettok(%csbot.ts,%high $+ -,255)
              }
              if (%csbot.ts) {
                if ($left(%csbot.ts,1) != $chr(255)) set %csbot.ts $chr(255) $+ %csbot.ts
              }
              inc %x
            }
            else inc %x
          }
        }
      }
    }
    if (joined team "TERRORIST" isin %data) {
      var %data = %csbot.player 3joined team 4T
      if (%csbot.team != 4T) set %csbot.ts $+(%csbot.ts,$chr(255),%playernumber)
      if (CT isin %csbot.team) {
        var %total = $gettok(%csbot.cts,0,255), %x = 1
        if (%total == 1) unset %csbot.cts
        else {
          while (%x <= %total) {
            if ($gettok(%csbot.cts,%x,255) == %playernumber) {
              if (%x == 1) {
                if ($gettok(%csbot.cts,0,255) == 1) unset %csbot.cts
                else set %csbot.cts $gettok(%csbot.cts,2-,255)
              }
              elseif (%x == %total) set %csbot.cts $gettok(%csbot.cts,1- $calc(%total - 1),255)
              else {
                var %low = $calc(%x - 1), %high = $calc(%x + 1)
                set %csbot.cts $gettok(%csbot.cts,1- $+ %low,255) $+ $chr(255) $+ $gettok(%csbot.cts,%high $+ -,255)
              }
              if (%csbot.cts) {
                if ($left(%csbot.cts,1) != $chr(255)) set %csbot.cts $chr(255) $+ %csbot.cts
              }
              inc %x
            }
            else inc %x
          }
        }
      }
    }
    if (joined team "SPECTATOR" isin %data) var %data = %csbot.player joined the spectators
    if (committed suicide with "world" isin %data) var %data = %csbot.player 3typed kill in console
    if (committed suicide with "worldspawn" (world) isin %data) var %data = %csbot.player 3fell and died
    if (committed suicide with "grenade" isin %data) var %data = %csbot.player 3commited suicide with grenade
    if (triggered "Dropped_The_Bomb" isin %data) var %data = %csbot.player 3dropped the bomb
    if (triggered "Got_The_Bomb" isin %data) var %data = %csbot.player 3got the bomb
    if (triggered "Planted_The_Bomb" isin %data) var %data = %csbot.player 3planted the bomb
    if (triggered "Begin_Bomb_Defuse_Without_Kit" isin %data) var %data = %csbot.player 3started defusing the bomb without a kit
    if (triggered "Begin_Bomb_Defuse_With_Kit" isin %data) var %data = %csbot.player 3started defusing the bomb with a kit
    if (triggered "Defused_The_Bomb" isin %data) var %data = %csbot.player 3defused the bomb
    if (Team "TERRORIST" triggered "Target_Bombed" isin %data) {
      var %data = *** 4Terrorists Win: Target Bombed 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
      if (%csbot.live == 1) {
        inc %csbot.t
        var %rounds = $calc(%csbot.ct + %csbot.t)
        if (%rounds > %maxrounds) var %roundsleft = $calc(%maxrounds * 2 - %rounds)
        else var %roundsleft = $calc(%maxrounds - %rounds)
        if (%rounds == %maxrounds) {
          rcon say End of half score - CT: %csbot.ct T: %csbot.t
          unset %csbot.live
        }
        elseif (%roundsleft == 0) {
          rcon say End of game - Final Score: CT: %csbot.ct T: %csbot.t
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
        else rcon say $chr(91) $+ CT: %csbot.ct T: %csbot.t $+ $chr(93) - $chr(91) $+ %roundsleft $iif(%roundsleft == 1,round,rounds) left in the half $+ $chr(93)
      }
    }
    if (Team "TERRORIST" triggered "Terrorists_Win" isin %data) {
      var %data = *** 4Terrorists Win: Eliminated Opponents 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
      if (%csbot.live == 1) {
        inc %csbot.t
        var %rounds = $calc(%csbot.ct + %csbot.t)
        if (%rounds > %maxrounds) var %roundsleft = $calc(%maxrounds * 2 - %rounds)
        else var %roundsleft = $calc(%maxrounds - %rounds)
        if (%rounds == %maxrounds) {
          rcon say End of half score - CT: %csbot.ct T: %csbot.t
          unset %csbot.live
        }
        elseif (%roundsleft == 0) {
          rcon say End of game - Final Score: CT: %csbot.ct T: %csbot.t
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
        else rcon say $chr(91) $+ CT: %csbot.ct T: %csbot.t $+ $chr(93) - $chr(91) $+ %roundsleft $iif(%roundsleft == 1,round,rounds) left in the half $+ $chr(93)
      }
    }
    if (Team "CT" triggered "Target_Saved" isin %data) {
      var %data = *** 12Counter-Terrorists Win: Target Saved 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
      if (%csbot.live == 1) {
        inc %csbot.ct
        var %rounds = $calc(%csbot.ct + %csbot.t)
        if (%rounds > %maxrounds) var %roundsleft = $calc(%maxrounds * 2 - %rounds)
        else var %roundsleft = $calc(%maxrounds - %rounds)
        if (%rounds == %maxrounds) {
          rcon say End of half score - CT: %csbot.ct T: %csbot.t
          unset %csbot.live
        }
        elseif (%roundsleft == 0) {
          rcon say End of game - Final Score: CT: %csbot.ct T: %csbot.t
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
        else rcon say $chr(91) $+ CT: %csbot.ct T: %csbot.t $+ $chr(93) - $chr(91) $+ %roundsleft $iif(%roundsleft == 1,round,rounds) left in the half $+ $chr(93)
      }
    }
    if (Team "CT" triggered "Bomb_Defused" isin %data) {
      var %data = *** 12Counter-Terrorists Win: Bomb Defused 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
      if (%csbot.live == 1) {
        inc %csbot.ct
        var %rounds = $calc(%csbot.ct + %csbot.t)
        if (%rounds > %maxrounds) var %roundsleft = $calc(%maxrounds * 2 - %rounds)
        else var %roundsleft = $calc(%maxrounds - %rounds)
        if (%rounds == %maxrounds) {
          rcon say End of half score - CT: %csbot.ct T: %csbot.t
          unset %csbot.live
        }
        elseif (%roundsleft == 0) {
          rcon say End of game - Final Score: CT: %csbot.ct T: %csbot.t
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
        else rcon say $chr(91) $+ CT: %csbot.ct T: %csbot.t $+ $chr(93) - $chr(91) $+ %roundsleft $iif(%roundsleft == 1,round,rounds) left in the half $+ $chr(93)
      }
    }
    if (Team "CT" triggered "CTs_Win" isin %data) {
      var %data = *** 12Counter-Terrorists Win: Eliminated Opponents 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
      if (%csbot.live == 1) {
        inc %csbot.ct
        var %rounds = $calc(%csbot.ct + %csbot.t)
        if (%rounds > %maxrounds) var %roundsleft = $calc(%maxrounds * 2 - %rounds)
        else var %roundsleft = $calc(%maxrounds - %rounds)
        if (%rounds == %maxrounds) {
          rcon say End of half score - CT: %csbot.ct T: %csbot.t
          unset %csbot.live
        }
        elseif (%roundsleft == 0) {
          rcon say End of game - Final Score: CT: %csbot.ct T: %csbot.t
          unset %csbot.live
          unset %csbot.ct
          unset %csbot.t
        }
        else rcon say $chr(91) $+ CT: %csbot.ct T: %csbot.t $+ $chr(93) - $chr(91) $+ %roundsleft $iif(%roundsleft == 1,round,rounds) left in the half $+ $chr(93)
      }
    }
    if (triggered "Killed_A_Hostage" isin %data) var %data = %csbot.player 3killed a hostage
    if (triggered "Touched_A_Hostage" isin %data) var %data = %csbot.player 3touched a hostage
    if (triggered "Rescued_A_Hostage" isin %data) var %data = %csbot.player 3rescued a hostage
    if (Team "CT" triggered "All_Hostages_Rescued" isin %data) var %data = *** 12Counter-Terrorists Win: Hostages Rescued 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
    if (Team "TERRORIST" triggered "Hostages_Not_Rescued" isin %data) var %data = *** 4Terrorists Win: Hostages Not Rescued 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
    if (Team "TERRORIST" triggered "VIP_Not_Escaped" isin %data) var %data = *** 4Terrorists Win: VIP Didn't Escape 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
    if (triggered "Became_VIP" isin %data) var %data = %csbot.player 3is the VIP
    if (Team "TERRORIST" triggered "VIP_Assassinated" isin %data) var %data = *** 4Terrorists Win: VIP Assassinated 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
    if (triggered "Escaped_As_VIP" isin %data) var %data = %csbot.player 3escaped as the VIP
    if (Team "CT" triggered "VIP_Escaped" isin %data) var %data = *** 12Counter-Terrorists Win: VIP Escaped 12 $+ $remove($gettok(%data,5-6,32),") 4 $+ $remove($gettok(%data,7-8,32),")
    if (*attacked*with* iswm %data) var %data = $null
    if (*killed*with* iswm %data) {
      var %player1 = $replace(%csbot.player,$chr(32),$chr(255)), %player2 = $replace(%csbot.player2,$chr(32),$chr(255))
      if ($left(%player1,3) == $+($chr(3),03)) var %player1 = $remove(%player1,$left(%player1,3))
      if ($left(%player2,3) == $+($chr(3),03)) var %player2 = $remove(%player2,$left(%player2,3))
      if ($left(%player1,3) != $left(%player2,3)) var %data = %csbot.player 3killed %csbot.player2 3with $remove($gettok(%data,$numtok(%data,32),32),")
      else var %data = %csbot.player 3killed their teammate %csbot.player2 3with $remove($gettok(%data,$numtok(%data,32),32),")
    }
  }
  if (%data != $null) {
    if ($window(@cs_bot)) aline -p @cs_bot $asctime([HH:nn:ss]) %data
  }
  goto nextread
}

alias -l steamiddotcom {
  sockclose steamiddotcom
  sockopen steamiddotcom www.steamid.com 80
}

on *:sockopen:steamiddotcom:{
  var %data = $+(addr=,%csbot.ip,:,%csbot.port,&rcon=,%csbot.rcon,&announceflag=1)
  sockwrite -n $sockname POST /rcon.php HTTP/1.1
  sockwrite -n $sockname Host: www.steamid.com
  sockwrite -n $sockname User-Agent: mIRC $version
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname Content-Length: $len(%data)
  sockwrite -n $sockname
  sockwrite -n $sockname %data
}

alias nohtml {
  var %parsed, %regex = $regsub($1-,m~([^<]*>|<[^>]+>|<[^>]*)|(&nbsp;)~g,$chr(32),%parsed)
  return %parsed
}