/*   glotcurr
//Templates
  |1    true  "Obj"  "NoFrame"
  |2    true  "Obj"  "MightyEagle"
  |3    true  "Obj"  "DefendHerBook"
  |4    true  "None"  "NoFrame"
  |5    true  "None"  "GoldFramed"
  |6    true  "Obj"  "WinterSepia"
  |7    true  "Obj"  "FenceFlag"
  |8    true  "Obj"  "DefendHerBook"
//Templates
*/

"glotcurr" text ofphtem
dup exists
{
 read
%
% stack: glotcurr-content
%
 "//Templates" right$ "//Templates" left$
 empty !builder
 false !comma
 "|" right$
 {
  "|" slice exch trim isnull ?
%
% stack: remain-tems tem-body-line
%
  execstr
%
% stack: remain-tems tem-ord has-capt drop-type root-name
%
  quoter ^"[ " &", " exch quoter & &", "
  exch { &"true" } { &"false" } ifelse
  &", " ^
  &" ]"
  comma!
 } loop
 pop2
 "var GloTemps = [
" &_builder &"
  ];
"
 "GloTemps.js" ofphtem write
}
{
%
% no glotcurr available
%
 pop
} ifelse

/*
%
% stack: backer
%
  <
//Backgrounds
  |1     "Blank"
  |2     "Canvas"
  |3     "Cloth"
  |4     "Flame"
  |5     "Metal"
  |6     "Sparks"
  |7     "Stars"
  |8     "Tree"
  |9     "Water"
//Backgrounds
  > not
  {
        "Blank"
  } if
*/

"globcurr" text ofback
dup exists
{
 read
%
% stack: globcurr-content
%
 "//Backgrounds" right$ "//Backgrounds" left$
 empty !builder
 toklist
 "var GloBacks = [
" &_builder &"
  ];
"
 "GloBacks.js" ofback write
}
{
%
% no globcurr available
%
 pop
} ifelse

/*
 3 prezero
 <
//Fonts
 |001 "Bamboo"
 |002 "Bear"
 |003 "Clown"
 |004 "Dolphin"
 |005 "Elf"
//Fonts
 >
*/

"glofcurr" text offont
dup exists
{
 read
%
% stack: glofcurr-content
%
 "//Fonts" right$ "//Fonts" left$
 empty !builder
 toklist
 "var GloFonts = [
" &_builder &"
  ];
"
 "GloFonts.js" offont write
}
{
%
% no glofcurr available
%
 pop
} ifelse