hedgewars/uVisualGears.pas
author unc0rr
Thu, 05 Apr 2012 00:42:43 +0400
changeset 6856 a5b0afb60862
parent 6803 0e70f3ea3bf8
child 6913 73984ea24ff5
permissions -rw-r--r--
More external definitions for pas2c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1047
diff changeset
     2
 * Hedgewars, a free turn based strategy game
6700
e04da46ee43c the most important commit of the year
koda
parents: 6580
diff changeset
     3
 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     4
 *
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     8
 *
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    13
 *
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    17
 *)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    18
2599
c7153d2348f3 move compiler directives to standard pascal
koda
parents: 2587
diff changeset
    19
{$INCLUDE "options.inc"}
2587
0dfa56a8513c fix a segfault in the iphone simulator by moving options.inc at the beginning of the file
koda
parents: 2428
diff changeset
    20
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    21
unit uVisualGears;
5121
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    22
(*
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    23
 * This unit defines the behavior and the appearance of visual gears.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    24
 *
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    25
 * Visual gears are "things"/"objects" in the game that do not need to be
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    26
 * perfectly synchronized over all clients since their effect is only
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    27
 * of visual nature.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    28
 *
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    29
 * E.g.: background flakes, visual effects: explosion, smoke trails, etc.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    30
 *)
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    31
interface
5855
74c621e12baa I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents: 5832
diff changeset
    32
uses uConsts, uFloat, GLunit, uTypes, uWorld;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    33
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    34
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    35
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2715
diff changeset
    36
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
    37
function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    38
procedure ProcessVisualGears(Steps: Longword);
3083
8da8f2515221 Eliminate flake kick on themes with no flakes, more than 200 flakes (city) or explosions of 25 or smaller
nemo
parents: 3080
diff changeset
    39
procedure KickFlakes(Radius, X, Y: LongInt);
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
    40
procedure DrawVisualGears(Layer: LongWord);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
    41
procedure DeleteVisualGear(Gear: PVisualGear);
4443
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
    42
function  VisualGearByUID(uid : Longword) : PVisualGear;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    43
procedure AddClouds;
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
    44
procedure ChangeToSDClouds;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    45
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    46
procedure ChangeToSDFlakes;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    47
procedure AddDamageTag(X, Y, Damage, Color: LongWord);
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    48
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    49
implementation
6856
a5b0afb60862 More external definitions for pas2c
unc0rr
parents: 6803
diff changeset
    50
uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils;
4368
unc0rr
parents: 4361
diff changeset
    51
1047
ca7078116c0c Update explosion graphics
unc0rr
parents: 1046
diff changeset
    52
const cExplFrameTicks = 110;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    53
5121
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    54
// For better maintainability the step handlers of visual gears are stored
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    55
// in a separate file.
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    56
{$INCLUDE "VGSHandlers.inc"}
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    57
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    58
procedure AddDamageTag(X, Y, Damage, Color: LongWord);
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    59
var s: shortstring;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    60
    Gear: PVisualGear;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    61
begin
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    62
if cAltDamage then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    63
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    64
    Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    65
    if Gear <> nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    66
        with Gear^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    67
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    68
            str(Damage, s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    69
            Tex:= RenderStringTex(s, Color, fntSmall);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    70
            end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    71
    end
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    72
end;
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    73
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    74
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    75
// ==================================================================
2042
905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep
nemo
parents: 2014
diff changeset
    76
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    77
// ==================================================================
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    78
const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    79
        (
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    80
            @doStepFlake,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    81
            @doStepCloud,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    82
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    83
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    84
            @doStepFire,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    85
            @doStepSmallDamage,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    86
            @doStepTeamHealthSorter,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    87
            @doStepSpeechBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    88
            @doStepBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    89
            @doStepSteam,
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
    90
            @doStepAmmo,
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    91
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    92
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    93
            @doStepShell,
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
    94
            @doStepDust,
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
    95
            @doStepSplash,
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
    96
            @doStepDroplet,
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
    97
            @doStepSmokeRing,
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
    98
            @doStepBeeTrace,
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
    99
            @doStepEgg,
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   100
            @doStepFeather,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   101
            @doStepHealthTag,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   102
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   103
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   104
            @doStepExplosion,
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   105
            @doStepBigExplosion,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   106
            @doStepChunk,
4279
b697a26ed538 Light trails for bullets
Palewolf
parents: 4159
diff changeset
   107
            @doStepNote,
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   108
            @doStepLineTrail,
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
   109
            @doStepBulletHit,
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   110
            @doStepCircle,
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   111
            @doStepSmoothWindBar,
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   112
            @doStepStraightShot
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   113
        );
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   114
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
   115
function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   116
const VGCounter: Longword = 0;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   117
var gear: PVisualGear;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   118
    t: Longword;
4379
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4378
diff changeset
   119
    sp: real;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   120
begin
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   121
AddVisualGear:= nil;
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   122
if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) and // we are scrolling now
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   123
   ((Kind <> vgtCloud) and (not Critical)) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   124
       exit;
1642
177b440773de Disable visual gears when quick replaying
unc0rr
parents: 1505
diff changeset
   125
