It wont set ban ??

Code:
 
On me:*:Disconnect: sw save
On *:Exit: sw save
on *:start:{
  if (!$isdir($mircdirsys)) mkdir $qt($mircdirsys)
  if !$hget(sw)  { .hmake sw 10 }
  if $exists($mircdirsys\sw.op) { .hload -i sw $mircdirsys\sw.op }
}

dialog sw {
  title "Bad swear Protection"
  size -1 -1 148 167
  option dbu
  combo 1, 9 15 125 125, sort, size, vsbar
  button "Add", 2, 5 150 25 11, flat
  button "Delete", 3, 33 150 25 11, flat
  box "Enter Bad swear Words.", 5, 5 5 135 140
  button "Ok", 7, 117 150 25 11, flat ok
  button "ON", 8, 89 150 25 11, flat
  button "OFF", 9, 61 150 25 11, flat
}

on 1:dialog:sw:sclick:8: {
{ .set %sw $+ $active $true | echo -ta 10Swear Protection Is Now 15«4Enable15» } 
}
on 1:dialog:sw:sclick:9: {  
  { .set %sw $+ $active $false | echo -ta 10Swear Protection Is Now 15«4Disable15» } 
}

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

On @*:Text:*:#: {
 if ($nick isop #) return 
  if (!$hget(sw)) hmake sw 10
  var %x $strip($1-) , %i $numtok(sw.op,46)
  while (%i) {
    if ($istok(%x,$gettok(sw.op,%i,46),32)) {
      raw -q mode # +b $wildsite
      return
    }
    dec %i
  }
}
#SW ON