Anonymous

alias challengercon { 
  sockudp -k rcon 70.86.89.211 27017 ÿÿÿÿChallenge Rcon
  window @kills
  window @joined
  window @misc
  window @say
}
alias getchall {
  var %i = 1 
  while ($mid($mid($1-,%i,1),1) != $null) {
    if ($v1 isnum) { var %c = %c $+ $v1 } 
    inc %i
  }
  return %c
}
on *:udpread:rcon:{ 
  sockread &t | breplace &t 0 254 32 160
  tokenize 160 $bvar(&t,1-).text
  if ($getchall($1-) isnum) {  
    set %challnum $getchall($1-)
    echo -a %challnum
  }
  rcon logaddress $ip 1337
  sockclose rcon
}

alias rcon {
  sockudp rcon.cmd 70.86.89.211 27017 ÿÿÿÿrcon %challnum "test" $1-
}
;/catchlogs <port>
alias catchlogs {
  sockudp -k rcon.cmd $1
  challengercon
}
on *:UDPREAD:rcon.cmd:{
  sockread &x | breplace &x 0 254 32 160
  tokenize 160 $bvar(&x,1-).text
  var %action = $gettok($gettok($1-,3,34),1,32)
  ;teh var is so we dont have to keep typing that over and over :d
  if (%action == say) {
    aline @say $gettok($gettok($1-,2,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,2,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) TEAM: $iif($gettok($gettok($1-,4,$asc(<)),1,$asc(>)) == CT,12CT,4T) $+ ) said: $gettok($1-,4,$asc("))
  }
  elseif (%action == killed) {
    aline @kills $gettok($gettok($1-,2,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,2,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) TEAM: $iif($gettok($gettok($1-,4,$asc(<)),1,$asc(>)) == CT,12CT,4T) $+ ) killed $gettok($gettok($1-,4,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,5,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,6,$asc(<)),1,$asc(>)) TEAM: $iif($gettok($gettok($1-,7,$asc(<)),1,$asc(>)) == CT,12CT,4T) $+ ) Gun: $gettok($1-,6,$asc("))
  }
  elseif (%action == connected,) {
    aline @joined $gettok($gettok($1-,2,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,2,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) TEAM: None) Connected with address $gettok($1-,4,$asc("))
  }
  elseif (%action == entered) {
    aline @joined $gettok($gettok($1-,2,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,2,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) TEAM: None $+ ) Entered the game
  }
  elseif (%action == joined) {
    aline @joined $gettok($gettok($1-,2,$asc(")),1,$asc(<)) (USERID: $gettok($gettok($1-,2,$asc(<)),1,$asc(>)) STEAMID: $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) TEAM: $iif($gettok($gettok($1-,4,$asc(<)),1,$asc(>)) == CT,12CT,4T) $+ ) Joined team $iif($gettok($gettok($1-,4,$asc(<)),1,$asc(>)) == CT,12CT,4T)
    hadd -m steamid $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) $gettok($gettok($1-,2,$asc(")),1,$asc(<)) $gettok($gettok($1-,2,$asc(<)),1,$asc(>))
    hadd -m nick $gettok($gettok($1-,2,$asc(")),1,$asc(<)) $gettok($gettok($1-,3,$asc(<)),1,$asc(>)) $gettok($gettok($1-,2,$asc(<)),1,$asc(>))

  }
  elseif ($gettok($1-,6,32) == World) {
    $iif($gettok($1-,2,34) == Round_Start,aline @misc New Round started!,$iif($gettok($1-,2,34) == Round_End,aline @misc End of New ROUND))
  }
  else {
    aline @misc $1-
  }
}
alias getinfo {
  if (STEAM !isin $1) {
    echo -a $hget(nick,$1)
  }
  else {
    echo -a $hget(steamid,$1)
  }
}