From 25061aee05d41254735b46298693326ca4d46a44 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 22 Jul 2018 14:05:59 +0200 Subject: Move "walk" procedure to characters module. --- scenes/game.scm | 26 -------------------------- 1 file changed, 26 deletions(-) (limited to 'scenes/game.scm') diff --git a/scenes/game.scm b/scenes/game.scm index ea3da09..d1500ff 100644 --- a/scenes/game.scm +++ b/scenes/game.scm @@ -48,32 +48,6 @@ (define-class () (object #:accessor object #:init-form #f #:init-keyword #:object)) -(define-method (walk (character ) directions . rest) - (unless (equal? (direction character) directions) - (let ((sprite (child-ref character 'sprite)) - (speed (if (member 'stop rest) 0.0 (walk-speed character)))) - (change-animation sprite (last directions)) - (for-each (lambda (dir) - (case dir - ((right) - (set-vec2-x! (velocity character) speed)) - ((left) - (set-vec2-x! (velocity character) (* -1.0 speed))) - ((up) - (set-vec2-y! (velocity character) speed)) - ((down) - (set-vec2-y! (velocity character) (* -1.0 speed))) - ((idle) - (set-vec2-x! (velocity character) 0.0) - (set-vec2-y! (velocity character) 0.0) - (change-animation sprite (case (last (direction character)) - ((right) 'idle-right) - ((left) 'idle-left) - ((up) 'idle-back) - ((down) 'idle-front)))))) - directions) - (set! (direction character) directions)))) - (define-asset test-map (load-tile-map "assets/maps/01.tmx")) -- cgit v1.2.3