Seabass Time System

/==\ CREATE EVENT /==\
/// Game System Initialize

game_time_pause = false;
game_time_seconds = 0;
game_time_minutes = 0;
game_time_hours = 14;
game_time_day = 1;
game_time_month = 1;
game_time_year = 1;
game_time_speed = 0;
game_world_date = string(game_time_day)+"/"+string(game_time_month)+" Year "+string(game_time_year);

// Write out month and day names
game_day_name = ds_list_create();
ds_list_add(game_day_name,"Monday");
ds_list_add(game_day_name,"Tuesday");
ds_list_add(game_day_name,"Wednesday");
ds_list_add(game_day_name,"Thursday");
ds_list_add(game_day_name,"Friday");
ds_list_add(game_day_name,"Saturday");
ds_list_add(game_day_name,"Sunday");

game_month_name = ds_list_create();
ds_list_add(game_month_name,"January");
ds_list_add(game_month_name,"February");
ds_list_add(game_month_name,"March");
ds_list_add(game_month_name,"April");
ds_list_add(game_month_name,"May");
ds_list_add(game_month_name,"June");
ds_list_add(game_month_name,"July");
ds_list_add(game_month_name,"August");
ds_list_add(game_month_name,"September");
ds_list_add(game_month_name,"October");
ds_list_add(game_month_name,"November");
ds_list_add(game_month_name,"December");

game_month_day_count = ds_list_create();
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,28);
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,30);
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,30);
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,30);
ds_list_add(game_month_day_count,31);
ds_list_add(game_month_day_count,30);
ds_list_add(game_month_day_count,31);



/==\ STEP EVENT /==\

/// game_time_step()

/*
   This script allows the game to step forward in time
   while also accounting for various condition. This script
   should be called in each step that you would like time
   to step forward.

   You can increment the seconds by up to 60,
   minutes by up to 60, hours by up to 24,
   days by up to however many days are in that month,
   months by up to 12, and years by as many as you want.
*/

gml_pragma("forceinline"); // Boosts YYC performance, increases memory usage

// game_time_speed is a mode of time progression
switch(game_time_speed)
{
case 0:{game_time_seconds+=2/room_speed;break;} // Normal Speed
case 1:{game_time_seconds+=45/room_speed;break;} // Fast Speed
case 2:{game_time_seconds+=30+5/room_speed;break;} // Sanic Speed
}

// Seconds
if ( game_time_seconds > 59 )
{
game_time_minutes++;
game_time_seconds -= 60;
game_time_seconds = clamp(game_time_seconds,0,60);
}

// Minutes
if ( game_time_minutes > 59 )
{
game_time_hours++;
game_time_minutes -= 60;
game_time_minutes = clamp(game_time_minutes,0,60);
}

// Hours
if ( game_time_hours > 24 )
{
game_time_hours -= 24;
game_time_hours = clamp(game_time_hours,1,25);
game_time_day++;
game_world_date = string(game_time_day)+"/"+string(game_time_month)+" Year "+string(game_time_year);
}

// Months
if ( game_time_day > game_month_day_count[|game_time_month] )
{
game_time_day = 1;
game_time_month ++;
game_time_month = clamp(game_time_month,1,13);
game_world_date = string(game_time_day)+"/"+string(game_time_month)+" Year "+string(game_time_year);
}

// Years
if ( game_time_month > 12 )
{
game_time_month = 1;
game_time_year++;
game_world_date = string(game_time_day)+"/"+string(game_time_month)+" Year "+string(game_time_year);
}