Mine

menu * { 
  .Say { say } 
} 
alias say { 
  dialog -m say say 
} 
dialog say { 
  title "Say and Action" 
  size -1 -1 168 90 
  option dbu 
  box "Say and Action", 1, 1 1 166 88
  text "Set Channel:", 2, 5 10 60 10 
  edit "", 3, 70 10 60 10 center
  button "CHAN", 4, 140 9 20 10,
  text "Set Owner Of Bot:", 5, 5 20 60 10 
  edit "", 6, 70 20 60 10 center
  button "Owner", 7, 140 19 20 10,
  text "Turn Say / Action On:" 8, 5 30 60 10 
  text "Turn Say / Action Off:" 9, 5 40 60 10 
  button "On", 10, 140 29 20 10,
  button "Off", 11, 140 39 20 10,
  box "", 12, 5 58 129 27
  button "Exit", 13, 138 58 25 10, Cancel
  text "Made By Napa182", 14, 45 65 60 10 
  text "On 7/23/07", 15, 53 73 60 10 
  text "Commands are !say !act", 16, 5 50 60 10 
}
on *:DIALOG:say:sclick:10:{
  set %say on
  echo %saychan 0,2Say and Action Is On.
} 
on *:dialog:say:sclick:11:{ 
  unset %say 
  echo %saychan 0,2Say And Action Is Off. 
}
on *:dialog:say:sclick:7:{ 
  set %botowner $did(6) 
  echo %saychan 0,2Bot Owner Is Now %botowner .
}
on *:dialog:say:sclick:4:{ 
  set %saychan $did(3) 
  echo %saychan 0,2Channel %saychan Is Now Set. 
}
on *:TEXT:!say*:#: {
  if ((%say == on) && ($nick == %botowner)) {
    msg %saychan $2-
  }
  elseif ($nick != %botowner) {
    msg %saychan 0,2Sorry $nick But You Don't Have Access To That Command.
  }
  elseif (%say == $null) {
    echo %saychan 0,2Sorry %botowner But My Say Command Is Off.
    halt
  }
}
on *:TEXT:!act*:#: {
  if ((%say == on) && ($nick == %botowner)) {
    describe %saychan $2-
  }
  elseif ($nick != %botowner) {
    msg %saychan 0,2Sorry $nick But You Don't Have Access To That Command.
  }
  elseif (%say == $null) {
    echo %saychan 0,2Sorry %botowner But My Act Command Is Off.
    halt
  }
}