travisshears/fennel_love2d_experiments
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

base: travisshears:99f73315b3af6c8c8633be66df3dd5e57ab9c4ef
Branches Tags
travisshears:main
..
compare: travisshears:20d7c75b07488fe34694f1aa756ff534d697142b
Branches Tags
travisshears:main

No commits in common. "99f73315b3af6c8c8633be66df3dd5e57ab9c4ef" and "20d7c75b07488fe34694f1aa756ff534d697142b" have entirely different histories.
99f73315b3 ... 20d7c75b07

8 changed files with 75 additions and 168 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
two_player_cleaning_game/assets/charging_station.aseprite
View file

Binary file not shown.

BIN
two_player_cleaning_game/assets/objects.aseprite
View file

Binary file not shown.

BIN
two_player_cleaning_game/assets/objects.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 549 B

31
two_player_cleaning_game/assets/tiled/level_001.tmx
View file

@ -4,25 +4,24 @@
<export target="level_001.tmj" format="json"/>
</editorsettings>
<tileset firstgid="1" source="walls.tsx"/>
<tileset firstgid="21" source="objects.tsx"/>
<layer id="1" name="Tile Layer 1" width="50" height="50">
<data encoding="csv">
5,1,1,1,1,1,1,1,1,1,1,1,12,1,1,1,1,1,1,1,12,1,1,1,1,1,1,1,1,12,1,1,1,1,1,1,1,1,1,12,1,1,1,1,1,1,1,1,1,4,
10,0,0,0,21,22,21,0,0,0,0,0,10,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,21,0,0,0,0,0,0,10,0,0,0,0,0,0,0,8,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
14,1,1,1,1,1,1,1,1,1,1,1,15,0,0,0,0,0,0,0,10,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,0,0,0,0,0,0,0,2,1,1,1,1,1,1,1,1,13,1,1,1,1,1,1,1,1,1,13,1,1,4,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,8,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,0,0,0,0,0,0,0,11,11,11,11,11,11,11,11,11,11,11,11,11,5,1,1,1,1,1,1,1,1,13,1,18,11,11,17,1,15,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
14,1,1,1,1,1,1,1,1,1,1,1,15,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,2,1,1,1,1,1,1,1,1,13,1,1,1,1,1,1,1,1,1,13,1,1,4,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,8,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,5,1,1,1,1,1,1,1,1,13,1,18,11,11,17,1,15,
10,11,11,11,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,
10,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,10,11,11,11,11,11,11,11,11,9,11,11,11,11,11,11,10,

20
two_player_cleaning_game/assets/tiled/objects.tsx
View file

@ -1,20 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<tileset version="1.10" tiledversion="1.12.1" name="objects" tilewidth="25" tileheight="25" tilecount="16" columns="4">
<image source="../objects.png" width="100" height="100"/>
<tile id="0">
<properties>
<property name="name" value="charging_pad"/>
</properties>
<objectgroup draworder="index" id="2">
<object id="1" x="2.08266" y="2.08266" width="21.0002" height="21.087"/>
</objectgroup>
</tile>
<tile id="1">
<properties>
<property name="name" value="charging_station"/>
</properties>
<objectgroup draworder="index" id="2">
<object id="1" x="1.12811" y="2.08266" width="22.8225" height="20.6531"/>
</objectgroup>
</tile>
</tileset>

22
two_player_cleaning_game/assets/tiled/untitled.tiled-session
View file

