diff -r 803b277e4894 -r 3f21a9dc93d0 hedgewars/PascalExports.pas --- 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}