4809
9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents: 4806
diff changeset
   126
if ((cReducedQuality and rqAntiBoom) <> 0) and
6453
11c578d30bd3 Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents: 6380
diff changeset
   127
   (not Critical) and
11c578d30bd3 Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents: 6380
diff changeset
   128
   (not (Kind in
3447
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   129
   [vgtTeamHealthSorter,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   130
    vgtSmallDamageTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   131
    vgtSpeechBubble,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   132
    vgtHealthTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   133
    vgtExplosion,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   134
    vgtSmokeTrace,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   135
    vgtEvilTrace,
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   136
    vgtNote,
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   137
    vgtSmoothWindBar])) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   138
    
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   139
        exit;
1812
3d4692e825e7 'Reduce quality' patch by nemo
unc0rr
parents: 1801
diff changeset
   140
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   141
inc(VGCounter);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   142
New(gear);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   143
FillChar(gear^, sizeof(TVisualGear), 0);
4379
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4378
diff changeset
   144
gear^.X:= real(X);
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4378
diff changeset
   145
gear^.Y:= real(Y);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   146
gear^.Kind := Kind;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   147
gear^.doStep:= doStepHandlers[Kind];
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   148
gear^.State:= 0;
3475
95345f98da19 Engine:
smxx
parents: 3447
diff changeset
   149
