Subversion Repositories eduke32

//-------------------------------------------------------------------------

/*

Copyright (C) 2010 EDuke32 developers and contributors

This file is part of EDuke32.

EDuke32 is free software; you can redistribute it and/or

modify it under the terms of the GNU General Public License version 2

as published by the Free Software Foundation.

This program is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

*/

//-------------------------------------------------------------------------

#include "duke3d.h"

#include "baselayer.h"

#include "renderlayer.h"

#include "scriplib.h"

#include "file_lib.h"

#include "mathutil.h"

#include "gamedefs.h"

#include "keyboard.h"

#include "mouse.h"  // JBF 20030809

#include "joystick.h"

#include "function.h"

#include "control.h"

#include "fx_man.h"

#include "sounds.h"

#include "config.h"

#include "osd.h"

#include "osdfuncs.h"

#include "osdcmds.h"

#include "scriptfile.h"

#include "grpscan.h"

#include "gamedef.h"

#include "kplib.h"

#include "crc32.h"

#include "hightile.h"

#include "control.h"

#include "quicklz.h"

#include "net.h"

#include "premap.h"

#include "gameexec.h"

#include "menus.h"

#include "savegame.h"

#include "anim.h"

#include "demo.h"

#include "common.h"

#include "common_game.h"

#include "input.h"

#include "compat.h"

#ifdef LUNATIC

# include "lunatic_game.h"

#endif

#if KRANDDEBUG

# define GAME_INLINE

# define GAME_STATIC

#else

# define GAME_INLINE inline

# define GAME_STATIC static

#endif

#ifdef _WIN32

# include "winlayer.h"

# define WIN32_LEAN_AND_MEAN

# include <windows.h>

# include <shellapi.h>

extern int32_t G_GetVersionFromWebsite(char *buffer);

# define UPDATEINTERVAL 604800 // 1w

# include "winbits.h"

#else

static int32_t usecwd = 0;

# ifndef GEKKO

#  include <sys/ioctl.h>

# endif

#endif /* _WIN32 */

int32_t g_quitDeadline = 0;

#ifdef LUNATIC

camera_t g_camera;

#else

int32_t g_cameraDistance = 0, g_cameraClock = 0;

#endif

static int32_t g_quickExit;

static int32_t g_commandSetup = 0;

int32_t g_noSetup = 0;

static int32_t g_noAutoLoad = 0;

static int32_t g_noSound = 0;

static int32_t g_noMusic = 0;

static const char *CommandMap = NULL;

static const char *CommandName = NULL;

int32_t g_forceWeaponChoice = 0;

int32_t g_fakeMultiMode = 0;

char boardfilename[BMAX_PATH] = {0}, currentboardfilename[BMAX_PATH] = {0};

static char g_rootDir[BMAX_PATH];

char g_modDir[BMAX_PATH] = "/";

uint8_t water_pal[768],slime_pal[768],title_pal[768],dre_alms[768],ending_pal[768];

uint8_t *basepaltable[BASEPALCOUNT] = { palette, water_pal, slime_pal, dre_alms, title_pal, ending_pal, NULL /*anim_pal*/ };

int8_t g_noFloorPal[MAXPALOOKUPS];  // 1 if sprite pal should not be taken over from floor pal

int32_t voting = -1;

int32_t vote_map = -1, vote_episode = -1;

static int32_t g_Debug = 0;

static int32_t g_noLogoAnim = 0;

static int32_t g_noLogo = 0;

const char *defaultrtsfilename[GAMECOUNT] = { "DUKE.RTS", "NAM.RTS", "NAPALM.RTS", "WW2GI.RTS" };

// g_gameNamePtr can point to one of: grpfiles[].name (string literal), string

// literal, malloc'd block (XXX: possible leak)

const char *g_gameNamePtr = NULL;

// g_rtsNamePtr can point to an argv[] element

const char *g_rtsNamePtr = NULL;

char **g_scriptModules = NULL;

int32_t g_scriptModulesNum = 0;

char **g_defModules = NULL;

int32_t g_defModulesNum = 0;

int32_t g_dependencyCRC = 0;

int32_t g_usingAddon = 0;

#ifdef HAVE_CLIPSHAPE_FEATURE

char **g_clipMapFiles = NULL;

int32_t g_clipMapFilesNum = 0;

#endif

extern int32_t lastvisinc;

