hedgewars/uConsts.pas
author unc0rr
Thu, 30 Apr 2009 20:16:58 +0000
changeset 2019 b3f1eda8865f
parent 2017 7845c77c8d31
child 2023 41d3afaa20c7
permissions -rw-r--r--
Oops, remove debug stuff
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1047
diff changeset
     2
 * Hedgewars, a free turn based strategy game
883
07a568ba44e0 Update copyright info in source files headers
unc0rr
parents: 876
diff changeset
     3
 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    12
 * GNU General Public License for more details.
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 176
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    17
 *)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    18
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    19
unit uConsts;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    20
interface
1906
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    21
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    22
uses 
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    23
	SDLh,
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    24
{$IFDEF IPHONE}
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    25
	gles11,
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    26
{$ELSE}
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    27
	GL,
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    28
{$ENDIF}
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    29
	uLocale;
644f93d8f148 Apply koda's OpenGL ES compatibility patch
unc0rr
parents: 1904
diff changeset
    30
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
    31
{$INCLUDE options.inc}
271
f2f9a3d5b441 Protocol version sets in CMake
unc0rr
parents: 267
diff changeset
    32
{$INCLUDE proto.inc}
689
f4ec46c48ed2 The rest of stuff converted to sprites
unc0rr
parents: 688
diff changeset
    33
type
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    34
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    35
	TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    36
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    37
	TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    38
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    39
	TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    40
			ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    41
			ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    42
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    43
	TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    44
			sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    45
			sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    46
			sprMineOn, sprCase, sprFAid, sprDynamite, sprPower,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    47
			sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    48
			sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    49
			sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    50
			sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    51
			sprSwitch, sprParachute, sprTarget, sprRopeNode,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    52
			sprQuestion, sprPowerBar, sprWindBar, sprWindL, sprWindR,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    53
			sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    54
			sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    55
			sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    56
			sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    57
			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    58
			sprHurrah, sprLemonade, sprExplPart, sprExplPart2,
1263
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
    59
			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
1286
a02a5345b91e Seduction animation
unc0rr
parents: 1285
diff changeset
    60
			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
1717
f4cf7e36ae3e Hedgehog controlling rc plane sprite
unc0rr
parents: 1712
diff changeset
    61
			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    62
			sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder, 
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    63
            sprSpeechCorner, sprSpeechEdge, sprSpeechTail, 
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    64
            sprThoughtCorner, sprThoughtEdge, sprThoughtTail, 
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    65
            sprShoutCorner, sprShoutEdge, sprShoutTail);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    66
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1445
diff changeset
    67
	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1445
diff changeset
    68
			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1445
diff changeset
    69
			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, // 14
2005
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    70
			gtClusterBomb, gtCluster, gtShover, gtFlame, // 18
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    71
			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, // 24
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    72
			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 27
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    73
			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 31
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    74
			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 37
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    75
			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill, gtBallGun, gtBall,gtRCPlane, gtSpeechBubble);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    76
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1445
diff changeset
    77
	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
2005
aa79f631711b Move health sorter to visual gears:
unc0rr
parents: 1914
diff changeset
    78
			vgtSmallDamageTag, vgtTeamHealthSorter);
802
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes)
unc0rr
parents: 801
diff changeset
    79
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    80
	TGearsType = set of TGearType;
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    81
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    82
	TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    83
			sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    84
			sndMineTick, sndPickhammer, sndGun, sndUFO, sndJump1, sndJump2,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    85
			sndJump3, sndYesSir, sndLaugh, sndIllGetYou, sndIncoming,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    86
			sndMissed, sndStupid, sndFirstBlood, sndBoring, sndByeBye,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    87
			sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    88
			sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,
1279
33cae6d1635c Use new sounds
unc0rr
parents: 1270
diff changeset
    89
			sndCake, sndOw1, sndOw4, sndFirePunch1, sndFirePunch2,
33cae6d1635c Use new sounds
unc0rr
parents: 1270
diff changeset
    90
			sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
    91
			sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,
1914
aab686a4e0c5 Add sounds to girder
unc0rr
parents: 1912
diff changeset
    92
			sndRideOfTheValkyries, sndDenied, sndPlaced);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
    93
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    94
	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    95
			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    96
			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
    97
			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
1854
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
    98
			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, 
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
    99
            amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime, amLaserSight, amVampiric);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
   100
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   101
	THWFont = (fnt16, fntBig, fntSmall);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
   102
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   103
	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
   104
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1608
diff changeset
   105
	TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1608
diff changeset
   106
			siClanHealth);
306
7b61834edcf6 - Better blowtorch
unc0rr
parents: 305
diff changeset
   107
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   108
	TWave = (waveRollup, waveSad,waveWave, waveHurrah, waveLemonade);
1034
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   109
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   110
	THHFont = record
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   111
			Handle: PTTF_Font;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   112
			Height: LongInt;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   113
			style: LongInt;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   114
			Name: string[19];
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   115
			end;
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 271
diff changeset
   116
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   117
	PAmmo = ^TAmmo;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   118
	TAmmo = record
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   119
			Propz: LongWord;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   120
			Count: LongWord;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   121
			NumPerTurn: LongWord;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   122
			Timer: LongWord;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   123
			Pos: LongWord;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   124
			AmmoType: TAmmoType;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   125
			end;
1912
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   126
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   127
	TVertex2f = record
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   128
		X, Y: GLfloat;
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   129
		end;
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   130
			
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   131
	TTexture = record
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   132
			id: GLuint;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   133
			w, h: LongInt;
1896
fdacad5d0acc Don't use GLU
unc0rr
parents: 1895
diff changeset
   134
			rx, ry: GLfloat;
1912
c3d31fb59f0e Save much CPU time by initializing vertex arrays in texture creation function
unc0rr
parents: 1910
diff changeset
   135
			vb, tb: array [0..3] of TVertex2f;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   136
			end;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   137
	PTexture = ^TTexture;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   138
105
e7cb9bb4a9de - Fixed integer->longint
unc0rr
parents: 102
diff changeset
   139
const
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   140
	errmsgCreateSurface   = 'Error creating SDL surface';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   141
	errmsgTransparentSet  = 'Error setting transparent color';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   142
	errmsgUnknownCommand  = 'Unknown command';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   143
	errmsgUnknownVariable = 'Unknown variable';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   144
	errmsgIncorrectUse    = 'Incorrect use';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   145
	errmsgShouldntRun     = 'This program shouldn''t be run manually';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   146
	errmsgWrongNumber     = 'Wrong parameters number';
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   147
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   148
	msgLoading           = 'Loading ';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   149
	msgOK                = 'ok';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   150
	msgFailed            = 'failed';
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   151
	msgGettingConfig     = 'Getting game config...';
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   152
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   153
const
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   154
	cMaxPower     = 1500;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   155
	cMaxAngle     = 2048;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   156
	cPowerDivisor = 1500;
621
8bdbc240f50f New game flag for non-destroyable land
unc0rr
parents: 615
diff changeset
   157
1190
73ec31d8bb6f Enable back rendering objects that are put on top of land texture
unc0rr
parents: 1184
diff changeset
   158
	MAXNAMELEN = 192;
74
42257fee61ae - Unicode support for team and hedgehogs names
unc0rr
parents: 72
diff changeset
   159
1760
55a1edd97911 Fix nemo's large land patch
unc0rr
parents: 1753
diff changeset
   160
    LAND_WIDTH = 4096;
1765
fecacdc6f132 Switch to 2046 height
unc0rr
parents: 1761
diff changeset
   161
    LAND_HEIGHT = 2048;
1760
55a1edd97911 Fix nemo's large land patch
unc0rr
parents: 1753
diff changeset
   162
    LAND_WIDTH_MASK  = $FFFFF000;