gear^.Tint:= $FFFFFFFF;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   150
gear^.uid:= VGCounter;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   151
gear^.Layer:= 0;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   152
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   153
with gear^ do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   154
    case Kind of
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   155
    vgtFlake:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   156
                begin
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   157
                Timer:= 0;
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   158
                tdX:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   159
                tdY:= 0;
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   160
                Scale:= 1.0;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   161
                if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   162
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   163
                    FrameTicks:= random(vobSDFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   164
                    Frame:= random(vobSDFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   165
                    end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   166
                else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   167
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   168
                    FrameTicks:= random(vobFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   169
                    Frame:= random(vobFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   170
                    end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   171
                Angle:= random * 360;
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   172
                dx:= 0.0000038654705 * random(10000);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   173
                dy:= 0.000003506096 * random(7000);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   174
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   175
                    dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   176
                if SuddenDeathDmg then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   177
                    dAngle:= (random(2) * 2 - 1) * (1 + random) * vobSDVelocity / 1000
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   178
                else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   179
                    dAngle:= (random(2) * 2 - 1) * (1 + random) * vobVelocity / 1000
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   180
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   181
    vgtCloud:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   182
                begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   183
                Frame:= random(4);
3994
486da687d76a fix/tweak let clouds reflect wind speed and direction again + stronger
sheepluva
parents: 3976
diff changeset
   184
                dx:= 0.5 + 0.1 * random(5); // how much the cloud will be affected by wind
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   185
                timer:= random(4096);
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   186
                Scale:= 1.0
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   187
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   188
    vgtExplPart,
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   189
    vgtExplPart2:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   190
                begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   191
                t:= random(1024);
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   192
                sp:= 0.001 * (random(95) + 70);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   193
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   194
                dy:= hwFloat2Float(AngleCos(t)) * sp;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   195
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   196
                    dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   197
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   198
                    dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   199
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   200
                FrameTicks:= cExplFrameTicks
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   201
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   202
        vgtFire:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   203
                begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   204
                t:= random(1024);
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   205
                sp:= 0.001 * (random(85) + 95);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   206
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   207
                dy:= hwFloat2Float(AngleCos(t)) * sp;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   208
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   209
                    dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   210
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   211
                    dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   212
                FrameTicks:= 650 + random(250);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   213
                Frame:= random(8)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   214
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   215
         vgtEgg:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   216
                begin
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   217
                t:= random(1024);
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   218
                sp:= 0.001 * (random(85) + 95);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   219
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   220
                dy:= hwFloat2Float(AngleCos(t)) * sp;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   221
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   222
                    dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   223
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   224
                    dy := -dy;
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   225
                FrameTicks:= 650 + random(250);
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   226
                Frame:= 1
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   227
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   228
        vgtShell: FrameTicks:= 500;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   229
    vgtSmallDamageTag:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   230
                begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   231
                gear^.FrameTicks:= 1100
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   232
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   233
    vgtBubble:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   234
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   235
                dx:= 0.0000038654705 * random(10000);
3909
4ba25a3d15af remove windspeed from bubbles, remove initial dY from bubbles, apply dY/dX to bubbles, correct offsets on flying saucer flame graphics, add bubbles when flying saucer thrusts underwater, make flying saucer sink more slowly underwater
nemo
parents: 3836
diff changeset
   236
                dy:= 0;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   237
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   238
                    dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   239
                FrameTicks:= 250 + random(1751);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   240
                Frame:= random(5)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   241
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   242
    vgtSteam:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   243
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   244
                dx:= 0.0000038654705 * random(10000);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   245
                dy:= 0.001 * (random(85) + 95);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   246
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   247
                    dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   248
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   249
                FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   250
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   251
    vgtAmmo:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   252
                begin
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   253
                alpha:= 1.0;
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   254
                scale:= 1.0
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   255
                end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3689
diff changeset
   256
  vgtSmokeWhite,
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   257
  vgtSmoke:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   258
                begin
5690
f6e0c5bd8020 Allow vgtSmoke to scale. Scale it down 50% for mines, so smoke doesn't seem so oversized
nemo
parents: 5596
diff changeset
   259
                Scale:= 1.0;
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   260
                dx:= 0.0002 * (random(45) + 10);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   261
                dy:= 0.0002 * (random(45) + 10);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   262
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   263
                    dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   264
                Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   265
                FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   266
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   267
  vgtDust:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   268
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   269
                dx:= 0.005 * (random(15) + 10);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   270
                dy:= 0.001 * (random(40) + 20);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   271
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   272
                    dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   273
                Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   274
                FrameTicks:= random(20) + 15;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   275
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   276
  vgtSplash:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   277
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   278
                dx:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   279
                dy:= 0;
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   280
                FrameTicks:= 740;
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   281
                Frame:= 19;
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   282
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   283
    vgtDroplet:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   284
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   285
                dx:= 0.001 * (random(75) + 15);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   286
                dy:= -0.001 * (random(80) + 120);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   287
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   288
                    dx := -dx;
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   289
                FrameTicks:= 250 + random(1751);
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   290
                Frame:= random(3)
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   291
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   292
   vgtBeeTrace:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   293
                begin
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   294
                FrameTicks:= 1000;
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   295
                Frame:= random(16);
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   296
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   297
    vgtSmokeRing:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   298
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   299
                dx:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   300
                dy:= 0;
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   301
                FrameTicks:= 600;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   302
                Timer:= 0;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   303
                Frame:= 0;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   304
                scale:= 0.6;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   305
                alpha:= 1;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   306
                angle:= random(360);
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   307
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   308
     vgtFeather:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   309
                begin
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   310
                t:= random(1024);
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   311
                sp:= 0.001 * (random(85) + 95);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   312
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   313
                dy:= hwFloat2Float(AngleCos(t)) * sp;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   314
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   315
                    dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   316
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   317
                    dy := -dy;
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   318
                FrameTicks:= 650 + random(250);
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   319
                Frame:= 1
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   320
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   321
  vgtHealthTag:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   322
                begin
5574
3d7438991ed8 Use Frame instead of State for the health flag
nemo
parents: 5570
diff changeset
   323
                Frame:= 0;
3d7438991ed8 Use Frame instead of State for the health flag
nemo
parents: 5570
diff changeset
   324
                Timer:= 1500;
5576
bf30c60786a5 Move HealthTag dY init into AddGear
nemo
parents: 5574
diff changeset
   325
                dY:= -0.08;
5596
nemo
parents: 5585
diff changeset
   326
                dX:= 0;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   327
                //gear^.Z:= 2002;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   328
                end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   329
  vgtSmokeTrace,
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   330
  vgtEvilTrace:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   331
                begin
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   332
                gear^.X:= gear^.X - 16;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   333
                gear^.Y:= gear^.Y - 16;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   334
                gear^.State:= 8;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   335
                //gear^.Z:= cSmokeZ
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   336
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   337
vgtBigExplosion:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   338
                begin
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   339
                gear^.Angle:= random(360);
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   340
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   341
      vgtChunk:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   342
                begin
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   343
                gear^.Frame:= random(4);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   344
                t:= random(1024);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   345
                sp:= 0.001 * (random(85) + 47);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   346
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   347
                dy:= hwFloat2Float(AngleCos(t)) * sp * -2;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   348
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   349
                    dx := -dx;
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   350
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   351
      vgtNote: 
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   352
                begin
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   353
                dx:= 0.005 * (random(15) + 10);
3706
a79784328c03 Engine:
smaxx
parents: 3704
diff changeset
   354
                dy:= -0.001 * (random(40) + 20);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   355
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   356
                    dx := -dx;
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   357
                Frame:= random(4);
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   358
                FrameTicks:= random(2000) + 1500;
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   359
                end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   360
  vgtBulletHit:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   361
                begin
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   362
                dx:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   363
                dy:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   364
                FrameTicks:= 350;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   365
                Frame:= 7;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   366
                Angle:= 0;
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   367
                end;
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   368
vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   369
 vgtStraightShot:
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   370
                begin
5924
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour.
nemo
parents: 5874
diff changeset
   371
                Angle:= 0;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   372
                Scale:= 1.0;
5564
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   373
                dx:= 0.001 * random(45);
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   374
                dy:= 0.001 * (random(20) + 25);
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   375
                State:= ord(sprHealth);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   376
                if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   377
                    dx := -dx;
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   378
                Frame:= 0;
5564
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   379
                FrameTicks:= random(750) + 1250;
5563
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5562
diff changeset
   380
                State:= ord(sprSnowDust);
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   381
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   382
        end;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   383
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   384
if State <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   385
    gear^.State:= State;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   386
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   387
case Gear^.Kind of
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   388
    vgtFlake: if cFlattenFlakes then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   389
        gear^.Layer:= 0
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   390
              else if random(3) = 0 then 
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   391
                  begin
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   392
                  gear^.Scale:= 0.5;
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   393
                  gear^.Layer:= 0   // 33% - far back
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   394
                  end
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   395
              else if random(3) = 0 then
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   396
                  begin
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   397
                  gear^.Scale:= 0.8;
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   398
                  gear^.Layer:= 4   // 22% - mid-distance
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   399
                  end
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   400
              else if random(3) <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   401
                  gear^.Layer:= 5  // 30% - just behind land
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   402
              else if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   403
                  gear^.Layer:= 6   // 7% - just in front of land
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   404
              else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   405
                  begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   406
                  gear^.Scale:= 1.5;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   407
                  gear^.Layer:= 2;  // 7% - close up
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   408
                  end;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   409
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   410
    vgtCloud: if cFlattenClouds then gear^.Layer:= 5
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   411
              else if random(3) = 0 then
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   412
                  begin
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   413
                  gear^.Scale:= 0.25;
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   414
                  gear^.Layer:= 0
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   415
                  end
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   416
              else if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   417
                  gear^.Layer:= 5
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   418
              else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   419
                  begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   420
                  gear^.Scale:= 0.4;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   421
                  gear^.Layer:= 4
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   422
                  end;
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   423
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   424
    // 0: this layer is very distant in the background when in stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   425
    vgtTeamHealthSorter,
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   426
    vgtSmoothWindBar: gear^.Layer:= 0;
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   427
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   428
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   429
    // 1: this layer is on the land level (which is close but behind the screen plane) when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   430
    vgtSmokeTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   431
    vgtEvilTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   432
    vgtLineTrail,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   433
    vgtSmoke,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   434
    vgtSmokeWhite,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   435
    vgtDust,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   436
    vgtFire,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   437
    vgtSplash,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   438
    vgtDroplet,
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   439
    vgtBubble: gear^.Layer:= 1;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   440
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   441
    // 3: this layer is on the screen plane (depth = 0) when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   442
    vgtSpeechBubble,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   443
    vgtSmallDamageTag,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   444
    vgtHealthTag,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   445
    vgtStraightShot,
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   446
    vgtChunk: gear^.Layer:= 3;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   447
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   448
    // 2: this layer is outside the screen when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   449
    vgtExplosion,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   450
    vgtBigExplosion,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   451
    vgtExplPart,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   452
    vgtExplPart2,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   453
    vgtSteam,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   454
    vgtAmmo,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   455
    vgtShell,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   456
    vgtFeather,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   457
    vgtEgg,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   458
    vgtBeeTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   459
    vgtSmokeRing,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   460
    vgtNote,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   461
    vgtBulletHit,
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   462
    vgtCircle: gear^.Layer:= 2
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   463
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   464
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   465
if VisualGearLayers[gear^.Layer] <> nil then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   466
    begin
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   467
    VisualGearLayers[gear^.Layer]^.PrevGear:= gear;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   468
    gear^.NextGear:= VisualGearLayers[gear^.Layer]
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   469
    end;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   470
VisualGearLayers[gear^.Layer]:= gear;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   471
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   472
AddVisualGear:= gear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   473
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   474
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   475
procedure DeleteVisualGear(Gear: PVisualGear);
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   476
begin
6380
1ff5ad1d771b Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents: 6323
diff changeset
   477
    FreeTexture(Gear^.Tex);
3513
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents: 3475
diff changeset
   478
    Gear^.Tex:= nil;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
   479
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   480
    if Gear^.NextGear <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   481
        Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   482
    if Gear^.PrevGear <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   483
        Gear^.PrevGear^.NextGear:= Gear^.NextGear
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   484
    else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   485
        VisualGearLayers[Gear^.Layer]:= Gear^.NextGear;
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   486
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   487
    if lastVisualGearByUID = Gear then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   488
        lastVisualGearByUID:= nil;
4780
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   489
3513
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents: 3475
diff changeset
   490
    Dispose(Gear);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   491
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   492
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   493
procedure ProcessVisualGears(Steps: Longword);
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   494
var Gear, t: PVisualGear;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   495
    i: LongWord;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   496
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   497
if Steps = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   498
    exit;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   499
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   500
for i:= 0 to 6 do
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   501
    begin
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   502
    t:= VisualGearLayers[i];
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   503
    while t <> nil do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   504
        begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   505
        Gear:= t;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   506
        t:= Gear^.NextGear;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   507
        Gear^.doStep(Gear, Steps)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   508
        end;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   509
    end
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   510
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   511
3083
8da8f2515221 Eliminate flake kick on themes with no flakes, more than 200 flakes (city) or explosions of 25 or smaller
nemo
parents: 3080
diff changeset
   512
procedure KickFlakes(Radius, X, Y: LongInt);
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   513
var Gear, t: PVisualGear;
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   514
    dmg, i: LongInt;
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   515
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   516
if (vobCount = 0) or (vobCount > 200) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   517
    exit;
6306
553680d78546 tweak % again
nemo
parents: 6302
diff changeset
   518
for i:= 2 to 6 do
553680d78546 tweak % again
nemo
parents: 6302
diff changeset
   519
    if i <> 3 then
553680d78546 tweak % again
nemo
parents: 6302
diff changeset
   520
        begin
553680d78546 tweak % again
nemo
parents: 6302
diff changeset
   521
        t:= VisualGearLayers[i];
553680d78546 tweak % again
nemo
parents: 6302
diff changeset
   522
        while t <> nil do
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   523
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   524
            Gear:= t;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   525
            if Gear^.Kind = vgtFlake then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   526
                begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   527
                // Damage calc from doMakeExplosion
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   528
                dmg:= Min(101, Radius + cHHRadius div 2 - LongInt(abs(round(Gear^.X) - X) + abs(round(Gear^.Y) - Y)) div 5);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   529
                if dmg > 1 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   530
                    begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   531
                    Gear^.tdX:= 0.02 * dmg + 0.01;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   532
                    if Gear^.X - X < 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   533
                        Gear^.tdX := -Gear^.tdX;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   534
                    Gear^.tdY:= 0.02 * dmg + 0.01;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   535
                    if Gear^.Y - Y < 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   536
                        Gear^.tdY := -Gear^.tdY;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   537
                    Gear^.Timer:= 200
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   538
                    end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   539
                end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   540
            t:= Gear^.NextGear
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   541
            end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   542
        end
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   543
end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   544
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   545
procedure DrawVisualGears(Layer: LongWord);
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   546
var Gear: PVisualGear;
4475
54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls
nemo
parents: 4465
diff changeset
   547
    tinted: boolean;
4545
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   548
    tmp: real;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   549
    i: LongInt;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   550
begin
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   551
case Layer of
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   552
    // this layer is very distant in the background when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   553
    0: begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   554
        Gear:= VisualGearLayers[0];
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   555
        while Gear <> nil do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   556
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   557
            if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   558
            case Gear^.Kind of
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   559
              vgtCloud: if SuddenDeathDmg then
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   560
                             DrawTextureF(SpritesData[sprSDCloud].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 2, SpritesData[sprCloud].Width, SpritesData[sprCloud].Height)
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   561
                         else
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   562
                            DrawTextureF(SpritesData[sprCloud].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 2, SpritesData[sprCloud].Width, SpritesData[sprCloud].Height);
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   563
               vgtFlake: if cFlattenFlakes then
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   564
                             begin
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   565
                             if SuddenDeathDmg then
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   566
                                 if vobSDVelocity = 0 then
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   567
                                     DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   568
                                 else
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   569
                                     DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   570
                             else
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   571
                                 if vobVelocity = 0 then
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   572
                                     DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   573
                                 else
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   574
                                     DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   575
                             end
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   576
                         else
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   577
                             begin
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   578
                             if SuddenDeathDmg then
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   579
                                 if vobSDVelocity = 0 then
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   580
                                     DrawTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   581
                                 else
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   582
                                     DrawRotatedTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle)
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   583
                             else
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   584
                                 if vobVelocity = 0 then
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   585
                                     DrawTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   586
                                 else
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   587
                                     DrawRotatedTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle)
6288
fcc50b96d20a Flatten flakes for halloween theme, based on feedback from sheepluva
nemo
parents: 6184
diff changeset
   588
                             end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   589
               end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   590
           if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   591
               Tint($FF,$FF,$FF,$FF);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   592
           Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   593
           end
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   594
       end;
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   595
    // this layer is on the land level (which is close but behind the screen plane) when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   596
    1: begin
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   597
       Gear:= VisualGearLayers[1];
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   598
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   599
          begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   600
          //tinted:= false;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   601
          if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   602
              Tint(Gear^.Tint);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   603
          case Gear^.Kind of
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   604
              vgtFlake: if SuddenDeathDmg then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   605
                             if vobSDVelocity = 0 then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   606
                                 DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   607
                             else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   608
                                 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   609
                         else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   610
                             if vobVelocity = 0 then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   611
                                 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   612
                             else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   613
                                 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   614
              vgtSmokeTrace: if Gear^.State < 8 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   615
                  DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   616
              vgtEvilTrace: if Gear^.State < 8 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   617
                  DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   618
              vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   619
          end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   620
          if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   621
              case Gear^.Kind of
6323
c1aa6a3c84a7 Dir should not be 0, but set it to 1 if 0 in case I missed some other place this was done. Also correct cloud scaling.
nemo
parents: 6322
diff changeset
   622
                  vgtSmoke: DrawTextureF(SpritesData[sprSmoke].Texture, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 7 - Gear^.Frame, 1, SpritesData[sprSmoke].Width, SpritesData[sprSmoke].Height);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   623
                  vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   624
                  vgtDust: if Gear^.State = 1 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   625
                               DrawSprite(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame)
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   626
                           else
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   627
                               DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   628
                  vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   629
                               DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   630
                           else
6322
b310f0bc8dde If I'm going to be arbitrary about it, might as well go for the more minimal arbitrariness
nemo
parents: 6318
diff changeset
   631
                               DrawTextureF(SpritesData[sprFlame].Texture, Gear^.FrameTicks / 900, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, (RealTicks shr 7 + Gear^.Frame) mod 8, 1, 16, 16);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   632
                  vgtSplash: if SuddenDeathDmg then
6803
0e70f3ea3bf8 bit of an experiment in variable splash sizes based on object/speed. not sure if it looks good yet. need to drown more stuff.
nemo
parents: 6700
diff changeset
   633
                                 //DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
0e70f3ea3bf8 bit of an experiment in variable splash sizes based on object/speed. not sure if it looks good yet. need to drown more stuff.
nemo
parents: 6700
diff changeset
   634
                                 DrawTextureF(SpritesData[sprSDSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSDSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div 37), 1, SpritesData[sprSDSplash].Width, SpritesData[sprSDSplash].Height)
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   635
                             else
6803
0e70f3ea3bf8 bit of an experiment in variable splash sizes based on object/speed. not sure if it looks good yet. need to drown more stuff.
nemo
parents: 6700
diff changeset
   636
                                 //DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
0e70f3ea3bf8 bit of an experiment in variable splash sizes based on object/speed. not sure if it looks good yet. need to drown more stuff.
nemo
parents: 6700
diff changeset
   637
                                 DrawTextureF(SpritesData[sprSplash].Texture, Gear^.scale, round(Gear^.X + WorldDx), round(Gear^.Y + WorldDy - ((SpritesData[sprSplash].Height+8)*Gear^.Scale)/2), 19 - (Gear^.FrameTicks div 37), 1, SpritesData[sprSplash].Width, SpritesData[sprSplash].Height);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   638
                  vgtDroplet: if SuddenDeathDmg then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   639
                                  DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   640
                              else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   641
                                  DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   642
                  vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   643
              end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   644
          //if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   645
          if (Gear^.Tint <> $FFFFFFFF) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   646
              Tint($FF,$FF,$FF,$FF);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   647
          Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   648
          end
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   649
       end;
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   650
    // this layer is on the screen plane (depth = 0) when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   651
    3: begin
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   652
       Gear:= VisualGearLayers[3];
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   653
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   654
           begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   655
           tinted:= false;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   656
           if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   657
               Tint(Gear^.Tint);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   658
           case Gear^.Kind of
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   659
(*
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   660
              vgtFlake: if SuddenDeathDmg then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   661
                             if vobSDVelocity = 0 then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   662
                                 DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   663
                             else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   664
                                 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   665
                         else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   666
                             if vobVelocity = 0 then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   667
                                 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   668
                             else
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   669
                                 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);*)
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   670
               vgtSpeechBubble: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   671
                                if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   672
                                    begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   673
                                    tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   674
                                    Tint($FF, $FF, $FF,  $66);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   675
                                    DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   676
                                    end
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   677
                                else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   678
                                    DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   679
                                end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   680
               vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   681
               vgtHealthTag: if Gear^.Tex <> nil then 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   682
                               begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   683
                               if Gear^.Frame = 0 then 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   684
                                   DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   685
                               else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   686
                                   begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   687
                                   SetScale(cDefaultZoomLevel);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   688
                                   if Gear^.Angle = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   689
                                       DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   690
                                   else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   691
                                       DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex, Gear^.Angle); 
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   692
                                   SetScale(zoom)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   693
                                   end
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   694
                               end;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   695
               vgtStraightShot: begin 
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   696
                                if Gear^.dX < 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   697
                                    i:= -1
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   698
                                else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   699
                                    i:= 1;
