Sorry your browser is not supported!

(right before the BOX command in the drawboard() function)

if getp2board(x,y)=3 then ink rgb(255,0,255),0

`Battleship AI Framework
`Version 2.0
`by BMacZero for DBP Coding Challenges

`======= BASIC SETUP ============================

set display mode 800,600,32

sync on : sync rate 0
randomize timer()


`======= VARIABLE SETUP =========================


type BoardType
    Ship as integer
    Hit as integer
endtype

type ShipType
    Vertical as boolean
    XPos as integer
    YPos as integer
    Destroyed as boolean
endtype

type Vector2
    X as integer
    Y as integer
endtype



DIM ShipBases(4)
ShipBases(0)=2
ShipBases(1)=3
ShipBases(2)=3
ShipBases(3)=4
ShipBases(4)=5

DIM Board(9,9) as BoardType
DIM Ships(4) as ShipType

global Target as Vector2

`================================================
`======= MAIN LOOOOOOOOOOOOP! ===================

iter=-1
low=100

comeheretostart:

inc iter
winadd=winadd+turn

for x=0 to 9
 for y=0 to 9
  board(x,y).hit=0
  board(x,y).ship=-1
 next y
next x
 turn=0


RandomizeShips()
lasttime=timer()
turn=0

do
cls

if (timer()-lasttime>=50 or (shiftkey() and timer()-lasttime>=50)) and winner=0 and spacekey()=0
    inc turn
    AITarget1()
    Board(Target.X,Target.Y).Hit=1
    lasttime=timer()
endif

`Debug GetBoard
tempx=(mousex()-20)/20
tempy=(mousey()-50)/20
text 610,10,str$(GetP2Board(tempx,tempy))
text 510,20,str$(v(tempx,tempy))



text 10,400,"Hold spacekey to pause."
text 10,410,"Hold shiftkey to fast-forward."
text 10,430,"Screen FPS: "+str$(screen fps())
text 10,440,"TURN: "+str$(TURN)
text 10,450,"iterations: "+str$(iter)
if iter>0 then text 20,460,"average: "+str$(winadd/iter)
text 30,470,"BEST: "+str$(low)



DrawBoard(20,50,20)
winner=CheckWin()

if winner=1
center text 250,20,"AI was victorious on turn "+str$(turn)+"."
sync
`wait key
if turn<low then low=turn
goto comeheretostart
endif

sync
loop

`================================================
`================================================

`======= AI FUNCTIONS ===========================

function AITarget1()

repeat
    Target.X=rnd(9)
    Target.Y=rnd(9)
until GetP2Board(Target.X,Target.Y)=0

endfunction


function GetP2Board(X,Y)
local bad as integer
if X>9 or X<0 or Y>9 or Y<0 then exitfunction -1
if Board(X,Y).Hit=0
    exitfunction 0
    else
    if Board(X,Y).Ship>-1
        bad=3
        if Ships(Board(X,Y).Ship).Vertical
            for c=0 to ShipBases(Board(X,Y).Ship)-1
                if Board(Ships(Board(X,Y).Ship).XPos,Ships(Board(X,Y).Ship).YPos+c).Hit=0 then bad=2
            next c
            else
            for c=0 to ShipBases(Board(X,Y).Ship)-1
                if Board(Ships(Board(X,Y).Ship).XPos+c,Ships(Board(X,Y).Ship).YPos).Hit=0 then bad=2
            next c
        endif
        exitfunction bad
        else
        exitfunction 1
    endif
endif
endfunction 0


function CheckWin()

local tempwin as boolean : tempwin=1

for x=0 to 9
    for y=0 to 9
        if Board(x,y).Ship>-1 and Board(x,y).Hit=0 then tempwin=0
    next y
next x

endfunction tempwin


function DrawBoard(XPos1,YPos,BoxSize)

for x=0 to 9
    for y=0 to 9
     a$="."
        if Board(x,y).Ship=-1
            if Board(x,y).Hit=0
                `ink WaterColor,0
                else
                `ink HitWaterColor,0
                a$="v"
            endif
            else
            if Board(x,y).Hit=0
                `ink WaterColor,0
                else
                `ink HitShipColor,0
                a$="H"
            endif
        endif
        `box x*BoxSize+XPos1,y*BoxSize+YPos,(x+1)*BoxSize+XPos1-1,(y+1)*BoxSize+YPos-1

if getp2board(x,y)=3 then a$="8"

        text x*20+xpos1,y*20+ypos,a$
    next y
next x


endfunction


function RandomizeShips()

for x=0 to 9
    for y=0 to 9
        Board(x,y).Hit=0
        Board(x,y).Ship=-1
    next y
next x

for c=0 to 4
    repeat
        RandX=rnd(9)
        RandY=rnd(9)
        RandV=rnd(1)
        good=1
        if RandV
            if ShipBases(c)+RandY-1>9 then good=0
            else
            if ShipBases(c)+RandX-1>9 then good=0
        endif
        if good=1
            for l=1 to ShipBases(c)
                if RandV
                    if Board(RandX,RandY+l-1).Ship>-1 then good=0
                    else
                    if Board(RandX+l-1,RandY).Ship>-1 then good=0
                endif
            next l
        endif
    until good=1
    good=0
    PlaceShip(RandX,RandY,c,RandV)
next c

endfunction


function PlaceShip(XPos,YPos,ShipType,Vertical as boolean)

Ships(ShipType).Vertical=Vertical
Ships(ShipType).XPos=XPos
Ships(ShipType).YPos=YPos
Ships(ShipType).Destroyed=0

for c=1 to ShipBases(ShipType)
    if Vertical
        Board(XPos,YPos+c-1).Ship=ShipType
        else
        Board(XPos+c-1,YPos).Ship=ShipType
    endif
next c

endfunction

Function AITarget1()

` by IBOL

dim v(9,9)

for x=0 to 9
 for y=0 to 9
  v(x,y)=1
  a=0
  z=0
   for t=x-1 to x+1
    for u=y-1 to y+1
     if t>-1 and t<10 and u>-1 and u<10
      inc a
      if board(t,u).hit=0
       inc z
      endif
     endif
    next u
   next t
  if z>=a then v(x,y)=v(x,y)+rnd(3)
  if z>=9 then v(x,y)=v(x,y)+rnd(4)
 next y
next x

for x=0 to 9
 for y=0 to 9

   z=GetP2Board(x,y)

   if z>0
    v(x,y)=-999
   endif