1766
43e9ddf88fb1 Fix mask
unc0rr
parents: 1765
diff changeset
   163
    LAND_HEIGHT_MASK = $FFFFF800;
1760
55a1edd97911 Fix nemo's large land patch
unc0rr
parents: 1753
diff changeset
   164
	
1792
c30c6944bd49 engine part of nemo's patch
unc0rr
parents: 1784
diff changeset
   165
	COLOR_LAND           = $FFFFFFFF;  // white
c30c6944bd49 engine part of nemo's patch
unc0rr
parents: 1784
diff changeset
   166
	COLOR_INDESTRUCTIBLE = $FF0000FF;  // red
64
9df467527ae5 - Start AI rewrite
unc0rr
parents: 56
diff changeset
   167
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   168
	cifRandomize = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   169
	cifTheme     = $00000002;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   170
	cifMap       = $00000002; // either theme or map (or map+theme)
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   171
	cifAllInited = cifRandomize or
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   172
					cifTheme or
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   173
					cifMap;
55
e09f7c952a40 Send run parameters by cmd line, game parameters by IPC... breaks network game
unc0rr
parents: 53
diff changeset
   174
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   175
	cTransparentColor: Longword = $000000;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   176
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   177
	cMaxTeams        = 6;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   178
	cMaxHHIndex      = 7;
1784
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   179
	cMaxHHs          = 48;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   180
	cMaxSpawnPoints  = 1024;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   181
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   182
	cMaxEdgePoints = 16384;
22
517be8dc5b76 - Fixed spawning boxes under water
unc0rr
parents: 17
diff changeset
   183
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   184
	cHHRadius = 9;
1141
44d4d6aaecb5 - Some physics changes
unc0rr
parents: 1125
diff changeset
   185
	cHHStepTicks = 29;
509
fd58135a4407 Bots know shotgun behavior better
unc0rr
parents: 495
diff changeset
   186
1270
ee024c14c904 Draw smoke trail underneath of grenade
unc0rr
parents: 1263
diff changeset
   187
	cUsualZ = 500;
ee024c14c904 Draw smoke trail underneath of grenade
unc0rr
parents: 1263
diff changeset
   188
	cSmokeZ = 499;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   189
	cHHZ = 1000;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   190
	cCurrHHZ = Succ(cHHZ);
1109
87c44c14fdd4 - Cake sits down before exploding
unc0rr
parents: 1108
diff changeset
   191
	cOnHHZ = 2000;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   192
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   193
	cShotgunRadius = 22;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   194
	cBlowTorchC    = 6;
509
fd58135a4407 Bots know shotgun behavior better
unc0rr
parents: 495
diff changeset
   195
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   196
	cKeyMaxIndex = 1023;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   197
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   198
	cMaxCaptions = 4;
97
e7c1df9cce2c - make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents: 95
diff changeset
   199
1895
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   200
	gfForts        = $00000001;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   201
	gfMultiWeapon  = $00000002;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   202
	gfSolidLand    = $00000004;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   203
	gfBorder       = $00000008;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   204
	gfDivideTeams  = $00000010;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   205
	gfLowGravity   = $00000020;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   206
	gfLaserSight   = $00000040;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   207
	gfInvulnerable = $00000080;
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   208
	gfMines        = $00000100;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   209
	gfVampiric     = $00000200;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   210
	gfKarma        = $00000400;
1895
7ba647a88b2f More game options by nemo
unc0rr
parents: 1892
diff changeset
   211
	gfOneClanMode  = $10000000;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   212
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   213
	gstDrowning       = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   214
	gstHHDriven       = $00000002;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   215
	gstMoving         = $00000004;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   216
	gstAttacked       = $00000008;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   217
	gstAttacking      = $00000010;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   218
	gstCollision      = $00000020;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   219
	gstHHChooseTarget = $00000040;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   220
	gstHHJumping      = $00000100;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   221
	gsttmpFlag        = $00000200;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   222
	gstHHThinking     = $00000800;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   223
	gstNoDamage       = $00001000;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   224
	gstHHHJump        = $00002000;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   225
	gstAnimation      = $00004000;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   226
	gstHHDeath        = $00008000;
1865
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents: 1863
diff changeset
   227
	gstWinner         = $00010000;  // this, along with gstLoser, is good for indicating hedgies know they screwed up
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   228
	gstWait           = $00020000;
1528
3fee15104c1d More stable blowtorch:
unc0rr
parents: 1508
diff changeset
   229
	gstNotKickable    = $00040000;
1865
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents: 1863
diff changeset
   230
	gstLoser          = $00080000;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   231
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   232
	gm_Left   = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   233
	gm_Right  = $00000002;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   234
	gm_Up     = $00000004;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   235
	gm_Down   = $00000008;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   236
	gm_Switch = $00000010;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   237
	gm_Attack = $00000020;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   238
	gm_LJump  = $00000040;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   239
	gm_HJump  = $00000080;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   240
	gm_Destroy= $00000100;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   241
	gm_Slot   = $00000200; // with param
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   242
	gm_Weapon = $00000400; // with param
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   243
	gm_Timer  = $00000800; // with param
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   244
	gm_Animate= $00001000; // with param
1639
89b536a3cf3c Implement precise aiming when pressing left shift
unc0rr
parents: 1625
diff changeset
   245
	gm_Precise= $00002000;
89b536a3cf3c Implement precise aiming when pressing left shift
unc0rr
parents: 1625
diff changeset
   246
	gmAllStoppable = gm_Left or gm_Right or gm_Up or gm_Down or gm_Attack or gm_Precise;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   247
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   248
	cMaxSlotIndex       = 8;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
   249
	cMaxSlotAmmoIndex   = 4;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   250
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   251
	ammoprop_Timerable    = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   252
	ammoprop_Power        = $00000002;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   253
	ammoprop_NeedTarget   = $00000004;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   254
	ammoprop_ForwMsgs     = $00000008;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   255
	ammoprop_AttackInMove = $00000010;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   256
	ammoprop_NoCrosshair  = $00000040;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   257
	ammoprop_AttackingPut = $00000080;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   258
	ammoprop_DontHold     = $00000100;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   259
	ammoprop_AltAttack    = $00000200;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   260
	ammoprop_AltUse       = $00000400;
1784
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   261
	ammoprop_NotBorder    = $00000800;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
   262
	ammoprop_Utility      = $00001000;
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   263
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   264
	AMMO_INFINITE = 9;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   265
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   266
	EXPLAllDamageInRadius = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   267
	EXPLAutoSound         = $00000002;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   268
	EXPLNoDamage          = $00000004;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   269
	EXPLDoNotTouchHH      = $00000008;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   270
	EXPLDontDraw          = $00000010;
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   271
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   272
	posCaseAmmo    = $00000001;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   273
	posCaseHealth  = $00000002;
1861
unc0rr
parents: 1854
diff changeset
   274
	posCaseUtility = $00000004;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   275
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   276
	NoPointX = Low(LongInt);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   277
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   278
	cHHFileName   = 'Hedgehog';
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   279
	cCHFileName   = 'Crosshair';
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   280
	cThemeCFGFilename = 'theme.cfg';
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   281
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   282
	Fontz: array[THWFont] of THHFont = (
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   283
			(Handle: nil;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   284
			Height: 12;
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   285
			style: TTF_STYLE_NORMAL;
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   286
			Name: 'DejaVuSans-Bold.ttf'),
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   287
			(Handle: nil;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   288
			Height: 24;
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   289
			style: TTF_STYLE_NORMAL;
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   290
			Name: 'DejaVuSans-Bold.ttf'),
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   291
			(Handle: nil;
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   292
			Height: 10;
1118
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   293
			style: TTF_STYLE_NORMAL;
caf47265d03f - Use DejaVuSans-Bold instead of DejaVuSans+bold
unc0rr
parents: 1111
diff changeset
   294
			Name: 'DejaVuSans-Bold.ttf')
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   295
			);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   296
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   297
	FontBorder = 2;
