void battle_landscape () {
 int land = GetRandomInt(0, 5)
 int array tile
 if land==0 {tile[0]='Ldrt'; tile[1]='Ldro'; tile[2]='Lrok'}
 elseif land==1 {tile[0]='Qcrp'; tile[1]='Qgrs'; tile[2]='Qdrt'}
 elseif land==2 {tile[0]='Agrs'; tile[1]='Agrd'; tile[2]='Avin'}
 elseif land==3 {tile[0]='Nice'; tile[1]='Isnw'; tile[2]='Nsnr'}
 elseif land==4 {tile[0]='Dlvc'; tile[1]='Drds'; tile[2]='Dgrs'}
 elseif land==5 {tile[0]='Zsan'; tile[1]='Ztil'; tile[2]='Zbkl'}
 int i=0
 loop {
      SetTerrainType(GetUnitX(grid[i]), GetUnitY(grid[i]), tile[GetRandomInt(0,2)], -1, 1, 0)
      i++; exitwhen (i>gridmax)
 }
}

void battle_landscape () {
 int land = GetRandomInt(0, 4), a
 int array tile
 BJDebugMsg("land "+I2S(land))
 if land==0 {tile[0]='Ldrt'; tile[1]='Ldro'; tile[2]='Lrok'}
 elseif land==1 {tile[0]='Qcrp'; tile[1]='Qgrs'; tile[2]='Qdrt'}
 elseif land==2 {tile[0]='Agrs'; tile[1]='Agrd'; tile[2]='Avin'}
 elseif land==3 {tile[0]='Nice'; tile[1]='Isnw'; tile[2]='Nsnr'}
 elseif land==4 {tile[0]='Dlvc'; tile[1]='Drds'; tile[2]='Dgrs'}
 real x=gridx0, y, ymax=gridy0-gridd*9, xmax=gridx0+gridd*11
 loop {
  y=gridy0
  loop {
   a=GetRandomInt(0,2)
   if a>2 or a<0 {BJDebugMsg("wrong index")}
   if tile[a]>'Y000' {BJDebugMsg("town texture")}
   SetTerrainType(x, y, tile[a], -1, 1, 0)
   y-=64; exitwhen (y<ymax)
  }
  x+=64; exitwhen (x>xmax)
 }
}