equal
deleted
inserted
replaced
5090 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(t) + |
5090 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(t) + |
5091 '%', cWhiteColor, fntSmall) |
5091 '%', cWhiteColor, fntSmall) |
5092 end; |
5092 end; |
5093 if Gear^.Message and (gmUp or gmDown) <> 0 then |
5093 if Gear^.Message and (gmUp or gmDown) <> 0 then |
5094 begin |
5094 begin |
|
5095 StopSoundChan(Gear^.SoundChannel); |
|
5096 Gear^.SoundChannel:= -1; |
5095 if GameTicks mod 40 = 0 then dec(Gear^.Health) |
5097 if GameTicks mod 40 = 0 then dec(Gear^.Health) |
5096 end |
5098 end |
5097 else if GameTicks mod 10 = 0 then dec(Gear^.Health); |
5099 else |
|
5100 begin |
|
5101 if Gear^.SoundChannel = -1 then |
|
5102 Gear^.SoundChannel := LoopSound(sndIceBeam); |
|
5103 if GameTicks mod 10 = 0 then dec(Gear^.Health) |
|
5104 end |
5098 end; |
5105 end; |
5099 |
5106 |
5100 |
5107 |
5101 procedure updateTarget(Gear:PGear; newX, newY:HWFloat); |
5108 procedure updateTarget(Gear:PGear; newX, newY:HWFloat); |
5102 // var |
5109 // var |
5133 vg: PVisualGear; |
5140 vg: PVisualGear; |
5134 begin |
5141 begin |
5135 HHGear := Gear^.Hedgehog^.Gear; |
5142 HHGear := Gear^.Hedgehog^.Gear; |
5136 if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then |
5143 if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then |
5137 begin |
5144 begin |
|
5145 StopSoundChan(Gear^.SoundChannel); |
5138 DeleteGear(Gear); |
5146 DeleteGear(Gear); |
5139 AfterAttack; |
5147 AfterAttack; |
5140 exit |
5148 exit |
5141 end; |
5149 end; |
5142 updateFuel(Gear); |
5150 updateFuel(Gear); |