124 lines
2.1 KiB
OCaml
124 lines
2.1 KiB
OCaml
(* vim: set ts=2 sw=2 et : *)
|
|
|
|
(* open Event;; *)
|
|
|
|
type config_t = {
|
|
mutable width : int ;
|
|
mutable height : int;
|
|
}
|
|
|
|
|
|
|
|
type notification_t =
|
|
| Graphics_status of Graphics.status
|
|
| Tick
|
|
;;
|
|
|
|
|
|
|
|
type game_event_t =
|
|
| MoveLeft
|
|
| MoveRight
|
|
| MoveUp
|
|
| MoveDown
|
|
| Action
|
|
| ActionTwo
|
|
| Help
|
|
| Quit
|
|
| NoEvent
|
|
;;
|
|
|
|
let image_filename = "images/test.png"
|
|
;;
|
|
|
|
|
|
|
|
let string_of_keyboard_event event =
|
|
try
|
|
let chr = Sdlkey.char_of_key event.Sdlevent.keysym
|
|
in
|
|
String.make 1 chr
|
|
with
|
|
| Invalid_argument _ -> "unknown-key"
|
|
;;
|
|
|
|
|
|
|
|
(*
|
|
let rec event_loop () =
|
|
print_endline "Event_loop...";
|
|
Sdltimer.delay 20;
|
|
let match_event event = (
|
|
match event with
|
|
| Sdlevent.KEYDOWN {Sdlevent.keysym=Sdlkey.KEY_ESCAPE} ->
|
|
print_endline "You pressed escape! The fun is over now."
|
|
|
|
| Sdlevent.KEYDOWN event ->
|
|
Keyboard.handle_event event;
|
|
let keystr = string_of_keyboard_event event
|
|
in
|
|
print_endline ("You pressed " ^ keystr);
|
|
event_loop ()
|
|
|
|
| _ ->
|
|
event_loop ()
|
|
) in
|
|
|
|
let event_opt = Sdlevent.poll ()
|
|
in
|
|
|
|
match event_opt with
|
|
| None -> event_loop ()
|
|
| Some event -> match_event event;
|
|
;;
|
|
*)
|
|
|
|
|
|
(*
|
|
let rec game_loop ~screen =
|
|
let image = Sdlloader.load_image image_filename
|
|
and image_from = Sdlvideo.rect 0 0 300 300
|
|
and image_to = Sdlvideo.rect 100 0 300 300
|
|
in
|
|
Sdlvideo.blit_surface ~src:image ~src_rect:image_from ~dst:screen ~dst_rect:image_to ();
|
|
Sdlvideo.flip screen;
|
|
(* let action_fun = event_loop () ; *)
|
|
game_loop ~screen:screen
|
|
;;
|
|
*)
|
|
|
|
|
|
let main () =
|
|
let game = Game.create ()
|
|
in
|
|
Printf.printf "Game.configure...\n" ;
|
|
Game.configure game ;
|
|
Game.init game ;
|
|
Printf.printf "Game.loop...\n" ;
|
|
Game.loop game ;
|
|
fun x -> ignore x
|
|
;;
|
|
|
|
(*
|
|
in
|
|
let player1 = Player.create ()
|
|
and map1 = Level.create ()
|
|
and config = Config.create ()
|
|
in
|
|
( try
|
|
let config_file = config.find ()
|
|
config.load config_file
|
|
with
|
|
exit 1;
|
|
) ;
|
|
(* { width = 640 ; height = 480 } *)
|
|
ignore player1 ;
|
|
ignore map1 ;
|
|
Game.init game config;
|
|
Game.loop game;
|
|
(* close window *)
|
|
;;
|
|
*)
|
|
|
|
Printexc.print ( main () );
|