/*
* src/scr_getname.c
*
* Copyright (C) 1998-2002 BigOrno (bigorno@bigorno.net). All rights reserved.
*
* The use and distribution terms for this software are contained in the file
* named README, which can be found in the root of this distribution. By
* using this software in any fashion, you are agreeing to be bound by the
* terms of this license.
*
* You must not remove this notice, or any other, from this software.
*/
#include <stdlib.h> // Pierre-Marie Baty -- for qsort()
#include <string.h> // Pierre-Marie Baty -- for memcmp()
#include "system.h"
#include "game.h"
#include "screens.h"
#include "draw.h"
#include "control.h"
/*
* local vars
*/
static U8 seq = 0;
static U8 x, y, p;
static U8 name[10];
#define TILE_POINTER '\072'
#define TILE_CURSOR '\073'
#define TOPLEFT_X 116
#define TOPLEFT_Y 64
#define NAMEPOS_X 120
#define NAMEPOS_Y 160
#define AUTOREPEAT_TMOUT 100
// Pierre-Marie Baty -- external prototype
extern int sort_hscores (const void *q1, const void *q2);
/*
* prototypes
*/
static void pointer_show (U8);
static void name_update (void);
static void name_draw (void);
/*
* Get name
*
* return: 0 while running, 1 when finished.
*/
U8 screen_getname (void)
{
static U32 tm = 0;
U8 i, j;
if (seq == 0)
{
/* figure out if this is a high score */
if (game_score < game_hscores[7].score)
return SCREEN_DONE;
/* prepare */
draw_tilesBank = 0;
for (i = 0; i < 10; i++)
name[i] = '@';
x = y = p = 0;
game_rects = &draw_SCREENRECT;
seq = 1;
}
switch (seq)
{
case 1: /* prepare screen */
sysvid_clear ();
draw_setfb (76, 40);
draw_tilesListImm ((U8 *) "PLEASE@ENTER@YOUR@NAME\376");
for (i = 0; i < 6; i++)
for (j = 0; j < 4; j++)
{
draw_setfb (TOPLEFT_X + i * 8 * 2, TOPLEFT_Y + j * 8 * 2);
draw_tile ((U8) ('A' + i + j * 6));
}
draw_setfb (TOPLEFT_X, TOPLEFT_Y + 64);
draw_tilesListImm ((U8 *) "Y@Z@.@@@\074\373\374\375\376");
name_draw ();
pointer_show (TRUE);
seq = 2;
break;
case 2: /* wait for key pressed */
if (control_status & CONTROL_FIRE)
seq = 3;
if (control_status & CONTROL_UP)
{
if (y > 0)
{
pointer_show (FALSE);
y--;
pointer_show (TRUE);
tm = sys_gettime ();
}
seq = 4;
}
if (control_status & CONTROL_DOWN)
{
if (y < 4)
{
pointer_show (FALSE);
y++;
pointer_show (TRUE);
tm = sys_gettime ();
}
seq = 5;
}
if (control_status & CONTROL_LEFT)
{
if (x > 0)
{
pointer_show (FALSE);
x--;
pointer_show (TRUE);
tm = sys_gettime ();
}
seq = 6;
}
if (control_status & CONTROL_RIGHT)
{
if (x < 5)
{
pointer_show (FALSE);
x++;
pointer_show (TRUE);
tm = sys_gettime ();
}
seq = 7;
}
if (seq == 2)
sys_sleep (50);
break;
case 3: /* wait for FIRE released */
if (!(control_status & CONTROL_FIRE))
{
if (x == 5 && y == 4)
{
/* end */
if (memcmp (name
, "POOKY@@@@@", 10) == 0) {
// cheat code: restart at last episode
sysarg_args_map = game_map;
syssnd_play (WAV_DIE, 1);
}
else if (memcmp (name
, "FLUFOMATIC", 10) == 0) {
// cheat code: restart at last map
sysarg_args_submap = game_submap;
syssnd_play (WAV_DIE, 1);
}
// Pierre-Marie Baty -- discard empty names
else if (memcmp (name
, "@@@@@@@@@@", 10) != 0) {
// Pierre-Marie Baty -- look if this same name already exists in the hiscore table
for (i = 0; i < 8; i++)
if (memcmp (game_hscores
[i
].
name, name
, 10) == 0) break;
if (i == 8) // new name ?
{
i = 0;
while (game_score < game_hscores[i].score)
i++;
j = 7;
while (j > i)
{
game_hscores[j].score = game_hscores[j - 1].score;
for (x = 0; x < 10; x++)
game_hscores[j].name[x] = game_hscores[j - 1].name[x];
j--;
}
game_hscores[i].score = game_score;
for (x = 0; x < 10; x++)
game_hscores[i].name[x] = name[x];
}
else if (game_score > game_hscores[i].score) // existing name: update only if score is higher, else discard
{
game_hscores[i].score = game_score;
qsort (game_hscores
, 8, sizeof (hscore_t
), sort_hscores
); }
}
seq = 99;
}
else
{
name_update ();
name_draw ();
seq = 2;
}
}
else
sys_sleep (50);
break;
case 4: /* wait for UP released */
if (!(control_status & CONTROL_UP) || sys_gettime () - tm > AUTOREPEAT_TMOUT)
seq = 2;
else
sys_sleep (50);
break;
case 5: /* wait for DOWN released */
if (!(control_status & CONTROL_DOWN) || sys_gettime () - tm > AUTOREPEAT_TMOUT)
seq = 2;
else
sys_sleep (50);
break;
case 6: /* wait for LEFT released */
if (!(control_status & CONTROL_LEFT) || sys_gettime () - tm > AUTOREPEAT_TMOUT)
seq = 2;
else
sys_sleep (50);
break;
case 7: /* wait for RIGHT released */
if (!(control_status & CONTROL_RIGHT) || sys_gettime () - tm > AUTOREPEAT_TMOUT)
seq = 2;
else
sys_sleep (50);
break;
}
if (control_status & CONTROL_EXIT) /* check for exit request */
return SCREEN_EXIT;
if (seq == 99)
{ /* seq 99, we're done */
sysvid_clear ();
seq = 0;
return SCREEN_DONE;
}
else
return SCREEN_RUNNING;
}
static void pointer_show (U8 show)
{
draw_setfb (TOPLEFT_X + x * 8 * 2, TOPLEFT_Y + y * 8 * 2 + 8);
draw_tile ((U8) ((show == TRUE) ? TILE_POINTER : '@'));
}
static void name_update (void)
{
U8 i;
i = x + y * 6;
if (i < 26 && p < 10)
name[p++] = 'A' + i;
if (i == 26 && p < 10)
name[p++] = '.';
if (i == 27 && p < 10)
name[p++] = '@';
if (i == 28 && p > 0)
name[p--] = '@';
}
static void name_draw (void)
{
U8 i;
draw_setfb (NAMEPOS_X, NAMEPOS_Y);
for (i = 0; i < p; i++)
draw_tile (name[i]);
for (i = p; i < 10; i++)
draw_tile (TILE_CURSOR);
draw_setfb (NAMEPOS_X, NAMEPOS_Y + 8);
for (i = 0; i < 10; i++)
draw_tile ('@');
draw_setfb (NAMEPOS_X + 8 * (p < 9 ? p : 9), NAMEPOS_Y + 8);
draw_tile (TILE_POINTER);
}