hedgewars/uVisualGears.pas
author unc0rr
Sun, 06 Mar 2011 21:55:44 +0300
changeset 4990 4b5d62ac01f7
parent 4976 088d40d8aba2
child 5014 adc340265ccf
permissions -rw-r--r--
Write latest protocol version too
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
4976
088d40d8aba2 Happy 2011 :)
koda
parents: 4818
diff changeset
     3
 * Copyright (c) 2004-2011 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;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    22
interface
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
    23
uses uConsts, uFloat, GLunit, uTypes;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    24
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    25
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    26
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2715
diff changeset
    27
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
    28
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
    29
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
    30
procedure KickFlakes(Radius, X, Y: LongInt);
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
    31
procedure DrawVisualGears(Layer: LongWord);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
    32
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
    33
function  VisualGearByUID(uid : Longword) : PVisualGear;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    34
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
    35
procedure ChangeToSDClouds;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    36
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    37
procedure ChangeToSDFlakes;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    38
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
    39
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    40
implementation
4390
f219628ed666 Move localization data to uVariables, some Uses cleanup
unc0rr
parents: 4380
diff changeset
    41
uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils;
4368
unc0rr
parents: 4361
diff changeset
    42
1047
ca7078116c0c Update explosion graphics
unc0rr
parents: 1046
diff changeset
    43
const cExplFrameTicks = 110;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    44
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    45
{$INCLUDE "VGSHandlers.inc"}
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    46
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    47
procedure AddDamageTag(X, Y, Damage, Color: LongWord);
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    48
var s: shortstring;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    49
    Gear: PVisualGear;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    50
