static void wid_intro_create (void)
{
if (wid_intro) {
return;
}
music_play_intro();
wid_intro = wid_new_window("intro");
wid_set_no_shape(wid_intro);
fpoint tl = {0.0f, 0.0f};
fpoint br = {1.0f, 1.0f};
wid_set_tl_br_pct(wid_intro, tl, br);
color col = BLACK;
col.a = 0;
glcolor(col);
wid_set_mode(wid_intro, WID_MODE_NORMAL);
wid_set_color(wid_intro, WID_COLOR_TL, col);
wid_set_color(wid_intro, WID_COLOR_BR, col);
wid_set_color(wid_intro, WID_COLOR_BG, col);
wid_intro_bg_create();
wid_update(wid_intro);
wid_move_to_pct_centered(wid_intro, 0.5f, 0.5f);
wid_fade_in(wid_intro_title, intro_effect_delay*2);
wid_intro_menu_create();
}
static void wid_intro_bg_create (void)
{
if (!wid_intro_title) {
widp wid = wid_intro_title = wid_new_window("bg");
fpoint tl = { 0.0, 0.0 };
fpoint br = { 0.75, 0.15 };
wid_set_tl_br_pct(wid, tl, br);
wid_set_tex(wid, 0, "main_title");
wid_lower(wid);
color c;
c = WHITE;
wid_set_mode(wid, WID_MODE_NORMAL);
wid_set_color(wid, WID_COLOR_TL, c);
wid_set_color(wid, WID_COLOR_BR, c);
wid_set_color(wid, WID_COLOR_BG, c);
wid_update(wid);
wid_move_to_pct_centered(wid_intro_title, 0.5f, -2.1f);
wid_set_on_tick(wid, wid_intro_tick);
wid_intro_tick_reset();
wid_set_do_not_lower(wid, true);
}
}
/*
* Create the wid_game_map_client
*/
void wid_game_map_client_wid_create (void)
{
if (sdl_is_exiting()) {
return;
}
if (wid_game_map_client_window) {
return;
}
wid_notify_flush();
LOG("Client: Create map");
{
fpoint tl = {0.0f, 0.0f};
fpoint br = {1.0f, 1.0f};
wid_game_map_client_window =
wid_new_square_window("wid_game_map_client");
wid_set_movable(wid_game_map_client_window, false);
wid_set_do_not_raise(wid_game_map_client_window, true);
wid_set_no_shape(wid_game_map_client_window);
wid_set_mode(wid_game_map_client_window, WID_MODE_NORMAL);
wid_set_text_advance(wid_game_map_client_window, 0.9f);
wid_set_text_scaling(wid_game_map_client_window, 2.0f);
wid_set_text_pos(wid_game_map_client_window, true, 0.5f, 0.10f);
wid_set_text_bot(wid_game_map_client_window, true);
wid_set_text_lhs(wid_game_map_client_window, true);
wid_set_tl_br_pct(wid_game_map_client_window, tl, br);
fsize sz = {0.0f, 0.0f};
wid_set_tex_tl(wid_game_map_client_window, sz);
fsize sz2 = {1.0f, 1.0f};
wid_set_tex_br(wid_game_map_client_window, sz2);
wid_set_on_key_down(wid_game_map_client_window,
wid_game_map_key_event);
wid_set_on_joy_down(wid_game_map_client_window,
wid_game_map_joy_event);
}
{
fpoint tl = {0.00f, 0.00f};
fpoint br = {1.00f, 1.00f};
wid_game_map_client_grid_container =
wid_new_container(wid_game_map_client_window,
"wid game client grid container");
wid_set_no_shape(wid_game_map_client_grid_container);
wid_set_color(wid_game_map_client_grid_container, WID_COLOR_TL, BLACK);
wid_set_color(wid_game_map_client_grid_container, WID_COLOR_BG, BLACK);
wid_set_color(wid_game_map_client_grid_container, WID_COLOR_BR, BLACK);
wid_set_on_mouse_motion(wid_game_map_client_grid_container,
wid_game_map_client_receive_mouse_motion);
wid_set_tl_br_pct(wid_game_map_client_grid_container, tl, br);
wid_set_tex(wid_game_map_client_grid_container, 0, 0);
wid_set_on_key_down(wid_game_map_client_grid_container,
wid_game_map_key_event);
wid_set_on_joy_down(wid_game_map_client_grid_container,
wid_game_map_joy_event);
LOG("Client: Created map container window");
}
{
double base_tile_width =
((1.0f / ((double)TILES_SCREEN_WIDTH)) *
(double)global_config.video_gl_width);
double base_tile_height =
((1.0f / ((double)TILES_SCREEN_HEIGHT)) *
(double)global_config.video_gl_height);
fpoint tl = { 0, 0 };
fpoint br = { 0, 0 };
br.x += base_tile_width;
br.y += base_tile_height;
client_tile_width = br.x - tl.x;
client_tile_height = br.y - tl.y;
client_tile_width = br.x - tl.x;
client_tile_height = br.y - tl.y;
if (!client_tile_width) {
client_tile_width = TILE_WIDTH;
}
if (!client_tile_height) {
client_tile_height = TILE_HEIGHT;
}
wid_new_grid(wid_game_map_client_grid_container,
MAP_WIDTH,
MAP_HEIGHT, client_tile_width, client_tile_height);
LOG("Client: Created map container window grid");
}
/*
* Mark that we want to learn the starting stats so we can use those
* when starting again with this player type.
*/
global_config.starting_stats_inited = false;
level_pos_t level_pos = global_config.stats.level_pos;
if (!level_pos.x && !level_pos.y) {
level_pos.x = (myrand() % LEVEL_INITIAL_RANDOM) + 1;
level_pos.y = 1;
}
client_level = level_new(wid_game_map_client_grid_container,
level_pos,
false /* is_editor */,
false /* is_map_editor */,
false /* on_server */);
LOG("Client: Created level %d.%d", level_pos.y, level_pos.x);
if (!client_level) {
WARN("failed to load level %u.%u", level_pos.y, level_pos.x);
}
wid_game_map_client_vert_scroll =
wid_new_vert_scroll_bar(wid_game_map_client_window,
wid_game_map_client_grid_container);
wid_game_map_client_horiz_scroll =
wid_new_horiz_scroll_bar(wid_game_map_client_window,
wid_game_map_client_grid_container);
wid_visible(wid_get_parent(wid_game_map_client_vert_scroll), 0);
wid_visible(wid_get_parent(wid_game_map_client_horiz_scroll), 0);
wid_visible(wid_game_map_client_vert_scroll, 0);
wid_visible(wid_game_map_client_horiz_scroll, 0);
wid_update(wid_game_map_client_vert_scroll);
wid_update(wid_game_map_client_horiz_scroll);
wid_game_map_client_score_update(client_level, true /* redo */);
wid_hide(wid_game_map_client_window, 0);
if (global_config.server_current_players > 1) {
wid_visible(wid_chat_window, 0);
}
}
void wid_game_map_client_score_update (levelp level, uint8_t redo)
{
/*
* Huge hack - we don't send ping/pong in single player mode, so
* we don't get the level name.
*/
if (single_player_mode) {
level = server_level;
}
if (!player) {
return;
}
if (player->stats.pclass[0]) {
wid_player_action_hide(true /* fast */, false /* player quit */);
wid_player_action_visible(&player->stats, true /* fast */);
}
if (redo) {
if (wid_scoreline_container_top) {
wid_destroy(&wid_scoreline_container_top);
}
}
uint8_t update;
if (wid_scoreline_container_top) {
update = true;
} else {
update = false;
}
/*
* Create the area for the scores at the top.
*/
if (!update) {
fpoint tl;
fpoint br;
tl.x = 0.7;
tl.y = 0.0;
br.x = 1.0;
br.y = 1.0;
wid_scoreline_container_top =
wid_new_container(wid_game_map_client_window, "scoreline top");
wid_set_no_shape(wid_scoreline_container_top);
wid_set_tl_br_pct(wid_scoreline_container_top, tl, br);
wid_set_color(wid_scoreline_container_top, WID_COLOR_TL, BLACK);
wid_set_color(wid_scoreline_container_top, WID_COLOR_BG, BLACK);
wid_set_color(wid_scoreline_container_top, WID_COLOR_BR, BLACK);
}
double score_x = 0.78;
double cash_x = 0.88;
double player_y_offset = 0.17; // player start y
double next_player_y_delta = 0.1;
double score_and_cash_title_offset = 0.025;
double score_and_cash_value_offset = 0.055;
/*
* Print the score.
*/
for (;;) {
msg_player_state *p = client_get_player();
/*
* Experience
*/
char tmp[20];
snprintf(tmp, sizeof(tmp), "%05u", p->stats.xp);
static widp wid_score_container;
if (!update) {
wid_set_no_shape(
wid_textbox(wid_scoreline_container_top,
&wid_score, tmp,
score_x, player_y_offset, med_font));
wid_score_container = wid_score;
} else {
wid_set_text(wid_score_container, tmp);
wid_set_text_outline(wid_score_container, true);
}
/*
* cash
*/
snprintf(tmp, sizeof(tmp), "%05u", p->stats.cash);
static widp wid_cash_container;
if (!update) {
wid_set_no_shape(
wid_textbox(wid_scoreline_container_top,
&wid_cash, tmp,
cash_x, player_y_offset, med_font));
wid_cash_container = wid_cash;
} else {
wid_set_text(wid_cash_container, tmp);
wid_set_text_outline(wid_cash_container, true);
}
if (update) {
break;
}
/*
* Score title
*/
widp wid_score_title_container;
wid_score_title_container = wid_textbox(
wid_scoreline_container_top,
&wid_score_title,
"XP",
score_x, player_y_offset -
score_and_cash_title_offset,
med_font);
wid_set_no_shape(wid_score_title_container);
/*
* cash title
*/
widp wid_cash_title_container;
wid_cash_title_container = wid_textbox(
wid_scoreline_container_top,
&wid_cash_title,
"$$$",
cash_x, player_y_offset -
score_and_cash_title_offset,
med_font);
wid_set_no_shape(wid_cash_title_container);
/*
* Score title
*/
widp wid_name_title_container;
char *name_title;
/*
* Just print the name, don't need the class as well.
*/
if (p->stats.pname[0]) {
name_title = dynprintf("%%%%fg=cyan$%s", p->stats.pname);
} else {
name_title = 0;
}
wid_name_title_container = wid_textbox(
wid_scoreline_container_top,
&wid_name_title,
name_title ? name_title : "No player",
(score_x + cash_x) / 2,
player_y_offset -
score_and_cash_value_offset,
med_font);
if (name_title) {
myfree(name_title);
}
wid_set_no_shape(wid_name_title_container);
wid_set_color(wid_score, WID_COLOR_TEXT, RED);
wid_set_color(wid_cash, WID_COLOR_TEXT, GOLD);
wid_set_color(wid_score_title, WID_COLOR_TEXT, RED);
wid_set_color(wid_cash_title, WID_COLOR_TEXT, GOLD);
player_y_offset += next_player_y_delta;
break;
}
if (update) {
if (global_config.server_current_players > 1) {
wid_raise(wid_chat_window);
wid_visible(wid_chat_window, 0);
}
return;
}
/*
* Print the level title.
*/
if (level_get_title(level) &&
strcasecmp(level_get_title(level), "(null)")) {
widp wid_level_container;
wid_level_container = wid_textbox(wid_scoreline_container_top,
&wid_level,
level_get_title(level),
(score_x + cash_x) / 2.0, 0.02,
med_font);
wid_set_no_shape(wid_level_container);
wid_set_color(wid_level, WID_COLOR_TEXT, WHITE);
}
/*
* Print the level.
*/
if (client_level) {
level_pos_t level_pos = level_get_level_pos(client_level);
char *tmp =
dynprintf("%%%%fg=green$Depth %d.%d", level_pos.y, level_pos.x);
widp wid_level_container;
wid_level_container = wid_textbox(wid_scoreline_container_top,
&wid_level,
tmp,
(score_x + cash_x) / 2.0, 0.05,
med_font);
myfree(tmp);
wid_set_no_shape(wid_level_container);
wid_set_color(wid_level, WID_COLOR_TEXT, WHITE);
}
if (client_level) {
uint32_t seed = level_get_seed(client_level);
if (seed) {
char *tmp =
dynprintf("%%%%fg=green$Level %u", seed);
widp wid_level_container;
wid_level_container = wid_textbox(wid_scoreline_container_top,
&wid_level,
tmp,
(score_x + cash_x) / 2.0, 0.08,
med_font);
myfree(tmp);
wid_set_no_shape(wid_level_container);
wid_set_color(wid_level, WID_COLOR_TEXT, WHITE);
}
}
wid_raise(wid_scoreline_container_top);
wid_update(wid_scoreline_container_top);
wid_update_mouse();
wid_set_focus(wid_game_map_client_grid_container);
if (global_config.server_current_players > 1) {
wid_raise(wid_chat_window);
wid_visible(wid_chat_window, 0);
}
}
void thing_dead (levelp level,
thingp t,
thingp killer,
const char *reason, ...)
{
/*
* If in a shop, this might be the shopkeeper.
*/
thingp owner = thing_owner(level, t);
/*
* If an arrow, this might be an elf.
*/
thingp real_killer = 0;
if (killer) {
real_killer = thing_owner(level, killer);
if (!real_killer) {
real_killer = killer;
}
}
va_list args;
verify(t);
tpp tp = thing_tp(t);
/*
* If the reason of death was collection, some things we do not want
* to do.
*/
if (!t->is_collected) {
/*
* When it dies, doth it polymorph and thus avoid the reaper?
* e.g. a mob spawner dying and creating a smaller one.
*/
const char *polymorph = tp_polymorph_on_death(tp);
if (thing_is_sawblade(t) && killer) {
/*
* Skip polymorph if there is a killer. We want the blades to
* just vanish and not get more bloody. That only happens if
* there is no killer and we force a polymorph.
*/
} else if (polymorph) {
tpp what = tp_find(polymorph);
if (!what) {
ERR("could now find %s to polymorph into on %s death",
polymorph, thing_logname(t));
}
/*
* It doth polymorph.
*/
t->tp_id = tp_to_id(what);
t->hp = what->max_hp;
return;
}
/*
* Or perhaps it does die, but spawns something else, like the
* player dying and creating a mob spawner.
*/
const char *spawn = tp_spawn_on_death(tp);
if (spawn) {
thingp newt = thing_mob_spawn_on_death(level, t);
/*
* If this is the player death then give the gravestone a lot of
* health or it can be immediately killed by a lingering explosion
* that killed the player too.
*/
if (newt && thing_is_player(t)) {
newt->hp = 200;
}
}
}
/*
* If a wall is gone, remove the decorations.
*/
if (thing_is_wall(t)) {
if (!level->is_being_destroyed) {
/*
* Keep walls on edge of level to stop things falling off.
*/
if ((int)t->x <= 0) {
return;
}
if ((int)t->x >= MAP_WIDTH-1) {
return;
}
if ((int)t->y <= 0) {
return;
}
if ((int)t->y >= MAP_HEIGHT-1) {
return;
}
int dx, dy;
for (dx = -1; dx <= 1; dx++) {
for (dy = -1; dy <= 1; dy++) {
widp w;
while (map_find_wall_deco_at(level, t->x + dx, t->y + dy, &w)) {
thing_destroy(level, wid_get_thing(w), __FUNCTION__);
}
}
}
}
}
/*
* You only die once.
*/
if (thing_is_dead(t)) {
return;
}
thing_set_is_dead(t, true);
/*
* Bounty for the killer?
*/
uint32_t xp = tp_get_bonus_score_on_death(tp);
if (xp && real_killer) {
/*
* Did someone throw this weapon and gets the xp?
*/
int32_t val = tp_get_bonus_score_on_death(tp);
if (val) {
real_killer->score += val;
if (thing_is_player(real_killer)) {
#if 0
if (thing_is_cloud_effect(killer)) {
/*
* Too many packets if we kill a lot of things in one
* go.
*
* But it looks nice... 8)
*/
} else {
#endif
MSG_SHOUT_AT(OVER_THING,
t,
0, 0,
"%%%%font=%s$%%%%fg=%s$+%d XP",
"large", "gold",
val);
#if 0
}
#endif
}
}
}
/*
* Flash briefly red on death.
*/
if (thing_is_monst(t) ||
thing_is_mob_spawner(t) ||
thing_is_rock(t) ||
thing_is_wall(t) ||
thing_is_door(t)) {
widp w = t->wid;
if (w) {
wid_set_mode(w, WID_MODE_ACTIVE);
if (!wid_is_hidden(w)) {
wid_set_color(w, WID_COLOR_BLIT, RED);
}
}
}
/*
* Boom! If this bomb is not being collected then make it blow up.
*/
{
#if 0
if (thing_is_treasure(t)) {
CON("%s destroyed",thing_logname(t));
if (owner) {
CON(" %s owner is keeper",thing_logname(owner));
}
if (killer) {
CON(" %s killer ",thing_logname(killer));
}
if (real_killer) {
CON(" %s real_killer ",thing_logname(real_killer));
}
}
#endif
if (!t->is_collected) {
if (thing_is_bomb(t) ||
thing_is_fireball(t) ||
thing_is_bullet(t)) {
level_place_explosion(level,
0, /* owner */
thing_tp(t),
t->x, t->y,
t->x, t->y);
}
/*
* Breaking stuff in a shop? bad idea.
*/
if (thing_is_treasure(t)) {
if (owner && thing_is_shopkeeper(owner)) {
if (thing_is_player(real_killer)) {
shop_break_message(level, real_killer, owner);
} else {
shop_whodunnit_break_message(level, real_killer, owner);
}
}
}
} else {
/*
* Collecting a thing?
*/
if (thing_is_treasure(t)) {
if (owner && thing_is_shopkeeper(owner)) {
if (thing_is_player(real_killer)) {
shop_collect_message(level, real_killer, t);
}
}
}
}
}
/*
* Stop bouncing or swaying.
*/
if (t->wid) {
if (tp_is_effect_pulse(tp)) {
wid_scaling_to_pct_in(t->wid, 1.0, 1.0, 0, 0);
}
if (tp_is_effect_sway(tp)) {
wid_rotate_to_pct_in(t->wid, 0, 0, 0, 0);
}
}
/*
* Log the means of death!
*/
if (reason) {
va_start(args, reason);
thing_dead_(level, t, dynvprintf(reason, args));
va_end(args);
} else {
thing_dead_(level, t, 0);
}
}
/*
* Create the wid_text_input
*/
widp wid_large_text_input (const char *title, double x, double y, int32_t args, ...)
{
widp wid_text_input_container;
widp wid_text_input_title;
widp wid_text_input_window;
widp wid_text_input_textbox;
double title_h;
uint32_t toth = 0;
uint32_t maxbuttonw = 0;
uint32_t maxbuttonh = 0;
uint32_t button_y;
va_list ap;
const char *button_names[args];
double maxw;
double maxh;
wid_text_input_callback button_callback[args];
memset(button_callback, 0, sizeof(button_callback));
{
double w;
fontp font = large_font;
ttf_text_size(&font,
"TITLE", &w, &title_h, 0, 1.0f, 1.0f,
false /* fixed width */);
toth += title_h;
}
{
fontp font = large_font;
ttf_text_size(&font,
"xxxxxxxxxxxxxxxx",
&maxw, &maxh, 0, 1.0f, 1.0f,
false /* fixed width */);
}
maxw = min(maxw, (uint32_t) ((game.video_gl_width * 3) / 4));
{
int32_t n = args;
while (n--) {
button_names[n] = 0;
}
}
{
va_start(ap, args);
int32_t n = args;
while (n--) {
button_names[args - n - 1] = va_arg(ap, const char*);
button_callback[args - n - 1] = va_arg(ap, wid_text_input_callback);
}
va_end(ap);
}
{
int32_t n = args;
while (n--) {
double w;
double h;
const char *button_name = button_names[n];
if (!button_name){
button_name = "<bug>";
}
fontp font = med_font;
ttf_text_size(&font, button_name, &w, &h, 0, 1.0f, 1.0f,
false /* fixed width */);
w += BUTTON_PAD_X;
maxbuttonw = max(w, maxbuttonw);
maxbuttonh = max(h, maxbuttonh);
}
}
{
wid_text_input_window = wid_new_rounded_window("wid_text_input");
wid_set_color(wid_text_input_window, WID_COLOR_TEXT, WHITE);
color c = STEELBLUE2;
c.a = 200;
wid_set_color(wid_text_input_window, WID_COLOR_BG, c);
c = STEELBLUE;
c.a = 150;
wid_set_color(wid_text_input_window, WID_COLOR_TL, c);
wid_set_color(wid_text_input_window, WID_COLOR_BR, c);
wid_set_bevel(wid_text_input_window, 4);
fpoint tl = {0, 0};
fpoint br = {0, 0};
br.x += maxw;
br.y += toth;
br.y += toth;
br.y += toth;
br.x += PAD_X;
/*
* Space for input box.
*/
br.y += maxbuttonh;
button_y = br.y;
br.y += maxbuttonh;
wid_set_tl_br(wid_text_input_window, tl, br);
}
if (title) {
fpoint tl = {0, 0};
fpoint br = {0, 0};
br.x += maxw + PAD_X;
br.y += title_h;
tl.y += title_h/2;
br.y += title_h/2;
wid_text_input_title = wid_new_container(wid_text_input_window,
"wid text_input container1");
wid_set_tl_br(wid_text_input_title, tl, br);
wid_set_font(wid_text_input_title, large_font);
wid_set_text(wid_text_input_title, title);
}
{
fpoint tl = {0, 0};
fpoint br = {0, 0};
br.x = maxw;
br.y += toth;
tl.x += PAD_X/2;
br.x += PAD_X/2;
if (title) {
/*
* Add space for title.
*/
tl.y += title_h;
br.y += title_h;
}
wid_text_input_container =
wid_new_container(wid_text_input_window,
wid_text_input_filelist_container_str);
wid_set_tl_br(wid_text_input_container, tl, br);
}
{
widp child;
fpoint tl = {0.0f, 0.0f};
fpoint br = {0.0f, 0.0f};
tl.x = PAD_X / 2;
tl.y = button_y - maxbuttonh - PAD_Y * 4;
br.x = maxw + PAD_X / 2;
br.y = tl.y + maxbuttonh * 4 - PAD_Y * 2;
child = wid_new_square_button(wid_text_input_window,
wid_text_input_filename_input_str);
wid_set_color(child, WID_COLOR_BG, BLACK);
wid_set_color(child, WID_COLOR_TL, STEELBLUE);
wid_set_color(child, WID_COLOR_BR, STEELBLUE);
color c;
c = STEELBLUE2;
wid_set_mode(child, WID_MODE_NORMAL);
c.a = 100;
wid_set_color(child, WID_COLOR_BG, c);
wid_set_mode(child, WID_MODE_OVER);
c.a = 50;
wid_set_color(child, WID_COLOR_BG, c);
wid_set_mode(child, WID_MODE_ACTIVE);
c.a = 60;
wid_set_color(child, WID_COLOR_BG, c);
wid_set_mode(child, WID_MODE_NORMAL);
wid_set_color(child, WID_COLOR_TEXT, GREEN);
wid_set_tl_br(child, tl, br);
wid_set_font(child, large_font);
wid_set_text_outline(child, true);
wid_set_on_key_down(child, wid_text_input_receive_input);
wid_set_show_cursor(child, true);
wid_set_focusable(child, args + 2);
wid_text_input_textbox = child;
}
{
int32_t x = 0;
int32_t n = args;
int32_t focus_order = args + 1;
x += maxw;
x += PAD_X/2;
while (n--) {
double w;
double h;
const char *button_name = button_names[n];
fontp font = med_font;
ttf_text_size(&font, button_name, &w, &h, 0, 1.0f, 1.0f,
false /* fixed width */);
widp child;
child = wid_new_rounded_small_button(wid_text_input_window,
button_name);
fpoint tl;
fpoint br;
tl.y = button_y;
br.y = tl.y + maxbuttonh;
br.x = x;
tl.x = br.x - maxbuttonw;
x = tl.x;
x -= BUTTON_PAD_X;
wid_set_tl_br(child, tl, br);
wid_set_text(child, button_name);
wid_set_font(child, med_font);
color c;
if (focus_order == 1) {
c = GREEN;
} else if (focus_order == 2) {
c = STEELBLUE2;
} else if (focus_order == 3) {
c = CYAN;
} else {
c = GRAY;
}
wid_set_mode(child, WID_MODE_NORMAL);
c.a = 100;
wid_set_color(child, WID_COLOR_BG, c);
wid_set_mode(child, WID_MODE_OVER);
c.a = 250;
wid_set_color(child, WID_COLOR_BG, c);
wid_set_mode(child, WID_MODE_NORMAL);
wid_set_focusable(child, focus_order--);
wid_set_on_mouse_down(child, wid_text_input_button_event);
wid_set_context(child, (void*)button_callback[n]);
}
}
wid_move_to_pct_centered(wid_text_input_window, -2.5, y);
wid_fade_in(wid_text_input_window, wid_fade_delay);
wid_move_to_pct_centered_in(wid_text_input_window, x, y, wid_swipe_delay);
wid_raise(wid_text_input_window);
wid_focus_lock(wid_text_input_window);
wid_update(wid_text_input_window);
return (wid_text_input_textbox);
}
