gmcp.group

$self = @findself( @groupdb)
;;
#IF (!%null( $self)) {
  #SWITCH ($self.info.qs)
          (2) {#WINDOW @gmcpwin {@cup( 32, 15)@cr2%format( "&2d", $self.info.qt)@rc}}
          (0) {#WINDOW @gmcpwin {@cup( 32, 15)@cw%format( "&2d", $self.info.qt)@rc}}
  }
;;
$mem = @groupdb.members
;;
ogdb = @ngdb
;;
ngdb = ""
;;
#CALL %vartype( ngdb, Record)
;;
#FORALL $mem {#ADDKEY ngdb {%i.name=%i.info.qs}}
;;
#LOOPDB @ngdb {#IF (%val = 0 AND (!%iskey( @ogdb, %key) OR @ogdb.%key != 0)) {gt ("@W" + %key + "@Y: @GYou have a quest available @Y(@WAutomated Message@Y)@w")}
}
----------FINDSELF function----------
$member = {}
;;
#FORALL $groupdb.members {#IF (%i.name = @Username) {
    $member = %i
    #BREAK
    }
  }
;;
#RETURN $member
-----
groupdb = %gmcp.group