Mine

on *:text:!setgreet*:#:{
  if ($2) {
    set %greet. [ + [ $address($nick,2) ] ] $2-
    notice $nick Your greet has been set.
  }
  else {
    unset %greet. [ $+ [ $address($nick,2) ] ]
    notice $nick Your greet has been unset.
  }
}
on *:text:!greet*:#:{
  if ($2 == on) {
    if (%nogreet. [ $+ [ $chan ] ]) {
      unset %nogreet. [ $+ [ $chan ] ]
      msg $chan Greet enabled for $chan $+ .
    }
  }
  elseif ($2 == off) {
    set %nogreet. [ $+ [ $chan ] ] yo
    msg $chan Greet disabled for $chan $+ .
  }
}
on *:join:#:{
  if (!%nogreet. [ $+ [ $chan ] ]) {
    if (%greet. [ $+ [ $address($nick,2) ] ]) {
      msg $chan [ $+ $nick $+ ] %greet. [ $+ [ $chan ] ]
    }
  }
}
on *:text:!setevent*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2) {
      set %event. [ $+ [ $chan ] ] $2-
      msg $chan Event set for $chan $+ .
    }
    else {
      unset %event. [ $+ [ $chan ] ]
      msg $chan Event unset for $chan $+ .
    }
  }
  else notice $nick you need to be halfop or op to use this.
}
on $*:text:/^[!@](event)/Si:#:{
  var %way = $iif($left($1,1) == @,msg $chan,notice $nick)
  if (%event. [ $+ [ $chan ] ]) {
    %way Event for $chan $+ : %event. [ $+ [ $chan ] ]
  }
  else %way There is no event set for $chan $+ .
}
on *:text:!setreq*:#:{
  if ($nick isop $chan) || ($nick isop $chan) {
    if ($2) {
      set %req. [ $+ [ $chan ] ] $2-
      msg $chan reqs set for $chan $+ .
    }
    else {
      unset %req. [ $+ [ $chan ] ]
      msg $chan req unset for $chan $+ .
    }
  }
  else notice $nick you need halfop or higher.
}
on $*:text:/^[!@](req)/Si:#:{
  var %way = $iif($left($1,1) == @,msg $chan,msg $nick)
  if (%req. [ $+ [ $chan ] ]) {
    %way Req for $chan $+ : %req. [ $+ [ $chan ] ]
  }
  else %way There is no req set
}
on *:text:!sell*:#:{
  if (!%sell. [ $+ [ $nick ] ]) {
    if ($2) {
       set %sell. [ $+ [ $nick ] ] $2-
      .timer. [ $+ [ $nick ] ] 0 60 msg $chan $nick is selling $2- $+ .
    }
    else notice $nick what are you selling? Air? :S
  }
}
on *:text:!stopsell*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (%sell. [ $+ [ $2- ] ]) {
      .timer. [ $+ [ $2- ] ] off
      msg $chan Sell haled by $nick $+ .
    }
    else notice $nick $2- is not selling anything.
  }
  else notice $nick halfop/op only command.
}
on *:text:!buy*:#:{
  if (%sell. [ $+ [ $2- ] ]) {
    notice $nick Attempting to reach $2-
    notice $2- $nick wants to buy %sell. [ $+ [ $2- ] ] $+ .
    .timer. [ $+ [ $2- ] ] off
  }
  else notice $nick $2- is not selling anything.
}