orek10

on *:text:*:%g.chan:{
  unset %hl.platot
  if ($1 == !players) && (!%hl.flood) {
    if (!$2) { msg %g.chan Syntax: !players <club> | return }
    elseif ($gettok(%ip,$2,32)) { set %HLserver $gettok(%ip,$2,32) | hlll | set -u30 %hl.flood 1 }
  }
  elseif ($1 == !server) && (!%hl.flood) { set %HLserver $gettok(%ip,1,32) | hlc | .timer 1 3 { hlll } | set -u30 %hl.flood 1 }
}
alias hlll { 
  set %HLCS.queried $false 
  sockudp -k HLCS.playr $replace(%HLserver,$chr(58),$chr(32)) $str($chr(255),4) $+ USource Engine Query 
} 
on *:udpread:HLCS.playr: { 
  if ($sockerr > 0) return 
  sockread &temp 
  if ($count($bvar(&temp,6,6),$chr(32)) == 3) && (%HLCS.queried != $true) { sockudp -k HLCS.playr $replace(%HLserver,$chr(58),$chr(32)) U $+ $bvar(&temp,6,4).text | set %HLCS.queried $true | halt } 
  breplace &temp 255 0 
  var %client_start = 8, %i = 0, %clients = $bvar(&temp,6) 
  while (%i <= %clients) { 
    var %client = $bvar(&temp,%client_start,$calc($bfind(&temp,%client_start,0) - %client_start)).text 
    var %frag = $bvar(&temp,$calc($bfind(&temp,%client_start,0) + 1),1) 
    var %time32 = $bvar(&temp,$calc($bfind(&temp,%client_start,%frag 0 0 0) + $iif(%frag,4,5)),4) 
    var %client_start = $calc($bfind(&temp,%client_start,%frag 0 0 0) + $iif(%frag,9,10)) 
    if (%client) { var %plrs %plrs $+($chr(2),$chr(31),Name,$chr(31),$chr(2),:) %client }  
    inc %i
  }
  if (%plrs) { msg %g.chan 4» 2Players: 2 %plrs }
}
alias hlc { 
  unset %hl.* 
  %hl.serverloop = 1 
  var %x = 1 
  while ($gettok(%ip,%x,32)) { 
    var %y = $gettok(%ip,%x,32) 
    sockclose HL.* 
    set %HL.IP %y 
    set %HL.ticks $ticks 
    .timer -m 1 0 sockudp -k HL. $+ %y $replace(%y,$chr(58),$chr(32)) $str($chr(255),4) $+ TSource Engine Query 
    inc %x 
  } 
} 
on *:udpread:HL.*:{ 
  set %HL.Ping $calc($ticks - %HL.ticks) 
  sockread &serv 
  breplace &serv 0 254 
  tokenize 254 $sbvar 
  if (You have been banned from this server. !isin $1) { 
    if ($players(1) >= $players(2)) { var %hl.playersh $+(04,$players(1),/,$players(2)) } 
    else { 
      if (!$players(2)) { var %hl.playersh 030/ $+ $players(1)) | goto b } 
      var %hl.playersh $+(03,$iif($players(2) > 33,0/ $+ $players(1),$+($iif($players(1),$v1,0),/,$players(2)))) 
    } 
  } 
  :b 
  .timer 1 %hl.serverloop msg %g.chan 4» 2Host: $iif($css.yn,$remove($1,????I),$2) 2Map: $iif($css.yn,$2,$3) 2Players: %hl.playersh 2Ip: $mid($sockname,4-)  2Ping: $calc($ticks - %HL.ticks) $+ ms 4«
  .timerhl.tot 1 $calc($numtok(%ip,32) + 1) hl.tot 
  set %hl.pinga %hl.pinga $calc($ticks - %HL.ticks) 
  set %hl.platot %hl.platot $strip(%hl.playersh) 
  inc %hl.serverloop 
} 
alias sbvar { return $bvar(&serv,1,$bvar(&serv,0)).text } 
alias players { 
  if ($1 == 1) { return $asc($mid($gettok($sbvar,6,254),1,1)) } 
  elseif ($1 == 2) { return $asc($mid($gettok($sbvar,6,254),2,1)) } 
}  
} 
menu channel,status { 
  Server Ip 
  .Add server:set %ip $$input(Choose a server to add,e,Clubs bot)
  .Set channel:var %x = $$input(Choose a channel,e,Clubs bot) | set %g.chan $iif($left(%x,1) != $chr(35),$chr(35) $+ %x,%x) 
} 
;No my alias 
alias -l unfloat { 
  if ($gettok($1,4,32) >= 100) return 
  var %x 4, %f , %b 
  while (%x > 1) { %f = %f $+ $base($gettok($1,%x,32),10,2,8) | dec %x } 
  var %m 1 $+ $mid(%f,10,23) , %e $calc($base($mid(%f,2,8),2,10) -127) , %x 24 
  while (%x > 0) { dec %x | %b = $calc( %b + 2 ^ $calc(%x + %e) * $mid( %m , $calc(24 - %x) , 1 ) ) } 
  return $calc(%b / 2^23) 
}