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