hedgewars/uVariables.pas
changeset 6426 2d44f6561e72
parent 6415 af2047bb4f70
child 6469 2912a02c5bea
equal deleted inserted replaced
6425:1ef4192aa80d 6426:2d44f6561e72
    14  * You should have received a copy of the GNU General Public License
    14  * You should have received a copy of the GNU General Public License
    15  * along with this program; if not, write to the Free Software
    15  * along with this program; if not, write to the Free Software
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 {$INCLUDE options.inc}
    19 {$INCLUDE "options.inc"}
    20 
    20 
    21 unit uVariables;
    21 unit uVariables;
    22 interface
    22 interface
    23 
    23 
    24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile;
    24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile;
   262             Name: 'wqy-zenhei.ttc')
   262             Name: 'wqy-zenhei.ttc')
   263             {$ENDIF}
   263             {$ENDIF}
   264             );
   264             );
   265 
   265 
   266     SpritesData: array[TSprite] of record
   266     SpritesData: array[TSprite] of record
   267             FileName: String[16];
   267             FileName: string[16];
   268             Path, AltPath: TPathType;
   268             Path, AltPath: TPathType;
   269             Texture: PTexture;
   269             Texture: PTexture;
   270             Surface: PSDL_Surface;
   270             Surface: PSDL_Surface;
   271             Width, Height, imageWidth, imageHeight: LongInt;
   271             Width, Height, imageWidth, imageHeight: LongInt;
   272             saveSurf: boolean;
   272             saveSurf: boolean;
   633 
   633 
   634     Wavez: array [TWave] of record
   634     Wavez: array [TWave] of record
   635             Sprite: TSprite;
   635             Sprite: TSprite;
   636             FramesCount: Longword;
   636             FramesCount: Longword;
   637             Interval: Longword;
   637             Interval: Longword;
   638             cmd: String[20];
   638             cmd: string[20];
   639             Voice: TSound;
   639             Voice: TSound;
   640             VoiceDelay: LongWord;
   640             VoiceDelay: LongWord;
   641             end = (
   641             end = (
   642             (Sprite:   sprKowtow; FramesCount: 12; Interval: 125; cmd: '/rollup'; Voice: sndNone; VoiceDelay: 0),
   642             (Sprite:   sprKowtow; FramesCount: 12; Interval: 125; cmd: '/rollup'; Voice: sndNone; VoiceDelay: 0),
   643             (Sprite:      sprSad; FramesCount: 14; Interval: 125; cmd: '/sad'; Voice: sndNone; VoiceDelay: 0),
   643             (Sprite:      sprSad; FramesCount: 14; Interval: 125; cmd: '/sad'; Voice: sndNone; VoiceDelay: 0),
   647             (Sprite:    sprShrug; FramesCount: 24; Interval: 125; cmd: '/shrug'; Voice: sndNone; VoiceDelay: 0),
   647             (Sprite:    sprShrug; FramesCount: 24; Interval: 125; cmd: '/shrug'; Voice: sndNone; VoiceDelay: 0),
   648             (Sprite:   sprJuggle; FramesCount: 49; Interval:  38; cmd: '/juggle'; Voice: sndNone; VoiceDelay: 0)
   648             (Sprite:   sprJuggle; FramesCount: 49; Interval:  38; cmd: '/juggle'; Voice: sndNone; VoiceDelay: 0)
   649             );
   649             );
   650 
   650 
   651     Soundz: array[TSound] of record
   651     Soundz: array[TSound] of record
   652             FileName: String[25];
   652             FileName: string[25];
   653             Path    : TPathType;
   653             Path    : TPathType;
   654             end = (
   654             end = (
   655             (FileName:                         ''; Path: ptNone  ),// sndNone
   655             (FileName:                         ''; Path: ptNone  ),// sndNone
   656             (FileName:        'grenadeimpact.ogg'; Path: ptSounds),// sndGrenadeImpact
   656             (FileName:        'grenadeimpact.ogg'; Path: ptSounds),// sndGrenadeImpact
   657             (FileName:            'explosion.ogg'; Path: ptSounds),// sndExplosion
   657             (FileName:            'explosion.ogg'; Path: ptSounds),// sndExplosion