Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <trigger name="gmcpgtrig" type="GMCP" param="201" priority="2" id="40">
- <pattern>group</pattern>
- <value>ogroupdb = @groupdb
- ;;
- groupdb = %gmcp.group
- ;;
- groupman</value>
- </trigger>
- <alias name="groupman" id="50">
- <value>$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")}
- }
- </value>
- </alias>
- <func name="findself" id="47">
- <value>$member = {}
- ;;
- #FORALL $groupdb.members {#IF (%i.name = @Username) {
- $member = %i
- #BREAK
- }
- }
- ;;
- #RETURN $member
- </value>
- <arglist>groupdb</arglist>
- </func>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement