-print("Hello World\n");
-display_text_file("levels/world1/intro.txt");
-wait_for_screenswitch();
+if(! ("intro_displayed" in state)) {
+ println("Display intro");
+ load_level("levels/world1/intro.stl");
+ println("Wait for screenswitch");
+ wait_for_screenswitch();
+ println("ok1");
+ wait_for_screenswitch();
+ println("ok2");
+ state.intro_displayed <- true;
+ save_state();
+}
+
+if(! ("world" in state)) {
+ println("No worldfound");
+ state.world <- "levels/world1/worldmap.stwm";
+ save_state();
+}
+
+// load worldmap and wait till it is displayed
+load_worldmap(state.world);
wait_for_screenswitch();
-load_worldmap("levels/world1/worldmap.stwm");
+save_state();
+
+worldthread <- get_current_thread();
+// wait for worldchanges
+while(true) {
+ ::suspend();
+ exit_screen();
+ load_worldmap(state.world);
+ save_state();
+}