pti/bloatrunner
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix title, reduce chattiness

Browse source
This commit is contained in:
Peter Tillemans 2024-05-21 21:45:48 +02:00
parent ad4a4d118b
commit 6dd52bea3d
4 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
TODO.org
View file

@ -1,13 +1,13 @@
#+TITLE: Game TO DO List #+TITLE: Game TO DO List
* Game Plan * Game Plan [6/15]
- [x] start project organisation - [X] start project organization
- [x] select some assets to start with - [X] select some assets to start with
- [x] animate hero - [X] animate hero
- [x] figure out tile maps - [X] figure out tile maps
- [ ] create hero entity - [X] create hero entity
- [ ] implement hero movement - [X] implement hero movement
- [ ] create other entity - [ ] create other entity
- [ ] bundle game for distribution - [ ] bundle game for distribution
- [ ] upload to itch.io - [ ] upload to itch.io

9
bundle.scm
View file

@ -1,4 +1,13 @@
'((asset-directories . ("assets/images" "assets/levels")) '((asset-directories . ("assets/images" "assets/levels"))
(binary-directories . ("/usr/bin"
"/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/sbin"
"/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/bin")
)
(library-directories . ("/usr/lib/"
"/home/pti/.guix-profile/lib/"
"/home/pti/.guix-home/profile/lib/"
"/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/lib/")
)
(bundle-name . "bloatrunner-0.1.0-x86_64") (bundle-name . "bloatrunner-0.1.0-x86_64")
(code . "game/main.scm") (code . "game/main.scm")
(launcher-name . "bloatrunner")) (launcher-name . "bloatrunner"))

5
game/main.scm
View file

@ -32,7 +32,6 @@
(define (update dt) (define (update dt)
(poll-coop-repl-server repl) (poll-coop-repl-server repl)
(set! hero (hero-update hero level inputs dt)) (set! hero (hero-update hero level inputs dt))
(pretty-print hero)
) )
(define (draw _alpha) (define (draw _alpha)
@ -47,7 +46,6 @@
(define (key-press key _modifiers _repeat?) (define (key-press key _modifiers _repeat?)
(pretty-print (list 'press key inputs))
(set! inputs (set! inputs
(cond ((eq? key 'left) (set-add inputs 'left)) (cond ((eq? key 'left) (set-add inputs 'left))
((eq? key 'right) (set-add inputs 'right)) ((eq? key 'right) (set-add inputs 'right))
@ -59,7 +57,6 @@
(define (key-release key _modifiers) (define (key-release key _modifiers)
(pretty-print (list 'release key inputs))
(set! inputs (set! inputs
(cond ((eq? key 'left) (delete 'left inputs)) (cond ((eq? key 'left) (delete 'left inputs))
((eq? key 'right) (delete 'right inputs)) ((eq? key 'right) (delete 'right inputs))
@ -70,7 +67,7 @@
(define (launch-game args) (define (launch-game args)
(run-game (run-game
;; #:title "Bloatrunner" #:window-title "Bloatrunner"
#:load (lambda () (load)) #:load (lambda () (load))
#:update (lambda (dt) (update dt)) #:update (lambda (dt) (update dt))
#:draw (lambda (alpha) (draw alpha)) #:draw (lambda (alpha) (draw alpha))

2
game/model/hero.scm
View file

@ -73,7 +73,6 @@
(define (next-position position state inputs distance) (define (next-position position state inputs distance)
(pretty-print (list position state inputs distance))
(case state (case state
((fall) (vec2- position (vec2 0 distance))) ((fall) (vec2- position (vec2 0 distance)))
((go-left) (vec2- position (vec2 distance 0))) ((go-left) (vec2- position (vec2 distance 0)))
@ -94,7 +93,6 @@
(position (next-position (hero-position hero) (hero-state hero) inputs distance)) (position (next-position (hero-position hero) (hero-state hero) inputs distance))
(tile (level-tile-at level position)) (tile (level-tile-at level position))
) )
(pretty-print (list state position tile))
(hero-with-state (hero-with-state
(if (member tile '(empty ladder other)) (if (member tile '(empty ladder other))
(hero-with-position hero position) (hero-with-position hero position)