202
8603c0420461 Support font styles
unc0rr
parents: 199
diff changeset
   298
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   299
	PathPrefix: string = './';
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   300
	Pathz: array[TPathType] of String = (
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   301
			'',                              // ptNone
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   302
			'',                              // ptData
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   303
			'Graphics',                      // ptGraphics
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   304
			'Themes',                        // ptThemes
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   305
			'Themes/avematan',               // ptCurrTheme
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   306
			'Teams',                         // ptTeams
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   307
			'Maps',                          // ptMaps
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   308
			'',                              // ptMapCurrent
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   309
			'Demos',                         // ptDemos
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   310
			'Sounds',                        // ptSounds
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   311
			'Graphics/Graves',               // ptGraves
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   312
			'Fonts',                         // ptFonts
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   313
			'Forts',                         // ptForts
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   314
			'Locale',                        // ptLocale
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   315
			'Graphics/AmmoMenu',             // ptAmmoMenu
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   316
			'Graphics/Hedgehog',             // ptHedgehog
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   317
			'Sounds/voices',                 // ptVoices
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   318
			'Graphics/Hats'                  // ptHats
622c5de38d72 Start implementing waves
unc0rr
parents: 1022
diff changeset
   319
			);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   320
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   321
	SpritesData: array[TSprite] of record
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   322
			FileName: String[14];
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   323
			Path, AltPath: TPathType;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   324
			Texture: PTexture;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   325
			Surface: PSDL_Surface;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   326
			Width, Height: LongInt;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   327
			saveSurf: boolean;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   328
			end = (
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   329
			(FileName:  'BlueWater'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
1825
c929f9111141 Nemo's patch allowing different water sprites size
unc0rr
parents: 1794
diff changeset
   330
			Width: 0; Height: 0; saveSurf: false),// sprWater
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   331
			(FileName:     'Clouds'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   332
			Width: 256; Height:128; saveSurf: false),// sprCloud
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   333
			(FileName:       'Bomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   334
			Width:   8; Height:  8; saveSurf: false),// sprBomb
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   335
			(FileName:  'BigDigits'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   336
			Width:  32; Height: 32; saveSurf: false),// sprBigDigit
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   337
			(FileName:      'Frame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   338
			Width:   4; Height: 32; saveSurf: false),// sprFrame
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   339
			(FileName:        'Lag'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   340
			Width:  65; Height: 65; saveSurf: false),// sprLag
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   341
			(FileName:      'Arrow'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   342
			Width:  16; Height: 16; saveSurf: false),// sprCursor
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   343
			(FileName:    'Grenade'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   344
			Width:  16; Height: 16; saveSurf: false),// sprGrenade
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   345
			(FileName:    'Targetp'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   346
			Width:  32; Height: 32; saveSurf: false),// sprTargetP
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   347
			(FileName:        'UFO'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   348
			Width:  32; Height: 32; saveSurf: false),// sprUFO
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   349
			(FileName: 'SmokeTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   350
			Width:  32; Height: 32; saveSurf: false),// sprSmokeTrace
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   351
			(FileName:   'RopeHook'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   352
			Width:  16; Height: 16; saveSurf: false),// sprRopeHook
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   353
			(FileName:     'Expl50'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   354
			Width:  64; Height: 64; saveSurf: false),// sprExplosion50
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   355
			(FileName:    'MineOff'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   356
			Width:   8; Height:  8; saveSurf: false),// sprMineOff
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   357
			(FileName:     'MineOn'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   358
			Width:   8; Height:  8; saveSurf: false),// sprMineOn
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   359
			(FileName:       'Case'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1794
8ae48e3b02d9 New bonus box sprite
unc0rr
parents: 1792
diff changeset
   360
			Width:  48; Height: 48; saveSurf: false),// sprCase
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   361
			(FileName:   'FirstAid'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   362
			Width:  48; Height: 48; saveSurf: false),// sprFAid
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   363
			(FileName:   'dynamite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   364
			Width:  32; Height: 32; saveSurf: false),// sprDynamite
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   365
			(FileName:      'Power'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   366
			Width:  32; Height: 32; saveSurf: false),// sprPower
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   367
			(FileName:     'ClBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   368
			Width:  16; Height: 16; saveSurf: false),// sprClusterBomb
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   369
			(FileName: 'ClParticle'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   370
			Width:  16; Height: 16; saveSurf: false),// sprClusterParticle
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   371
			(FileName:      'Flame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   372
			Width:  16; Height: 16; saveSurf: false),// sprFlame
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   373
			(FileName:   'horizont'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   374
			Width:   0; Height:  0; saveSurf: false),// sprHorizont
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   375
			(FileName:        'Sky'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   376
			Width:   0; Height:  0; saveSurf: false),// sprSky
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   377
			(FileName:  'BrdrLines'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   378
			Width: 202; Height:  1; saveSurf: false),// sprAMBorders
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   379
			(FileName:       'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   380
			Width: 202; Height: 33; saveSurf: false),// sprAMSlot
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   381
			(FileName:   'AmmoName'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   382
			Width: 202; Height: 33; saveSurf: false),// sprAMSlotName
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   383
			(FileName:      'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   384
			Width:  32; Height: 32; saveSurf: false),// sprAMAmmos
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   385
			(FileName:   'SlotKeys'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   386
			Width:  32; Height: 32; saveSurf: false),// sprAMSlotKeys
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   387
			(FileName:  'Selection'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   388
			Width:  32; Height: 32; saveSurf: false),// sprAMSelection
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   389
			(FileName:     'Finger'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   390
			Width:  32; Height: 48; saveSurf: false),// sprFinger
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   391
			(FileName:    'AirBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   392
			Width:  16; Height: 16; saveSurf: false),// sprAirBomb
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   393
			(FileName:   'Airplane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   394
			Width: 125; Height: 42; saveSurf: false),// sprAirplane
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   395
			(FileName: 'amAirplane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   396
			Width:  64; Height: 32; saveSurf: false),// sprAmAirplane
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   397
			(FileName:   'amGirder'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   398
			Width: 160; Height:160; saveSurf:  true),// sprAmGirder
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   399
			(FileName:     'hhMask'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   400
			Width:  32; Height: 32; saveSurf:  true),// sprHHTelepMask
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   401
			(FileName:     'Switch'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   402
			Width:  32; Height: 32; saveSurf: false),// sprSwitch
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   403
			(FileName:  'Parachute'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   404
			Width:  48; Height: 48; saveSurf: false),// sprParachute
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   405
			(FileName:     'Target'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   406
			Width:  32; Height: 32; saveSurf: false),// sprTarget
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   407
			(FileName:   'RopeNode'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   408
			Width:   6; Height:  6; saveSurf: false),// sprRopeNode
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   409
			(FileName:   'thinking'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   410
			Width:  32; Height: 32; saveSurf: false),// sprQuestion
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   411
			(FileName:   'PowerBar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   412
			Width: 256; Height: 32; saveSurf: false),// sprPowerBar
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   413
			(FileName:    'WindBar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   414
			Width: 151; Height: 17; saveSurf: false),// sprWindBar
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   415
			(FileName:      'WindL'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   416
			Width:  80; Height: 13; saveSurf: false),// sprWindL
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   417
			(FileName:      'WindR'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   418
			Width:  80; Height: 13; saveSurf: false),// sprWindR
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   419
			(FileName:      'Flake'; Path:ptCurrTheme; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   420
			Width:  64; Height: 64; saveSurf: false),// sprFlake
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   421
			(FileName:     'amRope'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   422
			Width:  32; Height: 32; saveSurf: false),// sprHandRope
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   423
			(FileName:  'amBazooka'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   424
			Width:  32; Height: 32; saveSurf: false),// sprHandBazooka
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   425
			(FileName:  'amShotgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   426
			Width:  64; Height: 64; saveSurf: false),// sprHandShotgun
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   427
			(FileName:   'amDEagle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   428
			Width:  64; Height: 64; saveSurf: false),// sprHandDEagle
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   429
			(FileName:'amAirAttack'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   430
			Width:  32; Height: 32; saveSurf: false),// sprHandAirAttack
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   431
			(FileName: 'amBaseball'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   432
			Width:  32; Height: 32; saveSurf: false),// sprHandBaseball
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   433
			(FileName:     'Hammer'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   434
			Width:  32; Height: 64; saveSurf: false),// sprPHammer
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   435
			(FileName: 'amBTorch_i'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   436
			Width:  32; Height: 32; saveSurf: false),// sprHandBlowToch
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   437
			(FileName: 'amBTorch_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   438
			Width:  32; Height: 32; saveSurf: false),// sprBlowToch
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   439
			(FileName:   'Teleport'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   440
			Width:  64; Height: 32; saveSurf: false),// sprTeleport
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   441
			(FileName:    'HHDeath'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   442
			Width:  32; Height: 64; saveSurf: false),// sprHHDeath
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   443
			(FileName:'amShotgun_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   444
			Width:  64; Height: 64; saveSurf: false),// sprShotgun
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   445
			(FileName: 'amDEagle_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   446
			Width:  64; Height: 64; saveSurf: false),// sprDEagle
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   447
			(FileName:       'Idle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   448
			Width:  32; Height: 32; saveSurf: false),// sprHHIdle
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   449
			(FileName:     'Mortar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   450
			Width:  16; Height: 16; saveSurf: false),// sprMortar
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   451
			(FileName:  'TurnsLeft'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   452
			Width:  16; Height: 16; saveSurf: false),// sprTurnsLeft
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   453
			(FileName: 'amKamikaze'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   454
			Width: 256; Height: 32; saveSurf: false),// sprKamikaze
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   455
			(FileName:     'amWhip'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   456
			Width: 128; Height: 32; saveSurf: false),// sprWhip
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   457
			(FileName:     'Kowtow'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   458
			Width:  32; Height: 32; saveSurf: false),// sprKowtow
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   459
			(FileName:        'Sad'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   460
			Width:  32; Height: 32; saveSurf: false),// sprSad
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   461
			(FileName:       'Wave'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   462
			Width:  64; Height: 32; saveSurf: false),// sprWave
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   463
			(FileName:     'Hurrah'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   464
			Width:  32; Height: 32; saveSurf: false),// sprHurrah
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   465
			(FileName:'ILoveLemonade';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   466
			Width: 128; Height: 32; saveSurf: false),// sprLemonade
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   467
			(FileName:   'ExplPart'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   468
			Width:  32; Height: 32; saveSurf: false),// sprExplPart
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   469
			(FileName:  'ExplPart2'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   470
			Width:  32; Height: 32; saveSurf: false),// sprExplPart2
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   471
			(FileName:  'Cake_walk'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   472
			Width:  64; Height: 64; saveSurf: false),// sprCakeWalk
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   473
			(FileName:  'Cake_down'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   474
			Width:  64; Height: 64; saveSurf: false),// sprCakeDown
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   475
			(FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
1262
e9191c693e44 Add watermelon sprite
unc0rr
parents: 1261
diff changeset
   476
			Width:  32; Height: 32; saveSurf: false),// sprAMAmmosBW
e9191c693e44 Add watermelon sprite
unc0rr
parents: 1261
diff changeset
   477
			(FileName: 'Watermelon'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1263
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
   478
			Width:  32; Height: 32; saveSurf: false),// sprWatermelon
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
   479
			(FileName:  'EvilTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
   480
			Width:  32; Height: 32; saveSurf: false),// sprEvilTrace
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
   481
			(FileName:'HellishBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1284
21916b5de218 - Update Italian translation
unc0rr
parents: 1279
diff changeset
   482
			Width:  16; Height: 16; saveSurf: false),// sprHellishBomb
21916b5de218 - Update Italian translation
unc0rr
parents: 1279
diff changeset
   483
			(FileName:  'Seduction'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1286
a02a5345b91e Seduction animation
unc0rr
parents: 1285
diff changeset
   484
			Width:  32; Height: 32; saveSurf: false),// sprSeduction
a02a5345b91e Seduction animation
unc0rr
parents: 1285
diff changeset
   485
			(FileName:    'HHDress'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
a02a5345b91e Seduction animation
unc0rr
parents: 1285
diff changeset
   486
			Width:  64; Height: 64; saveSurf: false),// sprDress
a02a5345b91e Seduction animation
unc0rr
parents: 1285
diff changeset
   487
			(FileName:   'Censored'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1573
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
   488
			Width:  64; Height: 16; saveSurf: false),// sprCensored
1580
971e7f057a86 Move sprite to where it should be
unc0rr
parents: 1573
diff changeset
   489
			(FileName:      'Drill'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1573
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
   490
			Width:  16; Height: 16; saveSurf: false),// sprDrill
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
   491
			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
1601
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
   492
			Width:  32; Height: 32; saveSurf: false),// sprHandDrill
