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 deleted.
  }
}
on *:join:#:{
  if (%greet. [ $+ [ $address($nick,2) ] ]) {
    msg $chan [ $+ $nick $+ ]: %greet. [ $+ [ $address($nick,2) ] ]
  }
}
on *:text:!setevent*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2) {
      set %event. [ $+ [ $chan ] ] $2-
      set %evnick. [ $+ [ $chan ] ] $nick
      set %evtime. [ $+ [ $chan ] ] $ctime
      msg $chan New event: type !event to view it.
    }
    else {
      unset %event. [ $+ [ $chan ] ] 
      unset %evnick. [ $+ [ $chan ] ] 
      unset %evtime. [ $+ [ $chan ] ]
      msg $chan Event cleared
    }
  }
  else notice $nick halfop or op only command.
}
on $*:text:/^[!@](event)/Si:#:{
  var %out = $iif($left($1,1) == @,msg $chan,notice $nick)
  if (%event. [ $+ [ $chan ] ]) {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
      %out Event for $chan $+ - $+ Set by: %evnick. [ $+ [ $chan ] ] $duration($calc($ctime - %evtime. [ $+ [ $chan ] ] )) Ago:
      %out %event. [ $+ [ $chan ] ]
    }
    else %out You cant use this command.
  }
  else %out there is no event set.
}
on *:text:!setwar*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2) {
      set %war. [ $+ [ $chan ] ] $2-
      set %wartime. [ $+ [ $chan ] ] $ctime
      set %warnick. [ $+ [ $chan ] ] $nick
      msg $chan War event set, type !war to see it
    }
    else {
      unset %war. [ $+ [ $chan ] ]
      unset %wartime. [ $+ [ $chan ] ]
      unset %warnick. [ $+ [ $chan ] ]
      msg $chan War event cleared
    }
  }
  else notice $nick halfop and op command only
}
on $*:text:/^[!@](war)/Si:#:{
  var %hg = $iif($left($1,1) == @,msg $chan,notice $nick)
  if (%war. [ $+ [ $chan ] ]) {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
      %hg War event for $chan $+ -Set by %warnick. [ $+ [ $chan ] ] $duration($calc($ctime - %wartime. [ $+ [ $chan ] ] )) ago
      %hg %war. [ $+ [ $chan ] ]
    }
    else %hg you cannot use this command.
  } 
  else %hg there is no war set.
}