equal
deleted
inserted
replaced
569 if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480) |
569 if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480) |
570 end |
570 end |
571 end; |
571 end; |
572 |
572 |
573 procedure doStepSnowflake(Gear: PGear); |
573 procedure doStepSnowflake(Gear: PGear); |
574 var xx, yy, px, py, i: LongInt; |
574 var xx, yy, px, py: LongInt; |
575 move, draw, allpx, gun: Boolean; |
575 move, draw, allpx, gun: Boolean; |
576 s: PSDL_Surface; |
576 s: PSDL_Surface; |
577 p: PLongwordArray; |
577 p: PLongwordArray; |
578 oAlpha, nAlpha: byte; |
|
579 begin |
578 begin |
580 gun:= (Gear^.State and gstTmpFlag) <> 0; |
579 gun:= (Gear^.State and gstTmpFlag) <> 0; |
581 move:= false; |
580 move:= false; |
582 draw:= false; |
581 draw:= false; |
583 if gun then |
582 if gun then |
4795 end; |
4794 end; |
4796 |
4795 |
4797 //////////////////////////////////////////////////////////////////////////////// |
4796 //////////////////////////////////////////////////////////////////////////////// |
4798 procedure doStepStructure(Gear: PGear); |
4797 procedure doStepStructure(Gear: PGear); |
4799 var |
4798 var |
4800 i, x, y: LongInt; |
4799 x, y: LongInt; |
4801 dX, dY: HWFloat; |
4800 dX, dY: HWFloat; |
4802 hog: PHedgehog; |
4801 hog: PHedgehog; |
4803 begin |
4802 begin |
4804 if (Gear^.Hedgehog <> nil) and (Gear^.Tag = TotalRounds) then |
4803 if (Gear^.Hedgehog <> nil) and (Gear^.Tag = TotalRounds) then |
4805 begin |
4804 begin |