//************************************************************************** //** //** $Id: i_sdl.c,v 1.5 1999/01/24 21:43:50 karl Exp $ //** //************************************************************************** #include #include #include #include "h2def.h" #include "r_local.h" #include "p_local.h" // for P_AproxDistance #include "sounds.h" #include "i_sound.h" #include "soundst.h" #include "st_start.h" #include "SDL.h" // Macros #define stricmp strcasecmp #define DEFAULT_ARCHIVEPATH "o:\\sound\\archive\\" #define PRIORITY_MAX_ADJUST 10 #define DIST_ADJUST (MAX_SND_DIST/PRIORITY_MAX_ADJUST) #define MASK_PLANE0 0x01 #define MASK_PLANE1 0x02 #define MASK_PLANE2 0x04 #define MASK_PLANE3 0x08 #define P0OFFSET 38400*0 #define P1OFFSET 38400*1 #define P2OFFSET 38400*2 #define P3OFFSET 38400*3 #define VB_SYNC #define BITPLANE(p) // Public Data int DisplayTicker = 0; // Code #if defined(VMS) && !defined(HAVE_AUDIO) #define SDL_INIT_AUDIO 0 #endif int main(int argc, char **argv) { if( SDL_Init( SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_CDROM ) < 0 ) { fprintf( stderr, "Couldn't initialize SDL: %s\n", SDL_GetError() ); exit( 1 ); } atexit( SDL_Quit ); myargc = argc; myargv = argv; H2_Main(); return 0; } void I_StartupNet (void); void I_ShutdownNet (void); void I_ReadExternDriver(void); typedef struct { unsigned edi, esi, ebp, reserved, ebx, edx, ecx, eax; unsigned short flags, es, ds, fs, gs, ip, cs, sp, ss; } dpmiregs_t; extern dpmiregs_t dpmiregs; void DPMIInt (int i); extern int usemouse, usejoystick; extern void **lumpcache; int i_Vector; externdata_t *i_ExternData; boolean useexterndriver; boolean i_CDMusic; int i_CDTrack; int i_CDCurrentTrack; int i_CDMusicLength; int oldTic; SDL_Surface* sdl_screen; SDL_Surface* sdl_scaled_screen; // Scaled surface for 640x480 display int grabMouse; /* =============================================================================== MUSIC & SFX API =============================================================================== */ //static channel_t channel[MAX_CHANNELS]; //static int rs; //the current registered song. //int mus_song = -1; //int mus_lumpnum; //void *mus_sndptr; //byte *soundCurve; extern sfxinfo_t S_sfx[]; extern musicinfo_t S_music[]; static channel_t Channel[MAX_CHANNELS]; static int RegisteredSong; //the current registered song. static int NextCleanup; static boolean MusicPaused; static int Mus_Song = -1; static int Mus_LumpNum; static void *Mus_SndPtr; static byte *SoundCurve; static boolean UseSndScript; static char ArchivePath[128]; extern int snd_MusicDevice; extern int snd_SfxDevice; extern int snd_MaxVolume; extern int snd_MusicVolume; extern int snd_Channels; extern int startepisode; extern int startmap; // int AmbChan; boolean S_StopSoundID(int sound_id, int priority); void I_UpdateCDMusic(void); //========================================================================== // // S_Start // //========================================================================== void S_Start(void) { S_StopAllSound(); S_StartSong(gamemap, true); } //========================================================================== // // S_StartSong // //========================================================================== void S_StartSong(int song, boolean loop) { char *songLump; int track; if(i_CDMusic) { // Play a CD track, instead if(i_CDTrack) { // Default to the player-chosen track track = i_CDTrack; } else { track = P_GetMapCDTrack(gamemap); } if(track == i_CDCurrentTrack && i_CDMusicLength > 0) { return; } if(!I_CDMusPlay(track)) { if(loop) { i_CDMusicLength = 35*I_CDMusTrackLength(track); oldTic = gametic; } else { i_CDMusicLength = -1; } i_CDCurrentTrack = track; } } else { if(song == Mus_Song) { // don't replay an old song return; } if(RegisteredSong) { I_StopSong(RegisteredSong); I_UnRegisterSong(RegisteredSong); if(UseSndScript) { Z_Free(Mus_SndPtr); } else { Z_ChangeTag(lumpcache[Mus_LumpNum], PU_CACHE); } #ifdef __WATCOMC__ _dpmi_unlockregion(Mus_SndPtr, lumpinfo[Mus_LumpNum].size); #endif RegisteredSong = 0; } songLump = P_GetMapSongLump(song); if(!songLump) { return; } if(UseSndScript) { char name[128]; sprintf(name, "%s%s.lmp", ArchivePath, songLump); M_ReadFile(name, (byte **)&Mus_SndPtr); } else { Mus_LumpNum = W_GetNumForName(songLump); Mus_SndPtr = W_CacheLumpNum(Mus_LumpNum, PU_MUSIC); } #ifdef __WATCOMC__ _dpmi_lockregion(Mus_SndPtr, lumpinfo[Mus_LumpNum].size); #endif RegisteredSong = I_RegisterSong(Mus_SndPtr); I_PlaySong(RegisteredSong, loop); // 'true' denotes endless looping. Mus_Song = song; } } //========================================================================== // // S_StartSongName // //========================================================================== void S_StartSongName(char *songLump, boolean loop) { int cdTrack; if(!songLump) { return; } if(i_CDMusic) { cdTrack = 0; if(!strcmp(songLump, "hexen")) { cdTrack = P_GetCDTitleTrack(); } else if(!strcmp(songLump, "hub")) { cdTrack = P_GetCDIntermissionTrack(); } else if(!strcmp(songLump, "hall")) { cdTrack = P_GetCDEnd1Track(); } else if(!strcmp(songLump, "orb")) { cdTrack = P_GetCDEnd2Track(); } else if(!strcmp(songLump, "chess") && !i_CDTrack) { cdTrack = P_GetCDEnd3Track(); } /* Uncomment this, if Kevin writes a specific song for startup else if(!strcmp(songLump, "start")) { cdTrack = P_GetCDStartTrack(); } */ if(!cdTrack || (cdTrack == i_CDCurrentTrack && i_CDMusicLength > 0)) { return; } if(!I_CDMusPlay(cdTrack)) { if(loop) { i_CDMusicLength = 35*I_CDMusTrackLength(cdTrack); oldTic = gametic; } else { i_CDMusicLength = -1; } i_CDCurrentTrack = cdTrack; i_CDTrack = false; } } else { if(RegisteredSong) { I_StopSong(RegisteredSong); I_UnRegisterSong(RegisteredSong); if(UseSndScript) { Z_Free(Mus_SndPtr); } else { Z_ChangeTag(lumpcache[Mus_LumpNum], PU_CACHE); } #ifdef __WATCOMC__ _dpmi_unlockregion(Mus_SndPtr, lumpinfo[Mus_LumpNum].size); #endif RegisteredSong = 0; } if(UseSndScript) { char name[128]; sprintf(name, "%s%s.lmp", ArchivePath, songLump); M_ReadFile(name, (byte **)&Mus_SndPtr); } else { Mus_LumpNum = W_GetNumForName(songLump); Mus_SndPtr = W_CacheLumpNum(Mus_LumpNum, PU_MUSIC); } #ifdef __WATCOMC__ _dpmi_lockregion(Mus_SndPtr, lumpinfo[Mus_LumpNum].size); #endif RegisteredSong = I_RegisterSong(Mus_SndPtr); I_PlaySong(RegisteredSong, loop); // 'true' denotes endless looping. Mus_Song = -1; } } //========================================================================== // // S_GetSoundID // //========================================================================== int S_GetSoundID(char *name) { int i; for(i = 0; i < NUMSFX; i++) { if(!strcmp(S_sfx[i].tagName, name)) { return i; } } return 0; } //========================================================================== // // S_StartSound // //========================================================================== void S_StartSound(mobj_t *origin, int sound_id) { S_StartSoundAtVolume(origin, sound_id, 127); } //========================================================================== // // S_StartSoundAtVolume // //========================================================================== void S_StartSoundAtVolume(mobj_t *origin, int sound_id, int volume) { #if 1 int dist, vol; int i; int priority; int sep; int angle; int absx; int absy; static int sndcount = 0; int chan; //printf( "S_StartSoundAtVolume: %d\n", sound_id ); if(sound_id == 0 || snd_MaxVolume == 0) return; if(origin == NULL) { origin = players[displayplayer].mo; #if 1 // How does the DOS version work without this? // players[0].mo does not get set until P_SpawnPlayer. - KR if( origin == NULL ) return; #endif } if(volume == 0) { return; } // calculate the distance before other stuff so that we can throw out // sounds that are beyond the hearing range. absx = abs(origin->x-players[displayplayer].mo->x); absy = abs(origin->y-players[displayplayer].mo->y); dist = absx+absy-(absx > absy ? absy>>1 : absx>>1); dist >>= FRACBITS; if(dist >= MAX_SND_DIST) { return; // sound is beyond the hearing range... } if(dist < 0) { dist = 0; } priority = S_sfx[sound_id].priority; priority *= (PRIORITY_MAX_ADJUST-(dist/DIST_ADJUST)); if(!S_StopSoundID(sound_id, priority)) { return; // other sounds have greater priority } for(i=0; iplayer) { i = snd_Channels; break; // let the player have more than one sound. } if(origin == Channel[i].mo) { // only allow other mobjs one sound S_StopSound(Channel[i].mo); break; } } if(i >= snd_Channels) { for(i = 0; i < snd_Channels; i++) { if(Channel[i].mo == NULL) { break; } } if(i >= snd_Channels) { // look for a lower priority sound to replace. sndcount++; if(sndcount >= snd_Channels) { sndcount = 0; } for(chan = 0; chan < snd_Channels; chan++) { i = (sndcount+chan)%snd_Channels; if(priority >= Channel[i].priority) { chan = -1; //denote that sound should be replaced. break; } } if(chan != -1) { return; //no free channels. } else //replace the lower priority sound. { if(Channel[i].handle) { if(I_SoundIsPlaying(Channel[i].handle)) { I_StopSound(Channel[i].handle); } if(S_sfx[Channel[i].sound_id].usefulness > 0) { S_sfx[Channel[i].sound_id].usefulness--; } } } } } if(S_sfx[sound_id].lumpnum == 0) { S_sfx[sound_id].lumpnum = I_GetSfxLumpNum(&S_sfx[sound_id]); } if(S_sfx[sound_id].snd_ptr == NULL) { if(UseSndScript) { char name[128]; sprintf(name, "%s%s.lmp", ArchivePath, S_sfx[sound_id].lumpname); M_ReadFile(name, (byte **)&S_sfx[sound_id].snd_ptr); } else { S_sfx[sound_id].snd_ptr = W_CacheLumpNum(S_sfx[sound_id].lumpnum, PU_SOUND); } #ifdef __WATCOMC__ _dpmi_lockregion(S_sfx[sound_id].snd_ptr, lumpinfo[S_sfx[sound_id].lumpnum].size); #endif } vol = (SoundCurve[dist]*(snd_MaxVolume*8)*volume)>>14; if(origin == players[displayplayer].mo) { sep = 128; // vol = (volume*(snd_MaxVolume+1)*8)>>7; } else { #if 1 // KR - Channel[i].mo = 0 here! if( Channel[i].mo == NULL ) { sep = 128; //printf( " Channel[i].mo not set\n" ); } else { #endif angle = R_PointToAngle2(players[displayplayer].mo->x, players[displayplayer].mo->y, Channel[i].mo->x, Channel[i].mo->y); angle = (angle-viewangle)>>24; sep = angle*2-128; if(sep < 64) sep = -sep; if(sep > 192) sep = 512-sep; // vol = SoundCurve[dist]; #if 1 } #endif } if(S_sfx[sound_id].changePitch) { Channel[i].pitch = (byte)(127+(M_Random()&7)-(M_Random()&7)); } else { Channel[i].pitch = 127; } Channel[i].handle = I_StartSound(sound_id, S_sfx[sound_id].snd_ptr, vol, sep, Channel[i].pitch, 0); Channel[i].mo = origin; Channel[i].sound_id = sound_id; Channel[i].priority = priority; Channel[i].volume = volume; if(S_sfx[sound_id].usefulness < 0) { S_sfx[sound_id].usefulness = 1; } else { S_sfx[sound_id].usefulness++; } #endif } //========================================================================== // // S_StopSoundID // //========================================================================== boolean S_StopSoundID(int sound_id, int priority) { int i; int lp; //least priority int found; if(S_sfx[sound_id].numchannels == -1) { return(true); } lp = -1; //denote the argument sound_id found = 0; for(i=0; i= Channel[i].priority) { // if we're gonna kill one, then this'll be it lp = i; priority = Channel[i].priority; } } } if(found < S_sfx[sound_id].numchannels) { return(true); } else if(lp == -1) { return(false); // don't replace any sounds } if(Channel[lp].handle) { if(I_SoundIsPlaying(Channel[lp].handle)) { I_StopSound(Channel[lp].handle); } if(S_sfx[Channel[lp].sound_id].usefulness > 0) { S_sfx[Channel[lp].sound_id].usefulness--; } Channel[lp].mo = NULL; } return(true); } //========================================================================== // // S_StopSound // //========================================================================== void S_StopSound(mobj_t *origin) { int i; for(i=0;i 0) { S_sfx[Channel[i].sound_id].usefulness--; } Channel[i].handle = 0; Channel[i].mo = NULL; } } } //========================================================================== // // S_StopAllSound // //========================================================================== void S_StopAllSound(void) { int i; //stop all sounds for(i=0; i < snd_Channels; i++) { if(Channel[i].handle) { S_StopSound(Channel[i].mo); } } memset(Channel, 0, 8*sizeof(channel_t)); } //========================================================================== // // S_SoundLink // //========================================================================== void S_SoundLink(mobj_t *oldactor, mobj_t *newactor) { int i; for(i=0;iid == 0x1d4a11) { // taken directly from the Z_ChangeTag macro Z_ChangeTag2(lumpcache[S_sfx[i].lumpnum], PU_CACHE); #ifdef __WATCOMC__ _dpmi_unlockregion(S_sfx[i].snd_ptr, lumpinfo[S_sfx[i].lumpnum].size); #endif } } S_sfx[i].usefulness = -1; S_sfx[i].snd_ptr = NULL; } } } NextCleanup = gametic+35*30; // every 30 seconds } for(i=0;i 0) { S_sfx[Channel[i].sound_id].usefulness--; } Channel[i].handle = 0; Channel[i].mo = NULL; Channel[i].sound_id = 0; } if(Channel[i].mo == NULL || Channel[i].sound_id == 0 || Channel[i].mo == listener) { continue; } else { absx = abs(Channel[i].mo->x-listener->x); absy = abs(Channel[i].mo->y-listener->y); dist = absx+absy-(absx > absy ? absy>>1 : absx>>1); dist >>= FRACBITS; if(dist >= MAX_SND_DIST) { S_StopSound(Channel[i].mo); continue; } if(dist < 0) { dist = 0; } //vol = SoundCurve[dist]; vol = (SoundCurve[dist]*(snd_MaxVolume*8)*Channel[i].volume)>>14; if(Channel[i].mo == listener) { sep = 128; } else { angle = R_PointToAngle2(listener->x, listener->y, Channel[i].mo->x, Channel[i].mo->y); angle = (angle-viewangle)>>24; sep = angle*2-128; if(sep < 64) sep = -sep; if(sep > 192) sep = 512-sep; } I_UpdateSoundParams(Channel[i].handle, vol, sep, Channel[i].pitch); priority = S_sfx[Channel[i].sound_id].priority; priority *= PRIORITY_MAX_ADJUST-(dist/DIST_ADJUST); Channel[i].priority = priority; } } } //========================================================================== // // S_Init // //========================================================================== void S_Init(void) { SoundCurve = W_CacheLumpName("SNDCURVE", PU_STATIC); // SoundCurve = Z_Malloc(MAX_SND_DIST, PU_STATIC, NULL); I_StartupSound(); if(snd_Channels > 8) { snd_Channels = 8; } I_SetChannels(snd_Channels); I_SetMusicVolume(snd_MusicVolume); // Attempt to setup CD music if(snd_MusicDevice == snd_CDMUSIC) { ST_Message(" Attempting to initialize CD Music: "); if(!cdrom) { i_CDMusic = (I_CDMusInit() != -1); } else { // The user is trying to use the cdrom for both game and music i_CDMusic = false; } if(i_CDMusic) { ST_Message("initialized.\n"); } else { ST_Message("failed.\n"); } } } //========================================================================== // // S_GetChannelInfo // //========================================================================== void S_GetChannelInfo(SoundInfo_t *s) { int i; ChanInfo_t *c; s->channelCount = snd_Channels; s->musicVolume = snd_MusicVolume; s->soundVolume = snd_MaxVolume; for(i = 0; i < snd_Channels; i++) { c = &s->chan[i]; c->id = Channel[i].sound_id; c->priority = Channel[i].priority; c->name = S_sfx[c->id].lumpname; c->mo = Channel[i].mo; c->distance = P_AproxDistance(c->mo->x-viewx, c->mo->y-viewy) >>FRACBITS; } } //========================================================================== // // S_GetSoundPlayingInfo // //========================================================================== boolean S_GetSoundPlayingInfo(mobj_t *mobj, int sound_id) { int i; for(i = 0; i < snd_Channels; i++) { if(Channel[i].sound_id == sound_id && Channel[i].mo == mobj) { if(I_SoundIsPlaying(Channel[i].handle)) { return true; } } } return false; } //========================================================================== // // S_SetMusicVolume // //========================================================================== void S_SetMusicVolume(void) { if(i_CDMusic) { I_CDMusSetVolume(snd_MusicVolume*16); // 0-255 } else { I_SetMusicVolume(snd_MusicVolume); } if(snd_MusicVolume == 0) { if(!i_CDMusic) { I_PauseSong(RegisteredSong); } MusicPaused = true; } else if(MusicPaused) { if(!i_CDMusic) { I_ResumeSong(RegisteredSong); } MusicPaused = false; } } //========================================================================== // // S_ShutDown // //========================================================================== void S_ShutDown(void) { extern int tsm_ID; if(tsm_ID != -1) { I_StopSong(RegisteredSong); I_UnRegisterSong(RegisteredSong); I_ShutdownSound(); } if(i_CDMusic) { I_CDMusStop(); } } //========================================================================== // // S_InitScript // //========================================================================== void S_InitScript(void) { int p; int i; strcpy(ArchivePath, DEFAULT_ARCHIVEPATH); if(!(p = M_CheckParm("-devsnd"))) { UseSndScript = false; SC_OpenLump("sndinfo"); } else { UseSndScript = true; SC_OpenFile(myargv[p+1]); } while(SC_GetString()) { if(*sc_String == '$') { if(!stricmp(sc_String, "$ARCHIVEPATH")) { SC_MustGetString(); strcpy(ArchivePath, sc_String); } else if(!stricmp(sc_String, "$MAP")) { SC_MustGetNumber(); SC_MustGetString(); if(sc_Number) { P_PutMapSongLump(sc_Number, sc_String); } } continue; } else { for(i = 0; i < NUMSFX; i++) { if(!strcmp(S_sfx[i].tagName, sc_String)) { SC_MustGetString(); if(*sc_String != '?') { strcpy(S_sfx[i].lumpname, sc_String); } else { strcpy(S_sfx[i].lumpname, "default"); } break; } } if(i == NUMSFX) { SC_MustGetString(); } } } SC_Close(); for(i = 0; i < NUMSFX; i++) { if(!strcmp(S_sfx[i].lumpname, "")) { strcpy(S_sfx[i].lumpname, "default"); } } } //========================================================================== // // I_UpdateCDMusic // // Updates playing time for current track, and restarts the track, if // needed // //========================================================================== void I_UpdateCDMusic(void) { extern boolean MenuActive; if(MusicPaused || i_CDMusicLength < 0 || (paused && !MenuActive)) { // Non-looping song/song paused return; } i_CDMusicLength -= gametic-oldTic; oldTic = gametic; if(i_CDMusicLength <= 0) { S_StartSong(gamemap, true); } } /* ============================================================================ CONSTANTS ============================================================================ */ #define SC_INDEX 0x3C4 #define SC_RESET 0 #define SC_CLOCK 1 #define SC_MAPMASK 2 #define SC_CHARMAP 3 #define SC_MEMMODE 4 #define GC_INDEX 0x3CE #define GC_SETRESET 0 #define GC_ENABLESETRESET 1 #define GC_COLORCOMPARE 2 #define GC_DATAROTATE 3 #define GC_READMAP 4 #define GC_MODE 5 #define GC_MISCELLANEOUS 6 #define GC_COLORDONTCARE 7 #define GC_BITMASK 8 //================================================== // // joystick vars // //================================================== boolean joystickpresent; unsigned joystickx, joysticky; boolean I_ReadJoystick (void); // returns false if not connected boolean I_ReadJoystick (void) { return false; } //================================================== #define VBLCOUNTER 34000 // hardware tics to a frame #define TIMERINT 8 #define KEYBOARDINT 9 #define MOUSEB1 1 #define MOUSEB2 2 #define MOUSEB3 4 boolean mousepresent; //static int tsm_ID = -1; // tsm init flag //=============================== int ticcount; boolean novideo; // if true, stay in text mode for debugging #define KEY_INS 0x52 #define KEY_DEL 0x53 #define KEY_PGUP 0x49 #define KEY_PGDN 0x51 #define KEY_HOME 0x47 #define KEY_END 0x4f #if 0 #define KEY_LSHIFT 0xfe #define SC_RSHIFT 0x36 #define SC_LSHIFT 0x2a byte scantokey[128] = { // 0 1 2 3 4 5 6 7 // 8 9 A B C D E F 0 , 27, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=', KEY_BACKSPACE, 9, // 0 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']', 13 , KEY_RCTRL,'a', 's', // 1 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', 39 , '`', KEY_LSHIFT,92, 'z', 'x', 'c', 'v', // 2 'b', 'n', 'm', ',', '.', '/', KEY_RSHIFT,'*', KEY_RALT,' ', 0 , KEY_F1, KEY_F2, KEY_F3, KEY_F4, KEY_F5, // 3 KEY_F6, KEY_F7, KEY_F8, KEY_F9, KEY_F10,0 , 0 , KEY_HOME, KEY_UPARROW,KEY_PGUP,'-',KEY_LEFTARROW,'5',KEY_RIGHTARROW,'+',KEY_END, //4 KEY_DOWNARROW,KEY_PGDN,KEY_INS,KEY_DEL,0,0, 0, KEY_F11, KEY_F12,0 , 0 , 0 , 0 , 0 , 0 , 0, // 5 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, // 6 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 // 7 }; #endif //========================================================================== //-------------------------------------------------------------------------- // // FUNC I_GetTime // // Returns time in 1/35th second tics. // //-------------------------------------------------------------------------- int I_GetTime (void) { #ifdef SDL ticcount = (SDL_GetTicks()*35)/1000; #else struct timeval tv; gettimeofday( &tv, 0 ); //printf( "GT: %lx %lx\n", tv.tv_sec, tv.tv_usec ); //ticcount = ((tv.tv_sec * 1000000) + tv.tv_usec) / 28571; ticcount = ((tv.tv_sec / 35) + (tv.tv_usec / 28571)); #endif return( ticcount ); } /* ============================================================================ USER INPUT ============================================================================ */ //-------------------------------------------------------------------------- // // PROC I_WaitVBL // //-------------------------------------------------------------------------- void I_WaitVBL(int vbls) { if( novideo ) { return; } while( vbls-- ) { SDL_Delay( 16667/1000 ); } } //-------------------------------------------------------------------------- // // PROC I_SetPalette // // Palette source must use 8 bit RGB elements. // //-------------------------------------------------------------------------- void I_SetPalette(byte *palette) { SDL_Color* c; SDL_Color* cend; SDL_Color cmap[ 256 ]; if(novideo) { return; } I_WaitVBL(1); c = cmap; cend = c + 256; for( ; c != cend; c++ ) { //_outbyte(PEL_DATA, (gammatable[usegamma][*palette++])>>2); c->r = gammatable[usegamma][*palette++]; c->g = gammatable[usegamma][*palette++]; c->b = gammatable[usegamma][*palette++]; } SDL_SetColors( sdl_screen, cmap, 0, 256 ); SDL_SetColors( sdl_scaled_screen, cmap, 0, 256 ); } /* ============================================================================ GRAPHICS MODE ============================================================================ */ byte *pcscreen, *destscreen, *destview; /* ============== = = I_Update = ============== */ int UpdateState; extern int screenblocks; void I_Update (void) { int i, x, y; byte *dest; int tics; static int lasttic; SDL_Rect src_rect, dst_rect; byte *src_line, *dst_line; // // blit screen to video // if(DisplayTicker) { if(screenblocks > 9 || UpdateState&(I_FULLSCRN|I_MESSAGES)) { dest = (byte *)screen; } else { dest = (byte *)pcscreen; } tics = ticcount-lasttic; lasttic = ticcount; if(tics > 20) { tics = 20; } for(i = 0; i < tics; i++) { *dest = 0xff; dest += 2; } for(i = tics; i < 20; i++) { *dest = 0x00; dest += 2; } } //memset(pcscreen, 255, SCREENHEIGHT*SCREENWIDTH); if(UpdateState == I_NOUPDATE) { return; } if(UpdateState&I_FULLSCRN) { memcpy(pcscreen, screen, SCREENWIDTH*SCREENHEIGHT); UpdateState = I_NOUPDATE; // clear out all draw types } if(UpdateState&I_FULLVIEW) { if(UpdateState&I_MESSAGES && screenblocks > 7) { for(i = 0; i < (viewwindowy+viewheight)*SCREENWIDTH; i += SCREENWIDTH) { memcpy(pcscreen+i, screen+i, SCREENWIDTH); } UpdateState &= ~(I_FULLVIEW|I_MESSAGES); } else { for(i = viewwindowy*SCREENWIDTH+viewwindowx; i < (viewwindowy+viewheight)*SCREENWIDTH; i += SCREENWIDTH) { memcpy(pcscreen+i, screen+i, viewwidth); } UpdateState &= ~I_FULLVIEW; } } if(UpdateState&I_STATBAR) { memcpy(pcscreen+SCREENWIDTH*(SCREENHEIGHT-SBARHEIGHT), screen+SCREENWIDTH*(SCREENHEIGHT-SBARHEIGHT), SCREENWIDTH*SBARHEIGHT); UpdateState &= ~I_STATBAR; } if(UpdateState&I_MESSAGES) { memcpy(pcscreen, screen, SCREENWIDTH*28); UpdateState &= ~I_MESSAGES; } // Scale from 320x200 to 640x480 (2x scaling) // Simple nearest-neighbor scaling for speed if( SDL_MUSTLOCK( sdl_scaled_screen ) ) { if( SDL_LockSurface( sdl_scaled_screen ) < 0 ) { return; } } for( y = 0; y < SCREENHEIGHT; y++ ) { src_line = (byte *)sdl_screen->pixels + y * SCREENWIDTH; // Scale 2x vertically (each line appears twice) dst_line = (byte *)sdl_scaled_screen->pixels + (y * 2) * 640; for( x = 0; x < SCREENWIDTH; x++ ) { byte pixel = src_line[x]; // Scale 2x horizontally (each pixel appears twice) dst_line[x * 2] = pixel; dst_line[x * 2 + 1] = pixel; } // Copy the same line again for 2x vertical scaling memcpy( dst_line + 640, dst_line, 640 ); } if( SDL_MUSTLOCK( sdl_scaled_screen ) ) { SDL_UnlockSurface( sdl_scaled_screen ); } // Update the entire screen SDL_Flip( sdl_scaled_screen ); } //-------------------------------------------------------------------------- // // PROC I_InitGraphics // //-------------------------------------------------------------------------- void I_InitGraphics(void) { if( novideo ) { return; } // Create a 640x480 window for proper scaling sdl_scaled_screen = SDL_SetVideoMode( 640, 480, 8, SDL_HWPALETTE ); if( sdl_scaled_screen == NULL ) { fprintf( stderr, "Couldn't set video mode 640x480: %s\n", SDL_GetError() ); exit( 3 ); } // Create an off-screen surface for the game's 320x200 rendering sdl_screen = SDL_CreateRGBSurface( SDL_SWSURFACE, SCREENWIDTH, SCREENHEIGHT, 8, 0, 0, 0, 0 ); if( sdl_screen == NULL ) { fprintf( stderr, "Couldn't create %dx%d surface: %s\n", SCREENWIDTH, SCREENHEIGHT, SDL_GetError() ); exit( 3 ); } // Copy the palette from the scaled screen SDL_SetColors( sdl_screen, sdl_scaled_screen->format->palette->colors, 0, 256 ); if ( M_CheckParm("-grabmouse") ) { grabMouse = 1; } else { grabMouse = 0; } SDL_ShowCursor( 0 ); SDL_WM_SetCaption( "HEXEN v1.1", "HEXEN" ); pcscreen = destscreen = sdl_screen->pixels; I_SetPalette( W_CacheLumpName("PLAYPAL", PU_CACHE) ); } //-------------------------------------------------------------------------- // // PROC I_ShutdownGraphics // //-------------------------------------------------------------------------- void I_ShutdownGraphics(void) { } //-------------------------------------------------------------------------- // // PROC I_ReadScreen // // Reads the screen currently displayed into a linear buffer. // //-------------------------------------------------------------------------- /* void I_ReadScreen(byte *scr) { memcpy(scr, screen, SCREENWIDTH*SCREENHEIGHT); } */ //=========================================================================== // // Translates the key // int xlatekey(SDL_keysym *key) { int rc; switch(key->sym) { case SDLK_LEFT: rc = KEY_LEFTARROW; break; case SDLK_RIGHT: rc = KEY_RIGHTARROW; break; case SDLK_DOWN: rc = KEY_DOWNARROW; break; case SDLK_UP: rc = KEY_UPARROW; break; case SDLK_ESCAPE: rc = KEY_ESCAPE; break; case SDLK_RETURN: rc = KEY_ENTER; break; case SDLK_F1: rc = KEY_F1; break; case SDLK_F2: rc = KEY_F2; break; case SDLK_F3: rc = KEY_F3; break; case SDLK_F4: rc = KEY_F4; break; case SDLK_F5: rc = KEY_F5; break; case SDLK_F6: rc = KEY_F6; break; case SDLK_F7: rc = KEY_F7; break; case SDLK_F8: rc = KEY_F8; break; case SDLK_F9: rc = KEY_F9; break; case SDLK_F10: rc = KEY_F10; break; #ifdef VMS case SDLK_F12: rc = KEY_F11; break; case SDLK_F11: rc = KEY_ESCAPE; break; #else case SDLK_F11: rc = KEY_F11; break; case SDLK_F12: rc = KEY_F12; break; #endif case SDLK_INSERT: rc = KEY_INS; break; case SDLK_DELETE: rc = KEY_DEL; break; case SDLK_PAGEUP: rc = KEY_PGUP; break; case SDLK_PAGEDOWN: rc = KEY_PGDN; break; case SDLK_HOME: rc = KEY_HOME; break; case SDLK_END: rc = KEY_END; break; case SDLK_BACKSPACE: rc = KEY_BACKSPACE; break; case SDLK_PAUSE: rc = KEY_PAUSE; break; case SDLK_EQUALS: rc = KEY_EQUALS; break; case SDLK_KP_MINUS: case SDLK_MINUS: rc = KEY_MINUS; break; case SDLK_LSHIFT: case SDLK_RSHIFT: rc = KEY_RSHIFT; break; case SDLK_LCTRL: case SDLK_RCTRL: rc = KEY_RCTRL; break; case SDLK_LALT: case SDLK_LMETA: case SDLK_RALT: case SDLK_RMETA: rc = KEY_RALT; break; default: rc = key->sym; break; } return rc; } /* This processes SDL events */ void I_GetEvent(SDL_Event *Event) { Uint8 buttonstate; event_t event; switch (Event->type) { case SDL_KEYDOWN: event.type = ev_keydown; event.data1 = xlatekey(&Event->key.keysym); H2_PostEvent(&event); break; case SDL_KEYUP: event.type = ev_keyup; event.data1 = xlatekey(&Event->key.keysym); H2_PostEvent(&event); break; case SDL_MOUSEBUTTONDOWN: case SDL_MOUSEBUTTONUP: buttonstate = SDL_GetMouseState(NULL, NULL); event.type = ev_mouse; event.data1 = 0 | (buttonstate & SDL_BUTTON(1) ? 1 : 0) | (buttonstate & SDL_BUTTON(2) ? 2 : 0) | (buttonstate & SDL_BUTTON(3) ? 4 : 0); event.data2 = event.data3 = 0; H2_PostEvent(&event); break; #if (SDL_MAJOR_VERSION >= 0) && (SDL_MINOR_VERSION >= 9) case SDL_MOUSEMOTION: /* Ignore mouse warp events */ if ( (Event->motion.x != sdl_scaled_screen->w/2) || (Event->motion.y != sdl_scaled_screen->h/2) ) { /* Warp the mouse back to the center */ if (grabMouse) { SDL_WarpMouse(sdl_scaled_screen->w/2, sdl_scaled_screen->h/2); } event.type = ev_mouse; event.data1 = 0 | (Event->motion.state & SDL_BUTTON(1) ? 1 : 0) | (Event->motion.state & SDL_BUTTON(2) ? 2 : 0) | (Event->motion.state & SDL_BUTTON(3) ? 4 : 0); event.data2 = Event->motion.xrel << 2; event.data3 = -Event->motion.yrel << 2; H2_PostEvent(&event); } break; #endif case SDL_QUIT: I_Quit(); } } // // I_StartTic // void I_StartTic (void) { SDL_Event Event; while ( SDL_PollEvent(&Event) ) I_GetEvent(&Event); } void I_JoystickEvents(void); /* =============== = = I_StartFrame = =============== */ void I_StartFrame (void) { I_JoystickEvents (); if(useexterndriver) { DPMIInt(i_Vector); } } /* ============================================================================ TIMER INTERRUPT ============================================================================ */ /* ================ = = I_TimerISR = ================ */ int I_TimerISR (void) { ticcount++; return 0; } /* ============================================================================ KEYBOARD ============================================================================ */ int lastpress; /* ============================================================================ MOUSE ============================================================================ */ /* ================ = = StartupMouse = ================ */ void I_StartupCyberMan(void); void I_StartupMouse (void) { mousepresent = 1; I_StartupCyberMan(); } /* ============================================================================ JOYSTICK ============================================================================ */ int joyxl, joyxh, joyyl, joyyh; boolean WaitJoyButton (void) { #if 0 int oldbuttons, buttons; oldbuttons = 0; do { I_WaitVBL (1); buttons = ((inp(0x201) >> 4)&1)^1; if (buttons != oldbuttons) { oldbuttons = buttons; continue; } if ( (lastpress& 0x7f) == 1 ) { joystickpresent = false; return false; } } while ( !buttons); do { I_WaitVBL (1); buttons = ((inp(0x201) >> 4)&1)^1; if (buttons != oldbuttons) { oldbuttons = buttons; continue; } if ( (lastpress& 0x7f) == 1 ) { joystickpresent = false; return false; } } while ( buttons); #endif return true; } /* =============== = = I_StartupJoystick = =============== */ int basejoyx, basejoyy; void I_StartupJoystick (void) { int centerx, centery; joystickpresent = 0; if ( M_CheckParm ("-nojoy") || !usejoystick ) return; if (!I_ReadJoystick ()) { joystickpresent = false; ST_Message("joystick not found\n "); return; } ST_Message("joystick found\n"); joystickpresent = true; ST_RealMessage("CENTER the joystick and press button 1:"); if (!WaitJoyButton ()) return; I_ReadJoystick (); centerx = joystickx; centery = joysticky; ST_RealMessage("\nPush the joystick to the UPPER LEFT corner and press button 1:"); if (!WaitJoyButton ()) return; I_ReadJoystick (); joyxl = (centerx + joystickx)/2; joyyl = (centerx + joysticky)/2; ST_RealMessage("\nPush the joystick to the LOWER RIGHT corner and press button 1:"); if (!WaitJoyButton ()) return; I_ReadJoystick (); joyxh = (centerx + joystickx)/2; joyyh = (centery + joysticky)/2; ST_RealMessage("\n"); } /* =============== = = I_JoystickEvents = =============== */ void I_JoystickEvents (void) { event_t ev; // // joystick events // if (!joystickpresent) return; I_ReadJoystick(); ev.type = ev_joystick; ev.data1 = 0; //((inp(0x201) >> 4)&15)^15; if (joystickx < joyxl) ev.data2 = -1; else if (joystickx > joyxh) ev.data2 = 1; else ev.data2 = 0; if (joysticky < joyyl) ev.data3 = -1; else if (joysticky > joyyh) ev.data3 = 1; else ev.data3 = 0; H2_PostEvent (&ev); } /* ============================================================================ DPMI STUFF ============================================================================ */ #define REALSTACKSIZE 1024 dpmiregs_t dpmiregs; unsigned realstackseg; void I_DivException (void); int I_SetDivException (void); void DPMIInt (int i) { } /* ============================================================================ TIMER INTERRUPT ============================================================================ */ /* =============== = = I_Init = = hook interrupts and set graphics mode = =============== */ void I_Init (void) { extern void I_StartupTimer(void); novideo = M_CheckParm("novideo"); //ST_Message(" I_StartupMouse "); I_StartupMouse(); // tprintf("I_StartupJoystick ",1); // I_StartupJoystick(); ST_Message(" S_Init... "); S_Init(); S_Start(); } /* =============== = = I_Shutdown = = return to default system state = =============== */ void I_Shutdown (void) { I_ShutdownGraphics (); S_ShutDown (); } /* ================ = = I_Error = ================ */ void I_Error (char *error, ...) { va_list argptr; D_QuitNetGame (); I_Shutdown (); va_start (argptr,error); vprintf (error, argptr); va_end (argptr); printf ("\n"); exit (1); } //-------------------------------------------------------------------------- // // I_Quit // // Shuts down net game, saves defaults, prints the exit text message, // goes to text mode, and exits. // //-------------------------------------------------------------------------- void I_Quit(void) { D_QuitNetGame(); M_SaveDefaults(); I_Shutdown(); // scr = (byte *)W_CacheLumpName("ENDTEXT", PU_CACHE); /* memcpy((void *)0xb8000, scr, 80*25*2); regs.w.ax = 0x0200; regs.h.bh = 0; regs.h.dl = 0; regs.h.dh = 23; int386(0x10, (const union REGS *)®s, ®s); // Set text pos _settextposition(24, 1); */ printf("\nHexen: Beyond Heretic\n"); exit(0); } /* =============== = = I_ZoneBase = =============== */ byte *I_ZoneBase (int *size) { byte *ptr; int heap = 0x800000; ptr = malloc ( heap ); ST_Message (" 0x%x allocated for zone, ", heap); ST_Message ("ZoneBase: 0x%X\n", (int)ptr); if ( ! ptr ) I_Error (" Insufficient DPMI memory!"); *size = heap; return ptr; } /* ============= = = I_AllocLow = ============= */ byte *I_AllocLow (int length) { return malloc( length ); } /* ============================================================================ NETWORKING ============================================================================ */ /* // FUCKED LINES typedef struct { char priv[508]; } doomdata_t; */ // FUCKED LINES #define DOOMCOM_ID 0x12345678l /* // FUCKED LINES typedef struct { long id; short intnum; // DOOM executes an int to execute commands // communication between DOOM and the driver short command; // CMD_SEND or CMD_GET short remotenode; // dest for send, set by get (-1 = no packet) short datalength; // bytes in doomdata to be sent // info common to all nodes short numnodes; // console is allways node 0 short ticdup; // 1 = no duplication, 2-5 = dup for slow nets short extratics; // 1 = send a backup tic in every packet short deathmatch; // 1 = deathmatch short savegame; // -1 = new game, 0-5 = load savegame short episode; // 1-3 short map; // 1-9 short skill; // 1-5 // info specific to this node short consoleplayer; short numplayers; short angleoffset; // 1 = left, 0 = center, -1 = right short drone; // 1 = drone // packet data to be sent doomdata_t data; } doomcom_t; */ // FUCKED LINES extern doomcom_t *doomcom; /* ==================== = = I_InitNetwork = ==================== */ void I_InitNetwork (void) { int i; i = M_CheckParm ("-net"); if (!i) { // // single player game // doomcom = malloc (sizeof (*doomcom) ); memset (doomcom, 0, sizeof(*doomcom) ); netgame = false; doomcom->id = DOOMCOM_ID; doomcom->numplayers = doomcom->numnodes = 1; doomcom->deathmatch = false; doomcom->consoleplayer = 0; doomcom->ticdup = 1; doomcom->extratics = 0; return; } netgame = true; doomcom = (doomcom_t *)atoi(myargv[i+1]); //DEBUG doomcom->skill = startskill; doomcom->episode = startepisode; doomcom->map = startmap; doomcom->deathmatch = deathmatch; } void I_NetCmd (void) { if (!netgame) I_Error ("I_NetCmd when not in netgame"); DPMIInt (doomcom->intnum); } //========================================================================= // // I_CheckExternDriver // // Checks to see if a vector, and an address for an external driver // have been passed. //========================================================================= void I_CheckExternDriver(void) { int i; if(!(i = M_CheckParm("-externdriver"))) { return; } i_ExternData = (externdata_t *)atoi(myargv[i+1]); i_Vector = i_ExternData->vector; useexterndriver = true; } //========================================================================= //========================================================================= // Hi-Res (mode 12) stuff //========================================================================= //========================================================================= //========================================================================== // // SetVideoModeHR - Set video mode to 640x480x16 // //========================================================================== void SetVideoModeHR(void) { //TODO } //========================================================================== // // ClearScreenHR - Clear the screen to color 0 // //========================================================================== void ClearScreenHR(void) { //TODO } //========================================================================== // // SlamHR - copy 4-plane buffer to screen // //========================================================================== void SlamHR(char *buffer) { #if 1 printf( "SlamHR\n" ); #else BITPLANE(MASK_PLANE0); memcpy((char *)0xA0000, buffer+P0OFFSET, 38400); BITPLANE(MASK_PLANE1); memcpy((char *)0xA0000, buffer+P1OFFSET, 38400); BITPLANE(MASK_PLANE2); memcpy((char *)0xA0000, buffer+P2OFFSET, 38400); BITPLANE(MASK_PLANE3); memcpy((char *)0xA0000, buffer+P3OFFSET, 38400); #endif } //========================================================================== // // SlamHR - copy 4-plane buffer to screen // // X and Width should be a multiple of 8 // src should be 4 planes of block size, back to back //========================================================================== void SlamBlockHR(int x, int y, int w, int h, char *src) { #if 1 printf( "SlamHR\n" ); #else int srcwid = w>>3; char *dest = ((char *)0xA0000) + (y*(640/8)) + (x>>3); char *dst; int i; VB_SYNC; BITPLANE(MASK_PLANE0); dst = dest; for ( i=0; i