equal
deleted
inserted
replaced
5100 StopSound(Gear^.SoundChannel); |
5100 StopSound(Gear^.SoundChannel); |
5101 if (Gear^.Timer = 0) then |
5101 if (Gear^.Timer = 0) then |
5102 begin |
5102 begin |
5103 if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then |
5103 if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible = 0) then |
5104 begin |
5104 begin |
5105 AfterAttack; |
5105 AfterAttack; |
5106 if Gear = CurAmmoGear then CurAmmoGear := nil; |
5106 if Gear = CurAmmoGear then CurAmmoGear := nil; |
5107 HideHog(HH) |
5107 HideHog(HH) |
5108 end |
5108 end |
5109 //else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then |
5109 //else if (HH^.Gear <> nil) and (HH^.Gear^.State and gstInvisible <> 0) then |
5110 else if (HH^.GearHidden <> nil) then// and (HH^.Gear^.State and gstInvisible <> 0) then |
5110 else if (HH^.GearHidden <> nil) then// and (HH^.Gear^.State and gstInvisible <> 0) then |
5117 Gear^.SoundChannel := LoopSound(sndTardis); |
5117 Gear^.SoundChannel := LoopSound(sndTardis); |
5118 Gear^.Pos:= 3 |
5118 Gear^.Pos:= 3 |
5119 end |
5119 end |
5120 end; |
5120 end; |
5121 |
5121 |
5122 if (Gear^.Pos = 1) and (GameTicks and $1F = 0) and (Gear^.Power < 255) then inc(Gear^.Power); |
5122 if (Gear^.Pos = 1) and (GameTicks and $1F = 0) and (Gear^.Power < 255) then |
|
5123 begin |
|
5124 inc(Gear^.Power); |
|
5125 if (Gear^.Power = 172) and (Gear^.Hedgehog^.Gear <> nil) then |
|
5126 begin |
|
5127 with Gear^.Hedgehog^.Gear^ do |
|
5128 begin |
|
5129 State:= State or gstAnimation; |
|
5130 Tag:= 2; |
|
5131 Timer:= 0; |
|
5132 Pos:= 0 |
|
5133 end |
|
5134 end |
|
5135 end; |
5123 if (Gear^.Pos = 3) and (GameTicks and $1F = 0) and (Gear^.Power > 0) then dec(Gear^.Power); |
5136 if (Gear^.Pos = 3) and (GameTicks and $1F = 0) and (Gear^.Power > 0) then dec(Gear^.Power); |
5124 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then Gear^.Pos:= 2; |
5137 if (Gear^.Pos = 1) and (Gear^.Power = 255) and ((GameTicks mod 2000) = 1000) then Gear^.Pos:= 2; |
5125 if (Gear^.Pos = 3) and (Gear^.Power = 0) then |
5138 if (Gear^.Pos = 3) and (Gear^.Power = 0) then |
5126 begin |
5139 begin |
5127 StopSound(Gear^.SoundChannel); |
5140 StopSound(Gear^.SoundChannel); |