dialog aww {
  title "Bad Away Protection"
  size -1 -1 146 168
  option dbu
  combo 1, 9 20 126 105, sort, size, vsbar
  button "Add", 2, 4 150 25 11, flat
  button "Delete", 3, 32 150 25 11, flat
  box "Enter Bad Away Text To Ban.", 5, 5 5 137 140
  text "This trigger will set ban on bad away msg.", 6, 4 130 138 8, center
  button "Ok", 7, 116 150 25 11, flat ok
  button "ON", 8, 88 150 25 11, flat
  button "OFF", 9, 60 150 25 11, flat
}

on 1:dialog:aww:sclick:8: { set %aww $+ $active 1 | echo -ta * 10Bad Away Protection Is Now 15«4Enable15» }
on 1:dialog:aww:sclick:9: { set %aww $+ $active 0 | echo -ta * 10Bad Away Protection Is Now 15«4Disable15» }

 
on *:dialog:aww:*:*: {
  if ($devent == init) {
    did -b $dname 3
    var %x = 1
    while (%x <= $lines(sys/aww.mrc)) {
      did -a $dname 1 $read(sys/aww.mrc,%x)
      inc %x
    }
  }
  if ($devent == sclick) {
    if ($did == 1) {
      did -e $dname 3
    }
    if ($did == 2) {
      if ($did($dname,1)) {
        if (!$didwm(aww,1,$did($dname,1),0)) {
          write sys/aww.mrc $did($dname,1) 
          did -a $dname 1 $did($dname,1)
        }
      }
    }
    if ($did == 3) { 
      write -dw $did($dname,1).seltext sys/aww.mrc
      did -d $dname 1 $did($dname,1).sel
      did -b $dname 3
    }
  } 
}



raw 301:*:{
  if ($nick !isop #chat) {
    var %a = 1, %b = $numtok($3-,32)
    while %a <= %b {
      if $hget(aww,$gettok($3-,%b,32)) {
        ban -ku600 #chat $2 2 14Offensive Away Msg
        %a = %b
      }
      inc %a
    }
    return $regsubex($1-,/\b( $+ %aww $+ )\b/gi,$str(*,$len(\t)))
  }
  haltdef
}