extra/jamshred/game/game.factor

   1 ! Copyright (C) 2007 Alex Chapman
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel opengl arrays sequences jamshred.tunnel
   4 jamshred.player math.vectors ;
   5 IN: jamshred.game
   6
   7 TUPLE: jamshred tunnel players running ;
   8
   9 : <jamshred> ( -- jamshred )
  10     <random-tunnel> "Player 1" <player> 2dup swap play-in-tunnel 1array f
  11     jamshred boa ;
  12
  13 : jamshred-player ( jamshred -- player )
  14     ! TODO: support more than one player
  15     jamshred-players first ;
  16
  17 : jamshred-update ( jamshred -- )
  18     dup jamshred-running [
  19         jamshred-player update-player
  20     ] [ drop ] if ;
  21
  22 : toggle-running ( jamshred -- )
  23     dup jamshred-running not swap set-jamshred-running ;
  24
  25 : mouse-moved ( x-radians y-radians jamshred -- )
  26     jamshred-player -rot turn-player ;