equal
deleted
inserted
replaced
328 if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
328 if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
329 |
329 |
330 with CurrentHedgehog^.Gear^ do |
330 with CurrentHedgehog^.Gear^ do |
331 begin |
331 begin |
332 Message:= Message or gm_Weapon; |
332 Message:= Message or gm_Weapon; |
|
333 MsgParam:= byte(s[1]) |
|
334 end |
|
335 end; |
|
336 |
|
337 procedure chTaunt(var s: shortstring); |
|
338 begin |
|
339 if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
|
340 |
|
341 if TWave(s[1]) > High(TWave) then exit; |
|
342 |
|
343 if not CurrentTeam^.ExtDriven then SendIPC('t' + s); |
|
344 |
|
345 with CurrentHedgehog^.Gear^ do |
|
346 begin |
|
347 Message:= Message or gm_Animate; |
333 MsgParam:= byte(s[1]) |
348 MsgParam:= byte(s[1]) |
334 end |
349 end |
335 end; |
350 end; |
336 |
351 |
337 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
352 procedure doPut(putX, putY: LongInt; fromAI: boolean); |