55 lines
1.3 KiB
C
Executable file
55 lines
1.3 KiB
C
Executable file
#include "script.h"
|
|
|
|
#include "gameobject.h"
|
|
#include <s7.h>
|
|
|
|
s7_scheme *s7 = NULL;
|
|
|
|
s7_pointer s7square(s7_scheme * sc, s7_pointer args)
|
|
{
|
|
if (s7_is_integer(s7_car(args)))
|
|
return (s7_make_integer
|
|
(sc, s7_integer(s7_car(args)) * s7_integer(s7_car(args))));
|
|
|
|
return (s7_wrong_type_arg_error
|
|
(sc, "square", 1, s7_car(args), "an integer"));
|
|
}
|
|
|
|
s7_pointer s7move(s7_scheme * sc, s7_pointer args)
|
|
{
|
|
if (s7_is_number(s7_car(args)) && s7_is_number(s7_cadr(args))) {
|
|
gameobject_move(updateGO, s7_real(s7_car(args)),
|
|
s7_real(s7_cadr(args)));
|
|
return args;
|
|
}
|
|
|
|
return args;
|
|
}
|
|
|
|
s7_pointer s7rotate(s7_scheme * sc, s7_pointer args)
|
|
{
|
|
if (s7_is_number(s7_car(args))) {
|
|
gameobject_rotate(updateGO, s7_real(s7_car(args)));
|
|
return (s7_make_real(sc, cpBodyGetAngle(updateGO->body)));
|
|
}
|
|
|
|
return (s7_wrong_type_arg_error
|
|
(sc, "rotate", 1, s7_car(args), "a number"));
|
|
}
|
|
|
|
void script_init()
|
|
{
|
|
s7 = s7_init();
|
|
s7_define_function(s7, "square", s7square, 1, 0, 0,
|
|
"(square int) squares int");
|
|
s7_define_function(s7, "move", s7move, 1, 0, 0,
|
|
"(move (xs ys)) moves at xs and ys pixels per second");
|
|
s7_define_function(s7, "rotate", s7rotate, 1, 0, 0,
|
|
"(rotate ms) rotates at ms meters per second");
|
|
}
|
|
|
|
void script_run(const char *script)
|
|
{
|
|
s7_eval_c_string(s7, script);
|
|
}
|