equal
deleted
inserted
replaced
43 Gear^.RenderTimer:= false; |
43 Gear^.RenderTimer:= false; |
44 Gear^.doStep:= @doStepDrowningGear; |
44 Gear^.doStep:= @doStepDrowningGear; |
45 if Gear^.Kind = gtHedgehog then |
45 if Gear^.Kind = gtHedgehog then |
46 begin |
46 begin |
47 Gear^.State:= Gear^.State and (not gstHHDriven); |
47 Gear^.State:= Gear^.State and (not gstHHDriven); |
48 AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage); |
48 AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), cWhiteColor, capgrpMessage); |
49 end |
49 end |
50 end; |
50 end; |
51 PlaySound(sndSplash, false, nil) |
51 PlaySound(sndSplash, false, nil) |
52 end |
52 end |
53 else |
53 else |
552 dec(Gear^.Timer); |
552 dec(Gear^.Timer); |
553 case Gear^.Kind of |
553 case Gear^.Kind of |
554 gtATStartGame: begin |
554 gtATStartGame: begin |
555 AllInactive:= false; |
555 AllInactive:= false; |
556 if Gear^.Timer = 0 then |
556 if Gear^.Timer = 0 then |
557 AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState); |
557 AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState); |
558 end; |
558 end; |
559 gtATSmoothWindCh: begin |
559 gtATSmoothWindCh: begin |
560 if Gear^.Timer = 0 then |
560 if Gear^.Timer = 0 then |
561 begin |
561 begin |
562 if WindBarWidth < Gear^.Tag then inc(WindBarWidth) |
562 if WindBarWidth < Gear^.Tag then inc(WindBarWidth) |
2381 end; |
2381 end; |
2382 |
2382 |
2383 if Gear^.Health < 0 then Gear^.Health:= 0; |
2383 if Gear^.Health < 0 then Gear^.Health:= 0; |
2384 if (GameTicks and $3F) = 0 then |
2384 if (GameTicks and $3F) = 0 then |
2385 begin |
2385 begin |
2386 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2386 //AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
2387 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2387 if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2388 Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall) |
2388 Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2389 end; |
2389 end; |
2390 |
2390 |
2391 if HHGear^.Message and (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State:= Gear^.State and not gsttmpFlag; |
2391 if HHGear^.Message and (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State:= Gear^.State and not gsttmpFlag; |
2392 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2392 HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right); |
2393 HHGear^.State:= HHGear^.State or gstMoving; |
2393 HHGear^.State:= HHGear^.State or gstMoving; |
2414 State:= State or gstMoving |
2414 State:= State or gstMoving |
2415 end; |
2415 end; |
2416 DeleteGear(Gear); |
2416 DeleteGear(Gear); |
2417 isCursorVisible:= false; |
2417 isCursorVisible:= false; |
2418 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2418 // if Gear^.Tex <> nil then FreeTexture(Gear^.Tex); |
2419 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall) |
2419 // Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall) |
2420 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2420 //AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate); |
2421 end |
2421 end |
2422 end; |
2422 end; |
2423 |
2423 |
2424 procedure doStepJetpack(Gear: PGear); |
2424 procedure doStepJetpack(Gear: PGear); |
2425 var HHGear: PGear; |
2425 var HHGear: PGear; |