1863
705c01571196 Utility icon
unc0rr
parents: 1861
diff changeset
   493
			(FileName:  'amBallgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
1601
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
   494
			Width:  64; Height: 64; saveSurf: false),// sprHandBallgun
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
   495
			(FileName:      'Balls'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1689
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
   496
			Width:  32; Height: 20; saveSurf: false),// sprBalls
1863
705c01571196 Utility icon
unc0rr
parents: 1861
diff changeset
   497
			(FileName:    'RCPlane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1717
f4cf7e36ae3e Hedgehog controlling rc plane sprite
unc0rr
parents: 1712
diff changeset
   498
			Width:  32; Height: 32; saveSurf: false),// sprPlane
1863
705c01571196 Utility icon
unc0rr
parents: 1861
diff changeset
   499
			(FileName:  'amRCPlane'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
1861
unc0rr
parents: 1854
diff changeset
   500
			Width:  32; Height: 32; saveSurf: false), // sprHandPlane
1863
705c01571196 Utility icon
unc0rr
parents: 1861
diff changeset
   501
			(FileName:    'Utility'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
1865
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents: 1863
diff changeset
   502
			Width:  48; Height: 48; saveSurf: false), // sprUtility
1908
5be17e24751a Use GL_TRIANGLE_FAN instead of GL_TRIANGLES (more efficient)
unc0rr
parents: 1906
diff changeset
   503
			(FileName:'Invulnerable';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
1910
ae0addb05791 Fix previous patch
unc0rr
parents: 1909
diff changeset
   504
			Width:  48; Height: 48; saveSurf: false), // sprInvulnerable
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   505
			(FileName:'Vampiric';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   506
			Width:  48; Height: 48; saveSurf: false), // sprVampiric
