Sparkpea Connection

;Stupid basic socketless connection for SPCN 
;Based off of Winz Simple connection snippet. http://www.tg007.net/file-1733
on *:start:{
  if (%nick) && (%login) && (%password) server 167.114.203.109 7778
  if (!%login) {
    if ($input(Sparkpea $crlf $crlf Enter Your Nickname,e,$v_)) set %nick $ifmatch
    else goto err_
    if ($input(Sparkpea $crlf $crlf Enter Your Email Address,e,$v_)) set %login $ifmatch
    else goto err_
    if (%login) && ($input(Sparkpea.net $crlf $crlf Enter Your Password,p,$v_)) set %password $md5($ifmatch)
    else goto err_
    if (%login) && (%password) { server 167.114.203.109 7778 }
    return
    :err_
    echo -s Error - Insufficient Parameters
  }
}
on ^*:LOGON:*:{
  user %nick IRCwx %login d00bie
  loginh %login %password
}
on ^*:text:*:#:{
  ;remember Tewl? He made this regsub code years ago
  var %val, %xfont = $regsub($replace($1-,[br],$chr(160), ,$chr(160)),/\[(/)?style([^\]]+)?\]/gi,$null,%val)
  echo # $+([,$asctime(hh:nn:ss),]) $+(<,$nick,>) $utfdecode(%val,0)
  haltdef
}
menu channel,status {
  $iif($network = sparkpea,Disconnect,Connect):$iif($network = sparkpea,Disconnect,server 167.114.203.109 7778)
}