diff -r 2305bb5dc5f2 -r ad4f81fbfb76 hedgewars/PascalExports.pas --- a/hedgewars/PascalExports.pas Thu Feb 04 22:34:21 2010 +0000 +++ b/hedgewars/PascalExports.pas Fri Feb 05 00:43:56 2010 +0000 @@ -39,7 +39,8 @@ procedure HW_aimDown; cdecl; export; procedure HW_shoot; cdecl; export; procedure HW_whereIsHog; cdecl; export; - +procedure HW_chat; cdecl; export; +procedure HW_tab; cdecl; export; {$ENDIF} implementation @@ -78,11 +79,8 @@ procedure HW_allKeysUp; cdecl; export; begin - upKey:= false; - downKey:= false; - leftKey:= false; - rightKey:= false; - spaceKey:= false; + // set all keys to released + init_uKeys(); end; procedure HW_walkLeft; cdecl; export; @@ -110,6 +108,16 @@ spaceKey:= true; end; +procedure HW_chat; cdecl; export; +begin + chatAction:= true; +end; + +procedure HW_tab; cdecl; export; +begin + switchAction:= true; +end; + procedure HW_whereIsHog; cdecl; export; //var Xcoord, Ycoord: LongInt; begin