hedgewars/uVisualGears.pas
author sheepluva
Tue, 18 Oct 2011 05:43:16 +0200
branch0.9.16
changeset 6005 3470f3f547ca
parent 5924 82fc26c53d2a
child 6117 2a4829172a29
permissions -rw-r--r--
backport of c90f50e6dd8e (eggshell vgt related segfault)
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;
5121
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    22
(*
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    23
 * This unit defines the behavior and the appearance of visual gears.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    24
 *
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    25
 * Visual gears are "things"/"objects" in the game that do not need to be
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    26
 * perfectly synchronized over all clients since their effect is only
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    27
 * of visual nature.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    28
 *
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    29
 * E.g.: background flakes, visual effects: explosion, smoke trails, etc.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    30
 *)
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    31
interface
5855
74c621e12baa I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents: 5832
diff changeset
    32
uses uConsts, uFloat, GLunit, uTypes, uWorld;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    33
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    34
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
    35
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2715
diff changeset
    36
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
    37
function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    38
procedure ProcessVisualGears(Steps: Longword);
3083
8da8f2515221 Eliminate flake kick on themes with no flakes, more than 200 flakes (city) or explosions of 25 or smaller
nemo
parents: 3080
diff changeset
    39
procedure KickFlakes(Radius, X, Y: LongInt);
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
    40
procedure DrawVisualGears(Layer: LongWord);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
    41
procedure DeleteVisualGear(Gear: PVisualGear);
4443
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua
nemo
parents: 4422
diff changeset
    42
function  VisualGearByUID(uid : Longword) : PVisualGear;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    43
procedure AddClouds;
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
    44
procedure ChangeToSDClouds;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    45
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
    46
procedure ChangeToSDFlakes;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    47
procedure AddDamageTag(X, Y, Damage, Color: LongWord);
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    48
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    49
implementation
5570
a1eb7555f439 forgot scale
nemo
parents: 5566
diff changeset
    50
uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore;
4368
unc0rr
parents: 4361
diff changeset
    51
1047
ca7078116c0c Update explosion graphics
unc0rr
parents: 1046
diff changeset
    52
const cExplFrameTicks = 110;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    53
5121
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    54
// For better maintainability the step handlers of visual gears are stored
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents: 5065
diff changeset
    55
// in a separate file.
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    56
{$INCLUDE "VGSHandlers.inc"}
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
    57
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    58
procedure AddDamageTag(X, Y, Damage, Color: LongWord);
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    59
var s: shortstring;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    60
    Gear: PVisualGear;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    61
begin
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    62
if cAltDamage then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    63
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    64
    Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    65
    if Gear <> nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    66
        with Gear^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    67
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    68
            str(Damage, s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    69
            Tex:= RenderStringTex(s, Color, fntSmall);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    70
            end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    71
    end
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    72
end;
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    73
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
    74
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    75
// ==================================================================
2042
905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep
nemo
parents: 2014
diff changeset
    76
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
    77
// ==================================================================
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
    78
const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    79
        (
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    80
            @doStepFlake,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    81
            @doStepCloud,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    82
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    83
            @doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    84
            @doStepFire,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    85
            @doStepSmallDamage,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    86
            @doStepTeamHealthSorter,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    87
            @doStepSpeechBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    88
            @doStepBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    89
            @doStepSteam,
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
    90
            @doStepAmmo,
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    91
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    92
            @doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
    93
            @doStepShell,
2974
f3fa665f0874 Engine:
smxx
parents: 2972
diff changeset
    94
            @doStepDust,
2982
4213c6a8aceb Palewolf adds droplets to his splashes
nemo
parents: 2974
diff changeset
    95
            @doStepSplash,
3032
9c190d3c165b Insert commit message here
palewolf
parents: 2986
diff changeset
    96
            @doStepDroplet,
3080
b7fa8ad60e3b Engine:
smxx
parents: 3062
diff changeset
    97
            @doStepSmokeRing,
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
    98
            @doStepBeeTrace,
3145
a9af6bf223cf Birdy's falling feathers
mbait
parents: 3118
diff changeset
    99
            @doStepEgg,
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   100
            @doStepFeather,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   101
            @doStepHealthTag,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   102
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   103
            @doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   104
            @doStepExplosion,
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   105
            @doStepBigExplosion,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   106
            @doStepChunk,
4279
b697a26ed538 Light trails for bullets
Palewolf
parents: 4159
diff changeset
   107
            @doStepNote,
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   108
            @doStepLineTrail,
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
   109
            @doStepBulletHit,
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   110
            @doStepCircle,
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   111
            @doStepSmoothWindBar,
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   112
            @doStepStraightShot
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   113
        );
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   114
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4390
diff changeset
   115
function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   116
const VGCounter: Longword = 0;
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   117
var gear: PVisualGear;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   118
    t: Longword;
4379
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4378
diff changeset
   119
    sp: real;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   120
begin
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   121
AddVisualGear:= nil;
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   122
if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) and // we are scrolling now
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   123
   ((Kind <> vgtCloud) and not Critical) then exit;