` now we want to increase the value of squares adjacent to a hit that is not a sink
   if z=2
    for t=x-2 to x+2
     for u=y-2 to y+2
      if t=x or u=y
       if t>-1 and u>-1
        if t<10 and u<10
         ` all that just checks to see if the value is in bounds
          v(t,u)=v(t,u)+10+rnd(5)
           if t=x-1 or t=x+1 or u=y+1 or u=y-1
            v(t,u)=v(t,u)+15+rnd(10)
           endif
    endif
       endif
     endif
   next u
  next t
 endif

 next y
next x

tx=-1
ty=-1
z=5

for x=0 to 9
 for y=0 to 9
  a=v(x,y)
  if a>z or (a=z and rnd(2)=1)
   ` we have found a high value (or an equal value 33% of the time)
   z=a
   tx=x
   ty=y
  endif
 next y
next x

if tx=-1 or ty=-1
 repeat
  tx=rnd(9)
  ty=rnd(9)
 until GetP2Board(tx,ty)=0
endif

target.x=tx
target.y=ty


Endfunction

`############################### BAXSLASH GLOBALS START
global PrevX as integer:PrevX=-1
global PrevY as integer:PrevY=-1
global Targ as integer
global TargX as integer
global TargY as integer
global Hor as integer
global Ver as integer
global Direction as integer
global RandomBS as integer
`############################### BAXSLASH GLOBALS END

function AITarget1()
	Target.X=-1
	Target.Y=-1
	`Check for hit from previous shot
	if PrevX<>-1
		hit=GetP2Board(PrevX,PrevY)
		if hit=2
			Targ=1
			TargX=PrevX
			TargY=PrevY
			if Direction=1 then Ver=1
			if Direction=2 then Hor=1
		endif
		if hit=3
			Ver=0
			Hor=0
			Direction=0
			Targ=0
		endif
	endif
	`If we have no target then fire `randomly`
	if Targ=0
		`Do a check for whether random needs reversing
		if RandomBS=0
			for x=0 to 9
				for y=0 to 9
					if x MOD 2=0 and y MOD 2<>0
						if GetP2Board(x,y)=0 then OK=1
					endif
				next
			next
			if OK=0 then RandomBS=1
		endif
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		endif
	else
		`Otherwise continue searching for rest of target
		`check for existing condition
		if Ver=0 and Hor=0
			t=checkup(TargX,TargY)
			if t>0
				Direction=1
				Target.X=TargX
				Target.Y=TargY+t
			else
				t=checkdown(TargX,TargY)
				if t>0
					Direction=1
					Target.X=TargX
					Target.Y=TargY-t
				else
					t=checkright(TargX,TargY)
					if t>0
						Direction=2
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Direction=2
							Target.X=TargX-t
							Target.Y=TargY
						endif
					endif
				endif
			endif
		else
			if Ver=1
				t=checkup(TargX,TargY)
				if t>0
					Target.X=TargX
					Target.Y=TargY+t
				else
					t=checkdown(TargX,TargY)
					if t>0
						Target.X=TargX
						Target.Y=TargY-t
					else
						Targ=0
						Ver=0
						Hor=0
						Direction=0
					endif
				endif
			else
				if Hor=1
					t=checkright(TargX,TargY)
					if t>0
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Target.X=TargX-t
							Target.Y=TargY
						else
							Targ=0
							Ver=0
							Hor=0
							Direction=0
						endif
					endif
				endif
			endif
		endif
	endif
	if Target.X=-1 or Target.Y=-1
		`Do a check for whether random needs reversing
		if RandomBS=0
			for x=0 to 9
				for y=0 to 9
					if x MOD 2=0 and y MOD 2<>0
						if GetP2Board(x,y)=0 then OK=1
					endif
				next
			next
			if OK=0 then RandomBS=1
		endif
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		endif
	endif
	`save data for next check
	PrevX=Target.X
	PrevY=Target.Y
endfunction

function checkup(x,y)
	y1=1
	if y+y1<=9
		while done=0
			hit=GetP2Board(x,y+y1)
			if hit=0 and Board(x,y+y1).Hit=0 then done=1:t=y1
			if hit=1 then done=1
			inc y1
			if y+y1=10 then done=1
		endwhile
	endif
endfunction t

function checkdown(x,y)
	y1=1
	if y-y1>=0
		while done=0
			hit=GetP2Board(x,y-y1)
			if hit=0 and Board(x,y-y1).Hit=0 then done=1:t=y1
			if hit=1 then done=1
			inc y1
			if y-y1=-1 then done=1
		endwhile
	endif
endfunction t

function checkright(x,y)
	x1=1
	if x+x1<=9
		while done=0
			hit=GetP2Board(x+x1,y)
			if hit=0 and Board(x+x1,y).Hit=0 then done=1:t=x1
			if hit=1 then done=1
			inc x1
			if x+x1=10 then done=1
		endwhile
	endif
endfunction t

function checkleft(x,y)
	x1=1
	if x-x1>=0
		while done=0
			hit=GetP2Board(x-x1,y)
			if hit=0 and Board(x-x1,y).Hit=0 then done=1:t=x1
			if hit=1 then done=1
			inc x1
			if x-x1=-1 then done=1
		endwhile
	endif
endfunction t

`############################### BAXSLASH GLOBALS START
global PrevX as integer:PrevX=-1
global PrevY as integer:PrevY=-1
global Targ as integer
global TargX as integer
global TargY as integer
global Hor as integer
global Ver as integer
global Direction as integer
global RandomBS as integer
`############################### BAXSLASH GLOBALS END

