area.bas

#include once "includes/settings.bas"
#include once "includes/list.bas"
#include once "includes/mirror.bas"
#include once "includes/newline.bas"
#include once "tilemap.bas"
#include once "mirrormap.bas"
#include once "contentmap.bas"

NameSpace Area_

' Forward for Map
Type MapPtr as Map Ptr

Type AreaTile
    private:
        _tile as TileMap_.Tile Ptr
        _mirror as Mirror
        fixed as Bool = Bool.False
    public:    
        Declare Constructor ( __tile as TileMap_.Tile Ptr )
        Declare Sub _fix( __mirror as Mirror )
        Declare Function isFixed() as Bool
        Declare Function getTile() as TileMap_.Tile Ptr
        Declare Function getMirror() as Mirror        
End Type    

Constructor AreaTile ( __tile as TileMap_.Tile Ptr )
    if __tile <> 0 then
        _tile = __tile
        _mirror = Mirror.Undefined
    else
    end if
End Constructor

Sub AreaTile._fix( __mirror as Mirror )
    if fixed <> Bool.True then
        _mirror = __mirror
        fixed = Bool.True
    else
        'should not happen!
    end if    
End Sub

Function AreaTile.isFixed() as Bool
    return fixed
End Function

Function AreaTile.getTile() as TileMap_.Tile Ptr
    return _tile
End Function

Function AreaTile.getMirror() as Mirror
    return _mirror
End Function    

'------
' Area
'------
Type Area
    private:        
        _map as MapPtr
        id as integer = 0
        tileList as MyList.List Ptr
        size as integer = 0
        emptyTiles as integer = 0
        maxSize as integer = 0
        hasMirror as Bool = Bool.False
        originalMirrorType as Mirror
        originalMirrorTile as TileMap_.Tile Ptr
        mirrorFixed as Bool = Bool.False
        Declare Function getRandomDirection() as Direction
        Declare Sub addTiles( _tile as TileMap_.Tile Ptr, fromTile as TileMap_.Tile Ptr, s as Integer )
        Declare Function getTileAreaData( _tile as TileMap_.Tile Ptr ) as AreaTile Ptr
        Declare Sub markOtherTileAsEmpty( _areaTile as AreaTile Ptr)
    public:
        Declare Constructor ( _id as integer, startTile as TileMap_.Tile Ptr, maxSize as integer, __map as MapPtr  )
        Declare Sub placeRandomMirror()
        Declare Sub debug()
        Declare Sub debugList()
        Declare Function getSize() as integer
        Declare Function isFixed() as Bool        
        Declare Function markFixed( _tile as TileMap_.Tile Ptr, _mirror as Mirror ) as Bool
        Declare Function canPlace( _tile as TileMap_.Tile Ptr, _mirror as Mirror ) as Bool
        declare sub playerSetsMirror( _tile as TileMap_.Tile ptr, _mirror as Mirror, _mirrorMap as MirrorMap.Map ptr )
End Type

Constructor Area ( _id as integer, startTile as TileMap_.Tile Ptr, _maxSize as integer, __map as MapPtr )
    id = _id
    _map = __map
    maxSize = _maxSize
    tileList = new MyList.List()
    addTiles(startTile,0,1)
End Constructor

Function Area.getRandomDirection() as Direction
    Dim r as integer = int(rnd * 4)
    Select Case r
        case 0:
            return Direction.North
        case 1:
            return Direction.East
        case 2:
            return Direction.South
        case 3:
            return Direction.West
    End Select
    return -1
End Function

Function area.getSize() as integer
    return tileList->getSize()
End Function

Sub Area.debug()
    print "-- Area --"
    print "id "; id
    print "# of tiles "; tileList->getSize()
'    Dim thisNode as MyList.ListNode Ptr = tileList->getFirst()
'    while thisNode <> 0
'        Dim atp as TileMap_.Tile ptr = thisNode->getObject()
'        if tp <> 0 then
'            tp->debug()
'        end if
'        thisNode = thisNode->getNext()
'    wend
End Sub

Sub Area.debugList()
    print "** TILE LIST **"
    tileList->debug()
End Sub

Sub Area.markOtherTileAsEmpty( _areaTile as AreaTile Ptr)
    Dim thisIterator as MyList.Iterator Ptr = new MyList.Iterator(tileList)
    while thisIterator->hasNextObject() = Bool.True
        Dim thisAreaTile as AreaTile Ptr = thisIterator->getNextObject()
        if thisAreaTile <> _areaTile then
            thisAreaTile->_fix(Mirror.None)
        end if    
    wend
    delete thisIterator