1642
177b440773de Disable visual gears when quick replaying
unc0rr
parents: 1505
diff changeset
   124
4809
9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents: 4806
diff changeset
   125
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
   126
   not Critical and
3447
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   127
   not (Kind in
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   128
   [vgtTeamHealthSorter,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   129
    vgtSmallDamageTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   130
    vgtSpeechBubble,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   131
    vgtHealthTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   132
    vgtExplosion,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode
sheepluva
parents: 3443
diff changeset
   133
    vgtSmokeTrace,
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   134
    vgtEvilTrace,
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   135
    vgtNote,
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   136
    vgtSmoothWindBar]) then exit;
1812
3d4692e825e7 'Reduce quality' patch by nemo
unc0rr
parents: 1801
diff changeset
   137
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   138
inc(VGCounter);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   139
New(gear);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   140
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
   141
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
   142
gear^.Y:= real(Y);
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   143
gear^.Kind := Kind;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   144
gear^.doStep:= doStepHandlers[Kind];
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   145
gear^.State:= 0;
3475
95345f98da19 Engine:
smxx
parents: 3447
diff changeset
   146
gear^.Tint:= $FFFFFFFF;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   147
gear^.uid:= VGCounter;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   148
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   149
with gear^ do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   150
    case Kind of
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   151
    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
   152
                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
   153
                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
   154
                tdY:= 0;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   155
                if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   156
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   157
                    FrameTicks:= random(vobSDFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   158
                    Frame:= random(vobSDFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   159
                    end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   160
                else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   161
                    begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   162
                    FrameTicks:= random(vobFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   163
                    Frame:= random(vobFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   164
                    end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   165
                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
   166
                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
   167
                dy:= 0.000003506096 * random(7000);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   168
                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
   169
                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
   170
                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
   171
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   172
    vgtCloud: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   173
                Frame:= random(4);
3994
486da687d76a fix/tweak let clouds reflect wind speed and direction again + stronger
sheepluva
parents: 3976
diff changeset
   174
                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
   175
                timer:= random(4096);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   176
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   177
    vgtExplPart,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   178
    vgtExplPart2: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   179
                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
   180
                sp:= 0.001 * (random(95) + 70);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   181
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   182
                dy:= hwFloat2Float(AngleCos(t)) * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   183
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   184
                if random(2) = 0 then dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   185
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   186
                FrameTicks:= cExplFrameTicks
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   187
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   188
        vgtFire: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   189
                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
   190
                sp:= 0.001 * (random(85) + 95);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   191
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   192
                dy:= hwFloat2Float(AngleCos(t)) * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   193
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   194
                if random(2) = 0 then dy := -dy;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   195
                FrameTicks:= 650 + random(250);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   196
                Frame:= random(8)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   197
                end;
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   198
         vgtEgg: begin
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   199
                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
   200
                sp:= 0.001 * (random(85) + 95);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   201
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   202
                dy:= hwFloat2Float(AngleCos(t)) * sp;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   203
                if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   204
                if random(2) = 0 then dy := -dy;
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   205
                FrameTicks:= 650 + random(250);
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   206
                Frame:= 1
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   207
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   208
        vgtShell: FrameTicks:= 500;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   209
    vgtSmallDamageTag: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   210
                gear^.FrameTicks:= 1100
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   211
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   212
    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
   213
                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
   214
                dy:= 0;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   215
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   216
                FrameTicks:= 250 + random(1751);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   217
                Frame:= random(5)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   218
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   219
    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
   220
                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
   221
                dy:= 0.001 * (random(85) + 95);
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   222
                if random(2) = 0 then dx := -dx;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   223
                Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   224
                FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   225
                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
   226
    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
   227
                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
   228
                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
   229
                end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3689
diff changeset
   230
  vgtSmokeWhite,
2713
71250942e95b Palewolf's smoke traces for fire.
nemo
parents: 2699
diff changeset
   231
  vgtSmoke: begin
5690
f6e0c5bd8020 Allow vgtSmoke to scale. Scale it down 50% for mines, so smoke doesn't seem so oversized
nemo
parents: 5596
diff changeset
   232
                Scale:= 1.0;
3593
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations.
nemo
parents: 3592
diff changeset
   233
                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
   234
                dy:= 0.0002 * (random(45) + 10);
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:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   237
                FrameTicks:= cExplFrameTicks * 2;
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);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   276
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   277
                dy:= hwFloat2Float(AngleCos(t)) * 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
5574
3d7438991ed8 Use Frame instead of State for the health flag
nemo
parents: 5570
diff changeset
   284
                Frame:= 0;
3d7438991ed8 Use Frame instead of State for the health flag
nemo
parents: 5570
diff changeset
   285
                Timer:= 1500;
5576
bf30c60786a5 Move HealthTag dY init into AddGear
nemo
parents: 5574
diff changeset
   286
                dY:= -0.08;
5596
nemo
parents: 5585
diff changeset
   287
                dX:= 0;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   288
                //gear^.Z:= 2002;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   289
                end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   290
  vgtSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   291
  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
   292
                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
   293
                gear^.Y:= gear^.Y - 16;
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   294
                gear^.State:= 8;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   295
                //gear^.Z:= cSmokeZ
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   296
                end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   297
vgtBigExplosion: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   298
                gear^.Angle:= random(360);
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   299
                end;
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   300
      vgtChunk: begin
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   301
                gear^.Frame:= random(4);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   302
                t:= random(1024);
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   303
                sp:= 0.001 * (random(85) + 47);
5151
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   304
                dx:= hwFloat2Float(AngleSin(t)) * sp;
cbadb9fa52fc An experiment - make bazooka AI use float instead of hwFloat - should be as accurate, but faster.
nemo
parents: 5121
diff changeset
   305
                dy:= hwFloat2Float(AngleCos(t)) * sp * -2;
3689
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   306
                if random(2) = 0 then dx := -dx;
e2be39ee19f0 Engine:
smaxx
parents: 3641
diff changeset
   307
                end;
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   308
      vgtNote: begin
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   309
                dx:= 0.005 * (random(15) + 10);
3706
a79784328c03 Engine:
smaxx
parents: 3704
diff changeset
   310
                dy:= -0.001 * (random(40) + 20);
3704
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   311
                if random(2) = 0 then dx := -dx;
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   312
                Frame:= random(4);
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   313
                FrameTicks:= random(2000) + 1500;
ed2b9c7fb260 Engine:
smaxx
parents: 3697
diff changeset
   314
                end;
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   315
  vgtBulletHit: begin
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   316
                dx:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   317
                dy:= 0;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   318
                FrameTicks:= 350;
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   319
                Frame:= 7;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   320
                Angle:= 0;
4327
224efdd648e1 Small animation on bullet impact
Palewolf
parents: 4279
diff changeset
   321
                end;
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5256
diff changeset
   322
vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   323
 vgtStraightShot: begin
5924
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour.
nemo
parents: 5874
diff changeset
   324
                Angle:= 0;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   325
                Scale:= 1.0;
5564
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   326
                dx:= 0.001 * random(45);
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   327
                dy:= 0.001 * (random(20) + 25);
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   328
                State:= ord(sprHealth);
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   329
                if random(2) = 0 then dx := -dx;
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   330
                Frame:= 0;
5564
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   331
                FrameTicks:= random(750) + 1250;
5563
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5562
diff changeset
   332
                State:= ord(sprSnowDust);
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5491
diff changeset
   333
                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2941
diff changeset
   334
        end;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   335
3440
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   336
if State <> 0 then gear^.State:= State;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt*)
sheepluva
parents: 3420
diff changeset
   337
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   338
case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   339
    // 0: this layer is very distant in the background when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   340
    vgtTeamHealthSorter,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   341
    vgtSmoothWindBar,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   342
    vgtFlake, 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   343
    vgtCloud: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   344
              if VisualGearsLayer0 <> nil then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   345
                  begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   346
                  VisualGearsLayer0^.PrevGear:= gear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   347
                  gear^.NextGear:= VisualGearsLayer0
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   348
                  end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   349
              gear^.Layer:= 0;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   350
              VisualGearsLayer0:= gear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   351
              end; 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   352
    // 1: this layer is on the land level (which is close but behind the screen plane) when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   353
    vgtSmokeTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   354
    vgtEvilTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   355
    vgtLineTrail,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   356
    vgtSmoke,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   357
    vgtSmokeWhite,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   358
    vgtDust,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   359
    vgtFire,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   360
    vgtSplash,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   361
    vgtDroplet,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   362
    vgtBubble: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   363
              if VisualGearsLayer1 <> nil then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   364
                  begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   365
                  VisualGearsLayer1^.PrevGear:= gear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   366
                  gear^.NextGear:= VisualGearsLayer1
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   367
                  end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   368
              gear^.Layer:= 1;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   369
              VisualGearsLayer1:= gear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   370
              end; 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   371
    // 3: this layer is on the screen plane (depth = 0) when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   372
    vgtSpeechBubble,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   373
    vgtSmallDamageTag,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   374
    vgtHealthTag,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   375
    vgtStraightShot,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   376
    vgtChunk: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   377
              if VisualGearsLayer3 <> nil then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   378
                  begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   379
                  VisualGearsLayer3^.PrevGear:= gear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   380
                  gear^.NextGear:= VisualGearsLayer3
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   381
                  end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   382
              gear^.Layer:= 3;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   383
              VisualGearsLayer3:= gear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   384
              end; 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   385
    // 2: this layer is outside the screen when stereo
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   386
    vgtExplosion,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   387
    vgtBigExplosion,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   388
    vgtExplPart,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   389
    vgtExplPart2,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   390
    vgtSteam,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   391
    vgtAmmo,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   392
    vgtShell,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   393
    vgtFeather,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   394
    vgtEgg,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   395
    vgtBeeTrace,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   396
    vgtSmokeRing,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   397
    vgtNote,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   398
    vgtBulletHit,
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   399
    vgtCircle: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   400
              if VisualGearsLayer2 <> nil then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   401
                  begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   402
                  VisualGearsLayer2^.PrevGear:= gear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   403
                  gear^.NextGear:= VisualGearsLayer2
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   404
                  end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   405
              gear^.Layer:= 2;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   406
              VisualGearsLayer2:= gear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   407
              end; 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   408
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   409
2695
ed789a7ef68d makes freepascal code compatible with OBJFPC mode
koda
parents: 2671
diff changeset
   410
AddVisualGear:= gear;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   411
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   412
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   413
procedure DeleteVisualGear(Gear: PVisualGear);
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   414
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
   415
    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
   416
        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
   417
    Gear^.Tex:= nil;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1132
diff changeset
   418
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
   419
    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
   420
    if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   421
    else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   422
        case Gear^.Layer of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   423
            0: VisualGearsLayer0:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   424
            1: VisualGearsLayer1:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   425
            2: VisualGearsLayer2:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   426
            3: VisualGearsLayer3:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   427
        end;
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   428
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
   429
    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
   430
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
   431
    Dispose(Gear);
1041
362b95d49cf4 - Fix previous commit
unc0rr
parents: 945
diff changeset
   432
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   433
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   434
procedure ProcessVisualGears(Steps: Longword);
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   435
var Gear, t: PVisualGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   436
begin
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   437
if Steps = 0 then exit;
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   438
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   439
t:= VisualGearsLayer0;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   440
while t <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   441
      begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   442
      Gear:= t;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   443
      t:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   444
      Gear^.doStep(Gear, Steps)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   445
      end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   446
t:= VisualGearsLayer1;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   447
while t <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   448
      begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   449
      Gear:= t;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   450
      t:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   451
      Gear^.doStep(Gear, Steps)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   452
      end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   453
t:= VisualGearsLayer2;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   454
while t <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   455
      begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   456
      Gear:= t;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   457
      t:= Gear^.NextGear;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   458
      Gear^.doStep(Gear, Steps)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   459
      end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   460
t:= VisualGearsLayer3;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   461
while t <> nil do
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   462
      begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   463
      Gear:= t;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   464
      t:= Gear^.NextGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   465
      Gear^.doStep(Gear, Steps)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   466
      end
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   467
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   468
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
   469
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
   470
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
   471
    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
   472
begin
3641
98319a621dc8 save the gl client state to get a nice 80% fps boost
koda
parents: 3616
diff changeset
   473
if (vobCount = 0) or (vobCount > 200) then exit;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   474
t:= VisualGearsLayer0;
2985
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   475
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
   476
      begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   477
      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
   478
      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
   479
          begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   480
          // 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
   481
          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
   482
          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
   483
              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
   484
              Gear^.tdX:= 0.02 * dmg + 0.01;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   485
              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
   486
              Gear^.tdY:= 0.02 * dmg + 0.01;
3597
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications
sheepluva
parents: 3594
diff changeset
   487
              if Gear^.Y - Y < 0 then Gear^.tdY := -Gear^.tdY;
2986
c0c91cd3f423 Trying to tweak kicks a bit
nemo
parents: 2985
diff changeset
   488
              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
   489
              end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   490
          end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   491
      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
   492
      end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   493
end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined
nemo
parents: 2982
diff changeset
   494
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   495
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
   496
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
   497
    tinted: boolean;
4545
180d703cfdd0 offset the sprite
nemo
parents: 4544
diff changeset
   498
    tmp: real;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   499
    i: LongInt;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   500
begin
1045
ea195268734f Testing explosion particles implementation
unc0rr
parents: 1041
diff changeset
   501
case Layer of
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   502
    // this layer is very distant in the background when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   503
    0: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   504
       Gear:= VisualGearsLayer0;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   505
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   506
           begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   507
           if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   508
           case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   509
               vgtFlake: if SuddenDeathDmg then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   510
                             if vobSDVelocity = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   511
                                 DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   512
                             else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   513
                                 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   514
                         else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   515
                             if vobVelocity = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   516
                                 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   517
                             else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   518
                                 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   519
               vgtCloud: if SuddenDeathDmg then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   520
                             DrawSprite(sprSDCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   521
                         else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   522
                             DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   523
               end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   524
           if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   525
           Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   526
           end
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   527
       end;
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   528
    // this layer is on the land level (which is close but behind the screen plane) when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   529
    1: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   530
       Gear:= VisualGearsLayer1;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   531
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   532
          begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   533
          //tinted:= false;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   534
          if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   535
          case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   536
              vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   537
              vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   538
              vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   539
          end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   540
          if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   541
              case Gear^.Kind of
5690
f6e0c5bd8020 Allow vgtSmoke to scale. Scale it down 50% for mines, so smoke doesn't seem so oversized
nemo
parents: 5596
diff changeset
   542
                  vgtSmoke: DrawTextureF(SpritesData[sprSmoke].Texture, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 7 - Gear^.Frame, 0, SpritesData[sprSmoke].Width, SpritesData[sprSmoke].Height);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   543
                  vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   544
                  vgtDust: if Gear^.State = 1 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   545
                               DrawSprite(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame)
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   546
                           else
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   547
                               DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   548
                  vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   549
                               DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   550
                           else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   551
                               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);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   552
                  vgtSplash: if SuddenDeathDmg then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   553
                                 DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   554
                             else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   555
                                 DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   556
                  vgtDroplet: if SuddenDeathDmg then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   557
                                  DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   558
                              else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   559
                                  DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   560
                  vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   561
              end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   562
          //if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   563
          if (Gear^.Tint <> $FFFFFFFF) then Tint($FF,$FF,$FF,$FF);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   564
          Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   565
          end
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   566
       end;
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   567
    // this layer is on the screen plane (depth = 0) when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   568
    3: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   569
       Gear:= VisualGearsLayer3;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   570
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   571
           begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   572
           tinted:= false;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   573
           if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   574
           case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   575
               vgtSpeechBubble: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   576
                                if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   577
                                    begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   578
                                    tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   579
                                    Tint($FF, $FF, $FF,  $66);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   580
                                    DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   581
                                    end
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   582
                                else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   583
                                    DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   584
                                end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   585
               vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   586
               vgtHealthTag: if Gear^.Tex <> nil then 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   587
                               begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   588
                               if Gear^.Frame = 0 then 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   589
                                   DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   590
                               else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   591
                                   begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   592
                                   SetScale(cDefaultZoomLevel);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   593
                                   if Gear^.Angle = 0 then DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   594
                                   else DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex, Gear^.Angle); 
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   595
                                   SetScale(zoom)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   596
                                   end
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   597
                               end;
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   598
               vgtStraightShot: begin 
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   599
                                if Gear^.dX < 0 then i:= -1 else i:= 1;
5924
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour.
nemo
parents: 5874
diff changeset
   600
                                DrawRotatedTextureF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle);
5748
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu.
nemo
parents: 5690
diff changeset
   601
                                end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   602
           end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   603
           if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   604
               case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   605
                   vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   606
               end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   607
           if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   608
           Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   609
           end
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   610
       end;
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   611
    // this layer is outside the screen when stereo
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   612
    2: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   613
       Gear:= VisualGearsLayer2;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   614
       while Gear <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   615
           begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   616
           tinted:= false;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   617
           if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   618
           case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   619
               vgtExplosion: DrawSprite(sprExplosion50, round(Gear^.X) - 32 + WorldDx, round(Gear^.Y) - 32 + WorldDy, Gear^.State);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   620
               vgtBigExplosion: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   621
                                tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   622
                                Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   623
                                DrawRotatedTextureF(SpritesData[sprBigExplosion].Texture, 0.85 * (-power(2, -10 * Int(Gear^.Timer)/250) + 1) + 0.4, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 385, 385, Gear^.Angle);
4818
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents: 4809
diff changeset
   624
                                end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   625
           end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   626
           if (cReducedQuality and rqAntiBoom) = 0 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   627
               case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   628
                   vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   629
                   vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   630
                   vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   631
                   vgtAmmo: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   632
                            tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   633
                            Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   634
                            DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   635
                            DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32);
3115
831bd0f7050d Engine:
smxx
parents: 3096
diff changeset
   636
                            end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   637
                   vgtShell: begin
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   638
                             if Gear^.FrameTicks < $FF then
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   639
                                 begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   640
                                 Tint($FF, $FF, $FF, Gear^.FrameTicks);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   641
                                 tinted:= true
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   642
                                 end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   643
                             DrawRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   644
                             end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   645
                   vgtFeather: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   646
                               if Gear^.FrameTicks < 255 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   647
                                   begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   648
                                   Tint($FF, $FF, $FF, Gear^.FrameTicks);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   649
                                   tinted:= true
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   650
                                   end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   651
                               DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   652
                             end;
