equal
deleted
inserted
replaced
5124 end; |
5124 end; |
5125 |
5125 |
5126 if (Gear^.Pos = 1) and (GameTicks and $1F = 0) and (Gear^.Power < 255) then |
5126 if (Gear^.Pos = 1) and (GameTicks and $1F = 0) and (Gear^.Power < 255) then |
5127 begin |
5127 begin |
5128 inc(Gear^.Power); |
5128 inc(Gear^.Power); |
5129 if (Gear^.Power = 172) and (Gear^.Hedgehog^.Gear <> nil) and ((Gear^.Hedgehog^.Gear^.State and gstHHDeath) = 0) then |
5129 if (Gear^.Power = 172) and (Gear^.Hedgehog^.Gear <> nil) then |
5130 begin |
|
5131 with Gear^.Hedgehog^.Gear^ do |
5130 with Gear^.Hedgehog^.Gear^ do |
5132 begin |
5131 begin |
5133 State:= State or gstAnimation; |
5132 State:= State or gstAnimation; |
5134 Tag:= 2; |
5133 Tag:= 2; |
5135 Timer:= 0; |
5134 Timer:= 0; |
5136 Pos:= 0 |
5135 Pos:= 0 |
5137 end |
5136 end |
5138 end |
|
5139 end; |
5137 end; |
5140 if (Gear^.Pos = 3) and (GameTicks and $1F = 0) and (Gear^.Power > 0) then dec(Gear^.Power); |
5138 if (Gear^.Pos = 3) and (GameTicks and $1F = 0) and (Gear^.Power > 0) then dec(Gear^.Power); |
5141 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then Gear^.Pos:= 2; |
5139 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then Gear^.Pos:= 2; |
5142 if (Gear^.Pos = 3) and (Gear^.Power = 0) then |
5140 if (Gear^.Pos = 3) and (Gear^.Power = 0) then |
5143 begin |
5141 begin |