api_city.cc

Go to the documentation of this file.

/*
 * This file is part of the Simutrans project under the Artistic License.
 * (see LICENSE.txt)
 */

#include "api.h"

#include "get_next.h"
#include "../api_class.h"
#include "../api_function.h"
#include "../../world/simcity.h"
#include "../../tool/simmenu.h"
#include "../../world/simworld.h"
#include "../../dataobj/scenario.h"

using namespace script_api;


vector_tpl<sint64> const& get_city_stat(stadt_t* city, bool monthly, sint32 INDEX)
{
    static vector_tpl<sint64> v;
    v.clear();
    if (city  &&  0<=INDEX  &&  INDEX<MAX_CITY_HISTORY) {
        uint16 maxi = monthly ? MAX_CITY_HISTORY_MONTHS :MAX_CITY_HISTORY_YEARS;
        for(uint16 i = 0; i < maxi; i++) {
            if (monthly) {
                v.append( city->get_finance_history_month(i, INDEX) );
            }
            else {
                v.append( city->get_finance_history_year(i, INDEX) );
            }
        }
    }
    return v;
}


SQInteger world_get_next_city(HSQUIRRELVM vm)
{
    return generic_get_next(vm, welt->get_cities().get_count());
}

namespace script_api {
    declare_fake_param(city_list_t, "city_list_x");
}

stadt_t* world_get_city_by_index(city_list_t, uint32 index)
{
    return index < welt->get_cities().get_count()  ?  welt->get_cities()[index] : NULL;
}

call_tool_init set_citygrowth(stadt_t *city, bool allow)
{
    cbuffer_t buf;
    buf.printf("g%hi,%hi,%hi", city->get_pos().x, city->get_pos().y, (short)allow );
    return call_tool_init(TOOL_CHANGE_CITY | SIMPLE_TOOL, (const char*)buf, 0, welt->get_public_player());
}

call_tool_init city_set_name(stadt_t* city, const char* name)
{
    return command_rename(welt->get_public_player(), 't', welt->get_cities().index_of(city), name);
}


call_tool_work city_change_size(stadt_t *city, sint32 delta)
{
    cbuffer_t buf;
    buf.printf("%i", delta);
    grund_t *gr = welt->lookup_kartenboden(city->get_pos());
    if (gr) {
        return call_tool_work(TOOL_CHANGE_CITY_SIZE | GENERAL_TOOL, (const char*)buf, 0, welt->get_public_player(), gr->get_pos());
    }
    else {
        return "Invalid coordinate.";
    }
}


void export_city(HSQUIRRELVM vm)
{
    begin_class(vm, "city_list_x", 0);
    register_function(vm, world_get_next_city,     "_nexti",  2, "x o|i");
    register_method(vm, &world_get_city_by_index, "_get", true);
    end_class(vm);

    begin_class(vm, "city_x", "coord,extend_get,ingame_object");

    // actually defined in simutrans/script/script_base.nut
    // register_function(..., "constructor", ...);

    export_is_valid<stadt_t*>(vm); //register_function("is_valid")
    register_method(vm, &stadt_t::get_name,          "get_name");
    register_method(vm, &city_set_name, "set_name", true);
    register_method_fv(vm, &get_city_stat, "get_citizens",              freevariable<bool,sint32>(true, HIST_CITIZENS), true);
    register_method_fv(vm, &get_city_stat, "get_growth",                freevariable<bool,sint32>(true, HIST_GROWTH), true );
    register_method_fv(vm, &get_city_stat, "get_buildings",             freevariable<bool,sint32>(true, HIST_BUILDING), true );
    register_method_fv(vm, &get_city_stat, "get_citycars",              freevariable<bool,sint32>(true, HIST_CITYCARS), true );
    register_method_fv(vm, &get_city_stat, "get_transported_pax",       freevariable<bool,sint32>(true, HIST_PAS_TRANSPORTED), true );
    register_method_fv(vm, &get_city_stat, "get_generated_pax",         freevariable<bool,sint32>(true, HIST_PAS_GENERATED), true );
    register_method_fv(vm, &get_city_stat, "get_transported_mail",      freevariable<bool,sint32>(true, HIST_MAIL_TRANSPORTED), true );
    register_method_fv(vm, &get_city_stat, "get_generated_mail",        freevariable<bool,sint32>(true, HIST_MAIL_GENERATED), true );
    register_method_fv(vm, &get_city_stat, "get_year_citizens",         freevariable<bool,sint32>(false, HIST_CITIZENS), true );
    register_method_fv(vm, &get_city_stat, "get_year_growth",           freevariable<bool,sint32>(false, HIST_GROWTH), true );
    register_method_fv(vm, &get_city_stat, "get_year_buildings",        freevariable<bool,sint32>(false, HIST_BUILDING), true );
    register_method_fv(vm, &get_city_stat, "get_year_citycars",         freevariable<bool,sint32>(false, HIST_CITYCARS), true );
    register_method_fv(vm, &get_city_stat, "get_year_transported_pax",  freevariable<bool,sint32>(false, HIST_PAS_TRANSPORTED), true );
    register_method_fv(vm, &get_city_stat, "get_year_generated_pax",    freevariable<bool,sint32>(false, HIST_PAS_GENERATED), true );
    register_method_fv(vm, &get_city_stat, "get_year_transported_mail", freevariable<bool,sint32>(false, HIST_MAIL_TRANSPORTED), true );
    register_method_fv(vm, &get_city_stat, "get_year_generated_mail",   freevariable<bool,sint32>(false, HIST_MAIL_GENERATED), true );

    register_method(vm, &stadt_t::get_citygrowth,  "get_citygrowth_enabled");

    register_method(vm, &stadt_t::get_pos,         "get_pos");

    register_method(vm, &stadt_t::get_linksoben,   "get_pos_nw");

    register_method(vm, &stadt_t::get_rechtsunten, "get_pos_se");

    register_method(vm, city_change_size, "change_size", true);

    register_method(vm, &set_citygrowth, "set_citygrowth_enabled", true);

    end_class(vm);
}