Mine

on $*:TEXT:/^[!@](wl|accept)/Si:#test:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($readini(luckypc.ini,n,wl,$address($2,2))) { 
      $iif($left($1,1) == @,.msg $chan,.notice $nick) $2 is already Whitelisted on $chan $+ ! 
      halt
    }
    else {
      .writeini luckypc.ini wl $address($2,2) wld
      $iif($left($1,1) == @,.msg $chan,.notice $nick) $2 has been Whitelisted on $chan
    }
  }
}
on $*:TEXT:/^[!@](dwl|deny)/Si:#test:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$readini(luckypc.ini,n,wl,$address($2,2))) {
      $iif($left($1,1) == @,.msg $chan,.notice $nick) $2 isnt on whitelist!
      halt
    }
    else {
      .remini luckypc.ini wl $address($2,2)
      $iif($left($1,1) == @,.msg $chan,.notice $nick) $2 has been De-Whitelisted on $chan $+ .
    }
  }
}