steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unbassackwardsify the mouse, q and e rotate too

db4
U-C4\Administrator 2009-05-13 19:26:08 -05:00
parent 72c2d86893
commit d810905d85
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/terrain/terrain.factor
View File

@ -125,7 +125,7 @@ M: terrain-world tick-length
: look-horizontally ( player x -- ) : look-horizontally ( player x -- )
[ + ] curry change-yaw drop ; [ + ] curry change-yaw drop ;
: look-vertically ( player x -- ) : look-vertically ( player x -- )
[ - clamp-pitch ] curry change-pitch drop ; [ + clamp-pitch ] curry change-pitch drop ;
: rotate-with-mouse ( player mouse -- ) : rotate-with-mouse ( player mouse -- )
@ -139,10 +139,12 @@ M: terrain-world tick-length
key-s keys nth [ player walk-backward ] when key-s keys nth [ player walk-backward ] when
key-a keys nth [ player walk-leftward ] when key-a keys nth [ player walk-leftward ] when
key-d keys nth [ player walk-rightward ] when key-d keys nth [ player walk-rightward ] when
key-q keys nth [ player -1 look-horizontally ] when
key-e keys nth [ player 1 look-horizontally ] when
key-left-arrow keys nth [ player -1 look-horizontally ] when key-left-arrow keys nth [ player -1 look-horizontally ] when
key-right-arrow keys nth [ player 1 look-horizontally ] when key-right-arrow keys nth [ player 1 look-horizontally ] when
key-down-arrow keys nth [ player -1 look-vertically ] when key-down-arrow keys nth [ player 1 look-vertically ] when
key-up-arrow keys nth [ player 1 look-vertically ] when key-up-arrow keys nth [ player -1 look-vertically ] when
key-space keys nth [ player jump ] when key-space keys nth [ player jump ] when
key-escape keys nth [ world close-window ] when key-escape keys nth [ world close-window ] when
player read-mouse rotate-with-mouse player read-mouse rotate-with-mouse