Space Invasion: Continue playing rounds in case the teams are tied at the end
Rules in case of a tie:
1) Eliminate all teams not tied for the lead
2) Play another round with the remaining teams
3) Check for the winner again at the end of that round. If there's another tie, repeat the procedure
#ifndef _FPCRTL_SYSUTILS_H_
#define _FPCRTL_SYSUTILS_H_
#include "Types.h"
// EFFECTS: return the current date time in pascal notation
// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime fpcrtl_now();
#define now fpcrtl_now
#define Now fpcrtl_now
// EFFECTS: return the current time
// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime fpcrtl_time();
// EFFECTS: return the current date
// http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime fpcrtl_date();
#define date fpcrtl_date
#define Date fpcrtl_date
// EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S
// and returns the resulting string. Only #32 characters are stripped.
// If the string contains only spaces, an empty string is returned.
string255 fpcrtl_trim(string255 s);
#define trim fpcrtl_trim
#define Trim fpcrtl_trim
Integer fpcrtl_strToInt(string255 s);
#define StrToInt fpcrtl_strToInt
#define strToInt fpcrtl_strToInt
string255 fpcrtl_extractFileDir(string255 f);
#define fpcrtl_ExtractFileDir fpcrtl_extractFileDir
string255 fpcrtl_extractFileName(string255 f);
#define fpcrtl_ExtractFileName fpcrtl_extractFileName
string255 fpcrtl_strPas(PChar);
#define fpcrtl_StrPas fpcrtl_strPas
#endif