equal
deleted
inserted
replaced
3179 (*if (HHGear^.Message and gmPrecise) <> 0 then |
3179 (*if (HHGear^.Message and gmPrecise) <> 0 then |
3180 begin |
3180 begin |
3181 move:= _0_02; |
3181 move:= _0_02; |
3182 fuel:= 5; |
3182 fuel:= 5; |
3183 end;*) |
3183 end;*) |
3184 |
3184 if HHGear^.Message and gmPrecise <> 0 then |
3185 if Gear^.Health > 0 then |
3185 HedgehogChAngle(HHGear) |
3186 begin |
3186 else if Gear^.Health > 0 then |
3187 if (HHGear^.Message and gmUp) <> 0 then |
3187 begin |
|
3188 if HHGear^.Message and gmUp <> 0 then |
3188 begin |
3189 begin |
3189 if (not HHGear^.dY.isNegative) or (HHGear^.Y > -_256) then |
3190 if (not HHGear^.dY.isNegative) or (HHGear^.Y > -_256) then |
3190 begin |
3191 begin |
3191 if isUnderwater then |
3192 if isUnderwater then |
3192 begin |
3193 begin |
3249 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3250 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3250 FreeTexture(Gear^.Tex); |
3251 FreeTexture(Gear^.Tex); |
3251 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) + '%', cWhiteColor, fntSmall) |
3252 Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(i) + '%', cWhiteColor, fntSmall) |
3252 end; |
3253 end; |
3253 |
3254 |
3254 if HHGear^.Message and (gmAttack or gmUp or gmPrecise or gmLeft or gmRight) <> 0 then |
3255 if (HHGear^.Message and (gmAttack or gmUp or gmLeft or gmRight) <> 0) and |
|
3256 (HHGear^.Message and gmPrecise = 0) then |
3255 Gear^.State := Gear^.State and (not gsttmpFlag); |
3257 Gear^.State := Gear^.State and (not gsttmpFlag); |
3256 |
3258 |
3257 HHGear^.Message := HHGear^.Message and (not (gmUp or gmPrecise or gmLeft or gmRight)); |
3259 if HHGear^.Message and gmPrecise = 0 then |
|
3260 HHGear^.Message := HHGear^.Message and (not (gmUp or gmLeft or gmRight)); |
3258 HHGear^.State := HHGear^.State or gstMoving; |
3261 HHGear^.State := HHGear^.State or gstMoving; |
3259 |
3262 |
3260 Gear^.X := HHGear^.X; |
3263 Gear^.X := HHGear^.X; |
3261 Gear^.Y := HHGear^.Y; |
3264 Gear^.Y := HHGear^.Y; |
3262 |
3265 |