contrib: remove crazy_moles
[nit.git] / examples / mnit_dino / src / dino.nit
index a4ca506..27ced99 100644 (file)
 # limitations under the License.
 
 # App for the Dino game, manages App lifecyle and inputs
-module dino
+module dino is
+       app_version(0, 2, git_revision)
+       app_name("mnit Dino")
+end
 
 import mnit
-import realtime
 
 import graphism
 import fancy_dino
 import splash
 
-class DinoApp
-       super App
-
+redef class App
        var cavemen_at_first_level = 6
        var cavemen_incr = 4
 
-       var target_dt = 12000000
-
        var game : nullable Game = null
-       var score = new Container[Int](0)
+       var score = new Ref[Int](0)
        var imgs : nullable ImageSet = null
        var splash : nullable SplashScreen = null
 
-       init do super
-
-       redef fun init_window
+       redef fun on_create
        do
                super
 
+               maximum_fps = 80.0
+
                var display = display
                assert display != null
 
@@ -60,16 +58,8 @@ class DinoApp
        do
                var game = game
                if game != null then
-                       var clock = new Clock
-
                        var turn = game.do_turn
                        game.draw( display, imgs.as(not null), turn )
-
-                       var dt = clock.lapse
-                       if dt.sec == 0 and dt.nanosec < target_dt then
-                               var sleep_t = target_dt - dt.nanosec
-                               sys.nanosleep(0, sleep_t)
-                       end
                else
                        splash.draw( display, true )
                end
@@ -90,7 +80,10 @@ class DinoApp
                                var next_nbr_caveman = game.nbr_wanted_cavemen
                                if game.won then
                                        next_nbr_caveman += cavemen_incr
-                               else score = new Container[Int](0)
+                               else
+                                       score = new Ref[Int](0)
+                                       next_nbr_caveman = cavemen_at_first_level
+                               end
                                game = new Game( next_nbr_caveman, score )
                        else
                                # normal play
@@ -105,7 +98,3 @@ class DinoApp
                return false # unknown event, can be handled by something else
        end
 end
-
-var app = new DinoApp
-app.main_loop
-