changeset 3651 | 7058ca178f3b |
parent 3650 | ec90e573f47a |
child 3661 | 2378ada8a6ee |
3650:ec90e573f47a | 3651:7058ca178f3b |
---|---|
11 {$INCLUDE "options.inc"} |
11 {$INCLUDE "options.inc"} |
12 |
12 |
13 unit PascalExports; |
13 unit PascalExports; |
14 |
14 |
15 interface |
15 interface |
16 uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, hwengine; |
16 uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, uGears, hwengine; |
17 |
17 |
18 {$INCLUDE "config.inc"} |
18 {$INCLUDE "config.inc"} |
19 |
19 |
20 implementation |
20 implementation |
21 |
21 |
117 procedure HW_backjump; cdecl; export; |
117 procedure HW_backjump; cdecl; export; |
118 begin |
118 begin |
119 backspaceKey:= true; |
119 backspaceKey:= true; |
120 end; |
120 end; |
121 |
121 |
122 procedure HW_tab; cdecl; export; |
|
123 begin |
|
124 tabKey:= true; |
|
125 end; |
|
126 |
|
122 procedure HW_chat; cdecl; export; |
127 procedure HW_chat; cdecl; export; |
123 begin |
128 begin |
124 chatAction:= true; |
129 chatAction:= true; |
125 end; |
130 end; |
126 |
131 |
128 begin |
133 begin |
129 KeyPressChat(27); // esc - cleans buffer |
134 KeyPressChat(27); // esc - cleans buffer |
130 KeyPressChat(13); // enter - removes chat |
135 KeyPressChat(13); // enter - removes chat |
131 end; |
136 end; |
132 |
137 |
133 procedure HW_tab; cdecl; export; |
|
134 begin |
|
135 switchAction:= true; |
|
136 end; |
|
137 |
|
138 procedure HW_pause; cdecl; export; |
138 procedure HW_pause; cdecl; export; |
139 begin |
139 begin |
140 pauseAction:= true; |
140 pauseAction:= true; |
141 end; |
|
142 |
|
143 procedure HW_cursorUp(coefficient:LongInt); cdecl; export; |
|
144 begin |
|
145 coeff:= coefficient; |
|
146 cursorUp:= true; |
|
147 end; |
|
148 |
|
149 procedure HW_cursorDown(coefficient:LongInt); cdecl; export; |
|
150 begin |
|
151 coeff:= coefficient; |
|
152 cursorDown:= true; |
|
153 end; |
|
154 |
|
155 procedure HW_cursorLeft(coefficient:LongInt); cdecl; export; |
|
156 begin |
|
157 coeff:= coefficient; |
|
158 cursorLeft:= true; |
|
159 end; |
|
160 |
|
161 procedure HW_cursorRight(coefficient:LongInt); cdecl; export; |
|
162 begin |
|
163 coeff:= coefficient; |
|
164 cursorRight:= true; |
|
165 end; |
141 end; |
166 |
142 |
167 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
143 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
168 begin |
144 begin |
169 isTerminated:= true; |
145 isTerminated:= true; |
218 CurSlot:= CurrentHedgehog^.CurSlot; |
194 CurSlot:= CurrentHedgehog^.CurSlot; |
219 CurAmmo:= CurrentHedgehog^.CurAmmo; |
195 CurAmmo:= CurrentHedgehog^.CurAmmo; |
220 exit( (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0) |
196 exit( (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0) |
221 end; |
197 end; |
222 |
198 |
199 function HW_isWeaponSwitch: boolean cdecl; export; |
|
200 begin |
|
201 if CurAmmoGear <> nil then |
|
202 exit(CurAmmoGear^.AmmoType = amSwitch) |
|
203 else |
|
204 exit(false) |
|
205 end; |
|
206 |
|
223 procedure HW_setGrenadeTime(time: LongInt); cdecl; export; |
207 procedure HW_setGrenadeTime(time: LongInt); cdecl; export; |
224 begin |
208 begin |
225 ParseCommand('/timer ' + inttostr(time), true); |
209 ParseCommand('/timer ' + inttostr(time), true); |
226 end; |
210 end; |
227 |
211 |