equal
deleted
inserted
replaced
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; |