Mercurial Mercurial > hedgewars / 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/uVisualGears.pas
branchhedgeroid
changeset 5824 2e5835130d9a
parent 5800 3a04c30e5ac7
child 5832 f730c8a9777b
equal deleted inserted replaced
5733:5ab22736bdb6 5824:2e5835130d9a 
    27  * of visual nature.
 
    27  * of visual nature.
 
    28  *
 
    28  *
 
    29  * E.g.: background flakes, visual effects: explosion, smoke trails, etc.
 
    29  * E.g.: background flakes, visual effects: explosion, smoke trails, etc.
 
    30  *)
 
    30  *)
 
    31 interface
 
    31 interface
 
    32 uses uConsts, uFloat, GLunit, uTypes;
 
    32 uses uConsts, uFloat, GLunit, uTypes, uWorld;
 
    33 
    33 
    34 procedure initModule;
 
    34 procedure initModule;
 
    35 procedure freeModule;
 
    35 procedure freeModule;
 
    36 
    36 
    37 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
 
    37 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
 
   315   vgtBulletHit: begin
 
   315   vgtBulletHit: begin
 
   316                 dx:= 0;
 
   316                 dx:= 0;
 
   317                 dy:= 0;
 
   317                 dy:= 0;
 
   318                 FrameTicks:= 350;
 
   318                 FrameTicks:= 350;
 
   319                 Frame:= 7;
 
   319                 Frame:= 7;
 
   320                 Angle := 0;
 
   320                 Angle:= 0;
 
   321                 end;
 
   321                 end;
 
   322 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
 
   322 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
 
   323  vgtStraightShot: begin
 
   323  vgtStraightShot: begin
 
       
   324                 Scale:= 1.0;
 
   324                 dx:= 0.001 * random(45);
 
   325                 dx:= 0.001 * random(45);
 
   325                 dy:= 0.001 * (random(20) + 25);
 
   326                 dy:= 0.001 * (random(20) + 25);
 
   326                 State:= ord(sprHealth);
 
   327                 State:= ord(sprHealth);
 
   327                 if random(2) = 0 then dx := -dx;
 
   328                 if random(2) = 0 then dx := -dx;
 
   328                 Frame:= 0;
 
   329                 Frame:= 0;
 
   492 
   493 
   493 procedure DrawVisualGears(Layer: LongWord);
 
   494 procedure DrawVisualGears(Layer: LongWord);
 
   494 var Gear: PVisualGear;
 
   495 var Gear: PVisualGear;
 
   495     tinted: boolean;
 
   496     tinted: boolean;
 
   496     tmp: real;
 
   497     tmp: real;
 
       
   498     i: LongInt;
 
   497 begin
 
   499 begin
 
   498 case Layer of
 
   500 case Layer of
 
   499     // this layer is very distant in the background when stereo
 
   501     // this layer is very distant in the background when stereo
 
   500     0: begin
 
   502     0: begin
 
   501        Gear:= VisualGearsLayer0;
 
   503        Gear:= VisualGearsLayer0;
 
   590                                    if Gear^.Angle = 0 then DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex)
 
   592                                    if Gear^.Angle = 0 then DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex)
 
   591                                    else DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex, Gear^.Angle); 
   593                                    else DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex, Gear^.Angle); 
   592                                    SetScale(zoom)
 
   594                                    SetScale(zoom)
 
   593                                    end
 
   595                                    end
 
   594                                end;
 
   596                                end;
 
   595     //if Ger^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
 
   597                vgtStraightShot: begin 
   596                vgtStraightShot: DrawRotatedF(TSprite(Gear^.State), round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
 
   598                                 if Gear^.dX < 0 then i:= -1 else i:= 1;
 
       
   599                                 DrawTextureF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height);
 
       
   600                                 end;
 
   597            end;
 
   601            end;
 
   598            if (cReducedQuality and rqAntiBoom) = 0 then
 
   602            if (cReducedQuality and rqAntiBoom) = 0 then
 
   599                case Gear^.Kind of
 
   603                case Gear^.Kind of
 
   600                    vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
 
   604                    vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
 
   601                end;
 
   605                end;
hedgewars