Minor tweaks to win condition

Author: lockie

Resources/maps/test.tmx

@@ -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">
@@ -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>

src/win.lisp

@@ -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))))