Miscellany

;SetWorld
on $*:TEXT:/^[@.!](SetWorld|SetPcW)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    if ($2 isnum 1-132) {
      .set %World. [ $+ [ $Chan ] ] $2
      .set %PcWorldNick. [ $+ [ $Chan ] ] $nick
      .set %PcCTime. [ $+ [ $Chan ] ] $ctime
      .notice $nick World Set As4 $2
      .msg $chan 1[12World Updated!1] 2!World To View New World (You Must Be At Least Voice!!)
    }
    else {
      .notice $Nick Please Enter A Number Between 1-132
    }
  }
}

;UnSetWorld
on $*:TEXT:/^[@.!](UnsetWorld|UnsetPcW|DelWorld|DelPcW)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    .unset %World. [ $+ [ $Chan ] ]
    .msg $chan 1[12World Unset!1] 2To Reset, Type !SetWorld WORLD (You Must Be Op/HalfOp)
    .notice $nick World Unset
  }
  else {
    .notice $Nick You Do Not Have The Power To Use This Command
  }
}

;SetEvent
on $*:TEXT:/^[@.!](SetEvent|NewEvent|SetNewEvent)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    .set %Event. [ $+ [ $Chan ] ] $2-
    .msg $chan 1[12Event Updated!1] 2To UnSet, Type !UnSetEvent [Sets To Default] (Pest Control)  (You Must Be Op/HalfOp)
    .notice $nick Event Set As12 $2- 
  }
  else .notice $nick You Do Not Have The Power To Use This Command
}

;UnSetEvent
on $*:TEXT:/^[@.!](UnsetEvent|DelEvent)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    .unset %Event. [ $+ [ $Chan ] ]    
    .notice $nick Event Unset
  }
  else .notice $nick You Do Not Have The Power To Use This Command
}

;View World + Event
on $*:TEXT:/^[@.!](World|Event|PcW|ClanWorld)/Si:#: {
  if (%eventon [ $+ [ $Chan ] ] == 1) {
    if ($nick !isreg $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
      if (!%World. [ $+ [ $Chan ] ]) { .notice $nick No Event Or World Is Currently Set | HALT }
      if (!%Event. [ $+ [ $Chan ] ]) { .notice $nick 2Current12 Pest Control 2World Set As12 %world. [ $+ [ $Chan ] ] $+ 2. Last Updated By12 %PcWorldNick. [ $+ [ $Chan ] ] , $duration($calc($ctime - %PcCTime. [ $+ [ $Chan ] ] $ctime)) 2Ago. This Command Has Been Used12 %PcCount 2Times. | HALT } {
        inc %PcCount
        .notice $nick 2Current12 %event. [ $+ [ $Chan ] ] 2World Set As12 %world. [ $+ [ $Chan ] ] $+ 2. Last Updated By12 %PcWorldNick. [ $+ [ $Chan ] ] , $duration($calc($ctime - %PcCTime. [ $+ [ $Chan ] ] $ctime)) 2Ago. This Command Has Been Used12 %PcCount 2Times. 
      }
      else {
        .notice $Nick You Do Not Have The Power To Use This Command
      }
    }
    else { notice $nick This Command Is Currently Disable For This Channel, Ask A Op/HalfOp For Help }
  }
}

;Enable World
on $*:TEXT:/^[@.!](EnableWorld|EnableEvent)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    if (%eventon [ $+ [ $Chan ] ] == 1) { 
      notice $nick Pest Control Command Already Enabled On $chan $+ ! } { HALT } {
      else {
        .set %eventon [ $+ [ $Chan ] ] 1
        .msg $chan 1[12World Enabled!1] 2To Disable The !World Command, Type !DisableWorld (You Must Be HalfOp/Op!)
      }
      else { .notice $nick You Do Not Have The Power To Use This Command
      }
    }
  }
}

;Disable World
on $*:TEXT:/^[@.!](DisableWorld|DisableEvent)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($read(`Staff.txt,w,$+(*,$address($nick,2),*))) {
    if (%eventon [ $+ [ $Chan ] ] == 0) {
    notice $nick Pest Control Command Already Disabled On $chan $+ ! { HALT } }
    else {
      .set %eventon [ $+ [ $Chan ] ] 0
      .unset %World. [ $+ [ $Chan ] ]
      .notice $nick The World/Event Viewer Command Has Now Been Disabled
      .msg $chan 1[12World Disabled!1] 2To Enable The !World Command, Type !EnableWorld (You Must Be HalfOp/Op!)
    }
    else { .notice $nick You Do Not Have The Power To Use This Command
    }
  }
}