End Sub

Function Area.getTileAreaData( _tile as TileMap_.Tile Ptr ) as AreaTile Ptr
    Dim thisIterator as MyList.Iterator Ptr = new MyList.Iterator(tileList)
    while thisIterator->hasNextObject() = Bool.True
        Dim thisAreaTile as AreaTile Ptr = thisIterator->getNextObject()
        if thisAreaTile->getTile() = _tile then
            delete thisIterator
            return thisAreaTile
        end if    
    wend
    delete thisIterator
    return 0
End Function

Function Area.markFixed( _tile as TileMap_.Tile Ptr, _mirror as Mirror ) as Bool
    Dim thisTile as AreaTile Ptr = getTileAreaData(_tile)
    if thisTile <> 0 then
        if thisTile->isFixed() = Bool.False then
            if _mirror = Mirror.None then
                emptyTiles += 1
                thisTile->_fix(Mirror.None)
                return Bool.True
            else
                if thisTile->getTile() = originalMirrorTile then
                    if _mirror = originalMirrorType then
                        if mirrorFixed = Bool.False then
                            mirrorFixed = Bool.True
                            markOtherTileAsEmpty(thisTile)
                            thisTile->_fix(_mirror)
                            return Bool.True
                        end if
                    else
                        print "Error: Wrong mirror to fix!"
                        sleep
                        end
                    end if
                end if    
            end if
        else
            'print "Error: Tiles should not be double fixed!"
            'sleep
            'end
        end if    
    end if    
    return Bool.False
End Function

Function Area.CanPlace( _tile as TileMap_.Tile Ptr, _mirror as Mirror ) as Bool
    Dim thisTile as AreaTile Ptr = getTileAreaData(_tile)
    if thisTile <> 0 then
        if thisTile->isFixed() = Bool.True then
            if thisTile->getMirror() = _mirror then
                return Bool.True
            end if
        else
            if _mirror = Mirror.None then
                if emptyTiles < (tileList->getSize() - 1) then
                    return Bool.True                
                end if
            else
                ' place a mirror on previously unfixed tile:
                return Bool.True
            end if    
        end if
    else
        print "Error: _tile not part of an Area!"
        sleep
        end
    end if 
    return Bool.False
End Function    

Function Area.isFixed() as Bool
    return mirrorFixed
End Function

sub Area.playerSetsMirror( _tile as TileMap_.Tile ptr, _mirror as Mirror, _mirrorMap as MirrorMap.Map ptr )
    Dim thisIterator as MyList.Iterator ptr = new MyList.Iterator(tileList)
    while thisIterator->hasNextObject() = Bool.True
        Dim thisAreaTile as AreaTile ptr = thisIterator->getNextObject()
        if thisAreaTile <> 0 then
            if thisAreaTile->getTile() = _tile then
                _mirrorMap->setMirror(_tile,_mirror)                
            else
                _mirrorMap->setMirror(thisAreaTile->getTile(),Mirror.None)                
            end if
        end if    
    wend    
end sub    

Type Map
    private:
        _tileMap as TileMap_.TileMap Ptr
        _mirrorMap as MirrorMap.Map Ptr
        playersMirrorMap as MirrorMap.Map Ptr
        areaList as MyList.List
        _map(Settings.maxBoardWidth,Settings.maxBoardHeight) as Area Ptr
        _width as integer
        _height as integer
        Declare Sub buildMap()
        Declare Sub placeRandomMirrors()
    public:
        Declare Constructor ( w as integer, h as integer, __tileMap as TileMap_.TileMap Ptr, __mirrorMap as MirrorMap.Map Ptr)
        Declare Destructor ()
        Declare Sub setArea ( _tile as TileMap_.Tile Ptr , _area as Area Ptr )
        Declare Function getArea ( _tile as TileMap_.Tile Ptr ) as Area Ptr
        Declare Sub setMirror ( _tile as TileMap_.Tile Ptr, _mirror as Mirror )
        declare function getPlayerMirror ( _tile as TileMap_.Tile ptr ) as Mirror
        Declare Function toString ( _contentMap as ContentMap Ptr = 0 ) as String
        Declare Function getAreaCount () as Integer
        Declare Sub playerPlacesMirror ( _tile as TileMap_.Tile Ptr, _mirror as Mirror )
