equal
deleted
inserted
replaced
1609 Gear^.doStep:= @doStepIdle |
1609 Gear^.doStep:= @doStepIdle |
1610 end; |
1610 end; |
1611 |
1611 |
1612 //////////////////////////////////////////////////////////////////////////////// |
1612 //////////////////////////////////////////////////////////////////////////////// |
1613 procedure doStepFlame(Gear: PGear); |
1613 procedure doStepFlame(Gear: PGear); |
1614 var i: Integer; |
1614 var gX,gY,i: LongInt; |
1615 gX,gY: LongInt; |
|
1616 begin |
1615 begin |
1617 if (Gear^.State and gsttmpFlag) = 0 then AllInactive:= false; |
1616 if (Gear^.State and gsttmpFlag) = 0 then AllInactive:= false; |
1618 |
1617 |
1619 if not TestCollisionYwithGear(Gear, 1) then |
1618 if not TestCollisionYwithGear(Gear, 1) then |
1620 begin |
1619 begin |