Advertisement
Anaristos

Untitled

Jan 20th, 2012
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
XML 1.05 KB | None | 0 0
  1. <trigger name="gmcpgtrig" type="GMCP" param="201" priority="2" id="40">
  2.   <pattern>group</pattern>
  3.   <value>ogroupdb = @groupdb
  4. ;;
  5. groupdb = %gmcp.group
  6. ;;
  7. groupman</value>
  8. </trigger>
  9.  
  10. <alias name="groupman" id="50">
  11.   <value>$self = @findself( @groupdb)
  12. ;;
  13. #IF (!%null( $self)) {
  14.   #SWITCH ($self.info.qs)
  15.           (2) {#WINDOW @gmcpwin {@cup( 32, 15)@cr2%format( "&amp;2d", $self.info.qt)@rc}}
  16.           (0) {#WINDOW @gmcpwin {@cup( 32, 15)@cw%format( "&amp;2d", $self.info.qt)@rc}}
  17.   }
  18. ;;
  19. $mem = @groupdb.members
  20. ;;
  21. ogdb = @ngdb
  22. ;;
  23. ngdb = ""
  24. ;;
  25. #CALL %vartype( ngdb, Record)
  26. ;;
  27. #FORALL $mem {#ADDKEY ngdb {%i.name=%i.info.qs}}
  28. ;;
  29. #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")}
  30. }
  31.  
  32. </value>
  33. </alias>
  34. <func name="findself" id="47">
  35.   <value>$member = {}
  36. ;;
  37. #FORALL $groupdb.members {#IF (%i.name = @Username) {
  38.     $member = %i
  39.     #BREAK
  40.     }
  41.   }
  42. ;;
  43. #RETURN $member
  44. </value>
  45.   <arglist>groupdb</arglist>
  46. </func>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement