#include <irrlicht/irrlicht.h>
-#include <libguile.h>
+#include "mods.h"
using namespace irr;
using namespace core;
using namespace video;
using namespace gui;
-SCM register_generator(SCM name, SCM proc)
-{
- printf ("Register: %s\n", scm_to_locale_string(name));
- scm_call_1(proc, scm_from_int(-1));
- return SCM_UNSPECIFIED;
-}
-
-void init_dungeon_master_module(void *unused)
-{
- scm_c_define_gsubr("register-generator", 2, 0, 0, (scm_t_subr)register_generator);
- scm_c_export("register-generator", NULL);
-}
-
-void scm_init_dungeon_master_module()
-{
- scm_c_define_module("dungeon-master", init_dungeon_master_module, NULL);
-}
-
int main()
{
- scm_init_guile();
- scm_init_dungeon_master_module();
- scm_primitive_load(scm_from_locale_string("plugins/default/main.scm"));
+ load_mods();
IrrlichtDevice* device =
createDevice(EDT_OPENGL,
env->addStaticText(L"Dungeon Master", rect<s32>(150,20,350,40), true);
+ IGUITabControl* tab = env->addTabControl(rect<s32>(50, 60, 850, 600));
+ tab->addTab(L"First");
+ tab->addTab(L"Second");
+ tab->addTab(L"Third");
+
while (device->run())
{
driver->beginScene(true, true, SColor(0, 200, 200, 200));