int32_t g_Shareware = 0;

#define MAXUSERQUOTES 6

int32_t quotebot, quotebotgoal;

static int32_t user_quote_time[MAXUSERQUOTES];

static char user_quote[MAXUSERQUOTES][178];

// char typebuflen,typebuf[41];

// This was 32 for a while, but I think lowering it to 24 will help things like the Dingoo.

// Ideally, we would look at our memory usage on our most cramped platform and figure out

// how much of that is needed for the underlying OS and things like SDL instead of guessing

#ifndef GEKKO

static int32_t MAXCACHE1DSIZE = (24*1048576);

#else

static int32_t MAXCACHE1DSIZE = (8*1048576);

#endif

int32_t tempwallptr;

static int32_t nonsharedtimer;

int32_t ticrandomseed;

static void G_DrawCameraText(int16_t i);

GAME_STATIC GAME_INLINE int32_t G_MoveLoop(void);

static void G_DoOrderScreen(void);

#define quotepulseshade (sintable[(totalclock<<5)&2047]>>11)

int32_t althud_numbertile = 2930;

int32_t althud_numberpal = 0;

int32_t althud_shadows = 1;

int32_t althud_flashing = 1;

int32_t hud_glowingquotes = 1;

int32_t hud_showmapname = 1;

int32_t g_levelTextTime = 0;

int32_t r_maxfps = 0;

uint32_t g_frameDelay = 0;

#if defined(RENDERTYPEWIN) && defined(USE_OPENGL)

extern char forcegl;

#endif

void M32RunScript(const char *s) { UNREFERENCED_PARAMETER(s); };  // needed for linking since it's referenced from build/src/osd.c

int32_t kopen4loadfrommod(const char *filename, char searchfirst)

{

    int32_t r=-1;

    if (g_modDir[0]!='/' || g_modDir[1]!=0)

    {

        static char fn[BMAX_PATH];

        Bsnprintf(fn, sizeof(fn), "%s/%s",g_modDir,filename);

        r = kopen4load(fn,searchfirst);

    }

    if (r < 0)

        r = kopen4load(filename,searchfirst);

    return r;

}

const char *G_DefaultRtsFile(void)

{

    if (DUKE)

        return defaultrtsfilename[GAME_DUKE];

    else if (WW2GI)

        return defaultrtsfilename[GAME_WW2GI];

    else if (NAPALM)

    {

        if (!testkopen(defaultrtsfilename[GAME_NAPALM],0) && testkopen(defaultrtsfilename[GAME_NAM],0))

            return defaultrtsfilename[GAME_NAM]; // NAM/NAPALM Sharing

        else

            return defaultrtsfilename[GAME_NAPALM];

    }

    else if (NAM)

    {

        if (!testkopen(defaultrtsfilename[GAME_NAM],0) && testkopen(defaultrtsfilename[GAME_NAPALM],0))

            return defaultrtsfilename[GAME_NAPALM]; // NAM/NAPALM Sharing

        else

            return defaultrtsfilename[GAME_NAM];

    }

    return defaultrtsfilename[0];

}

enum gametokens

{

    T_INCLUDE = 0,

    T_INTERFACE = 0,

    T_LOADGRP = 1,

    T_MODE = 1,

    T_CACHESIZE = 2,

    T_ALLOW = 2,

    T_NOAUTOLOAD,

    T_INCLUDEDEFAULT,

    T_MUSIC,

    T_SOUND,

    T_FILE,

    T_ANIMSOUNDS,

    T_NOFLOORPALRANGE,

    T_ID

};

static int32_t sbarsc(int32_t sc)

{

    return scale(sc,ud.statusbarscale,100);

}

static int32_t sbarx(int32_t x)

{

    if (ud.screen_size == 4) return sbarsc(x<<16);

    return (((320<<16) - sbarsc(320<<16)) >> 1) + sbarsc(x<<16);

}

static int32_t sbarxr(int32_t x)

{

    if (ud.screen_size == 4) return (320<<16) - sbarsc(x<<16);

    return (((320<<16) - sbarsc(320<<16)) >> 1) + sbarsc(x<<16);

}

static int32_t sbary(int32_t y)

{

    return (200<<16) - sbarsc(200<<16) + sbarsc(y<<16);

}

static int32_t sbarx16(int32_t x)

