void
Sector::write(lisp::Writer& writer)
{
writer.write_string("name", name);
writer.write_float("gravity", gravity);
writer.write_string("music", music);
// write spawnpoints
for(SpawnPoints::iterator i = spawnpoints.begin(); i != spawnpoints.end();
++i) {
SpawnPoint* spawn = *i;
writer.start_list("spawn-points");
writer.write_string("name", spawn->name);
writer.write_float("x", spawn->pos.x);
writer.write_float("y", spawn->pos.y);
writer.end_list("spawn-points");
}
// write objects
for(GameObjects::iterator i = gameobjects.begin();
i != gameobjects.end(); ++i) {
Serializable* serializable = dynamic_cast<Serializable*> (*i);
if(serializable)
serializable->write(writer);
}
}
void
DartTrap::write(lisp::Writer& writer)
{
writer.start_list("darttrap");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.write_float("initial-delay", initial_delay);
writer.write_float("fire-delay", fire_delay);
writer.write_int("ammo", ammo);
writer.end_list("darttrap");
}
void
Dispenser::write(lisp::Writer& writer)
{
writer.start_list("dispenser");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.write_float("cycle", cycle);
writer.write_string("badguy", badguy);
writer.end_list("dispenser");
}
void
Flame::write(lisp::Writer& writer)
{
writer.start_list("flame");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.write_float("radius", radius);
writer.write_float("speed", speed);
writer.end_list("flame");
}
void save_squirrel_table(HSQUIRRELVM vm, int table_idx, lisp::Writer& writer)
{
// offset because of sq_pushnull
if(table_idx < 0)
table_idx -= 1;
//iterator table
sq_pushnull(vm);
while(SQ_SUCCEEDED(sq_next(vm, table_idx))) {
if(sq_gettype(vm, -2) != OT_STRING) {
std::cerr << "Table contains non-string key\n";
continue;
}
const char* key;
sq_getstring(vm, -2, &key);
switch(sq_gettype(vm, -1)) {
case OT_INTEGER: {
int val;
sq_getinteger(vm, -1, &val);
writer.write_int(key, val);
break;
}
case OT_FLOAT: {
float val;
sq_getfloat(vm, -1, &val);
writer.write_float(key, val);
break;
}
case OT_BOOL: {
SQBool val;
sq_getbool(vm, -1, &val);
writer.write_bool(key, val);
break;
}
case OT_STRING: {
const char* str;
sq_getstring(vm, -1, &str);
writer.write_string(key, str);
break;
}
case OT_TABLE: {
writer.start_list(key, true);
save_squirrel_table(vm, -1, writer);
writer.end_list(key);
break;
}
case OT_CLOSURE:
break; // ignore
case OT_NATIVECLOSURE:
break;
default:
std::cerr << "Can't serialize key '" << key << "' in table.\n";
break;
}
sq_pop(vm, 2);
}
sq_pop(vm, 1);
}
void
Dart::write(lisp::Writer& writer)
{
writer.start_list("dart");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("dart");
}
void
MoleRock::write(lisp::Writer& writer)
{
writer.start_list("mole_rock");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("mole_rock");
}
void
Background::write(lisp::Writer& writer)
{
writer.start_list("background");
if (image_top.get() != NULL)
writer.write_string("image-top", imagefile_top);
writer.write_string("image", imagefile);
if (image_bottom.get() != NULL)
writer.write_string("image-bottom", imagefile_bottom);
writer.write_float("speed", speed);
writer.write_float("speed-y", speed_y);
writer.write_int("layer", layer);
writer.end_list("background");
}
void
Zeekling::write(lisp::Writer& writer)
{
writer.start_list("zeekling");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("zeekling");
}
void
SpiderMite::write(lisp::Writer& writer)
{
writer.start_list("spidermite");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("spidermite");
}
void
SnowSnail::write(lisp::Writer& writer)
{
writer.start_list("mriceblock");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("snowsnail");
}
void
Yeti::write(lisp::Writer& writer)
{
writer.start_list("yeti");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("yeti");
}
void
MrBomb::write(lisp::Writer& writer)
{
writer.start_list("mrbomb");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("mrbomb");
}
void
MrRocket::write(lisp::Writer& writer)
{
writer.start_list("mrrocket");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("mrrocket");
}
void
Totem::write(lisp::Writer& writer)
{
writer.start_list("totem");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("totem");
}
void
Jumpy::write(lisp::Writer& writer)
{
writer.start_list("jumpy");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("jumpy");
}
void
Fish::write(lisp::Writer& writer)
{
writer.start_list("fish");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("fish");
}
void
BouncingSnowball::write(lisp::Writer& writer)
{
writer.start_list("bouncingsnowball");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.end_list("bouncingsnowball");
}
void
Statistics::write(lisp::Writer& writer)
{
writer.write_int("coins-collected", coins);
writer.write_int("coins-collected-total", total_coins);
writer.write_int("badguys-killed", badguys);
writer.write_int("badguys-killed-total", total_badguys);
writer.write_float("time-needed", time);
writer.write_int("secrets-found", secrets);
writer.write_int("secrets-found-total", total_secrets);
}
void
WillOWisp::write(lisp::Writer& writer)
{
writer.start_list("willowisp");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
writer.write_string("sector", target_sector);
writer.write_string("spawnpoint", target_spawnpoint);
writer.end_list("willowisp");
}
void
SnowBall::write(lisp::Writer& writer)
{
writer.start_list("snowball");
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
if (fluffy) { // don't give us away at every snowball
writer.write_bool("fluffy", true);
}
writer.end_list("snowball");
}
void
WalkingBadguy::write(lisp::Writer& writer)
{
writer.write_float("x", start_position.x);
writer.write_float("y", start_position.y);
}