hedgewars/PascalExports.pas
changeset 2948 3f21a9dc93d0
parent 2924 908851e59958
child 3015 20a9c8160e82
--- a/hedgewars/PascalExports.pas	Sat Mar 06 10:54:24 2010 +0000
+++ b/hedgewars/PascalExports.pas	Sat Mar 06 10:59:20 2010 +0000
@@ -51,88 +51,88 @@
 {$IFDEF HWLIBRARY}
 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export;
 begin
-	if netProto <> nil then netProto^:= cNetProtoVersion;
-	if versionStr <> nil then versionStr^:= shortstring(cVersionString);
+    if netProto <> nil then netProto^:= cNetProtoVersion;
+    if versionStr <> nil then versionStr^:= shortstring(cVersionString);
 end;
 
 procedure HW_click; cdecl; export;
 begin
-	leftClick:= true;
+    leftClick:= true;
 end;
 
 procedure HW_zoomIn; cdecl; export;
 begin
-	wheelUp:= true;
+    wheelUp:= true;
 end;
 
 procedure HW_zoomOut; cdecl; export;
 begin
-	wheelDown:= true;
+    wheelDown:= true;
 end;
 
 procedure HW_zoomReset; cdecl; export;
 begin
-	middleClick:= true;
+    middleClick:= true;
 end;
 
 procedure HW_ammoMenu; cdecl; export;
 begin
-	rightClick:= true;
+    rightClick:= true;
 end;
 
 procedure HW_allKeysUp; cdecl; export;
 begin
-	// set all keys to released
-	init_uKeys();
+    // set all keys to released
+    init_uKeys();
 end;
 
 procedure HW_walkLeft; cdecl; export;
 begin
-	leftKey:= true;
+    leftKey:= true;
 end;
 
 procedure HW_walkRight; cdecl; export;
 begin
-	rightKey:= true;
+    rightKey:= true;
 end;
 
 procedure HW_aimUp; cdecl; export;
 begin
-	upKey:= true;
+    upKey:= true;
 end;
 
 procedure HW_aimDown; cdecl; export;
 begin
-	downKey:= true;
+    downKey:= true;
 end;
 
 procedure HW_shoot; cdecl; export;
 begin
-	spaceKey:= true;
+    spaceKey:= true;
 end;
 
 procedure HW_chat; cdecl; export;
 begin
-	chatAction:= true;
+    chatAction:= true;
 end;
 
 procedure HW_tab; cdecl; export;
 begin
-	switchAction:= true;
+    switchAction:= true;
 end;
 
 procedure HW_pause; cdecl; export;
 begin
-	pauseAction:= true;
+    pauseAction:= true;
 end;
 
 procedure HW_whereIsHog; cdecl; export;
 //var Xcoord, Ycoord: LongInt;
 begin
-	//Xcoord:= Gear^.dX + WorldDx;
-	WriteLnToConsole('HW - hog is at x: ' + ' y:');
+    //Xcoord:= Gear^.dX + WorldDx;
+    WriteLnToConsole('HW - hog is at x: ' + ' y:');
 
-	exit
+    exit
 end;
 {$ENDIF}