Mine

on *:TEXT:*trig*:#: {
  if ($1 == %trig $+ trig) {
    if ($ulevel >= 4) {
      if ($2 == $null) {
        notice $nick Please use the correct syntax.  %trig $+ trig <newtrig>
      }
      if ($2 != $null) {
        set %trig $2
        notice $nick Trigger now set to: %trig
      }
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*binds*:#: {
  if ($1 == %trig $+ binds) {
    if ($ulevel >= 4) {
      if ($2 == set) { 
        set %binds $3
        notice $nick Binds are now set to: $3
      }
    }
  }
}

on *:TEXT:*bindlist*:#: {
  if ($1 == %trig $+ bindlist) {
    if ($ulevel >= 4) {
      unset %n | unset %b | set %n 1
      while (%n <= $lines(binds.db)) {
        set %b %b %trig $+ $read(binds.db,%n)
        inc %n 2
      }
      if (%b != $null) {
        notice $nick %b
      }
      if (%b == $null) {
        notice $nick There are currently no binded commands.
      }
    }
  }
}

on *:TEXT:*skin*:#: {
  if ($1 == %trig $+ skin) {
    if ($ulevel >= 4) {
      if ($2 == set) { 
        set %skin $3-
        notice $nick Skin successfully set as: $3-
      }
    }
  }
}

on *:TEXT:*adduser*:#: {
  if ($1 == %trig $+ adduser) {
    if ($ulevel >= 4) {
      /auser $3 $address($2,2)
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*deluser*:#: {
  if ($1 == %trig $+ deluser) {
    if ($ulevel >= 4) {
      /ruser $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:text:*:#:{
  if ($hget(binds) == $null) { hmake binds }
  if ($exists(binds.db) == $true) { hload binds binds.db }
  if ($mid($1-,1,$len(%trig)) == %trig) {
    tokenize 32 $mid($1-,$calc($len(%trig) + 1) $+ -)
  }
  else { halt }
  if ($hget(binds,$1) != $null) {
    if (%binds == public) {
      if (%skin != *) {
        msg $chan $replace(%skin,<cmd>,$1,<info>,$hget(binds,$1))
      }
      elseif (%skin == *) {
        msg $chan $hget(binds,$1)
      }
    }
    if (%binds == notice) {
      if (%skin != *) {
        notice $nick $replace(%skin,<cmd>,$1,<info>,$hget(binds,$1))
      }
      elseif (%skin == *) {
        notice $nick $hget(binds,$1)
      }
    }
  }
  if ($ulevel >= 4) {
    if ($1 == bind) {
      if ($3 == $null) { notice $nick Please use the correct syntax.  %trig $+ bind <command> <text> }
      else {
        hadd binds $2 $3-
        notice $nick Command $2 successfully bound to: $3-
        hsave binds binds.db
      }
    }
  }
  if ($ulevel >= 4) {
    if ($1 == unbind) {
      if ($2 == $null) { notice $nick Please use the correct syntax.  %trig $+ unbind <command>
      }
      else {
        if ($hget(binds,$2) == $null) { notice $nick Command doesnt exist. }
        else {
          hdel binds $2
          notice $nick Successfully unbound command: $2
          hsave binds binds.db
        }
      }
    }
  }
}

on *:JOIN:#detoxservers: {
  $bindlist
  notice $nick For information please use: %binds1
}

alias bindlist {
  unset %lines
  unset %binds1
  set %lines 1
  while (%lines <= $lines(binds.db)) {
    set %binds1 %binds1 %trig $+ $read(binds.db,%lines)
    inc %lines 2
  }
}