begin
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    51
if cAltDamage then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    52
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    53
    Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    54
    if Gear <> nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    55
        with Gear^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    56
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    57
            str(Damage, s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    58
            Tex:= RenderStringTex(s, Color, fntSmall);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    59
            end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    60
    end
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    61
end;
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    62
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    63
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    64
// ==================================================================
2042
905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep
nemo
parents: 2014
diff changeset
    65
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    66
// ==================================================================
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    67
const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    68
        (
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    69
            @doStepFlake,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    70
            @doStepCloud,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    71
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    72
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    73
            @doStepFire,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    74
            @doStepSmallDamage,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    75
            @doStepTeamHealthSorter,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    76
            @doStepSpeechBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    77
            @doStepBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    78
            @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
    79
            @doStepAmmo,
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    80
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    81
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    82
            @doStepHealth,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    83
            @doStepShell,
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
    84
            @doStepDust,
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
    85
            @doStepSplash,
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
    86
            @doStepDroplet,
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
    87
            @doStepSmokeRing,
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
    88
            @doStepBeeTrace,
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
    89
            @doStepEgg,
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    90
            @doStepFeather,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    91
            @doStepHealthTag,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    92
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    93
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    94
            @doStepExplosion,
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
    95
            @doStepBigExplosion,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
    96
            @doStepChunk,
4279
b697a26ed538 Light trails for bullets
Palewolf
parents: 4159
diff changeset
    97
            @doStepNote,
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
    98
            @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
    99
            @doStepBulletHit,
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
   100
            @doStepCircle
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   101
        );
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   102
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
   103
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
   104
const VGCounter: Longword = 0;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   105
var gear: PVisualGear;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   106
    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
   107
    sp: real;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   108
begin
2671
7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents: 2599
diff changeset
   109
if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we are scrolling now
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
   110
    if (Kind <> vgtCloud) and not Critical then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   111
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   112
        AddVisualGear:= nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   113
        exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   114
        end;
1642
177b440773de Disable visual gears when quick replaying
unc0rr
parents: 1505
diff changeset
   115
4809
9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents: 4806
diff changeset
   116
if ((cReducedQuality and rqAntiBoom) <> 0) and
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
   117
   not Critical and
3447
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   118
   not (Kind in
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   119
   [vgtTeamHealthSorter,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   120
    vgtSmallDamageTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   121
    vgtSpeechBubble,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   122
    vgtHealthTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   123
    vgtExplosion,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   124
    vgtSmokeTrace,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   125
    vgtEvilTrace,
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   126
    vgtNote]) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   127
    begin
3594
aeca3d8f1b29 turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents: 3593
diff changeset
   128
      AddVisualGear:= nil;
aeca3d8f1b29 turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents: 3593
diff changeset
   129
      exit
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   130
    end;
1812
3d4692e825e7 'Reduce quality' patch by nemo
unc0rr
parents: 1801
diff changeset
   131
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   132
inc(VGCounter);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   133
New(gear);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   134
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
   135
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
   136
gear^.Y:= real(Y);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   137
gear^.Kind := Kind;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   138
gear^.doStep:= doStepHandlers[Kind];
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   139
gear^.State:= 0;
3475
95345f98da19 Engine:
smxx
parents: 3447
diff changeset
   140
gear^.Tint:= $FFFFFFFF;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   141
gear^.uid:= VGCounter;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   142
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   143
with gear^ do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   144
    case Kind of
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   145
    vgtFlake: 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
   146
                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
   147
                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
   148
                tdY:= 0;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   149
                if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   150
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   151
                    FrameTicks:= random(vobSDFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   152
                    Frame:= random(vobSDFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   153
                    end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   154
                else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   155
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   156
                    FrameTicks:= random(vobFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   157
                    Frame:= random(vobFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   158
                    end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   159
                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
   160
                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
   161
                dy:= 0.000003506096 * random(7000);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   162
                if random(2) = 0 then dx := -dx;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   163
                if SuddenDeathDmg then dAngle:= (random(2) * 2 - 1) * (1 + random) * vobSDVelocity / 1000
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   164
                else 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
   165
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   166
    vgtCloud: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   167
                Frame:= random(4);
3994
486da687d76a fix/tweak let clouds reflect wind speed and direction again + stronger
sheepluva
parents: 3976
diff changeset
   168
                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
   169
                timer:= random(4096);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   170
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   171
    vgtExplPart,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   172
    vgtExplPart2: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   173
                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
   174
                sp:= 0.001 * (random(95) + 70);
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
   175
                dx:= AngleSin(t).QWordValue/4294967296 * sp;
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
   176
                dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   177
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   178
                if random(2) = 0 then dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   179
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   180
                FrameTicks:= cExplFrameTicks
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   181
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   182
        vgtFire: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   183
                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
   184
                sp:= 0.001 * (random(85) + 95);
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
                dx:= AngleSin(t).QWordValue/4294967296 * sp;
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
   186
                dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   187
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   188
                if random(2) = 0 then dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   189
                FrameTicks:= 650 + random(250);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   190
                Frame:= random(8)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   191
                end;
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   192
         vgtEgg: begin
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   193
                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
   194
                sp:= 0.001 * (random(85) + 95);
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
   195
                dx:= AngleSin(t).QWordValue/4294967296 * sp;
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
   196
                dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   197
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   198
                if random(2) = 0 then dy := -dy;
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   199
                FrameTicks:= 650 + random(250);
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   200
                Frame:= 1
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   201
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   202
        vgtShell: FrameTicks:= 500;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   203
    vgtSmallDamageTag: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   204
                gear^.FrameTicks:= 1100
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   205
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   206
    vgtBubble: 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
   207
                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
   208
                dy:= 0;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   209
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   210
                FrameTicks:= 250 + random(1751);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   211
                Frame:= random(5)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   212
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   213
    vgtSteam: 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
   214
                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
   215
                dy:= 0.001 * (random(85) + 95);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   216
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   217
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   218
                FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   219
                end;
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   220
    vgtAmmo: begin
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   221
                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
   222
                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
   223
                end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3689
diff changeset
   224
  vgtSmokeWhite,
2713
71250942e95b Palewolf's smoke traces for fire.
nemo
parents: 2699
diff changeset
   225
  vgtSmoke: 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
   226
                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
   227
                dy:= 0.0002 * (random(45) + 10);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   228
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   229
                Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   230
                FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   231
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   232
    vgtHealth: 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
   233
                dx:= 0.001 * random(45);
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
   234
                dy:= 0.001 * (random(20) + 25);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   235
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   236
                Frame:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   237
                FrameTicks:= random(750) + 1250;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   238
                end;
2848
8a1725b4f724 Engine:
smxx
parents: 2827
diff changeset
   239
  vgtDust: 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
   240
                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
   241
                dy:= 0.001 * (random(40) + 20);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   242
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   243
                Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   244
                FrameTicks:= random(20) + 15;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   245
                end;
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   246
  vgtSplash: 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
   247
                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
   248
                dy:= 0;
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   249
                FrameTicks:= 740;
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   250
                Frame:= 19;
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
   251
                end;
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   252
    vgtDroplet: 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
   253
                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
   254
                dy:= -0.001 * (random(80) + 120);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   255
                if random(2) = 0 then dx := -dx;
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   256
                FrameTicks:= 250 + random(1751);
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   257
                Frame:= random(3)
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
   258
                end;
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   259
   vgtBeeTrace: begin
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   260
                FrameTicks:= 1000;
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   261
                Frame:= random(16);
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   262
                end;
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   263
    vgtSmokeRing: 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
   264
                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
   265
                dy:= 0;
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   266
                FrameTicks:= 600;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   267
                Timer:= 0;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   268
                Frame:= 0;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   269
                scale:= 0.6;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   270
                alpha:= 1;
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   271
                angle:= random(360);
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   272
                end;
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   273
     vgtFeather: begin
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   274
                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
   275
                sp:= 0.001 * (random(85) + 95);
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
   276
                dx:= AngleSin(t).QWordValue/4294967296 * sp;
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
   277
                dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   278
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   279
                if random(2) = 0 then dy := -dy;
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   280
                FrameTicks:= 650 + random(250);
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   281
                Frame:= 1
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
   282
                end;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   283
  vgtHealthTag: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   284
                gear^.Timer:= 1500;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   285
                //gear^.Z:= 2002;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   286
                end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   287
  vgtSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   288
  vgtEvilTrace: 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
   289
                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
   290
                gear^.Y:= gear^.Y - 16;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   291
                gear^.State:= 8;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   292
                //gear^.Z:= cSmokeZ
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   293
                end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   294
vgtBigExplosion: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   295
                gear^.Angle:= random(360);
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   296
                end;
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   297
      vgtChunk: begin
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   298
                gear^.Frame:= random(4);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   299
                t:= random(1024);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   300
                sp:= 0.001 * (random(85) + 47);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   301
                dx:= AngleSin(t).QWordValue/4294967296 * sp;
3706
a79784328c03 Engine:
smaxx
parents: 3704
diff changeset
   302
                dy:= AngleCos(t).QWordValue/4294967296 * sp * -2;
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   303
                if random(2) = 0 then dx := -dx;
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   304
                end;
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   305
      vgtNote: begin
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   306
                dx:= 0.005 * (random(15) + 10);
3706
a79784328c03 Engine:
smaxx
parents: 3704
diff changeset
   307
                dy:= -0.001 * (random(40) + 20);
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   308
                if random(2) = 0 then dx := -dx;
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   309
                Frame:= random(4);
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   310
                FrameTicks:= random(2000) + 1500;
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   311
                end;
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   312
  vgtBulletHit: begin
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   313
                dx:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   314
                dy:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   315
                FrameTicks:= 350;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   316
                Frame:= 7;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   317
                Angle := 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   318
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   319
        end;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   320
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   321
if State <> 0 then gear^.State:= State;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   322
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   323
if VisualGearsList <> nil then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   324
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   325
    VisualGearsList^.PrevGear:= gear;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   326
    gear^.NextGear:= VisualGearsList
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   327
    end;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   328
VisualGearsList:= gear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   329
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   330
AddVisualGear:= gear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   331
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   332
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   333
procedure DeleteVisualGear(Gear: PVisualGear);
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   334
begin
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
   335
    if Gear^.Tex <> nil then
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
   336
        FreeTexture(Gear^.Tex);
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
   337
    Gear^.Tex:= nil;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
   338
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
   339
    if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
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
   340
    if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear
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
   341
    else VisualGearsList:= Gear^.NextGear;
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   342
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
   343
    if lastVisualGearByUID = Gear then lastVisualGearByUID:= nil;
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
   344
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
   345
    Dispose(Gear);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   346
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   347
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   348
procedure ProcessVisualGears(Steps: Longword);
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   349
var Gear, t: PVisualGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   350
begin
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   351
if Steps = 0 then exit;
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   352
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   353
t:= VisualGearsList;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   354
while t <> nil do
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   355
      begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   356
      Gear:= t;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   357
      t:= Gear^.NextGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   358
      Gear^.doStep(Gear, Steps)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   359
      end
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   360
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   361
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
   362
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
   363
var Gear, t: PVisualGear;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   364
    dmg: LongInt;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   365
begin
3641
98319a621dc8 save the gl client state to get a nice 80% fps boost
koda
parents: 3616
diff changeset
   366
if (vobCount = 0) or (vobCount > 200) then exit;
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   367
t:= VisualGearsList;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   368
while t <> nil do
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   369
      begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   370
      Gear:= t;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   371
      if Gear^.Kind = vgtFlake then
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   372
          begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   373
          // Damage calc from doMakeExplosion
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
   374
          dmg:= Min(101, Radius + cHHRadius div 2 - LongInt(abs(round(Gear^.X) - X) + abs(round(Gear^.Y) - Y)) div 5);
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   375
          if dmg > 1 then
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   376
              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
   377
              Gear^.tdX:= 0.02 * dmg + 0.01;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   378
              if Gear^.X - X < 0 then Gear^.tdX := -Gear^.tdX;
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
   379
              Gear^.tdY:= 0.02 * dmg + 0.01;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   380
              if Gear^.Y - Y < 0 then Gear^.tdY := -Gear^.tdY;
2986
c0c91cd3f423 Trying to tweak kicks a bit
nemo
parents: 2985
diff changeset
   381
              Gear^.Timer:= 200
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   382
              end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   383
          end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   384
      t:= Gear^.NextGear
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   385
      end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   386
end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   387
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   388
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
   389
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
   390
    tinted: boolean;
4545
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   391
    tmp: real;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   392
begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   393
Gear:= VisualGearsList;
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   394
case Layer of
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   395
    // this level is very distant in the background when stereo
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   396
    0: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   397
        begin
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
   398
        if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   399
        case Gear^.Kind of
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   400
            vgtFlake: if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   401
                        if vobSDVelocity = 0 then
4748
ce9b48de1f52 sudden death, now with visual and audial effects :D
Henek
parents: 4546
diff changeset
   402
                            DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
ce9b48de1f52 sudden death, now with visual and audial effects :D
Henek
parents: 4546
diff changeset
   403
                        else
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   404
                            DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
3641
98319a621dc8 save the gl client state to get a nice 80% fps boost
koda
parents: 3616
diff changeset
   405
                      else
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   406
                        if vobVelocity = 0 then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   407
                            DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
4748
ce9b48de1f52 sudden death, now with visual and audial effects :D
Henek
parents: 4546
diff changeset
   408
                        else
ce9b48de1f52 sudden death, now with visual and audial effects :D
Henek
parents: 4546
diff changeset
   409
                            DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
4772
02370ca8e92c sudden death: now having theme support, still some work though with config
Henek
parents: 4748
diff changeset
   410
            vgtCloud: if SuddenDeathDmg then
02370ca8e92c sudden death: now having theme support, still some work though with config
Henek
parents: 4748
diff changeset
   411
                          DrawSprite(sprSDCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
02370ca8e92c sudden death: now having theme support, still some work though with config
Henek
parents: 4748
diff changeset
   412
                      else
02370ca8e92c sudden death: now having theme support, still some work though with config
Henek
parents: 4748
diff changeset
   413
                          DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   414
            end;
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
   415
        if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   416
        Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   417
        end;
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   418
    // this level is on the land one when stereo
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   419
    1: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   420
        begin
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
   421
        tinted:= false;
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
   422
        if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
3447
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   423
        case Gear^.Kind of
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
   424
            vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
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
   425
            vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
4279
b697a26ed538 Light trails for bullets
Palewolf
parents: 4159
diff changeset
   426
            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));
3447
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   427
        end;
4809
9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents: 4806
diff changeset
   428
            if (cReducedQuality and rqAntiBoom) = 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   429
                case Gear^.Kind of
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
   430
                    vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
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
   431
                    vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
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
   432
                    vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   433
                    vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   434
                                 DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   435
                             else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   436
                                 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);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   437
                    vgtSplash: if SuddenDeathDmg then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   438
                                   DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   439
                               else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   440
                                   DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   441
                    vgtDroplet: if SuddenDeathDmg then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   442
                                    DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   443
                                else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   444
                                    DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   445
                    vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3443
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully
sheepluva
parents: 3440
diff changeset
   446
                 end;
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
   447
        if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   448
        Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   449
        end;
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   450
    // this level is on the screen plane when stereo (depth = 0)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   451
    3: while Gear <> nil do
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   452
        begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   453
        tinted:= false;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   454
        if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   455
        case Gear^.Kind of
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   456
            vgtSpeechBubble: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   457
                           if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   458
                           begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   459
                               tinted:= true;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   460
                               Tint($FF, $FF, $FF,  $66);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   461
                               DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   462
                           end
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   463
                           else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   464
                               DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   465
                       end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   466
            vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   467
            vgtHealthTag: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   468
            vgtHealth: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   469
                       tinted:= true;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   470
                       case Gear^.Frame div 10 of
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   471
                           0:Tint(0, $FF, 0, round(Gear^.FrameTicks * $FF / 1000));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   472
                           1:Tint($FF, 0, 0, round(Gear^.FrameTicks * $FF / 1000));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   473
                       end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   474
                       DrawSprite(sprHealth, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, 0);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   475
                       end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   476
        end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   477
        if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   478
        Gear:= Gear^.NextGear
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   479
       end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   480
    // this level is outside the screen when stereo
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   481
    2: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   482
        begin
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
   483
        tinted:= false;
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
   484
        if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
3443
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully
sheepluva
parents: 3440
diff changeset
   485
        case Gear^.Kind of
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
   486
            vgtExplosion: DrawSprite(sprExplosion50, round(Gear^.X) - 32 + WorldDx, round(Gear^.Y) - 32 + WorldDy, Gear^.State);
3443
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully
sheepluva
parents: 3440
diff changeset
   487
            vgtBigExplosion: begin
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
   488
                             tinted:= true;
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
   489
                             Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
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
   490
                             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);
3443
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully
sheepluva
parents: 3440
diff changeset
   491
                             end;
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully
sheepluva
parents: 3440
diff changeset
   492
            end;
4809
9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents: 4806
diff changeset
   493
        if (cReducedQuality and rqAntiBoom) = 0 then
2047
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality"
nemo
parents: 2045
diff changeset
   494
            case Gear^.Kind of
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
   495
                vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
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
   496
                vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
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
   497
                vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
3754
cb42d83587f5 Engine:
smaxx
parents: 3751
diff changeset
   498
                vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   499
                vgtAmmo: begin
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
   500
                        tinted:= true;
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
   501
                        Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
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
   502
                        DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32);
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
   503
                        DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32);
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   504
                        end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   505
                vgtShell: begin
