X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fscripting%2Fwrapper.cpp;h=6f1f202807265336b7d684a5177f829e6b10e8f4;hb=d963f8dc3d2c4e432d3eeecd15351169e10243da;hp=50734e10874cb99e2ce8852ddb8e5d065bc35b2d;hpb=43c0eee23cceb62937e75c1652bb50572b854c8b;p=supertux.git diff --git a/src/scripting/wrapper.cpp b/src/scripting/wrapper.cpp index 50734e108..6f1f20280 100644 --- a/src/scripting/wrapper.cpp +++ b/src/scripting/wrapper.cpp @@ -8,673 +8,2677 @@ #include #include #include +#include #include -#include "wrapper_util.hpp" +#include "squirrel_error.hpp" #include "wrapper.interface.hpp" -namespace SquirrelWrapper +namespace Scripting +{ +namespace Wrapper { - -using namespace Scripting; static int DisplayEffect_release_hook(SQUserPointer ptr, int ) { - DisplayEffect* _this = reinterpret_cast (ptr); + Scripting::DisplayEffect* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, DisplayEffect* object, bool setup_releasehook) +static int DisplayEffect_fade_out_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "DisplayEffect", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'DisplayEffect'"; - throw SquirrelError(v, msg.str()); + Scripting::DisplayEffect* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'fade_out' called without instance")); + return SQ_ERROR; } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'DisplayEffect'"; - throw SquirrelError(v, msg.str()); + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; } - sq_remove(v, -2); - - if(setup_releasehook) { - sq_setreleasehook(v, -1, DisplayEffect_release_hook); + + try { + _this->fade_out(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'fade_out'")); + return SQ_ERROR; } + } -static int DisplayEffect_fade_out_wrapper(HSQUIRRELVM v) + +static int DisplayEffect_fade_in_wrapper(HSQUIRRELVM vm) { Scripting::DisplayEffect* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'fade_in' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } - _this->fade_out(arg0); + try { + _this->fade_in(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'fade_in'")); + return SQ_ERROR; + } - return 0; } -static int DisplayEffect_fade_in_wrapper(HSQUIRRELVM v) +static int DisplayEffect_set_black_wrapper(HSQUIRRELVM vm) { Scripting::DisplayEffect* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_black' called without instance")); + return SQ_ERROR; + } + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } - _this->fade_in(arg0); + try { + _this->set_black(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_black'")); + return SQ_ERROR; + } - return 0; } -static int DisplayEffect_set_black_wrapper(HSQUIRRELVM v) +static int DisplayEffect_is_black_wrapper(HSQUIRRELVM vm) { Scripting::DisplayEffect* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - SQBool arg0; - sq_getbool(v, 2, &arg0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'is_black' called without instance")); + return SQ_ERROR; + } - _this->set_black(arg0); + try { + bool return_value = _this->is_black(); + + sq_pushbool(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'is_black'")); + return SQ_ERROR; + } + +} + +static int DisplayEffect_sixteen_to_nine_wrapper(HSQUIRRELVM vm) +{ + Scripting::DisplayEffect* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'sixteen_to_nine' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + _this->sixteen_to_nine(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'sixteen_to_nine'")); + return SQ_ERROR; + } - return 0; } -static int DisplayEffect_is_black_wrapper(HSQUIRRELVM v) +static int DisplayEffect_four_to_three_wrapper(HSQUIRRELVM vm) { Scripting::DisplayEffect* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'four_to_three' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + _this->four_to_three(arg0); - bool return_value = _this->is_black(); + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'four_to_three'")); + return SQ_ERROR; + } - sq_pushbool(v, return_value); - return 1; } static int Camera_release_hook(SQUserPointer ptr, int ) { - Camera* _this = reinterpret_cast (ptr); + Scripting::Camera* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, Camera* object, bool setup_releasehook) +static int Camera_shake_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "Camera", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'Camera'"; - throw SquirrelError(v, msg.str()); + Scripting::Camera* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'shake' called without instance")); + return SQ_ERROR; } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'Camera'"; - throw SquirrelError(v, msg.str()); + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; } - sq_remove(v, -2); - - if(setup_releasehook) { - sq_setreleasehook(v, -1, Camera_release_hook); + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; } + float arg2; + if(SQ_FAILED(sq_getfloat(vm, 4, &arg2))) { + sq_throwerror(vm, _SC("Argument 3 not a float")); + return SQ_ERROR; + } + + try { + _this->shake(arg0, arg1, arg2); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'shake'")); + return SQ_ERROR; + } + } -static int Camera_shake_wrapper(HSQUIRRELVM v) + +static int Camera_set_pos_wrapper(HSQUIRRELVM vm) { Scripting::Camera* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_pos' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } float arg1; - sq_getfloat(v, 3, &arg1); - float arg2; - sq_getfloat(v, 4, &arg2); + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } - _this->shake(arg0, arg1, arg2); + try { + _this->set_pos(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_pos'")); + return SQ_ERROR; + } - return 0; } -static int Camera_set_pos_wrapper(HSQUIRRELVM v) +static int Camera_set_mode_wrapper(HSQUIRRELVM vm) { Scripting::Camera* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - float arg0; - sq_getfloat(v, 2, &arg0); - float arg1; - sq_getfloat(v, 3, &arg1); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_mode' called without instance")); + return SQ_ERROR; + } + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } - _this->set_pos(arg0, arg1); + try { + _this->set_mode(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_mode'")); + return SQ_ERROR; + } - return 0; } -static int Camera_set_mode_wrapper(HSQUIRRELVM v) +static int Camera_scroll_to_wrapper(HSQUIRRELVM vm) { Scripting::Camera* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'scroll_to' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } + float arg2; + if(SQ_FAILED(sq_getfloat(vm, 4, &arg2))) { + sq_throwerror(vm, _SC("Argument 3 not a float")); + return SQ_ERROR; + } - _this->set_mode(arg0); + try { + _this->scroll_to(arg0, arg1, arg2); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'scroll_to'")); + return SQ_ERROR; + } - return 0; } static int Level_release_hook(SQUserPointer ptr, int ) { - Level* _this = reinterpret_cast (ptr); + Scripting::Level* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, Level* object, bool setup_releasehook) +static int Level_finish_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "Level", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'Level'"; - throw SquirrelError(v, msg.str()); - } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'Level'"; - throw SquirrelError(v, msg.str()); + Scripting::Level* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'finish' called without instance")); + return SQ_ERROR; } - sq_remove(v, -2); - - if(setup_releasehook) { - sq_setreleasehook(v, -1, Level_release_hook); + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; } -} -static int Level_finish_wrapper(HSQUIRRELVM v) -{ - Scripting::Level* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - _this->finish(); + try { + _this->finish(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'finish'")); + return SQ_ERROR; + } - return 0; } -static int Level_spawn_wrapper(HSQUIRRELVM v) +static int Level_spawn_wrapper(HSQUIRRELVM vm) { Scripting::Level* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'spawn' called without instance")); + return SQ_ERROR; + } const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } const char* arg1; - sq_getstring(v, 3, &arg1); + if(SQ_FAILED(sq_getstring(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a string")); + return SQ_ERROR; + } - _this->spawn(arg0, arg1); + try { + _this->spawn(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'spawn'")); + return SQ_ERROR; + } - return 0; } -static int Level_flip_vertically_wrapper(HSQUIRRELVM v) +static int Level_flip_vertically_wrapper(HSQUIRRELVM vm) { Scripting::Level* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'flip_vertically' called without instance")); + return SQ_ERROR; + } - _this->flip_vertically(); + try { + _this->flip_vertically(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'flip_vertically'")); + return SQ_ERROR; + } - return 0; } static int ScriptedObject_release_hook(SQUserPointer ptr, int ) { - ScriptedObject* _this = reinterpret_cast (ptr); + Scripting::ScriptedObject* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, ScriptedObject* object, bool setup_releasehook) -{ - sq_pushstring(v, "ScriptedObject", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'ScriptedObject'"; - throw SquirrelError(v, msg.str()); - } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'ScriptedObject'"; - throw SquirrelError(v, msg.str()); - } - sq_remove(v, -2); - - if(setup_releasehook) { - sq_setreleasehook(v, -1, ScriptedObject_release_hook); - } -} -static int ScriptedObject_set_animation_wrapper(HSQUIRRELVM v) +static int ScriptedObject_set_action_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_action' called without instance")); + return SQ_ERROR; + } const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } - _this->set_animation(arg0); + try { + _this->set_action(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_action'")); + return SQ_ERROR; + } - return 0; } -static int ScriptedObject_get_animation_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_action_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_action' called without instance")); + return SQ_ERROR; + } + + try { + std::string return_value = _this->get_action(); - std::string return_value = _this->get_animation(); + sq_pushstring(vm, return_value.c_str(), return_value.size()); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_action'")); + return SQ_ERROR; + } - sq_pushstring(v, return_value.c_str(), return_value.size()); - return 1; } -static int ScriptedObject_move_wrapper(HSQUIRRELVM v) +static int ScriptedObject_move_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'move' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } float arg1; - sq_getfloat(v, 3, &arg1); + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } - _this->move(arg0, arg1); + try { + _this->move(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'move'")); + return SQ_ERROR; + } - return 0; } -static int ScriptedObject_set_pos_wrapper(HSQUIRRELVM v) +static int ScriptedObject_set_pos_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_pos' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } float arg1; - sq_getfloat(v, 3, &arg1); + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } - _this->set_pos(arg0, arg1); + try { + _this->set_pos(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_pos'")); + return SQ_ERROR; + } - return 0; } -static int ScriptedObject_get_pos_x_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_pos_x_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_pos_x' called without instance")); + return SQ_ERROR; + } + + try { + float return_value = _this->get_pos_x(); - float return_value = _this->get_pos_x(); + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_pos_x'")); + return SQ_ERROR; + } - sq_pushfloat(v, return_value); - return 1; } -static int ScriptedObject_get_pos_y_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_pos_y_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_pos_y' called without instance")); + return SQ_ERROR; + } + + try { + float return_value = _this->get_pos_y(); - float return_value = _this->get_pos_y(); + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_pos_y'")); + return SQ_ERROR; + } - sq_pushfloat(v, return_value); - return 1; } -static int ScriptedObject_set_velocity_wrapper(HSQUIRRELVM v) +static int ScriptedObject_set_velocity_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_velocity' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } float arg1; - sq_getfloat(v, 3, &arg1); + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } - _this->set_velocity(arg0, arg1); + try { + _this->set_velocity(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_velocity'")); + return SQ_ERROR; + } - return 0; } -static int ScriptedObject_get_velocity_x_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_velocity_x_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_velocity_x' called without instance")); + return SQ_ERROR; + } + + try { + float return_value = _this->get_velocity_x(); + + sq_pushfloat(vm, return_value); + return 1; - float return_value = _this->get_velocity_x(); + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_velocity_x'")); + return SQ_ERROR; + } - sq_pushfloat(v, return_value); - return 1; } -static int ScriptedObject_get_velocity_y_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_velocity_y_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_velocity_y' called without instance")); + return SQ_ERROR; + } + + try { + float return_value = _this->get_velocity_y(); + + sq_pushfloat(vm, return_value); + return 1; - float return_value = _this->get_velocity_y(); + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_velocity_y'")); + return SQ_ERROR; + } - sq_pushfloat(v, return_value); - return 1; } -static int ScriptedObject_set_visible_wrapper(HSQUIRRELVM v) +static int ScriptedObject_set_visible_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_visible' called without instance")); + return SQ_ERROR; + } SQBool arg0; - sq_getbool(v, 2, &arg0); + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } - _this->set_visible(arg0); + try { + _this->set_visible(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_visible'")); + return SQ_ERROR; + } - return 0; } -static int ScriptedObject_is_visible_wrapper(HSQUIRRELVM v) +static int ScriptedObject_is_visible_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'is_visible' called without instance")); + return SQ_ERROR; + } - bool return_value = _this->is_visible(); + try { + bool return_value = _this->is_visible(); + + sq_pushbool(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'is_visible'")); + return SQ_ERROR; + } - sq_pushbool(v, return_value); - return 1; } -static int ScriptedObject_get_name_wrapper(HSQUIRRELVM v) +static int ScriptedObject_get_name_wrapper(HSQUIRRELVM vm) { Scripting::ScriptedObject* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_name' called without instance")); + return SQ_ERROR; + } - std::string return_value = _this->get_name(); + try { + std::string return_value = _this->get_name(); + + sq_pushstring(vm, return_value.c_str(), return_value.size()); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_name'")); + return SQ_ERROR; + } - sq_pushstring(v, return_value.c_str(), return_value.size()); - return 1; } -static int Sound_release_hook(SQUserPointer ptr, int ) +static int Text_release_hook(SQUserPointer ptr, int ) { - Sound* _this = reinterpret_cast (ptr); + Scripting::Text* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, Sound* object, bool setup_releasehook) +static int Text_set_text_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "Sound", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'Sound'"; - throw SquirrelError(v, msg.str()); - } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'Sound'"; - throw SquirrelError(v, msg.str()); - } - sq_remove(v, -2); - - if(setup_releasehook) { - sq_setreleasehook(v, -1, Sound_release_hook); + Scripting::Text* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_text' called without instance")); + return SQ_ERROR; } -} -static int Sound_play_music_wrapper(HSQUIRRELVM v) -{ - Scripting::Sound* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } - _this->play_music(arg0); + try { + _this->set_text(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_text'")); + return SQ_ERROR; + } - return 0; } -static int Sound_play_wrapper(HSQUIRRELVM v) +static int Text_set_font_wrapper(HSQUIRRELVM vm) { - Scripting::Sound* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::Text* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_font' called without instance")); + return SQ_ERROR; + } const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } - _this->play(arg0); + try { + _this->set_font(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_font'")); + return SQ_ERROR; + } - return 0; } -static int Text_release_hook(SQUserPointer ptr, int ) +static int Text_fade_in_wrapper(HSQUIRRELVM vm) { - Text* _this = reinterpret_cast (ptr); - delete _this; - return 0; + Scripting::Text* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'fade_in' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + _this->fade_in(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'fade_in'")); + return SQ_ERROR; + } + } -void create_squirrel_instance(HSQUIRRELVM v, Text* object, bool setup_releasehook) +static int Text_fade_out_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "Text", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'Text'"; - throw SquirrelError(v, msg.str()); + Scripting::Text* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'fade_out' called without instance")); + return SQ_ERROR; } - - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'Text'"; - throw SquirrelError(v, msg.str()); + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + _this->fade_out(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'fade_out'")); + return SQ_ERROR; } - sq_remove(v, -2); + +} - if(setup_releasehook) { - sq_setreleasehook(v, -1, Text_release_hook); +static int Text_set_visible_wrapper(HSQUIRRELVM vm) +{ + Scripting::Text* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_visible' called without instance")); + return SQ_ERROR; + } + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } + + try { + _this->set_visible(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_visible'")); + return SQ_ERROR; } + } -static int Text_set_text_wrapper(HSQUIRRELVM v) + +static int Text_set_centered_wrapper(HSQUIRRELVM vm) { Scripting::Text* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_centered' called without instance")); + return SQ_ERROR; + } + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } - _this->set_text(arg0); + try { + _this->set_centered(arg0); + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_centered'")); + return SQ_ERROR; + } + +} + +static int Player_release_hook(SQUserPointer ptr, int ) +{ + Scripting::Player* _this = reinterpret_cast (ptr); + delete _this; return 0; } -static int Text_set_font_wrapper(HSQUIRRELVM v) +static int Player_add_bonus_wrapper(HSQUIRRELVM vm) { - Scripting::Text* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'add_bonus' called without instance")); + return SQ_ERROR; + } const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } - _this->set_font(arg0); + try { + _this->add_bonus(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'add_bonus'")); + return SQ_ERROR; + } - return 0; } -static int Text_fade_in_wrapper(HSQUIRRELVM v) +static int Player_add_coins_wrapper(HSQUIRRELVM vm) { - Scripting::Text* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - float arg0; - sq_getfloat(v, 2, &arg0); + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'add_coins' called without instance")); + return SQ_ERROR; + } + int arg0; + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } - _this->fade_in(arg0); + try { + _this->add_coins(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'add_coins'")); + return SQ_ERROR; + } - return 0; } -static int Text_fade_out_wrapper(HSQUIRRELVM v) +static int Player_make_invincible_wrapper(HSQUIRRELVM vm) { - Scripting::Text* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'make_invincible' called without instance")); + return SQ_ERROR; + } + + try { + _this->make_invincible(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'make_invincible'")); + return SQ_ERROR; + } + +} + +static int Player_deactivate_wrapper(HSQUIRRELVM vm) +{ + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'deactivate' called without instance")); + return SQ_ERROR; + } + + try { + _this->deactivate(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'deactivate'")); + return SQ_ERROR; + } + +} + +static int Player_activate_wrapper(HSQUIRRELVM vm) +{ + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'activate' called without instance")); + return SQ_ERROR; + } + + try { + _this->activate(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'activate'")); + return SQ_ERROR; + } + +} + +static int Player_walk_wrapper(HSQUIRRELVM vm) +{ + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'walk' called without instance")); + return SQ_ERROR; + } float arg0; - sq_getfloat(v, 2, &arg0); + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } - _this->fade_out(arg0); + try { + _this->walk(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'walk'")); + return SQ_ERROR; + } - return 0; } -static int Text_set_visible_wrapper(HSQUIRRELVM v) +static int Player_set_visible_wrapper(HSQUIRRELVM vm) { - Scripting::Text* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_visible' called without instance")); + return SQ_ERROR; + } SQBool arg0; - sq_getbool(v, 2, &arg0); + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } - _this->set_visible(arg0); + try { + _this->set_visible(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_visible'")); + return SQ_ERROR; + } - return 0; } -static int Player_release_hook(SQUserPointer ptr, int ) +static int Player_get_visible_wrapper(HSQUIRRELVM vm) +{ + Scripting::Player* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_visible' called without instance")); + return SQ_ERROR; + } + + try { + bool return_value = _this->get_visible(); + + sq_pushbool(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_visible'")); + return SQ_ERROR; + } + +} + +static int FloatingImage_release_hook(SQUserPointer ptr, int ) { - Player* _this = reinterpret_cast (ptr); + Scripting::FloatingImage* _this = reinterpret_cast (ptr); delete _this; return 0; } -void create_squirrel_instance(HSQUIRRELVM v, Player* object, bool setup_releasehook) +static int FloatingImage_constructor_wrapper(HSQUIRRELVM vm) { - sq_pushstring(v, "Player", -1); - if(sq_get(v, -2) < 0) { - std::ostringstream msg; - msg << "Couldn't resolved squirrel type 'Player'"; - throw SquirrelError(v, msg.str()); + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; } + + try { + Scripting::FloatingImage* _this = new Scripting::FloatingImage(arg0); + if(SQ_FAILED(sq_setinstanceup(vm, 1, _this))) { + sq_throwerror(vm, _SC("Couldn't setup instance of 'FloatingImage' class")); + return SQ_ERROR; + } + sq_setreleasehook(vm, 1, FloatingImage_release_hook); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'constructor'")); + return SQ_ERROR; + } + +} - if(sq_createinstance(v, -1) < 0 || sq_setinstanceup(v, -1, object) < 0) { - std::ostringstream msg; - msg << "Couldn't setup squirrel instance for object of type 'Player'"; - throw SquirrelError(v, msg.str()); +static int FloatingImage_set_layer_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_layer' called without instance")); + return SQ_ERROR; + } + int arg0; + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } + + try { + _this->set_layer(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_layer'")); + return SQ_ERROR; } - sq_remove(v, -2); + +} - if(setup_releasehook) { - sq_setreleasehook(v, -1, Player_release_hook); +static int FloatingImage_get_layer_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_layer' called without instance")); + return SQ_ERROR; + } + + try { + int return_value = _this->get_layer(); + + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_layer'")); + return SQ_ERROR; } + } -static int Player_set_bonus_wrapper(HSQUIRRELVM v) + +static int FloatingImage_set_pos_wrapper(HSQUIRRELVM vm) { - Scripting::Player* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); - const char* arg0; - sq_getstring(v, 2, &arg0); + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_pos' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } - _this->set_bonus(arg0); + try { + _this->set_pos(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_pos'")); + return SQ_ERROR; + } - return 0; } -static int Player_make_invincible_wrapper(HSQUIRRELVM v) +static int FloatingImage_get_pos_x_wrapper(HSQUIRRELVM vm) { - Scripting::Player* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_pos_x' called without instance")); + return SQ_ERROR; + } - _this->make_invincible(); + try { + float return_value = _this->get_pos_x(); + + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_pos_x'")); + return SQ_ERROR; + } - return 0; } -static int Player_add_life_wrapper(HSQUIRRELVM v) +static int FloatingImage_get_pos_y_wrapper(HSQUIRRELVM vm) { - Scripting::Player* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_pos_y' called without instance")); + return SQ_ERROR; + } - _this->add_life(); + try { + float return_value = _this->get_pos_y(); + + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_pos_y'")); + return SQ_ERROR; + } - return 0; } -static int Player_add_coins_wrapper(HSQUIRRELVM v) +static int FloatingImage_set_anchor_point_wrapper(HSQUIRRELVM vm) { - Scripting::Player* _this; - sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0); + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_anchor_point' called without instance")); + return SQ_ERROR; + } int arg0; - sq_getinteger(v, 2, &arg0); + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } - _this->add_coins(arg0); + try { + _this->set_anchor_point(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_anchor_point'")); + return SQ_ERROR; + } + +} + +static int FloatingImage_get_anchor_point_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_anchor_point' called without instance")); + return SQ_ERROR; + } + + try { + int return_value = _this->get_anchor_point(); + + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_anchor_point'")); + return SQ_ERROR; + } + +} + +static int FloatingImage_set_visible_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_visible' called without instance")); + return SQ_ERROR; + } + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } + + try { + _this->set_visible(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_visible'")); + return SQ_ERROR; + } + +} + +static int FloatingImage_get_visible_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_visible' called without instance")); + return SQ_ERROR; + } + + try { + bool return_value = _this->get_visible(); + + sq_pushbool(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_visible'")); + return SQ_ERROR; + } - return 0; } -static int display_text_file_wrapper(HSQUIRRELVM v) +static int FloatingImage_set_action_wrapper(HSQUIRRELVM vm) { + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'set_action' called without instance")); + return SQ_ERROR; + } const char* arg0; - sq_getstring(v, 2, &arg0); + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + _this->set_action(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'set_action'")); + return SQ_ERROR; + } + +} + +static int FloatingImage_get_action_wrapper(HSQUIRRELVM vm) +{ + Scripting::FloatingImage* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'get_action' called without instance")); + return SQ_ERROR; + } + + try { + std::string return_value = _this->get_action(); + + sq_pushstring(vm, return_value.c_str(), return_value.size()); + return 1; - Scripting::display_text_file(arg0); + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'get_action'")); + return SQ_ERROR; + } +} + +static int RandomGenerator_release_hook(SQUserPointer ptr, int ) +{ + Scripting::RandomGenerator* _this = reinterpret_cast (ptr); + delete _this; return 0; } -static int wait_wrapper(HSQUIRRELVM v) +static int RandomGenerator_srand_wrapper(HSQUIRRELVM vm) { - float arg0; - sq_getfloat(v, 2, &arg0); + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'srand' called without instance")); + return SQ_ERROR; + } + int arg0; + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } + + try { + int return_value = _this->srand(arg0); - Scripting::wait(arg0); + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'srand'")); + return SQ_ERROR; + } - return sq_suspendvm(v); } -static int translate_wrapper(HSQUIRRELVM v) +static int RandomGenerator_rand_wrapper(HSQUIRRELVM vm) { - const char* arg0; - sq_getstring(v, 2, &arg0); + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'rand' called without instance")); + return SQ_ERROR; + } + + try { + int return_value = _this->rand(); + + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'rand'")); + return SQ_ERROR; + } + +} + +static int RandomGenerator_rand1i_wrapper(HSQUIRRELVM vm) +{ + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'rand1i' called without instance")); + return SQ_ERROR; + } + int arg0; + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } + + try { + int return_value = _this->rand1i(arg0); + + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'rand1i'")); + return SQ_ERROR; + } - std::string return_value = Scripting::translate(arg0); +} + +static int RandomGenerator_rand2i_wrapper(HSQUIRRELVM vm) +{ + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'rand2i' called without instance")); + return SQ_ERROR; + } + int arg0; + if(SQ_FAILED(sq_getinteger(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not an integer")); + return SQ_ERROR; + } + int arg1; + if(SQ_FAILED(sq_getinteger(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not an integer")); + return SQ_ERROR; + } - sq_pushstring(v, return_value.c_str(), return_value.size()); - return 1; + try { + int return_value = _this->rand2i(arg0, arg1); + + sq_pushinteger(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'rand2i'")); + return SQ_ERROR; + } + +} + +static int RandomGenerator_rand1f_wrapper(HSQUIRRELVM vm) +{ + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'rand1f' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + float return_value = _this->rand1f(arg0); + + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'rand1f'")); + return SQ_ERROR; + } + +} + +static int RandomGenerator_rand2f_wrapper(HSQUIRRELVM vm) +{ + Scripting::RandomGenerator* _this; + if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast (&_this), 0))) { + sq_throwerror(vm, _SC("'rand2f' called without instance")); + return SQ_ERROR; + } + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } + + try { + float return_value = _this->rand2f(arg0, arg1); + + sq_pushfloat(vm, return_value); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'rand2f'")); + return SQ_ERROR; + } + +} + +static int display_wrapper(HSQUIRRELVM vm) +{ + return Scripting::display(vm); +} + +static int print_stacktrace_wrapper(HSQUIRRELVM vm) +{ + HSQUIRRELVM arg0 = vm; + + try { + Scripting::print_stacktrace(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'print_stacktrace'")); + return SQ_ERROR; + } + +} + +static int get_current_thread_wrapper(HSQUIRRELVM vm) +{ + return Scripting::get_current_thread(vm); +} + +static int display_text_file_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::display_text_file(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'display_text_file'")); + return SQ_ERROR; + } + +} + +static int load_worldmap_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::load_worldmap(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'load_worldmap'")); + return SQ_ERROR; + } + +} + +static int load_level_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::load_level(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'load_level'")); + return SQ_ERROR; + } + +} + +static int wait_wrapper(HSQUIRRELVM vm) +{ + HSQUIRRELVM arg0 = vm; + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg1))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + Scripting::wait(arg0, arg1); + + return sq_suspendvm(vm); + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'wait'")); + return SQ_ERROR; + } + +} + +static int wait_for_screenswitch_wrapper(HSQUIRRELVM vm) +{ + HSQUIRRELVM arg0 = vm; + + try { + Scripting::wait_for_screenswitch(arg0); + + return sq_suspendvm(vm); + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'wait_for_screenswitch'")); + return SQ_ERROR; + } + +} + +static int exit_screen_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::exit_screen(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'exit_screen'")); + return SQ_ERROR; + } + +} + +static int fadeout_screen_wrapper(HSQUIRRELVM vm) +{ + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + + try { + Scripting::fadeout_screen(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'fadeout_screen'")); + return SQ_ERROR; + } + +} + +static int shrink_screen_wrapper(HSQUIRRELVM vm) +{ + float arg0; + if(SQ_FAILED(sq_getfloat(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a float")); + return SQ_ERROR; + } + float arg1; + if(SQ_FAILED(sq_getfloat(vm, 3, &arg1))) { + sq_throwerror(vm, _SC("Argument 2 not a float")); + return SQ_ERROR; + } + float arg2; + if(SQ_FAILED(sq_getfloat(vm, 4, &arg2))) { + sq_throwerror(vm, _SC("Argument 3 not a float")); + return SQ_ERROR; + } + + try { + Scripting::shrink_screen(arg0, arg1, arg2); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'shrink_screen'")); + return SQ_ERROR; + } + +} + +static int translate_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + std::string return_value = Scripting::translate(arg0); + + sq_pushstring(vm, return_value.c_str(), return_value.size()); + return 1; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'translate'")); + return SQ_ERROR; + } + +} + +static int import_wrapper(HSQUIRRELVM vm) +{ + HSQUIRRELVM arg0 = vm; + const char* arg1; + if(SQ_FAILED(sq_getstring(vm, 2, &arg1))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::import(arg0, arg1); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'import'")); + return SQ_ERROR; + } + +} + +static int save_state_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::save_state(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'save_state'")); + return SQ_ERROR; + } + +} + +static int debug_collrects_wrapper(HSQUIRRELVM vm) +{ + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } + + try { + Scripting::debug_collrects(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'debug_collrects'")); + return SQ_ERROR; + } + +} + +static int debug_draw_fps_wrapper(HSQUIRRELVM vm) +{ + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } + + try { + Scripting::debug_draw_fps(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'debug_draw_fps'")); + return SQ_ERROR; + } + +} + +static int debug_draw_solids_only_wrapper(HSQUIRRELVM vm) +{ + SQBool arg0; + if(SQ_FAILED(sq_getbool(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a bool")); + return SQ_ERROR; + } + + try { + Scripting::debug_draw_solids_only(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'debug_draw_solids_only'")); + return SQ_ERROR; + } + +} + +static int play_music_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::play_music(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'play_music'")); + return SQ_ERROR; + } + +} + +static int play_sound_wrapper(HSQUIRRELVM vm) +{ + const char* arg0; + if(SQ_FAILED(sq_getstring(vm, 2, &arg0))) { + sq_throwerror(vm, _SC("Argument 1 not a string")); + return SQ_ERROR; + } + + try { + Scripting::play_sound(arg0); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'play_sound'")); + return SQ_ERROR; + } + +} + +static int grease_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::grease(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'grease'")); + return SQ_ERROR; + } + +} + +static int invincible_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::invincible(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'invincible'")); + return SQ_ERROR; + } + +} + +static int mortal_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::mortal(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'mortal'")); + return SQ_ERROR; + } + +} + +static int shrink_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::shrink(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'shrink'")); + return SQ_ERROR; + } + +} + +static int kill_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::kill(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'kill'")); + return SQ_ERROR; + } + +} + +static int restart_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::restart(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'restart'")); + return SQ_ERROR; + } + +} + +static int whereami_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::whereami(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'whereami'")); + return SQ_ERROR; + } + +} + +static int gotoend_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::gotoend(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'gotoend'")); + return SQ_ERROR; + } + +} + +static int camera_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::camera(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'camera'")); + return SQ_ERROR; + } + +} + +static int quit_wrapper(HSQUIRRELVM vm) +{ + (void) vm; + + try { + Scripting::quit(); + + return 0; + + } catch(std::exception& e) { + sq_throwerror(vm, e.what()); + return SQ_ERROR; + } catch(...) { + sq_throwerror(vm, _SC("Unexpected exception while executing function 'quit'")); + return SQ_ERROR; + } + +} + +} // end of namespace Wrapper + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::DisplayEffect* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "DisplayEffect", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'DisplayEffect'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'DisplayEffect'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, DisplayEffect_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::Camera* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "Camera", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'Camera'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'Camera'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, Camera_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::Level* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "Level", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'Level'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'Level'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, Level_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::ScriptedObject* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "ScriptedObject", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'ScriptedObject'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'ScriptedObject'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, ScriptedObject_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::Text* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "Text", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'Text'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'Text'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, Text_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::Player* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "Player", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'Player'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'Player'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, Player_release_hook); + } + + sq_remove(v, -2); // remove root table +} + +void create_squirrel_instance(HSQUIRRELVM v, Scripting::FloatingImage* object, bool setup_releasehook) +{ + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "FloatingImage", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'FloatingImage'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'FloatingImage'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, FloatingImage_release_hook); + } + + sq_remove(v, -2); // remove root table } -static int import_wrapper(HSQUIRRELVM v) +void create_squirrel_instance(HSQUIRRELVM v, Scripting::RandomGenerator* object, bool setup_releasehook) { - HSQUIRRELVM arg0 = v; - const char* arg1; - sq_getstring(v, 2, &arg1); - - Scripting::import(arg0, arg1); - - return 0; + using namespace Wrapper; + + sq_pushroottable(v); + sq_pushstring(v, "RandomGenerator", -1); + if(SQ_FAILED(sq_get(v, -2))) { + std::ostringstream msg; + msg << "Couldn't resolved squirrel type 'RandomGenerator'"; + throw SquirrelError(v, msg.str()); + } + + if(SQ_FAILED(sq_createinstance(v, -1)) || SQ_FAILED(sq_setinstanceup(v, -1, object))) { + std::ostringstream msg; + msg << "Couldn't setup squirrel instance for object of type 'RandomGenerator'"; + throw SquirrelError(v, msg.str()); + } + sq_remove(v, -2); // remove object name + + if(setup_releasehook) { + sq_setreleasehook(v, -1, RandomGenerator_release_hook); + } + + sq_remove(v, -2); // remove root table } void register_supertux_wrapper(HSQUIRRELVM v) { - sq_pushroottable(v); + using namespace Wrapper; + + sq_pushstring(v, "ANCHOR_TOP", -1); + sq_pushinteger(v, 16); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_TOP'"); + } + + sq_pushstring(v, "ANCHOR_BOTTOM", -1); + sq_pushinteger(v, 32); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_BOTTOM'"); + } + + sq_pushstring(v, "ANCHOR_LEFT", -1); + sq_pushinteger(v, 1); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_LEFT'"); + } + + sq_pushstring(v, "ANCHOR_RIGHT", -1); + sq_pushinteger(v, 2); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_RIGHT'"); + } + + sq_pushstring(v, "ANCHOR_MIDDLE", -1); + sq_pushinteger(v, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_MIDDLE'"); + } + + sq_pushstring(v, "ANCHOR_TOP_LEFT", -1); + sq_pushinteger(v, 17); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_TOP_LEFT'"); + } + + sq_pushstring(v, "ANCHOR_TOP_RIGHT", -1); + sq_pushinteger(v, 18); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_TOP_RIGHT'"); + } + + sq_pushstring(v, "ANCHOR_BOTTOM_LEFT", -1); + sq_pushinteger(v, 33); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_BOTTOM_LEFT'"); + } + + sq_pushstring(v, "ANCHOR_BOTTOM_RIGHT", -1); + sq_pushinteger(v, 34); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register constant 'ANCHOR_BOTTOM_RIGHT'"); + } + + sq_pushstring(v, "display", -1); + sq_newclosure(v, &display_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'display'"); + } + + sq_pushstring(v, "print_stacktrace", -1); + sq_newclosure(v, &print_stacktrace_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'print_stacktrace'"); + } + + sq_pushstring(v, "get_current_thread", -1); + sq_newclosure(v, &get_current_thread_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_current_thread'"); + } + sq_pushstring(v, "display_text_file", -1); sq_newclosure(v, &display_text_file_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'display_text_file'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'display_text_file'"); + } + + sq_pushstring(v, "load_worldmap", -1); + sq_newclosure(v, &load_worldmap_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'load_worldmap'"); + } + + sq_pushstring(v, "load_level", -1); + sq_newclosure(v, &load_level_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'load_level'"); } sq_pushstring(v, "wait", -1); sq_newclosure(v, &wait_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'wait'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'wait'"); + } + + sq_pushstring(v, "wait_for_screenswitch", -1); + sq_newclosure(v, &wait_for_screenswitch_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'wait_for_screenswitch'"); + } + + sq_pushstring(v, "exit_screen", -1); + sq_newclosure(v, &exit_screen_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'exit_screen'"); + } + + sq_pushstring(v, "fadeout_screen", -1); + sq_newclosure(v, &fadeout_screen_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'fadeout_screen'"); + } + + sq_pushstring(v, "shrink_screen", -1); + sq_newclosure(v, &shrink_screen_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'shrink_screen'"); } sq_pushstring(v, "translate", -1); sq_newclosure(v, &translate_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'translate'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'translate'"); } sq_pushstring(v, "import", -1); sq_newclosure(v, &import_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'import'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'import'"); + } + + sq_pushstring(v, "save_state", -1); + sq_newclosure(v, &save_state_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'save_state'"); + } + + sq_pushstring(v, "debug_collrects", -1); + sq_newclosure(v, &debug_collrects_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'debug_collrects'"); + } + + sq_pushstring(v, "debug_draw_fps", -1); + sq_newclosure(v, &debug_draw_fps_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'debug_draw_fps'"); + } + + sq_pushstring(v, "debug_draw_solids_only", -1); + sq_newclosure(v, &debug_draw_solids_only_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'debug_draw_solids_only'"); + } + + sq_pushstring(v, "play_music", -1); + sq_newclosure(v, &play_music_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'play_music'"); + } + + sq_pushstring(v, "play_sound", -1); + sq_newclosure(v, &play_sound_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'play_sound'"); + } + + sq_pushstring(v, "grease", -1); + sq_newclosure(v, &grease_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'grease'"); + } + + sq_pushstring(v, "invincible", -1); + sq_newclosure(v, &invincible_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'invincible'"); + } + + sq_pushstring(v, "mortal", -1); + sq_newclosure(v, &mortal_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'mortal'"); + } + + sq_pushstring(v, "shrink", -1); + sq_newclosure(v, &shrink_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'shrink'"); + } + + sq_pushstring(v, "kill", -1); + sq_newclosure(v, &kill_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'kill'"); + } + + sq_pushstring(v, "restart", -1); + sq_newclosure(v, &restart_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'restart'"); + } + + sq_pushstring(v, "whereami", -1); + sq_newclosure(v, &whereami_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'whereami'"); + } + + sq_pushstring(v, "gotoend", -1); + sq_newclosure(v, &gotoend_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'gotoend'"); + } + + sq_pushstring(v, "camera", -1); + sq_newclosure(v, &camera_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'camera'"); + } + + sq_pushstring(v, "quit", -1); + sq_newclosure(v, &quit_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'quit'"); } // Register class DisplayEffect @@ -686,40 +2690,42 @@ void register_supertux_wrapper(HSQUIRRELVM v) } sq_pushstring(v, "fade_out", -1); sq_newclosure(v, &DisplayEffect_fade_out_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'fade_out'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'fade_out'"); } sq_pushstring(v, "fade_in", -1); sq_newclosure(v, &DisplayEffect_fade_in_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'fade_in'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'fade_in'"); } sq_pushstring(v, "set_black", -1); sq_newclosure(v, &DisplayEffect_set_black_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_black'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_black'"); } sq_pushstring(v, "is_black", -1); sq_newclosure(v, &DisplayEffect_is_black_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'is_black'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'is_black'"); } - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'DisplayEffect'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "sixteen_to_nine", -1); + sq_newclosure(v, &DisplayEffect_sixteen_to_nine_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'sixteen_to_nine'"); + } + + sq_pushstring(v, "four_to_three", -1); + sq_newclosure(v, &DisplayEffect_four_to_three_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'four_to_three'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'DisplayEffect'"); } // Register class Camera @@ -731,32 +2737,30 @@ void register_supertux_wrapper(HSQUIRRELVM v) } sq_pushstring(v, "shake", -1); sq_newclosure(v, &Camera_shake_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'shake'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'shake'"); } sq_pushstring(v, "set_pos", -1); sq_newclosure(v, &Camera_set_pos_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_pos'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_pos'"); } sq_pushstring(v, "set_mode", -1); sq_newclosure(v, &Camera_set_mode_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_mode'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_mode'"); } - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'Camera'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "scroll_to", -1); + sq_newclosure(v, &Camera_scroll_to_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'scroll_to'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'Camera'"); } // Register class Level @@ -768,32 +2772,24 @@ void register_supertux_wrapper(HSQUIRRELVM v) } sq_pushstring(v, "finish", -1); sq_newclosure(v, &Level_finish_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'finish'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'finish'"); } sq_pushstring(v, "spawn", -1); sq_newclosure(v, &Level_spawn_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'spawn'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'spawn'"); } sq_pushstring(v, "flip_vertically", -1); sq_newclosure(v, &Level_flip_vertically_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'flip_vertically'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'flip_vertically'"); } - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'Level'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'Level'"); } // Register class ScriptedObject @@ -803,135 +2799,80 @@ void register_supertux_wrapper(HSQUIRRELVM v) msg << "Couldn't create new class 'ScriptedObject'"; throw SquirrelError(v, msg.str()); } - sq_pushstring(v, "set_animation", -1); - sq_newclosure(v, &ScriptedObject_set_animation_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_animation'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "set_action", -1); + sq_newclosure(v, &ScriptedObject_set_action_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_action'"); } - sq_pushstring(v, "get_animation", -1); - sq_newclosure(v, &ScriptedObject_get_animation_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_animation'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "get_action", -1); + sq_newclosure(v, &ScriptedObject_get_action_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_action'"); } sq_pushstring(v, "move", -1); sq_newclosure(v, &ScriptedObject_move_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'move'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'move'"); } sq_pushstring(v, "set_pos", -1); sq_newclosure(v, &ScriptedObject_set_pos_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_pos'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_pos'"); } sq_pushstring(v, "get_pos_x", -1); sq_newclosure(v, &ScriptedObject_get_pos_x_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_pos_x'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_pos_x'"); } sq_pushstring(v, "get_pos_y", -1); sq_newclosure(v, &ScriptedObject_get_pos_y_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_pos_y'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_pos_y'"); } sq_pushstring(v, "set_velocity", -1); sq_newclosure(v, &ScriptedObject_set_velocity_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_velocity'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_velocity'"); } sq_pushstring(v, "get_velocity_x", -1); sq_newclosure(v, &ScriptedObject_get_velocity_x_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_velocity_x'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_velocity_x'"); } sq_pushstring(v, "get_velocity_y", -1); sq_newclosure(v, &ScriptedObject_get_velocity_y_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_velocity_y'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_velocity_y'"); } sq_pushstring(v, "set_visible", -1); sq_newclosure(v, &ScriptedObject_set_visible_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_visible'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_visible'"); } sq_pushstring(v, "is_visible", -1); sq_newclosure(v, &ScriptedObject_is_visible_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'is_visible'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'is_visible'"); } sq_pushstring(v, "get_name", -1); sq_newclosure(v, &ScriptedObject_get_name_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'get_name'"; - throw SquirrelError(v, msg.str()); - } - - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'ScriptedObject'"; - throw SquirrelError(v, msg.str()); - } - - // Register class Sound - sq_pushstring(v, "Sound", -1); - if(sq_newclass(v, SQFalse) < 0) { - std::ostringstream msg; - msg << "Couldn't create new class 'Sound'"; - throw SquirrelError(v, msg.str()); - } - sq_pushstring(v, "play_music", -1); - sq_newclosure(v, &Sound_play_music_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'play_music'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_name'"); } - sq_pushstring(v, "play", -1); - sq_newclosure(v, &Sound_play_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'play'"; - throw SquirrelError(v, msg.str()); - } - - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'Sound'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'ScriptedObject'"); } // Register class Text @@ -943,48 +2884,42 @@ void register_supertux_wrapper(HSQUIRRELVM v) } sq_pushstring(v, "set_text", -1); sq_newclosure(v, &Text_set_text_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_text'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_text'"); } sq_pushstring(v, "set_font", -1); sq_newclosure(v, &Text_set_font_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_font'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_font'"); } sq_pushstring(v, "fade_in", -1); sq_newclosure(v, &Text_fade_in_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'fade_in'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'fade_in'"); } sq_pushstring(v, "fade_out", -1); sq_newclosure(v, &Text_fade_out_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'fade_out'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'fade_out'"); } sq_pushstring(v, "set_visible", -1); sq_newclosure(v, &Text_set_visible_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_visible'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_visible'"); } - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register class'Text'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "set_centered", -1); + sq_newclosure(v, &Text_set_centered_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_centered'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'Text'"); } // Register class Player @@ -994,46 +2929,189 @@ void register_supertux_wrapper(HSQUIRRELVM v) msg << "Couldn't create new class 'Player'"; throw SquirrelError(v, msg.str()); } - sq_pushstring(v, "set_bonus", -1); - sq_newclosure(v, &Player_set_bonus_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'set_bonus'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "add_bonus", -1); + sq_newclosure(v, &Player_add_bonus_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'add_bonus'"); + } + + sq_pushstring(v, "add_coins", -1); + sq_newclosure(v, &Player_add_coins_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'add_coins'"); } sq_pushstring(v, "make_invincible", -1); sq_newclosure(v, &Player_make_invincible_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'make_invincible'"; - throw SquirrelError(v, msg.str()); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'make_invincible'"); } - sq_pushstring(v, "add_life", -1); - sq_newclosure(v, &Player_add_life_wrapper, 0); - if(sq_createslot(v, -3) < 0) { - std::ostringstream msg; - msg << "Couldn't register function'add_life'"; - throw SquirrelError(v, msg.str()); + sq_pushstring(v, "deactivate", -1); + sq_newclosure(v, &Player_deactivate_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'deactivate'"); } - sq_pushstring(v, "add_coins", -1); - sq_newclosure(v, &Player_add_coins_wrapper, 0); - if(sq_createslot(v, -3) < 0) { + sq_pushstring(v, "activate", -1); + sq_newclosure(v, &Player_activate_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'activate'"); + } + + sq_pushstring(v, "walk", -1); + sq_newclosure(v, &Player_walk_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'walk'"); + } + + sq_pushstring(v, "set_visible", -1); + sq_newclosure(v, &Player_set_visible_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_visible'"); + } + + sq_pushstring(v, "get_visible", -1); + sq_newclosure(v, &Player_get_visible_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_visible'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'Player'"); + } + + // Register class FloatingImage + sq_pushstring(v, "FloatingImage", -1); + if(sq_newclass(v, SQFalse) < 0) { std::ostringstream msg; - msg << "Couldn't register function'add_coins'"; + msg << "Couldn't create new class 'FloatingImage'"; throw SquirrelError(v, msg.str()); } + sq_pushstring(v, "constructor", -1); + sq_newclosure(v, &FloatingImage_constructor_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'constructor'"); + } + + sq_pushstring(v, "set_layer", -1); + sq_newclosure(v, &FloatingImage_set_layer_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_layer'"); + } + + sq_pushstring(v, "get_layer", -1); + sq_newclosure(v, &FloatingImage_get_layer_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_layer'"); + } + + sq_pushstring(v, "set_pos", -1); + sq_newclosure(v, &FloatingImage_set_pos_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_pos'"); + } + + sq_pushstring(v, "get_pos_x", -1); + sq_newclosure(v, &FloatingImage_get_pos_x_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_pos_x'"); + } + + sq_pushstring(v, "get_pos_y", -1); + sq_newclosure(v, &FloatingImage_get_pos_y_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_pos_y'"); + } + + sq_pushstring(v, "set_anchor_point", -1); + sq_newclosure(v, &FloatingImage_set_anchor_point_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_anchor_point'"); + } + + sq_pushstring(v, "get_anchor_point", -1); + sq_newclosure(v, &FloatingImage_get_anchor_point_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_anchor_point'"); + } + + sq_pushstring(v, "set_visible", -1); + sq_newclosure(v, &FloatingImage_set_visible_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_visible'"); + } + + sq_pushstring(v, "get_visible", -1); + sq_newclosure(v, &FloatingImage_get_visible_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_visible'"); + } + + sq_pushstring(v, "set_action", -1); + sq_newclosure(v, &FloatingImage_set_action_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'set_action'"); + } + + sq_pushstring(v, "get_action", -1); + sq_newclosure(v, &FloatingImage_get_action_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'get_action'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'FloatingImage'"); + } - if(sq_createslot(v, -3) < 0) { + // Register class RandomGenerator + sq_pushstring(v, "RandomGenerator", -1); + if(sq_newclass(v, SQFalse) < 0) { std::ostringstream msg; - msg << "Couldn't register class'Player'"; + msg << "Couldn't create new class 'RandomGenerator'"; throw SquirrelError(v, msg.str()); } + sq_pushstring(v, "srand", -1); + sq_newclosure(v, &RandomGenerator_srand_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'srand'"); + } - sq_pop(v, 1); -} + sq_pushstring(v, "rand", -1); + sq_newclosure(v, &RandomGenerator_rand_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'rand'"); + } + + sq_pushstring(v, "rand1i", -1); + sq_newclosure(v, &RandomGenerator_rand1i_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'rand1i'"); + } + + sq_pushstring(v, "rand2i", -1); + sq_newclosure(v, &RandomGenerator_rand2i_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'rand2i'"); + } + + sq_pushstring(v, "rand1f", -1); + sq_newclosure(v, &RandomGenerator_rand1f_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'rand1f'"); + } + + sq_pushstring(v, "rand2f", -1); + sq_newclosure(v, &RandomGenerator_rand2f_wrapper, 0); + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register function 'rand2f'"); + } + + if(SQ_FAILED(sq_createslot(v, -3))) { + throw SquirrelError(v, "Couldn't register class 'RandomGenerator'"); + } } +} // end of namespace Scripting +