hedgewars/uGearsList.pas
changeset 13101 d78e65c66573
parent 12903 8a40ce061d94
child 13159 44351ea57b71
equal deleted inserted replaced
13100:4118006fab95 13101:d78e65c66573
   313                 gear^.Density:= _3;
   313                 gear^.Density:= _3;
   314                 gear^.Z:= cHHZ;
   314                 gear^.Z:= cHHZ;
   315                 if (GameFlags and gfAISurvival) <> 0 then
   315                 if (GameFlags and gfAISurvival) <> 0 then
   316                     if gear^.Hedgehog^.BotLevel > 0 then
   316                     if gear^.Hedgehog^.BotLevel > 0 then
   317                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   317                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
       
   318                 if (GameFlags and gfArtillery) <> 0 then
       
   319                     gear^.Hedgehog^.Effects[heArtillery] := 1;
   318                 // this would presumably be set in the frontend
   320                 // this would presumably be set in the frontend
   319                 // if we weren't going to do that yet, would need to reinit GetRandom
   321                 // if we weren't going to do that yet, would need to reinit GetRandom
   320                 // oh, and, randomising slightly R and B might be nice too.
   322                 // oh, and, randomising slightly R and B might be nice too.
   321                 //gear^.Tint:= $fa00efff or ((random(80)+128) shl 16)
   323                 //gear^.Tint:= $fa00efff or ((random(80)+128) shl 16)
   322                 //gear^.Tint:= $faa4efff
   324                 //gear^.Tint:= $faa4efff