\/\/ K.R. Engineering Prize Server Sample Script for Content Creators (full perm)
\n\/\/ Written by Karsten Rutledge
\n\/\/ March 3rd, 2017<\/p>\n
\/\/ This script is intended to serve both as a framework and as documentation on how to create 3rd-party objects that process and react to game events from K.R. Engineering games.<\/p>\n
\/\/ This script is designed to work with Gaming.SL LIVE enabled games that support the new API Framework.<\/p>\n
\/\/ For additional information about the prize server API, please visit our Support Wiki at http:\/\/wiki.karstenrutledge.com\/<\/p>\n
\/\/ Default runtime state.
\ndefault {
\n\/\/ Incoming messages from other scripts. Specifically from the Prize Server API script which should also be in the contents of the same object that this script is in.
\nlink_message(integer sender, integer num, string message, key data) {
\n\/\/ Only respond to “api event” messages.
\nif (message == “api event”) {
\n\/\/ All API events are in the format of:
\n\/\/ data = game_uuid|game_name|game_model|game_version|game_license|API|api_event|event_specific_information|…|…|…<\/p>\n
\/\/ First turn the blob of data into a usable list variable that we can index.
\nlist api_event = llParseStringKeepNulls((string)data, [“|”], []);<\/p>\n
\/\/ Now break the list up into usable variables.
\n\/\/ These variables are consistent across all API event types. Other variables can be created based on the specific event type.
\nkey game_uuid = (key)llList2String(api_event, 0);
\nstring game_name = llList2String(api_event, 1);
\n\/\/ ^^^^ “Greedy Greedy”, “Simopolis”, etc…
\nstring game_model = llList2String(api_event, 2);
\n\/\/ ^^^^ As of the time of this writing, the only game model is “Standard”, but there may be more in the future.
\nstring game_version = llList2String(api_event, 3);
\n\/\/ ^^^^ We’re using a string type for version because it is in the format of MAJOR.MINOR.MAINT such as 3.2.12 which is not a float type.
\nkey game_license = (key)llList2String(api_event, 4);
\n\/\/ We skip over api_event[5] because that is always just “API”.
\nstring event_type = llList2String(api_event, 6);
\n\/\/ =============================<\/p>\n
\/\/ If\/elseif structure to determine behaviour based on event_type.
\nif (event_type == “LOADED”) {
\n\/\/ Game just loaded a new license.
\n} else if (event_type == “UNLOADED”) {
\n\/\/ Game just unloaded a license (currently unlicensed)
\n} else if (event_type == “SHUTDOWN”) {
\n\/\/ Game was shutdown (rezzer turned off)
\n} else if (event_type == “STATE”) {
\n\/\/ Game state has changed.<\/p>\n
\/\/ Set up event-specific variables.
\nstring game_state = llList2String(api_event, 7);
\n\/\/ ==========================<\/p>\n
if (game_state == “RESET”) {
\n\/\/ Game was reset.
\n} else if (game_state == “STARTED”) {
\n\/\/ A new game has started.
\n} else if (game_state == “ENDED”) {
\n\/\/ A game is over. We will probably be getting a WON API event following this, dealt with below.
\n\/\/ This is not for winning stuff. This is just to say that the game is over and done.
\n}
\n} else if (event_type == “PLAYER JOIN”) {
\n\/\/ A player has joined the game.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger player_index = llList2Integer(api_event, 7);
\n\/\/ ^^^^ player_index is the position they joined the game. If they sat in the first chair, they are “player 1”, if they sat in the second chair, they are “player 2”, etc.
\nkey player_uuid = (key)llList2String(api_event, 8);
\n\/\/ ==========================<\/p>\n
\/\/ Keep track of player data here.
\n} else if (event_type == “PLAYER LEFT”) {
\n\/\/ A player has left the game.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger player_index = llList2Integer(api_event, 7);
\n\/\/ ^^^^ player_index is the position they occupied prior to leaving the game. If they sat in the first chair, they are “player 1”, if they sat in the second chair, they are “player 2”, etc.
\nkey player_uuid = (key)llList2String(api_event, 8);
\n\/\/ ==========================<\/p>\n
\/\/ Clean up player data here.
\n} else if (event_type == “PLAYER SCORE”) {
\n\/\/ A player’s score has changed, for better or worse.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger player_index = llList2Integer(api_event, 7);
\n\/\/ ^^^^ player_index is the position they occupied prior to leaving the game. If they sat in the first chair, they are “player 1”, if they sat in the second chair, they are “player 2”, etc.
\nkey player_uuid = (key)llList2String(api_event, 8);
\ninteger player_score = llList2Integer(api_event, 9);
\n\/\/ ==========================<\/p>\n
\/\/ Score change stuff here.
\n\/\/ In the case of team games, you should receive a separate score change event for each player on the team.
\n} else if (event_type == “ACHIEVEMENT”) {
\n\/\/ A player was awarded an achievement.<\/p>\n
\/\/ Set up event-specific variables.
\nkey player_uuid = (key)llList2String(api_event, 7);
\nstring player_name = llList2String(api_event, 8);
\nstring achievement_name = llList2String(api_event, 9);
\n\/\/ ==========================<\/p>\n
\/\/ Hooray, achievement?
\n} else if (event_type == “TURN”) {
\n\/\/ The turn has changed.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger player_turn = llList2Integer(api_event, 7);
\n\/\/ ==========================<\/p>\n
if (player_turn) {
\n\/\/ It is Player (player_turn)’s turn.
\n\/\/ Do stuff that should be triggered by turn changes here.
\n} else {
\n\/\/ A false player turn (player_turn == 0) means that it is currently NOBODY’S TURN.
\n\/\/ This probably means nobody is sitting at the game currently, or the game is otherwise waiting for something to happen.
\n}
\n} else if (event_type == “ROUND”) {
\n\/\/ The round has advanced.
\n\/\/ Not all games have ’rounds’.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger game_round = llList2Integer(api_event, 7);
\n\/\/ ==========================<\/p>\n
\/\/ Do stuff that should be triggered on round changes.
\n\/\/ This event, if applicable, happens when one round has ended and a new one has started.
\n\/\/ The idea of what is a “round” varies from game to game. For some games it simply means all players have taken a turn and come back
\n\/\/ to the first player again (Greedy Greedy). For other games, it may mean a specific criteria has been reached to terminate the end of a round (Hearts for example, meaning all cards have been played).
\n} else if (event_type == “EVENT”) {
\n\/\/ Amusingly, EVENT is also an event type.
\n\/\/ The EVENT event happens when something happens to a player in the game.
\n\/\/ Super descriptive, right?
\n\/\/ Basically this is a way for the game signal that something good or bad happened to a player, in various degrees of severity.
\n\/\/ What these events are and what happens during them is entirely up to the game in question, but we try to provide you with enough information here
\n\/\/ that you could have generic reactions to “good” or “bad” game events, or process specific events for specific games if you wish.<\/p>\n
\/\/ **************
\n\/\/ For lists of game-specific events that can be sent, please visit our Support Wiki at http:\/\/wiki.karstenrutledge.com\/
\n\/\/ **************<\/p>\n
\/\/ Set up event-specific variables.
\n\/\/ player index|player uuid|type|severity|subtype|subtype_specific_details|…|…|…
\ninteger player_index = llList2Integer(api_event, 7);
\n\/\/ ^^^^ player_index is the position they occupied prior to leaving the game. If they sat in the first chair, they are “player 1”, if they sat in the second chair, they are “player 2”, etc.
\nkey player_uuid = (key)llList2String(api_event, 8);
\nstring game_event_type = llList2String(api_event, 9);
\ninteger game_event_severity = llList2Integer(api_event, 10);
\nstring game_event_subtype = llList2String(api_event, 11);
\n\/\/ Other variables can be set up based on the specific subtype.
\n\/\/ ==========================<\/p>\n
if (game_event_type == “GOOD”) {
\n\/\/ Something good happened to the player.
\n\/\/ game_event_severity goes from 1 (a tiny bit good) to 5 (life changing, miraculous, etc.)<\/p>\n
\/\/ Generic good event stuff.
\n} else if (game_event_type == “BAD”) {
\n\/\/ Something bad happened to the player.
\n\/\/ game_event_severity goes from 1 (a tiny bit bad) to 5 (catastrophic, suicide-inducing, etc…)<\/p>\n
\/\/ Subtype example for Greedy Greedy.
\nif (game_name == “Greedy Greedy” && game_event_subtype == “BUSTED”) {
\n\/\/ It was a bad event, and specifically they busted (rolled nothing of value).<\/p>\n
\/\/ Sub type specific variables.
\ninteger points_lost = llList2Integer(api_event, 12);
\n\/\/ ^^^^ How many points they lost when they busted.
\n\/\/ ==========================<\/p>\n
\/\/ WOMP WOMP.
\n} else {
\n\/\/ Generic bad event stuff
\n}
\n} else if (game_event_type == “NEUTRAL”) {
\n\/\/ Something neutral happened to the player.
\n\/\/ game_event_severity doesn’t have a whole lot of meaning here, I guess. This is for events that aren’t good or bad, but still noteworthy.<\/p>\n
\/\/ Generic neutral event stuff.
\n}<\/p>\n
} else if (event_type == “WON”) {
\n\/\/ One or more players have won the game.<\/p>\n
\/\/ Set up event-specific variables.
\n\/\/ A lot of this information may be redundant if you’ve been keeping track of it up until now. This redundancy is carryover from the game uploading end-of-game data to the G.SL server.
\n\/\/ comma-sep-winners|winners_score|comma-sep-participants|comma-sep-participant-scores|comma-sep-player-counts(final,min,max)|comma-sep-options|duration
\nlist winners = llParseString2List(llList2String(api_event, 7), [“,”], []);
\n\/\/ The UUID(s) of the winner(s). There can be more than one winner in the case of ties or in the case of teams winning.
\ninteger winning_score = llList2Integer(api_event, 8);
\n\/\/ The score that the winner(s) had at the end of the game. Depending on the game, this might be the lowest score, highest score, or a total nonsense score.
\n\/\/ This is a single number, even if there are multiple winners, because all winners would have the same score, or else there wouldn’t be more than one of them.
\nlist all_players = llParseStringKeepNulls(llList2String(api_event, 9), [“,”], []);
\n\/\/ UUID list of all players who were playing the game. This includes anyone who LOST at some point during the game.
\nlist all_scores = llParseStringKeepNulls(llList2String(api_event, 10), [“,”], []);
\n\/\/ List of the final scores of all players playing the game. This is index-matched to the all_players list above.
\n\/\/ index-matched means llList2Integer(all_scores, N) will give you the correct score for llList2Key(all_scores, N) where N is the same for both.
\nlist player_counts = llParseStringKeepNulls(llList2String(api_event, 11), [“,”], []);
\ninteger final_players = llList2Integer(player_counts, 0);
\n\/\/ ^^^^ number of players still at the game when it ended.
\ninteger min_players = llList2Integer(player_counts, 1);
\n\/\/ ^^^^ Lowest concurrent number of players during the game’s entire duration.
\ninteger max_players = llList2Integer(player_counts, 2);
\n\/\/ ^^^^ Highest concurrent number of players during the game’s entire duration.
\nlist game_options = llParseStringKeepNulls(llList2String(api_event, 12), [“,”], []);
\n\/\/ ^^^^ This is a list of options that the game was played under. These are the same options on the Gaming.SL website for this game. Some games have no options, some have a couple, some have a lot.
\ninteger duration = llList2Integer(api_event, 13);
\n\/\/ Duration of the game in seconds.
\n\/\/ ==========================<\/p>\n
\/\/ Do winner stuff here. Money, hookers, booze! Or whatever, we’re not judging.
\n} else if (event_type == “LOST”) {
\n\/\/ A player has lost the game.<\/p>\n
\/\/ Not all games will send LOST messages.
\n\/\/ LOST messages are for elimination based games where a player can be removed from the game, but other players are still playing.
\n\/\/ Example of this would be Simopolis (Monopoly) where one player can go bankrupt, thus losing the game, but a final winner hasn’t been determined yet.<\/p>\n
\/\/ When a WON event is triggered, it is assumed that any remaining players have lost, but no specific LOST events will be called for each loser during a WON event.<\/p>\n
\/\/ Set up event-specific variables.
\ninteger player_index = llList2Integer(api_event, 7);
\n\/\/ ^^^^ player_index is the position they joined the game. If they sat in the first chair, they are “player 1”, if they sat in the second chair, they are “player 2”, etc.
\nkey player_uuid = (key)llList2String(api_event, 8);
\n\/\/ ==========================<\/p>\n
\/\/ A player lost. Whatever, I guess.
\n}
\n}
\n}
\n}<\/p>\n","protected":false},"author":1,"featured_media":0,"menu_order":10,"comment_status":"closed","ping_status":"closed","template":"","format":"standard","article-category":[71],"article-tag":[],"_links":{"self":[{"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article\/2857"}],"collection":[{"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article"}],"about":[{"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/types\/article"}],"author":[{"embeddable":true,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/comments?post=2857"}],"version-history":[{"count":1,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article\/2857\/revisions"}],"predecessor-version":[{"id":2858,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article\/2857\/revisions\/2858"}],"wp:attachment":[{"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/media?parent=2857"}],"wp:term":[{"taxonomy":"article-category","embeddable":true,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article-category?post=2857"},{"taxonomy":"article-tag","embeddable":true,"href":"https:\/\/karstenrutledge.com\/index.php\/wp-json\/wp\/v2\/article-tag?post=2857"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}