5924
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour.
nemo
parents: 5874
diff changeset
   700
                                DrawRotatedTextureF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle);
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   701
                                end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   702
           end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   703
           if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   704
               case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   705
                   vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   706
               end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   707
           if (Gear^.Tint <> $FFFFFFFF) or tinted then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   708
               Tint($FF,$FF,$FF,$FF);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   709
           Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   710
           end
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   711
       end;
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   712
    // this layer is outside the screen when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   713
    2: begin
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   714
       Gear:= VisualGearLayers[2];
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   715
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   716
           begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   717
           tinted:= false;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   718
           if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   719
               Tint(Gear^.Tint);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   720
           case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   721
               vgtExplosion: DrawSprite(sprExplosion50, round(Gear^.X) - 32 + WorldDx, round(Gear^.Y) - 32 + WorldDy, Gear^.State);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   722
               vgtBigExplosion: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   723
                                tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   724
                                Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
6322
b310f0bc8dde If I'm going to be arbitrary about it, might as well go for the more minimal arbitrariness
nemo
parents: 6318
diff changeset
   725
                                DrawRotatedTextureF(SpritesData[sprBigExplosion].Texture, 0.85 * (-power(2, -10 * Int(Gear^.Timer)/250) + 1) + 0.4, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 385, 385, Gear^.Angle);
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   726
                                end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   727
           end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   728
           if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   729
               case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   730
                   vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   731
                   vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   732
                   vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   733
                   vgtAmmo: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   734
                            tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   735
                            Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