function AITarget1()
	Target.X=-1
	Target.Y=-1
	`Check for hit from previous shot
	if PrevX<>-1
		hit=GetP2Board(PrevX,PrevY)
		if hit=2
			Targ=1
			TargX=PrevX
			TargY=PrevY
			if Direction=1 then Ver=1
			if Direction=2 then Hor=1
		endif
		if hit=3
			Ver=0
			Hor=0
			Direction=0
			Targ=0
		endif
	endif
	`If we have no target then fire `randomly`
	if Targ=0
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				endif
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				endif
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		endif
	else
		`Otherwise continue searching for rest of target
		`check for existing condition
		if Ver=0 and Hor=0
			t=checkup(TargX,TargY)
			if t>0
				Direction=1
				Target.X=TargX
				Target.Y=TargY+t
			else
				t=checkdown(TargX,TargY)
				if t>0
					Direction=1
					Target.X=TargX
					Target.Y=TargY-t
				else
					t=checkright(TargX,TargY)
					if t>0
						Direction=2
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Direction=2
							Target.X=TargX-t
							Target.Y=TargY
						endif
					endif
				endif
			endif
		else
			if Ver=1
				t=checkup(TargX,TargY)
				if t>0
					Target.X=TargX
					Target.Y=TargY+t
				else
					t=checkdown(TargX,TargY)
					if t>0
						Target.X=TargX
						Target.Y=TargY-t
					else
						Targ=0
						Ver=0
						Hor=0
						Direction=0
					endif
				endif
			else
				if Hor=1
					t=checkright(TargX,TargY)
					if t>0
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Target.X=TargX-t
							Target.Y=TargY
						else
							Targ=0
							Ver=0
							Hor=0
							Direction=0
						endif
					endif
				endif
			endif
		endif
	endif
	if Target.X=-1 or Target.Y=-1
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				endif
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			repeat
    			Target.X=rnd(9)
    			if Target.X MOD 2=0
    				Target.Y=rnd(9)
    				while Target.Y MOD 2=0
						Target.Y=rnd(9)
					endwhile
				else
    				Target.Y=rnd(9)
    				while Target.Y MOD 2<>0
						Target.Y=rnd(9)
					endwhile
				endif
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				endif
			until Board(Target.X,Target.Y).Hit=0
		endif
	endif
	`save data for next check
	PrevX=Target.X
	PrevY=Target.Y
endfunction

function checkup(x,y)
	y1=1
	if y+y1<=9
		while done=0
			hit=GetP2Board(x,y+y1)
			if hit=0 and Board(x,y+y1).Hit=0 then done=1:t=y1
			if hit=1 then done=1
			inc y1
			if y+y1=10 then done=1
		endwhile
	endif
endfunction t

function checkdown(x,y)
	y1=1
	if y-y1>=0
		while done=0
			hit=GetP2Board(x,y-y1)
			if hit=0 and Board(x,y-y1).Hit=0 then done=1:t=y1
			if hit=1 then done=1
			inc y1
			if y-y1=-1 then done=1
		endwhile
	endif
endfunction t

function checkright(x,y)
	x1=1
	if x+x1<=9
		while done=0
			hit=GetP2Board(x+x1,y)
			if hit=0 and Board(x+x1,y).Hit=0 then done=1:t=x1
			if hit=1 then done=1
			inc x1
			if x+x1=10 then done=1
		endwhile
	endif
endfunction t

function checkleft(x,y)
	x1=1
	if x-x1>=0
		while done=0
			hit=GetP2Board(x-x1,y)
			if hit=0 and Board(x-x1,y).Hit=0 then done=1:t=x1
			if hit=1 then done=1
			inc x1
			if x-x1=-1 then done=1
		endwhile
	endif
endfunction t

function AITarget1()
	Target.X=-1
	Target.Y=-1
	`Check for hit from previous shot
	if PrevX<>-1
		hit=GetP2Board(PrevX,PrevY)
		if hit=2
			Targ=1
			TargX=PrevX
			TargY=PrevY
			if Direction=1 then Ver=1
			if Direction=2 then Hor=1
		endif
		if hit=3
			Ver=0
			Hor=0
			Direction=0
			Targ=0
		endif
	endif
	`If we have no target then fire `randomly`
	if Targ=0
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			select Target.X
    				case 0
    					y=rnd(1)
    					select y
    						case 0:Target.Y=2:endcase
    						case 1:Target.Y=6:endcase
    					endselect
    				endcase
    				case 1
    					y=rnd(1)
    					select y
    						case 0:Target.Y=3:endcase
    						case 1:Target.Y=7:endcase
    					endselect
    				endcase
    				case 2
    					y=rnd(1)
    					select y
    						case 0:Target.Y=4:endcase
    						case 1:Target.Y=8:endcase
    					endselect
    				endcase
    				case 3
    					y=rnd(1)
    					select y
    						case 0:Target.Y=5:endcase
    						case 1:Target.Y=9:endcase
    					endselect
    				endcase
    				case 4
    					y=rnd(1)
    					select y
    						case 0:Target.Y=6:endcase
    						case 1:Target.Y=0:endcase
    					endselect
    				endcase
    				case 5
    					y=rnd(1)
    					select y
    						case 0:Target.Y=7:endcase
    						case 1:Target.Y=1:endcase
    					endselect
    				endcase
    				case 6
    					y=rnd(1)
    					select y
    						case 0:Target.Y=8:endcase
    						case 1:Target.Y=2:endcase
    					endselect
    				endcase
    				case 7
    					y=rnd(1)
    					select y
    						case 0:Target.Y=9:endcase
    						case 1:Target.Y=3:endcase
    					endselect
    				endcase
    				case 8
    					y=rnd(1)
    					select y
    						case 0:Target.Y=0:endcase
    						case 1:Target.Y=4:endcase
    					endselect
    				endcase
    				case 9
    					y=rnd(1)
    					select y
    						case 0:Target.Y=1:endcase
    						case 1:Target.Y=5:endcase
    					endselect
    				endcase
    			endselect
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
					RandomBS=1
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			if RandomBS=1
				repeat
    				Target.X=rnd(9)
    				select Target.X
    					case 0
    						y=rnd(2)
    						select y
    							case 0:Target.Y=0:endcase
    							case 1:Target.Y=4:endcase
    							case 2:Target.Y=7:endcase
    						endselect
    					endcase
    					case 1
    						y=rnd(2)
    						select y
    							case 0:Target.Y=1:endcase
    							case 1:Target.Y=5:endcase
    							case 2:Target.Y=8:endcase
    						endselect
    					endcase
    					case 2
    						y=rnd(2)
    						select y
    							case 0:Target.Y=2:endcase
    							case 1:Target.Y=6:endcase
    							case 2:Target.Y=9:endcase
    						endselect
    					endcase
    					case 3
    						y=rnd(2)
    						select y
    							case 0:Target.Y=3:endcase
    							case 1:Target.Y=7:endcase
    							case 2:Target.Y=0:endcase
    						endselect
    					endcase
    					case 4
    						y=rnd(2)
    						select y
    							case 0:Target.Y=4:endcase
    							case 1:Target.Y=8:endcase
    							case 2:Target.Y=1:endcase
    						endselect
    					endcase
    					case 5
    						y=rnd(2)
    						select y
    							case 0:Target.Y=5:endcase
    							case 1:Target.Y=9:endcase
    							case 2:Target.Y=2:endcase
    						endselect
    					endcase
    					case 6
    						y=rnd(2)
    						select y
    							case 0:Target.Y=6:endcase
    							case 1:Target.Y=0:endcase
    							case 2:Target.Y=3:endcase
    						endselect
    					endcase
    					case 7
    						y=rnd(2)
    						select y
    							case 0:Target.Y=7:endcase
    							case 1:Target.Y=1:endcase
    							case 2:Target.Y=4:endcase
    						endselect
    					endcase
    					case 8
    						y=rnd(2)
    						select y
    							case 0:Target.Y=8:endcase
    							case 1:Target.Y=2:endcase
    							case 2:Target.Y=5:endcase
    						endselect
    					endcase
    					case 9
    						y=rnd(2)
    						select y
    							case 0:Target.Y=9:endcase
    							case 1:Target.Y=3:endcase
    							case 2:Target.Y=6:endcase
    						endselect
    					endcase
    				endselect
					inc sticky
					if sticky>100
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    					while Board(Target.X,Target.Y).Hit<>0
							Target.X=rnd(9)
    						Target.Y=rnd(9)
    					endwhile
						RandomBS=2
					endif
				until Board(Target.X,Target.Y).Hit=0
			else
				repeat
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				until Board(Target.X,Target.Y).Hit=0
			endif
		endif
	else
		`Otherwise continue searching for rest of target
		`check for existing condition
		if Ver=0 and Hor=0
			t=checkup(TargX,TargY)
			if t>0
				Direction=1
				Target.X=TargX
				Target.Y=TargY+t
			else
				t=checkdown(TargX,TargY)
				if t>0
					Direction=1
					Target.X=TargX
					Target.Y=TargY-t
				else
					t=checkright(TargX,TargY)
					if t>0
						Direction=2
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Direction=2
							Target.X=TargX-t
							Target.Y=TargY
						endif
					endif
				endif
			endif
		else
			if Ver=1
				t=checkup(TargX,TargY)
				if t>0
					Target.X=TargX
					Target.Y=TargY+t
				else
					t=checkdown(TargX,TargY)
					if t>0
						Target.X=TargX
						Target.Y=TargY-t
					else
						Targ=0
						Ver=0
						Hor=0
						Direction=0
					endif
				endif
			else
				if Hor=1
					t=checkright(TargX,TargY)
					if t>0
						Target.X=TargX+t
						Target.Y=TargY
					else
						t=checkleft(TargX,TargY)
						if t>0
							Target.X=TargX-t
							Target.Y=TargY
						else
							Targ=0
							Ver=0
							Hor=0
							Direction=0
						endif
					endif
				endif
			endif
		endif
	endif
	if Target.X=-1 or Target.Y=-1
		`Do random check
		if RandomBS=0
			repeat
    			Target.X=rnd(9)
    			select Target.X
    				case 0
    					y=rnd(1)
    					select y
    						case 0:Target.Y=2:endcase
    						case 1:Target.Y=6:endcase
    					endselect
    				endcase
    				case 1
    					y=rnd(1)
    					select y
    						case 0:Target.Y=3:endcase
    						case 1:Target.Y=7:endcase
    					endselect
    				endcase
    				case 2
    					y=rnd(1)
    					select y
    						case 0:Target.Y=4:endcase
    						case 1:Target.Y=8:endcase
    					endselect
    				endcase
    				case 3
    					y=rnd(1)
    					select y
    						case 0:Target.Y=5:endcase
    						case 1:Target.Y=9:endcase
    					endselect
    				endcase
    				case 4
    					y=rnd(1)
    					select y
    						case 0:Target.Y=6:endcase
    						case 1:Target.Y=0:endcase
    					endselect
    				endcase
    				case 5
    					y=rnd(1)
    					select y
    						case 0:Target.Y=7:endcase
    						case 1:Target.Y=1:endcase
    					endselect
    				endcase
    				case 6
    					y=rnd(1)
    					select y
    						case 0:Target.Y=8:endcase
    						case 1:Target.Y=2:endcase
    					endselect
    				endcase
    				case 7
    					y=rnd(1)
    					select y
    						case 0:Target.Y=9:endcase
    						case 1:Target.Y=3:endcase
    					endselect
    				endcase
    				case 8
    					y=rnd(1)
    					select y
    						case 0:Target.Y=0:endcase
    						case 1:Target.Y=4:endcase
    					endselect
    				endcase
    				case 9
    					y=rnd(1)
    					select y
    						case 0:Target.Y=1:endcase
    						case 1:Target.Y=5:endcase
    					endselect
    				endcase
    			endselect
				inc sticky
				if sticky>100
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
					RandomBS=1
				endif
			until Board(Target.X,Target.Y).Hit=0
		else
			if RandomBS=1
				repeat
    				Target.X=rnd(9)
    				select Target.X
    					case 0
    						y=rnd(2)
    						select y
    							case 0:Target.Y=0:endcase
    							case 1:Target.Y=4:endcase
    							case 2:Target.Y=7:endcase
    						endselect
    					endcase
    					case 1
    						y=rnd(2)
    						select y
    							case 0:Target.Y=1:endcase
    							case 1:Target.Y=5:endcase
    							case 2:Target.Y=8:endcase
    						endselect
    					endcase
    					case 2
    						y=rnd(2)
    						select y
    							case 0:Target.Y=2:endcase
    							case 1:Target.Y=6:endcase
    							case 2:Target.Y=9:endcase
    						endselect
    					endcase
    					case 3
    						y=rnd(2)
    						select y
    							case 0:Target.Y=3:endcase
    							case 1:Target.Y=7:endcase
    							case 2:Target.Y=0:endcase
    						endselect
    					endcase
    					case 4
    						y=rnd(2)
    						select y
    							case 0:Target.Y=4:endcase
    							case 1:Target.Y=8:endcase
    							case 2:Target.Y=1:endcase
    						endselect
    					endcase
    					case 5
    						y=rnd(2)
    						select y
    							case 0:Target.Y=5:endcase
    							case 1:Target.Y=9:endcase
    							case 2:Target.Y=2:endcase
    						endselect
    					endcase
    					case 6
    						y=rnd(2)
    						select y
    							case 0:Target.Y=6:endcase
    							case 1:Target.Y=0:endcase
    							case 2:Target.Y=3:endcase
    						endselect
    					endcase
    					case 7
    						y=rnd(2)
    						select y
    							case 0:Target.Y=7:endcase
    							case 1:Target.Y=1:endcase
    							case 2:Target.Y=4:endcase
    						endselect
    					endcase
    					case 8
    						y=rnd(2)
    						select y
    							case 0:Target.Y=8:endcase
    							case 1:Target.Y=2:endcase
    							case 2:Target.Y=5:endcase
    						endselect
    					endcase
    					case 9
    						y=rnd(2)
    						select y
    							case 0:Target.Y=9:endcase
    							case 1:Target.Y=3:endcase
    							case 2:Target.Y=6:endcase
    						endselect
    					endcase
    				endselect
					inc sticky
					if sticky>100
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    					while Board(Target.X,Target.Y).Hit<>0
							Target.X=rnd(9)
    						Target.Y=rnd(9)
    					endwhile
						RandomBS=2
					endif
				until Board(Target.X,Target.Y).Hit=0
			else
				repeat
					Target.X=rnd(9)
    				Target.Y=rnd(9)
    				while Board(Target.X,Target.Y).Hit<>0
						Target.X=rnd(9)
    					Target.Y=rnd(9)
    				endwhile
				until Board(Target.X,Target.Y).Hit=0
			endif
		endif
	endif
	`save data for next check
	PrevX=Target.X
	PrevY=Target.Y
endfunction

function AITarget1()
  if myoffset=0
    rem set up variables
    global dim myBoard(9,9)
    global mylastX=-1
    global mylastY=0
    global mylastHitX=-1
    global mylastHitY=0
    global mylastHit=0
    global myshipHit=0
    global mydirec=0
    global myoffset=5
  endif
  if myshipHit=0
    if GetP2Board(mylastX,mylastY)=2
      mylastHit=1
      myshipHit=1
      mylastHitX=mylastX
      mylastHitY=mylastY
    endif
  else
    if GetP2Board(mylastX,mylastY)=1
      mylastX=mylastHitX
      mylastY=mylastHitY
      mylastHit=0
    endif
    if GetP2Board(mylastX,mylastY)=3
      myshipHit=0
    endif
  endif
  found=0
  while found=0
    if (myshipHit = 1)
      mydirec=0
      for x=mylastHitX-1 to 0 step -1
        if GetP2Board(x,mylastHitY)=0 and mydirec=0
          mynextX=x
          mynextY=mylastHitY
          mydirec=1
          x=0
        endif
        if GetP2Board(x,mylastHitY)=1
          mydirec=2
        endif
      next x
      if mydirec=2 or mylastHitX=0
        mydirec=0
        for x=mylastHitX+1 to 9
          if GetP2Board(x,mylastHitY)=0 and mydirec=0
            mynextX=x
            mynextY=mylastHitY
            mydirec=1
            x=9
          endif
          if GetP2Board(x,mylastHitY)=1
            mydirec=2
          endif
        next x
      endif
      if mydirec=2
        mydirec=0
        for y=mylastHitY-1 to 0 step -1
          if GetP2Board(mylastHitX,y)=0 and mydirec=0
            mynextY=y
            mynextX=mylastHitX
            mydirec=1
            y=0
          endif
          if GetP2Board(mylastHitX,y)=1
            mydirec=2
          endif
        next x
      endif
      if mydirec=2 or mylastHitY=0
        mydirec=0
        for y=mylastHitY+1 to 9
          if GetP2Board(mylastHitX,y)=0 and mydirec=0
            mynextY=y
            mynextX=mylastHitX
            mydirec=1
            y=9
          endif
          if GetP2Board(mylastHitX,y)=1
            mydirec=2
          endif
        next x
      endif
      mylastX=mynextX
      mylastY=mynextY
    endif
    if myshipHit=0
      mylastX=mylastX+myoffset
      if mylastX>9
        inc mylastY
        if mylastY>9
          myoffset=myoffset-2
          if myoffset<2 then myoffset=2
          mylastY=0
          mylastX=0
        else
          mylastX=mylastY mod myoffset
        endif
      endif
    endif
    if GetP2Board(mylastX,mylastY)=0
      found=1
      target.X=mylastX
      target.Y=mylastY
    endif
  endwhile
endfunction

function AITarget1()
  if myoffset=0
    rem set up variables
    global dim myBoard(9,9)
    global mylastX=-1
    global mylastY=0
    global mylastHitX=-1
    global mylastHitY=0
    global myshipHit=0
    global mydirec as integer
    global myoffset=5
  endif
  if myshipHit=0
    if GetP2Board(mylastX,mylastY)=2
      myshipHit=1
      mylastHitX=mylastX
      mylastHitY=mylastY
    endif
  else
    if GetP2Board(mylastX,mylastY)=1
      mylastX=mylastHitX
      mylastY=mylastHitY
    endif
    if GetP2Board(mylastX,mylastY)=3
      myshipHit=0
    endif
  endif
  found=0
  loops=0
  while found=0
    inc loops
    if (myshipHit = 1)
      mydirec=2
      dir1=1
      for x=mylastHitX-1 to 0 step -1
        if GetP2Board(x,mylastHitY)=0
          mynextX=x
          mynextY=mylastHitY
          mydirec=1
          x=0
        else
          if GetP2Board(x,mylastHitY)=1
            mydirec=2
            x=0
          endif
        endif
      next x
      if mydirec>1
        dir2=1
        mydirec=2
        for x=mylastHitX+1 to 9
          if GetP2Board(x,mylastHitY)=0
            mynextX=x
            mynextY=mylastHitY
            mydirec=1
            x=9
          else
            if GetP2Board(x,mylastHitY)=1
              mydirec=2
              x=9
            endif
          endif
        next x
      endif
      if mydirec>1
        dir3=1
        mydirec=2
        for y=mylastHitY-1 to 0 step -1
          if GetP2Board(mylastHitX,y)=0
            mynextY=y
            mynextX=mylastHitX
            mydirec=1
            y=0
          else
            if GetP2Board(mylastHitX,y)=1
              mydirec=2
              y=0
            endif
          endif
        next x
      endif
      if mydirec > 1
        dir4=1
        mydirec=2
        for y=mylastHitY+1 to 9
          if GetP2Board(mylastHitX,y)=0
            mynextY=y
            mynextX=mylastHitX
            mydirec=1
            y=9
          else
            if GetP2Board(mylastHitX,y)=1
              mydirec=2
              y=9
            endif
          endif
        next x
      endif
      if mydirec=1
        mylastX=mynextX
        mylastY=mynextY
      endif
    endif
    if myshipHit=0
      mylastX=mylastX+myoffset
      if mylastX>9
        inc mylastY
        if mylastY>9
          myoffset=myoffset-2
          if myoffset<2 then myoffset=2
          mylastY=0
          mylastX=0
        else
          mylastX=mylastY mod myoffset
        endif
      endif
    endif
    if GetP2Board(mylastX,mylastY)=0
      found=1
      target.X=mylastX
      target.Y=mylastY
    endif
    if loops>100 then myoffset=1
  endwhile
endfunction

IBOL:
39
31
49
=<39>

baxslash:
51
59
45
=<45>

acelepage:
50
52
47
=<47>

IBOL!

set display mode 1024,768,32
sync on
sync rate 0
sync
randomize timer()


dim w(200,200)



end

Function Display_World()
  cls
 for x=1 to 200
  for y=1 to 200
   a=w(x,y)
   if a=1 then ink rgb(0,0,205),0 : ` WATER
   if a=2 then ink rgb(245,222,179),0 : ` GRASS-LAND
   if a=3 then ink rgb(34,139,34),0 : ` FOREST
   if a=4 then ink rgb(139,69,19),0 : ` MOUNTAINS
   if a=5 then ink rgb(218,165,32),0 : ` DESERT
   if a=6 then ink rgb(238,233,233),0 : ` ICE-CAPS / FROZEN TUNDRA
`   if a=7 then ink rgb(),0 : `
`   if a=8 then ink rgb(),0 : `
`   if a=9 then ink rgb(),0 : `
`   if a=10 then ink rgb(),0 : `
`   if a=11 then ink rgb(),0 : `

   dot x*2,y*2
   dot x*2+1,y*2
   dot x*2,y*2+1
   dot x*2+1,y*2+1

  next y
 next x
  sync
Endfunction

 - realism
 - wrap-around - the edges of the map meet eachother and make sense together)
 - adding even more types of terrain (rain forest, swamp, badlands,etc.)
 - short , efficient code

global dim w(200,200) as integer

res=25
w(0,0)=rnd(5)+1
for y=res to 200-res step 25
  height=w(0,y-res)+rnd(2)-1
  w(x,y)=height
next y
for y=0 to 200-res step res
  for x=res to 200-res step res
    if w(x-res,y)=6
      w(x,y)=5
    else
      if w(x-res,y)=1
        w(x,y)=2
      else
        height=w(x-res,y)+rnd(2)-1
        w(x,y)=height
      endif
    endif
  next x
next y
for i=0 to 200-res step res
  w(200,i)=w(0,i)
  w(i,200)=w(i,0)
next i
for y=0 to 200-res step res
  for x=0 to 200 step res
    h1=w(x,y)
    h2=w(x,y+res)
    dif=h2-h1
    for i=y+1 to y+res-1
      if dif>0
        w(x,i)=h1+int( dif* (i-y)/res )
      else
        w(x,i)=h1+ceil( dif* (i-y)/res )
      endif
    next i
  next x
next y
for y=0 to 200
  for x=0 to 200-res step res
    h1=w(x,y)
    h2=w(x+res,y)
    dif=h2-h1
    for i=x+1 to x+res-1
      if dif>0
        w(i,y)=h1+int( dif* (i-x)/res )
      else
        w(i,y)=h1+ceil( dif* (i-x)/res )
      endif
    next i
  next x
next y


Display_World()
wait key

end
Function Display_World()
 cls
 for x=1 to 200
  for y=1 to 200
   a=w(x,y)
   if a=0 then ink 0,0
   if a=1 then ink rgb(0,0,128),0 : ` WATER
   if a=2 then ink rgb(32,32,192),0 : ` GRASS-LAND
   if a=3 then ink rgb(64,64,255),0 : ` FOREST
   if a=4 then ink rgb(128,128,255),0 : ` MOUNTAINS
   if a=5 then ink rgb(192,192,255),0 : ` DESERT
   if a=6 then ink rgb(255,255,255),0 : ` ICE-CAPS / FROZEN TUNDRA


   dot x*2,y*2
   dot x*2+1,y*2
   dot x*2,y*2+1
   dot x*2+1,y*2+1

  next y
 next x
Endfunction

Set Display Mode 800, 600, 32
Sync On : Sync Rate 0 : Sync

Dim TextureLookup( 256 ) As DWord

Do
GenerateHeightScale()
Det = MakeDetailMap()
Wat = MakeWaterImg()

Seed = Timer()
Noise = GenerateNoise( Seed, 256, 7, 1 ) : Save Image "Height.png", Noise
Col = MakeColourMap( Noise )
Ter = CreateTerrain( "Height.png", Col, Det )

Water = GetBlankObjNo()
Make Object Plain Water, 1536, 1536, 25, 25
Position Object Water, 0, 48, 0
Texture Object Water, Wat
Ghost Object On Water : Fade Object Water, 50

While Not ReturnKey()
   OldX# = CurveValue( XPos#, Camera Position X(), 300 )
   OldZ# = CurveValue( ZPos#, Camera Position Z(), 300 )
   XPos# = 512 * Sin( Wrapvalue( Timer() * 0.00625 ) ) : ZPos# = 512 * Cos( Wrapvalue( Timer() * 0.0125 ) )
   
   CamY# = Get Terrain Ground Height( Ter, OldX#, OldZ# )
   PointY# = Get Terrain Ground Height( Ter, XPos#, ZPos# )
   Position Camera OldX#, CamY# + 10.0, OldZ# : Point Camera XPos#, PointY# + 10.0, ZPos#
   
   
   
   XRotate Object Water, ( 0.5 * Sin( Wrapvalue( Timer() * 0.025 ) ) )
   ZRotate Object Water, ( 0.5 * Sin( Wrapvalue( Timer() * 0.05 ) ) )
   
   If Spacekey()
      Paste Image Noise, 0, 20
      Paste Image Col, 256, 20
   EndIf
   
   Text 0, 0, Str$( Seed )
   Sync
EndWhile

Delete Image Noise
Delete Image Col
Delete Image Wat
Destroy Terrain Ter
Set Display Mode 800, 600, 32
Loop
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function MakeWaterImg()
   Bmp = GetBlankBmpNo()
   Create Bitmap Bmp, 256, 256
   Set Current Bitmap Bmp
   Ink Rgb( 0, 0, 255 ), 0
   Box 0, 0, 256, 256
   Sync
   Wat = GetBlankImgNo()
   Get Image Wat, 0, 0, 256, 256, 1
   Set Current Bitmap 0
   Delete Bitmap Bmp
EndFunction Wat
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
`Convert matrix to plain.......
Function MakeColourMap( Img )
   Bmp = GetBlankBmpNo()
   Create Bitmap Bmp, 256, 256
   Set Current Bitmap Bmp
   Cls
   Paste Image Img, 0, 0
   For Y = 0 To 255
      For X = 0 To 255
         Dot X, Y, TextureLookup( RgbR( Point( X, Y ) ) )
      Next X
   Next Y   
   Sync
   Col = GetBlankImgNo()
   Get Image Col, 0, 0, 256, 256
   Set Current Bitmap 0
   Delete Bitmap Bmp
