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 |
108 (* conflicts with resurrection |
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 *) |
116 |
117 |
117 procedure chFort(var s: shortstring); |
118 procedure chFort(var s: shortstring); |
118 begin |
119 begin |
119 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
120 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
120 if s[1]='"' then Delete(s, 1, 1); |
121 if s[1]='"' then Delete(s, 1, 1); |