equal
deleted
inserted
replaced
603 end |
603 end |
604 else if GameTicks and $7 = 0 then |
604 else if GameTicks and $7 = 0 then |
605 begin |
605 begin |
606 with Gear^ do |
606 with Gear^ do |
607 begin |
607 begin |
|
608 State:= State and not gstInvisible; |
608 X:= X + cWindSpeed * 1600 + dX; |
609 X:= X + cWindSpeed * 1600 + dX; |
609 Y:= Y + dY + cGravity * vobFallSpeed * 8; // using same value as flakes to try and get similar results |
610 Y:= Y + dY + cGravity * vobFallSpeed * 8; // using same value as flakes to try and get similar results |
610 xx:= hwRound(X); |
611 xx:= hwRound(X); |
611 yy:= hwRound(Y); |
612 yy:= hwRound(Y); |
612 if vobVelocity <> 0 then |
613 if vobVelocity <> 0 then |
723 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
724 ////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS //////////////////////////////////// |
724 end |
725 end |
725 end; |
726 end; |
726 |
727 |
727 if move then |
728 if move then |
728 begin |
|
729 if gun then |
729 if gun then |
730 begin |
730 DeleteGear(Gear) |
731 DeleteGear(Gear); |
731 else |
732 exit |
732 begin |
733 end; |
733 Gear^.X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |
734 Gear^.X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |
734 Gear^.Y:= int2hwFloat(750+(GetRandom(50)-25)); |
735 Gear^.Y:= int2hwFloat(750+(GetRandom(50)-25)) |
735 Gear^.State:= Gear^.State or gstInvisible; |
736 end |
736 end |
737 end; |
737 end; |
738 |
738 |
739 //////////////////////////////////////////////////////////////////////////////// |
739 //////////////////////////////////////////////////////////////////////////////// |
740 procedure doStepGrave(Gear: PGear); |
740 procedure doStepGrave(Gear: PGear); |
741 begin |
741 begin |