{

    if (ud.screen_size == 4) return sbarsc(x);

    return (((320<<16) - sbarsc(320<<16)) >> 1) + sbarsc(x);

}

#if 0 // enable if ever needed

static int32_t sbarxr16(int32_t x)

{

    if (ud.screen_size == 4) return (320<<16) - sbarsc(x);

    return (((320<<16) - sbarsc(320<<16)) >> 1) + sbarsc(x);

}

#endif

static int32_t sbary16(int32_t y)

{

    return (200<<16) - sbarsc(200<<16) + sbarsc(y);

}

int32_t textsc(int32_t sc)

{

    // prevent ridiculousness to a degree

    if (xdim <= 320) return sc;

    else if (xdim <= 640) return scale(sc,min(200,ud.textscale),100);

    else if (xdim <= 800) return scale(sc,min(300,ud.textscale),100);

    else if (xdim <= 1024) return scale(sc,min(350,ud.textscale),100);

    return scale(sc,ud.textscale,100);

}

static void G_PatchStatusBar(int32_t x1, int32_t y1, int32_t x2, int32_t y2)

{

    int32_t scl = sbarsc(65536);

    int32_t tx = sbarx16((320<<15) - (tilesizx[BOTTOMSTATUSBAR]<<15)); // centered

    int32_t ty = sbary(200-tilesizy[BOTTOMSTATUSBAR]);

    int32_t clx1 = sbarsc(scale(x1,xdim,320)), cly1 = sbarsc(scale(y1,ydim,200));

    int32_t clx2 = sbarsc(scale(x2,xdim,320)), cly2 = sbarsc(scale(y2,ydim,200));

    int32_t clofx = (xdim - sbarsc(xdim)) >> 1, clofy = (ydim - sbarsc(ydim));

    rotatesprite(tx,ty,scl,0,BOTTOMSTATUSBAR,4,0,10+16+64,clx1+clofx,cly1+clofy,clx2+clofx-1,cly2+clofy-1);

}

void P_SetGamePalette(DukePlayer_t *player, uint8_t palid, int32_t set)

{

    if (palid >= BASEPALCOUNT)

        palid = BASEPAL;

    player->palette = palid;

    if (player != g_player[screenpeek].ps)

        return;

    setbrightness(ud.brightness>>2, palid, set);

}

// flags

//  4: small font, wrap strings?

int32_t G_PrintGameText(int32_t f,  int32_t tile, int32_t x,  int32_t y,  const char *t,

                        int32_t s,  int32_t p,    int32_t o,

                        int32_t x1, int32_t y1,   int32_t x2, int32_t y2, int32_t z)

{

    int32_t ac;

    const int32_t squishtext = (f&2) != 0 ? 1 : 0;

    const int32_t widthx = 320<<16;

    int32_t origx = x, origy, j = 0;

    if (t == NULL)

        return -1;

    if (!(o & ROTATESPRITE_FULL16))

    {

        x <<= 16;

        y <<= 16;

    }

    origy = y;

    if (x == (widthx>>1)) // center

    {

        const char *oldt = t;

        int32_t newx = 0;

        do

        {

            int32_t i;

            if (*t == 32)

            {

                newx += ((((f & 8) ? 8 : 5) - squishtext) * z);

                continue;

            }

            if (*t == '^' && isdigit(*(t+1)))

            {

                t++;

                if (isdigit(*(t+1)))

                    t++;

//                t += 1 + isdigit(*(t+2));   // This code is wrong, see C99 6.5 #2

                continue;

            }

            ac = *t - '!' + tile;

            if (ac < tile || ac > (tile + 93))

                break;

            i = ((((f & 8) ? 8 : tilesizx[ac]) - squishtext) * z);

            newx += i;

            if (*t >= '0' && *t <= '9')

                newx -= i - ((8 * z));

        }

        while (*(++t));

        t = oldt;

        x = (f & 4) ?

            (xres>>1)-textsc(newx>>1) :

            (widthx>>1)-(newx>>1);

    }

    do

    {

        int32_t i;

        if (*t == 32)

        {

            j += ((((f & 8) ? 8 : 5) - squishtext) * z);

            continue;

        }

        if (*t == '^' && isdigit(*(t+1)))

        {

            char smallbuf[4];

            if (!isdigit(*(++t+1)))

            {

                smallbuf[0] = *(t);

                smallbuf[1] = '\0';

                p = Batoi(smallbuf);

                continue;

            }

            smallbuf[0] = *(t++);

            smallbuf[1] = *(t);

            smallbuf[2] = '\0';

            p = Batoi(smallbuf);

            continue;

        }

        ac = *t - '!' + tile;

        if (ac < tile || ac > (tile + 93))

            break;

        if (f&4)

        {

            rotatesprite(textsc(x+j), (origy)+textsc((y-origy)), textsc(z),

                         0,ac,s,p,(8|16|(o&1)|(o&32)),x1,y1,x2,y2);

        }

        else

        {

            const int32_t orient = (f&1) ? (8|16|(o&1)|(o&32)) : (2|o);

            rotatesprite(x+j, y, z,

                         0,ac,s,p,orient,x1,y1,x2,y2);

        }

        i = (f & 8) ?

            ((8 - squishtext) * z):

            ((tilesizx[ac] - squishtext) * z);

        j += i;

        if (*t >= '0' && *t <= '9')

            j -= i-((8*z));

        // wrapping long strings doesn't work for precise coordinates due to overflow

        // XXX: above comment obsolete?

        if (!(o&ROTATESPRITE_FULL16))

        {

            if (((f&4) ? textsc(x+j) : (x+j)) > (ud.config.ScreenWidth - USERQUOTE_RIGHTOFFSET)<<16)

                j = 0, y += z<<3; // z == 65536 --> 8<<16

        }

    }

    while (*(++t));

    return origx + ((o & ROTATESPRITE_FULL16) ? j : (j>>16));

}

