on *:TEXT:!SetOp*:*:{
  if ( $nick isop $chan || $nick ishop $chan ) {
    set %Op. [ $+ [ %EventNo ] ] 11,1[OP No. [ %EventNo ] ] [SET BY: [ $nick ] ] [OP: $2 ] 4,1 $+ $3-
    inc %EventNo
    notice $nick OP $2 has been added!
  }
  else {
    notice $nick You are not Simplicity Staff!
  }
}


on *:TEXT:!GetOps*:*:{
  var %count 1
  notice $nick 11,1S0,1implicity11,1O0,1perations 11,1L0,1ist
  while ( %count < %EventNo ) {
    notice $nick %Op. [ $+ [ %count ] ]
    inc %count
  }
}

on *:TEXT:!DelOp*:*:{
  if ( $nick isop #simplicity ) {
    unset %Op. [ $+ [ $2 ] ]
    notice $nick You have removed the OP!

    ; New Section Start
    var %i = $2, %lastEventIndex = $calc(%EventNo - 1)
    while (%i < %lastEventIndex) {
        set %op. [ $+ [ %i ] ] %op. [ $+ [ $calc(%i + 1) ] ]
        inc %i
    }
    unset %op. [ $+ [ %lastEventIndex ] ]
    ; New Section End

    dec %EventNo
  }
  else {
    notice $nick 4,1 You are not a Simplicity Staff Member!
  }
}