Why this not working ?

Code:

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

dialog swear {
  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", 333, 89 150 25 11, flat
  button "OFF", 334, 61 150 25 11, flat
}

on *:dialog:swear:sclick:*: {
  if ($did == 333) { .enable #swear ON | echo -a $asctime([HH:nn]) * 10swear Ban Protection Is Now 15«4Enable15» }   
  if ($did == 334) { .disable #swear Off | echo -a $asctime([HH:nn]) * 10swear Ban Protection Is Now 15«4Disable15» }
} 

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

On @*:Text:*:#dns: { 
  if (!$hget(swear)) hmake swear 10
  var %i = 1
  while ($gettok($swear,%i,32)) {
    if ($istok($1-,$v1,32)) { 
      if ($nick !isop $chan) {
        hinc swear $nick
        if ($hget(swear,$nick) == 1) /say $nick (Warning) Don't spam or advertise 
        if ($hget(swear,$nick) == 2) { ban -k $chan $nick 2 Don't spam or advertise | hdel swear $nick }
      }
    }
    inc %i
  }
}