SLIC-Reference : : Terraform  

SFN_ERROR Slic_Terraform::Call(SlicArgList *args)
{
	if(args->Count() != 2)
		return SFN_ERROR_NUM_ARGS;
	
	MapPoint tpos, pos;
	if(!args->GetPos(0, tpos)) {
		return SFN_ERROR_TYPE_ARGS;
	}

	sint32 terrain;
	if(!args->GetInt(1, terrain)) {
		return SFN_ERROR_TYPE_ARGS;
	}

	if(terrain < 0 || terrain >= g_theTerrainDB->NumRecords()) {
		return SFN_ERROR_OUT_OF_RANGE;
	}

	g_theWorld->SmartSetTerrain(tpos, terrain, 0);
#if 0
	Cell *cell = g_theWorld->GetCell(tpos);
	cell->SetTerrain(terrain);
	cell->SetEnv(cell->GetEnv() & ~(k_MASK_ENV_ROAD |
										  k_MASK_ENV_IRRIGATION |
										  k_MASK_ENV_MINE | 
										  k_MASK_ENV_CITY | 
										  k_MASK_ENV_INSTALLATION |
										  k_MASK_ENV_CITY_RADIUS |
										  k_MASK_ENV_GOOD));
	DynamicArray instArray;
	g_theInstallationTree->RemoveAt(tpos, instArray);
	instArray.KillList();

	switch(terrain) {
		case TERRAIN_FOREST:
		case TERRAIN_PLAINS:
		case TERRAIN_TUNDRA:
		case TERRAIN_GLACIER:
		case TERRAIN_GRASSLAND:
		case TERRAIN_DESERT:
		case TERRAIN_SWAMP:
		case TERRAIN_JUNGLE:
		case TERRAIN_HILL:
		case TERRAIN_DEAD:
		case TERRAIN_BROWN_HILL:
		case TERRAIN_WHITE_HILL:
		case TERRAIN_DEAD_HILL:
			g_theWorld->SetMovementType(tpos.x, tpos.y, k_MOVEMENT_TYPE_LAND);
			break;
		case TERRAIN_MOUNTAIN:
		case TERRAIN_BROWN_MOUNTAIN:
		case TERRAIN_WHITE_MOUNTAIN:
			g_theWorld->SetMovementType(tpos.x, tpos.y, k_MOVEMENT_TYPE_MOUNTAIN);
			break;
		case TERRAIN_WATER_SHALLOW:
		case TERRAIN_WATER_BEACH:
			g_theWorld->SetMovementType(tpos.x, tpos.y, k_MOVEMENT_TYPE_SHALLOW_WATER | k_MOVEMENT_TYPE_WATER);
			break;
		case TERRAIN_WATER_DEEP:
		case TERRAIN_WATER_VOLCANO:
		case TERRAIN_WATER_SHELF:
		case TERRAIN_WATER_TRENCH:
		case TERRAIN_WATER_RIFT:
			g_theWorld->SetMovementType(tpos.x, tpos.y, k_MOVEMENT_TYPE_WATER);
			break;
		case TERRAIN_SPACE:
			g_theWorld->SetMovementType(tpos.x, tpos.y, k_MOVEMENT_TYPE_SPACE);
			break;
	}

	g_tiledMap->PostProcessTile(tpos, g_theWorld->GetTileInfo(tpos));
	g_tiledMap->TileChanged(tpos);
	for(WORLD_DIRECTION d = NORTH; d < UP; d = (WORLD_DIRECTION)((sint32)d + 1)) {
		if(tpos.GetNeighborPosition(d, pos)) {
			g_tiledMap->PostProcessTile(pos, g_theWorld->GetTileInfo(pos));
			g_tiledMap->TileChanged(pos);
			g_tiledMap->RedrawTile(&pos);
		}
	}
	g_tiledMap->RedrawTile(&tpos);
#endif
	return SFN_ERROR_OK;
}