1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- (pingus-controller
- (controls
- (standard-keyboard
- (sdl:keyboard))
- (standard-pointer
- (sdl:mouse-pointer))
- (standard-scroller
- (core:button-scroller
- (up (sdl:keyboard-button (key "Up")))
- (down (sdl:keyboard-button (key "Down")))
- (left (sdl:keyboard-button (key "Left")))
- (right (sdl:keyboard-button (key "Right")))))
- (primary-button
- (sdl:mouse-button (button 1)))
- (secondary-button
- (sdl:mouse-button (button 2))
- (sdl:mouse-button (button 3)))
- (pause-button
- (sdl:keyboard-button (key "P")))
- (fast-forward-button
- (sdl:keyboard-button (key "F"))
- (sdl:keyboard-button (key "Space")))
- (single-step-button
- (sdl:keyboard-button (key "S")))
- (armageddon-button
- (sdl:keyboard-button (key "A")))
- (escape-button
- (sdl:keyboard-button (key "Escape")))
- (action-up-button
- (sdl:mouse-button (button 4)))
- (action-down-button
- (sdl:keyboard-button (key "Tab"))
- (sdl:mouse-button (button 5)))
- (action-1-button (sdl:keyboard-button (key "1")))
- (action-2-button (sdl:keyboard-button (key "2")))
- (action-3-button (sdl:keyboard-button (key "3")))
- (action-4-button (sdl:keyboard-button (key "4")))
- (action-5-button (sdl:keyboard-button (key "5")))
- (action-6-button (sdl:keyboard-button (key "6")))
- (action-7-button (sdl:keyboard-button (key "7")))
- (action-8-button (sdl:keyboard-button (key "8")))
- (action-9-button (sdl:keyboard-button (key "9")))
- (action-10-button (sdl:keyboard-button (key "0")))
- ))
- ;; EOF ;;
|