truelight@0: 
truelight@0: #include "stdafx.h"
truelight@0: #include "ttd.h"
tron@507: #include "table/strings.h"
truelight@0: #include "command.h"
truelight@0: #include "player.h"
truelight@0: #include "gfx.h"
truelight@0: #include "window.h"
truelight@0: #include "saveload.h"
truelight@0: #include "economy.h"
truelight@543: #include "network.h"
truelight@0: 
truelight@0: /* p1 = player
truelight@0:    p2 = face
truelight@0:  */
truelight@0: 
truelight@0: int32 CmdSetPlayerFace(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		DEREF_PLAYER(p1)->face = p2;
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	}
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: /* p1 = player
truelight@0:  * p2 = color
truelight@0:  */
truelight@0: int32 CmdSetPlayerColor(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	Player *p,*pp;
truelight@0: 
truelight@0: //	/* can only set color for itself */
truelight@0: //	if ( (byte)p1 != _current_player)
truelight@0: //		return CMD_ERROR;
truelight@0: 
truelight@0: 	p = DEREF_PLAYER(p1);
truelight@0: 
truelight@0: 	/* ensure no dups */
truelight@0: 	FOR_ALL_PLAYERS(pp) {
truelight@0: 		if (pp->is_active && pp != p && pp->player_color == (byte)p2)
truelight@0: 			return CMD_ERROR;
truelight@0: 	}
truelight@193: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		_player_colors[p1] = (byte)p2;
truelight@0: 		p->player_color = (byte)p2;
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	}
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: int32 CmdIncreaseLoan(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	Player *p;
truelight@0: 	int32 size;
truelight@0: 
truelight@0: 	if ( (byte)p1 != _current_player)
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	p = DEREF_PLAYER(p1);
truelight@0: 
truelight@0: 	if (p->current_loan >= _economy.max_loan) {
tron@534: 		SetDParam(0, _economy.max_loan);
truelight@0: 		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		if (p2)
truelight@0: 			size = _economy.max_loan - p->current_loan;
truelight@0: 		else
truelight@0: 			size = IS_HUMAN_PLAYER((byte)p1) ? 10000 : 50000;
truelight@0: 
truelight@0: 		p->money64 += size;
truelight@0: 		p->current_loan += size;
truelight@0: 		UpdatePlayerMoney32(p);
truelight@0: 		InvalidatePlayerWindows(p);
truelight@0: 	}
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: int32 CmdDecreaseLoan(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	Player *p;
truelight@0: 	int32 size;
truelight@0: 	if ( (byte)p1 != _current_player)
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	p = DEREF_PLAYER(p1);
truelight@0: 
truelight@0: 	if (p->current_loan == 0)
truelight@0: 		return_cmd_error(STR_702D_LOAN_ALREADY_REPAYED);
truelight@0: 
truelight@0: 	size = p->current_loan;
truelight@0: 
truelight@0: 	// p2 is true while CTRL is pressed (repay all possible loan, or max money you have)
truelight@84: 	if (!p2) {
truelight@84: 	    if (_patches.ainew_active)
truelight@84:  		    size = min(size, 10000);
truelight@84: 	    else
truelight@84: 		    size = min(size, IS_HUMAN_PLAYER((byte)p1) ? 10000 : 50000);
truelight@84: 	} else {	// only repay in chunks of 10K
truelight@0: 		size = min(size, p->player_money);
truelight@0: 		size = max(size, 10000);
truelight@0: 		size -= size % 10000;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (p->player_money < size) {
tron@534: 		SetDParam(0, size);
truelight@0: 		return_cmd_error(STR_702E_REQUIRED);
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		p->money64 -= size;
truelight@0: 		p->current_loan -= size;
truelight@0: 		UpdatePlayerMoney32(p);
truelight@0: 		InvalidatePlayerWindows(p);
truelight@0: 	}
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: int32 CmdChangeCompanyName(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	StringID str,old_str;
truelight@0: 	Player *p;
truelight@0: 
truelight@543: 	str = AllocateNameUnique((byte*)_decode_parameters, 4);
truelight@0: 	if (str == 0)
truelight@0: 		return CMD_ERROR;
truelight@193: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		p = DEREF_PLAYER(p1);
truelight@0: 		old_str = p->name_1;
truelight@0: 		p->name_1 = str;
truelight@0: 		DeleteName(old_str);
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	} else {
truelight@0: 		DeleteName(str);
truelight@0: 	}
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: int32 CmdChangePresidentName(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	StringID str,old_str;
truelight@0: 	Player *p;
truelight@0: 
truelight@543: 	str = AllocateNameUnique((byte*)_decode_parameters, 4);
truelight@0: 	if (str == 0)
truelight@0: 		return CMD_ERROR;
truelight@193: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		p = DEREF_PLAYER(p1);
truelight@0: 		old_str = p->president_name_1;
truelight@0: 		p->president_name_1 = str;
truelight@0: 		DeleteName(old_str);
truelight@0: 
truelight@0: 		if (p->name_1 == STR_SV_UNNAMED) {
truelight@0: 			byte *s = " Transport";
truelight@0: 			byte *d = (byte*)_decode_parameters, b;
truelight@0: 			d--; do d++; while (*d);
truelight@0: 			do *d++ = b = *s++; while(d != (byte*)endof(_decode_parameters) && b != 0);
truelight@0: 			DoCommandByTile(0, p1, 0, DC_EXEC, CMD_CHANGE_COMPANY_NAME);
truelight@193: 		}
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	} else {
truelight@0: 		DeleteName(str);
truelight@0: 	}
truelight@0: 
truelight@193: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: // p1 = 0   decrease pause counter
truelight@0: // p1 = 1   increase pause counter
truelight@0: int32 CmdPause(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		_pause += p1?1:-1;
truelight@0: 		if(_pause==(byte)-1) _pause = 0;
truelight@0: 		InvalidateWindow(WC_STATUS_BAR, 0);
truelight@0: 		InvalidateWindow(WC_MAIN_TOOLBAR, 0);
truelight@0: 	}
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: 
truelight@0: int32 CmdResume(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: int32 CmdMoneyCheat(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@193: 	SET_EXPENSES_TYPE(EXPENSES_OTHER);
truelight@0: 	return (int32)p1;
truelight@0: }
truelight@0: 
truelight@543: int32 CmdGiveMoney(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@543: {
truelight@543: 	SET_EXPENSES_TYPE(EXPENSES_OTHER);
truelight@543: 
truelight@815: 	p1 = clamp(p1, 0, 0xFFFFFF); // Clamp between 16 million and 0
truelight@813: 
truelight@813: 	if (p1 == 0)
truelight@813: 		return CMD_ERROR;
truelight@813: 
truelight@543: 	if (flags & DC_EXEC) {
truelight@543: 		// Add money to player
truelight@543: 		byte old_cp = _current_player;
truelight@543: 		_current_player = p2;
truelight@543: 		SubtractMoneyFromPlayer(-(int32)p1);
truelight@543: 		_current_player = old_cp;
truelight@543: 	}
truelight@543: 
truelight@543: 	// Subtract money from local-player
truelight@543: 	return (int32)p1;
truelight@543: }
truelight@543: 
truelight@0: int32 CmdChangeDifficultyLevel(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		if (p1 != (uint32)-1L) {
truelight@0: 			((int*)&_opt_mod_ptr->diff)[p1] = p2;
truelight@0: 			_opt_mod_ptr->diff_level = 3;
truelight@0: 		} else {
truelight@0: 			_opt_mod_ptr->diff_level = p2;
truelight@0: 		}
truelight@543: 		// If we are a network-client, update the difficult setting (if it is open)
truelight@543: 		if (_networking && !_network_server && FindWindowById(WC_GAME_OPTIONS, 0) != NULL)
truelight@543: 			memcpy(&_opt_mod_temp, _opt_mod_ptr, sizeof(GameOptions));
truelight@0: 		InvalidateWindow(WC_GAME_OPTIONS, 0);
truelight@0: 	}
truelight@193: 	return 0;
truelight@0: }