From 4116f2ccf02cda8c3a083a62aa91e4e3956dfb73 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 12 Nov 2018 18:00:28 +0100 Subject: game: Use "and" instead of weird "if". --- scenes/game.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'scenes') diff --git a/scenes/game.scm b/scenes/game.scm index f49a17a..f896cd8 100644 --- a/scenes/game.scm +++ b/scenes/game.scm @@ -122,14 +122,13 @@ positions layer." (- (rect-y r-wrong) (rect-height r-wrong)) (rect-width r-wrong) (rect-height r-wrong)))) - (if (rect-intersects? hitbox r) - (begin - (set-rect-x! hit-vis (+ (rect-x r) (vec2-x offset))) - (set-rect-y! hit-vis (+ (rect-y r) (vec2-y offset))) - (set-rect-width! hit-vis (rect-width r)) - (set-rect-height! hit-vis (rect-height r)) - obj) - #f))) + (and (rect-intersects? hitbox r) + (begin + (set-rect-x! hit-vis (+ (rect-x r) (vec2-x offset))) + (set-rect-y! hit-vis (+ (rect-y r) (vec2-y offset))) + (set-rect-width! hit-vis (rect-width r)) + (set-rect-height! hit-vis (rect-height r)) + obj)))) (object-layer-objects (tile-map-layer-ref (asset-ref (tile-map game)) layer))))) -- cgit v1.2.3