hedgewars/CCHandlers.inc
changeset 2111 9be70514954c
parent 2110 df2a1fe3617a
child 2114 9a8ccc7bc3d8
equal deleted inserted replaced
2110:df2a1fe3617a 2111:9be70514954c
   393 var Gear: PVisualGear;
   393 var Gear: PVisualGear;
   394     text: shortstring;
   394     text: shortstring;
   395 begin
   395 begin
   396 text:= copy(s, 2, Length(s)-1);
   396 text:= copy(s, 2, Length(s)-1);
   397 if CheckNoTeamOrHH
   397 if CheckNoTeamOrHH
   398   or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0)
   398   or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0) then
   399   or CurrentTeam^.ExtDriven then
       
   400     begin
   399     begin
   401     chSay(text);
   400     chSay(text);
   402     exit
   401     exit
   403     end;
   402     end;
   404 
   403