Well here the code for it if anyone cares:
Code:
on ^!*:join:#:if ($gettok($readini($mircini,events,default),1,44) != 2) echo $colour(join) $iif(!$gettok($readini($mircini,events,default),1,44),-t $chan ***,-ts *) $iif($gettok($readini($mircini,options,n2),19,44),Joins $iif($gettok($readini($mircini,events,default),1,44),$chan) $+ :) $nick $iif($gettok($readini($mircini,options,n0),2,44),$+($chr(40),$address,$chr(41))) $iif(!$gettok($readini($mircini,options,n2),19,44),has joined $chan) [Users: $nick($chan,0) $+ ] | haltdef
on ^!*:part:#:if ($gettok($readini($mircini,events,default),2,44) != 2) echo $colour(part) $iif(!$gettok($readini($mircini,events,default),2,44),-t $chan ***,-ts *) $iif($gettok($readini($mircini,options,n2),19,44),Parts $iif($gettok($readini($mircini,events,default),2,44),$chan) $+ :) $nick $iif($gettok($readini($mircini,options,n0),2,44),$+($chr(40),$address,$chr(41))) $iif(!$gettok($readini($mircini,options,n2),19,44),has left $chan) $iif($1,$+($chr(40),$1-,,$chr(41))) [Users: $calc($nick($chan,0) - 1) $+ ] | haltdef
on ^*:kick:#:if (($gettok($readini($mircini,events,default),8,44) != 2) && ($knick != $me)) { echo $colour(kick) $iif(!$gettok($readini($mircini,events,default),8,44), -t $chan ***,-ts *) $knick was kicked by $nick $+($chr(40),$1-,,$chr(41)) $iif(!$gettok($readini($mircini,events,default),8,44),[Users: $calc($nick($chan,0) - 1) $+ ]) | haltdef }
on ^*:quit:{
  if ($gettok($readini($mircini,events,default),3,44) != 3) {
    if (($gettok($readini($mircini,events,default),3,44)) || ($gettok($readini($mircini,events,default),3,44) == 2)) { echo $colour(quit) -ts * $iif($gettok($readini($mircini,options,n2),19,44),Quits:) $nick $iif($gettok($readini($mircini,options,n0),2,44),$+($chr(40),$address,$chr(41))) $iif(!$gettok($readini($mircini,options,n2),19,44),has quit IRC) $+($chr(40),$1-,,$chr(41)) | linesep -s }
    if ((!$gettok($readini($mircini,events,default),3,44)) || ($gettok($readini($mircini,events,default),3,44) == 2)) {
      var %x = 1
      while (%x <= $comchan($nick,0)) {
        echo $colour(quit) -t $comchan($nick,%x) *** $iif($gettok($readini($mircini,options,n2),19,44),Quits:) $nick $iif($gettok($readini($mircini,options,n0),2,44),$+($chr(40),$address,$chr(41))) $iif(!$gettok($readini($mircini,options,n2),19,44),has quit IRC) $+($chr(40),$1-,,$chr(41)) [Users: $calc($nick($comchan($nick,%x),0) - 1) $+ ]
        inc %x 1
      }
    }
  }
  haltdef
}
on ^*:rawmode:#:echo $colour(mode) -t $chan *** $nick sets mode: $1- $iif(o isin $1, [Ops: $nick($chan,0,o) $+ ]) $iif(h isin $1, [Halfops: $nick($chan,0,h) $+ ]) $iif(v isin $1, [Voices: $nick($chan,0,v) $+ ]) | haltdef

If only women came with popup menus and online help.