hedgewars/PascalExports.pas
changeset 2805 36a8cebb91e8
parent 2803 1f446fc5c8ec
child 2905 f3c79f7193a9
equal deleted inserted replaced
2804:31c6c36c5d34 2805:36a8cebb91e8
    40 procedure HW_aimUp; cdecl; export;
    40 procedure HW_aimUp; cdecl; export;
    41 procedure HW_aimDown; cdecl; export;
    41 procedure HW_aimDown; cdecl; export;
    42 procedure HW_shoot; cdecl; export;
    42 procedure HW_shoot; cdecl; export;
    43 procedure HW_whereIsHog; cdecl; export;
    43 procedure HW_whereIsHog; cdecl; export;
    44 procedure HW_chat; cdecl; export;
    44 procedure HW_chat; cdecl; export;
       
    45 procedure HW_pause; cdecl; export;
    45 procedure HW_tab; cdecl; export;
    46 procedure HW_tab; cdecl; export;
    46 {$ENDIF}
    47 {$ENDIF}
    47 
    48 
    48 implementation
    49 implementation
    49 
    50 
   118 procedure HW_tab; cdecl; export;
   119 procedure HW_tab; cdecl; export;
   119 begin
   120 begin
   120 	switchAction:= true;
   121 	switchAction:= true;
   121 end;
   122 end;
   122 
   123 
       
   124 procedure HW_pause; cdecl; export;
       
   125 begin
       
   126 	pauseAction:= true;
       
   127 end;
       
   128 
   123 procedure HW_whereIsHog; cdecl; export;
   129 procedure HW_whereIsHog; cdecl; export;
   124 //var Xcoord, Ycoord: LongInt;
   130 //var Xcoord, Ycoord: LongInt;
   125 begin
   131 begin
   126 	//Xcoord:= Gear^.dX + WorldDx;
   132 	//Xcoord:= Gear^.dX + WorldDx;
   127 	WriteLnToConsole('HW - hog is at x: ' + ' y:');
   133 	WriteLnToConsole('HW - hog is at x: ' + ' y:');