equal
deleted
inserted
replaced
195 end; |
195 end; |
196 |
196 |
197 //////////////////////////////////////////////////////////////////////////////// |
197 //////////////////////////////////////////////////////////////////////////////// |
198 procedure doStepLineTrail(Gear: PVisualGear; Steps: Longword); |
198 procedure doStepLineTrail(Gear: PVisualGear; Steps: Longword); |
199 begin |
199 begin |
|
200 {$IFNDEF PAS2C} |
200 Steps := Steps; |
201 Steps := Steps; |
|
202 {$ENDIF} |
201 if Gear^.Timer <= Steps then |
203 if Gear^.Timer <= Steps then |
202 DeleteVisualGear(Gear) |
204 DeleteVisualGear(Gear) |
203 else |
205 else |
204 dec(Gear^.Timer, Steps) |
206 dec(Gear^.Timer, Steps) |
205 end; |
207 end; |
462 procedure doStepTeamHealthSorter(Gear: PVisualGear; Steps: Longword); |
464 procedure doStepTeamHealthSorter(Gear: PVisualGear; Steps: Longword); |
463 var i: Longword; |
465 var i: Longword; |
464 b: boolean; |
466 b: boolean; |
465 t: LongInt; |
467 t: LongInt; |
466 begin |
468 begin |
|
469 {$IFNDEF PAS2C} |
467 Steps:= Steps; // avoid compiler hint |
470 Steps:= Steps; // avoid compiler hint |
|
471 {$ENDIF} |
468 |
472 |
469 for t:= 0 to Pred(TeamsCount) do |
473 for t:= 0 to Pred(TeamsCount) do |
470 with thexchar[t] do |
474 with thexchar[t] do |
471 begin |
475 begin |
472 team:= TeamsArray[t]; |
476 team:= TeamsArray[t]; |
530 end; |
534 end; |
531 end; |
535 end; |
532 |
536 |
533 procedure doStepSpeechBubble(Gear: PVisualGear; Steps: Longword); |
537 procedure doStepSpeechBubble(Gear: PVisualGear; Steps: Longword); |
534 begin |
538 begin |
|
539 |
|
540 {$IFNDEF PAS2C} |
535 Steps:= Steps; // avoid compiler hint |
541 Steps:= Steps; // avoid compiler hint |
|
542 {$ENDIF} |
536 |
543 |
537 with Gear^.Hedgehog^ do |
544 with Gear^.Hedgehog^ do |
538 if SpeechGear <> nil then |
545 if SpeechGear <> nil then |
539 SpeechGear^.Timer:= 0; |
546 SpeechGear^.Timer:= 0; |
540 |
547 |