+/* Dungeon Master --- RPG Adventure Generator
+ Copyright © 2019 Javier Sancho <jsf@jsancho.org>
+
+ Dungeon Master is free software; you can redistribute it and/or modify it
+ under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ Dungeon Master is distributed in the hope that it will be useful, but
+ WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with Dungeon Master. If not, see <http://www.gnu.org/licenses/>.
+*/
+
#include <irrlicht/irrlicht.h>
-#include <libguile.h>
using namespace irr;
using namespace core;
using namespace video;
using namespace gui;
-SCM register_generator(SCM name, SCM proc)
+int main ()
{
- 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("mods/default/main.scm"));
-
IrrlichtDevice* device =
- createDevice(EDT_OPENGL,
- dimension2d<u32>(640, 480), 16,
- false, false, false, 0);
+ createDevice (video::EDT_OPENGL, core::dimension2d<u32> (640, 480));
+
if (!device)
return 1;
- device->setWindowCaption(L"Dungeon Master");
+ device->setWindowCaption (L"Dungeon Master");
- IVideoDriver* driver = device->getVideoDriver();
- IGUIEnvironment* env = device->getGUIEnvironment();
+ IVideoDriver* driver = device->getVideoDriver ();
+ IGUIEnvironment* guienv = device->getGUIEnvironment ();
- env->addStaticText(L"Dungeon Master", rect<s32>(150,20,350,40), true);
+ guienv->addStaticText (L"Aqui va el texto", rect<s32> (10, 10, 260, 22));
- 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())
+ while (device->run ())
{
- driver->beginScene(true, true, SColor(0, 200, 200, 200));
- env->drawAll();
- driver->endScene();
+ driver->beginScene (true, true, SColor(255, 100, 101, 140));
+ guienv->drawAll ();
+ driver->endScene ();
}
- device->drop();
-
+ device->drop ();
return 0;
}