equal
deleted
inserted
replaced
227 begin |
227 begin |
228 if CheckNoTeamOrHH then exit; |
228 if CheckNoTeamOrHH then exit; |
229 if not CurrentTeam^.ExtDriven then SendIPC('d'); |
229 if not CurrentTeam^.ExtDriven then SendIPC('d'); |
230 with CurrentHedgehog^.Gear^ do |
230 with CurrentHedgehog^.Gear^ do |
231 Message:= Message and not gm_Down |
231 Message:= Message and not gm_Down |
|
232 end; |
|
233 |
|
234 procedure chPrecise_p(var s: shortstring); |
|
235 begin |
|
236 if CheckNoTeamOrHH then exit; |
|
237 bShowFinger:= false; |
|
238 if not CurrentTeam^.ExtDriven then SendIPC('Z'); |
|
239 with CurrentHedgehog^.Gear^ do |
|
240 Message:= Message or gm_Precise |
|
241 end; |
|
242 |
|
243 procedure chPrecise_m(var s: shortstring); |
|
244 begin |
|
245 if CheckNoTeamOrHH then exit; |
|
246 if not CurrentTeam^.ExtDriven then SendIPC('z'); |
|
247 with CurrentHedgehog^.Gear^ do |
|
248 Message:= Message and not gm_Precise |
232 end; |
249 end; |
233 |
250 |
234 procedure chLJump(var s: shortstring); |
251 procedure chLJump(var s: shortstring); |
235 begin |
252 begin |
236 if CheckNoTeamOrHH then exit; |
253 if CheckNoTeamOrHH then exit; |