6322
b310f0bc8dde If I'm going to be arbitrary about it, might as well go for the more minimal arbitrariness
nemo
parents: 6318
diff changeset
   736
                            DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32);
b310f0bc8dde If I'm going to be arbitrary about it, might as well go for the more minimal arbitrariness
nemo
parents: 6318
diff changeset
   737
                            DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32);
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   738
                            end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   739
                   vgtShell: begin
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   740
                             if Gear^.FrameTicks < $FF then
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   741
                                 begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   742
                                 Tint($FF, $FF, $FF, Gear^.FrameTicks);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   743
                                 tinted:= true
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   744
                                 end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   745
                             DrawRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   746
                             end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   747
                   vgtFeather: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   748
                               if Gear^.FrameTicks < 255 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   749
                                   begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   750
                                   Tint($FF, $FF, $FF, Gear^.FrameTicks);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   751
                                   tinted:= true
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   752
                                   end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   753
                               DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   754
                             end;
5874
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added
sheepluva
parents: 5855
diff changeset
   755
                   vgtEgg: DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   756
                   vgtBeeTrace: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   757
                                if Gear^.FrameTicks < $FF then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   758
                                    Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   759
                                else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   760
                                    Tint($FF, $FF, $FF, $80);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   761
                                tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   762
                                DrawRotatedF(sprBeeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, (RealTicks shr 4) mod cMaxAngle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   763
                                end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   764
                   vgtSmokeRing: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   765
                                 tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   766
                                 Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
6322
b310f0bc8dde If I'm going to be arbitrary about it, might as well go for the more minimal arbitrariness
nemo
parents: 6318
diff changeset
   767
                                 DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   768
                                 end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   769
                   vgtNote: DrawRotatedF(sprNote, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   770
                   vgtBulletHit: DrawRotatedF(sprBulletHit, round(Gear^.X) + WorldDx - 0, round(Gear^.Y) + WorldDy - 0, 7 - (Gear^.FrameTicks div 50), 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   771
               end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   772
           case Gear^.Kind of
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   773
               vgtFlake: if SuddenDeathDmg then
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   774
                             if vobSDVelocity = 0 then
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   775
                                 DrawTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   776
                             else
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   777
                                 DrawRotatedTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle)
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   778
                         else
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   779
                             if vobVelocity = 0 then
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   780
                                 DrawTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   781
                             else
6553
91365db8b82c Slow down flakes/clouds that are farther away. Also unbreak NTPX w/ SDL 1.2
nemo
parents: 6453
diff changeset
   782
                                 DrawRotatedTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   783
               vgtCircle: if gear^.Angle = 1 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   784
                              begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   785
                              tmp:= Gear^.State / 100;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   786
                              DrawTexture(round(Gear^.X-24*tmp) + WorldDx, round(Gear^.Y-24*tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   787
                              end
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   788
                          else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   789
                              DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   790
           end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   791
           if (Gear^.Tint <> $FFFFFFFF) or tinted then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   792
               Tint($FF,$FF,$FF,$FF);
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   793
           Gear:= Gear^.NextGear
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   794
           end
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   795
       end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   796
     // this layer is half-way between the screen plane (depth = 0) when in stereo, and the land
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   797
     4: begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   798
        Gear:= VisualGearLayers[4];
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   799
        while Gear <> nil do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   800
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   801
            if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   802
                Tint(Gear^.Tint);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   803
            case Gear^.Kind of
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   804
               vgtCloud: if SuddenDeathDmg then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   805
                            DrawTextureF(SpritesData[sprSDCloud].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 2, SpritesData[sprCloud].Width, SpritesData[sprCloud].Height)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   806
                        else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   807
                            DrawTextureF(SpritesData[sprCloud].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 2, SpritesData[sprCloud].Width, SpritesData[sprCloud].Height);
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   808
              vgtFlake: if SuddenDeathDmg then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   809
                            if vobSDVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   810
                                DrawTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   811
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   812
                                DrawRotatedTextureF(SpritesData[sprSDFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   813
                        else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   814
                            if vobVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   815
                                DrawTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   816
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   817
                                DrawRotatedTextureF(SpritesData[sprFlake].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   818
            end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   819
            if (Gear^.Tint <> $FFFFFFFF) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   820
                Tint($FF,$FF,$FF,$FF);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   821
            Gear:= Gear^.NextGear
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   822
            end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   823
        end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   824
     // this layer is on the screen plane (depth = 0) when stereo, but just behind the land
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   825
     5: begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   826
        Gear:= VisualGearLayers[5];
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   827
        while Gear <> nil do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   828
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   829
            if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   830
                Tint(Gear^.Tint);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   831
            case Gear^.Kind of
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   832
                vgtCloud: if SuddenDeathDmg then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   833
                            DrawSprite(sprSDCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   834
                          else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   835
                            DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   836
              vgtFlake: if SuddenDeathDmg then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   837
                            if vobSDVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   838
                                DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   839
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   840
                                DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   841
                          else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   842
                            if vobVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   843
                                DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   844
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   845
                                DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   846
                end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   847
            if (Gear^.Tint <> $FFFFFFFF) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   848
                Tint($FF,$FF,$FF,$FF);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   849
            Gear:= Gear^.NextGear
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   850
            end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   851
        end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   852
     // this layer is on the screen plane (depth = 0) when stereo, but just in front of the land
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   853
    6: begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   854
        Gear:= VisualGearLayers[6];
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   855
        while Gear <> nil do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   856
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   857
            if Gear^.Tint <> $FFFFFFFF then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   858
                Tint(Gear^.Tint);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   859
            case Gear^.Kind of
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   860
                vgtFlake: if SuddenDeathDmg then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   861
                            if vobSDVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   862
                                DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   863
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   864
                                DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   865
                          else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   866
                            if vobVelocity = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   867
                                DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   868
                            else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   869
                                DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   870
                end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   871
            if (Gear^.Tint <> $FFFFFFFF) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   872
                Tint($FF,$FF,$FF,$FF);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   873
            Gear:= Gear^.NextGear
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   874
            end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   875
        end;
4452
258945553b18 make Tint(longword) use RGBA
nemo
parents: 4451
diff changeset
   876
    end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   877
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   878
4443
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   879
function  VisualGearByUID(uid : Longword) : PVisualGear;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   880
var vg: PVisualGear;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   881
    i: LongWord;
4443
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   882
begin
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   883
VisualGearByUID:= nil;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   884
if uid = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   885
    exit;
4780
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   886
if (lastVisualGearByUID <> nil) and (lastVisualGearByUID^.uid = uid) then
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   887
    begin
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   888
    VisualGearByUID:= lastVisualGearByUID;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   889
    exit
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents: 4772
diff changeset
   890
    end;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   891
// search in an order that is more likely to return layers they actually use.  Could perhaps track statistically AddVisualGear in uScript, since that is most likely the ones they want
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   892
for i:= 2 to 5 do
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   893
    begin
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   894
    vg:= VisualGearLayers[i mod 4];
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   895
    while vg <> nil do
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   896
        begin
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   897
        if vg^.uid = uid then
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   898
            begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   899
            lastVisualGearByUID:= vg;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   900
            VisualGearByUID:= vg;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   901
            exit
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   902
            end;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   903
        vg:= vg^.NextGear
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   904
        end
4443
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   905
    end
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   906
end;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
   907
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   908
procedure AddClouds;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   909
var i: LongInt;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   910
begin
1132
b4c0698fbb6b - Fix problem when clouds number is 0
unc0rr
parents: 1079
diff changeset
   911
for i:= 0 to cCloudsNumber - 1 do
5179
8d64dcb566ea Fix "Mixing signed expressions and longwords gives a 64bit result" warnings
unc0rr
parents: 5151
diff changeset
   912
    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   913
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   914
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   915
procedure ChangeToSDClouds;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   916
var       i: LongInt;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   917
    vg, tmp: PVisualGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   918
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   919
if cCloudsNumber = cSDCloudsNumber then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   920
    exit;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   921
vg:= VisualGearLayers[0];
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   922
while vg <> nil do
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   923
    if vg^.Kind = vgtCloud then
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   924
        begin
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   925
        tmp:= vg^.NextGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   926
        DeleteVisualGear(vg);
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   927
        vg:= tmp
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   928
        end
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   929
    else vg:= vg^.NextGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   930
for i:= 0 to cSDCloudsNumber - 1 do
5179
8d64dcb566ea Fix "Mixing signed expressions and longwords gives a 64bit result" warnings
unc0rr
parents: 5151
diff changeset
   931
    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   932
end;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   933
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   934
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   935
var i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   936
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   937
if (cReducedQuality and rqKillFlakes) <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   938
    exit;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   939
6117
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 5924
diff changeset
   940
if hasBorder or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   941
    for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   942
        AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   943
else
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   944
    for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   945
        AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   946
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   947
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   948
procedure ChangeToSDFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   949
var       i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   950
    vg, tmp: PVisualGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   951
begin
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   952
if (cReducedQuality and rqKillFlakes) <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   953
    exit;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   954
if vobCount = vobSDCount then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6553
diff changeset
   955
    exit;
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   956
for i:= 0 to 6 do
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   957
    begin
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   958
    vg:= VisualGearLayers[i];
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   959
    while vg <> nil do
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   960
        if vg^.Kind = vgtFlake then
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   961
        begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   962
        tmp:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   963
        DeleteVisualGear(vg);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   964
        vg:= tmp
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   965
        end
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   966
        else vg:= vg^.NextGear;
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   967
    end;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   968
if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   969
    for i:= 0 to Pred(vobSDCount * cScreenSpace div LAND_WIDTH) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   970
        AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   971
else
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   972
    for i:= 0 to Pred((vobSDCount * cScreenSpace div LAND_WIDTH) div 3) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   973
        AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   974
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   975
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   976
procedure initModule;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   977
var i: LongWord;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   978
begin
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   979
for i:= 0 to 6 do
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   980
    VisualGearLayers[i]:= nil;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   981
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   982
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   983
procedure freeModule;
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   984
var i: LongWord;
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   985
begin
6302
db8bdbb34e03 Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents: 6291
diff changeset
   986
for i:= 0 to 6 do
6179
b529f88d37d0 Bit of an experiment with giving flakes a bit more depth. Might need to be theme flagged, or theme flakes reworked on some themes. Looks neat in stereo. Also finally use an array for the layers
nemo
parents: 6117
diff changeset
   987
    while VisualGearLayers[i] <> nil do DeleteVisualGear(VisualGearLayers[i]);
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   988
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   989
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   990
end.