Skip to content

Commit

Permalink
Minor tweaks to win condition
Browse files Browse the repository at this point in the history
  • Loading branch information
lockie committed Jun 4, 2023
1 parent 3d98bef commit 33497dd
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 2 deletions.
8 changes: 7 additions & 1 deletion Resources/maps/test.tmx
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="40" height="23" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="5">
<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="40" height="23" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="7">
<tileset firstgid="1" name="Dungeon tiles" tilewidth="16" tileheight="16" tilecount="625" columns="25">
<image source="../images/Environment/Dungeon Prison/Assets/Tiles.png" width="400" height="400"/>
<tile id="0">
Expand Down Expand Up @@ -273,5 +273,11 @@
</properties>
<point/>
</object>
<object id="6" name="win" x="63.083" y="193.892">
<properties>
<property name="object" value="((:win))"/>
</properties>
<point/>
</object>
</objectgroup>
</map>
2 changes: 1 addition & 1 deletion src/win.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,6 @@
(when (< (distance player-x player-y position-x position-y)
(* 4f0 +scaled-tile-size+ +scaled-tile-size+))
(al:show-native-message-box (cffi:null-pointer)
"You win!" "" "Thanks for playing!"
"You won!" "" "Thanks for playing!"
(cffi:null-pointer) 0)
(setf *quit* t))))

0 comments on commit 33497dd

Please sign in to comment.