End Type

Constructor Map ( w as integer, h as integer, __tileMap as TileMap_.TileMap Ptr, __mirrorMap as MirrorMap.Map Ptr )
    if __tileMap <> 0 then
        _tileMap = __tileMap
    else
        print "Error: null __tileMap"
        sleep
        end
    end if

    if __mirrorMap <> 0 then
        _mirrorMap = __mirrorMap
    else
        print "Error: null __mirrorMap"
        sleep
        end
    end if
        
    _width = w
    _height = h    
    
    playersMirrorMap = new MirrorMap.Map(_width,_height,_tileMap)
    for i as integer = 0 to (_height - 1)
        for j as integer = 0 to (_width - 1)
            _map(j,i) = 0
        next j
    next i    
    
    buildMap()
    placeRandomMirrors()
End Constructor

Destructor Map () 
    ' have to write!
    delete playersMirrorMap
End Destructor

' Build the areas
Sub Map.buildMap()
    if _tileMap <> 0 then       
        Dim tilesInAreas as integer = 0
        Dim areaID as integer = 0
		For i as integer = 0 to (_height - 1)
			For j as integer = 0 to (_width - 1)
				Dim tp as TileMap_.Tile Ptr = _tileMap->getTile(j,i)
				'Dim dp as TileData Ptr = tp->getData()
				if tp <> 0 then
					if getArea(tp) = 0 then						
                        Dim size as integer = int(rnd * _width) + 1
                        areaID += 1
                        Dim newArea as Area Ptr = new Area(areaID,tp,size,@this)
						areaList.addObject(newArea)
                        tilesInAreas += newArea->getSize()
					end if
				end if
			Next j
		Next i
        ' check if all tiles have an area
        if tilesInAreas <> _width * _height then
            print "Error: Too few tiles in areas. : "; tilesInAreas
            sleep
            end
        end if    
	end if
End Sub

Sub Map.placeRandomMirrors()
    Dim thisNode as MyList.ListNode ptr = areaList.getFirst()
	While thisNode <> 0
        Dim areaPtr as Area Ptr = thisNode->getObject()
		areaPtr->placeRandomMirror()
        thisNode = thisNode->getNext()
	Wend
End Sub

Sub Map.SetArea( _tile as TileMap_.Tile Ptr, _area as Area Ptr )
    if _tile <> 0 and _area <> 0 then
        _map(_tile->getCoord()->x,_tile->getCoord()->y) = _area
    else
        print "Error: Can't set Area, _tile or _area is empty!"
        sleep
        end
    end if 
End Sub    

Function Map.getArea( _tile as TileMap_.Tile Ptr ) as Area Ptr
    if _tile <> 0 then
        return _map(_tile->getCoord()->x,_tile->getCoord()->y)
    end if
    return 0
End Function

Sub Map.setMirror( _tile as TileMap_.Tile Ptr, _mirror as Mirror )
    _mirrorMap->setMirror(_tile,_mirror)
End Sub

