Sorry your browser is not supported!

` MapAndSearch.dba

` Map and search routines

remstart
AVAILABLE FUNCTIONS*********************************************************************

CreateSearchMap(Width,Height)
   Create the map of the size specified

CreateSearchPathList(NoOfPaths)
   Create the paths of the quantity specified

SetSearchMap(X,Y,Value)
   Set an entry within the map (> 0 is not walkable)

GetSearchMap(X,Y)
   Read an entry from the map

GetSearchPathX(Path,Move)
   Get a X coordinate from the path specified

GetSearchPathY(Path,Move)
   Get a Y coordinate from the path specified

SearchPathSize(Path)
   Get the length of the specified path

SetSearchRestrictDiagonals(Mode)
   Only affects the 8 diection searches. If set to non-zero, will avoid diagonals
   between blocked cells.

SetMaximumCost(Cost)
   Will stop searching if the target is not reached within the required cost. Set to
   zero to deactivate.

SearchMapAStar4(Path,StartX,StartY,FinishX,FinishY)
   Run an 4 direction A* search, and store the results within the selected path

SearchMapAStar8(Path,StartX,StartY,FinishX,FinishY)
   Run an 8 direction A* search, and store the results within the selected path

SearchMapFlood4(Path,StartX,StartY,FinishX,FinishY)
   Run a 4 direction flood search, and store the results within the selected path

SearchMapFlood8(Path,StartX,StartY,FinishX,FinishY)
   Run an 8 direction flood search, and store the results within the selected path

GetFloodCost(FinishX,FinishY)
   Uses the previous Flood4 search to identify the cost of the specified target

****************************************************************************************
remend

` ***********************
` Conditional Compilation
` ***********************

` Uncomment these three lines and comment the following three to enable the 'swap array items'.
` This command is a part of the matrix1array TPC DLL, and makes this stuff marginally faster.
`#constant FASTSWAP_OFF  :
`#constant FASTSWAP_ON   remstart
`#constant FASTSWAP_END  remend
`#constant FASTSWAP_OFF  remstart
`#constant FASTSWAP_ON   remend
`#constant FASTSWAP_END  :


` ********************
` UDTs used internally
` ********************

dim SEARCH_Positionx(1,1)
dim SEARCH_Positiony(1,1)

` Status,G,H,F,ParentX,ParentY
dim SEARCH_TileInformation(1)


` F,X,Y
dim SEARCH_OpenListItemf(1)
dim SEARCH_OpenListItemx(1)
dim SEARCH_OpenListItemy(1)

` *************************************
` Global variables for library use only
` *************************************

SEARCH_MapWidth# = 0
SEARCH_MapHeight# = 0
SEARCH_MaxPaths# = 0
dim SEARCH_CurrentPositionx(1)
dim SEARCH_CurrentPositiony(1)

` This is used for the new HEAP format using in A*
SEARCH_OpenListSize# = 0

` These are used for the flood4 search
SEARCH_OpenListTop# = 0
SEARCH_OpenListBottom# = 0

` Optimisation for flood4 search system
dim SEARCH_PreviousStartx(1)
dim SEARCH_PreviousStarty(1)

` General search parameters
SEARCH_RestrictedDiagonals# = 0
SEARCH_MaximumCost# = 0
SEARCH_ParametersChanged# = 0
SEARCH_LastSearch# = 0

dim SEARCH_SearchPathx(SEARCH_MapPaths,SEARCH_MapWIDTH * SEARCH_MapHeight)
dim SEARCH_SearchPathy(SEARCH_MapPaths,SEARCH_MapWIDTH * SEARCH_MapHeight)


` Note: these dims never actually get run - they are just here to declare the existance of the
`       arrays.
`       They are actually dimensioned in the Create* functions.
`       *This* is how you declare arrays in included files, and arrays where you don't know the
`       dimensions to use until run-time.

dim SEARCH_Map(SEARCH_MapWidth, SEARCH_MapHeight)

dim SEARCH_TileInfo_Stat(SEARCH_MapWidth, SEARCH_MapHeight) 
dim SEARCH_TileInfo_G(SEARCH_MapWidth, SEARCH_MapHeight)
dim SEARCH_TileInfo_H(SEARCH_MapWidth, SEARCH_MapHeight)
dim SEARCH_TileInfo_F(SEARCH_MapWidth, SEARCH_MapHeight)
dim SEARCH_TileInfo_ParX(SEARCH_MapWidth, SEARCH_MapHeight)
dim SEARCH_TileInfo_ParY(SEARCH_MapWidth, SEARCH_MapHeight)

