From 4561cf44623c7a8d42eb76ee0149a0c308dcfd08 Mon Sep 17 00:00:00 2001 From: Boutade Date: Thu, 17 Oct 2019 16:38:22 -0500 Subject: sliding door --- assets.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'assets.lisp') diff --git a/assets.lisp b/assets.lisp index 0d38f7e..c0522de 100644 --- a/assets.lisp +++ b/assets.lisp @@ -107,7 +107,11 @@ (defvar *expression-texture*) (defvar *backdrop-texture*) (defvar *sliding-door-texture*) -(defvar *sliding-door-position* (sdl2:make-rect 800 8 104 138)) + +(defparameter +sliding-door-open-x+ 800) +(defparameter +sliding-door-closed-x+ 868) +(defvar *sliding-door-position* + (sdl2:make-rect +sliding-door-closed-x+ 8 104 138)) (defvar *harmony-initialized-p* nil) (defvar *cold-day-track*) -- cgit v1.2.3