moving the in-package to main; adding make-random-state to get real random numbers

Author: xzpeter

globals.lisp

@@ -102,8 +102,8 @@ generateing the map. ")
 
 (defun load-file-set-parameters (filename)
   "read one file and load all the parameters"
-  ;; without this, the settings won't work
-  (in-package :org.xzpeter.game.starwar)
+  ;; here, we MUST make sure that we are in the RIGHT package (that is the
+  ;; starwar package. or the parameters will not be set! 
   (with-open-file (s filename)
     (do ((form (read s) (read s nil 'eof)))
 	((eq form 'eof) nil)
@@ -163,6 +163,9 @@ INIT-AMOUNT is how many planets one player own at the beginning of game"
 		 (setq vlist (cons v vlist)))))))))
 
 (defun clear-global-vars ()
+  ;; without this, all the random numbers will be the same after saving
+  ;; the lisp core image
+  (setq *random-state* (make-random-state t))
   (setq *planet-list* nil)
   (setq *running* nil)
   (setq *paused* nil

starwar.conf

@@ -1,8 +1,8 @@
 ;; configuration file for starwar game
 
 (fullscreen		t)
-(screen-width		640)
-(screen-height		480)
+(screen-width		1024)
+(screen-height		768)
 
 (star-speed-max		3.0)
 (star-speed-min		0.5)

starwar.lisp

@@ -257,8 +257,6 @@ the outter rect. the rect is filled by VALUE/FULL-VALUE"
 (defun main ()
   ;; this might be useful when making binary images
   (in-package :org.xzpeter.game.starwar)
-  (setf *running* t
-	*paused*  nil)
   (sdl:with-init (sdl:sdl-init-video)
     (setq sdl:*default-font* (sdl:initialise-font sdl:*font-8x13o*))
     ;; (sdl:initialise-default-font sdl:*font-9x18b*)