hedgewars/uGearsList.pas
changeset 7077 74b0265d79e8
parent 7069 bcf9d8e64e92
child 7093 2d7f1fb73335
equal deleted inserted replaced
7076:fed718e7851d 7077:74b0265d79e8
   148                 gear^.Angle:= cMaxAngle div 2;
   148                 gear^.Angle:= cMaxAngle div 2;
   149                 gear^.Density:= _3;
   149                 gear^.Density:= _3;
   150                 gear^.Z:= cHHZ;
   150                 gear^.Z:= cHHZ;
   151                 if (GameFlags and gfAISurvival) <> 0 then
   151                 if (GameFlags and gfAISurvival) <> 0 then
   152                     if gear^.Hedgehog^.BotLevel > 0 then
   152                     if gear^.Hedgehog^.BotLevel > 0 then
   153                         gear^.Hedgehog^.Effects[heResurrectable] := 0;
   153                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   154                 end;
   154                 end;
   155        gtShell: begin
   155        gtShell: begin
   156                 gear^.Radius:= 4;
   156                 gear^.Radius:= 4;
   157                 gear^.Density:= _1;
   157                 gear^.Density:= _1;
   158                 end;
   158                 end;