Remove Wolfenstein textures, add thatguynm textures

README.md

@@ -16,3 +16,8 @@ authored by Alex Griffith.
 A huge thank you to all aforementioned. You have made my learning possible, and
 my exploration into game-dev and Fennel/Love2D much more accessible and
 enjoyable!
+
+## Assets
+
+This project uses textures made by thatguynm found here:
+[64px Textures/Tilesheet](https://thatguynm.itch.io/pixelated-textures).

raycaster.fnl

@@ -20,22 +20,22 @@
 
 ; ### Texture Information ###
 (var walls [])
-(var wall-textures (love.filesystem.getDirectoryItems "textures/walls"))
+(var wall-textures (love.filesystem.getDirectoryItems "assets/textures/walls"))
 (var (tex-height tex-width) (values 64 64))
 
 (var skybox [])
-(var skybox-textures (love.filesystem.getDirectoryItems "textures/skybox"))
+(var skybox-textures (love.filesystem.getDirectoryItems "assets/textures/skybox"))
 
 (each [_ v (ipairs wall-textures)]
   (local wall {})
-  (tset wall :t (love.graphics.newImage (.. "textures/walls/" v)))
+  (tset wall :t (love.graphics.newImage (.. "assets/textures/walls/" v)))
   (tset wall :w (love.graphics.getWidth (. wall :t)))
   (tset wall :h (love.graphics.getHeight (. wall :t)))
   (table.insert walls wall))
 
 (each [_ v (ipairs skybox-textures)]
   (local skyb {})
-  (tset skyb :t (love.graphics.newImage (.. "textures/skybox/" v)))
+  (tset skyb :t (love.graphics.newImage (.. "assets/textures/skybox/" v)))
   (tset skyb :w (love.graphics.getWidth (. skyb :t)))
   (tset skyb :h (love.graphics.getHeight (. skyb :t)))
   (table.insert skybox skyb))
@@ -289,23 +289,5 @@
 
   :keypressed (fn keypressed [k]
     (when (= k "x") (love.event.quit))                
-    (when (= k "u") (set offst-x (+ offst-x 5)))
-    (when (= k "o") (set offst-x (- offst-x 5)))
-    (when (= k "y") (set offst-y (- offst-y 5)))
-    (when (= k "h") (set offst-y (+ offst-y 5)))
   )
 }
-
-; (fn move-player [x]
-;   (let [new-x (+ posx (* (math.cos dirx)) x) new-y (+ posy (* (math.sin diry)) x)]
-;     (when (= (. map (math.floor new-y) (math.floor new-x)) 0)
-;       (set posx new-x) (set posy new-y))))
-
-; (fn rotate-player [d]
-;   (local rotation-speed 1)
-;   (var old-dirx dirx)
-;   (set dirx (- (* dirx (math.cos (* d rotation-speed))) (* diry (math.sin (* d rotation-speed)))))
-;   (set diry (+ (* old-dirx (math.sin (* d rotation-speed))) (* diry (math.cos (* d rotation-speed)))))
-;   (var old-planex planex)
-;   (set planex (- (* planex (math.cos (* d rotation-speed))) (* planey (math.sin (* d rotation-speed)))))
-;   (set planey (+ (* old-planex (math.sin (* d rotation-speed))) (* planey (math.cos (* d rotation-speed))))))