@ -1,17 +1,17 @@
{
"activeFile": "level_001.tmx",
"activeFile": "walls.tsx",
"expandedProjectPaths": [
"/Users/she0001t/personal_projects/fennel_love2d_experiments/two_player_cleaning_game",
"/Users/she0001t/personal_projects/fennel_love2d_experiments/two_player_cleaning_game/assets",
".",
"/Users/she0001t/personal_projects/fennel_love2d_experiments/two_player_cleaning_game/assets"
"/Users/she0001t/personal_projects/fennel_love2d_experiments/two_player_cleaning_game"
],
"fileStates": {
"level_001.tmx": {
"scale": 2.4998,
"scale": 4.0012,
"selectedLayer": 0,
"viewCenter": {
"x": 149.0119209536763,
"y": 73.8059044723578
"x": 821.1286614015795,
"y": 723.9078276517045
}
},
"map_tileset.tsx": {
@ -19,10 +19,6 @@
"scaleInDock": 1,
"scaleInEditor": 8
},
"objects.tsx": {
"scaleInDock": 1,
"scaleInEditor": 6.3771
},
"walls.tsx": {
"scaleInDock": 1.4397,
"scaleInEditor": 8.2977
@ -38,14 +34,12 @@
"map.width": 50,
"openFiles": [
"level_001.tmx",
"walls.tsx",
"objects.tsx"
"walls.tsx"
],
"project": "untitled.tiled-project",
"recentFiles": [
"objects.tsx",
"walls.tsx",
"level_001.tmx",
"walls.tsx",
"map_tileset.tsx"
],
"tileset.lastUsedFormat": "tsx",

2
two_player_cleaning_game/levels.fnl
View file

File diff suppressed because one or more lines are too long

168
two_player_cleaning_game/main.fnl
View file

@ -18,7 +18,6 @@
:black-half-tone [0 0 0 0.25]
})
(fn reset-color []
"reset color to white (no tinting)"
(love.graphics.setColor 1 1 1))
@ -31,17 +30,9 @@
(var player-art nil) ; 25x50 pixels each player is 25x25
(var dust-sprite nil) ; 35x35 pixels
(var battery-bar-sprite nil)
(local walls {
:sprite nil
:quads []
:batch nil
})
(local objects {
:sprite nil
:quads {}
:list []
})
(var walls-sprite nil)
(var walls-batch nil)
(var wall-quads nil)
(local screen
(let [scale 2 canvas-w 800 canvas-h 450]
{ :screen-w (* canvas-w scale)
@ -52,103 +43,52 @@
:canvas nil}))
(local camera {:x 0 :y 0})
(local debug false)
(lambda debug-print [obj]
(print (fennel.view obj)))
(local collider-debug-boxes [])
(lambda add-collider-debug-box [x y w h]
(table.insert collider-debug-boxes {: x : y :width w :height h}))
(local bump-world (bump.newWorld 25))
(local player { :x 50 :y 50 :w 25 :h 25 :speed 80 :battery 100 :rot 0 })
; 16:9 (Modern Widescreen - Recommended)**
; - **640x360** ← Best middle ground
; - 800x450
; - 1024x576
; - 1280x720
(fn load-walls []
(set walls.sprite (love.graphics.newImage "assets/walls.png"))
(set walls.batch (love.graphics.newSpriteBatch walls.sprite 2500))
;; load quads
(let [(w h) (walls.sprite:getDimensions)]
(for [i 0 19 1]
(table.insert walls.quads (love.graphics.newQuad (* i 25) 0 25 25 w h))))
;; fill batch
(each [_ row (pairs (. levels :level01 :tiles))]
(each [_ tile (pairs row)]
(let [
x tile.x
y tile.y
id tile.tile-id
colliders (or (. levels.level01.wall-colliders (- id 1)) [])]
(if (and (> id 0) (< id 21)) ;; 1-20 are wall tiles
(do
; (print (fennel.view {:quad (. walls.quads id) : x : y : id}))
(walls.batch:add (. walls.quads id) x y)
(each [_ collider (pairs colliders)]
(bump-world:add {: x : y :name :wall :behavior :block} (+ x collider.x) (+ y collider.y) collider.width collider.height)
(table.insert
collider-debug-boxes
{:x (+ x collider.x) :y (+ y collider.y) :width collider.width :height collider.height}))
))))))
(lambda create-charging-station [x y]
(let [
station {: x : y :type :charging-station :active-pads {1 false 2 false 3 false}}
pads {
1 {:x (- x 25) :y y :width 25 :height 25 :light-x (+ x 5)}
3 {:x (+ x 25) :y y :width 25 :height 25 :light-x (+ x 5 6 6)}
2 {:x x :y (+ y 25) :width 25 :height 25 :light-x (+ x 5 6)}
}]
(bump-world:add {: x : y :name :charging-station :behavior :block} x y 25 25)
(add-collider-debug-box x y 25 25)
(fn station.draw [self]
(reset-color)
(love.graphics.draw objects.sprite objects.quads.charging-station self.x self.y)
(for [i 1 3 1]
(let [pad (. pads i)]
(if (. self.active-pads i)
(do (love.graphics.draw objects.sprite objects.quads.charging-pad-active pad.x pad.y)
(set-color :light-pink)
(love.graphics.rectangle "fill" pad.light-x (+ y 18) 2 2)
(reset-color))
(love.graphics.draw objects.sprite objects.quads.charging-pad pad.x pad.y))))
)
(lambda pad-hover-cb [self dt]
(tset station.active-pads self.id true)
(when (< player.battery 100) (set player.battery (+ player.battery (* dt 6)))))
(lambda station.update [self _dt]
(set self.active-pads {1 false 2 false 3 false}))
(for [i 1 3 1]
(let [pad (. pads i)]
(bump-world:add {:name :charging-pad :behavior :hover :hover-cb pad-hover-cb :id i} pad.x pad.y 25 25)
(add-collider-debug-box pad.x pad.y 25 25)))
(table.insert objects.list station)))
(fn load-objects []
(set objects.sprite (love.graphics.newImage "assets/objects.png"))
(let [(w h) (objects.sprite:getDimensions)]
(set objects.quads.charging-pad (love.graphics.newQuad 0 0 25 25 w h))
(set objects.quads.charging-pad-active (love.graphics.newQuad 50 0 25 25 w h))
(set objects.quads.charging-station (love.graphics.newQuad 25 0 25 25 w h)))
(each [_ row (pairs (. levels :level01 :tiles))]
(each [_ tile (pairs row)]
(let [
x tile.x
y tile.y
id tile.tile-id]
(when (> id 20) ;; 21+ are object tiles
(when (= id 22) (create-charging-station x y)))))))
; **4:3 (Classic/Arcade Feel)**
; - **320x240** (very retro, but small)
; - **800x600** (spacious, classic 4:3)
; - 1024x768
(fn love.load []
(love.window.setMode screen.screen-w screen.screen-h)
(tset screen :canvas (love.graphics.newCanvas screen.canvas-w screen.canvas-h))
(bump-world:add player player.x player.y player.w player.h)
(load-walls)
(load-objects)
;; load world images
(set walls-sprite (love.graphics.newImage "assets/walls.png"))
(set walls-batch (love.graphics.newSpriteBatch walls-sprite 2500))
(set battery-bar-sprite (love.graphics.newImage "assets/battery_bar.png"))
;; load wall quads
(set wall-quads [])
(let [(w h) (: walls-sprite :getDimensions)]
(for [i 0 19 1]
(table.insert wall-quads (love.graphics.newQuad (* i 25) 0 25 25 w h))))
;; load tiles
(each [_ row (pairs (. levels :level01 :tiles))]
(each [_ tile (pairs row)]
(let [
x (. tile :x)
y (. tile :y)
id (. tile :tile-id)
colliders (or (. levels.level01.wall-colliders (- id 1)) [])]
(walls-batch:add (. wall-quads id) x y)
; (print (fennel.view colliders))
(each [_ collider (pairs colliders)]
(bump-world:add {: x : y :type "wall"} (+ x collider.x) (+ y collider.y) collider.width collider.height)
(table.insert
collider-debug-boxes
{:x (+ x collider.x) :y (+ y collider.y) :width collider.width :height collider.height})
))))
(set player-art
(let [
player-sprite (love.graphics.newImage "assets/player.png")
@ -185,17 +125,23 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
(fn draw-world []
(reset-color)
(love.graphics.draw walls.batch)
(love.graphics.draw walls-batch)
;; draw collider debug boxes
(when debug
(set-color :black)
(each [_ collider (pairs collider-debug-boxes)]
(love.graphics.rectangle "line" collider.x collider.y collider.width collider.height))))
(local has-true? (fn [lst]
(accumulate [found? false _ v (ipairs lst)]
(or found? v))))
; All true
(local all-true? (fn [lst]
(accumulate [result true _ v (ipairs lst)]
(and result v))))
(fn love.update [dt]
(each [_ obj (pairs objects.list)]
(obj:update dt))
; move / rotate player
(let [
d-key (love.keyboard.isDown :d)
@ -214,21 +160,14 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
dir-fn (if (or d-key a-key) #(+ $1 $2) #(- $1 $2))
new-x (dir-fn player.x (* player.speed dt (math.cos player.rot)))
new-y (dir-fn player.y (* player.speed dt (math.sin player.rot)))
col-filter-fn (lambda [item other]
(if (= other.behavior "block") :slide :cross))
(x y cols len) (bump-world:move player new-x new-y col-filter-fn)]
(tset player :x x)
(tset player :y y))
(if (> player.battery 0)
(set player.battery (- player.battery (* dt 2))))))
(x y) (bump-world:move player new-x new-y)]
(tset player :x x)
(tset player :y y))
(if (> player.battery 0)
(tset player :battery (- player.battery (* dt 2))))))
;; Update camera to follow player (keep player centered on screen)
(tset camera :x (- player.x (/ screen.canvas-w 2)))
(tset camera :y (- player.y (/ screen.canvas-h 2)))
(let
[(items len) (bump-world:queryRect player.x player.y 25 25 #(= $1.behavior "hover"))]
(each [_ item (pairs items)]
(item:hover-cb dt))))
(tset camera :y (- player.y (/ screen.canvas-h 2))))
(fn draw-ui []
(love.graphics.push)
@ -290,10 +229,6 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
(love.graphics.pop)
))
(fn draw-objects []
(each [_ obj (pairs objects.list)]
; (print (fennel.view obj))
(obj:draw)))
(fn love.draw []
(love.graphics.setCanvas screen.canvas)
@ -303,7 +238,6 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
(love.graphics.push) ; stores the default coordinate system
(love.graphics.translate (* -1 camera.x) (* -1 camera.y))
(draw-world)
(draw-objects)
(draw-player)
(love.graphics.pop)
(draw-ui)