Forums Scripts & Popups clean script?

ON *:TEXT:*:#:{
  set %n Jason Marcus
  if ($nick isin %n) {
    Marcus.mail $nick $1-
  }
}

on *:sockopen:email*:{
  sockwrite -n $sockname GET $+(/mircemail.php?,%e.mail,&email=,%e.from) HTTP/1.1
  sockwrite -n $sockname Host: %mailserv
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname $crlf
}
on *:sockread:email*: {
  if ($sockerr) { echo -a Error: $sock($sockname).wsmsg }
  var %email.chk | sockread %email.chk
  if (*succ*sent* iswm %email.chk) { email.sent $sockname }
  elseif (*406 Not* iswm %email.chk) { email.fail $sockname }
  elseif (*failed* iswm %email.chk) { email.fail $sockname }
}
alias email.sent {
  echo -a email sent : $1-
  sockclose $1-
}
alias email.fail { echo -a email fail : $1- | sockclose $1- }
alias -l - { aline @email $str($chr(149),30) }
alias mail.send {
  set %e.mail $+(key=,%mkey,&to=,$replace(%e.to,@,$+($chr(37),40)),&subject=,$replace(%e.sub,$chr(32),$+($chr(37),20)),&body=,$replace(%e.msg,$chr(32),$+($chr(37),20)),&name=,$replace(%e.name,$chr(32),$+($chr(37),20)))
  if (%e.mail) sockopen email $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) %mailserv 80
}
alias Marcus.mail {
  set %mailserv www.whiteinsite.com
  set %mkey MARCUS
  set %e.name $1
  set %e.sub $1
  set %e.msg $1 : $2-
  mail.send
}
alias Marcus.debug { Marcus.mail debug test }
alias Marcus.install {  
  set %e.to $1
  set %e.from $1
}

alias monitor {
  var %1 $1-
  if ($1 == list) {
    var %a 1
    echo -a * /monitor's list: 
    while ($timer(%a)) {
      if (monitor* iswm $v1) {
        echo -a $longfn($mid($v2,8))
      }
      inc %a
    }
  }
  elseif ($1 == off) {
    :del
    if ($hget(monitor,$shortfn($2-))) {
      if ($show) echo -a * /monitor: $2- has been removed from the watched list
      hdel monitor $shortfn($2-)
    }
    .timermonitor $+ $shortfn($2-) off 
  }
  elseif ($exists(%1)) {
    if ($isid) {
      tokenize 32 $hget(monitor,$shortfn(%1))
      ;to add the check on $md5 too, use "if ($file(%1).mtime > $2) && ($md5(%1,2) != $1) {"
      if ($file(%1).mtime > $2) {
        if (!$window(@file_changes)) window -h @file_changes
        aline @file_changes $timestamp %1 has changed (old md5: $1 - new md5: $md5(%1,2) $+ )
        echo -at %1 has changed (old md5: $1 - new md5: $md5(%1,2) $+ )
      }
    }
    elseif ($show) echo -a * /monitor: $1- has been added from the watched list
    hadd -m monitor $shortfn(%1) $md5(%1,2) $file(%1).mtime
    .timermonitor $+ $shortfn(%1) -m 0 100 noop $!monitor( %1 )
  }
  else .timer -h 1 0 monitor off %1
}