Function Map.toString( _contentMap as ContentMap Ptr = 0 ) as String
    Dim returnString as String = ""
    for i as integer = 0 to (_height - 1)
        Dim coordLine as String = "    "
        if i = 0 then
            for j as integer = 0 to (_width - 1)
                coordLine &= " " & str(j) & "  "
            next j    
            returnString &= coordLine & NEWLINE
        end if        
        Dim line1 as String = ""        
        Dim line2 as String = ""
        Dim line3 as String = ""
        for j as integer = 0 to (_width - 1)
            Dim n as Bool = Bool.False
            Dim e as Bool = Bool.False
            Dim celBody as String
            if _contentMap <> 0 then
                Dim thisCoord as TileMap_.Coord Ptr = new TileMap_.Coord(j,i)
                celBody = _contentMap->getCell(thisCoord)
                if len(celBody) <> 3 then
                    print "wrong string length!"
                end if    
                delete thisCoord
            else
                celBody = "   "
            end if 
            Dim _tile as TileMap_.Tile Ptr = _tileMap->getTile(j,i)
            if _contentMap = 0 then
                if _mirrorMap->getMirror(_tile) = Mirror.NE_SW then celBody = " / "
                if _mirrorMap->getMirror(_tile) = Mirror.NW_SE then celBody = " \ "            
            end if
            if _tile->getNeighbor(Direction.North) = 0 then
                n = Bool.True
            else
                if getArea(_tile->getNeighbor(Direction.North)) <> getArea(_tile) then
                    n = Bool.True                
                end if
            end if    
            if _tile->getNeighbor(Direction.East) = 0 then
                e = Bool.True
            else
                if getArea(_tile->getNeighbor(Direction.East)) <> getArea(_tile) then
                    e = Bool.True                
                end if
            end if    
            if _tile->getNeighbor(Direction.South) = 0 then
                line3 &= "---+"
            end if    
            if _tile->getNeighbor(Direction.West) = 0 then
                line1 = "+" & line1
                line2 = "|" & line2
                if _tile->getNeighbor(Direction.South) = 0 then
                    line3 = "+" & line3
                end if
            else                
            end if
            if n = bool.True then
                line1 &= "---+"
            else
                line1 &= "   +"
            end if
            if e = bool.True then
                line2 &= celBody & "|"
            else   
                line2 &= celBody & " "
            end if
        next j
        returnString &= "   " & line1 & NEWLINE
        returnString &= " " & str(i) & " " & line2 & NEWLINE
        if line3 <> "" then
            returnString &= "   " & line3 & NEWLINE
        end if        
    next i    
    return returnString
End Function

Function Map.getAreaCount() as Integer
    return areaList.getSize()
End Function    

sub Map.playerPlacesMirror ( _tile as TileMap_.Tile Ptr, _mirror as Mirror )
    Dim thisArea as Area Ptr = getArea(_tile)
    if thisArea <> 0 then
        thisArea->playerSetsMirror(_tile,_mirror,playersMirrorMap)
    end if    
end sub

function Map.getPlayerMirror ( _tile as TileMap_.Tile ptr ) as Mirror
    return playersMirrorMap->getMirror(_tile)
end function    

' ---------------------------------------------------------------------------
' Methods from ** Area ** Defined here because it needs methods from Map
' ---------------------------------------------------------------------------
Sub Area.addTiles( _tile as TileMap_.Tile Ptr, fromTile as TileMap_.Tile Ptr, s as Integer )
    'print "Area now has size: "; s
    if _tile <> 0 and tileList->getSize() < maxSize then
        'Dim _data as TileData Ptr = _tile->getData()
        if _map <> 0 then            
            if _map->getArea(_tile) = 0 then
                size += 1
                tileList->addObject(new AreaTile(_tile))
                _map->setArea(_tile,@this)
                Dim nextTile as TileMap_.Tile Ptr
                Dim randomDir as integer = int(rnd * 4)
                for i as integer = 0 to 3
                    Dim thisDir as integer = (randomDir + i) mod 4
                    nextTile = _tile->getNeighbor(thisDir)
                    if nextTile <> fromTile and nextTile <> 0 then
                        addTiles( nextTile, _tile, s + 1 )
                    end if
                next i
            end if
        else
            print "Error: No Area Map defined!"
            sleep
            end
        end if
    end if
End Sub

Sub Area.placeRandomMirror( )
    Dim randomIndex as Integer = int(rnd * tileList->getSize())
    Dim index as integer = 0
    Dim thisIterator as MyList.Iterator ptr = new MyList.Iterator(tileList)
    While thisIterator->hasNextObject() = Bool.True
        Dim thisAreaTile as AreaTile ptr = thisIterator->getNextObject()
        if index = randomIndex then
            If thisAreaTile <> 0 then
                'Dim td as TileData ptr = tp->getData()
                'If td <> 0 then
                    print
                    print "** Area: placing mirror at tile "; randomIndex; " **"
                    thisAreaTile->getTile()->debug()
                    'td->debug()
                    originalMirrorTile = thisAreaTile->getTile()
                    Dim r as Integer = int(rnd * 2)
                    if r = 0 then
                        originalMirrorType = Mirror.NE_SW
                    else
                        originalMirrorType = Mirror.NW_SE
                    end if
                    _map->setMirror(thisAreaTile->getTile(),originalMirrorType)
                    'td->setMirror(originalMirrorType)
                'Else
                    'print "Error: no TileData!"
                'End if
            Else
                print "Error: no AreaTile object!"
                sleep
                end
            End if
            exit while
        End if
        index += 1
    Wend
    delete thisIterator
End Sub

End NameSpace