dim SEARCH_OpenList_Stat(SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_OpenList_G(SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_OpenList_H(SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_OpenList_F(SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_OpenList_ParX(SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_OpenList_ParY(SEARCH_MapWidth * SEARCH_MapHeight)

dim SEARCH_SearchPath_Stat(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_SearchPath_G(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_SearchPath_H(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_SearchPath_F(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_SearchPath_ParX(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)
dim SEARCH_SearchPath_ParY(SEARCH_MaxPaths, SEARCH_MapWidth * SEARCH_MapHeight)

dim SEARCH_PathSize(SEARCH_MaxPath)

` Initialised flags - by default DBPro sets them to zero. If they are not zero, then
` we are initialised.
SEARCH_PathsInitialised# = 0
SEARCH_MapInitialised# = 0

` ****************
` Public functions
` ****************

function CreateSearchMap(X#,Y#)
   SEARCH_MapWidth = X#
   SEARCH_MapHeight = Y#

   SEARCH_PreviousStartx(1) = -9999
   SEARCH_PreviousStarty(1) = -9999

   undim SEARCH_Map()
   undim SEARCH_TileInfo_Stat()
   undim SEARCH_TileInfo_G()
   undim SEARCH_TileInfo_H()
   undim SEARCH_TileInfo_F()
   undim SEARCH_TileInfo_ParX()
   undim SEARCH_TileInfo_ParY()

   undim SEARCH_OpenList_Stat()
   undim SEARCH_OpenList_G()
   undim SEARCH_OpenList_H()
   undim SEARCH_OpenList_F()
   undim SEARCH_OpenList_ParX()
   undim SEARCH_OpenList_ParY()

   dim SEARCH_Map#(X#,Y#)

   dim SEARCH_TileInfo_Stat(X#,Y#)
   dim SEARCH_TileInfo_G(X#,Y#)
   dim SEARCH_TileInfo_H(X#,Y#)
   dim SEARCH_TileInfo_F(X#,Y#)
   dim SEARCH_TileInfo_ParX(X#,Y#)
   dim SEARCH_TileInfo_ParY(X#,Y#)

   dim SEARCH_OpenList_Stat(X# * Y#)
   dim SEARCH_OpenList_G(X# * Y#)
   dim SEARCH_OpenList_H(X# * Y#)
   dim SEARCH_OpenList_F(X# * Y#)
   dim SEARCH_OpenList_ParX(X# * Y#)
   dim SEARCH_OpenList_ParY(X# * Y#)

   SEARCH_MapInitialised=1
endfunction

function CreateSearchPathLists(Paths#)
   SEARCH_MaxPaths = Paths#

   undim SEARCH_SearchPath_Stat()
	undim SEARCH_SearchPath_G()
   undim SEARCH_SearchPath_H()
	undim SEARCH_SearchPath_F()
   undim SEARCH_SearchPath_ParX()
	undim SEARCH_SearchPath_ParY()
   undim SEARCH_PathSize()

   dim SEARCH_SearchPathx(SEARCH_MapPaths,SEARCH_MapWIDTH * SEARCH_MapHeight)
   dim SEARCH_SearchPathy(SEARCH_MapPaths,SEARCH_MapWIDTH * SEARCH_MapHeight)

   dim SEARCH_PathSize(SEARCH_MaxPaths)

   SEARCH_PathsInitialised = 1
endfunction

function SetSearchMap(X#,Y#,Value#)
   if SEARCH_MapInitialised = 0 then exitfunction
   if X# < 0 or X# >= SEARCH_MapWidth then exitfunction
   if Y# < 0 or Y# >= SEARCH_MapHeight then exitfunction
   SEARCH_PreviousStartx(1) = -9999
   SEARCH_Map(X#,Y#) = Value#
endfunction

function GetSearchMap(X#,Y#)
   if SEARCH_MapInitialised = 0 then exitfunction
   if X# < 0 or X# >= SEARCH_MapWidth then exitfunction 0
   if Y# < 0 or Y# >= SEARCH_MapHeight then exitfunction 0
   exitfunction SEARCH_Map(X#,Y#)
endfunction 0

function GetSearchPathX(Path#,Move#)
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1
   if Move# < 0 or Move# > SEARCH_PathSize(Path#) then exitfunction -1
   exitfunction SEARCH_SearchPathx(Path, SEARCH_PathSize(Path)-Move)
endfunction -1

function GetSearchPathY(Path#,Move#)
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1
   if Move# < 0 or Move# > SEARCH_PathSize(Path#) then exitfunction -1
   exitfunction SEARCH_SearchPathy(Path, SEARCH_PathSize(Path)-Move)
endfunction -1

function SearchPathSize(Path#)
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# >= 0 or Path# <= SEARCH_MaxPaths then exitfunction SEARCH_PathSize(Path#)
endfunction -1

function SetSearchRestrictDiagonals(Mode#)
   if SEARCH_RestrictedDiagonals <> Mode#
      SEARCH_RestrictedDiagonals = Mode#
      SEARCH_ParametersChanged = 1
   endif
endfunction

function SetSearchMaximumCost(Cost#)
   if SEARCH_MaximumCost <> Cost#*10
      SEARCH_MaximumCost = Cost# * 10
      SEARCH_ParametersChanged = 1
   endif
endfunction

function SearchMapAStar4(Path#,SX#,SY#,TX#,TY#)
   locX# = 0
   locY# = 0
   locXOffset# = 0
   locYOffset# = 0
   locNewCost# = 0

   if SEARCH_MapInitialised = 0 then exitfunction -1
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1

   SEARCH_LastSearch = 0
   SEARCH_InitialiseTileInfo(SX#,SY#)

   while SEARCH_GetLowestCostOpen() > 0

      for locXOffset# = -1 to 1

         locX# = SEARCH_CurrentPositionx(1) + locXOffset#
         if locX# >= 0 and locX# < SEARCH_MapWidth

            for locYOffset# = -1 to 1

              if (locXOffset# = 0) and (locYOffset# = 0)
                  locY# = SEARCH_CurrentPositiony(1) + locYOffset#

                  if locY# >= 0 and locY# < SEARCH_MapHeight

                     if SEARCH_TileInfo_Stat(locX#,locY#) = 0
                        SEARCH_TileInfo_ParX(locX#,locY#) = SEARCH_CurrentPositionx(1)
                        SEARCH_TileInfo_ParY(locX#,locY#) = SEARCH_CurrentPositiony(1)
                        if locX# = TX# then if locY# = TY# then exitfunction SEARCH_BuildPath(Path#,SX#,SY#,TX#,TY#)
                        SEARCH_TileInfo_G(locX#,locY#) = SEARCH_TileInfo_G(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1))  + 10
                        SEARCH_TileInfo_H(locX#,locY#) = SEARCH_EstimateDistance(locX#,locY#,TX#,TY#)
                        SEARCH_TileInfo_F(locX#,locY#) = SEARCH_TileInfo_G(locX#,locY#) + SEARCH_TileInfo_H(locX#,locY#)
                        if SEARCH_MaximumCost = 0 or Cost < SEARCH_MaximumCost
                           SEARCH_AddToOpenList(locX#,locY#)
                           SEARCH_TileInfo_Stat(locX#,locY#) = 1
                        endif
                     else
                        if SEARCH_TileInfo_Stat(locX#,locY#) = 1
                           NewCost = SEARCH_TileInfo_G(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1)) + 10
                           if SEARCH_TileInfo_G(locX#,locY#) > NewCost
                              SEARCH_TileInfo_ParX(locX#,locY#) = SEARCH_CurrentPositionx(1)
                              SEARCH_TileInfo_Pary(locX#,locY#) = SEARCH_CurrentPositiony(1)
                              SEARCH_TileInfo_G(locX#,locY#) = NewCost
                              SEARCH_TileInfo_F(locX#,locY#) = NewCost + SEARCH_TileInfo_H(locX#,locY#)
                              SEARCH_AddToOpenList(locX#,locY#)
                           endif
                        endif
                     endif
                  endif
               endif
            next locYOffset#
         endif
      next locXOffset#
   endwhile

   exitfunction SEARCH_ClearPath(Path#,SX#,SY#)
endfunction 0

function SearchMapAStar8(Path#,SX#,SY#,TX#,TY#)
   locX# = 0
   locY# = 0
   locXOffset# = 0
   locYOffset# = 0
   locNewCost# = 0

   if SEARCH_MapInitialised = 0 then exitfunction -1
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1

   SEARCH_LastSearch = 1
   SEARCH_InitialiseTileInfo(SX#,SY#)

   while SEARCH_GetLowestCostOpen() > 0

      for locXOffset# = -1 to 1

         locX# = SEARCH_CurrentPositionx(1) + locXOffset#
         if locX# >= 0 and X < SEARCH_MapWidth

            for locYOffset# = -1 to 1

               if ( (locXOffset# < 0) or ( (locXOffset# > 0) ) or (locYOffset# < 0) )
                  Y = SEARCH_CurrentPositiony(1) + locYOffset#

                  if ( (locXOffset# = 0) or (locYOffset# = 0) )
                     Y=-1
                  else
                     ` Restrict diagonals
                     if SEARCH_RestrictedDiagonals
                        if locXOffset# <> 0 then if locYOffset# <> 0
                           if SEARCH_TileInfo_Stat(locX#, SEARCH_CurrentPositiony(1)) = 2
                              ` This bit depends on Y *not* being set to -1
                              if SEARCH_TileInfo_Stat(SEARCH_CurrentPositionx(1), locY#) = 2
                                 locY#=-1
                              endif
                           endif
                        endif
                     endif
                  endif

                  if locY# >= 0 and locY# < SEARCH_MapHeight

                     if SEARCH_TileInfo_Stat(locX#,locY#) = 0
                        SEARCH_TileInfo_ParX(locX#,locY#) = SEARCH_CurrentPositionx(1)
                        SEARCH_TileInfo_ParY(locX#,locY#) = SEARCH_CurrentPositiony(1)
                        if locX# = TX# then if locY# = TY# then exitfunction SEARCH_BuildPath(Path#,SX#,SY#,TX#,TY#)
                        SEARCH_TileInfo_G(locX#,locY#) = SEARCH_TileInfo_G(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1)) + SEARCH_SingleStepCost(locXOffset#,locYOffset#)
                        SEARCH_TileInfo_H(locX#,locY#) = SEARCH_EstimateDistance(locX#,locY#,TX#,TY#)
                        SEARCH_TileInfo_F(locX#,locY#) = SEARCH_TileInfo_G(locX#,locY#) + SEARCH_TileInfo_H(locX#,locY#)
                        if SEARCH_MaximumCost = 0 or SEARCH_TileInfo_G(locX#,locY#) < SEARCH_MaximumCost
                           SEARCH_AddToOpenList(locX#,locY#)
                           SEARCH_TileInfo_Stat(locX#,locY#) = 1
                        endif
                     else
                        if SEARCH_TileInfo_Stat(locX#,locY#) = 1
                           NewCost = SEARCH_TileInfo_G(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1) + SEARCH_SingleStepCost(locXOffset#,locYOffset#))
                           if SEARCH_TileInfo_G(locX#,locY#) > NewCost
                              SEARCH_TileInfo_ParX(locX#,locY#) = SEARCH_CurrentPositionx(1)
                              SEARCH_TileInfo_ParY(locX#,locY#) = SEARCH_CurrentPositiony(1)
                              SEARCH_TileInfo_G(locX#,locY#) = NewCost
                              SEARCH_TileInfo_F(locX#,locY#) = NewCost + SEARCH_TileInfo_H(locX#,locY#)
                              SEARCH_AddToOpenList(locX#,locY#)
                           endif
                        endif
                     endif

                  endif
               endif

            next locYOffset#

         endif

      next locXOffset#
   endwhile

   exitfunction SEARCH_ClearPath(Path#,SX#,SY#)
endfunction 0

function SearchMapFlood4(Path#,SX#,SY#,TX#,TY#)
   locXOffset# = 0
   locYOffset# = 0
   locX# = 0
   locY# = 0

   if SEARCH_MapInitialised = 0 then exitfunction -1
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1

   if SEARCH_ParametersChanged = 1 or SEARCH_LastSearch <> 2
      SEARCH_ParametersChanged = 0
      SEARCH_PreviousStartx(1) = -9999
      SEARCH_LastSearch = 2
   endif

   if SX <> SEARCH_PreviousStartx(1) or SY <> SEARCH_PreviousStarty(1)
      SEARCH_PreviousStartx(1) = SX
      SEARCH_PreviousStartx(1) = SY

      SEARCH_PopulateTileInfo()

      SEARCH_OpenListTop=-1
      SEARCH_OpenListBottom=-1

      SEARCH_TileInfo_Stat( SX#, SY# ) = 1
      SEARCH_TileInfo_ParX( SX#, SY# ) = SX#
      SEARCH_TileInfo_ParY( SX#, SY# ) = SY#
      SEARCH_TileInfo_F( SX#, SY# ) = 0
      SEARCH_QueueOntoOpen(SX#, SY#)

      while SEARCH_UnqueueFromOpen() > 0
         for locXOffset# = -1 to 1

            locX# = SEARCH_CurrentPositionx(1) + locXOffset#
            if locX# >= 0 and locX# < SEARCH_MapWidth

               for locYOffset# = -1 to 1

                  if ( (locXOffset# = 0) and (locYOffset# = 0) )
                     locY# = SEARCH_CurrentPositiony(1) + locYOffset#

                     if locY# >= 0 and locY# < SEARCH_MapHeight

                        if SEARCH_TileInfo_Stat( locX#, locY# ) = 0
                           SEARCH_TileInfo_Stat( locX#, locY# ) = 1
                           SEARCH_TileInfo_ParX( locX#, locY# ) = SEARCH_CurrentPositionx(1)
                           SEARCH_TileInfo_ParY( locX#, locY# ) = SEARCH_CurrentPositiony(1)
                           SEARCH_TileInfo_F( locX#, locY# ) = SEARCH_TileInfo_F( SEARCH_CurrentPositionx(1), SEARCH_CurrentPositiony(1) ) + 10
                           if SEARCH_MaximumCost = 0 or SEARCH_TileInfo_F( locX#, locY# ) < SEARCH_MaximumCost
                              SEARCH_QueueOntoOpen(locX#, locY#)
                           endif
                        endif

                     endif
                  endif

               next locYOffset#

            endif

         next locXOffset#

      endwhile
   endif

   if SEARCH_TileInfo_Stat(TX#,TY#) > 0 then exitfunction SEARCH_BuildPath(Path#,SX#,SY#,TX#,TY#)

   exitfunction SEARCH_ClearPath(Path#,SX#,SY#)
endfunction 0

function SearchMapFlood8(Path#, SX#, SY#, TX#, TY#)
   locXOffset# = 0
   locYOffset = 0
   locX = 0
   locY = 0
   locCost = 0

   if SEARCH_MapInitialised = 0 then exitfunction -1
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if Path# < 0 or Path# > SEARCH_MaxPaths then exitfunction -1

   if SEARCH_ParametersChanged = 1 or SEARCH_LastSearch <> 3
      SEARCH_ParametersChanged = 0
      SEARCH_PreviousStartx(1) = -9999
      SEARCH_LastSearch = 3
   endif

   if SX# <> SEARCH_PreviousStartx(1) or SY# <> SEARCH_PreviousStarty(1)
      SEARCH_PreviousStartx(1) = SX#
      SEARCH_PreviousStarty(1) = SY#

      SEARCH_PopulateTileInfo()

      SEARCH_TileInfo_Stat( SX#, SY# ) = 1
      SEARCH_TileInfo_ParX( SX#, SY# ) = SX#
      SEARCH_TileInfo_ParY( SX#, SY# ) = SY#
      SEARCH_TileInfo_F( SX#, SY# ) = 0
      SEARCH_AddToOpenList(SX#,SY#)

      SEARCH_SearchMode = 0

      while SEARCH_GetLowestCostOpen() > 0
         for locXOffset# = -1 to 1

            locX# = SEARCH_CurrentPositionx(1) + locXOffset#

            if locX# >= 0 and locX# < SEARCH_MapWidth

               for locYOffset# = -1 to 1

                  locY# = SEARCH_CurrentPositiony(1) + locYOffset#

                  ` Not the current cell (offsets both zero)
                  if ( (locXOffset# = 0) or (YOffset# = 0) )
                     locY#=-1
                  else
                     ` Restrict diagonals
                     if SEARCH_RestrictedDiagonals
                        if locXOffset# <> 0 then if locYOffset# <> 0
                           if SEARCH_TileInfo_Stat(locX#, SEARCH_CurrentPositiony(1)) = 2
                              ` This bit depends on Y *not* being set to -1
                              if SEARCH_TileInfo_Stat(SEARCH_CurrentPositionx(1), locY#) = 2
                                 locY#=-1
                              endif
                           endif
                        endif
                     endif
                  endif

                  if locY# >= 0 then if locY# < SEARCH_MapHeight then if SEARCH_TileInfo_Stat(locX#,locY#) = 0
                     SEARCH_TileInfo_Stat( locX#, locY# ) = 1
                     SEARCH_TileInfo_ParX( locX#, locY# ) = SEARCH_CurrentPositionx(1)
                     SEARCH_TileInfo_ParY( locX#, locY# ) = SEARCH_CurrentPositiony(1)
                     Cost = SEARCH_TileInfo_F( SEARCH_CurrentPositionx(1), SEARCH_CurrentPositiony(1)) + SEARCH_SingleStepCost(locXOffset#,locYOffset#)
                     SEARCH_TileInfo_F( locX#, locY# ) = Cost#
                     if SEARCH_MaximumCost = 0 or Cost# < SEARCH_MaximumCost
                        SEARCH_AddToOpenList(locX#,locY#)
                     endif
                  endif

               next locYOffset#

            endif

         next locXOffset#

      endwhile
   endif

   if SEARCH_TileInfo_Stat(TX#,TY#) > 0 then exitfunction SEARCH_BuildPath(Path#,SX#,SY#,TX#,TY#)

   exitfunction SEARCH_ClearPath(Path#,SX#,SY#)
endfunction 0

function GetFloodCost(TX#, TY#)
   if SEARCH_MapInitialised = 0 then exitfunction -1
   if SEARCH_PathsInitialised = 0 then exitfunction -1
   if SEARCH_PreviousStartx(1) <> -9999 then exitfunction SEARCH_TileInfo_F(TX#,TY#)
endfunction -1

` **********************
` Internal-use functions
` **********************

function SEARCH_SingleStepCost(X#, Y#)
   if X# = 0 or Y# = 0 then exitfunction 10
endfunction 14

function SEARCH_EstimateDistance(X#, Y#, TX#, TY#)
   locDistance# = 0
   locDistance# = (abs(X# - TX#) + abs(Y# - TY#))*10
endfunction locDistance#

function SEARCH_InitialiseTileInfo(SX#, SY#)
   SEARCH_OpenListSize=0

   SEARCH_PopulateTileInfo()

   SEARCH_TileInfo_G(SX#, SY#) = 0
   SEARCH_TileInfo_H(SX#, SY#) = SEARCH_EstimateDistance(SX#, SY#, TX#, TY#)
   SEARCH_TileInfo_F(SX#, SY#) = SEARCH_TileInfo_H(SX#, SY#)
   SEARCH_TileInfo_Stat(SX#, SY#) = 1
   SEARCH_TileInfo_ParX(SX#, SY#) = SX#
   SEARCH_TileInfo_ParY(SX#, SY#) = SY#

   SEARCH_AddToOpenList(SX#, SY#)
endfunction

function SEARCH_PopulateTileInfo()
   locX# = 0
   locY# = 0

   for locX# = 0 to SEARCH_MapWidth
      for locY# = 0 to SEARCH_MapHeight
         SEARCH_TileInfo_F(locX#,locY#) = 0
         if SEARCH_Map(locX#,locY#) > 0
            SEARCH_TileInfo_Stat(locX#,locY#) = 2
         else
            SEARCH_TileInfo_Stat(locX#,locY#) = 0
         endif
      next locY#
   next locX#
endfunction

function SEARCH_AddToOpenList(X#, Y#)
   locParent = 0
   locChild = 0
   locCost = 0

   locChild# = SEARCH_OpenListSize
   inc SEARCH_OpenListSize

   locCost# = SEARCH_TileInfo_F(X#,Y#)

   do
      if locChild# <= 0 then exit

      locParent#=(locChild# - 1)/2

      if SEARCH_OpenList_F(locParent#) < locCost# then exit

`      FASTSWAP_OFF
         SEARCH_OpenListItemf(locChild#) = SEARCH_OpenListItemf(locParent#)
         SEARCH_OpenListItemx(locChild#) = SEARCH_OpenListItemx(locParent#)
         SEARCH_OpenListItemy(locChild#) = SEARCH_OpenListItemy(locParent#)
`      FASTSWAP_ON
`         swap array items SEARCH_OpenList(), locChild#, locParent#
`      FASTSWAP_END

      locChild# = locParent#
   loop

   SEARCH_OpenListItemf(locChild#) = locCost#
   SEARCH_OpenListItemx(locChild#) = X#
   SEARCH_OpenListItemy(locChild#) = Y#
endfunction

function SEARCH_GetLowestCostOpen()
   locParent# = 0
   locChild# = 0
   locCost# = 0

   if SEARCH_OpenListSize <= 0 then exitfunction 0

   dec SEARCH_OpenListSize

   SEARCH_CurrentPositionx(1) = SEARCH_OpenListItemx(0)
   SEARCH_CurrentPositiony(1) = SEARCH_OpenListItemy(0)

   Cost = SEARCH_OpenList_F( SEARCH_OpenListSize )

`   FASTSWAP_OFF
      X = SEARCH_OpenListItemx( SEARCH_OpenListSize )
      Y = SEARCH_OpenListitemy( SEARCH_OpenListSize )
`   FASTSWAP_ON
`   FASTSWAP_END

   locParent#=0
   do
      locChild#=(2 * locParent#) + 1
      if locChild# >= SEARCH_OpenListSize then exit

      if locChild#+1 < SEARCH_OpenListSize
         if SEARCH_OpenList_F(locChild#) > SEARCH_OpenList_F(locChild# + 1) then inc locChild#
      endif

      if SEARCH_OpenList_F(locChild#) < locCost#

`         FASTSWAP_OFF
            SEARCH_OpenListItemf(locParent#) = SEARCH_OpenListItemf(locChild#)
            SEARCH_OpenListItemx(locParent#) = SEARCH_OpenListItemx(locChild#)
            SEARCH_OpenListItemy(locParent#) = SEARCH_OpenListItemy(locChild#)
`         FASTSWAP_ON
`            swap array items SEARCH_OpenList(), locChild#, locParent#
`         FASTSWAP_END

         locParent# = locChild#
      else
         exit
      endif
   loop

`   FASTSWAP_OFF
      SEARCH_OpenListItemf(locParent#) = locCost#
      SEARCH_OpenListItemx(locParent#) = X
      SEARCH_OpenListItemy(locParent#) = Y
`   FASTSWAP_ON
`      swap array items SEARCH_OpenList(), locParent#, SEARCH_OpenListSize
`   FASTSWAP_END

   if SEARCH_TileInfo_Stat(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1)) = 2 then exitfunction SEARCH_GetLowestCostOpen()

   SEARCH_TileInfo_Stat(SEARCH_CurrentPositionx(1),SEARCH_CurrentPositiony(1)) = 2
endfunction 1

function SEARCH_QueueOntoOpen(X#, Y#)
   inc SEARCH_OpenListTop
   SEARCH_OpenListItemx( SEARCH_OpenListTop ) = X#
   SEARCH_OpenListItemy( SEARCH_OpenListTop ) = Y#
endfunction

function SEARCH_UnqueueFromOpen()
   if SEARCH_OpenListBottom => SEARCH_OpenListTop then exitfunction 0

   inc SEARCH_OpenListBottom
   SEARCH_CurrentPositionx(1) = SEARCH_OpenListItemx( SEARCH_OpenListBottom )
   SEARCH_CurrentPositiony(1) = SEARCH_OpenListItemy( SEARCH_OpenListBottom )
endfunction 1

function SEARCH_BuildPath(Path#, SX#, SY#, TX#, TY#)
   Moves# = 0
   X# = TX#
   Y# = TY#
   SEARCH_SearchPathx(Path#, Moves#) = X#
   SEARCH_SearchPathy(Path#, Moves#) = Y#

   repeat
      inc Moves#
      SEARCH_SearchPathx(Path#, Moves#) = SEARCH_TileInfo_ParX(X#,Y#)
      SEARCH_SearchPathy(Path#, Moves#) = SEARCH_TileInfo_ParY(X#,Y#)
      X# = SEARCH_SearchPathx(Path#, Moves#)
      Y# = SEARCH_SearchPathy(Path#, Moves#)
   until X# = SX# and Y# = SY#

   SEARCH_PathSize(Path#) = Moves#
endfunction Moves

function SEARCH_ClearPath(Path#, SX#, SY#)
   SEARCH_SearchPathx(Path#, 0)=SX#
   SEARCH_SearchPathy(Path#, 1)=SY#
   SEARCH_PathSize(Path#)=0
endfunction 0

Rem Setup sync
Sync On
Sync Rate 30
Draw to front
Backdrop on
Set camera range 1,3000
Autocam off
Hide mouse

Fog on
Fog distance 3000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Make Gun
Make object cylinder 1,2
XRotate Object 1,90
Fix object pivot 1
Scale object 1,100,100,500
position object 1,0,-7,15
Lock object on 1

rem make HUD
Make object Plain 200,1,1
position object 200,-2.7,1.9,4
Lock object on 200
ghost object on 200

Make object Plain 201,1,1
position object 201,2.7,1.9,4
Lock object on 201
ghost object on 201
Load image "score.bmp",201
Texture object 201,201

rem Load and create hud bitmaps.
Load Bitmap "Radar.bmp",2
Create Bitmap 1,50,50

rem fire texture
Load Image "fire.bmp",2

rem Make Bullet
Make Object Sphere 2,2
texture object 2,2
Hide Object 2

rem Make MonsterBullet
Make Object Sphere 102,2
texture object 102,2
Hide Object 102

rem Make Explosion
Make Object Sphere 30,20
texture object 30,2
ghost object on 30
Hide Object 30
Make Object Sphere 31,20
texture object 31,2
ghost object on 31
Hide Object 31

rem Make Monster Explosion
Make Object Sphere 130,20
texture object 130,2
ghost object on 130
Hide Object 130
Make Object Sphere 131,20
texture object 131,2
ghost object on 131
Hide Object 131

rem load particles
For x  = 0 to 10
   Make object plain x+10,5,5
   Texture object x+10,2
   Set object x+10,1,0,0
   Ghost object on x+10
   Hide object x+10
Next x

rem load Monsterparticles
Load Image "fire.bmp",2
For x  =100 to 110
   Make object plain x+10,5,5
   Texture object x+10,2
   Set object x+10,1,0,0
   Ghost object on x+10
   Hide object x+10
Next x

rem intialize particle counter
Pn=10
MPn=110

rem load sounds
Load sound "crickets.wav",1
Loop sound 1

Load 3Dsound "fireball2.wav",2
Load 3Dsound "fireball2.wav",102
Load 3Dsound "Explode.wav",3
Load 3Dsound "Explode.wav",103


rem Randomize the matrix
randomize matrix 1,125

rem create decorative objects
load image "cottag02.bmp",300
t=300
For x = 1 to 9
   For z = 1 to 9
      Make object cube t,100
      Scale object t,100,600,100
      y = get ground height(1,x*1000,z*1000)
      position object t,x*1000,y+275,z*1000
      texture object t,300
      scale object texture t,1,-6
      inc t
   next z
next x


rem *******************************************************
`makes 5 randomly placed bullet box



bb1x#=rnd(9)*1000+rnd(999)
bb1z#=rnd(9)*1000+rnd(999)
bb1y#=get ground height(1,bb1x#,bb1z#)
bb2x#=rnd(9)*1000+rnd(999)
bb2z#=rnd(9)*1000+rnd(999)
bb2y#=get ground height(1,bb2x#,bb2z#)
bb3x#=rnd(9)*1000+rnd(999)
bb3z#=rnd(9)*1000+rnd(999)
bb3y#=get ground height(1,bb3x#,bb3z#)
bb4x#=rnd(9)*1000+rnd(999)
bb4z#=rnd(9)*1000+rnd(999)
bb4y#=get ground height(1,bb4x#,bb4z#)
bb5x#=rnd(9)*1000+rnd(999)
bb5z#=rnd(9)*1000+rnd(999)
bb5y#=get ground height(1,bb5x#,bb5z#)

for bulletbox=70 to 74
   make object cone bulletbox,50
   xrotate object bulletbox,180
   color object bulletbox,rgb(100,255,100)
next bulletbox


position object 70,bb1x#,bb1y#,bb1z#
position object 71,bb2x#,bb2y#,bb2z#
position object 72,bb3x#,bb3y#,bb3z#
position object 73,bb4x#,bb4y#,bb4z#
position object 74,bb5x#,bb5y#,bb5z#

   

 
remend *******************************************************


Main:
Rem Load Target
Load object "idle.x",3
Append Object "Walk.x",3,21
Yrotate object 3,180
Fix Object Pivot 3
Loop Object 3
mX# = 5000
mZ# = 5000
mY# = Get Ground Height(1,5000,5000)

X# = 5500
Y# =  Get Ground Height(1,5500,5500)
Z# = 5500
MonsterScore=0
PlayerScore=0
p_bulletno=10
m_bulletno=10
Gosub PlaceMonster
Gosub PlacePlayer

Rem Main loop
Do

   set cursor 550,20
   print "MScore: ",MonsterScore
   set cursor 550,40
   print "PScore: ",PlayerScore
rem   print total object frames(3)
   oldcAY# = cAY#
   oldcAX# = cAX#

   oldX#=X#
   oldY#=Y#
   oldZ#=Z#

   cAY# = WrapValue(cAY#+MousemoveX()*0.2)
   cAX# = WrapValue(cAX#+MousemoveY()*0.2)
   caZ# = Camera angle Z()

   Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Leftkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Rightkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   Rem Rotate camera
   cTestX#=WrapValue(cAX#-180)
   if cTestX# > 225 then cAX#=45
   if cTestX# < 135 then cAX#=315

   YRotate camera CurveAngle(cAY#,oldcAY#,24)
   XRotate camera CurveAngle(cAX#,oldcAX#,24)
   Y# = Get ground height(1,X#,Z#)+35

   rem collision detection
   if DecoCollide(X#,Y#,Z#) = 1
      X#=oldX#
      Y#=oldY#
      Z#=oldZ#
   Endif


   Rem Position Camera

   Position Camera X#,Y#,Z#

   Rem Position Listener
   Position Listener X#,Y#,Z#
   Rotate Listener 0,cAY#,0



 rem ********************************************************** 
   Rem Shoot bullet
   if Mouseclick()=1 and Explode =0 and p_bulletno>0
      if BulletLife=0 or BulletLife<50
         Position object 2,X#,Y#-7,Z#
         dec p_bulletno
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Loop sound 2
      Endif
   Endif
 rem ********************************************************** 

`add bulletbox
for bulletbox=70 to 74
if object exist(bulletbox)>0 
if x#>object position x(bulletbox)-40 and x#<object position x(bulletbox)+40
if z#>object position z(bulletbox)-40 and z#<object position z(bulletbox)+40
inc p_bulletno,10
if p_bulletno>10 then p_bulletno=10
delete object bulletbox
endif
endif
endif
next bulletbox

rem ********************************************************** 



   If BulletLife > 0 then Gosub ShootBullet
   If MonsterBulletLife > 0 then Gosub MonsterShootBullet

   If Explode > 0 then Gosub ExplodeRocket
   If MonsterExplode > 0
      Gosub MonsterExplodeRocket
   else
         Gosub MonsterAI
   Endif

 rem **********************************************************  
   If MonsterScore = 10 or PlayerScore = 10 then Gosub gameover
 rem **********************************************************

   Rem make radar
   Copy Bitmap 2,1
   set current bitmap 1
  
   ink rgb(100,255,100),rgb(0,0,0)
   bp1x#=bb1x#/200
   bp1z#=50-(bb1z#/200)
   Circle bp1X#,bp1Z#,1
   
   ink rgb(100,255,100),rgb(0,0,0)
   bp2x#=bb2x#/200
   bp2z#=50-(bb2z#/200)
   Circle bp2X#,bp2Z#,1
   
   ink rgb(100,255,100),rgb(0,0,0)  
   bp3x#=bb3x#/200
   bp3z#=50-(bb3z#/200)
   Circle bp3X#,bp3Z#,1
   
   ink rgb(100,255,100),rgb(0,0,0)
   bp4x#=bb4x#/200
   bp4z#=50-(bb4z#/200)
   Circle bp4X#,bp4Z#,1

   ink rgb(100,255,100),rgb(0,0,0)
   bp5x#=bb5x#/200
   bp5z#=50-(bb5z#/200)
   Circle bp5X#,bp5Z#,1

   


   ink rgb(0,0,255),rgb(0,0,0)
   PRX#=X#/200
   PRZ#=50-(Z#/200)
   Circle PRX#,PRZ#,1
   ink rgb(255,0,0),rgb(0,0,0)
   MRX#=mX#/200
   MRZ#=50-(mZ#/200)
   Circle MRX#,MRZ#,1
   Get image 200,0,0,50,50
   set current bitmap 0
   texture object 200,200
   ink rgb(255,128,128),rgb(0,0,0)

   Rem Refresh Screen
   Sync
Loop
return



Rem check for collision with wall decorations
Function DecoCollide(X#,Y#,Z#)

   for u = 1 to 9
      for v = 1 to 9
         if X#>u*1000-60
            if X#<u*1000+60
               if Z#>v*1000-60
                  if Z#<v*1000+60
                     if Y# < Get ground height(1,u*1000,v*1000)+575
                        Collide=1
                        Exitfunction Collide
                     endif
                  endif
               endif
            endif
         endif
      next v
   next u
   Collide=0

Endfunction Collide

Rem Shoot player bullet
ShootBullet:
      Dec BulletLife
      Move object 2,12

      bX#=Object position X(2)
      bY#=Object position Y(2)
      bZ#=Object position Z(2)

      inc Pn
      if Pn=21 then Pn=10
      Scale object Pn,100,100,100
      Position object Pn,bX#,bY#,bZ#
      point object Pn,X#,Y#,Z#
      Zrotate object Pn,rnd(180)
      Show object Pn
      for x = 1 to 10
         scale object int((Wrapvalue((Pn-9+x)*36))/36)+10,100+x*25,100+x*25,100+x*25
      set cursor 10,10
      next x

      if bY# < Get Ground height(1,bX#,bZ#) then BulletLife=0
      Position sound 2,bX#,bY#,bZ#
      set cursor 10,10
      if Sqrt((mX# - bX#)^2 + (mY#+25 - bY#)^2 + (mZ# - bZ#)^2) <20
         Gosub PlaceMonster
         inc PlayerScore
         MonsterBulletLife = 1
         BulletLife=0
      endif

      if DecoCollide(bX#,bY#,bZ#) = 1 then BulletLife = 0

      if BulletLife = 0
         Hide object 2
         stop sound 2
         for x=10 to 20
            hide object x
         next x
         Explode = 20
      endif
Return

Rem Explode bullet
ExplodeRocket:
   Position object 30,bX#,bY#,bZ#
   Show object 30
   Position object 31,bX#,bY#,bZ#
   Show object 31
   EScale=20*(30-Explode)
   Scale object 30,EScale,EScale,EScale
   Yrotate object 30,WrapValue(Explode*37)
   Scale object 31,EScale/1.5,EScale/1.5,EScale/1.5
   Yrotate object 31,WrapValue(359-Explode*37)
   Dec Explode
   If Explode = 0 then hide object 30: Hide object 31
   If Explode=18
      position sound 3,bX#,bY#,bZ#
      play sound 3
   endif
   If Explode < 15 then position sound 3,X#,Y#,Z#
Return

Rem Explode monster bullet
MonsterExplodeRocket:
   Position object 130,MbX#,MbY#,MbZ#
   Show object 130
   Position object 131,MbX#,MbY#,MbZ#
   Show object 131
   EScale=20*(30-MonsterExplode)
   Scale object 130,EScale,EScale,EScale
   Yrotate object 130,WrapValue(MonsterExplode*37)
   Scale object 131,EScale/1.5,EScale/1.5,EScale/1.5
   Yrotate object 131,WrapValue(359-MonsterExplode*37)
   Dec MonsterExplode
   If MonsterExplode = 0 then hide object 130: Hide object 131
   If MonsterExplode=18
      position sound 103,X#,Y#,Z#
      play sound 103
   endif
   If MonsterExplode < 15 then position sound 103,X#,Y#,Z#
Return

Rem Simple AI for guided monster misile
MonsterAI:
         Point object 3,X#,Y#,Z#
         If AvoidDeco >0
            mA# = Object Angle Y(3)
            Dec AvoidDeco
            Yrotate object 3,WrapValue(mA#+AvoidDeco*60)
         endif

         Rem Position Monster at new location
         Position Object 3,mX#,mY#,mZ#

         Rem check distance from player
         PDist=Sqrt((mX# - X#)^2 + (mY#+25 - Y#)^2 + (mZ# - Z#)^2)

         Rem If the player is within range shoot bullet
         if PDist<1500 and m_bulletno>0
            if MonsterBulletLife=0 or MonsterBulletLife < 500-Pdist/10
               Point object 3,X#,Y#-25,Z#
               If BulletAvoidDeco > 0
                  CornerAim = Rnd(1)
                  mA# = object angle Y(3)
                  if CornerAim = 0 then Yrotate Object 3,WrapValue(mA#+BulletAvoidDeco*10)
                  if CornerAim = 1 then Yrotate Object 3,WrapValue(mA#+BulletAvoidDeco*-16)
                  Dec BulletAvoidDeco
               

                 Endif



               If ShootUp > 0
                  mA# = object angle X(3)
                  XRotate Object 3,WrapValue(mA#+ShootUp*-8)
                  Dec ShootUp
               Endif

               Position object 102,mX#,mY#+25,mZ#
               dec m_bulletno
               Set object to object orientation 102,3
               MonsterBulletLife =500
               show object 102
               Loop sound 102

               Rem Play idle animation
               Loop Object 3,0,20
            Endif
rem  *************************************************************
rem monster avoid AI
Pbd=Sqrt((mX# - bX#)^2 + (mY#+25 - bY#)^2 + (mZ# - bZ#)^2) 
if Pbd <70 

turn object left 3,90 
      

   mXTest# = Newxvalue(mX#,Wrapvalue(mA#-90),14)
      mZTest# = Newzvalue(mZ#,Wrapvalue(mA#-90),14)
      If mXTest#>0 and mXTest#<10000 and mZTest#>0 and mZTest#<10000
        mX#=mXTest#
        mZ#=mZTest#
        mY# = Get Ground Height(1,mX#,mZ#)

      Endif
   Endif
rem *************************************************************

 if bulletno=0 then gosub findbulletbox
rem *************************************************************

         Endif
         if PDist>1000
            Rem Store old location
            OldmX# = mX#
            OldmZ# = mZ#
            OldmY# = mY#

            Rem Play walking animation
            Loop Object 3,21,46

            Rem Move monster
            Move Object 3,7

            Rem Get new position
             mX# = Object Position X(3)
             mZ# = Object Position Z(3)
            mY# = Get Ground Height(1,mX#,mZ#)

            Rem Check for Decoration collision
            If DecoCollide(mX#,mY#,mZ#) = 1 and AvoidDeco = 0
               mX# = OldmX#
               mZ# = OldmZ#
               mY# = OldmY#
               AvoidDeco = 3
            Endif

         Endif
Return

Rem Shoot Monster bullet
MonsterShootBullet:
      Dec MonsterBulletLife
      Move object 102,12

      MbX#=Object position X(102)
      MbY#=Object position Y(102)
      MbZ#=Object position Z(102)

      inc MPn
      if MPn=121 then MPn=110
      Scale object MPn,100,100,100
      Position object MPn,MbX#,MbY#,MbZ#
      Position sound 102,MbX#,MbY#,MbZ#
      point object MPn,X#,Y#,Z#
      Zrotate object MPn,rnd(180)
      Show object MPn
      for x = 1 to 10
         scale object int((Wrapvalue((MPn-9+x)*36))/36)+110,100+x*25,100+x*25,100+x*25
      next x

      if MbY# < Get Ground height(1,MbX#,MbZ#)
         MonsterBulletLife=0
         ShootUp=3
      endif

      Pdist=Sqrt((X# - MbX#)^2 + (Y#+25 - MbY#)^2 + (Z# - MbZ#)^2)
      if  Pdist<50
         GoSub PlacePlayer
         MonsterBulletLife = 0
         inc MonsterScore
      endif
      Rem guided missile
      if Pdist <500+PlayerScore*100 and Pdist>250 then Point object 102,X#,Y#,Z#
      if Pdist < 100 then point object 102,X#,Y#,Z#

      if DecoCollide(MbX#,MbY#,MbZ#) = 1
         MonsterBulletLife = 0
         BulletAvoidDeco = BulletAvoidDeco + 2
      Endif

      if MonsterBulletLife = 0
         Hide object 102
         stop sound 102
         for x=110 to 120
            hide object x
         next x
         MonsterExplode = 20
      endif
Return


rem *************************************************************
findbulletbox:
for bulletbox=70 to 74
if object exist(bulletbox)=0 then goto nextp_bulletbox
if x#>object position x(bulletbox)-40 and x#<object position x(bulletbox)+40
if z#>object position z(bulletbox)-40 and z#<object position z(bulletbox)+40
inc p_bulletno,10
if p_bulletno>10 then p_bulletno=10
delete object bulletbox
endif
endif
nextp_bulletbox:
next bulletbox
for bulletbox=70 to 74
if object exist(bulletbox)=0 then goto nextm_bulletbox
if object position x(3)>object position x(bulletbox)-40 and object position x(3)<object position x(bulletbox)+40
if object position z(3)>object position z(bulletbox)-40 and object position z(3)<object position z(bulletbox)+40
inc m_bulletno,10
if m_bulletno>10 then m_bulletno=10
delete object bulletbox
endif
endif
nextm_bulletbox:
next bulletbox
return
remend *************************************************************

PlaceMonster:

         mX#=X#
         mY#=Y#
         mZ#=Z#

         While Sqrt((X# - MX#)^2 + (Y#+25 - MY#)^2 + (Z# - MZ#)^2)<1000

               mX#=rnd(10000)
               mZ#=rnd(10000)
               mY#= get ground height(1,mX#,mZ#)
               If DecoCollide(mX#,mY#,mZ#) = 1
                  mX#=X#
                  mY#=Y#
                  mZ#=Z#
               endif
         EndWhile

         Position object 3,mX#,mY#,mZ#
         m_bulletno=10
Return

PlacePlayer:

         X#=mX#
         Y#=mY#
         Z#=mZ#

         While Sqrt((X# - mX#)^2 + (Y#+25 - mY#)^2 + (Z# - mZ#)^2)<1000

            X#=rnd(10000)
            Z#=rnd(10000)
            Y#= get ground height(1,X#,Z#)
            If DecoCollide(X#,Y#,Z#) = 1
               X#=mX#
               Y#=mY#
               Z#=mZ#
            endif

         EndWhile

         Position camera X#,Y#,Z#
         Point camera mX#,mY#,mZ#
         p_bulletno=10
Return

rem **********************************************************
gameover:

do

set text to bold
set cursor 280,180
print "Test Result: "
set cursor 320,200
print "FPS: ",screen fps() 
set cursor 320,220
print "Win rate: ",MonsterScore*10,"%"
set cursor 320,240
print "Monster Frames: ",total object frames(3)
   
set text size 50
set cursor 280,300 
print "N - New Game"
set cursor 280,320 
print "E - Exit"


 sync
if keystate(49)=1 
   goto Main
endif
   
if keystate(18)=1 
   end
endif
loop

rem **********************************************************