next time use the forum to get help.
no real point in the set %searchply $2 part cuz you only have it looking up CrazyBob's Cops And Robbers

on $*:text:/^!cb1$/iS:#: {
  if ($sock(cb1)) sockclose cb1
  sockopen cb1 www.game-monitor.mobi 80
  sockmark cb1 #
}
on *:sockopen:cb1: {
  sockwrite -nt $sockname GET /GameServer/39272051/ HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.game-monitor.mobi,$str($crlf,2))
}
on *:sockread:cb1: {
  var %cb1 | sockread %cb1
  if ($regex(%cb1,/<b>(Players:)<\/b><br\/>(.+)<br\/>/)) { sockmark cb1 $sock(cb1).mark $+($regml(1),$regml(2)) }
  if ($regex(%cb1,/<b>(Map:)<\/b><br\/><a href=".+">(.+)<\/a><br\/>/)) { msg $sock(cb1).mark $+($regml(1),$regml(2)) | sockclose cb1 }
}