hedgewars/PascalExports.pas
changeset 3649 bc35f8fee587
parent 3648 2477029463ed
child 3650 ec90e573f47a
--- a/hedgewars/PascalExports.pas	Sat Jul 17 06:56:39 2010 +0200
+++ b/hedgewars/PascalExports.pas	Sat Jul 17 16:35:14 2010 +0200
@@ -63,6 +63,7 @@
     rightKey:= false;
     upKey:= false;
     downKey:= false;
+    preciseKey:= false;
 end;
 
 procedure HW_otherKeysUp; cdecl; export;
@@ -88,6 +89,11 @@
     rightKey:= true;
 end;
 
+procedure HW_preciseSet(status:boolean); cdecl; export;
+begin
+    preciseKey:= status;
+end;
+
 procedure HW_aimUp; cdecl; export;
 begin
     upKey:= true;