EndFunction Col
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function MakeDetailMap()
   Bmp = GetBlankBmpNo()
   Create Bitmap Bmp, 256, 256
   Set Current Bitmap Bmp
   Set Bitmap Format 21
   Ink Rgb( 128, 128, 128 ), 0
   Box 0, 0, 256, 256
   Sync
   Det = GetBlankImgNo()
   Get Image Det, 0, 0, 256, 256, 1
   Set Current Bitmap 0
   Delete Bitmap Bmp
EndFunction Det
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function CreateTerrain( Height$, Col, Det )
   Width = GetImageWidth( Col )
   Ter = GetBlankObjNo()

   Make Object Terrain Ter                              ` create the terrain object
   Set Terrain Heightmap Ter, Height$                   ` set the heightmap
   Set Terrain Scale Ter, 6, 0.6, 6                     ` set the scale
   Set Terrain Split Ter, 16                            ` split value by 16 * 16
   Set Terrain Tiling Ter, 4                            ` detail map tiling
   Set Terrain Light Ter, 0.15, -1, 0, 0.75, 0.75, 0.75, 0.5        ` light - xdir, ydir, zdir, red, green, blue, intensity
   Set Terrain Texture Ter, Col, Det                    ` base and detail texture
   Build Terrain Ter                                    ` finally build the terrain

   Delete File Height$

   Position Object Ter, 0.0 - ( ( Width * 6.0 ) / 2.0 ), 0.0, 0.0 - ( ( Width * 6.0 ) / 2.0 )
