From 32f4a501b1153f83e1871e6d5e47686bc4fce667 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Filip=20B=C3=A1rtek?= <Filip.Bartek@hotmail.com>
Date: Sun, 2 Feb 2014 20:22:31 +0100
Subject: [PATCH] Counts and draws score for individual players

---
 studna.gmx/objects/obj_pl.object.gmx | 47 ++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/studna.gmx/objects/obj_pl.object.gmx b/studna.gmx/objects/obj_pl.object.gmx
index b7883ac..a65b77f 100644
--- a/studna.gmx/objects/obj_pl.object.gmx
+++ b/studna.gmx/objects/obj_pl.object.gmx
@@ -36,6 +36,8 @@ gravity_size = gravity_size_pps / room_speed;
 maxvspeed_pps = 480;
 maxvspeed = maxvspeed_pps / room_speed;
 
+pl_score = 0;
+
 </string>
           </argument>
         </arguments>
@@ -112,6 +114,7 @@ if (place_free(x, y + 1)) {
             <kind>1</kind>
             <string>/// Warp up if too low
 if (y &gt;= view_yview[VIEW_MAIN] + view_hview[VIEW_MAIN] - 64) {
+    pl_score++;
     y = view_yview[VIEW_MAIN];
 }
 
@@ -174,6 +177,50 @@ gravity = 0;
         </arguments>
       </action>
     </event>
+    <event eventtype="8" enumb="0">
+      <action>
+        <libid>1</libid>
+        <id>500</id>
+        <kind>0</kind>
+        <userelative>0</userelative>
+        <isquestion>0</isquestion>
+        <useapplyto>0</useapplyto>
+        <exetype>2</exetype>
+        <functionname></functionname>
+        <codestring>draw_self();</codestring>
+        <whoName>self</whoName>
+        <relative>0</relative>
+        <isnot>0</isnot>
+      </action>
+      <action>
+        <libid>1</libid>
+        <id>514</id>
+        <kind>0</kind>
+        <userelative>-1</userelative>
+        <isquestion>0</isquestion>
+        <useapplyto>-1</useapplyto>
+        <exetype>1</exetype>
+        <functionname>action_draw_text</functionname>
+        <codestring></codestring>
+        <whoName>self</whoName>
+        <relative>0</relative>
+        <isnot>0</isnot>
+        <arguments>
+          <argument>
+            <kind>2</kind>
+            <string>"" + string(pl_score)</string>
+          </argument>
+          <argument>
+            <kind>0</kind>
+            <string>x</string>
+          </argument>
+          <argument>
+            <kind>0</kind>
+            <string>y</string>
+          </argument>
+        </arguments>
+      </action>
+    </event>
   </events>
   <PhysicsObject>0</PhysicsObject>
   <PhysicsObjectSensor>0</PhysicsObjectSensor>