Spam Filter

;#############################################
;#
;#  Simple Spam Filter, By Carolyn40
;#    Last Updated: 04/24/2014
;#
;#   Feel free to share this script...
;#     but please leave the credit in tact
;#
;#############################################
#cspamfilter on
on ^*:OPEN:?:*: {
  set %spamfilter.loop 1
  while ( %spamfilter.loop <= 30 ) {
    if ( %st. [ $+ [ %spamfilter.loop ] ] isin $1- ) { haltdef }
    inc %spamfilter.loop
  }
}
on ^*:TEXT:*:*: {
  set %spamfilter.loop 1
  while ( %spamfilter.loop <= 30 ) {
    if ( %st. [ $+ [ %spamfilter.loop ] ] isin $1- ) { haltdef }
    inc %spamfilter.loop
  }
}
on ^*:action:*:*: {
  set %spamfilter.loop 1
  while ( %spamfilter.loop <= 30 ) {
    if ( %st. [ $+ [ %spamfilter.loop ] ] isin $1- ) { haltdef }
    inc %spamfilter.loop
  }
}
on ^*:NOTICE:*:*: {
  set %spamfilter.loop 1
  while ( %spamfilter.loop <= 30 ) {
    if ( %st. [ $+ [ %spamfilter.loop ] ] isin $1- ) { haltdef }
    inc %spamfilter.loop
  }
}
#cspamfilter end
alias sss {
  dialog -m SpamFilterDialog SpamFilterDialog
}
alias spamfilteron {
  enable #spamfilter
}
alias spamfilteroff {
  disable #spamfilter
}
alias cspamfilter.on {
  if (%cspamf.on = true) {
    return ON
  }
  else {
    return on
  }
}
alias cspamfilter.off {
  if (%cspamf.off = true) {
    return OFF
  }
  else {
    return off
  }
}
menu menubar {
  C-Spam Filter
  .$cspamfilter.on:/enable #cspamfilter | /set %cspamf.on true | /set %cspamf.off false
  .$cspamfilter.off:/disable #cspamfilter | /set %cspamf.off true | /set %cspamf.on false
  .-
  .Configure:/sss
}

dialog SpamFilterDialog {
  title "Spam Filter"
  size -1 -1 170 188
  option dbu
  edit        %st.1,  1,  5 5   50 10
  edit        %st.2,  2,  5 17  50 10
  edit        %st.3,  3,  5 29  50 10
  edit        %st.4,  4,  5 41  50 10
  edit        %st.5,  5,  5 53  50 10
  edit        %st.6,  6,  5 65  50 10
  edit        %st.7,  7,  5 77  50 10
  edit        %st.8,  8,  5 89  50 10
  edit        %st.9,  9,  5 101 50 10
  edit        %st.10, 10, 5 113 50 10
  edit        %st.11, 11, 5 125 50 10
  edit        %st.12, 12, 5 137 50 10
  edit        %st.13, 13, 5 149 50 10
  edit        %st.14, 14, 5 161 50 10
  edit        %st.15, 15, 5 173 50 10

  edit        %st.16, 16, 58 5   50 10
  edit        %st.17, 17, 58 17  50 10
  edit        %st.18, 18, 58 29  50 10
  edit        %st.19, 19, 58 41  50 10
  edit        %st.20, 20, 58 53 50 10
  edit        %st.21, 21, 58 65 50 10
  edit        %st.22, 22, 58 77 50 10
  edit        %st.23, 23, 58 89 50 10
  edit        %st.24, 24, 58 101 50 10
  edit        %st.25, 25, 58 113 50 10
  edit        %st.26, 26, 58 125 50 10
  edit        %st.27, 27, 58 137 50 10
  edit        %st.28, 28, 58 149 50 10
  edit        %st.29, 29, 58 161 50 10
  edit        %st.30, 30, 58 173 50 10
  button      "Cancel",        62, 115 29   50 22, cancel
  button      "Apply",         63, 115 4    50 22, ok
  text        "Written by:",   66, 130 165  50 10, disable
  text        "    Carolyn40", 67, 130 175  50 10, disable
}
On *:DIALOG:SpamFilterDialog:sclick:63:{
  set %sfd.loop 1
  while (%sfd.loop <= 30) {
    if ($did(SpamFilterDialog,%sfd.loop).text == $null) {
      unset %st. $+ %sfd.loop
    }
    else {
      set %st. $+ %sfd.loop $did(SpamFilterDialog,%sfd.loop)
    }
    inc %sfd.loop
  }
}