hedgewars/uConsts.pas
author unc0rr
Fri, 01 May 2009 09:01:44 +0000
changeset 2021 a591afb43768
parent 2017 7845c77c8d31
child 2023 41d3afaa20c7
permissions -rw-r--r--
Some changes in try to fix issue when you enter room with painted map, but frontend shows generated one (most probably bug is triggered by template filters) Untested.
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.