hedgewars/uGearsList.pas
changeset 15101 eff1a080cf40
parent 15043 01bb1d7ca14f
child 15113 7a54df47b852
equal deleted inserted replaced
15100:e13b9054316b 15101:eff1a080cf40
   393                 gear^.Elasticity:= _0_9;
   393                 gear^.Elasticity:= _0_9;
   394                 gear^.Tag:= 0;
   394                 gear^.Tag:= 0;
   395                 gear^.State:= Gear^.State or gstSubmersible
   395                 gear^.State:= Gear^.State or gstSubmersible
   396                 end;
   396                 end;
   397    gtSeduction: begin
   397    gtSeduction: begin
   398                 gear^.Radius:= 250;
   398                 gear^.Radius:= cSeductionDist;
   399                 end;
   399                 end;
   400  gtShotgunShot: begin
   400  gtShotgunShot: begin
   401                 if gear^.Timer = 0 then gear^.Timer:= 900;
   401                 if gear^.Timer = 0 then gear^.Timer:= 900;
   402                 gear^.Radius:= 2
   402                 gear^.Radius:= 2
   403                 end;
   403                 end;
   715                 if gear^.Timer = 0 then gear^.Timer:= 5000;
   715                 if gear^.Timer = 0 then gear^.Timer:= 5000;
   716                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   716                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   717                 gear^.Tint:= $C0C000C0
   717                 gear^.Tint:= $C0C000C0
   718                 end;
   718                 end;
   719  gtResurrector: begin
   719  gtResurrector: begin
   720                 gear^.Radius := 100;
   720                 gear^.Radius := cResurrectorDist;
   721                 gear^.Tag := 0;
   721                 gear^.Tag := 0;
   722                 gear^.Tint:= $F5DB35FF
   722                 gear^.Tint:= $F5DB35FF
   723                 end;
   723                 end;
   724      gtWaterUp: begin
   724      gtWaterUp: begin
   725                 gear^.Tag := 47;
   725                 gear^.Tag := 47;