equal
deleted
inserted
replaced
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:'); |