St3list promo topic - Pokegen 2

ON *:SOCKOPEN:pokegenpromo: {
sockwrite -nt $sockname GET /promo.php HTTP/1.1  | sockwrite -nt $sockname Host: pokegen.net | sockwrite $sockname $crlf }

ON *:SOCKREAD:pokegenpromo: { var %pgp | sockread %pgp | tokenize 32 %pgp | if (*The current promo pokemon is* iswm %pgp) { var %p = $gettok($6-,1,60) | if (!%lastpromo) || (%lastpromo != %p) { set %lastpromo %p
      topic #test topic %lastpromo
    }
    sockclose $sockname
  }
}

alias promocheck {
if (!$timer(promocheck).secs) {
echo -at PokeGen Promo Checking Is Now On.
sockopen pokegenpromo pokegen.net 80
.timerpromocheck 0 3600 sockopen pokegenpromo pokegen.net 80
}
elseif ($timer(promocheck).secs) {
echo -at PokeGen Promo Checking Is Now Off.
.timerpromocheck off
}
}

ON *:START: {
promocheck
}