1910
ae0addb05791 Fix previous patch
unc0rr
parents: 1909
diff changeset
   507
			(FileName:    'amGirder'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   508
			Width: 512; Height:512; saveSurf: false), // sprGirder
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   509
			(FileName:'SpeechCorner';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   510
			Width:  12; Height: 9; saveSurf: true), // sprSpeechCorner
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   511
			(FileName:'SpeechEdge';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   512
			Width:  25; Height: 9; saveSurf: true), // sprSpeechEdge
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   513
			(FileName:'SpeechTail';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   514
			Width:  25; Height: 26; saveSurf: true), // sprSpeechTail
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   515
			(FileName:'ThoughtCorner';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   516
			Width:  49; Height: 37; saveSurf: true), // sprThoughtCorner
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   517
			(FileName:'ThoughtEdge';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   518
			Width:  23; Height: 16; saveSurf: true), // sprThoughtEdge
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   519
			(FileName:'ThoughtTail';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   520
			Width:  45; Height: 65; saveSurf: true), // sprThoughtTail
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   521
			(FileName:'ShoutCorner';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   522
			Width:  34; Height: 23; saveSurf: true), // sprShoutCorner
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   523
			(FileName:'ShoutEdge';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   524
			Width:  30; Height: 20; saveSurf: true), // sprShoutEdge
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   525
			(FileName:'ShoutTail';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
   526
			Width:  30; Height: 37; saveSurf: true) // sprShoutTail
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   527
			);
688
e4d1fb310a66 Convert some stuff to sprites
unc0rr
parents: 621
diff changeset
   528
1034
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   529
	Wavez: array [TWave] of record
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   530
			Sprite: TSprite;
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   531
			FramesCount: Longword;
1037
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   532
			cmd: String[20];
1034
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   533
			end = (
1037
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   534
			(Sprite:   sprKowtow; FramesCount: 12; cmd: '/rollup'),
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   535
			(Sprite:      sprSad; FramesCount: 14; cmd: '/sad'),
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   536
			(Sprite:     sprWave; FramesCount: 16; cmd: '/wave'),
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   537
			(Sprite:   sprHurrah; FramesCount: 14; cmd: '/hurrah'),
63f956a6fe7f Lemonade taunt
unc0rr
parents: 1036
diff changeset
   538
			(Sprite: sprLemonade; FramesCount: 24; cmd: '/ilovelotsoflemonade')
1034
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   539
			);
