-print("Hello World\n");
-display_text_file("levels/world1/intro.txt");
-wait_for_screenswitch();
+if(! ("world" in state)) {
+ 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();
+}