#CLASS {RoomClass}


#ALIAS ParseRoomContents {;****************************************;;Alias: ;;****************************************;#LOOPDB @ExtraMessages { #VAR tmpc %replace( @tmpc, %key, %val)};#VAR RoomContentsFullNames %replace( @tmpc, ",", "|");#VAR NumRoomItems %numitems( @RoomContentsFullNames, ",");#VAR RoomContents {};#VAR RoomContentsParsed {};#FORALL @RoomContentsFullNames {#VAR tmpc {%i};;get the noun of each item and add to list;#VAR tmpc %word( @tmpc, %numwords( @tmpc));#VAR RoomContents %additem( @tmpc, @RoomContents)};;build a recordset containing a how many of each item are in the room.;#VAR RoomContentsCounted %countlist( @RoomContents);#VAR StatusLine {};#LOOPDB @RoomContentsCounted {;loop through recordset and build a line for each item. ex: 14 goblin;#VAR tmpc {%val %key};#ADDITEM StatusLine @tmpc};#VAR StatusLine %sort( @StatusLine);#STW + %ansi( blue, bold)Items;#STW + %ansi( green, bold)------------------------;;Print everything it found to status window.;#FORALL @StatusLine {#STW + %ansi( red, bold)%i}}


#ALIAS ParseRoomOccupants {#VAR RoomOccupants {};#VAR tmpo {%1};;clean up the list of names and turn it into a string list;#VAR tmpo %replace( @tmpo, "and", "|");#VAR tmpo %replace( @tmpo, ",", "|");#VAR tmpo %replace( @tmpo, "|| ", "|");#FORALL @tmpo {;if they're sitting, kneeling, etc then the name precedes the word "who" otherwise it's the last word.;#VAR tmps %ismember( "who", %replace( %i, " ", "|"));#IF (@tmps>0) {#ADDITEM RoomOccupants %trim( %word( %i, @tmps-2))} {#ADDITEM RoomOccupants %trim( %word( %i, %numwords( %i)))}};#VAR RoomOccupants %sort( @RoomOccupants);#STW %ansi( blue, bold)Occupants;#STW + %ansi( green, bold)------------------------;;loop through list of names and print to status window;#LOOP 1,%numitems( @RoomOccupants) {#STW + %ansi( red, bold)%item( @RoomOccupants, %i)};#STW + %cr}


#VAR RoomContentsFullNames {}


#VAR tmp {} {}


#VAR RoomContentsCounted {}


#VAR NumRoomItems {}


#VAR StatusLine {}


#VAR ExtraMessages {that appears stunned which appears dead who is sitting who is kneeling who is prone , and, and ,with some stuff on it with a few fleas on it }


#VAR RoomContentsParsed {}


#VAR pt {1} {1}


#TRIGGER {Also here: (*).} {;Trigger: Fires on portion of room description that lists players.;;%1: Comma seperated list of player names.;ParseRoomOccupants {%1}}


#TRIGGER {You also see (*).} {;****************************************;;Trigger: Fires on portion of room description that lists the room's contents;;%1: Comma seperated list of item names;;****************************************;#VAR tmpc {%1};;clear the status window;#STW "";ParseRoomContents}


#TRIGGER {Also in the room: (*).} {;****************************************;;Trigger: Fires on portion of room description that lists players.;;%1: Comma seperated list of player names.;;****************************************;ParseRoomOccupants {%1}}


#TRIGGER {Q} {;Trigger: Fires on gsl Q tag. ;; %2: Time in future that roundtime will expire.;#VAR RoundTimeExpires %2} "" {gsl|case}


#CLASS 0