int32_t G_GameTextLen(int32_t x,const char *t)

{

    int32_t ac;

    if (t == NULL)

        return -1;

    do

    {

        if (*t == 32)

        {

            x+=5;

            continue;

        }

        ac = *t - '!' + STARTALPHANUM;

        if (ac < STARTALPHANUM || ac > (STARTALPHANUM + 93))

            break;

        x += (*t >= '0' && *t <= '9') ? 8 : tilesizx[ac];

    }

    while (*(++t));

    return (textsc(x));

}

int32_t mpgametext(int32_t y,const char *t,int32_t s,int32_t dabits)

{

    return(G_PrintGameText(4,STARTALPHANUM, 5,y,t,s,0,dabits,0, 0, xdim-1, ydim-1, 65536));

}

// minitext_yofs: in hud_scale-independent, (<<16)-scaled, 0-200-normalized y coords,

// (sb&ROTATESPRITE_MAX) only.

static int32_t minitext_yofs = 0;

static int32_t minitext_lowercase = 0;

int32_t minitext_(int32_t x,int32_t y,const char *t,int32_t s,int32_t p,int32_t sb)

{

    int32_t ac, j = 0;

    char ch, cmode;

    cmode = (sb&ROTATESPRITE_MAX)!=0;

    sb &= (ROTATESPRITE_MAX-1)|RS_CENTERORIGIN;

    if (t == NULL)

    {

        OSD_Printf("minitext: NULL text!\n");

        return 0;

    }

    if (!(sb&ROTATESPRITE_FULL16))

    {

        x<<=16;

        y<<=16;

    }

    do

    {

        if (*t == '^' && isdigit(*(t+1)))

        {

            char smallbuf[4];

            if (!isdigit(*(++t+1)))

            {

                smallbuf[0] = *(t);

                smallbuf[1] = '\0';

                p = Batoi(smallbuf);

                continue;

            }

            smallbuf[0] = *(t++);

            smallbuf[1] = *(t);

            smallbuf[2] = '\0';

            p = Batoi(smallbuf);

            continue;

        }

        if (!minitext_lowercase)

            ch = Btoupper(*t);

        else

            ch = *t;

        if (ch == 32)

        {

            j+=5;

            continue;

        }

        else ac = ch - '!' + MINIFONT;

        if (cmode) rotatesprite_fs(sbarx16(x+(j<<16)),minitext_yofs+sbary16(y),sbarsc(65536L),0,ac,s,p,sb);

        else rotatesprite_fs(x+(j<<16),y,65536L,0,ac,s,p,sb);

        j += (tilesizx[ac] > 0 ? tilesizx[ac] : 3) + 1;

    }

    while (*(++t));

    return x+(j<<((sb&ROTATESPRITE_FULL16)?16:0));

}

