equal
deleted
inserted
replaced
3085 or (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear( |
3085 or (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear( |
3086 HHGear, 1)) |
3086 HHGear, 1)) |
3087 or ((Gear^.Message and gmAttack) <> 0) then |
3087 or ((Gear^.Message and gmAttack) <> 0) then |
3088 begin |
3088 begin |
3089 with HHGear^ do |
3089 with HHGear^ do |
3090 begin |
3090 begin |
3091 Message := 0; |
3091 Message := 0; |
3092 Active := true; |
3092 Active := true; |
3093 State := State or gstMoving |
3093 State := State or gstMoving |
3094 end; |
3094 end; |
3095 DeleteGear(Gear); |
3095 DeleteGear(Gear); |
3096 isCursorVisible := false; |
3096 isCursorVisible := false; |
3097 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
3097 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
3098 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
3098 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
3099 |
3099 |
3100 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
3100 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
3101 |
3101 |
3102 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3102 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
3103 end |
3103 end |
3104 end; |
3104 end; |
3105 |
3105 |
3106 //////////////////////////////////////////////////////////////////////////////// |
3106 //////////////////////////////////////////////////////////////////////////////// |
3107 procedure doStepJetpack(Gear: PGear); |
3107 procedure doStepJetpack(Gear: PGear); |
3108 var |
3108 var |