EndFunction Ter
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetBlankImgNo()
   For Num = 1 To 65500
      If Image Exist( Num ) = 0
         ExitFunction Num
      EndIf
   Next Num
EndFunction 0
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetBlankObjNo()
   For Num = 1 To 65500
      If Object Exist( Num ) = 0
         ExitFunction Num
      EndIf
   Next Num
EndFunction 0
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetBlankBmpNo()
   For Num = 1 To 32
      If Bitmap Exist( Num ) = 0
         ExitFunction Num
      EndIf
   Next Num
EndFunction 0
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetBlankSprNo()
   For Num = 1 To 65500
      If Sprite Exist( Num ) = 0
         ExitFunction Num
      EndIf
   Next Num
EndFunction 0
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetImageWidth( ImgNo )
   Spr = GetBlankSprNo()
   Sprite Spr, 0, 0, ImgNo
   Width = Sprite Width( Spr )
   Delete Sprite Spr
EndFunction Width
`============================================================================================================================
`============================================================================================================================
`============================================================================================================================
Function GetImageHeight( ImgNo )
   Spr = GetBlankSprNo()
   Sprite Spr, 0, 0, ImgNo
   Height = Sprite Height(Spr)
   Delete Sprite Spr
EndFunction Height


`Perlin Noise Courtesy of Dark Coder ;) ()
Function GenerateNoise( Seed, startingRes, totalOctaves, Sampling )
   Randomize Seed
   If startingRes > 512 Then startingRes = 512
   If totalOctaves > 8 Then totalOctaves = 8

   // Generate noise for all octaves
   for octaveID = 1 to totalOctaves
       memblockID  = octaveID
       octaveRes   = startingRes / 2 ^ (octaveID - 1)
       Make Memblock memblockID, octaveRes * octaveRes * 4 // A single float
       for x = 0 to octaveRes - 1
           for y = 0 to octaveRes - 1
               Write Memblock Float memblockID, ( x + y * octaveRes ) * 4, ( Rnd(2000) - 1000 ) * 0.001
           next
       next
   next

   // add all layers together
   memblockID  = totalOctaves + 1

   Make Memblock memblockID, 12 + startingRes * startingRes * 4
   Write Memblock DWord memblockID, 0, startingRes
   Write Memblock DWord memblockID, 4, startingRes
   Write Memblock DWord memblockID, 8, 32

   minHeight#      = -1.9
   maxHeight#      =  1.9
   minInv#         = -minHeight#
   heightRange#    =  maxHeight# - minHeight#
   _255DivRange#   =  255.0 / heightRange#
   sResReciprocal# =    1.0 / (startingRes)

   for x = 0 to startingRes - 1
       for y = 0 to startingRes - 1
           x#          = x * sResReciprocal#
           y#          = y * sResReciprocal#
           height#     = 0.0
           Strength#   = 1.0
           `height# = Memblock Float( 1, ( x + y * startingRes ) * 4 )

           for OctaveID = totalOctaves to 1 step -1
           `for OctaveID = 7 to 7 step -1
               octaveRes = startingRes / 2 ^ (octaveID - 1)
               // Store the float pixel we are over on the current octave
               memblockX# = x# * octaveRes
               memblockY# = y# * octaveRes
               // Store the int version for pixel sampling
               memblockX  = memblockX#
               memblockY  = memblockY#
               // Get the local offset
               memblockX# = memblockX# mod 1.0
               memblockY# = memblockY# mod 1.0

               If Sampling = 1
                 `BiCubic Sampling
                  sample1#  = Sample( OctaveID, memblockX - 1, memblockY - 1, octaveRes )
                  sample2#  = Sample( OctaveID, memblockX    , memblockY - 1, octaveRes )
                  sample3#  = Sample( OctaveID, memblockX + 1, memblockY - 1, octaveRes )
                  sample4#  = Sample( OctaveID, memblockX + 2, memblockY - 1, octaveRes )
                  mHeight1# = CubicInterpolate( sample1#, sample2#, sample3#, sample4#, memblockX# )
                  sample1#  = Sample( OctaveID, memblockX - 1, memblockY    , octaveRes )
                  sample2#  = Sample( OctaveID, memblockX    , memblockY    , octaveRes )
                  sample3#  = Sample( OctaveID, memblockX + 1, memblockY    , octaveRes )
                  sample4#  = Sample( OctaveID, memblockX + 2, memblockY    , octaveRes )
                  mHeight2# = CubicInterpolate( sample1#, sample2#, sample3#, sample4#, memblockX# )
                  sample1#  = Sample( OctaveID, memblockX - 1, memblockY + 1, octaveRes )
                  sample2#  = Sample( OctaveID, memblockX    , memblockY + 1, octaveRes )
                  sample3#  = Sample( OctaveID, memblockX + 1, memblockY + 1, octaveRes )
                  sample4#  = Sample( OctaveID, memblockX + 2, memblockY + 1, octaveRes )
                  mHeight3# = CubicInterpolate( sample1#, sample2#, sample3#, sample4#, memblockX# )
                  sample1#  = Sample( OctaveID, memblockX - 1, memblockY + 2, octaveRes )
                  sample2#  = Sample( OctaveID, memblockX    , memblockY + 2, octaveRes )
                  sample3#  = Sample( OctaveID, memblockX + 1, memblockY + 2, octaveRes )
                  sample4#  = Sample( OctaveID, memblockX + 2, memblockY + 2, octaveRes )
                  mHeight4# = CubicInterpolate( sample1#, sample2#, sample3#, sample4#, memblockX# )
                  mHeight#  = CubicInterpolate( mHeight1#, mHeight2#, mHeight3#, mHeight4#, memblockY# )
               Else
                 `BiLinear Sampling
                  sample1#  = Sample( OctaveID, memblockX    , memblockY, octaveRes )
                  sample2#  = Sample( OctaveID, memblockX + 1, memblockY, octaveRes )
                  mHeightX# = Linear_Interpolate( sample1#, sample2#, memblockX# )
                  sample1#  = Sample( OctaveID, memblockX    , memblockY + 1, octaveRes)
                  sample2#  = Sample( OctaveID, memblockX + 1, memblockY + 1, octaveRes)
                  mHeightY# = Linear_Interpolate( sample1#, sample2#, memblockX# )
                  mHeight#  = Linear_Interpolate( mHeightX#, mHeightY#, memblockY# )
               EndIf

               height# = height# + mHeight# * Strength#
               Strength# = Strength# * 0.5
           next

           height  = (height# + minInv#) * _255DivRange#
           if height > 255 then height = 255
           if height <   0 then height = 0
           Write Memblock Byte memblockID, 12 + ( x + y * startingRes ) * 4    , height // B
           Write Memblock Byte memblockID, 12 + ( x + y * startingRes ) * 4 + 1, height // G
           Write Memblock Byte memblockID, 12 + ( x + y * startingRes ) * 4 + 2, height // R
           Write Memblock Byte memblockID, 12 + ( x + y * startingRes ) * 4 + 3, 255    // A
       next
   next

   // Create image
   Img = GetBlankImgNo()
   Make Image From Memblock Img, memblockID
   
   For octaveID = 1 to totalOctaves
      Delete Memblock octaveID
   Next octaveID
   Delete Memblock totalOctaves + 1
   Cls
EndFunction Img


Function Sample( memblockID, x, y, memblockRes )
   if x < 0 then x = x + memblockRes
   if y < 0 then y = y + memblockRes
   if x > memblockRes-1 then x = x - memblockRes
   if y > memblockRes-1 then y = y - memblockRes
   returnValue# = Memblock Float( memblockID, ( x + y * memblockRes ) * 4 )
Endfunction returnValue#

Function Linear_Interpolate( a as float, b as float, x as float )
   returnValue# =  a * (1.0 - x) + b * x
Endfunction returnValue#

Function CubicInterpolate( aMinOne as float, a as float, b as float, bAddOne as float, acrossAB as float )
   P as float
   Q as float
   R as float
   S as float
   P = (bAddOne - b) - (aMinOne - a)
   Q = (aMinOne - a) - P
   R = b - aMinOne
   S = a
   returnValue# =  P * acrossAB ^ 3 + Q * acrossAB ^ 2 + R * acrossAB + S
EndFunction returnValue#


Function GenerateHeightScale()
   Restore TextureColours:
   For Y = 0 To 255
      Read TextureLookup( Y )
   Next Y
EndFunction


TextureColours:
Data 4278190215, 4278190216, 4278190472, 4278190729, 4278256522, 4278257035, 4278323084, 4278389134, 4278389903, 4278390929
Data 4278457235, 4278523798, 4278590361, 4278656923, 4278789278, 4278790305, 4278857381, 4278989479, 4279056555, 4279123630
Data 4279255986, 4279323062, 4279390138, 4279522493, 4279589569, 4279656644, 4279723464, 4279856075, 4279923150, 4279989970
Data 4280122325, 4280123608, 4280255964, 4280322782, 4280389088, 4280390372, 4280456933, 4280588520, 4280589290, 4280655851
Data 4280721901, 4280722415, 4280722927, 4280788464, 4280723441, 4280789233, 4280723441, 4280788977, 4280920303, 4280986094
Data 4281182701, 4281314282, 4281576679, 4281839331, 4282167520, 4282429916, 4282823640, 4283217619, 4283677133, 4284070856
Data 4284530370, 4284989884, 4285514933, 4286039984, 4286499497, 4286959011, 4287484060, 4288009110, 4288534160, 4288993674
Data 4289453188, 4289977982, 4290371960, 4290765939, 4291225199, 4291553386, 4291881829, 4292209762, 4292472415, 4292734811
Data 4292931673, 4293128790, 4293194325, 4293260117, 4293325652, 4293325651, 4293325652, 4293260116, 4293194579, 4293129043
Data 4292997714, 4292866641, 4292735569, 4292604240, 4292473167, 4292210766, 4292014413, 4291817291, 4291555146, 4291293001
Data 4291030599, 4290702917, 4290440516, 4290112834, 4289784896, 4289391422, 4289129021, 4288735546, 4288407865, 4288014390
Data 4287620916, 4287227698, 4286899760, 4286440750, 4286112811, 4285719337, 4285326119, 4284932645, 4284539171, 4284211489
Data 4283818015, 4283424541, 4283031066, 4282637593, 4282309911, 4281981972, 4281654035, 4281391889, 4280998416, 4280736014
Data 4280408332, 4280211466, 4279949065, 4279686920, 4279490311, 4279227910, 4279096837, 4278965764, 4278768899, 4278637826
Data 4278572289, 4278441217, 4278375681, 4278310144, 4278244608, 4278244352, 4278244352, 4278244353, 4278309632, 4278244097
Data 4278309376, 4278374657, 4278374402, 4278504962, 4278504962, 4278569731, 4278634756, 4278700037, 4278764805, 4278829830
Data 4278960647, 4279025416, 4279090185, 4279155210, 4279285515, 4279350284, 4279480844, 4279545614, 4279610638, 4279740943
Data 4279871248, 4279936017, 4280001043, 4280131348, 4280261652, 4280260886, 4280391446, 4280456471, 4280586776, 4280586521
Data 4280717082, 4280782106, 4280847131, 4280912156, 4280911900, 4280977180, 4281042461, 4281042206, 4281041949, 4281107230
Data 4281107229, 4281107230, 4281172766, 4281107230, 4281107230, 4281172767, 4281172767, 4281238559, 4281238560, 4281304353
Data 4281369889, 4281435427, 4281500964, 4281501221, 4281632294, 4281698343, 4281763881, 4281829419, 4281960748, 4282026542
Data 4282157871, 4282289202, 4282420531, 4282551861, 4282682936, 4282814266, 4282945596, 4283076926, 4283208513, 4283405380
Data 4283536709, 4283733577, 4283799371, 4283996494, 4284127825, 4284324691, 4284521558, 4284718425, 4284850012, 4285046878
Data 4285244002, 4285440869, 4285637736, 4285769067, 4285966190, 4286163057, 4286360180, 4286491255, 4286885245, 4287345029
Data 4287804813, 4288329877, 4288789660, 4289249188, 4289708715, 4290102706, 4290496696, 4290824894, 4291087555, 4291416008
Data 4291612875, 4291809998, 4291941329, 4292137939, 4292138452, 4292138196