Forums General Discussion those damn porn pop-ups when entering channel

menu channel {
  $iif($dialog(spam),$style(3)) Spam: {
    dialog -dm spam spam 
  }
}  

dialog spam { 
  title "Spam"  
  size -1 -1 84 132  
  option dbu  
  box "Spam list",1,2 0 80 115  
  list 2,3 7 78 110, autohs, sort 
  box "",4,2 113 80 18  
  button "Add", 5, 5 119 16 9  
  button "Del", 6, 24 119 16 9  
  button "Close", 7, 59 119 20 9, ok
}

on *:dialog:spam:init:*: {   
  did -b spam 6   
  if ($exists(spamlist.txt)) { play -cs spamlist.txt 0 }
}
on *:dialog:spam:sclick:2: {  
  set %spam.sel $did(2,$did(2).sel)  
  did -e spam 6
}

on *:dialog:spam:sclick:5: {   
  set %spam.add $$?="Enter Word:"   
  write spamlist.txt did -a spam 2 %spam.add   
  write spam.txt %spam.add 
  did -a spam 2 %spam.add 
}

on *:dialog:spam:sclick:6: {  
  write -dw $+ "* $+ %spam.sel $+ *" spamlist.txt   
  write -dw $+ "* $+ %spam.sel $+ *" spam.txt   
  did -d spam 2 $did(spam,2).sel  
  did -b spam 6 
}

on 1:Open:?:*: { 
  if ($read(spam.txt,w, $strip($1-))) {     
    close -m $nick   
    .ignore -pnu60 $nick 3    
    .notice $nick Message $ifmatch Spam is ignored ! Ignoring for 1 minute.    
    .echo -a $nick spammed you with $ifmatch now ignoring for 1 minute.    
    halt
  }
}

dialog spam {
  title "Spam"
  size -1 -1 84 132
  option dbu
  box "Spam list",1,2 0 80 115
  list 2,3 7 78 110, autohs, sort
  box "",4,2 113 80 18
  button "Add", 5, 5 119 16 9
  button "Del", 6, 24 119 16 9,disable
  button "Edit", 7, 43 119 16 9,disable
  button "Close", 8, 62 119 19 9, ok
}
on *:dialog:spam:init:*:{
  if $isfile(spam.txt) { spamfilefix | loadbuf -o spam 2 spam.txt }
}
on *:dialog:spam:sclick:2: {
  if $did(2).sel { did -e spam 6,7 }
}
on *:dialog:spam:sclick:5:{
  var %a = $$input(Enter Word:,eu,Spam)
  if $left(%a,1) $right(%a,1) != * * { %a = $+(*,%a,*) }
  did -a spam 2 %a
  write spam.txt %a
  _spaminit
}
on *:dialog:spam:sclick:6:{
  write -dw $+ $did(2,$did(2).sel) spam.txt
  did -d spam 2 $did(spam,2).sel
  did -b spam 6,7
  savebuf -o spam 2 spam.txt
  _spaminit
}
on *:dialog:spam:sclick:7:{
  var %a = $$input(Enter word or string to block:,eu,Spam,$did(2,$did(2).sel))
  did -d spam 2 $did(spam,2).sel
  if $left(%a,1) $right(%a,1) != * * { %a = $+(*,%a,*) }
  did -a spam 2 %a
  did -b spam 6,7
  savebuf -o spam 2 spam.txt
  _spaminit
}
on *^:open:?:{
  if !$hget(spam) { _spaminit }
  if $hfind(spam,$strip($1-),1,W).data { .ignore -pnu60 $wildsite | halt }
}
on *^:text:*:?:
  if !$hget(spam) { _spaminit }
  if $hfind(spam,$strip($1-),1,W).data { .ignore -pnu60 $wildsite | close -m $nick | haltdef }
}
alias -l _spaminit {
  if $hget(spam) { hdel -w spam * }
  else hmake spam 5
  if $isfile(spam.txt) { hload -n spam spam.txt }
}
alias -l _spamfix  {
  tokenize 32 $1
  if $left($2,1) $right($2-,1) != * * {
    write -l $+ $1 spam.txt $+(*,$2-,*)
    ; If it has one * but not the other an extra one won't hurt anything
  }
}
menu channel,nicklist,query,status {
  $iif($dialog(spam),$style(3)) Spam:dialog -mo spam spam
}
alias spamfilefix {
  filter -fnk spam.txt _spamfix
}