//
ttx <- [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
tty <- [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
csiz <- 0
function get_player_text(text)
{
for(local clc=0;clc<13;clc++) calc(clc)
text = ttext("")
for(local p = 0; p < 15; p ++) {
local player = player_x(p)
if (p !=14 && p != 0 && p != 1 && player.is_active()) {
p-=2
local poss={x = ttx[p]-csiz, y= tty[p]-csiz}
p+=2
text += translate("Player region:") + " ("+get_name(p)+")
"
}
}
return text.tostring()
}
function get_name(pl)
{
return player_x(pl).name
}
con <- 0
j <- 0
i <- 0
p <- 0
ply <- get_name(0)
yona_cuadro <- [
{x=0, y=0},
{x=1, y=1},
]
yona_cuadro2 <- [
{x=0, y=1023},
{x=1023, y=1023},
{x=1023, y=1023},
{x=1023, y=0},
]
// Clacula el tamaño de las regiones
function calc(con)
{
local sizx = 339 //Tamaño de cada region en x
local sizy = 255 //Tamaño de cada region en y
local mapsizx = 1024-2 //Tamaño del mapa en x menos el valor null
local mapsizy = 1024-1 //Tamaño del mapa en y menos el valor null
local x1
local y1
csiz = sizy/2 //Para obtener las coordenadas de la region
if (con==0) {
x1 = 0
y1= mapsizy
}
else {
x1 = ttx[con-1]+1
y1 = tty[con-1]
}
if (x1>(mapsizx-sizy)) {
x1=0
y1-=sizy+3
}
local x2 = x1+sizx+1
local y2 = y1-sizy-2
if (x2mapsizx) {
x2=sizx
y2 -= sizy
}
yona_cuadro= [
{x=x1,y=y1},
{x=x2,y=y2},
]
ttx[con]=x2
tty[con]=y1
con += 1
}
tools <- [tool_build_transformer, tool_add_city, tool_build_way, tool_plant_tree, tool_build_roadsign, tool_build_wayobj, tool_remove_way, tool_build_wayobj, tool_build_station, tool_build_depot, tool_make_stop_public, tool_buy_house, tool_build_bridge, tool_build_tunnel, tool_raise_land, tool_lower_land, tool_setslope, tool_restoreslope, tool_remover, tool_headquarter, tool_change_water_height, tool_set_climate, tool_set_marker]
error <- translate("This region belongs to another player!.")
player <- [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14]
/*function regx() {
for( j=0; j