103 s:= s; // avoid compiler hint |
103 s:= s; // avoid compiler hint |
104 if not isDeveloperMode then exit; |
104 if not isDeveloperMode then exit; |
105 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/rdriven"', true); |
105 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/rdriven"', true); |
106 CurrentTeam^.ExtDriven:= true |
106 CurrentTeam^.ExtDriven:= true |
107 end; |
107 end; |
108 (* conflicts with resurrection |
108 |
109 procedure chGrave(var s: shortstring); |
109 procedure chGrave(var s: shortstring); |
110 begin |
110 begin |
111 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true); |
111 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true); |
112 if s[1]='"' then Delete(s, 1, 1); |
112 if s[1]='"' then Delete(s, 1, 1); |
113 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
113 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
114 CurrentTeam^.GraveName:= s |
114 CurrentTeam^.GraveName:= s |
115 end; |
115 end; |
116 *) |
|
117 |
116 |
118 procedure chFort(var s: shortstring); |
117 procedure chFort(var s: shortstring); |
119 begin |
118 begin |
120 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
119 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
121 if s[1]='"' then Delete(s, 1, 1); |
120 if s[1]='"' then Delete(s, 1, 1); |
576 begin |
575 begin |
577 SpeechType:= byte(s[1])-3; |
576 SpeechType:= byte(s[1])-3; |
578 SpeechText:= text |
577 SpeechText:= text |
579 end; |
578 end; |
580 |
579 |
581 end; |
|
582 |
|
583 procedure chNewGrave; |
|
584 begin |
|
585 if CheckNoTeamOrHH or isPaused then exit; |
|
586 |
|
587 if ReadyTimeLeft > 1 then ReadyTimeLeft:= 1; |
|
588 |
|
589 if not CurrentTeam^.ExtDriven then SendIPC('g'); |
|
590 |
|
591 AddGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), gtGrave, 0, _0, _0, 0) |
|
592 end; |
580 end; |
593 |
581 |
594 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
582 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
595 begin |
583 begin |
596 if CheckNoTeamOrHH or isPaused then exit; |
584 if CheckNoTeamOrHH or isPaused then exit; |