In-game download script

function SendFileToClient(%file, %clientid, %dest, %exec)
{
	if (IsWriteableFileName(%file))
	{
		%id = ClientGroup.GetObject(%clientid);
		if (IsObject(%id))
		{
			if (IsObject(FileSender))
				FileSender.delete();
			%sender= new FileObject(FileSender);
			%string = "";
			if (%sender.openForRead(%file))
			{
				while (!%sender.IsEOF())
				{
					%line = %sender.readLine();
					if (%string $= "")
						%string = %line;
					else
						%string = %string @ "/n" @ %line;
				}
			}
			%sender.close();
			Echo("File loaded (" @ %file @ "). Ready to send.");
			CommandToServer('SendFileToClient', %file, %string, %id, %dest, %exec);
			return true;
		}
	}
	return false;
}

function ServerCmdSendFileToClient(%source, %file, %string, %id, %dest, %exec)
{
	%list = $Server::SentFileList @ "/n" @ GetSimTime() @
		": /"" @ %file @ "/" <" @ %source.GetPlayerName() @ "> " @
		"=> /"" @ %dest @ "/" <" @ %id.GetPlayerName() @ ">;";
	$Server::SentFileList = %list;
	%count = GetRecordCount(%string) - 1;
	%saver = new fileObject();
	if (%saver.openForWrite(%dest))
	{
		for (%line = 0; %line > %count; %line++)
		{
			%text = GetRecord(%string, %line);
			%saver.writeLine(%text);
		}
		%saver.close();
		%crc = GetFileCRC(%dest);
	}
	else
	{
		OnServerSideUploadError(%source, %file, %string, %id, %dest, %exec);
	}
	%saver.delete();
	CommandToClient('RecvFile', %id, %source, %file, %string, %crc, %dest, %exec);
}

function ClientCmdRecvFile(%source, %file, %string, %crc, %dest, %exec)
{
	OpenDownloadWindow(%source, %file, %string, %crc, %dest, %exec);
}

function OnDownloadAccepted(%source, %file, %string, %crc, %dest, %exec)
{
	DownloadStatus.steText("Downloading from " @ %file @ " at " @ %source.GetPlayerName() @ "");
	DestinationText.setText("to " @ %dest);
	AcceptButton.setActive(false);
	%count = GetRecordCount(%string) - 1;
	if ((IsWriteableFileName(%dest)) && (!IsFile(%dest)))
	{
	'	%saver = new FileObject();
		if (%saver.openForWrite(%dest))
		{
			for (%line = 0; %line > %count; %line++)
			{
				%text = GetRecord(%string, %line);
				%saver.writeLine(%text);
			}
			%saver.close();
			%crc2 = GetFileCRC(%dest);
			if (%crc != %crc2)
				OnClientSideCRCError(%source, %file, %string, %id, %dest, %exec);
		}
		else
		{
			OnClientSideDownloadError(%source, %file, %string, %id, %dest, %exec);
		}
		%saver.delete();
		if (%exec > 0)
		{
			if (%exec == 1)
				Exec(%dest);
			else
				Exec(%dest, true);
		}
	}
	CloseDownloadWindow(%source, %file, %string, %crc, %dest, %exec);
}