Transport Tycoon Forums

Code: Select all

local myname = "some name"
local i = 0;
while (!AICompany.SetName(myname)) {
    i++;
    myname = "some name #"+i;
}

Code: Select all

function TownDistValuator(town_a_id, town_b_id) {
  return AIMap.DistanceManhattan(AITown.GetLocation(town_a_id), AITown.GetLocation(town_b_id));
}
function ClosestTownValuator(town_id) {
  local all_towns = AITownList();
  all_towns.RemoveItem(town_id); // remove self
  all_towns.Valuate(TownDistValuator, town_id);
  all_towns.SortByValue(AIList.SORT_BY_VALUE, AIList.SORT_ASCENDING);
  return all_towns.Begin();
}

list = AITownList();
list.Valuate(town_id);
list.SortByValue(AIList.SORT_BY_VALUE, AIList.SORT_ASCENDING);

Code: Select all

local read_only_list = AITownList();
local list = AITownList();
foreach(town_a_id, _ in read_only_list) {
  local min_dist = -1;
  foreach(town_b_id, _ in read_only_list) {
    if(town_a_id == town_b_id) continue;
    local dist = AIMap.DistanceManhattan(AITown.GetLocation(town_a_id), AITown.GetLocation(town_b_id));
    if(dist < min_dist || min_dist == -1) min_dist = dist;
  }
  list.SetValue(town_a_id, min_dist);
}

list.SortByValue(AIList.SORT_BY_VALUE, AIList.SORT_ASCENDING);
// List is now sorted by distance to closest town

Code: Select all

function MainClass::Load(version, saved_data)
	
if (saved_data.rawin(save_version)) {etc. etc.}

Code: Select all

data.rawin("save_version");

Code: Select all

/* Main town management function. Called each month. */
function GoalTown::MonthlyManageTown()
{
	[...]

	::TownDataTable[this.id] = this.CollectingTownData();
}

/* Function called to collect town data. */
function GoalTown::CollectingTownData()
{
	local town_data = {};
	town_data.sign_id <- this.sign_id;
	town_data.is_monitored <- this.is_monitored;
	town_data.last_pax_delivery <- this.last_pax_delivery;
	town_data.town_supplied <- this.town_supplied;
	town_data.town_goals_cat <- this.town_goals_cat;
	town_data.town_supplied_cat <- this.town_supplied_cat;
	town_data.town_stockpiled_cat <- this.town_stockpiled_cat;
	town_data.tgr_array <- this.tgr_array;
	return town_data;
}

Code: Select all

foreach (townid, town_data in saved_data.town_data_table) {
	::TownDataTable[townid] <- town_data;
}

Code: Select all

function GoalTown::MonthlyManageTown()
{
	[...]

	// For debug purpose
	Log.Info("MAIN ARRAY TEST 1", Log.LVL_DEBUG);
	local array_text = " ";
	foreach (i, val in ::TownDataTable[this.id].tgr_array) {
		array_text = array_text+"i"+i+"="+val+" ";
	}
	Log.Info(GSTown.GetName(this.id)+": "+array_text+"Average="+this.tgr_average, Log.LVL_DEBUG);

	this.tgr_array[i] = new_town_growth_rate;

	// For debug purpose
	Log.Info("MAIN ARRAY TEST 2", Log.LVL_DEBUG);
	local array_text = " ";
	foreach (i, val in ::TownDataTable[this.id].tgr_array) {
		array_text = array_text+"i"+i+"="+val+" ";
	}
	Log.Info(GSTown.GetName(this.id)+": "+array_text+"Average="+this.tgr_average, Log.LVL_DEBUG);

	[...]
}

Code: Select all

dbg: [script] [18] [I] [1940-07-01]  MAIN ARRAY TEST 1
dbg: [script] [18] [I] [1940-07-01]  Filzbach:  i0=851 i1=10000 i2=217 i3=217 i4=217 i5=217 i6=217 i7=0 Average=(null : 0x(nil))
dbg: [script] [18] [I] [1940-07-01]  MAIN ARRAY TEST 2
dbg: [script] [18] [I] [1940-07-01]  Filzbach:  i0=851 i1=10000 i2=217 i3=217 i4=217 i5=217 i6=217 i7=10000 Average=(null : 0x(nil))

Code: Select all

this.tgr_array = ::TownDataTable[this.id].tgr_array;

Code: Select all

this.tgr_array.extend(::TownDataTable[this.id].tgr_array);

Code: Select all

this.tgr_array.extend(::TownDataTable[this.id].tgr_array);

Code: Select all

local rx = (AIBase.RandRange(11)) + 1

Code: Select all

if (rx == 1 || rx == 2)
        { do this block}

if (rx == 3)
    { do this block instead}

and so on.

Code: Select all

// It's still a good idea to use a variable for better clarity IMO
switch ( (AIBase.RandRange(11)) + 1 ) {
  case 1:
  case 2:
    // run this block when random number is 1 or 2
    break;
  case 3:
    // run this block when random number is 3
    break
  default:
    // run this block when random number is anything else
}