05f003ad3caa Further work on taunts
unc0rr
parents: 1033
diff changeset
   540
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   541
	Soundz: array[TSound] of record
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   542
			FileName: String[25];
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   543
			Path    : TPathType;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   544
			end = (
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   545
			(FileName:        'grenadeimpact.ogg'; Path: ptSounds),// sndGrenadeImpact
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   546
			(FileName:            'explosion.ogg'; Path: ptSounds),// sndExplosion
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   547
			(FileName:         'throwpowerup.ogg'; Path: ptSounds),// sndThrowPowerUp
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   548
			(FileName:         'throwrelease.ogg'; Path: ptSounds),// sndThrowRelease
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   549
			(FileName:               'splash.ogg'; Path: ptSounds),// sndSplash
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   550
			(FileName:        'shotgunreload.ogg'; Path: ptSounds),// sndShotgunReload
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   551
			(FileName:          'shotgunfire.ogg'; Path: ptSounds),// sndShotgunFire
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   552
			(FileName:          'graveimpact.ogg'; Path: ptSounds),// sndGraveImpact
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   553
			(FileName:             'minetick.ogg'; Path: ptSounds),// sndMineTicks
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   554
			(FileName:           'pickhammer.ogg'; Path: ptSounds),// sndPickhammer
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   555
			(FileName:                  'gun.ogg'; Path: ptSounds),// sndGun
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   556
			(FileName:                  'ufo.ogg'; Path: ptSounds),// sndUFO
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   557
			(FileName:                'Jump1.ogg'; Path: ptVoices),// sndJump1
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   558
			(FileName:                'Jump2.ogg'; Path: ptVoices),// sndJump2
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   559
			(FileName:                'Jump3.ogg'; Path: ptVoices),// sndJump3
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   560
			(FileName:               'Yessir.ogg'; Path: ptVoices),// sndYesSir
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   561
			(FileName:                'Laugh.ogg'; Path: ptVoices),// sndLaugh
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   562
			(FileName:            'Illgetyou.ogg'; Path: ptVoices),// sndIllGetYou
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   563
			(FileName:             'Incoming.ogg'; Path: ptVoices),// sndIncoming
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   564
			(FileName:               'Missed.ogg'; Path: ptVoices),// sndMissed
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   565
			(FileName:               'Stupid.ogg'; Path: ptVoices),// sndStupid
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   566
			(FileName:           'Firstblood.ogg'; Path: ptVoices),// sndFirstBlood
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   567
			(FileName:               'Boring.ogg'; Path: ptVoices),// sndBoring
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   568
			(FileName:               'Byebye.ogg'; Path: ptVoices),// sndByeBye
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   569
			(FileName:             'Sameteam.ogg'; Path: ptVoices),// sndSameTeam
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   570
			(FileName:               'Nutter.ogg'; Path: ptVoices),// sndNutter
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   571
			(FileName:       'Reinforcements.ogg'; Path: ptVoices),// sndReinforce
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   572
			(FileName:              'Traitor.ogg'; Path: ptVoices),// sndTraitor
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   573
			(FileName:       'Youllregretthat.ogg';Path: ptVoices),// sndRegret
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   574
			(FileName:            'Enemydown.ogg'; Path: ptVoices),// sndEnemyDown
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   575
			(FileName:               'Coward.ogg'; Path: ptVoices),// sndCoward
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   576
			(FileName:                'Hurry.ogg'; Path: ptVoices),// sndHurry
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   577
			(FileName:              'Watchit.ogg'; Path: ptVoices),// sndWatchIt
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   578
			(FileName:             'Kamikaze.ogg'; Path: ptVoices),// sndKamikaze
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   579
			(FileName:                'cake2.ogg'; Path: ptSounds),// sndCake
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   580
			(FileName:                  'Ow1.ogg'; Path: ptVoices),// sndOw1
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   581
			(FileName:                  'Ow4.ogg'; Path: ptVoices),// sndOw4
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   582
			(FileName:           'Firepunch1.ogg'; Path: ptVoices),// sndFirepunch1
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   583
			(FileName:           'Firepunch2.ogg'; Path: ptVoices),// sndFirepunch2
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   584
			(FileName:           'Firepunch3.ogg'; Path: ptVoices),// sndFirepunch3
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   585
			(FileName:           'Firepunch4.ogg'; Path: ptVoices),// sndFirepunch4
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   586
			(FileName:           'Firepunch5.ogg'; Path: ptVoices),// sndFirepunch5
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   587
			(FileName:           'Firepunch6.ogg'; Path: ptVoices),// sndFirepunch6
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   588
			(FileName:                'Melon.ogg'; Path: ptSounds),// sndMelon
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   589
			(FileName:              'Hellish.ogg'; Path: ptSounds),// sndHellish
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   590
			(FileName:               'Yoohoo.ogg'; Path: ptSounds),// sndYoohoo
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   591
			(FileName:              'rcplane.ogg'; Path: ptSounds),// sndRCPlane
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1708
diff changeset
   592
			(FileName:            'whipcrack.ogg'; Path: ptSounds),// sndWhipCrack
1914
aab686a4e0c5 Add sounds to girder
unc0rr
parents: 1912
diff changeset
   593
			(FileName:'ride_of_the_valkyries.ogg'; Path: ptSounds),// sndRideOfTheValkyries
aab686a4e0c5 Add sounds to girder
unc0rr
parents: 1912
diff changeset
   594
			(FileName:               'denied.ogg'; Path: ptSounds),// sndDenied
aab686a4e0c5 Add sounds to girder
unc0rr
parents: 1912
diff changeset
   595
			(FileName:               'placed.ogg'; Path: ptSounds) // sndPlaced
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   596
			);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
   597
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   598
	Ammoz: array [TAmmoType] of record
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   599
			NameId: TAmmoStrId;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   600
			NameTex: PTexture;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   601
			Probability, NumberInCase: Longword;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   602
			Ammo: TAmmo;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   603
			Slot: 0..cMaxSlotIndex;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   604
			TimeAfterTurn: Longword;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   605
			minAngle, maxAngle: Longword;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   606
			isDamaging: boolean;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   607
			SkipTurns: Longword;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   608
			PosCount: Longword;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   609
			PosSprite: TSprite;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   610
			end = (
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   611
			(NameId: sidGrenade;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   612
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   613
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   614
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   615
			Ammo: (Propz: ammoprop_Timerable or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   616
							ammoprop_Power or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   617
							ammoprop_AltUse;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   618
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   619
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   620
					Timer: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   621
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   622
					AmmoType: amGrenade);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   623
			Slot: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   624
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   625
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   626
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   627
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   628
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   629
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   630
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   631
			(NameId: sidClusterBomb;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   632
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   633
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   634
			NumberInCase: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   635
			Ammo: (Propz: ammoprop_Timerable or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   636
							ammoprop_Power or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   637
							ammoprop_AltUse;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   638
					Count: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   639
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   640
					Timer: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   641
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   642
					AmmoType: amClusterBomb);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   643
			Slot: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   644
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   645
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   646
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   647
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   648
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   649
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   650
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   651
			(NameId: sidBazooka;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   652
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   653
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   654
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   655
			Ammo: (Propz: ammoprop_Power or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   656
							ammoprop_AltUse;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   657
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   658
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   659
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   660
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   661
					AmmoType: amBazooka);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   662
			Slot: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   663
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   664
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   665
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   666
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   667
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   668
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   669
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   670
			(NameId: sidUFO;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   671
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   672
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   673
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   674
			Ammo: (Propz: ammoprop_Power or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   675
							ammoprop_NeedTarget or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   676
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   677
					Count: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   678
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   679
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   680
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   681
					AmmoType: amUFO);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   682
			Slot: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   683
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   684
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   685
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   686
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   687
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   688
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   689
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   690
			(NameId: sidShotgun;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   691
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   692
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   693
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   694
			Ammo: (Propz: ammoprop_ForwMsgs;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   695
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   696
					NumPerTurn: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   697
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   698
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   699
					AmmoType: amShotgun);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   700
			Slot: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   701
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   702
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   703
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   704
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   705
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   706
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   707
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   708
			(NameId: sidPickHammer;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   709
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   710
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   711
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   712
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   713
							ammoprop_AttackInMove or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   714
							ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   715
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   716
					Count: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   717
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   718
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   719
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   720
					AmmoType: amPickHammer);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   721
			Slot: 6;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   722
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   723
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   724
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   725
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   726
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   727
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   728
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   729
			(NameId: sidSkip;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   730
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   731
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   732
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   733
			Ammo: (Propz: ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   734
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   735
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   736
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   737
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   738
					AmmoType: amSkip);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   739
			Slot: 8;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   740
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   741
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   742
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   743
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   744
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   745
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   746
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   747
			(NameId: sidRope;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   748
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   749
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   750
			NumberInCase: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   751
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   752
							ammoprop_AttackInMove or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   753
							ammoprop_DontHold or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   754
							ammoprop_AltAttack;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   755
					Count: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   756
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   757
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   758
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   759
					AmmoType: amRope);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   760
			Slot: 7;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   761
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   762
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   763
			maxAngle: cMaxAngle div 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   764
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   765
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   766
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   767
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   768
			(NameId: sidMine;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   769
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   770
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   771
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   772
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   773
							ammoprop_AttackInMove or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   774
							ammoprop_DontHold or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   775
							ammoprop_AltUse;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   776
					Count: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   777
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   778
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   779
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   780
					AmmoType: amMine);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   781
			Slot: 4;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   782
			TimeAfterTurn: 5000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   783
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   784
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   785
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   786
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   787
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   788
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   789
			(NameId: sidDEagle;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   790
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
   791
			Probability: 20;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   792
			NumberInCase: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   793
			Ammo: (Propz: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   794
					Count: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   795
					NumPerTurn: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   796
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   797
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   798
					AmmoType: amDEagle);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   799
			Slot: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   800
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   801
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   802
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   803
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   804
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   805
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   806
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   807
			(NameId: sidDynamite;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   808
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   809
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   810
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   811
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   812
							ammoprop_AttackInMove or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   813
							ammoprop_DontHold or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   814
							ammoprop_AltUse;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   815
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   816
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   817
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   818
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   819
					AmmoType: amDynamite);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   820
			Slot: 4;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   821
			TimeAfterTurn: 5000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   822
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   823
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   824
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   825
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   826
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   827
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   828
			(NameId: sidFirePunch;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   829
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   830
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   831
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   832
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   833
							ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   834
							ammoprop_AttackInMove;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   835
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   836
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   837
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   838
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   839
					AmmoType: amFirePunch);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   840
			Slot: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   841
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   842
			MinAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   843
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   844
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   845
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   846
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   847
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   848
			(NameId: sidWhip;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   849
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   850
			Probability: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   851
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   852
			Ammo: (Propz: ammoprop_NoCrosshair;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   853
					Count: AMMO_INFINITE;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   854
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   855
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   856
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   857
					AmmoType: amWhip);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   858
			Slot: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   859
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   860
			MinAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   861
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   862
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   863
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   864
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   865
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   866
			(NameId: sidBaseballBat;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   867
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   868
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   869
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   870
			Ammo: (Propz: ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   871
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   872
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   873
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   874
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   875
					AmmoType: amBaseballBat);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   876
			Slot: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   877
			TimeAfterTurn: 5000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   878
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   879
			maxAngle: cMaxAngle div 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   880
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   881
			SkipTurns: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   882
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   883
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   884
			(NameId: sidParachute;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   885
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   886
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   887
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   888
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   889
							ammoprop_AttackInMove or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   890
							ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   891
							ammoprop_DontHold or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   892
							ammoprop_AltAttack;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   893
					Count: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   894
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   895
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   896
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   897
					AmmoType: amParachute);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   898
			Slot: 7;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   899
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   900
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   901
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   902
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   903
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   904
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   905
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   906
			(NameId: sidAirAttack;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   907
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   908
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   909
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   910
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   911
							ammoprop_NeedTarget or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   912
							ammoprop_AttackingPut or
1784
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   913
							ammoprop_DontHold or
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   914
							ammoprop_NotBorder;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   915
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   916
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   917
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   918
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   919
					AmmoType: amAirAttack);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   920
			Slot: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   921
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   922
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   923
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   924
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   925
			SkipTurns: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   926
			PosCount: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   927
			PosSprite: sprAmAirplane),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   928
			(NameId: sidMineStrike;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   929
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
   930
			Probability: 200;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   931
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   932
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   933
							ammoprop_NeedTarget or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   934
							ammoprop_AttackingPut or
1784
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   935
							ammoprop_DontHold or
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
   936
							ammoprop_NotBorder;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   937
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   938
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   939
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   940
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   941
					AmmoType: amMineStrike);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   942
			Slot: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   943
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   944
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   945
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   946
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   947
			SkipTurns: 5;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   948
			PosCount: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   949
			PosSprite: sprAmAirplane),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   950
			(NameId: sidBlowTorch;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   951
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   952
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   953
			NumberInCase: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   954
			Ammo: (Propz: ammoprop_ForwMsgs;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   955
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   956
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   957
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   958
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   959
					AmmoType: amBlowTorch);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   960
			Slot: 6;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   961
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   962
			minAngle: 768;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   963
			maxAngle: 1280;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   964
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   965
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   966
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   967
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   968
			(NameId: sidGirder;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   969
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
   970
			Probability: 150;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   971
			NumberInCase: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   972
			Ammo: (Propz: ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   973
							ammoprop_NeedTarget or
1909
30fa1608b54f nemo's patch for girder + some fixes
unc0rr
parents: 1908
diff changeset
   974
							ammoprop_AttackingPut;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   975
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   976
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   977
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   978
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   979
					AmmoType: amGirder);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   980
			Slot: 6;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   981
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   982
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   983
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   984
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   985
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   986
			PosCount: 8;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   987
			PosSprite: sprAmGirder),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   988
			(NameId: sidTeleport;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   989
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
   990
			Probability: 200;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   991
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   992
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   993
							ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   994
							ammoprop_NeedTarget or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   995
							ammoprop_AttackingPut or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   996
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   997
					Count: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   998
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
   999
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1000
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1001
					AmmoType: amTeleport);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1002
			Slot: 7;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1003
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1004
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1005
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1006
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1007
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1008
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1009
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1010
			(NameId: sidSwitch;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1011
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1012
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1013
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1014
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1015
							ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1016
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1017
					Count: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1018
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1019
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1020
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1021
					AmmoType: amSwitch);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1022
			Slot: 8;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1023
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1024
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1025
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1026
			isDamaging: false;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1027
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1028
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1029
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1030
			(NameId: sidMortar;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1031
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1032
			Probability: 100;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
  1033
			NumberInCase: 4;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1034
			Ammo: (Propz: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1035
					Count: 4;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1036
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1037
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1038
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1039
					AmmoType: amMortar);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1040
			Slot: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1041
			TimeAfterTurn: 3000;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1042
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1043
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1044
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1045
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1046
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1047
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1048
			(NameId: sidKamikaze;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1049
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1050
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1051
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1052
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1053
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1054
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1055
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1056
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1057
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1058
					AmmoType: amKamikaze);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1059
			Slot: 3;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1060
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1061
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1062
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1063
			isDamaging: true;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1064
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1065
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1066
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1067
			(NameId: sidCake;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1068
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1069
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1070
			NumberInCase: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1071
			Ammo: (Propz: ammoprop_ForwMsgs or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1072
							ammoprop_NoCrosshair or
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1073
							ammoprop_DontHold;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1074
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1075
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1076
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1077
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1078
					AmmoType: amCake);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1079
			Slot: 4;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1080
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1081
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1082
			maxAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1083
			isDamaging: true;
1445
3dcff3e1a4c9 Activate cake after 4 turns
unc0rr
parents: 1439
diff changeset
  1084
			SkipTurns: 4;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1085
			PosCount: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1086
			PosSprite: sprWater),
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1087
			(NameId: sidSeduction;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1088
			NameTex: nil;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1089
			Probability: 100;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1090
			NumberInCase: 1;
1284
21916b5de218 - Update Italian translation
unc0rr
parents: 1279
diff changeset
  1091
			Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_DontHold;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1092
					Count: 1;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1093
					NumPerTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1094
					Timer: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1095
					Pos: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1096
					AmmoType: amSeduction);
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1097
			Slot: 2;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1098
			TimeAfterTurn: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1099
			minAngle: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1100
			maxAngle: 0;
1508
ef093f31ced1 small fixes
unc0rr
parents: 1507
diff changeset
  1101
			isDamaging: false;
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1102
			SkipTurns: 0;
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1103
			PosCount: 1;
1261
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1104
			PosSprite: sprWater),
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1105
			(NameId: sidWatermelon;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1106
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
  1107
			Probability: 400;
1261
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1108
			NumberInCase: 1;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1109
			Ammo: (Propz: ammoprop_Timerable or
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1110
							ammoprop_Power or
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1111
							ammoprop_AltUse;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
  1112
					Count: 0;
1261
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1113
					NumPerTurn: 0;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1114
					Timer: 3000;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1115
					Pos: 0;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1116
					AmmoType: amWatermelon);
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1117
			Slot: 1;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1118
			TimeAfterTurn: 3000;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1119
			minAngle: 0;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1120
			maxAngle: 0;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1121
			isDamaging: true;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1122
			SkipTurns: 0;
903058d382c7 Add watermelon weapon (without proper sprites yet)
unc0rr
parents: 1259
diff changeset
  1123
			PosCount: 1;
1263
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1124
			PosSprite: sprWater),
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1125
			(NameId: sidHellishBomb;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1126
			NameTex: nil;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
  1127
			Probability: 400;
1263
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1128
			NumberInCase: 1;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1129
			Ammo: (Propz:  ammoprop_Power or
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1130
							ammoprop_AltUse;
1430
8b192c18a584 Correct default ammo set
unc0rr
parents: 1428
diff changeset
  1131
					Count: 0;
1263
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1132
					NumPerTurn: 0;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1133
					Timer: 5000;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1134
					Pos: 0;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1135
					AmmoType: amHellishBomb);
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1136
			Slot: 4;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1137
			TimeAfterTurn: 3000;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1138
			minAngle: 0;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1139
			maxAngle: 0;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1140
			isDamaging: true;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1141
			SkipTurns: 0;
24677a82531d Add Hellish bomb weapon
unc0rr
parents: 1262
diff changeset
  1142
			PosCount: 1;
1507
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1143
			PosSprite: sprWater),
1608
2631f5026714 Add napalm weapon name
unc0rr
parents: 1601
diff changeset
  1144
			(NameId: sidNapalm;
1507
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1145
			NameTex: nil;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1146
			Probability: 100;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1147
			NumberInCase: 1;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1148
			Ammo: (Propz: ammoprop_NoCrosshair or
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1149
							ammoprop_NeedTarget or
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1150
							ammoprop_AttackingPut or
1784
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
  1151
							ammoprop_DontHold or
dfe9bafb4590 Apply nemo's patch polished by me:
unc0rr
parents: 1766
diff changeset
  1152
							ammoprop_NotBorder;
1507
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1153
					Count: 1;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1154
					NumPerTurn: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1155
					Timer: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1156
					Pos: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1157
					AmmoType: amNapalm);
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1158
			Slot: 5;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1159
			TimeAfterTurn: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1160
			minAngle: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1161
			maxAngle: 0;
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1162
			isDamaging: true;
1608
2631f5026714 Add napalm weapon name
unc0rr
parents: 1601
diff changeset
  1163
			SkipTurns: 7;
1507
d18c67b7ad4c Quick and dirty napalm implementation
unc0rr
parents: 1505
diff changeset
  1164
			PosCount: 2;
1573
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1165
			PosSprite: sprAmAirplane),
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1166
			(NameId: sidDrill;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1167
			NameTex: nil;
1586
2c6f1d1f43c1 Adjust flame parameters to produce more damage
unc0rr
parents: 1580
diff changeset
  1168
			Probability: 300;
1573
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1169
			NumberInCase: 1;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1170
			Ammo: (Propz: ammoprop_Power or
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1171
							ammoprop_AltUse;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1172
					Count: AMMO_INFINITE;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1173
					NumPerTurn: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1174
					Timer: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1175
					Pos: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1176
					AmmoType: amDrill);
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1177
			Slot: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1178
			TimeAfterTurn: 3000;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1179
			minAngle: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1180
			maxAngle: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1181
			isDamaging: true;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1182
			SkipTurns: 0;
cf88e0ace609 Drill rocket
unc0rr
parents: 1566
diff changeset
  1183
			PosCount: 1;
1601
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1184
			PosSprite: sprDrill),
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1185
			(NameId: sidBallgun;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1186
			NameTex: nil;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1187
			Probability: 400;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1188
			NumberInCase: 1;
1643
434e28245dc0 Fix yet another ballgun bug
unc0rr
parents: 1639
diff changeset
  1189
			Ammo: (Propz:  ammoprop_ForwMsgs or
434e28245dc0 Fix yet another ballgun bug
unc0rr
parents: 1639
diff changeset
  1190
							 ammoprop_DontHold;
1601
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1191
					Count: AMMO_INFINITE;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1192
					NumPerTurn: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1193
					Timer: 5001;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1194
					Pos: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1195
					AmmoType: amBallgun);
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1196
			Slot: 2;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1197
			TimeAfterTurn: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1198
			minAngle: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1199
			maxAngle: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1200
			isDamaging: true;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1201
			SkipTurns: 0;
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1202
			PosCount: 1;
1689
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1203
			PosSprite: sprWater),
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1204
			(NameId: sidRCPlane;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1205
			NameTex: nil;
1721
993b17d862f8 Change rc plane options
unc0rr
parents: 1717
diff changeset
  1206
			Probability: 200;
1740
0d69ff7b5fbf Reduce number of bonus rc planes
unc0rr
parents: 1721
diff changeset
  1207
			NumberInCase: 1;
1689
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1208
			Ammo: (Propz: ammoprop_ForwMsgs{ or
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1209
							ammoprop_DontHold or
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1210
							ammoprop_AltAttack};
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1211
					Count: 1;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1212
					NumPerTurn: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1213
					Timer: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1214
					Pos: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1215
					AmmoType: amRCPlane);
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1216
			Slot: 6;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1217
			TimeAfterTurn: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1218
			minAngle: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1219
			maxAngle: 0;
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1220
			isDamaging: true;
1721
993b17d862f8 Change rc plane options
unc0rr
parents: 1717
diff changeset
  1221
			SkipTurns: 4;
1689
3d0eee01f734 RC Plane
unc0rr
parents: 1656
diff changeset
  1222
			PosCount: 1;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1223
			PosSprite: sprWater),
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1224
			(NameId: sidLowGravity;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1225
			NameTex: nil;
1861
unc0rr
parents: 1854
diff changeset
  1226
			Probability: 20;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1227
			NumberInCase: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1228
			Ammo: (Propz: ammoprop_NoCrosshair or
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1229
						  ammoprop_DontHold or
1892
fddc1201df25 Some tweaks by nemo
unc0rr
parents: 1865
diff changeset
  1230
						  ammoprop_AltUse or
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1231
                          ammoprop_Utility;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1232
					Count: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1233
					NumPerTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1234
					Timer: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1235
					Pos: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1236
					AmmoType: amLowGravity);
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1237
			Slot: 8;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1238
			TimeAfterTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1239
			minAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1240
			maxAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1241
			isDamaging: false;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1242
			SkipTurns: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1243
			PosCount: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1244
			PosSprite: sprWater),
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1245
			(NameId: sidExtraDamage;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1246
			NameTex: nil;
1861
unc0rr
parents: 1854
diff changeset
  1247
			Probability: 15;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1248
			NumberInCase: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1249
			Ammo: (Propz: ammoprop_NoCrosshair or
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1250
						  ammoprop_DontHold or
1892
fddc1201df25 Some tweaks by nemo
unc0rr
parents: 1865
diff changeset
  1251
						  ammoprop_AltUse or
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1252
                          ammoprop_Utility;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1253
					Count: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1254
					NumPerTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1255
					Timer: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1256
					Pos: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1257
					AmmoType: amExtraDamage);
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1258
			Slot: 8;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1259
			TimeAfterTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1260
			minAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1261
			maxAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1262
			isDamaging: false;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1263
			SkipTurns: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1264
			PosCount: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1265
			PosSprite: sprWater),
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1266
			(NameId: sidInvulnerable;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1267
			NameTex: nil;
1861
unc0rr
parents: 1854
diff changeset
  1268
			Probability: 20;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1269
			NumberInCase: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1270
			Ammo: (Propz: ammoprop_NoCrosshair or
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1271
						  ammoprop_DontHold or
1892
fddc1201df25 Some tweaks by nemo
unc0rr
parents: 1865
diff changeset
  1272
						  ammoprop_AltUse or
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1273
                          ammoprop_Utility;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1274
					Count: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1275
					NumPerTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1276
					Timer: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1277
					Pos: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1278
					AmmoType: amInvulnerable);
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1279
			Slot: 8;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1280
			TimeAfterTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1281
			minAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1282
			maxAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1283
			isDamaging: false;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1284
			SkipTurns: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1285
			PosCount: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1286
			PosSprite: sprWater),
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1287
			(NameId: sidExtraTime;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1288
			NameTex: nil;
1861
unc0rr
parents: 1854
diff changeset
  1289
			Probability: 30;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1290
			NumberInCase: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1291
			Ammo: (Propz: ammoprop_NoCrosshair or
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1292
						  ammoprop_DontHold or
1892
fddc1201df25 Some tweaks by nemo
unc0rr
parents: 1865
diff changeset
  1293
						  ammoprop_AltUse or
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1294
                          ammoprop_Utility;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1295
					Count: 1;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1296
					NumPerTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1297
					Timer: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1298
					Pos: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1299
					AmmoType: amExtraTime);
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1300
			Slot: 7;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1301
			TimeAfterTurn: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1302
			minAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1303
			maxAngle: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1304
			isDamaging: false;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1305
			SkipTurns: 0;
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1825
diff changeset
  1306
			PosCount: 1;
1854
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1307
			PosSprite: sprWater),
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1308
			(NameId: sidLaserSight;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1309
			NameTex: nil;
1861
unc0rr
parents: 1854
diff changeset
  1310
			Probability: 15;
1854
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1311
			NumberInCase: 1;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1312
			Ammo: (Propz: ammoprop_NoCrosshair or
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1313
						  ammoprop_DontHold or
1892
fddc1201df25 Some tweaks by nemo
unc0rr
parents: 1865
diff changeset
  1314
						  ammoprop_AltUse or
1854
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1315
                          ammoprop_Utility;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1316
					Count: 1;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1317
					NumPerTurn: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1318
					Timer: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1319
					Pos: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1320
					AmmoType: amLaserSight);
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1321
			Slot: 7;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1322
			TimeAfterTurn: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1323
			minAngle: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1324
			maxAngle: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1325
			isDamaging: false;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1326
			SkipTurns: 0;
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
  1327
			PosCount: 1;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1328
			PosSprite: sprWater),
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1329
			(NameId: sidVampiric;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1330
			NameTex: nil;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1331
			Probability: 15;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1332
			NumberInCase: 1;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1333
			Ammo: (Propz: ammoprop_NoCrosshair or
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1334
						  ammoprop_DontHold or
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1335
						  ammoprop_AltUse or
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1336
                          ammoprop_Utility;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1337
					Count: 1;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1338
					NumPerTurn: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1339
					Timer: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1340
					Pos: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1341
					AmmoType: amVampiric);
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1342
			Slot: 6;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1343
			TimeAfterTurn: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1344
			minAngle: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1345
			maxAngle: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1346
			isDamaging: false;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1347
			SkipTurns: 0;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 2005
diff changeset
  1348
			PosCount: 1;
1601
0cff69c8c4cf Ballsgun
unc0rr
parents: 1586
diff changeset
  1349
			PosSprite: sprWater)
1259
0c660c3d98a4 - Continue seduction implementation
unc0rr
parents: 1242
diff changeset
  1350
			);
37
2b7f2a43b999 - Properly get seed in net game
unc0rr
parents: 35
diff changeset
  1351
844
9a82149409f3 Also, repair weapon count show in ammo menu
unc0rr
parents: 843
diff changeset
  1352
var CountTexz: array[1..9] of PTexture;
9a82149409f3 Also, repair weapon count show in ammo menu
unc0rr
parents: 843
diff changeset
  1353
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
  1354
implementation
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
  1355
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 2
diff changeset
  1356
end.