Forums Feature Suggestions add classes support

class foobar {
 ; var %all.vars.used.in.this.class
 ; in this example %var
 var %var

 alias myfunction {
  return $this->%var
 }

 alias setvar {
  set $this->%var $1-
 }
}

class barfoo extends foobar {
 alias increasevar {
  inc $this->var
 }
}

import mirc.floodkicker;

class NickFloodKicker extends FloodKicker implements OnNick {
   public NickFloodKicker(%channel) {
      ;Set this to monitor on %channel
      super.monitorChannel(%channel)
      ;Set a flood as 5 in 60 seconds
      super.setFloodLimit(5,60) 
   }

   public OnNickChange(%oldnick, %newnick) {
      ;On nick change, increase the flood count
      if (%oldnick ison $this->%channel) {
         ;Increase the number of actions for this user
         super.increaseAction(%oldnick)
         ;Change the name of the counter, so that it is now called %newnick so it can still be monitored
         super.renameFloodCounter(%oldnick,%newnick)
      }
   }
}

class mircEventsClass: myPersonalClass {
  private override void onChannelText(char *chan, char *nick, char *msg) {
    //blah
  }
  private override void onQueryText(char *nick, char *msg) {
    //more blah
  }
}

; access modifier ( -c = constant, -P = public, -p = private )
class TextFormatter {
  ; Private class variables
  var -cp %Logo ~Logo~

  ; Public class methods
  alias -P Echo { echo -a $1 }
  alias -P Logo { return %Logo }
}
alias useClass {
  TextFormatter.Echo $TextFormatter.Logo
}

class classname {
 init {
  private var %x = $1
 }
 public alias test {
  return $calc(%x - $1)
 }
}
alias useclass {
 var @x = $classname(1234), @y = $classname(4321)
 echo -a @x->test(4) - @y->test(1)
 set @f $classname(123)
.timer 1 5 ehco -a @!f->test $eval(|,1) unset @f
}

;Output:
[0] 1230 - 4320
[1] 123

(number enclosed in []s is a timestamp, from the start of /useclass.)