on *:TEXT:*!setevent *:#: { if ($nick isop $chan) || if ($nick ishop $chan) || if ($nick == oliver) set %personal.greet. $+ $nick on writeini greet.txt $address($nick,2) GREET $2- notice $nick $nick ,Event Has Been Set To: $2- $+ . } on *:TEXT:*!delevent*:#: { if ($nick isop $chan) || if ($nick ishop $chan) || if ($nick == oliver) set %personal.greet. $+ $nick remini greet.txt $address($nick,2) notice $nick $nick , Event has been deleted! } on *:TEXT:*!events:#: { if (%personal.greet. [ $+ [ $nick ] ] == on) { if ($readini(greet.txt,$address($nick,2),GREET)) { /MSG $Chan $+ The next event is: $readini(greet.txt,$address($nick,2),GREET) } } { if ($readini(greet.txt,$address($nick,2),GREET == $null)) { notice $nick there is currently no event } if (%personal.greet. [ $+ [ $nick ] ] == off) { notice $nick Event is off is Set off To Turn On Type [ !event on ] } else { halt } } } on *:TEXT:*!event off*:#: { if ($nick isop $chan) || if ($nick ishop $chan) || if ($nick == oliver) set %personal.greet. $+ $nick off notice $nick [ $nick , Events Has Been Set Off] } on *:TEXT:*!event on*:#: { set %personal.greet. $+ $nick on notice $nick [ $nick , Events Has Been Set On] }