equal
deleted
inserted
replaced
421 end; |
421 end; |
422 |
422 |
423 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs |
423 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs |
424 var Gear: PGear; |
424 var Gear: PGear; |
425 begin |
425 begin |
|
426 SweepDirty; // convenient place to clean up pixels after damage is run |
426 CheckNoDamage:= true; |
427 CheckNoDamage:= true; |
427 Gear:= GearsList; |
428 Gear:= GearsList; |
428 while Gear <> nil do |
429 while Gear <> nil do |
429 begin |
430 begin |
430 if Gear^.Kind = gtHedgehog then |
431 if Gear^.Kind = gtHedgehog then |