3376
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   506
                            if Gear^.FrameTicks < $FF then
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
   507
                                begin
3376
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   508
                                Tint($FF, $FF, $FF, Gear^.FrameTicks);
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
   509
                                tinted:= true
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
   510
                                end;
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
   511
                            DrawRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   512
                            end;
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   513
                vgtFeather: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   514
                            if Gear^.FrameTicks < 255 then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   515
                                begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   516
                                Tint($FF, $FF, $FF, Gear^.FrameTicks);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   517
                                tinted:= true
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   518
                                end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   519
                            DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   520
                          end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   521
                vgtEgg: begin
3376
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   522
                            if Gear^.FrameTicks < $FF then
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
   523
                                begin
3376
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   524
                                Tint($FF, $FF, $FF, Gear^.FrameTicks);
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
   525
                                tinted:= true
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
   526
                                end;
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
   527
                            DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   528
                            end;
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   529
               vgtBeeTrace: begin
3376
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   530
                            if Gear^.FrameTicks < $FF then
faee68a28b82 Engine:
smxx
parents: 3326
diff changeset
   531
                                Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   532
                            else
3390
1d4926d10a9e Engine:
smxx
parents: 3376
diff changeset
   533
                                Tint($FF, $FF, $FF, $80);
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
   534
                            tinted:= true;
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
   535
                            DrawRotatedF(sprBeeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, (RealTicks shr 4) mod cMaxAngle);
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
   536
                            end;
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   537
                vgtSmokeRing: begin
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
   538
                            tinted:= true;
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
   539
                            Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
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
   540
                            DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle);
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
   541
                            end;
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   542
                 vgtNote: DrawRotatedF(sprNote, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   543
                vgtBulletHit: DrawRotatedF(sprBulletHit, round(Gear^.X) + WorldDx - 0, round(Gear^.Y) + WorldDy - 0, 7 - (Gear^.FrameTicks div 50), 1, Gear^.Angle);
2047
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality"
nemo
parents: 2045
diff changeset
   544
            end;
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality"
nemo
parents: 2045
diff changeset
   545
        case Gear^.Kind of
4545
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   546
            vgtCircle:  if gear^.Angle = 1 then 
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   547
                            begin
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   548
                            tmp:= Gear^.State / 100;
4546
a6402b8c2b24 oops, forgot world offset, also add a kind of hack to the already hackish set function for visual gears
nemo
parents: 4545
diff changeset
   549
                            DrawTexture(round(Gear^.X-24*tmp) + WorldDx, round(Gear^.Y-24*tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp)
4545
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   550
                            end
4544
d999e3221e3d If this works right, setting Angle (yeah, yeah) switches between an aura circle and a drawn circle. aura is scaled at size 100 being 100% - 200, 200% etc.
nemo
parents: 4521
diff changeset
   551
                        else DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);
2047
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality"
nemo
parents: 2045
diff changeset
   552
        end;
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
   553
        if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   554
        Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   555
        end
4452
258945553b18 make Tint(longword) use RGBA
nemo
parents: 4451
diff changeset
   556
    end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   557
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   558
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
   559
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
   560
var vg: 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
   561
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
   562
VisualGearByUID:= 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
   563
if uid = 0 then 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
   564
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
   565
    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
   566
    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
   567
    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
   568
    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
   569
vg:= VisualGearsList;
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
   570
while vg <> nil do
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
   571
    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
   572
    if vg^.uid = uid then
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
   573
        begin
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
   574
        lastVisualGearByUID:= vg;
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
   575
        VisualGearByUID:= vg;
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
   576
        exit
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
   577
        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
   578
    vg:= vg^.NextGear
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
   579
    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
   580
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
   581
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   582
procedure AddClouds;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   583
var i: LongInt;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   584
begin
1132
b4c0698fbb6b - Fix problem when clouds number is 0
unc0rr
parents: 1079
diff changeset
   585
for i:= 0 to cCloudsNumber - 1 do
3764
eb91c02f2d84 Engine:
smaxx
parents: 3754
diff changeset
   586
    AddVisualGear(cLeftScreenBorder + i * 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
   587
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   588
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
   589
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
   590
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
   591
    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
   592
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
   593
if cCloudsNumber = cSDCloudsNumber then exit;
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
   594
vg:= VisualGearsList;
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
   595
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
   596
    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
   597
        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
   598
        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
   599
        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
   600
        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
   601
        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
   602
    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
   603
for i:= 0 to cSDCloudsNumber - 1 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
   604
    AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cSDCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud)
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
   605
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
   606
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   607
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   608
var i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   609
begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   610
if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   611
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   612
if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   613
    for i:= 0 to Pred(vobCount) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   614
        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
   615
else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   616
    for i:= 0 to Pred(vobCount div 3) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   617
        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
   618
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   619
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   620
procedure ChangeToSDFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   621
var       i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   622
    vg, tmp: PVisualGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   623
begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   624
if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   625
if vobCount = vobSDCount then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   626
vg:= VisualGearsList;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   627
while vg <> nil do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   628
    if vg^.Kind = vgtFlake then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   629
        begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   630
        tmp:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   631
        DeleteVisualGear(vg);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   632
        vg:= tmp
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   633
        end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   634
    else vg:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   635
if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   636
    for i:= 0 to Pred(vobSDCount) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   637
        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
   638
else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   639
    for i:= 0 to Pred(vobSDCount div 3) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   640
        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
   641
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   642
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   643
procedure initModule;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   644
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   645
    VisualGearsList:= nil;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   646
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   647
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   648
procedure freeModule;
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   649
begin
3615
b78d7959540a further code cleanup and less redundancy
koda
parents: 3611
diff changeset
   650
    while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   651
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   652
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   653
end.