openttd: command.c annotate

annotate command.c @ 543:0bade3c3b8ba draft

(svn r942) -Merged branch/network back into the trunk

author	truelight <truelight@openttd.org>
date	Sat, 04 Dec 2004 17:54:56 +0000
parents	6de858608a45
children	cd5927035a08

rev	line source
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	1 #include "stdafx.h"
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	2 #include "ttd.h"
507 9dcc34b8887e (svn r815) Include strings.h only in the files which need it. tron <tron@openttd.org> parents: 467 diff changeset	3 #include "table/strings.h"
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	4 #include "gui.h"
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	5 #include "command.h"
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	6 #include "player.h"
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	7 #include "network.h"
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	8
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	9 #define DEF_COMMAND(yyyy) int32 yyyy(int x, int y, uint32 flags, uint32 p1, uint32 p2)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	10
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	11 DEF_COMMAND(CmdBuildRailroadTrack);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	12 DEF_COMMAND(CmdRemoveRailroadTrack);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	13 DEF_COMMAND(CmdBuildSingleRail);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	14 DEF_COMMAND(CmdRemoveSingleRail);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	15
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	16 DEF_COMMAND(CmdLandscapeClear);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	17
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	18 DEF_COMMAND(CmdBuildBridge);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	19
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	20 DEF_COMMAND(CmdBuildRailroadStation);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	21 DEF_COMMAND(CmdRemoveFromRailroadStation);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	22 DEF_COMMAND(CmdConvertRail);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	23
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	24 DEF_COMMAND(CmdBuildSignals);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	25 DEF_COMMAND(CmdRemoveSignals);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	26
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	27 DEF_COMMAND(CmdTerraformLand);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	28
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	29 DEF_COMMAND(CmdPurchaseLandArea);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	30 DEF_COMMAND(CmdSellLandArea);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	31
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	32 DEF_COMMAND(CmdBuildTunnel);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	33
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	34 DEF_COMMAND(CmdBuildTrainDepot);
395 9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	35 DEF_COMMAND(CmdBuildTrainWaypoint);
9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	36 DEF_COMMAND(CmdRenameWaypoint);
9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	37 DEF_COMMAND(CmdRemoveTrainWaypoint);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	38
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	39 DEF_COMMAND(CmdBuildTruckStation);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	40
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	41 DEF_COMMAND(CmdBuildBusStation);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	42
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	43 DEF_COMMAND(CmdBuildLongRoad);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	44 DEF_COMMAND(CmdRemoveLongRoad);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	45 DEF_COMMAND(CmdBuildRoad);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	46 DEF_COMMAND(CmdRemoveRoad);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	47
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	48 DEF_COMMAND(CmdBuildRoadDepot);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	49
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	50 DEF_COMMAND(CmdBuildAirport);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	51
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	52 DEF_COMMAND(CmdBuildDock);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	53
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	54 DEF_COMMAND(CmdBuildShipDepot);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	55
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	56 DEF_COMMAND(CmdBuildBuoy);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	57
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	58 DEF_COMMAND(CmdPlantTree);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	59
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	60 DEF_COMMAND(CmdBuildRailVehicle);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	61 DEF_COMMAND(CmdMoveRailVehicle);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	62
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	63 DEF_COMMAND(CmdStartStopTrain);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	64
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	65 DEF_COMMAND(CmdSellRailWagon);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	66
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	67 DEF_COMMAND(CmdTrainGotoDepot);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	68 DEF_COMMAND(CmdForceTrainProceed);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	69 DEF_COMMAND(CmdReverseTrainDirection);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	70
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	71 DEF_COMMAND(CmdModifyOrder);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	72 DEF_COMMAND(CmdSkipOrder);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	73 DEF_COMMAND(CmdDeleteOrder);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	74 DEF_COMMAND(CmdInsertOrder);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	75 DEF_COMMAND(CmdChangeTrainServiceInt);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	76 DEF_COMMAND(CmdRestoreOrderIndex);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	77
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	78 DEF_COMMAND(CmdBuildIndustry);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	79 //DEF_COMMAND(CmdDestroyIndustry);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	80
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	81 DEF_COMMAND(CmdBuildCompanyHQ);
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	82 DEF_COMMAND(CmdDestroyCompanyHQ);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	83 DEF_COMMAND(CmdSetPlayerFace);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	84 DEF_COMMAND(CmdSetPlayerColor);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	85
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	86 DEF_COMMAND(CmdIncreaseLoan);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	87 DEF_COMMAND(CmdDecreaseLoan);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	88
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	89 DEF_COMMAND(CmdWantEnginePreview);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	90
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	91 DEF_COMMAND(CmdNameVehicle);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	92 DEF_COMMAND(CmdRenameEngine);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	93
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	94 DEF_COMMAND(CmdChangeCompanyName);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	95 DEF_COMMAND(CmdChangePresidentName);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	96
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	97 DEF_COMMAND(CmdRenameStation);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	98
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	99 DEF_COMMAND(CmdSellAircraft);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	100 DEF_COMMAND(CmdStartStopAircraft);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	101 DEF_COMMAND(CmdBuildAircraft);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	102 DEF_COMMAND(CmdSendAircraftToHangar);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	103 DEF_COMMAND(CmdChangeAircraftServiceInt);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	104 DEF_COMMAND(CmdRefitAircraft);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	105
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	106 DEF_COMMAND(CmdPlaceSign);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	107 DEF_COMMAND(CmdRenameSign);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	108
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	109 DEF_COMMAND(CmdBuildRoadVeh);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	110 DEF_COMMAND(CmdStartStopRoadVeh);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	111 DEF_COMMAND(CmdSellRoadVeh);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	112 DEF_COMMAND(CmdSendRoadVehToDepot);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	113 DEF_COMMAND(CmdTurnRoadVeh);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	114 DEF_COMMAND(CmdChangeRoadVehServiceInt);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	115
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	116 DEF_COMMAND(CmdPause);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	117 DEF_COMMAND(CmdResume);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	118
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	119 DEF_COMMAND(CmdBuyShareInCompany);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	120 DEF_COMMAND(CmdSellShareInCompany);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	121 DEF_COMMAND(CmdBuyCompany);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	122
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	123 DEF_COMMAND(CmdBuildTown);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	124
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	125 DEF_COMMAND(CmdRenameTown);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	126 DEF_COMMAND(CmdDoTownAction);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	127
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	128 DEF_COMMAND(CmdSetRoadDriveSide);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	129 DEF_COMMAND(CmdSetTownNameType);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	130
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	131 DEF_COMMAND(CmdChangeDifficultyLevel);
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	132 DEF_COMMAND(CmdChangePatchSetting);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	133
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	134 DEF_COMMAND(CmdStartStopShip);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	135 DEF_COMMAND(CmdSellShip);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	136 DEF_COMMAND(CmdBuildShip);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	137 DEF_COMMAND(CmdSendShipToDepot);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	138 DEF_COMMAND(CmdChangeShipServiceInt);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	139 DEF_COMMAND(CmdRefitShip);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	140
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	141
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	142 DEF_COMMAND(CmdStartNewGame);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	143 DEF_COMMAND(CmdLoadGame);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	144 DEF_COMMAND(CmdCreateScenario);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	145 DEF_COMMAND(CmdSetSinglePlayer);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	146
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	147 DEF_COMMAND(CmdSetNewLandscapeType);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	148
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	149 DEF_COMMAND(CmdGenRandomNewGame);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	150 DEF_COMMAND(CmdCloneOrder);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	151
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	152 DEF_COMMAND(CmdClearArea);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	153
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	154 DEF_COMMAND(CmdGiveMoney);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	155 DEF_COMMAND(CmdMoneyCheat);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	156 DEF_COMMAND(CmdBuildCanal);
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	157 DEF_COMMAND(CmdBuildLock);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	158
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	159 DEF_COMMAND(CmdPlayerCtrl);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	160
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	161 DEF_COMMAND(CmdLevelLand);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	162
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	163 DEF_COMMAND(CmdRefitRailVehicle);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	164
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	165 DEF_COMMAND(CmdStartScenario);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	166
58 9c9aa1db223f (svn r59) -Feature: Added Autosignals, just like Autorail. Can copy signal style, convert signal<->semaphore, etc. Big thanks to betatesters Dribbel and Testman57 (Darkvater) darkvater <darkvater@openttd.org> parents: 0 diff changeset	167 DEF_COMMAND(CmdBuildManySignals);
9c9aa1db223f (svn r59) -Feature: Added Autosignals, just like Autorail. Can copy signal style, convert signal<->semaphore, etc. Big thanks to betatesters Dribbel and Testman57 (Darkvater) darkvater <darkvater@openttd.org> parents: 0 diff changeset	168
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	169 /* The master command table */
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	170 static CommandProc * const _command_proc_table[] = {
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	171 CmdBuildRailroadTrack, /* 0 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	172 CmdRemoveRailroadTrack, /* 1 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	173 CmdBuildSingleRail, /* 2 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	174 CmdRemoveSingleRail, /* 3 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	175 CmdLandscapeClear, /* 4 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	176 CmdBuildBridge, /* 5 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	177 CmdBuildRailroadStation, /* 6 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	178 CmdBuildTrainDepot, /* 7 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	179 CmdBuildSignals, /* 8 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	180 CmdRemoveSignals, /* 9 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	181 CmdTerraformLand, /* 10 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	182 CmdPurchaseLandArea, /* 11 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	183 CmdSellLandArea, /* 12 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	184 CmdBuildTunnel, /* 13 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	185 CmdRemoveFromRailroadStation, /* 14 */
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	186 CmdConvertRail, /* 15 */
395 9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	187 CmdBuildTrainWaypoint, /* 16 */
9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	188 CmdRenameWaypoint, /* 17 */
9566850ffa0d (svn r587) -newgrf: Rename all /Checkpoint/i tokens to 'Waypoint's. The name actually makes some sense and is also compatible with TTDPatch (pasky). darkvater <darkvater@openttd.org> parents: 215 diff changeset	189 CmdRemoveTrainWaypoint, /* 18 */
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	190 CmdBuildTruckStation, /* 19 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	191 NULL, /* 20 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	192 CmdBuildBusStation, /* 21 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	193 NULL, /* 22 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	194 CmdBuildLongRoad, /* 23 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	195 CmdRemoveLongRoad, /* 24 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	196 CmdBuildRoad, /* 25 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	197 CmdRemoveRoad, /* 26 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	198 CmdBuildRoadDepot, /* 27 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	199 NULL, /* 28 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	200 CmdBuildAirport, /* 29 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	201 CmdBuildDock, /* 30 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	202 CmdBuildShipDepot, /* 31 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	203 CmdBuildBuoy, /* 32 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	204 CmdPlantTree, /* 33 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	205 CmdBuildRailVehicle, /* 34 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	206 CmdMoveRailVehicle, /* 35 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	207 CmdStartStopTrain, /* 36 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	208 NULL, /* 37 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	209 CmdSellRailWagon, /* 38 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	210 CmdTrainGotoDepot, /* 39 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	211 CmdForceTrainProceed, /* 40 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	212 CmdReverseTrainDirection, /* 41 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	213
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	214 CmdModifyOrder, /* 42 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	215 CmdSkipOrder, /* 43 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	216 CmdDeleteOrder, /* 44 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	217 CmdInsertOrder, /* 45 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	218
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	219 CmdChangeTrainServiceInt, /* 46 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	220
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	221 CmdBuildIndustry, /* 47 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	222 CmdBuildCompanyHQ, /* 48 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	223 CmdSetPlayerFace, /* 49 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	224 CmdSetPlayerColor, /* 50 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	225
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	226 CmdIncreaseLoan, /* 51 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	227 CmdDecreaseLoan, /* 52 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	228
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	229 CmdWantEnginePreview, /* 53 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	230
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	231 CmdNameVehicle, /* 54 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	232 CmdRenameEngine, /* 55 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	233
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	234 CmdChangeCompanyName, /* 56 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	235 CmdChangePresidentName, /* 57 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	236
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	237 CmdRenameStation, /* 58 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	238
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	239 CmdSellAircraft, /* 59 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	240 CmdStartStopAircraft, /* 60 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	241 CmdBuildAircraft, /* 61 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	242 CmdSendAircraftToHangar, /* 62 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	243 CmdChangeAircraftServiceInt, /* 63 */
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	244 CmdRefitAircraft, /* 64 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	245
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	246 CmdPlaceSign, /* 65 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	247 CmdRenameSign, /* 66 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	248
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	249 CmdBuildRoadVeh, /* 67 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	250 CmdStartStopRoadVeh, /* 68 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	251 CmdSellRoadVeh, /* 69 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	252 CmdSendRoadVehToDepot, /* 70 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	253 CmdTurnRoadVeh, /* 71 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	254 CmdChangeRoadVehServiceInt, /* 72 */
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	255
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	256 CmdPause, /* 73 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	257
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	258 CmdBuyShareInCompany, /* 74 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	259 CmdSellShareInCompany, /* 75 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	260 CmdBuyCompany, /* 76 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	261
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	262 CmdBuildTown, /* 77 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	263 NULL, /* 78 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	264 NULL, /* 79 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	265 CmdRenameTown, /* 80 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	266 CmdDoTownAction, /* 81 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	267
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	268 CmdSetRoadDriveSide, /* 82 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	269 CmdSetTownNameType, /* 83 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	270 NULL, /* 84 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	271 CmdChangeDifficultyLevel, /* 85 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	272
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	273 CmdStartStopShip, /* 86 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	274 CmdSellShip, /* 87 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	275 CmdBuildShip, /* 88 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	276 CmdSendShipToDepot, /* 89 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	277 CmdChangeShipServiceInt, /* 90 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	278 CmdRefitShip, /* 91 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	279
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	280 CmdStartNewGame, /* 92 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	281 CmdLoadGame, /* 93 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	282 CmdCreateScenario, /* 94 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	283 CmdSetSinglePlayer, /* 95 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	284 NULL, /* 96 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	285 CmdSetNewLandscapeType, /* 97 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	286
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	287 CmdGenRandomNewGame, /* 98 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	288
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	289 CmdCloneOrder, /* 99 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	290
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	291 CmdClearArea, /* 100 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	292 CmdResume, /* 101 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	293
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	294 CmdMoneyCheat, /* 102 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	295 CmdBuildCanal, /* 103 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	296 CmdPlayerCtrl, /* 104 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	297
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	298 CmdLevelLand, /* 105 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	299
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	300 CmdRefitRailVehicle, /* 106 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	301 CmdRestoreOrderIndex, /* 107 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	302 CmdBuildLock, /* 108 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	303 CmdStartScenario, /* 109 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	304 CmdBuildManySignals, /* 110 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	305 //CmdDestroyIndustry, /* 109 */
4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	306 CmdDestroyCompanyHQ, /* 111 */
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	307 CmdGiveMoney, /* 112 */
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	308 CmdChangePatchSetting, /* 113 */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	309 };
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	310
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	311 int32 DoCommandByTile(TileIndex tile, uint32 p1, uint32 p2, uint32 flags, uint procc)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	312 {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	313 return DoCommand(GET_TILE_X(tile)16, GET_TILE_Y(tile)16, p1, p2, flags, procc);
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	314 }
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	315
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	316
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	317 //extern void _stdcall Sleep(int s);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	318
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	319 int32 DoCommand(int x, int y, uint32 p1, uint32 p2, uint32 flags, uint procc)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	320 {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	321 int32 res;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	322 CommandProc *proc;
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	323
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	324 proc = _command_proc_table[procc];
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	325
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	326 if (_docommand_recursive == 0) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	327 _error_message = INVALID_STRING_ID;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	328 // update last build coord of player
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	329 if ( (x\|y) != 0 && _current_player < MAX_PLAYERS) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	330 DEREF_PLAYER(_current_player)->last_build_coordinate = TILE_FROM_XY(x,y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	331 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	332 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	333
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	334 _docommand_recursive++;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	335
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	336 // only execute the test call if it's toplevel, or we're not execing.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	337 if (_docommand_recursive == 1 \|\| !(flags & DC_EXEC) \|\| (flags & DC_FORCETEST) ) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	338 res = proc(x, y, flags&~DC_EXEC, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	339 if ((uint32)res >> 16 == 0x8000) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	340 if (res & 0xFFFF) _error_message = res & 0xFFFF;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	341 goto error;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	342 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	343
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	344 if (_docommand_recursive == 1) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	345 if (!(flags&DC_QUERY_COST) && res != 0 && !CheckPlayerHasMoney(res))
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	346 goto error;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	347 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	348
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	349 if (!(flags & DC_EXEC)) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	350 _docommand_recursive--;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	351 return res;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	352 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	353 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	354
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	355 // execute the command here.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	356 _yearly_expenses_type = 0;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	357 res = proc(x, y, flags, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	358 if ((uint32)res >> 16 == 0x8000) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	359 if (res & 0xFFFF) _error_message = res & 0xFFFF;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	360 error:
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	361 _docommand_recursive--;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	362 return CMD_ERROR;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	363 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	364
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	365 // if toplevel, subtract the money.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	366 if (--_docommand_recursive == 0) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	367 SubtractMoneyFromPlayer(res);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	368 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	369
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	370 return res;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	371 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	372
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	373 int32 GetAvailableMoneyForCommand()
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	374 {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	375 uint pid = _current_player;
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	376 if (pid >= MAX_PLAYERS) return 0x7FFFFFFF; // max int
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	377 return DEREF_PLAYER(pid)->player_money;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	378 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	379
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	380 // toplevel network safe docommand function for the current player. must not be called recursively.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	381 // the callback is called when the command succeeded or failed.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	382 bool DoCommandP(TileIndex tile, uint32 p1, uint32 p2, CommandCallback *callback, uint32 cmd)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	383 {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	384 int32 res = 0,res2;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	385 CommandProc *proc;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	386 uint32 flags;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	387 bool notest;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	388
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	389 int x = GET_TILE_X(tile)*16;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	390 int y = GET_TILE_Y(tile)*16;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	391
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	392 assert(_docommand_recursive == 0);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	393
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	394 _error_message = INVALID_STRING_ID;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	395 _error_message_2 = cmd >> 16;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	396 _additional_cash_required = 0;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	397
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	398 // spectator has no rights.
147 4a8a161e8d54 (svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ. darkvater <darkvater@openttd.org> parents: 58 diff changeset	399 if (_current_player == OWNER_SPECTATOR) {
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	400 ShowErrorMessage(_error_message, _error_message_2, x, y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	401 return false;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	402 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	403
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	404 flags = 0;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	405 if (cmd & CMD_AUTO) flags \|= DC_AUTO;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	406 if (cmd & CMD_NO_WATER) flags \|= DC_NO_WATER;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	407
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	408 // get pointer to command handler
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	409 assert((cmd & 0xFF) < lengthof(_command_proc_table));
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	410 proc = _command_proc_table[cmd & 0xFF];
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	411
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	412 // Some commands have a different output in dryrun then the realrun
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	413 // e.g.: if you demolish a whole town, the dryrun would say okay.
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	414 // but by really destroying, your rating drops and at a certain point
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	415 // it will fail. so res and res2 are different
467 9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	416 // CMD_REMOVE_ROAD: This command has special local authority
9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	417 // restrictions which may cause the test run to fail (the previous
9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	418 // road fragments still stay there and the town won't let you
9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	419 // disconnect the road system), but the exec will succeed and this
9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	420 // fact will trigger an assertion failure. --pasky
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	421 notest =
d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	422 (cmd & 0xFF) == CMD_CLEAR_AREA \|\|
d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	423 (cmd & 0xFF) == CMD_CONVERT_RAIL \|\|
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	424 (cmd & 0xFF) == CMD_LEVEL_LAND \|\|
467 9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	425 (cmd & 0xFF) == CMD_TRAIN_GOTO_DEPOT \|\|
9741de53e1b5 (svn r697) Fix the town road removal crash _still_ present there. pasky <pasky@openttd.org> parents: 395 diff changeset	426 (cmd & 0xFF) == CMD_REMOVE_ROAD;
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	427
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	428 _docommand_recursive = 1;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	429
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	430 // cost estimation only?
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	431 if (_shift_pressed && _current_player == _local_player && !(cmd & CMD_NETWORK_COMMAND)) {
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	432 // estimate the cost.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	433 res = proc(x, y, flags, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	434 if ((uint32)res >> 16 == 0x8000) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	435 if (res & 0xFFFF) _error_message = res & 0xFFFF;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	436 ShowErrorMessage(_error_message, _error_message_2, x, y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	437 } else {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	438 ShowEstimatedCostOrIncome(res, x, y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	439 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	440
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	441 _docommand_recursive = 0;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	442 return false;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	443 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	444
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	445
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	446 if (!((cmd & CMD_NO_TEST_IF_IN_NETWORK) && _networking)) {
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	447 // first test if the command can be executed.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	448 res = proc(x,y, flags, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	449 if ((uint32)res >> 16 == 0x8000) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	450 if (res & 0xFFFF) _error_message = res & 0xFFFF;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	451 goto show_error;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	452 }
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	453 // no money? Only check if notest is off
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	454 if (!notest && res != 0 && !CheckPlayerHasMoney(res)) goto show_error;
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	455 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	456
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	457 #ifdef ENABLE_NETWORK
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	458 // If we are in network, and the command is not from the network
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	459 // send it to the command-queue and abort execution
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	460 if (_networking && !(cmd & CMD_NETWORK_COMMAND)) {
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	461 NetworkSend_Command(tile, p1, p2, cmd, callback);
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	462 _docommand_recursive = 0;
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	463 return true;
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	464 }
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	465 #endif /* ENABLE_NETWORK */
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	466
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	467 // update last build coordinate of player.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	468 if ( tile != 0 && _current_player < MAX_PLAYERS) DEREF_PLAYER(_current_player)->last_build_coordinate = tile;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	469
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	470 // actually try and execute the command.
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	471 _yearly_expenses_type = 0;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	472 res2 = proc(x,y, flags\|DC_EXEC, p1, p2);
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	473
543 0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	474 // If notest is on, it means the result of the test can be different then
0bade3c3b8ba (svn r942) -Merged branch/network back into the trunk truelight <truelight@openttd.org> parents: 534 diff changeset	475 // the real command.. so ignore the test
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	476 if (!notest) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	477 assert(res == res2); // sanity check
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	478 } else {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	479 if ((uint32)res2 >> 16 == 0x8000) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	480 if (res2 & 0xFFFF) _error_message = res2 & 0xFFFF;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	481 goto show_error;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	482 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	483 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	484
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	485 SubtractMoneyFromPlayer(res2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	486
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	487 if (_current_player == _local_player && _game_mode != GM_EDITOR) {
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	488 if (res2 != 0)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	489 ShowCostOrIncomeAnimation(x, y, GetSlopeZ(x, y), res2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	490 if (_additional_cash_required) {
534 6de858608a45 (svn r901) Small step in the process to clean up the DPARAM mess: tron <tron@openttd.org> parents: 507 diff changeset	491 SetDParam(0, _additional_cash_required);
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	492 ShowErrorMessage(STR_0003_NOT_ENOUGH_CASH_REQUIRES, _error_message_2, x,y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	493 if (res2 == 0) goto callb_err;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	494 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	495 }
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	496
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	497 _docommand_recursive = 0;
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	498
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	499 if (callback) callback(true, tile, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	500 return true;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	501
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	502 show_error:
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	503 // show error message if the command fails?
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	504 if (_current_player == _local_player && _error_message_2 != 0)
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	505 ShowErrorMessage(_error_message, _error_message_2, x,y);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	506
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	507 callb_err:
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	508 _docommand_recursive = 0;
193 d9c55f0bc5ec (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight <truelight@openttd.org> parents: 147 diff changeset	509
0 fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	510 if (callback) callback(false, tile, p1, p2);
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	511 return false;
fa6ee4d75c8a (svn r1) Import of revision 975 of old (crashed) SVN truelight <truelight@openttd.org> parents: diff changeset	512 }

Mercurial > hg > openttd

annotate command.c @ 543:0bade3c3b8ba draft