/ScriptServ

;;b00tiger :o made by b00hp
;;Need Help? readme.txt
;;Also type /btigerhelp for help! 
;;Contact me on gamesurge at #script :)
on *:load:{
  echo -a Thank you for loading b00tiger. Dumb name I know.
  echo -a Type /btigerhelp for help!
  set %btiger.amsg Disabled
}
alias btigerhelp {
  echo -a ----------
  echo -a Type /getinfo IP:PORT
  echo -a To join a server simply double click the IP in the @btiger window. Its that simple.
  echo -a ----------
}
alias getinfo {
  if (($window(@btiger) == $null) && (*:* iswm $1-)) {
    set %btiger.address $1-
    window @btiger
    window -a @btiger
    sockopen btiger www.gametiger.net 80
  }
  elseif (*:* iswm $1-) {
    set %btiger.address $1-
    window -a @btiger
    sockopen btiger www.gametiger.net 80
  }
  else {
    window -a @btiger
    aline @btiger -------You need to include a ip AND port.-------
  }
}
;;sockets
on *:sockopen:btiger:{
  sockwrite -n btiger GET /search?address= $+ %btiger.address HTTP/1.1
  sockwrite -n btiger Host: www.gametiger.net
  sockwrite -n btiger Connection: close
  sockwrite -n btiger $crlf
}
on *:sockread:btiger:{
  if ($sockerr) {
    halt
  }
  else {
    var %btiger.data
    sockread %btiger.data
    if (Server Details isin %btiger.data) { aline @btiger ----------------------------------- | set % | set %btiger.works 1 }
    if (Server Name isin %btiger.data) { aline @btiger Server Name: $remove($nohtml(%btiger.data),Server Details Server Name, ) }
    if (Status isin %btiger.data) { aline @btiger Status: $remove($nohtml(%btiger.data),status) }
    if (IP:Port isin %btiger.data) { aline @btiger IP:Port: $remove($nohtml(%btiger.data),IP:Port) |Click IP to join| }
    if (Engine isin %btiger.data) { aline @btiger Version: $remove($nohtml(%btiger.data),Engine,Half-Life, ) }
    if (Game</td> isin %btiger.data) { aline @btiger Game: $remove($nohtml(%btiger.data),Game,&nbsp;) }
    if (Type&nbsp;of&nbsp;Server isin %btiger.data) { aline @btiger Server Type: $remove($nohtml(%btiger.data),Type&nbsp;of&nbsp;Server) }
    if (Password isin %btiger.data) { aline @btiger Password Required: $remove($nohtml(%btiger.data),Password&nbsp;required) }
    if (Active/Max isin %btiger.data) { aline @btiger Active/Max: $remove($nohtml(%btiger.data),Active/Max,Players,&nbsp;) }
    if (<tr bgcolor=><td align=right> isin %btiger.data) && (!%i) { aline @btiger --------------Players-------------- }
    if (&nbsp;</td><td>&nbsp; isin %btiger.data) { inc %i | aline @btiger %i $+ ) $gettok($remove($nohtml(%btiger.data),&nbsp;),-3,32) }
  }
}
on *:sockclose:btiger:{
  if (%btiger.works == 1) {
    set %i 0
    set %btiger.works 0
    aline @btiger --------------End--------------
  }
  else {
    aline @btiger -------Could not return information for this server-------
    set %i 0
    set %btiger.works 0
  }
}
on *:HOTLINK:*.*.*.*:*:{
  if ($window(@btiger) != $active) {
    getinfo $1
  }
  elseif (($window(@btiger) == $active) && (!%gtiger.csvar) && (%btiger.amsg == Enabled)) {
    set %gtiger.csvar $sfile(C:\,Find your hl.exe)
    run -p %gtiger.csvar -console +connect $1
    amsg Playing CS in $1
  }
  elseif (($window(@btiger) == $active) && (!%gtiger.csvar) && (%btiger.amsg == Disabled)) {
    set %gtiger.csvar $sfile(C:\,Find your hl.exe)
    run -p %gtiger.csvar -console +connect $1
  }
  elseif (($window(@btiger) == $active) && (%gtiger.csvar) && (%btiger.amsg == Enabled)) {
    run -p %gtiger.csvar -console +connect $1
    amsg Playing CS in $1
  }
  elseif (($window(@btiger) == $active) && (%gtiger.csvar) && (%btiger.amsg == Disabled)) {
    run -p %gtiger.csvar -console +connect $1
  }
}
alias lastquery {
  if (%btiger.csvar == $null) {
    set %gtiger.csvar $sfile(C:\,Find your hl.exe)
    run -p %gtiger.csvar -console +connect $1
  }
  else {
    run -p %gtiger.csvar -console +connect %btiger.address
  }
}
menu @btiger {
  Join Last Query:lastquery
  Amsg On Join $btigeramsg2 :btigeramsg
}
alias btigeramsg2 {
  return %btiger.amsg
}
alias btigeramsg {
  if (%btiger.amsg == Enabled) {
    set %btiger.amsg Disabled
  }
  else {
    set %btiger.amsg Enabled
  }
}
on ^*:HOTLINK:*.*.*.*:*:{
  var %regtest = ^(\d{1,3}\.){3}\d{1,3}(\:\d{1,5})?$
  if ($regex($1-,m~ %regtest ~xg)) return
  halt
}
alias nohtml { var %tmp, %ignore = $regsub($1-,/(<[^>]+>)/g,$chr(32),%tmp) | return %tmp }