AarchonWiki

This is an old revision of the document!

---

      LStbl area;
      LStbl_create( LS, &area );
      LStbl_kv_int( LS, &area, "Version", CURR_AREA_VERSION);
 
      LSarr clones;
      LSarr_create( LS, &clones);
      LStbl_kv_arr( LS, &area, "Clones", &clones);
      for ( i = 0; i <MAX_AREA_CLONE; i++ )
          if ( pArea->clones[i]> 0 )
              LSarr_add_int( LS, &clones, pArea->clones[i]);
      LSarr_release( LS, &clones);
 
      LStbl_kv_str( LS, &area, "Name", pArea->name );
      LStbl_kv_str( LS, &area, "Builders", fix_string( pArea->builders ) );
      LStbl_kv_str( LS, &area, "Comments", fix_string( pArea->comments ) );
      LStbl_kv_int( LS, &area, "MinVnum", pArea->min_vnum);
      LStbl_kv_int( LS, &area, "MaxVnum", pArea->max_vnum);
      LStbl_kv_str( LS, &area, "Credits", pArea->credits);
    /* Added minlevel, maxlevel, and miniquests for new areas command
       -Astark Dec 2012 */
      LStbl_kv_int( LS, &area, "MinLevel", pArea->minlevel);
      LStbl_kv_int( LS, &area, "MaxLevel", pArea->maxlevel);
      LStbl_kv_int( LS, &area, "Miniquests", pArea->miniquests);
      LStbl_kv_int( LS, &area, "Security", pArea->security);
      LStbl_kv_int( LS, &area, "Time", pArea->reset_time);
 
      LSarr aflags;
      LSarr_create( LS, &aflags);
      LStbl_kv_arr( LS, &area, "Flags", &aflags);
      if (IS_SET(pArea->area_flags,AREA_REMORT))
          LSarr_add_str( LS, &aflags,
                  flag_bit_name(area_flags, AREA_REMORT));
      if (IS_SET(pArea->area_flags,AREA_NOQUEST))
          LSarr_add_str( LS, &aflags,
                  flag_bit_name(area_flags, AREA_NOQUEST));
      if (IS_SET(pArea->area_flags,AREA_NOHIDE))
          LSarr_add_str( LS, &aflags,
                  flag_bit_name(area_flags, AREA_NOHIDE));
      if ( IS_SET(pArea->area_flags, AREA_SOLO) )
          LSarr_add_str( LS, &aflags,
                  flag_bit_name(area_flags, AREA_SOLO));
      LSarr_release( LS, &aflags);
 
      ​LSarr atrigs;
      LSarr_create( LS, &atrigs );
      LStbl_kv_arr( LS, &area, "ATrigs", &atrigs);
 
      if (pArea->aprogs != NULL)
      {
          PROG_LIST *pAprog;
          reverse_aprog_order(pArea);
          for (pAprog = pArea->aprogs; pAprog; pAprog = pAprog->next)
          {
              LStbl atrig;
              LStbl_create( LS, &atrig);
              LSarr_add_tbl( LS, &atrigs, &atrig);
              LStbl_kv_str( LS, &atrig, "Type", name_lookup(pAprog->trig_type, a  prog_flags));
              LStbl_kv_int( LS, &atrig, "Vnum", pAprog->vnum);
              LStbl_kv_str( LS, &atrig, "Phrase", pAprog->trig_phrase);
              LStbl_release( LS, &atrig);
          }
          reverse_aprog_order(pArea);
      }
      LSarr_release( LS, &atrigs);
 
      LStbl_save( LS, &area, "Test1.lua");
      LStbl_release( LS, &area );

#VER 3

#AREADATA
Name Bastion~
Builders Parademia Rynor~
Notes ~
VNUMs 10200 10599
Credits Siva~
Minlevel 1
Maxlevel 100
Miniquests 9
Security 8
Time 15
AProg enter 10200 100~
End

return
{
  Version = 6,
  Clones =
  {
  },
  Name = "Bastion",
  Builders = "Parademia Rynor",
  Comments = "",
  MinVnum = 10200,
  MaxVnum = 10599,
  Credits = "Siva",
  MinLevel = 1,
  MaxLevel = 100,
  Miniquests = 9,
  Security = 8,
  Time = 15,
  Flags =
  {
  },
  ATrigs =
  {
 
    {
      Type = "enter",
      Vnum = 10200,
      Phrase = "100",
    },
  },
}

#VER 3
#CLONE 24451
#CLONE 16700

#AREADATA
Name Lost Library~
Builders Xyzlvador Churel~
Notes ~
VNUMs 101 299
Credits Remort 6, Xzylvador~
Minlevel 0
Maxlevel 0
Miniquests 0
Security 9
Time 15
Remort
End

return
{
  Version = 6,
  Clones =
  {
    24451,
    16700,
  },
  Name = "Lost Library",
  Builders = "Xyzlvador Churel",
  Comments = "",
  MinVnum = 101,
  MaxVnum = 299,
  Credits = "Remort 6, Xzylvador",
  MinLevel = 0,
  MaxLevel = 0,
  Miniquests = 0,
  Security = 9,
  Time = 15,
  Flags =
  {
    "remort",
  },
  ATrigs =
  {
  },
}