extra/balloon-bomber/balloon-bomber.factor

   1 ! Copyright (C) 2007 Chris Double.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 !\r
   4 ! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb\r
   5 !\r
   6 USING: kernel space-invaders ui ;\r
   7 IN: balloon-bomber\r
   8 \r
   9 TUPLE: balloon-bomber < space-invaders ;\r
  10 \r
  11 : <balloon-bomber> ( -- cpu )\r
  12     balloon-bomber new cpu-init ;\r
  13 \r
  14 CONSTANT: rom-info {\r
  15     { 0x0000 "ballbomb/tn01" }\r
  16     { 0x0800 "ballbomb/tn02" }\r
  17     { 0x1000 "ballbomb/tn03" }\r
  18     { 0x1800 "ballbomb/tn04" }\r
  19     { 0x4000 "ballbomb/tn05-1" }\r
  20 }\r
  21 \r
  22 : run-balloon ( -- )\r
  23     [\r
  24         "Ballon Bomber" <balloon-bomber> rom-info run-rom\r
  25     ] with-ui ;\r
  26 \r
  27 MAIN: run-balloon\r