Alias test1 {
  sockClose test1
  sockOpen test1 gamingmasters.co.uk 80
}
on *:SockOpen:test1: {
  sockwrite -nt test1 GET /portal/ HTTP/1.0
  sockwrite -nt test1 Host: www.gamingmasters.co.uk
  sockwrite -nt test1 $crlf
}

alias NoHTML return $regsubex($1,/<[^>]+(?:>|$)|^[^<>]+>/g,)



on *:SOCKREAD:test1:{
  var %read
  sockread %read
  write Read.txt %read
}


alias test2 {
  msg $chan According to my resources KillingFloor has a total of $nohtml($remove($read(Read.txt,141),current overall percentage:)) left. The total time left for Killing Floor is: $nohtml($remove($read(Read.txt,145),Time to predicted completion:)) 
}


alias test3 {
  msg $chan Potato's will run out in: $nohtml($remove($read(Read.txt,106),Potatoes run out in:))
}

on *:TEXT:!killingfloor:#:{ 
  test1
  test2
}

on *:TEXT:!potatoes:#:{
  test1
  test3
}