ROOM
    ID 2096
    NAME "Prop Room Template"
    PICT "clouds.gif"
    DOOR
        ID 12
        NAME "Next"
        DONTMOVEHERE
        OUTLINE  384,339  468,338  467,365  384,365
        LOC 408,361
        SCRIPT
ON ENTER { prar GLOBAL cpr GLOBAL -1 cpr =
{  [
;do not put more than 20 avs in each room
[930070254 930070258 930070261]
[933208519 933332117 933231951 933231910 933231891 933208823 1062682894 1065142248]
[933070066 933070059 933070055 933070573 933070027 933070039 933070548 933070462]
[1006473054 933767906 1020356887 1006473034 852111229 1006479782 1065061190]
[1006941111 1007598808 1007597642 1007598027 1007598844 1007598513 1007598448 1007598181 1007598825]
[1053383697 1053383607 1053383374 1053383365 1053383357 1053383347 1059105534 1059105558]
[1049639972 1049640195 1049640468 1049640559 1049640731 1049639279 1052768956 1062682894 1059105558]
[1025950808 1025950991 1025944772 1025944574 1025944312 1025944237 1025944154 1053109006 1053108996]
;
] } prar DEF }
ON SELECT {
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr ++
{ 0 cpr = } cpr proparray LENGTH == IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
        ENDSCRIPT
    ENDDOOR
    DOOR
        ID 13
        NAME "Back"
        DONTMOVEHERE
        OUTLINE  46,342  123,342  124,367  46,365
        LOC 18,364
        SCRIPT
ON SELECT {
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr --
{ proparray LENGTH 1 - cpr = } cpr -1 <= IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
        ENDSCRIPT
    ENDDOOR
    DOOR
        ID 14
        DONTMOVEHERE
        DEST 9003
        OUTLINE  26,220  101,221  101,244  25,244
        LOC 64,235
        SCRIPT
ON ENTER {
NAKED
"@448,261 say SHOWME to preview all props in this room without clicking -- it ESC key if you'd like to halt the script at any point." LOCALMSG
"@448,261 ...once you have previewed, please use the forward and back pointers to find the prop number of your liking!" LOCALMSG
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
ON LEAVE { NAKED }
ON OUTCHAT {
room GLOBAL room EXEC
offerOutScript GLOBAL offerOutScript EXEC
crp GLOBAL
{  0 crp = 20 ME SETALARM
"Now Shopping " ROOMNAME + LOGMSG
"" CHATSTR =
} CHATSTR "showme" ==  IF
}
ON ALARM { prar GLOBAL crp GLOBAL
prar EXEC proparray =
proparray crp GET SETPROPS
crp ++ crp ITOA "/" proparray LENGTH ITOA + + LOGMSG
{ 203 ME SETALARM } crp proparray LENGTH < IF
}
ON INCHAT {
room GLOBAL room EXEC
offerInScript GLOBAL offerInScript EXEC
sacr GLOBAL sacr EXEC
}
        ENDSCRIPT
    ENDDOOR
    SPOT
        ID 15
        NAME "DUMP"
        DONTMOVEHERE
        SHOWNAME
        OUTLINE  31,259  88,259  87,273  31,273
        LOC 48,265
        SCRIPT
DUMP BUTTON
ON ENTER {
  { 0 ME SETSPOTSTATELOCAL } { 1 ME SETSPOTSTATELOCAL } ISGOD ISWIZARD OR IFELSE
}
ON LEAVE {
  { 1 ME SETSPOTSTATELOCAL } { 1 ME SETSPOTSTATE } 1 NBRROOMUSERS < IFELSE
}
ON SELECT {
  {EXIT} ISGOD ISWIZARD OR NOT IF
  {EXIT} ME GETSPOTSTATE IF
  "" AvProps =  0 i =
  { { AvProps " " & AvProps = } i IF
    AvProps i USERPROP ITOA & AvProps =
    i ++ }
  { i NBRUSERPROPS < } WHILE
  "[" AvProps & "]" & LOGMSG
}
        ENDSCRIPT
    ENDSPOT
    SPOT
        ID 10
        NAME "Reset"
        DONTMOVEHERE
        OUTLINE  218,334  307,334  307,368  218,368
        LOC 265,379
        SCRIPT
ON SELECT { cpr GLOBAL prar GLOBAL
prar EXEC proparray =
0 cpr =
proparray cpr GET SETPROPS
"Avatar 1/" proparray LENGTH ITOA + LOGMSG
}
        ENDSCRIPT
    ENDSPOT
    DOOR
        ID 1
        OUTLINE  14,10  34,10  35,29  14,29
        LOC 142,106
        SCRIPT
ON SELECT { "@10,10 For list of all site commands as well as room help please type '4HELP' messages will appear in log"  LOCALMSG }
ON OUTCHAT { roomcoms GLOBAL roomcoms EXEC roomcoms2 GLOBAL roomcoms2 EXEC lockable GLOBAL lockable EXEC xidav GLOBAL xidav EXEC offerOutScript GLOBAL offerOutScript EXEC subretr GLOBAL subretr EXEC  }
ON INCHAT { dimmer GLOBAL dimmer EXEC nDoIt GLOBAL nDoIt EXEC offerInScript GLOBAL offerInScript EXEC }
ON LEAVE { propclearer GLOBAL propclearer EXEC }
        ENDSCRIPT
    ENDDOOR
    DOOR
        ID 2
        OUTLINE  47,9  73,9  73,28  48,28
        LOC 175,105
        SCRIPT
ON INCHAT { offerInScript GLOBAL offerInScript EXEC }
ON OUTCHAT { offerOutScript GLOBAL offerOutScript EXEC }
        ENDSCRIPT
    ENDDOOR
    DOOR
        ID 3
        OUTLINE  94,14  110,15  108,31  94,31
        LOC 222,110
        SCRIPT
ON OUTCHAT
{
   { srtrn GLOBAL
   srtrn EXEC
   } CHATSTR "sr" == IF
}
        ENDSCRIPT
    ENDDOOR
ENDROOM