equal
deleted
inserted
replaced
1304 if t<h then |
1304 if t<h then |
1305 begin |
1305 begin |
1306 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1306 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1307 FollowGear^.Health:= cHealthCaseAmount; |
1307 FollowGear^.Health:= cHealthCaseAmount; |
1308 FollowGear^.Pos:= posCaseHealth; |
1308 FollowGear^.Pos:= posCaseHealth; |
|
1309 // health crate is smaller than the other crates |
|
1310 FollowGear^.Radius := cCaseHealthRadius; |
1309 AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo); |
1311 AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo); |
1310 end |
1312 end |
1311 else if (t<a+h) then |
1313 else if (t<a+h) then |
1312 begin |
1314 begin |
1313 t:= aTot; |
1315 t:= aTot; |