equal
deleted
inserted
replaced
392 procedure chHogSay(var s: shortstring); |
392 procedure chHogSay(var s: shortstring); |
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 or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0) then |
397 if CheckNoTeamOrHH |
|
398 or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0) |
|
399 or CurrentTeam^.ExtDriven then |
398 begin |
400 begin |
399 chSay(text); |
401 chSay(text); |
400 exit |
402 exit |
401 end; |
403 end; |
402 |
404 |