equal
deleted
inserted
replaced
386 with CurrentHedgehog^.Gear^ do |
386 with CurrentHedgehog^.Gear^ do |
387 begin |
387 begin |
388 Message:= Message or gm_Animate; |
388 Message:= Message or gm_Animate; |
389 MsgParam:= byte(s[1]) |
389 MsgParam:= byte(s[1]) |
390 end |
390 end |
|
391 end; |
|
392 |
|
393 procedure chNewGrave; |
|
394 begin |
|
395 if CheckNoTeamOrHH then exit; |
|
396 |
|
397 if not CurrentTeam^.ExtDriven then SendIPC('g'); |
|
398 |
|
399 AddGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), gtGrave, 0, _0, _0, 0) |
391 end; |
400 end; |
392 |
401 |
393 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
402 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
394 begin |
403 begin |
395 if CheckNoTeamOrHH then exit; |
404 if CheckNoTeamOrHH then exit; |