Mercurial Mercurial > sheepy-clone / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsList.pas
changeset 7442 9bb6abdb5675
parent 7395 d0d38cd0d27c
child 7602 a620319d377e
equal deleted inserted replaced
7392:bc3306c59a08 7442:9bb6abdb5675 
    25 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 
    25 function  AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 
    26 procedure DeleteGear(Gear: PGear);
 
    26 procedure DeleteGear(Gear: PGear);
 
    27 procedure InsertGearToList(Gear: PGear);
 
    27 procedure InsertGearToList(Gear: PGear);
 
    28 procedure RemoveGearFromList(Gear: PGear);
 
    28 procedure RemoveGearFromList(Gear: PGear);
 
    29 
    29 
       
    30 var curHandledGear: PGear;
 
       
    31 
    30 implementation
 
    32 implementation
 
    31 
    33 
    32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats,
 
    34 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats,
 
    33     uTextures, uScript, uRenderUtils, uAI, uCollisions,
 
    35     uTextures, uScript, uRenderUtils, uAI, uCollisions,
 
    34     uGearsRender, uGearsUtils;
 
    36     uGearsRender, uGearsUtils, uDebug;
 
    35 
    37 
    36 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless
 
    38 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless
 
    37 
    39 
    38 procedure InsertGearToList(Gear: PGear);
 
    40 procedure InsertGearToList(Gear: PGear);
 
    39 var tmp, ptmp: PGear;
 
    41 var tmp, ptmp: PGear;
 
    61             Gear^.NextGear^.PrevGear:= Gear;
 
    63             Gear^.NextGear^.PrevGear:= Gear;
 
    62         GearsList:= Gear;
 
    64         GearsList:= Gear;
 
    63         end;
 
    65         end;
 
    64 end;
 
    66 end;
 
    65 
    67 
       
    68 
    66 procedure RemoveGearFromList(Gear: PGear);
 
    69 procedure RemoveGearFromList(Gear: PGear);
 
    67 begin
 
    70 begin
 
       
    71 TryDo((curHandledGear = nil) or (Gear = curHandledGear), 'You''re doing it wrong', true);
 
       
    72 
    68 if Gear^.NextGear <> nil then
 
    73 if Gear^.NextGear <> nil then
 
    69     Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
 
    74     Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
 
    70 if Gear^.PrevGear <> nil then
 
    75 if Gear^.PrevGear <> nil then
 
    71     Gear^.PrevGear^.NextGear:= Gear^.NextGear
 
    76     Gear^.PrevGear^.NextGear:= Gear^.NextGear
 
    72 else
 
    77 else
 
    73     GearsList:= Gear^.NextGear
 
    78     GearsList:= Gear^.NextGear
 
    74 end;
 
    79 end;
 
    75     
    80 
       
    81 
    76 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 
    82 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 
    77 var gear: PGear;
 
    83 var gear: PGear;
 
    78 begin
 
    84 begin
 
    79 inc(GCounter);
 
    85 inc(GCounter);
 
    80 AddFileLog('AddGear: #' + inttostr(GCounter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 
    86 AddFileLog('AddGear: #' + inttostr(GCounter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 
    90 gear^.dX:= dX;
 
    96 gear^.dX:= dX;
 
    91 gear^.dY:= dY;
 
    97 gear^.dY:= dY;
 
    92 gear^.doStep:= doStepHandlers[Kind];
 
    98 gear^.doStep:= doStepHandlers[Kind];
 
    93 gear^.CollisionIndex:= -1;
 
    99 gear^.CollisionIndex:= -1;
 
    94 gear^.Timer:= Timer;
 
   100 gear^.Timer:= Timer;
 
    95 gear^.FlightTime:= 0;
 
       
    96 gear^.uid:= GCounter;
 
   101 gear^.uid:= GCounter;
 
    97 gear^.SoundChannel:= -1;
 
   102 gear^.SoundChannel:= -1;
 
    98 gear^.ImpactSound:= sndNone;
 
   103 gear^.ImpactSound:= sndNone;
 
    99 gear^.nImpactSounds:= 0;
 
       
   100 gear^.Density:= _1;
 
   104 gear^.Density:= _1;
 
   101 // Define ammo association, if any.
 
   105 // Define ammo association, if any.
 
   102 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
 
   106 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
 
   103 gear^.CollisionMask:= $FFFF;
 
   107 gear^.CollisionMask:= $FFFF;
 
   104 gear^.Power:= 0;
 
       
   105 
   108 
   106 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
 
   109 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
 
   107 
   110 
   108 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
 
   111 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
 
   109     gear^.Z:= cHHZ+1
 
   112     gear^.Z:= cHHZ+1
 
   458                 gear^.Timer:= 0;
 
   461                 gear^.Timer:= 0;
 
   459                 gear^.Tag:= TotalRounds + 3;
 
   462                 gear^.Tag:= TotalRounds + 3;
 
   460                 gear^.Pos:= 1;
 
   463                 gear^.Pos:= 1;
 
   461                 end;
 
   464                 end;
 
   462       gtIceGun: gear^.Health:= 1000;
 
   465       gtIceGun: gear^.Health:= 1000;
 
       
   466 gtGenericFaller:begin
 
       
   467                 gear^.AdvBounce:= 1;
 
       
   468                 gear^.Radius:= 1;
 
       
   469                 gear^.Elasticity:= _0_9;
 
       
   470                 gear^.Friction:= _0_995;
 
       
   471                 gear^.Density:= _1;
 
       
   472                 end;
 
   463     end;
 
   473     end;
 
   464 
   474 
   465 InsertGearToList(gear);
 
   475 InsertGearToList(gear);
 
   466 AddGear:= gear;
 
   476 AddGear:= gear;
 
   467 
   477 
   555                 FreeTexture(Team^.AIKillsTex);
 
   565                 FreeTexture(Team^.AIKillsTex);
 
   556                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);
 
   566                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);
 
   557                 end
 
   567                 end
 
   558         end;
 
   568         end;
 
   559 with Gear^ do
 
   569 with Gear^ do
 
       
   570     begin
 
   560     AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 
   571     AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 
   561 
   572     AddRandomness(X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac)
 
       
   573     end;
 
   562 if CurAmmoGear = Gear then
 
   574 if CurAmmoGear = Gear then
 
   563     CurAmmoGear:= nil;
 
   575     CurAmmoGear:= nil;
 
   564 if FollowGear = Gear then
 
   576 if FollowGear = Gear then
 
   565     FollowGear:= nil;
 
   577     FollowGear:= nil;
 
   566 if lastGearByUID = Gear then
 
   578 if lastGearByUID = Gear then
sheepy-clone