5874
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added
sheepluva
parents: 5855
diff changeset
   653
                   vgtEgg: DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   654
                   vgtBeeTrace: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   655
                                if Gear^.FrameTicks < $FF then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   656
                                    Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   657
                                else
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   658
                                    Tint($FF, $FF, $FF, $80);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   659
                                tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   660
                                DrawRotatedF(sprBeeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, (RealTicks shr 4) mod cMaxAngle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   661
                                end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   662
                   vgtSmokeRing: begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   663
                                 tinted:= true;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   664
                                 Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   665
                                 DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   666
                                 end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   667
                   vgtNote: DrawRotatedF(sprNote, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   668
                   vgtBulletHit: DrawRotatedF(sprBulletHit, round(Gear^.X) + WorldDx - 0, round(Gear^.Y) + WorldDy - 0, 7 - (Gear^.FrameTicks div 50), 1, Gear^.Angle);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   669
               end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   670
           case Gear^.Kind of
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   671
               vgtCircle: if gear^.Angle = 1 then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   672
                              begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   673
                              tmp:= Gear^.State / 100;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   674
                              DrawTexture(round(Gear^.X-24*tmp) + WorldDx, round(Gear^.Y-24*tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp)
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   675
                              end
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   676
                          else DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   677
           end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   678
           if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   679
           Gear:= Gear^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   680
           end
5256
e3fada9358b0 fix water bubbles like sheepluva wanted (also code formatting)
koda
parents: 5179
diff changeset
   681
       end
4452
258945553b18 make Tint(longword) use RGBA
nemo
parents: 4451
diff changeset
   682
    end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   683
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   684
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
   685
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
   686
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
   687
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
   688
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
   689
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
   690
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
   691
    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
   692
    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
   693
    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
   694
    end;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   695
vg:= VisualGearsLayer0;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   696
while vg <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   697
    begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   698
    if vg^.uid = uid then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   699
        begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   700
        lastVisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   701
        VisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   702
        exit
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   703
        end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   704
    vg:= vg^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   705
    end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   706
vg:= VisualGearsLayer1;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   707
while vg <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   708
    begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   709
    if vg^.uid = uid then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   710
        begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   711
        lastVisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   712
        VisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   713
        exit
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   714
        end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   715
    vg:= vg^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   716
    end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   717
vg:= VisualGearsLayer2;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   718
while vg <> nil do
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   719
    begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   720
    if vg^.uid = uid then
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   721
        begin
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   722
        lastVisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   723
        VisualGearByUID:= vg;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   724
        exit
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   725
        end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   726
    vg:= vg^.NextGear
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   727
    end;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   728
vg:= VisualGearsLayer3;
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
   729
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
   730
    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
   731
    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
   732
        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
   733
        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
   734
        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
   735
        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
   736
        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
   737
    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
   738
    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
   739
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
   740
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   741
procedure AddClouds;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   742
var i: LongInt;
803
3f73901a350a - Use cloud as 'visual gear'
unc0rr
parents: 802
diff changeset
   743
begin
1132
b4c0698fbb6b - Fix problem when clouds number is 0
unc0rr
parents: 1079
diff changeset
   744
for i:= 0 to cCloudsNumber - 1 do
5179
8d64dcb566ea Fix "Mixing signed expressions and longwords gives a 64bit result" warnings
unc0rr
parents: 5151
diff changeset
   745
    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   746
end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   747
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
   748
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
   749
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
   750
    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
   751
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
   752
if cCloudsNumber = cSDCloudsNumber then exit;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   753
vg:= VisualGearsLayer0;
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
   754
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
   755
    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
   756
        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
   757
        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
   758
        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
   759
        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
   760
        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
   761
    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
   762
for i:= 0 to cSDCloudsNumber - 1 do
5179
8d64dcb566ea Fix "Mixing signed expressions and longwords gives a 64bit result" warnings
unc0rr
parents: 5151
diff changeset
   763
    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
4792
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents: 4782
diff changeset
   764
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
   765
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   766
procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   767
var i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   768
begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   769
if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   770
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   771
if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   772
    for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   773
        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
   774
else
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   775
    for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   776
        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
   777
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   778
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   779
procedure ChangeToSDFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   780
var       i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   781
    vg, tmp: PVisualGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   782
begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   783
if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   784
if vobCount = vobSDCount then exit;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   785
vg:= VisualGearsLayer0;
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   786
while vg <> nil do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   787
    if vg^.Kind = vgtFlake then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   788
        begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   789
        tmp:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   790
        DeleteVisualGear(vg);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   791
        vg:= tmp
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   792
        end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   793
    else vg:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   794
if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   795
    for i:= 0 to Pred(vobSDCount * cScreenSpace div LAND_WIDTH) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   796
        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
   797
else
5014
adc340265ccf should probably fix broken flakes, my bad
Henek
parents: 4976
diff changeset
   798
    for i:= 0 to Pred((vobSDCount * cScreenSpace div LAND_WIDTH) div 3) do
4806
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   799
        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
   800
end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater
Henek
parents: 4792
diff changeset
   801
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   802
procedure initModule;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   803
begin
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   804
    VisualGearsLayer0:= nil;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   805
    VisualGearsLayer1:= nil;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   806
    VisualGearsLayer2:= nil;
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   807
    VisualGearsLayer3:= nil;
2699
249adefa9c1c replace initialization/finalization statements with custom init functions
koda
parents: 2695
diff changeset
   808
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   809
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 3032
diff changeset
   810
procedure freeModule;
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   811
begin
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   812
    while VisualGearsLayer0 <> nil do DeleteVisualGear(VisualGearsLayer0);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   813
    while VisualGearsLayer1 <> nil do DeleteVisualGear(VisualGearsLayer1);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   814
    while VisualGearsLayer2 <> nil do DeleteVisualGear(VisualGearsLayer2);
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5583
diff changeset
   815
    while VisualGearsLayer3 <> nil do DeleteVisualGear(VisualGearsLayer3);
2715
0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents: 2713
diff changeset
   816
end;
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   817
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents:
diff changeset
   818
end.