void G_AddUserQuote(const char *daquote)

{

    int32_t i;

    for (i=MAXUSERQUOTES-1; i>0; i--)

    {

        Bstrcpy(user_quote[i],user_quote[i-1]);

        user_quote_time[i] = user_quote_time[i-1];

    }

    Bstrcpy(user_quote[0],daquote);

    OSD_Printf("%s\n",daquote);

    user_quote_time[0] = ud.msgdisptime;

    pub = NUMPAGES;

}

void G_HandleSpecialKeys(void)

{

    // we need CONTROL_GetInput in order to pick up joystick button presses

    if (CONTROL_Started && !(g_player[myconnectindex].ps->gm & MODE_GAME))

    {

        ControlInfo noshareinfo;

        CONTROL_GetInput(&noshareinfo);

    }

//    CONTROL_ProcessBinds();

    if (g_networkMode != NET_DEDICATED_SERVER && ALT_IS_PRESSED && KB_KeyPressed(sc_Enter))

    {

        if (setgamemode(!ud.config.ScreenMode,ud.config.ScreenWidth,ud.config.ScreenHeight,ud.config.ScreenBPP))

        {

            OSD_Printf(OSD_ERROR "Failed setting fullscreen video mode.\n");

            if (setgamemode(ud.config.ScreenMode, ud.config.ScreenWidth, ud.config.ScreenHeight, ud.config.ScreenBPP))

                G_GameExit("Failed to recover from failure to set fullscreen video mode.\n");

        }

        else ud.config.ScreenMode = !ud.config.ScreenMode;

        KB_ClearKeyDown(sc_Enter);

        g_restorePalette = 1;

        G_UpdateScreenArea();

    }

    if (KB_UnBoundKeyPressed(sc_F12))

    {

        char titlebuf[256];

        Bsprintf(titlebuf,HEAD2 " %s",s_buildRev);

        KB_ClearKeyDown(sc_F12);

        screencapture("duke0000.tga",0,titlebuf);

        P_DoQuote(QUOTE_SCREEN_SAVED,g_player[myconnectindex].ps);

    }

    // only dispatch commands here when not in a game

    if (!(g_player[myconnectindex].ps->gm & MODE_GAME))

        OSD_DispatchQueued();

    if (g_quickExit == 0 && KB_KeyPressed(sc_LeftControl) && KB_KeyPressed(sc_LeftAlt) && (KB_KeyPressed(sc_Delete)||KB_KeyPressed(sc_End)))

    {

        g_quickExit = 1;

        G_GameExit("Quick Exit.");

    }

}

void G_GameQuit(void)

{

    if (numplayers < 2)

        G_GameExit(" ");

    if (g_gameQuit == 0)

    {

        g_gameQuit = 1;

        g_quitDeadline = totalclock+120;

        g_netDisconnect = 1;

    }

    if ((totalclock > g_quitDeadline) && (g_gameQuit == 1))

        G_GameExit("Timed out.");

}

extern int32_t cacnum;

extern cactype cac[];

static void G_ShowCacheLocks(void)

{

    int16_t i,k;

    if (offscreenrendering)

        return;

    k = 0;

    for (i=cacnum-1; i>=0; i--)

        if ((*cac[i].lock) >= 200)

        {

            if (k >= ydim-12)

                break;

            Bsprintf(tempbuf,"Locked- %d: Leng:%d, Lock:%d",i,cac[i].leng,*cac[i].lock);

            printext256(0L,k,31,-1,tempbuf,1);

            k += 6;

        }

    if (k < ydim-12)

        k += 6;

    for (i=10; i>=0; i--)

        if (rts_lumplockbyte[i] >= 200)

        {

            if (k >= ydim-12)

                break;

            Bsprintf(tempbuf,"RTS Locked %d:",i);

            printext256(0,k,31,-1,tempbuf,1);

            k += 6;

        }

    if (k >= ydim-12 && k<ydim-6)

        printext256(0,k,31,-1,"(MORE . . .)",1);

    // sounds

    if (xdim < 640)

        return;

    k = 18;

    for (i=0; i<=g_maxSoundPos; i++)

        if (g_sounds[i].num > 0)

        {

            int32_t j, n=g_sounds[i].num;

            for (j=0; j<n; j++)

            {

                if (k >= ydim-12)

                    break;