;                                     |   This Massmail bot was made by TrU For Fin and Krylon cans green!    |
                                      `..`..`..`..`..`..`..`..`..`..`..`..`..
menu menubar {
  eMeM Bot
  .On: { set %mmbot on 
    echo 2 $me MM Bot is Now on !
  }
  .Off: { set %mmbot off 
    echo 2 $me MM Bot is Now off !
  }
  .-
  .Pref
  ..Channels { set %chans $$?="Enter Channel(s) - ',' to separate - '#' for all [ $current(%chans) ] " }
  ..Number of Mailz { set %mailnum $$?="Enter Number of Mailz [ $current(%mailnum) ] " }
}
on 1:join:%chans:{
  if (%mmbot == off) exit sub
  if ($nick == $me) exit sub
  .notice $nick 93-1 1w14lcme $nick t $chan 
  .notice $nick 93-1 1t14 b n my nxt %mailnum mssmil 
  .notice $nick 93-1 1t14p 1/msg $me !MM your-aol-sn 
}
on 1:text:!MM*:?:{
  if (%mmbot == off) exit sub
  %sn = $remove($1-,!MM,@aol.com,<,>,-,$chr(32))
  if ((TOS isin %sn) || (AOL isin %sn) || (Guide isin %sn) || (CATWatch isin %sn) || (host isin %sn) || (stevecase isin %sn) || (stevec isin %sn)) goto 2
  /msg 14 $nick %sn - h14s bn dded.
  /write c:\NextMM.txt %sn
  .timer 1 1 close -m $nick
  exit sub
  :2 {
    /msg $nick I'm not stupid, Try again !
    .timer 1 1 close -m $nick
    exit sub
  }
  on 1:text:*:?:{
    /msg $nick sup !
  }
}
ctcp 1:*:.ctcpreply $nick Add-On 1 14krlncns3grn14mmr1fn  4mm 5scrpt 1 Tr 