Sorry your browser is not supported!

// Project: Followers Revenge
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=640
#constant screenheight=480
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Followers Revenge" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global timetext,actiontext,actiontextshadow,intext,outtext // createtext variables

global mapsprite,smallermapsprite,mapspritememblock, mouse, mapspriteimage // map and memblock image variables

global worldsizex, worldsizey, worldpositionx // world positioning variables

global time, in, out, frametimer#, homex, homey // counter variables

global leveluptext, levelupx#


type _follower
	spr
	x#
	y#
	speed#
	direction // 0=left, 1 = right
	action$
	actionframestep# // this is a timer of when to do the actions - maybe perhaps ever half a second
endtype
global followers as _follower[]


worldsizey=150


initialisetext()

level=1

buildlevel(level)






do
	// this app works on the X axis
    displaymap(worldpositionx)
	
	// updpate and move followers
	updatefollowers()
	
	
	// checkmousecollisionchecks and set actions
	checkcollisionwithmouse()
	
	
	checkkeypresses()
	
	
	
	checktime()
	
	
	
	Render2DBack()
    Print( ScreenFPS() )
    
    
    Sync()
loop

function checkcollisionwithmouse()
	
	for a=0 to followers.length
		
		if GetSpriteCollision(mouse,followers[a].spr) = 1
			//update the name of the follower
			SetTextString(actiontext,followers[a].action$ + " " + str(a))
			SetTextString(actiontextshadow,followers[a].action$ + " " + str(a))
		
			SetTextPosition(actiontext,10,350)
			SetTextPosition(actiontextshadow,8,348)
			
			
			// if we left click then change action to a digger as long as not floating
			if GetRawMouseLeftPressed() and followers[a].action$<>"Floater"
				followers[a].action$="Digger"
			endif

			// if we left click then change action to a builder as long as not floating
			if GetRawMouseRightPressed() and followers[a].action$<>"Floater"
				followers[a].action$="Builder"
				
			endif

		else
			SetTextString(actiontext,"")
			SetTextString(actiontextshadow,"")
			
		endif
		
	next
	
endfunction

function updatefollowers()
	
	for a=0 to followers.length


		// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
		if GetSpriteVisible(followers[a].spr) =1 and checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,200,200) // in space
			
			SetSpriteVisible(followers[a].spr,0)
			inc in
			dec out
			
			
		endif

		// check the centre X and the bottom of the sprite
		if checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,0,0) // in space
			
			// if follower is "Building" then the position is moved by the Building routine
			if followers[a].action$<>"Builder" or followers[a].action$="Walker"
				inc followers[a].y#,followers[a].speed#
			endif
			
		else
			// if was just been floating then change a walker, cause dont want to upset the other actions
			if followers[a].action$="Floater" then followers[a].action$="Walker"
			
		endif

		if followers[a].action$="Walker"
			// move left or right
			if followers[a].direction=1
			// go right
				inc followers[a].x#,followers[a].speed#
			else
			// go left
				dec followers[a].x#,followers[a].speed#
			endif
		endif



		/// hit something so dont carry on going down - automatically go right

		if followers[a].action$="Digger"
		// dig earth directly down
					
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
					
				
				followers[a].actionframestep#=timer()
				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				
			endif
			
		// destroy earth
		
		endif
		
		
		if followers[a].action$="Builder"
		// build new platforms in the direction is going and up one pixel

			
				dec followers[a].y#,followers[a].speed#/50.0
				
				if followers[a].direction=-1
							
					dec followers[a].x#,followers[a].speed#/10
			
				else
					inc followers[a].x#,followers[a].speed#/10
			
			
				endif



			// add a platform undernear of follower
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
						
				followers[a].actionframestep#=timer()
				setplatform(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y#+GetSpriteHeight(followers[a].spr))
			endif
			
		endif
			


		// check the centre Y and the left of the sprite to see if hit a wall on the left
		if checkpixels(followers[a].x#-GetSpriteWidth(followers[a].spr),followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		// check the centre Y and the right of the sprite to see if hit a wall on the right
		if checkpixels(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		
		
	next
endfunction

function dighole(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=10
	for yy=y to y+3 

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 
	
function setplatform(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)

// make a nice depth platform of 2 pixls down
	for xx=x-5 to x+5	
		for yy=y to y+2
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(mapspritememblock,offset,0)
			SetMemblockInt(mapspritememblock,offset+1,random(200,255)) // a nice shade of green
			SetMemblockInt(mapspritememblock,offset+2,0)
			SetMemblockInt(mapspritememblock,offset+3,255)
		next
	next
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction

function checkpixels(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
	
	offset = 12 + ((y * width) + x) * 4
	if offset<GetMemblockSize(mapspritememblock)
		r=GetMemblockInt(mapspritememblock,offset)
		g=GetMemblockInt(mapspritememblock,offset+1)
		b=GetMemblockInt(mapspritememblock,offset+2)
		a=GetMemblockInt(mapspritememblock,offset+3)
	
		col = MakeColor(r,g,b)
	
		
	endif
	
endfunction col

function addfollower()
	follower as _follower
	follower.spr =CreateSprite(0)
	follower.x# = screenwidth/2 
	follower.y# = homey
	follower.direction=1 // automatically go right when start
	follower.speed#=.2
	follower.action$="Floater"
	follower.actionframestep#=timer()
	
	SetSpriteColor(follower.spr,0,0,255,255)
	SetSpritePosition(follower.spr,follower.x#,follower.y#)
	
	followers.insert(follower)
	
	inc out
endfunction

function initialisetime()
	time=500

//	worldpositionx=-screenwidth/2
	frametimer#=timer()
endfunction

function checktime()
	if (timer()-frametimer#)>1 
		frametimer#=timer()
		addfollower()
		dec time
		settextstring(timetext,"Time " + str(time))
	endif
endfunction


function checkkeypresses()

	// if move mouse to the left or right side of screen then move the viewport - same if press the < or > cursors
	
	if getpointerx()<10 then inc worldpositionx
	if getpointerx()>screenwidth-10 then dec worldpositionx
	if GetRawKeyState(37) then dec worldpositionx
	if GetRawKeyState(39) then inc worldpositionx



// press space to add a follower
	if GetRawKeyPressed(32)
		addfollower()
	endif

	
	
	if GetRawKeyPressed(27) then end

endfunction

function displaymap(worldpositionx)
	
	SetSpritePosition(mouse,getpointerx(),getpointery())
	SetSpritePosition(mapsprite,worldpositionx,0)


	SetTextString(outtext,"Out " + str(out))
	SetTextPosition(outtext,200,350)
	
	
	SetTextString(intext,"In " + str(in))
	SetTextPosition(intext,400,350)
	SetTextPosition(timetext,550,350)


// move the followers according the position X on where the map is
	for a=0 to followers.length
		SetSpritePosition(followers[a].spr,followers[a].x#+worldpositionx,followers[a].y#)
	next

	SetTextPosition(leveluptext,screenwidth*2+100 + worldpositionx,315)

	
	SetSpritePosition(smallermapsprite,500,400)
	SetSpriteSize(smallermapsprite,200,50)

// draw box around the smaller map according to where you are on the map
	col=MakeColor(255,255,255)
	
	DrawBox(500+worldpositionx,400,500+worldpositionx+50,450,col,col,col,col,0)
	
	


endfunction


function initialisetext()

	leveluptext = CreateText("Level Up")
	SetTextSize(leveluptext,12)
	
	
	actiontext= CreateText("Digger 01")
	SetTextSize(actiontext,30)
	SetTextColor(actiontext,0,200,0,255)
	SetTextBold(actiontext,1)

	actiontextshadow= CreateText("Digger 01")
	SetTextSize(actiontextshadow,31)
	SetTextColor(actiontextshadow,0,255,0,255)
	SetTextBold(actiontextshadow,1)
	SetTextDepth(actiontext,0)
	SetTextDepth(actiontextshadow,1)



	outtext= CreateText("Out 0")
	SetTextSize(outtext,30)
	SetTextColor(outtext,0,200,0,255)
	SetTextBold(outtext,1)


	intext= CreateText("In 0%")
	SetTextSize(intext,30)
	SetTextColor(intext,0,200,0,255)
	SetTextBold(intext,1)

	timetext= CreateText("Time")
	SetTextSize(timetext,30)
	SetTextColor(timetext,0,200,0,255)
	SetTextBold(timetext,1)
endfunction



function buildlevel(level)
	
	swap()
		DrawLine(0,4,8,4,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(4,0,4,8,MakeColor(255,255,255),MakeColor(255,255,255))
	render()
	mouse=CreateSprite(GetImage(0,0,8,8))	
	SetSpriteDepth(mouse,0)
	SetRawMouseVisible(0)

	ground=30
	swap()
	// blank out the mouse we just made
		DrawBox(0,0,screenwidth,worldsizey,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	for a=0 to level * 30
		rx=random(0,screenwidth)
		ry=random(100,worldsizey)
		size=random(10,50)
		tlc=MakeColor(0,200,0)
		trc=tlc
		blc=tlc
		brc=tlc
		
		// draw random boxes in the air	
		for x=rx to rx+size
			for y=ry to ry+size
				if y<ry+random(5,7)
					DrawBox(x,y,x+1,y+1,MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),1)
				else
					r=random(200,250)
					g=random(100,170)
					b=random(0,100)
					col=MakeColor(r,g,b)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
		
		

	next
	
	
		// draw the ground		
		for x=5 to screenwidth-5
			for y=worldsizey-ground to worldsizey
				if y<worldsizey-ground+random(5,7)
					DrawBox(x,y,x+1,y+1,MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),MakeColor(0,random(150,250),0),1)
				else
					r=random(200,250)
					g=random(100,170)
					b=random(0,100)
					col=MakeColor(r,g,b)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
	
	// create exit point
	rx=random(50,screenwidth-50)
	ry=random(20,50)
	DrawBox(rx,ry,rx+10,ry+10,MakeColor(255,0,0),MakeColor(0,255,0),MakeColor(0,0,255),MakeColor(255,255,0),1)


// create entry point
	rx=random(5,screenwidth-50)

	for x=rx to rx+5
		for y= worldsizey-ground to worldsizey-5
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
	for x=rx+5 to rx+15
		for y= worldsizey-ground to worldsizey-ground
			col=MakeColor(0,200,200)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+5 to rx+15
		for y= worldsizey-ground+1 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// levelup path
	for x=rx+5 to screenwidth-5
		for y= worldsizey-10 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+ground-15 to rx+ground-10
		for y= worldsizey-ground to worldsizey-10
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next



	for x=rx to screenwidth-5
		for y= worldsizey-5 to worldsizey-2
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
			
			DrawBox(x+15,y-10,x+15+1,y-10+1,col,col,col,col,1)

		next
	next




	homex=rx+5
	homey=ry+10
	worldpositionx=-homex

render()

mapspriteimage = getimage(0,0,screenwidth,worldsizey)

mapsprite = CreateSprite(mapspriteimage)

smallermapsprite=CloneSprite(mapsprite)

mapspritememblock = CreateMemblockFromImage(mapspriteimage) // for pixel work

initialisetime()
endfunction

// Project: particleexplosion 
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "particleexplosion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts




frametime#=timer()
do
		if GetRawMouseLeftPressed()
			p = CreateParticles(getpointerx(),getpointery())
			life#=2
			SetParticlesSize(p,1)
			SetParticlesLife(p,life#)
			SetParticlesFrequency(p,100)
			SetParticlesColorInterpolation(p,1)
			AddParticlesColorKeyFrame(p,1,255,0,0,255)
			AddParticlesColorKeyFrame(p,2,100,0,0,255)
			AddParticlesColorKeyFrame(p,3,0,0,0,0)
			SetParticlesVelocityRange(p,1,4)
		endif

	if GetParticlesExists(p)
		dec life#,.001
		SetParticlesLife(p,life#)
	endif
		

    Print( ScreenFPS() )
    Sync()
loop

// Project: particleexplosion 
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "particleexplosion" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts




do
		if GetRawMouseLeftPressed()
			p = CreateParticles(getpointerx(),getpointery())
			life#=.5
			
			SetParticlesSize(p,1)
			SetParticlesLife(p,life#)
			SetParticlesFrequency(p,500)
			AddParticlesColorKeyFrame(p,.1,0,0,255,255)
			AddParticlesColorKeyFrame(p,.2,0,0,100,255)
			AddParticlesColorKeyFrame(p,.3,255,255,255,255)
			AddParticlesColorKeyFrame(p,.4,255,0,0,255)
			AddParticlesColorKeyFrame(p,.5,0,0,0,0)
			SetParticlesVelocityRange(p,4,8)
			frametime#=timer()
			
		endif

	if timer()-frametime#>.5
		frametime#=timer()
		
		if GetParticlesExists(p) then SetParticlesFrequency(p,0)
	endif
		

    Print( ScreenFPS() )
    Sync()
loop

// Project: Followers Revenge
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=640
#constant screenheight=480
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Followers Revenge" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global timetext,actiontext,actiontextshadow,intext,outtext // createtext variables

global mapsprite,smallermapsprite,mapspritememblock, mouse, mapspriteimage, explosionparticle // map and memblock image variables



global worldsizex, worldsizey, worldpositionx // world positioning variables

global time, in, out, frametimer#, homex, homey, currentactionselected // counter variables

global leveluptext, levelreset, level // level variables

type _actionimages
	spr
	counter
	countertextid
	
endtype
global actionimages as _actionimages[10]

type _follower
	spr
	x#
	y#
	speed#
	explodingtext
	explodingtime
	explosionparticle
	expldingframetime#
	direction // 0=left, 1 = right
	action$
	actionframestep# // this is a timer of when to do the actions - maybe perhaps ever half a second
endtype
global followers as _follower[]

type _levelimagecolours
	tcred
	tcgreen
	tcblue
	bcred
	bcgreen
	bcblue
	howmanyfollowersthislevel
endtype
global levelimagecolours as _levelimagecolours[]

worldsizey=155

initialisetext()

setuplevelimages()

level=1

buildlevel(level)






do
	// this app works on the X axis
    displaymap(worldpositionx)
	
	// updpate and move followers
	updatefollowers()
	
	
	// checkmousecollisionchecks and set actions
	checkcollisionwithmouse()
	
	
	checkkeypresses()
	
	
	
	checktime()
	
	checkleveluporreset()
	
	Render2DFront()
    Print( ScreenFPS() )
    print (GetRawLastKey())
    
    Sync()
loop

function checkleveluporreset()
	
	if levelreset=0 // in play
		if out=0 and in>0 
			print("LEVELUP")
			sync()
			sleep(2000)
		endif
	else
		if out=0 // all destroyed
			dispose()
			initialisetext()
			buildlevel(level)
			levelreset=0
					
		endif
	endif
		
	
endfunction

function checkcollisionwithmouse()

	for act=0 to 8
		if GetSpriteCollision(mouse,actionimages[0].spr) and GetRawMouseLeftPressed() // Explode all and reset level
			for a=0 to followers.length
				followers[a].action$="Exploder"
			next
			levelreset=1
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr)
	print(a)
			ax=GetSpriteX(actionimages[act].spr)-2
			ay=GetSpriteY(actionimages[act].spr)-2
			tax=GetSpriteWidth(actionimages[act].spr)+4
			tay=GetSpriteHeight(actionimages[act].spr)+4
		
			col=MakeColor(255,0,0)

			DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
			
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr) and GetRawMouseLeftPressed()
			currentactionselected=act
		endif
		
	next
	// draw box around the current selected action 
	ax=GetSpriteX(actionimages[currentactionselected].spr)-2
	ay=GetSpriteY(actionimages[currentactionselected].spr)-2
	tax=GetSpriteWidth(actionimages[currentactionselected].spr)+4
	tay=GetSpriteHeight(actionimages[currentactionselected].spr)+4
		
	col=MakeColor(255,0,0)

	DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
	
	
	for a=0 to followers.length
		
		if GetSpriteCollision(mouse,followers[a].spr) = 1
			//update the name of the follower
	
			SetTextString(actiontext,followers[a].action$ + " " + str(a))
			SetTextString(actiontextshadow,followers[a].action$ + " " + str(a))
		
			SetTextPosition(actiontext,10,350)
			SetTextPosition(actiontextshadow,8,348)
			
			
			// if we left click then change action to a digger as long as not floating
			if currentactionselected=1 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Digger"
				followers[a].action$="Digger"
				dec actionimages[1].counter
			endif

			// if we right click then change action to a builder as long as not floating
			if currentactionselected=2 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Builder"
				followers[a].action$="Builder"
				dec actionimages[2].counter
			endif


			// if we press Space whilst on them - they explode
			if currentactionselected=3 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed() and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Exploder"
				followers[a].action$="Exploder"
				dec actionimages[3].counter
			endif

		else
//			SetTextString(actiontext,"")
	//		SetTextString(actiontextshadow,"")
			
		endif
		
	next
	
endfunction

function updatefollowers()
	
	for a=0 to followers.length


		// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
		if GetSpriteVisible(followers[a].spr) =1 and checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,200,200) // in space
			
			SetSpriteVisible(followers[a].spr,0)
			inc in
			dec out
			
			
		endif

		// check the centre X and the bottom of the sprite
		if checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,0,0) // in space
			
			// if follower is "Building" then the position is moved by the Building routine
			if followers[a].action$<>"Builder" or followers[a].action$="Walker"
				inc followers[a].y#,followers[a].speed#
			endif
			
		else
			// if was just been floating then change a walker, cause dont want to upset the other actions
			if followers[a].action$="Floater" then followers[a].action$="Walker"
			
		endif

		if followers[a].action$="Walker"
			// move left or right
			if followers[a].direction=1
			// go right
				inc followers[a].x#,followers[a].speed#
			else
			// go left
				dec followers[a].x#,followers[a].speed#
			endif
		endif



		/// hit something so dont carry on going down - automatically go right

		if followers[a].action$="Digger"
		// dig earth directly down
					
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
					
				
				followers[a].actionframestep#=timer()
				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				
			endif
			
		// destroy earth
		
		endif


		if followers[a].action$="Exploder" and GetSpriteVisible(followers[a].spr)=1
		// Explode the little fellow
					
			SetTextPosition(followers[a].explodingtext, followers[a].x#+worldpositionx,followers[a].y#-10)

			if GetParticlesExists(followers[a].explosionparticle) then SetParticlesPosition(followers[a].explosionparticle,followers[a].x#+worldpositionx+GetSpriteWidth(followers[a].spr)/2,followers[a].y#+GetSpriteHeight(followers[a].spr)/2)
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
				SetSpriteColor(followers[a].spr,255,0,0,255)	
				SetTextString(followers[a].explodingtext,str(followers[a].explodingtime))
				followers[a].actionframestep#=timer()
//				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				if followers[a].explodingtime=0
					followers[a].explodingtime=1000
					explodearea(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))

					generateexplosion(a, followers[a].x#+worldpositionx,followers[a].y#)
					

			//		SetTextVisible(followers[a].explodingtext,0)
					
			//		SetSpriteVisible(followers[a].spr,0)
				endif
				dec followers[a].explodingtime

			endif
			
		// destroy earth
		
		endif

		
		
		if followers[a].action$="Builder"
		// build new platforms in the direction is going and up one pixel

			
				dec followers[a].y#,followers[a].speed#/50.0
				
				if followers[a].direction=-1
							
					dec followers[a].x#,followers[a].speed#/10
			
				else
					inc followers[a].x#,followers[a].speed#/10
			
			
				endif



			// add a platform undernear of follower
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
						
				followers[a].actionframestep#=timer()
				setplatform(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y#+GetSpriteHeight(followers[a].spr))
			endif
			
		endif
			


		// check the centre Y and the left of the sprite to see if hit a wall on the left
		if checkpixels(followers[a].x#,followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		// check the centre Y and the right of the sprite to see if hit a wall on the right
		if checkpixels(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		
		
	next
endfunction

function generateexplosion(followerid, x,y)
//sleep(100)
	followers[followerid].explosionparticle = CreateParticles(x,y)
			life#=1
			
			SetParticlesSize(followers[followerid].explosionparticle,2)
			SetParticlesLife(followers[followerid].explosionparticle,life#)
			SetParticlesColorInterpolation(followers[followerid].explosionparticle,1)
			SetParticlesFrequency(followers[followerid].explosionparticle,1000)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.1,0,0,255,255)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.2,255,255,0,200)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.3,255,0,0,100)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.4,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.5,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.6,200,200,200,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.7,100,100,100,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.8,0,0,0,0)
			SetParticlesVelocityRange(followers[followerid].explosionparticle,0,4)
	followers[followerid].expldingframetime#=timer()
			
endfunction
function explodearea(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=30
	for yy=y to y+20

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 


function dighole(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=10
	for yy=y to y+3 

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 

	
function setplatform(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)

// make a nice depth platform of 2 pixls down
	for xx=x-5 to x+5	
		for yy=y to y+2
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(mapspritememblock,offset,0)
			SetMemblockInt(mapspritememblock,offset+1,random(200,255)) // a nice shade of green
			SetMemblockInt(mapspritememblock,offset+2,0)
			SetMemblockInt(mapspritememblock,offset+3,255)
		next
	next
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction

function checkpixels(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
	
	offset = 12 + ((y * width) + x) * 4
	if offset<GetMemblockSize(mapspritememblock)
		r=GetMemblockInt(mapspritememblock,offset)
		g=GetMemblockInt(mapspritememblock,offset+1)
		b=GetMemblockInt(mapspritememblock,offset+2)
		a=GetMemblockInt(mapspritememblock,offset+3)
	
		col = MakeColor(r,g,b)
	
		
	endif
	
endfunction col

function addfollower()

	if out<levelimagecolours[level-1].howmanyfollowersthislevel
		follower as _follower
		follower.spr =CreateSprite(0)
		follower.x# = screenwidth/2 
		follower.y# = homey
		follower.direction=1 // automatically go right when start
		follower.speed#=.2
		follower.action$="Floater"
		follower.actionframestep#=timer()
		follower.explodingtime=5
		follower.explodingtext = CreateText(str(follower.explodingtime))
		SetTextSize(follower.explodingtext,10)
		SetSpriteColor(follower.spr,0,0,255,255)
		SetSpritePosition(follower.spr,follower.x#,follower.y#)
		
		followers.insert(follower)

		inc out
	endif
endfunction

function initialisetime()
	time=500

//	worldpositionx=-screenwidth/2
	frametimer#=timer()
endfunction

function checktime()

	for a=0 to followers.length

		if (timer()-followers[a].expldingframetime#)>1


			if GetParticlesExists(followers[a].explosionparticle)
				SetParticlesFrequency(followers[a].explosionparticle,0)
				DeleteParticles(followers[a].explosionparticle)
				SetSpriteVisible(followers[a].spr,0)
				SetTextVisible(followers[a].explodingtext,0)
				dec out
			endif
		endif
	next

	if (levelreset=0) and (timer()-frametimer#)>1 
		frametimer#=timer()
		addfollower()
		
		dec time
		
		settextstring(timetext,"Time " + str(time))
	endif
endfunction


function checkkeypresses()

	// if move mouse to the left or right side of screen then move the viewport - same if press the < or > cursors
	
	if getpointerx()<10 then inc worldpositionx
	if getpointerx()>screenwidth-10 then dec worldpositionx
	if GetRawKeyState(37) then dec worldpositionx
	if GetRawKeyState(39) then inc worldpositionx



// press space to add a follower
	if GetRawKeyPressed(32)
		addfollower()
	endif

	
	
	if GetRawKeyPressed(27) then end

endfunction

function displaymap(worldpositionx)
	
	SetSpritePosition(mouse,getpointerx(),getpointery())
	SetSpritePosition(mapsprite,worldpositionx,0)


	SetTextString(outtext,"Out " + str(out))
	SetTextPosition(outtext,200,350)
	
	
	SetTextString(intext,"In " + str(in))
	SetTextPosition(intext,400,350)
	SetTextPosition(timetext,550,350)


// move the followers according the position X on where the map is
	for a=0 to followers.length
		SetSpritePosition(followers[a].spr,followers[a].x#+worldpositionx,followers[a].y#)
	next

	SetTextPosition(leveluptext,screenwidth*2+100 + worldpositionx,315)

	
	SetSpritePosition(smallermapsprite,500,400)
	SetSpriteSize(smallermapsprite,200,50)

// draw box around the smaller map according to where you are on the map
	col=MakeColor(255,255,255)
	
	DrawBox(500+worldpositionx,400,500+worldpositionx+50,450,col,col,col,col,0)
	

	for a=0 to 8

		SetSpritePosition(actionimages[a].spr,10+a*38,400)
		
		SetTextString(actionimages[a].countertextid,str(actionimages[a].counter))
		SetTextPosition(actionimages[a].countertextid,10+a*38,380)
		SetSpriteSize(actionimages[a].spr,32,32)
		SetSpriteDepth(actionimages[a].spr,0)
	next
	


endfunction


function initialisetext()

	swap()
		DrawLine(0,4,8,4,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(4,0,4,8,MakeColor(255,255,255),MakeColor(255,255,255))
	render()
	mouse=CreateSprite(GetImage(0,0,8,8))	
	SetSpriteDepth(mouse,0)
	SetRawMouseVisible(0)



	leveluptext = CreateText("Level Up")
	SetTextSize(leveluptext,12)
	
	
	actiontext= CreateText("Digger 01")
	SetTextSize(actiontext,30)
	SetTextColor(actiontext,0,200,0,255)
	SetTextBold(actiontext,1)

	actiontextshadow= CreateText("Digger 01")
	SetTextSize(actiontextshadow,31)
	SetTextColor(actiontextshadow,0,255,0,255)
	SetTextBold(actiontextshadow,1)
	SetTextDepth(actiontext,0)
	SetTextDepth(actiontextshadow,1)



	outtext= CreateText("Out 0")
	SetTextSize(outtext,30)
	SetTextColor(outtext,0,200,0,255)
	SetTextBold(outtext,1)


	intext= CreateText("In 0%")
	SetTextSize(intext,30)
	SetTextColor(intext,0,200,0,255)
	SetTextBold(intext,1)

	timetext= CreateText("Time")
	SetTextSize(timetext,30)
	SetTextColor(timetext,0,200,0,255)
	SetTextBold(timetext,1)


	
	actionimages[0].spr=createsprite(LoadImage("\media\action_explodeall.png"))
	actionimages[1].spr=createsprite(LoadImage("\media\action_dig.png"))
	actionimages[2].spr=createsprite(LoadImage("\media\action_build.png"))
	actionimages[3].spr=createsprite(LoadImage("\media\action_explode.png"))
	actionimages[4].spr=createsprite(LoadImage("\media\action_climb.png"))
	actionimages[5].spr=createsprite(LoadImage("\media\action_float.png"))
	actionimages[6].spr=createsprite(LoadImage("\media\action_stopper.png"))
	actionimages[7].spr=createsprite(LoadImage("\media\action_bazooker.png"))
	actionimages[8].spr=createsprite(LoadImage("\media\action_mine.png"))
	
	for a=0 to 8
		actionimages[a].counter=99
		actionimages[a].countertextid=CreateText(str(actionimages[a].counter))
		SetTextSize(actionimages[a].countertextid,12)
	next

endfunction

function dispose()
	
	DeleteAllImages()
	DeleteAllObjects()
	DeleteAllSprites()
	DeleteAllText()

	followers.length=-1
	actionimages.length=-1

endfunction

function buildlevel(level)
	
	
	ground=30
	swap()
	// blank out the mouse we just made
		DrawBox(0,0,screenwidth,worldsizey,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	for a=0 to level * 30
		rx=random(0,screenwidth)
		ry=random(100,worldsizey)
		size=random(10,50)
		tlc=MakeColor(0,200,0)
		trc=tlc
		blc=tlc
		brc=tlc
		
		// draw random boxes in the air	
		for x=rx to rx+size
			for y=ry to ry+size
				if y<ry+random(5,7)
					
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					
					col = MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
		
		

	next
	
	
		// draw the ground		
		for x=5 to screenwidth-5
			for y=worldsizey-ground to worldsizey
				if y<worldsizey-ground+random(5,7)
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
	


// create entry point
	rx=random(5,screenwidth-50)

	for x=rx to rx+5
		for y= worldsizey-ground to worldsizey-5
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
	for x=rx+5 to rx+15
		for y= worldsizey-ground to worldsizey-ground
			col=MakeColor(0,200,200)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+5 to rx+15
		for y= worldsizey-ground+1 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// levelup path
	for x=rx+5 to screenwidth-5
		for y= worldsizey-10 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+ground-15 to rx+ground-10
		for y= worldsizey-ground to worldsizey-10
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next



	for x=rx to screenwidth-5
		for y= worldsizey-5 to worldsizey-2
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
			
			DrawBox(x+15,y-10,x+15+1,y-10+1,col,col,col,col,1)

		next
	next




	homex=rx+5
	homey=ry+10
	worldpositionx=-homex

render()

mapspriteimage = getimage(0,0,screenwidth,worldsizey)

mapsprite = CreateSprite(mapspriteimage)

smallermapsprite=CloneSprite(mapsprite)

mapspritememblock = CreateMemblockFromImage(mapspriteimage) // for pixel work

initialisetime()
endfunction



function setuplevelimages()
	i as _levelimagecolours
	i.tcred=0
	i.tcgreen=150
	i.tcblue=0
	
	i.bcred=200
	i.bcgreen=100
	i.tcblue=0
	
	i.howmanyfollowersthislevel=10
	
	levelimagecolours.insert(i)
	
	
	
endfunction

// Project: Followers Revenge
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=640
#constant screenheight=480
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Followers Revenge" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global timetext,actiontext,actiontextshadow,intext,outtext // createtext variables

global mapsprite,smallermapsprite,mapspritememblock, mouse, mapspriteimage, explosionparticle // map and memblock image variables



global worldsizex, worldsizey, worldpositionx // world positioning variables

global time, in, out, frametimer#, homex, homey, currentactionselected // counter variables

global leveluptext, levelreset, level // level variables

type _actionimages
	spr
	counter
	countertextid
	
endtype
global actionimages as _actionimages[10]

type _follower
	spr
	x#
	y#
	speed#
	explodingtext
	explodingtime
	explosionparticle
	expldingframetime#
	direction // 0=left, 1 = right
	action$
	actionframestep# // this is a timer of when to do the actions - maybe perhaps ever half a second
endtype
global followers as _follower[]

type _levelimagecolours
	tcred
	tcgreen
	tcblue
	bcred
	bcgreen
	bcblue
	howmanyfollowersthislevel
endtype
global levelimagecolours as _levelimagecolours[]

worldsizey=155

initialise()


level=0

levelup()





do
	// this app works on the X axis
    displaymap(worldpositionx)
	
	// updpate and move followers
	updatefollowers()
	
	
	// checkmousecollisionchecks and set actions
	checkcollisionwithmouse()
	
	
	checkkeypresses()
	
	
	
	checktime()
	
	checkleveluporreset()
	
	Render2DFront()
    Print( ScreenFPS() )
    print (GetRawLastKey())
    
    Sync()
loop

function checkleveluporreset()
	
	if levelreset=0 // in play
		if out=0 and in>0 
			print("LEVELUP")
			sync()
			sleep(2000)
		endif
	else
		if out=0 // all destroyed
			dispose()
			initialise()
			buildlevel(level)
			levelreset=0
					
		endif
	endif
		
	
endfunction

function checkcollisionwithmouse()

	for act=0 to 8
		if GetSpriteCollision(mouse,actionimages[0].spr) and GetRawMouseLeftPressed() // Explode all and reset level
			for a=0 to followers.length
				followers[a].action$="Exploder"
			next
			levelreset=1
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr)
	print(a)
			ax=GetSpriteX(actionimages[act].spr)-2
			ay=GetSpriteY(actionimages[act].spr)-2
			tax=GetSpriteWidth(actionimages[act].spr)+4
			tay=GetSpriteHeight(actionimages[act].spr)+4
		
			col=MakeColor(255,0,0)

			DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
			
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr) and GetRawMouseLeftPressed()
			currentactionselected=act
		endif
		
	next
	// draw box around the current selected action 
	ax=GetSpriteX(actionimages[currentactionselected].spr)-2
	ay=GetSpriteY(actionimages[currentactionselected].spr)-2
	tax=GetSpriteWidth(actionimages[currentactionselected].spr)+4
	tay=GetSpriteHeight(actionimages[currentactionselected].spr)+4
		
	col=MakeColor(255,0,0)

	DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
	
	
	for a=0 to followers.length
		
		if GetSpriteCollision(mouse,followers[a].spr) = 1
			//update the name of the follower
	
			SetTextString(actiontext,followers[a].action$ + " " + str(a))
			SetTextString(actiontextshadow,followers[a].action$ + " " + str(a))
		
			SetTextPosition(actiontext,10,350)
			SetTextPosition(actiontextshadow,8,348)
			
			
			// if we left click then change action to a digger as long as not floating
			if currentactionselected=1 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Digger"
				followers[a].action$="Digger"
				dec actionimages[1].counter
			endif

			// if we right click then change action to a builder as long as not floating
			if currentactionselected=2 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Builder"
				followers[a].action$="Builder"
				dec actionimages[2].counter
			endif


			// if we press Space whilst on them - they explode
			if currentactionselected=3 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed() and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Exploder"
				followers[a].action$="Exploder"
				dec actionimages[3].counter
			endif

		else
//			SetTextString(actiontext,"")
	//		SetTextString(actiontextshadow,"")
			
		endif
		
	next
	
endfunction

function updatefollowers()
	
	for a=0 to followers.length


		// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
		if GetSpriteVisible(followers[a].spr) =1 and checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,200,200) // in space
			
			SetSpriteVisible(followers[a].spr,0)
			inc in
			dec out
			
			
		endif

		// check the centre X and the bottom of the sprite
		if checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,0,0) // in space
			
			// if follower is "Building" then the position is moved by the Building routine
			if followers[a].action$<>"Builder" or followers[a].action$="Walker"
				inc followers[a].y#,followers[a].speed#
			endif
			
		else
			// if was just been floating then change a walker, cause dont want to upset the other actions
			if followers[a].action$="Floater" then followers[a].action$="Walker"
			
		endif

		if followers[a].action$="Walker"
			// move left or right
			if followers[a].direction=1
			// go right
				inc followers[a].x#,followers[a].speed#
			else
			// go left
				dec followers[a].x#,followers[a].speed#
			endif
		endif



		/// hit something so dont carry on going down - automatically go right

		if followers[a].action$="Digger"
		// dig earth directly down
					
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
					
				
				followers[a].actionframestep#=timer()
				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				
			endif
			
		// destroy earth
		
		endif


		if followers[a].action$="Exploder" and GetSpriteVisible(followers[a].spr)=1
		// Explode the little fellow
					
			SetTextPosition(followers[a].explodingtext, followers[a].x#+worldpositionx,followers[a].y#-10)

			if GetParticlesExists(followers[a].explosionparticle) then SetParticlesPosition(followers[a].explosionparticle,followers[a].x#+worldpositionx+GetSpriteWidth(followers[a].spr)/2,followers[a].y#+GetSpriteHeight(followers[a].spr)/2)
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
				SetSpriteColor(followers[a].spr,255,0,0,255)	
				SetTextString(followers[a].explodingtext,str(followers[a].explodingtime))
				followers[a].actionframestep#=timer()
//				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				if followers[a].explodingtime=0
					followers[a].explodingtime=1000
					explodearea(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))

					generateexplosion(a, followers[a].x#+worldpositionx,followers[a].y#)
					

			//		SetTextVisible(followers[a].explodingtext,0)
					
			//		SetSpriteVisible(followers[a].spr,0)
				endif
				dec followers[a].explodingtime

			endif
			
		// destroy earth
		
		endif

		
		
		if followers[a].action$="Builder"
		// build new platforms in the direction is going and up one pixel

			
				dec followers[a].y#,followers[a].speed#/50.0
				
				if followers[a].direction=-1
							
					dec followers[a].x#,followers[a].speed#/10
			
				else
					inc followers[a].x#,followers[a].speed#/10
			
			
				endif



			// add a platform undernear of follower
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
						
				followers[a].actionframestep#=timer()
				setplatform(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y#+GetSpriteHeight(followers[a].spr))
			endif
			
		endif
			


		// check the centre Y and the left of the sprite to see if hit a wall on the left
		if checkpixels(followers[a].x#,followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		// check the centre Y and the right of the sprite to see if hit a wall on the right
		if checkpixels(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		
		
	next
endfunction

function generateexplosion(followerid, x,y)
//sleep(100)
	followers[followerid].explosionparticle = CreateParticles(x,y)
			life#=1
			
			SetParticlesSize(followers[followerid].explosionparticle,2)
			SetParticlesLife(followers[followerid].explosionparticle,life#)
			SetParticlesColorInterpolation(followers[followerid].explosionparticle,1)
			SetParticlesFrequency(followers[followerid].explosionparticle,1000)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.1,0,0,255,255)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.2,255,255,0,200)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.3,255,0,0,100)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.4,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.5,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.6,200,200,200,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.7,100,100,100,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.8,0,0,0,0)
			SetParticlesVelocityRange(followers[followerid].explosionparticle,0,4)
	followers[followerid].expldingframetime#=timer()
			
endfunction
function explodearea(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=30
	for yy=y to y+20

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 


function dighole(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=10
	for yy=y to y+3 

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 

	
function setplatform(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)

// make a nice depth platform of 2 pixls down
	for xx=x-5 to x+5	
		for yy=y to y+2
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(mapspritememblock,offset,0)
			SetMemblockInt(mapspritememblock,offset+1,random(200,255)) // a nice shade of green
			SetMemblockInt(mapspritememblock,offset+2,0)
			SetMemblockInt(mapspritememblock,offset+3,255)
		next
	next
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction

function checkpixels(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
	
	offset = 12 + ((y * width) + x) * 4
	if offset<GetMemblockSize(mapspritememblock)
		r=GetMemblockInt(mapspritememblock,offset)
		g=GetMemblockInt(mapspritememblock,offset+1)
		b=GetMemblockInt(mapspritememblock,offset+2)
		a=GetMemblockInt(mapspritememblock,offset+3)
	
		col = MakeColor(r,g,b)
	
		
	endif
	
endfunction col

function addfollower()

	if out<levelimagecolours[level-1].howmanyfollowersthislevel
		follower as _follower
		follower.spr =CreateSprite(0)
		follower.x# = screenwidth/2 
		follower.y# = homey
		follower.direction=1 // automatically go right when start
		follower.speed#=.2
		follower.action$="Floater"
		follower.actionframestep#=timer()
		follower.explodingtime=5
		follower.explodingtext = CreateText(str(follower.explodingtime))
		SetTextSize(follower.explodingtext,10)
		SetSpriteColor(follower.spr,0,0,255,255)
		SetSpritePosition(follower.spr,follower.x#,follower.y#)
		
		followers.insert(follower)

		inc out
	endif
endfunction

function initialisetime()
	time=500

//	worldpositionx=-screenwidth/2
	frametimer#=timer()
endfunction

function checktime()

	for a=0 to followers.length

		if (timer()-followers[a].expldingframetime#)>1


			if GetParticlesExists(followers[a].explosionparticle)
				SetParticlesFrequency(followers[a].explosionparticle,0)
				DeleteParticles(followers[a].explosionparticle)
				SetSpriteVisible(followers[a].spr,0)
				SetTextVisible(followers[a].explodingtext,0)
				dec out
			endif
		endif
	next

	if (levelreset=0) and (timer()-frametimer#)>1 
		frametimer#=timer()
		addfollower()
		
		dec time
		
		settextstring(timetext,"Time " + str(time))
	endif
endfunction


function checkkeypresses()

	// if move mouse to the left or right side of screen then move the viewport - same if press the < or > cursors
	
	if getpointerx()<10 then inc worldpositionx
	if getpointerx()>screenwidth-10 then dec worldpositionx
	if GetRawKeyState(37) then dec worldpositionx
	if GetRawKeyState(39) then inc worldpositionx

	if GetRawKeyPressed(76) //L
		levelup()
	endif


// press space to add a follower
	if GetRawKeyPressed(32)
		addfollower()
	endif

	
	
	if GetRawKeyPressed(27) then end

endfunction

function levelup()

	alphafade=255
	
	repeat
		if GetSpriteExists(mapsprite)=1 then SetSpriteColor(mapsprite,GetSpriteColorRed(mapsprite),GetSpriteColorGreen(mapsprite),GetSpriteColorBlue(mapsprite),alphafade)
		
		dec alphafade,2
		sync()
	until alphafade<0
	
	inc level
	dispose()
	initialise()

	buildlevel(level)
	repeat
		SetSpriteColor(mapsprite,GetSpriteColorRed(mapsprite),GetSpriteColorGreen(mapsprite),GetSpriteColorBlue(mapsprite),alphafade)
		
		inc alphafade,2
		sync()
	until alphafade>255
	
	
	
	
endfunction

function displaymap(worldpositionx)
	
	SetSpritePosition(mouse,getpointerx(),getpointery())
	SetSpritePosition(mapsprite,worldpositionx,0)


	SetTextString(outtext,"Out " + str(out))
	SetTextPosition(outtext,200,350)
	
	
	SetTextString(intext,"In " + str(in))
	SetTextPosition(intext,400,350)
	SetTextPosition(timetext,550,350)


// move the followers according the position X on where the map is
	for a=0 to followers.length
		SetSpritePosition(followers[a].spr,followers[a].x#+worldpositionx,followers[a].y#)
	next

	SetTextPosition(leveluptext,screenwidth*2+100 + worldpositionx,315)

	
	SetSpritePosition(smallermapsprite,500,400)
	SetSpriteSize(smallermapsprite,200,50)

// draw box around the smaller map according to where you are on the map
	col=MakeColor(255,255,255)
	
	DrawBox(500+worldpositionx,400,500+worldpositionx+50,450,col,col,col,col,0)
	

	for a=0 to 8

		SetSpritePosition(actionimages[a].spr,10+a*38,400)
		
		SetTextString(actionimages[a].countertextid,str(actionimages[a].counter))
		SetTextPosition(actionimages[a].countertextid,10+a*38,380)
		SetSpriteSize(actionimages[a].spr,32,32)
		SetSpriteDepth(actionimages[a].spr,0)
	next
	


endfunction


function initialise()

	swap()
		DrawLine(0,4,8,4,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(4,0,4,8,MakeColor(255,255,255),MakeColor(255,255,255))
	render()
	mouse=CreateSprite(GetImage(0,0,8,8))	
	SetSpriteDepth(mouse,0)
	SetRawMouseVisible(0)



	leveluptext = CreateText("Level Up")
	SetTextSize(leveluptext,12)
	
	
	actiontext= CreateText("Digger 01")
	SetTextSize(actiontext,30)
	SetTextColor(actiontext,0,200,0,255)
	SetTextBold(actiontext,1)

	actiontextshadow= CreateText("Digger 01")
	SetTextSize(actiontextshadow,31)
	SetTextColor(actiontextshadow,0,255,0,255)
	SetTextBold(actiontextshadow,1)
	SetTextDepth(actiontext,0)
	SetTextDepth(actiontextshadow,1)



	outtext= CreateText("Out 0")
	SetTextSize(outtext,30)
	SetTextColor(outtext,0,200,0,255)
	SetTextBold(outtext,1)


	intext= CreateText("In 0%")
	SetTextSize(intext,30)
	SetTextColor(intext,0,200,0,255)
	SetTextBold(intext,1)

	timetext= CreateText("Time")
	SetTextSize(timetext,30)
	SetTextColor(timetext,0,200,0,255)
	SetTextBold(timetext,1)


	
	actionimages[0].spr=createsprite(LoadImage("\media\action_explodeall.png"))
	actionimages[1].spr=createsprite(LoadImage("\media\action_dig.png"))
	actionimages[2].spr=createsprite(LoadImage("\media\action_build.png"))
	actionimages[3].spr=createsprite(LoadImage("\media\action_explode.png"))
	actionimages[4].spr=createsprite(LoadImage("\media\action_climb.png"))
	actionimages[5].spr=createsprite(LoadImage("\media\action_float.png"))
	actionimages[6].spr=createsprite(LoadImage("\media\action_stopper.png"))
	actionimages[7].spr=createsprite(LoadImage("\media\action_bazooker.png"))
	actionimages[8].spr=createsprite(LoadImage("\media\action_mine.png"))
	
	for a=0 to 8
		actionimages[a].counter=99
		actionimages[a].countertextid=CreateText(str(actionimages[a].counter))
		SetTextSize(actionimages[a].countertextid,12)
	next

	setuplevelimages()


endfunction

function dispose()
	
	DeleteAllImages()
	DeleteAllObjects()
	DeleteAllSprites()
	DeleteAllText()

	followers.length=-1

endfunction

function buildlevel(level)
	
	
	ground=30
	swap()
	// blank out the mouse we just made
		DrawBox(0,0,screenwidth,worldsizey,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	for a=0 to level * 30
		rx=random(0,screenwidth)
		ry=random(100-(level*2),worldsizey)
		
		size=random(10,11+(level*2))
		
		tlc=MakeColor(0,200,0)
		trc=tlc
		blc=tlc
		brc=tlc
		
		// draw random boxes in the air	
		for x=rx to rx+size
			for y=ry to ry+size
				if y<ry+random(5,7)
					
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					
					col = MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
		
		

	next
	
	
		// draw the ground		
		for x=5 to screenwidth-5
			for y=worldsizey-ground to worldsizey
				if y<worldsizey-ground+random(5,7)
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
	


// create entry point
	rx=random(5,screenwidth-50)

	for x=rx to rx+5
		for y= worldsizey-ground to worldsizey-5
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
	for x=rx+5 to rx+15
		for y= worldsizey-ground to worldsizey-ground
			col=MakeColor(0,200,200)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+5 to rx+15
		for y= worldsizey-ground+1 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// levelup path
	for x=rx+5 to screenwidth-5
		for y= worldsizey-10 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+ground-15 to rx+ground-10
		for y= worldsizey-ground to worldsizey-10
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next



	for x=rx to screenwidth-5
		for y= worldsizey-5 to worldsizey-2
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
			
			DrawBox(x+15,y-10,x+15+1,y-10+1,col,col,col,col,1)

		next
	next




	homex=rx+5
	homey=ry+10
	
	// reset position of the world sprite
	worldpositionx=-homex

render()

mapspriteimage = getimage(0,0,screenwidth,worldsizey)

mapsprite = CreateSprite(mapspriteimage)
SetSpriteColorAlpha(mapsprite,0)
SetSpritePosition(mapsprite,worldpositionx,0)

smallermapsprite=CloneSprite(mapsprite)

mapspritememblock = CreateMemblockFromImage(mapspriteimage) // for pixel work

initialisetime()
endfunction



function setuplevelimages()
	i as _levelimagecolours

	for a=0 to 10 // 10 levels

// top shade
		i.tcred=random(200,255)
		i.tcgreen=random(200,255)
		i.tcblue=random(200,255)

// a darker shade of the top	
		i.bcred=i.tcred-50
		i.bcgreen=i.tcgreen-50
		i.bcblue=i.tcblue-50
	
		i.howmanyfollowersthislevel=(a+1) * 10
		levelimagecolours.insert(i)

	next
	out=0
	in=0


	
	
	
endfunction

// Project: Followers Revenge
// Created: 2018-12-28

// show all errors
SetErrorMode(2)

#constant screenwidth=640
#constant screenheight=480
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "Followers Revenge" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global timetext,actiontext,actiontextshadow,intext,outtext // createtext variables

global mapsprite,smallermapsprite,mapspritememblock, mouse, mapspriteimage, explosionparticle // map and memblock image variables




global worldsizex, worldsizey, worldpositionx // world positioning variables

global time, in, out, frametimer#, homex, homey, currentactionselected
global game_mode=-1 // -1 running, 1 - paused (switched with game_mode=-game_mode

global leveluptext, levelreset, level // level variables

type _actionimages
	spr
	counter
	countertextid
	
endtype
global actionimages as _actionimages[10]

type _follower
	spr
	x#
	y#
	speed#
	explodingtext
	explodingtime
	explosionparticle
	expldingframetime#
	direction // 0=left, 1 = right
	action$
	actioncount // counter to perform each action - each follow only has a certain amount of tools / energy to comeplete an action
	actionframestep# // this is a timer of when to do the actions - maybe perhaps ever half a second
endtype
global followers as _follower[]

type _levelimagecolours
	tcred
	tcgreen
	tcblue
	bcred
	bcgreen
	bcblue
	howmanyfollowersthislevel
endtype
global levelimagecolours as _levelimagecolours[]

worldsizey=155

level=1


initialise()


music = LoadMusic("\media\overworld.mp3")
PlayMusic(music)




levelup()





do
	print(game_mode)
	if GAME_MODE=-1
		// this app works on the X axis
		displaymap(worldpositionx)
	
		// updpate and move followers
		updatefollowers()
	
	
		// checkmousecollisionchecks and set actions
		checkcollisionwithmouse()
	
	
		checkkeypresses()
	
	
	
		checktime()
	
		checkleveluporreset()
	else
		// paused
		if GetTextExists(pause)=0 then pause = createtext("Paused")
		if GetTextExists(cont)=0 then cont = createtext("Press Left Mouse Button to Continue")
		settextsize(pause,60)
		SetTextSize(cont,30)
		alphafade=255
		repeat
			SetSpriteColorAlpha(mapsprite,alphafade)
			SetSpriteColorAlpha(smallermapsprite,alphafade)
			
			for a=0 to followers.length
				SetSpriteColorAlpha(followers[a].spr,alphafade)
			next
			
			for a=0 to 9
				SetSpriteColorAlpha(actionimages[a].spr,alphafade)
			next
			
			
			SetTextPosition(pause,screenwidth/2-GetTextTotalWidth(pause)/2,screenheight/2-GetTextTotalHeight(pause)/2)
			SetTextPosition(cont,screenwidth/2-GetTextTotalWidth(cont)/2,screenheight-100)
			dec alphafade,10
			if alphafade<50 then alphafade=50
			sync()
		until GetRawMouseLeftPressed()
		DeleteText(pause)
		DeleteText(cont)

		game_mode=-game_mode
// fade up
		alphafade=50
		repeat
			SetSpriteColorAlpha(mapsprite,alphafade)
			SetSpriteColorAlpha(smallermapsprite,alphafade)
			
			for a=0 to followers.length
				SetSpriteColorAlpha(followers[a].spr,alphafade)
			next
			
			for a=0 to 9
				SetSpriteColorAlpha(actionimages[a].spr,alphafade)
			next
			
			
			inc alphafade,10
			sync()
		until alphafade>255


			
		
	endif
	Render2DFront()
    Print( ScreenFPS() )
    print (GetRawLastKey())
    
    Sync()
loop

function checkleveluporreset()
	
	if levelreset=0 // in play
		if out=0 and in>0 
			print("LEVELUP")
			sync()
			sleep(2000)
		endif
	else
		if out=0 // all destroyed
			dispose()
			initialise()
			buildlevel(level)
			levelreset=0
					
		endif
	endif
		
	
endfunction

function checkcollisionwithmouse()

	for act=0 to 9
		if GetSpriteCollision(mouse,actionimages[0].spr) and GetRawMouseLeftPressed() // Explode all and reset level
			for a=0 to followers.length
				followers[a].action$="Exploder"
			next
			levelreset=1
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr)
	print(a)
			ax=GetSpriteX(actionimages[act].spr)-2
			ay=GetSpriteY(actionimages[act].spr)-2
			tax=GetSpriteWidth(actionimages[act].spr)+4
			tay=GetSpriteHeight(actionimages[act].spr)+4
		
			col=MakeColor(255,0,0)

			DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
			
		endif
		if GetSpriteCollision(mouse,actionimages[act].spr) and GetRawMouseLeftPressed()
			currentactionselected=act
			if currentactionselected=9 // Pause 
				GAME_MODE=-GAME_MODE
			endif

		endif
		
	next
	// draw box around the current selected action 
	ax=GetSpriteX(actionimages[currentactionselected].spr)-2
	ay=GetSpriteY(actionimages[currentactionselected].spr)-2
	tax=GetSpriteWidth(actionimages[currentactionselected].spr)+4
	tay=GetSpriteHeight(actionimages[currentactionselected].spr)+4
		
	col=MakeColor(255,0,0)

	DrawBox(ax,ay,ax+tax,ay+tay,col,col,col,col,1)
	
	
	for a=0 to followers.length
		
		if GetSpriteCollision(mouse,followers[a].spr) = 1
			//update the name of the follower
	
			SetTextString(actiontext,followers[a].action$ + " " + str(a))
			SetTextString(actiontextshadow,followers[a].action$ + " " + str(a))
		
			SetTextPosition(actiontext,10,350)
			SetTextPosition(actiontextshadow,8,348)
			
			
			// if we left click then change action to a digger as long as not floating
			if currentactionselected=1 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Digger"
				followers[a].action$="Digger"
				dec actionimages[1].counter
			endif

			// if we right click then change action to a builder as long as not floating
			if currentactionselected=2 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed()and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Builder"
				followers[a].action$="Builder"
				dec actionimages[2].counter
			endif


			// if we press Space whilst on them - they explode
			if currentactionselected=3 and followers[a].action$<>"Floater" and GetRawMouseLeftPressed() and GetSpriteVisible(followers[a].spr)=1 and followers[a].action$<>"Exploder"
				followers[a].action$="Exploder"
				dec actionimages[3].counter
			endif




		else
//			SetTextString(actiontext,"")
	//		SetTextString(actiontextshadow,"")
			
		endif
		
	next
	
endfunction

function updatefollowers()
	
	for a=0 to followers.length


		// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
		if GetSpriteVisible(followers[a].spr) =1 and checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,200,200) // in space
			
			SetSpriteVisible(followers[a].spr,0)
			inc in
			dec out
			
			
		endif

		// check the centre X and the bottom of the sprite
		if checkpixels(followers[a].x# + GetSpriteWidth(followers[a].spr)/2,followers[a].y# + GetSpriteHeight(followers[a].spr)) = MakeColor(0,0,0) // in space
			
			// if follower is "Building" then the position is moved by the Building routine
			if followers[a].action$<>"Builder" or followers[a].action$="Walker"
				inc followers[a].y#,followers[a].speed#
			endif
			
		else
			// if was just been floating then change a walker, cause dont want to upset the other actions
			if followers[a].action$="Floater" then followers[a].action$="Walker"
			
		endif

		if followers[a].action$="Walker"
			// move left or right
			if followers[a].direction=1
			// go right
				inc followers[a].x#,followers[a].speed#
			else
			// go left
				dec followers[a].x#,followers[a].speed#
			endif
		endif



		/// hit something so dont carry on going down - automatically go right

		if followers[a].action$="Digger"
		// dig earth directly down
					
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
					
				
				followers[a].actionframestep#=timer()
				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				
			endif
			
		// destroy earth
		
		endif


		if followers[a].action$="Exploder" and GetSpriteVisible(followers[a].spr)=1
		// Explode the little fellow
					
			SetTextPosition(followers[a].explodingtext, followers[a].x#+worldpositionx,followers[a].y#-10)

			if GetParticlesExists(followers[a].explosionparticle) then SetParticlesPosition(followers[a].explosionparticle,followers[a].x#+worldpositionx+GetSpriteWidth(followers[a].spr)/2,followers[a].y#+GetSpriteHeight(followers[a].spr)/2)
			
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
				SetSpriteColor(followers[a].spr,255,0,0,255)	
				SetTextString(followers[a].explodingtext,str(followers[a].explodingtime))
				followers[a].actionframestep#=timer()
//				dighole(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))
				if followers[a].explodingtime=0
					followers[a].explodingtime=1000
					explodearea(followers[a].x#,followers[a].y#+GetSpriteHeight(followers[a].spr))

					generateexplosion(a, followers[a].x#+worldpositionx,followers[a].y#)
					

			//		SetTextVisible(followers[a].explodingtext,0)
					
			//		SetSpriteVisible(followers[a].spr,0)
				endif
				dec followers[a].explodingtime

			endif
			
		// destroy earth
		
		endif

		
		
		if followers[a].action$="Builder"
		// build new platforms in the direction is going and up one pixel

			
				dec followers[a].y#,followers[a].speed#/50.0
				
				if followers[a].direction=-1
							
					dec followers[a].x#,followers[a].speed#/10
			
				else
					inc followers[a].x#,followers[a].speed#/10
			
			
				endif



			// add a platform undernear of follower
			if timer()-followers[a].actionframestep#>1 // every half a second perform a build
						
				followers[a].actionframestep#=timer()
				setplatform(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y#+GetSpriteHeight(followers[a].spr))
				inc followers[a].actioncount
				
			endif

			if followers[a].actioncount>30 // can only do this 30 times before gives up and carries on walking
				followers[a].action$="Walker"
			endif
			
		endif
			


		// check the centre Y and the left of the sprite to see if hit a wall on the left
		if checkpixels(followers[a].x#,followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		// check the centre Y and the right of the sprite to see if hit a wall on the right
		if checkpixels(followers[a].x#+GetSpriteWidth(followers[a].spr),followers[a].y# + GetSpriteHeight(followers[a].spr)/2) = MakeColor(0,0,0) // in space
			
			// it has so change direction
			
			followers[a].direction =- followers[a].direction
		endif


		
		
	next
endfunction

function generateexplosion(followerid, x,y)
//sleep(100)
	followers[followerid].explosionparticle = CreateParticles(x,y)
			life#=2
			
			SetParticlesSize(followers[followerid].explosionparticle,4)
			SetParticlesLife(followers[followerid].explosionparticle,life#)
			SetParticlesColorInterpolation(followers[followerid].explosionparticle,1)
			SetParticlesFrequency(followers[followerid].explosionparticle,1000)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.1,0,0,255,255)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.2,255,255,0,200)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.3,255,0,0,100)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.4,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.5,255,255,255,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.6,200,200,200,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.7,100,100,100,50)
			AddParticlesColorKeyFrame(followers[followerid].explosionparticle,.8,0,0,0,0)
			SetParticlesVelocityRange(followers[followerid].explosionparticle,20,24)
	followers[followerid].expldingframetime#=timer()
			
endfunction
function explodearea(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pi+xls down
	a=30

	for xx=-a to a
		for yy=y to y+20

			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) 
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 


function dighole(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
// make a nice depth platform of 2 pixls down
	a=10
	for yy=y to y+3 

		for xx=-a to a
			offset = 12 + (((yy) * width) + xx+x) * 4
			if offset<GetMemblockSize(mapspritememblock)

				SetMemblockInt(mapspritememblock,offset,0)
				SetMemblockInt(mapspritememblock,offset+1,0) // a nice shade of green
				SetMemblockInt(mapspritememblock,offset+2,0)
				SetMemblockInt(mapspritememblock,offset+3,255)
			endif
		next
		dec a
	next
	
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction 

	
function setplatform(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)

// make a nice depth platform of 2 pixls down
	for xx=x-5 to x+5	
		for yy=y to y+2
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(mapspritememblock,offset,0)
			SetMemblockInt(mapspritememblock,offset+1,random(200,255)) // a nice shade of green
			SetMemblockInt(mapspritememblock,offset+2,0)
			SetMemblockInt(mapspritememblock,offset+3,255)
		next
	next
		
		DeleteImage(mapspriteimage)
	CreateImageFromMemblock(mapspriteimage, mapspritememblock)
	SetSpriteImage(mapsprite,mapspriteimage)
	SetSpriteImage(smallermapsprite,mapspriteimage)
	
endfunction

function checkpixels(x,y)
	
	//mapspritememblock
	width = GetMemblockInt(mapspritememblock,0)
	
	offset = 12 + ((y * width) + x) * 4
	if offset<GetMemblockSize(mapspritememblock)
		r=GetMemblockInt(mapspritememblock,offset)
		g=GetMemblockInt(mapspritememblock,offset+1)
		b=GetMemblockInt(mapspritememblock,offset+2)
		a=GetMemblockInt(mapspritememblock,offset+3)
	
		col = MakeColor(r,g,b)
	
		
	endif
	
endfunction col

function addfollower()

	if out<levelimagecolours[level-1].howmanyfollowersthislevel
		follower as _follower
		follower.spr =CreateSprite(0)
		follower.x# = screenwidth/2 
		follower.y# = homey
		follower.direction=1 // automatically go right when start
		follower.speed#=.2
		follower.action$="Floater"
		follower.actionframestep#=timer()
		follower.explodingtime=5
		follower.explodingtext = CreateText(str(follower.explodingtime))
		SetTextSize(follower.explodingtext,10)
		SetSpriteColor(follower.spr,0,0,255,255)
		SetSpritePosition(follower.spr,follower.x#,follower.y#)
		
		followers.insert(follower)

		inc out
	endif
endfunction

function initialisetime()
	time=500

//	worldpositionx=-screenwidth/2
	frametimer#=timer()
endfunction

function checktime()

	for a=0 to followers.length

		if (timer()-followers[a].expldingframetime#)>.5


			if GetParticlesExists(followers[a].explosionparticle)
				SetParticlesFrequency(followers[a].explosionparticle,0)
				DeleteParticles(followers[a].explosionparticle)
				SetSpriteVisible(followers[a].spr,0)
				SetTextVisible(followers[a].explodingtext,0)
				dec out
			endif
		endif
	next

	if (levelreset=0) and (timer()-frametimer#)>1 
		frametimer#=timer()
		addfollower()
		
		dec time
		
		settextstring(timetext,"Time " + str(time))
	endif
endfunction


function checkkeypresses()

	// if move mouse to the left or right side of screen then move the viewport - same if press the < or > cursors
	
	if getpointerx()<10 then inc worldpositionx
	if getpointerx()>screenwidth-10 then dec worldpositionx
	if GetRawKeyState(37) then dec worldpositionx
	if GetRawKeyState(39) then inc worldpositionx

	if GetRawKeyPressed(76) //L
		inc level
		levelup()
	endif


// press space to add a follower
	if GetRawKeyPressed(32)
		addfollower()
	endif

	
	
	if GetRawKeyPressed(27) then end

endfunction

function levelup()

// fade current level down
	alphafade=255
	
	repeat
		if GetSpriteExists(mapsprite)=1 then SetSpriteColor(mapsprite,GetSpriteColorRed(mapsprite),GetSpriteColorGreen(mapsprite),GetSpriteColorBlue(mapsprite),alphafade)
		if GetSpriteExists(smallermapsprite)=1 then SetSpriteColor(smallermapsprite,GetSpriteColorRed(smallermapsprite),GetSpriteColorGreen(smallermapsprite),GetSpriteColorBlue(smallermapsprite),alphafade)
		
		dec alphafade,2
		sync()
	until alphafade<0
	
	
	
	
	// build new level with 0 alpha
	
	dispose()
	initialise()
	buildlevel(level)
	
	
	// generate information between screens and fade it up
	
	if GetTextExists(line1)=0 then line1=CreateText("Level " + str(level))
	if GetTextExists(line2)=0 then line2=CreateText("Number of Followers " + str(levelimagecolours[level-1].howmanyfollowersthislevel))
	if GetTextExists(line3)=0 then line3=CreateText("Rating Fun")
	if GetTextExists(line4)=0 then line4=CreateText("Press Mouse Button to Continue")
	
	settextsize(line1,30)
	SetTextColorAlpha(line1,0)
	settextsize(line2,30)
	SetTextColorAlpha(line2,0)
	settextsize(line3,30)
	SetTextColorAlpha(line3,0)
	settextsize(line4,30)
	SetTextColorAlpha(line4,0)


	SetSpriteSize(smallermapsprite,screenwidth-50,70)
	sync()
		SetSpritePosition(smallermapsprite,screenwidth/2-GetSpriteWidth(smallermapsprite)/2,10)
		SetTextPosition(line1,screenwidth/2-GetTextTotalWidth(line1)/2,100)
		SetTextPosition(line2,screenwidth/2-GetTextTotalWidth(line2)/2,150)
		SetTextPosition(line3,screenwidth/2-GetTextTotalWidth(line3)/2,200)
		SetTextPosition(line4,screenwidth/2-GetTextTotalWidth(line4)/2,screenheight-50)

	sync()
	
	alphafade=0
	repeat
		SetSpriteColorAlpha(smallermapsprite,alphafade)
		SetTextColorAlpha(line1,alphafade)
		SetTextColorAlpha(line2,alphafade)
		SetTextColorAlpha(line3,alphafade)
		SetTextColorAlpha(line4,alphafade)
		inc alphafade
		sync()
	until alphafade>255
	
	
	
	// repeat the above screen unil Space bar is pressed
	repeat
		sync()
	until GetRawMouseLeftPressed()
	
	// fade down the information screen
	alphafade=255
	repeat
		SetSpriteColorAlpha(smallermapsprite,alphafade)
		SetTextColorAlpha(line1,alphafade)
		SetTextColorAlpha(line2,alphafade)
		SetTextColorAlpha(line3,alphafade)
		SetTextColorAlpha(line4,alphafade)
		dec alphafade
		sync()
	until alphafade<0
	
	// fade up the new level screen
	repeat
		SetSpriteColor(mapsprite,GetSpriteColorRed(mapsprite),GetSpriteColorGreen(mapsprite),GetSpriteColorBlue(mapsprite),alphafade)
		SetSpriteColor(smallermapsprite,GetSpriteColorRed(smallermapsprite),GetSpriteColorGreen(smallermapsprite),GetSpriteColorBlue(smallermapsprite),alphafade)
		
		inc alphafade,2
		sync()
	until alphafade>255
	
	
	
	
endfunction

function displaymap(worldpositionx)
	
	SetSpritePosition(mouse,getpointerx(),getpointery())
	SetSpritePosition(mapsprite,worldpositionx,0)


	SetTextString(outtext,"Out " + str(out))
	SetTextPosition(outtext,200,350)
	
	
	SetTextString(intext,"In " + str(in))
	SetTextPosition(intext,400,350)
	SetTextPosition(timetext,550,350)


// move the followers according the position X on where the map is
	for a=0 to followers.length
		SetSpritePosition(followers[a].spr,followers[a].x#+worldpositionx,followers[a].y#)
	next

	SetTextPosition(leveluptext,screenwidth*2+100 + worldpositionx,315)

	
	SetSpritePosition(smallermapsprite,500,400)
	SetSpriteSize(smallermapsprite,200,50)

// draw box around the smaller map according to where you are on the map
	col=MakeColor(255,255,255)
	
	DrawBox(500+worldpositionx,400,500+worldpositionx+50,450,col,col,col,col,0)
	

	for a=0 to 9

		SetSpritePosition(actionimages[a].spr,10+a*38,400)
		
		SetTextString(actionimages[a].countertextid,str(actionimages[a].counter))
		SetTextPosition(actionimages[a].countertextid,10+a*38,380)
		SetSpriteSize(actionimages[a].spr,32,32)
		SetSpriteDepth(actionimages[a].spr,0)
	next
	


endfunction


function initialise()

	setuplevelimages()

	swap()
		DrawLine(0,4,8,4,MakeColor(255,255,255),MakeColor(255,255,255))
		DrawLine(4,0,4,8,MakeColor(255,255,255),MakeColor(255,255,255))
	render()
	mouse=CreateSprite(GetImage(0,0,8,8))	
	SetSpriteDepth(mouse,0)
	SetRawMouseVisible(0)



	leveluptext = CreateText("Level Up")
	SetTextSize(leveluptext,12)
	
	
	actiontext= CreateText("Digger 01")
	SetTextSize(actiontext,30)
	SetTextColor(actiontext,0,200,0,255)
	SetTextBold(actiontext,1)

	actiontextshadow= CreateText("Digger 01")
	SetTextSize(actiontextshadow,31)
	SetTextColor(actiontextshadow,0,255,0,255)
	SetTextBold(actiontextshadow,1)
	SetTextDepth(actiontext,0)
	SetTextDepth(actiontextshadow,1)



	outtext= CreateText("Out 0")
	SetTextSize(outtext,30)
	SetTextColor(outtext,0,200,0,255)
	SetTextBold(outtext,1)


	intext= CreateText("In 0%")
	SetTextSize(intext,30)
	SetTextColor(intext,0,200,0,255)
	SetTextBold(intext,1)

	timetext= CreateText("Time")
	SetTextSize(timetext,30)
	SetTextColor(timetext,0,200,0,255)
	SetTextBold(timetext,1)


	
	actionimages[0].spr=createsprite(LoadImage("\media\action_explodeall.png"))
	actionimages[1].spr=createsprite(LoadImage("\media\action_dig.png"))
	actionimages[2].spr=createsprite(LoadImage("\media\action_build.png"))
	actionimages[3].spr=createsprite(LoadImage("\media\action_explode.png"))
	actionimages[4].spr=createsprite(LoadImage("\media\action_climb.png"))
	actionimages[5].spr=createsprite(LoadImage("\media\action_float.png"))
	actionimages[6].spr=createsprite(LoadImage("\media\action_stopper.png"))
	actionimages[7].spr=createsprite(LoadImage("\media\action_bazooker.png"))
	actionimages[8].spr=createsprite(LoadImage("\media\action_mine.png"))
	actionimages[9].spr=createsprite(LoadImage("\media\action_pause.png"))
	
	for a=0 to 9
		actionimages[a].counter=levelimagecolours[level-1].howmanyfollowersthislevel
		actionimages[a].countertextid=CreateText(str(actionimages[a].counter))
		SetTextSize(actionimages[a].countertextid,12)
	next



endfunction

function dispose()
	
	DeleteAllImages()
	DeleteAllObjects()
	DeleteAllSprites()
	DeleteAllText()

	followers.length=-1

endfunction

function buildlevel(level)
initialisetime()
	
	
	ground=30
	swap()
	// blank out the mouse we just made
		DrawBox(0,0,screenwidth,worldsizey,MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),MakeColor(0,0,0),1)
	for a=0 to level * 30
		rx=random(0,screenwidth)
		ry=random(100-(level*2),worldsizey)
		
		size=random(10,11+(level*2))
		
		tlc=MakeColor(0,200,0)
		trc=tlc
		blc=tlc
		brc=tlc
		
		// draw random boxes in the air	
		for x=rx to rx+size
			for y=ry to ry+size
				if y<ry+random(5,7)
					
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					
					col = MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
		
		

	next
	
	
		// draw the ground		
		for x=5 to screenwidth-5
			for y=worldsizey-ground to worldsizey
				if y<worldsizey-ground+random(5,7)
					r1=random(levelimagecolours[level-1].tcred,levelimagecolours[level-1].tcred+20)
					g1=random(levelimagecolours[level-1].tcgreen,levelimagecolours[level-1].tcgreen+20)
					b1=random(levelimagecolours[level-1].tcblue,levelimagecolours[level-1].tcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				else
					r1=random(levelimagecolours[level-1].bcred,levelimagecolours[level-1].bcred+20)
					g1=random(levelimagecolours[level-1].bcgreen,levelimagecolours[level-1].bcgreen+20)
					b1=random(levelimagecolours[level-1].bcblue,levelimagecolours[level-1].bcblue+20)
					col=MakeColor(r1,g1,b1)
					DrawBox(x,y,x+1,y+1,col,col,col,col,1)
				
					
				endif	
			next
		next
	


// create entry point
	rx=random(5,screenwidth-50)

	for x=rx to rx+5
		for y= worldsizey-ground to worldsizey-5
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// make a blue pixel color of r=0, g=200, b=200 // if hit this color, it will signify that the follow as escaped the level	
	for x=rx+5 to rx+15
		for y= worldsizey-ground to worldsizey-ground
			col=MakeColor(0,200,200)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+5 to rx+15
		for y= worldsizey-ground+1 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

// levelup path
	for x=rx+5 to screenwidth-5
		for y= worldsizey-10 to worldsizey-5
			col=MakeColor(0,random(150,250),random(150,250))
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next

	for x=rx+ground-15 to rx+ground-10
		for y= worldsizey-ground to worldsizey-10
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
		next
	next



	for x=rx to screenwidth-5
		for y= worldsizey-5 to worldsizey-2
			col=MakeColor(random(200,255),random(200,255),0)
			DrawBox(x,y,x+1,y+1,col,col,col,col,1)
			
			DrawBox(x+15,y-10,x+15+1,y-10+1,col,col,col,col,1)

		next
	next




	homex=rx+5
	homey=ry+10
	
	// reset position of the world sprite
	worldpositionx=-homex

render()

mapspriteimage = getimage(0,0,screenwidth,worldsizey)

mapsprite = CreateSprite(mapspriteimage)
SetSpriteColorAlpha(mapsprite,0)
SetSpritePosition(mapsprite,worldpositionx,0)

smallermapsprite=CloneSprite(mapsprite)

mapspritememblock = CreateMemblockFromImage(mapspriteimage) // for pixel work
endfunction



function setuplevelimages()
	i as _levelimagecolours

	for a=0 to 10 // 10 levels

// top shade
		i.tcred=random(200,255)
		i.tcgreen=random(200,255)
		i.tcblue=random(200,255)

// a darker shade of the top	
		i.bcred=i.tcred-50
		i.bcgreen=i.tcgreen-50
		i.bcblue=i.tcblue-50
	
		i.howmanyfollowersthislevel=(a+1) * 10
		levelimagecolours.insert(i)

	next
	out=0
	in=0


	
	
	
endfunction

// Project: led board 
// Created: 2018-12-27
 
// show all errors
SetErrorMode(2)
 
#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0
 
// set window properties
SetWindowTitle( "led board" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global objects as integer[]
 
grabinfo("\media\board.png")
 
camerax#=192
cameray#=34
cameraz#=-207
 

title=CreateText("Press Mouse Button To Start")
SetTextSize(title,40)

alphafade=0
alphafadeup=1

do
	SetTextPosition(title,screenwidth/2-GetTextTotalWidth(title)/2, screenheight-100)
	SetTextColorAlpha(title,alphafade)
	
	if alphafadeup=1 then inc alphafade,2
	if alphafadeup=0 then dec alphafade,2
	
	if alphafade>255 
		alphafade=255
		alphafadeup=0
	endif
	
	if alphafade<0 
		alphafade=0
		alphafadeup=1
	endif
	
	if GetRawKeyState(37) then dec camerax#,2
	if GetRawKeyState(39) then inc camerax#,2
	
	
	
     
    SetCameraPosition(1,camerax#,cameray#,cameraz#)
 
    Print( ScreenFPS() )
    Sync()
loop
 
function grabinfo(filename$)
    img = LoadImage(filename$)
    imgmemblock = CreateMemblockFromImage(img)
     
    width = GetMemblockInt(imgmemblock,0)
    height = GetMemblockInt(imgmemblock,4)
    objnumber=0
        for x=width-1 to 0 step -1
    for y=height-1 to 0 step -1
            offset = (12+((y * width) + x) * 4) - 4
            r=GetMemblockByte(imgmemblock,offset)
            g=GetMemblockByte(imgmemblock,offset+1)
            b=GetMemblockByte(imgmemblock,offset+2)
            a=GetMemblockByte(imgmemblock,offset+3)
             
            //DrawBox(x,y,x+1,y+1,MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),MakeColor(r,g,b),1)
 
            if r<255 and g<255 and b<255
    objects.insert( CreateObjectBox(1,1,10))
    SetObjectPosition(objects[objnumber],x, -y , 5)
    SetObjectColor(objects[objnumber],r,g,b,a)
    inc objnumber
 
endif
        next
    next
     
     
endfunction

// Project: TurboRun 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "TurboRun" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global angx#,angy#,startx#,starty#

land=CreateObjectPlane(1000,1000)
SetObjectRotation(land,0,0,0)
SetObjectColor(land,0,100,0,255)

road = CreateObjectBox(50,1,1000)
SetObjectRotation(road,90,0,0)
SetObjectColor(road,200,200,200,255)

img = createtexture()
SetImageWrapU(img,1)
SetImageWrapV(img,1)
SetObjectUVScale(img,0,1000,1000)
SetObjectImage(road,img,0)


camerax#=0
cameray#=-450
cameraz#=-13
SetCameraRotation(1,-90,0,0)
startx#=screenwidth/2
starty#=screenheight/2
speed#=0
do
	
	
	if GetRawKeyState(38) then inc speed#
	if GetRawKeyState(40) then dec cameray#
	SetObjectUVOffset(road,0,0,speed#/100)
	
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop
function movecamera()
    if GetPointerState()=1
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction

function createtexture()
	
	swap()
		for y=0 to 128 step 4
			DrawBox(64-2,y,64+2,y+1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
		next
	render()
	img = GetImage(0,0,128,128)
	
endfunction img

// Project: TurboRun 
// Created: 2019-01-25

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "TurboRun" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global angx#,angy#,startx#,starty#

land=CreateObjectPlane(1000,1000)
SetObjectRotation(land,0,0,0)
SetObjectColor(land,0,100,0,255)

road = CreateObjectBox(100,1,1000)
SetObjectRotation(road,90,0,0)
SetObjectColor(road,200,200,200,255)

roadleftsplit = CreateObjectBox(50,1,1000)
SetObjectRotation(roadleftsplit,90,0,0)
SetObjectColor(roadleftsplit,200,200,200,255)
SetObjectVisible(roadleftsplit,0)

car = CreateObjectBox(20,20,10)
x#=Get3DVectorXFromScreen(screenwidth/2,screenheight)
y#=Get3DVectorYFromScreen(screenwidth/2,screenheight)
z#=Get3DVectorZFromScreen(screenwidth/2,screenheight)

SetObjectPosition(car,x#,y#-400,z#)


img = createtexture()
SetImageWrapU(img,1)
SetImageWrapV(img,1)
SetObjectUVScale(img,0,1000,1000)
SetObjectImage(road,img,0)


camerax#=0
cameray#=-450
cameraz#=-13
SetCameraRotation(1,-90,0,0)
startx#=screenwidth/2
starty#=screenheight/2
speed#=0
velocity#=0
miles#=0
do
	
	inc speed#, velocity#
	inc miles#, speed#
	
	if velocity#<0 then velocity#=0
	if velocity#>.0400 then velocity#=0.0400
	
	if GetRawKeyState(38)
		 inc velocity#,.0001
	else
		dec velocity#,.0001
	endif
	
	if GetRawKeyState(37) then dec camerax#,.05
	if GetRawKeyState(39) then inc camerax#,.05
	
	SetObjectPosition(car,getcamerax(1),getobjecty(car),getobjectz(car))
	SetObjectUVOffset(road,0,0,-speed#/100)
	
	
	
	print("Miles : " + str(miles#))
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
	movecamera()
    Print( ScreenFPS() )
    Sync()
loop
function movecamera()
    if GetPointerState()=1
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
    newX# = angx# + fDiffY#
    if ( newX# > 89 ) then newX# = 89
    if ( newX# < -89 ) then newX# = -89
    SetCameraRotation(1, newX#, angy# + fDiffX#, 0 )
    endif
endfunction

function createtexture()
	
	swap()
	
		for y=0 to 128 step 4
			DrawBox(42-2,y,42+2,y+1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
			DrawBox(85-2,y,85+2,y+1,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(255,255,255),1)
		next
	render()
	img = GetImage(0,0,128,128)
	
endfunction img

// Project: spritecollisiontest 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "spritecollisiontest" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

img = LoadImage("level.png")
spr = CreateSprite(img)
SetSpriteDepth(spr,0)

SetSpriteTransparency(img,1)


swap()
DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(0,0,0),MakeColor(0,0,0),1)
render()
block = CreateSprite(GetImage(0,0,100,100))
SetSpriteDepth(block,1)

ranx = screenwidth/2
rany = screenheight/2

do
	SetSpritePosition(block, ranx,rany)
	SetSpritePosition(spr,getpointerx(),getpointery())

	if GetSpriteCollision(block,spr)
		print("Collided")
	endif
	Render2DFront()
    Print( ScreenFPS() )
    Sync()
loop

// Project: spritecollisiontest 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=0
#constant screenrate=0

// set window properties
SetWindowTitle( "spritecollisiontest" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

img = LoadImage("raw:c:\data\level.png")
spr = CreateSprite(img)
SetSpriteDepth(spr,0)

SetSpriteTransparency(img,1)


swap()
DrawBox(0,0,100,100,MakeColor(255,255,255),MakeColor(255,255,255),MakeColor(0,0,0),MakeColor(0,0,0),1)
render()
block = CreateSprite(GetImage(0,0,100,100))
SetSpriteDepth(block,1)
SetSpriteTransparency(block,1)


SetSpriteShape(spr,3 )
//SetSpritePhysicsOn(spr,2)
ranx = screenwidth/2
rany = screenheight/2

do
	SetSpritePosition(block, ranx,rany)
	SetSpritePosition(spr,getpointerx(),getpointery())


	if GetSpriteCollision(block,spr)
		print("Collided")
	endif
	Render2DFront()
    Print( ScreenFPS() )
    Sync()
loop

// Project: followers sprite engine 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "followers sprite engine" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

land = CreateSprite(LoadImage("raw:c:\data\level.png"))
landmesh = CreateMemblockFromImage(land)

follower = CreateSprite(0)
SetSpriteSize(follower,16,32)

followerx# = screenwidth/2
followery# = 10


do
    SetSpritePosition(follower, followerx#, followery#)
    
    if GetSpriteCollisionOnImage(landmesh,follower,1) = 0 
		inc followery#,.2
	else
		if GetSpriteCollisionOnImage(landmesh,follower,3)=1
			dec followery#,.2
		endif
    endif

	if GetRawKeyState(37) then dec followerx#,.2
	if GetRawKeyState(39) then inc followerx#,.2
	

    if GetRawKeyPressed(27) then exit
    

    Print( ScreenFPS() )
    Sync()
loop


// GetSpriteCollisionOnImage - checks if the spr hits any image where
// Returns 0 where Alpha < 128
// Returns 1 where Alpha > 128
// Where = 1 for bottomm of the sprite
//         2 for the bottomleft of the sprite
//         3 for the bottomright of the sprite

function GetSpriteCollisionOnImage(imgmesh,spr,where)

	minx=GetSpriteX(spr)
	miny=getspritey(spr)
	maxx=GetSpriteX(spr)+GetSpriteWidth(spr)
	maxy=getspritey(spr)+GetSpriteHeight(spr)


	width = GetMemblockInt(imgmesh,0)

	if where=1	
		offset = 12 + ((maxy * width) + minx-1) * 4
		if offset<GetMemblockSize(imgmesh)
			a=GetMemblockInt(imgmesh,offset+3)
		endif
	endif
	
	if where=2
		offset = 12 + (((maxy) * width) + maxx-1) * 4
		if offset<GetMemblockSize(imgmesh)
			a=GetMemblockInt(imgmesh,offset+3)
		endif
	endif

	if where=3	
		offset = 12 + (((maxy) * width) + maxx+1) * 4
		if offset<GetMemblockSize(imgmesh)
			a=GetMemblockInt(imgmesh,offset+3)
		endif
	endif
	
	if a>128
		ret=1
		 
	else
		ret=0
	endif
	
	
endfunction ret

// Project: followers sprite engine 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0

// set window properties
SetWindowTitle( "followers sprite engine" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

landimage = LoadImage("raw:c:\data\level.png")
land = CreateSprite(landimage)
landmesh = CreateMemblockFromImage(land)

follower = CreateSprite(0)
SetSpriteSize(follower,16,32)

followerx# = screenwidth/2
followery# = 10

mine=1

do
    SetSpritePosition(follower, followerx#, followery#)
    
    if GetSpriteCollisionOnImage(landmesh,follower,1) = 0 
		inc followery#,.2
	else
		if mine=1 // mining off // we dont want to move the follower up or down if mining
			if GetSpriteCollisionOnImage(landmesh,follower,3)=1 or GetSpriteCollisionOnImage(landmesh,follower,2)=1
				dec followery#,.2
			endif
		endif
    endif
    
    
    
    if GetRawKeyState(32) 
		dighole(land,landimage,landmesh,follower)
	endif

	if GetRawKeyState(37)
		dec followerx#,.2
		if mine=-1
			mine(land,landimage,landmesh,follower,-1)
		endif
	endif
	
	if GetRawKeyState(39) 
		inc followerx#,.2
		
		if mine=-1
			mine(land,landimage,landmesh,follower,1)
		endif
	endif
	

    if GetRawKeyPressed(27) then exit
    
    if GetRawKeyPressed(77) then mine=-mine
    
    print(GetRawLastKey())
    if mine=1
		Print ("Mining Off")
	else
		Print ("Mining On")
	endif
    
    Print( ScreenFPS() )
    Sync()
loop

function mine(land,landimage,imgmesh,spr,direction)
	x#=GetSpriteX(spr)
	y#=getspritey(spr)	
	
	width = GetMemblockInt(imgmesh,0)

	if direction=-1 // going left
		for xx=x#-3 to x#
		
			for yy=y# to y#+GetSpriteHeight(spr)-1
				offset = 12 + ((yy * width) + xx) * 4
	
				SetMemblockInt(imgmesh, offset, 0)
				SetMemblockInt(imgmesh, offset+1, 0)
				SetMemblockInt(imgmesh, offset+2, 0)
				SetMemblockInt(imgmesh, offset+3,0)
			next
		next
	else // going right
		for xx=x# to x#+3
		
			for yy=y# to y#+GetSpriteHeight(spr)-1
				offset = 12 + ((yy * width) + xx) * 4
	
				SetMemblockInt(imgmesh, offset, 0)
				SetMemblockInt(imgmesh, offset+1, 0)
				SetMemblockInt(imgmesh, offset+2, 0)
				SetMemblockInt(imgmesh, offset+3,0)
			next
		next
	endif
		
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	


endfunction

function dighole(land,landimage,imgmesh,spr)

	x#=GetSpriteX(spr)
	y#=getspritey(spr)+GetSpriteHeight(spr)
	
	
	width = GetMemblockInt(imgmesh,0)

	for xx=x#-3 to x#+GetSpriteWidth(spr)+3
		for yy=y# to y#+5
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(imgmesh, offset, 0)
			SetMemblockInt(imgmesh, offset+1, 0)
			SetMemblockInt(imgmesh, offset+2, 0)
			SetMemblockInt(imgmesh, offset+3,0)
		next
	next
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	
endfunction 


// GetSpriteCollisionOnImage - checks if the spr hits any image where
// Returns 0 where Alpha < 128
// Returns 1 where Alpha > 128
// Where = 1 for bottomm of the sprite
//         2 for the bottomleft of the sprite
//         3 for the bottomright of the sprite

function GetSpriteCollisionOnImage(imgmesh,spr,where)

	minx=GetSpriteX(spr)
	miny=getspritey(spr)
	maxx=GetSpriteX(spr)+GetSpriteWidth(spr)
	maxy=getspritey(spr)+GetSpriteHeight(spr)


	width = GetMemblockInt(imgmesh,0)

// check bottom 
	if where=1	
		offset = 12 + ((maxy * width) + minx+GetSpriteWidth(spr)/2) * 4
		a=GetMemblockInt(imgmesh,offset+3)
	endif
	
// check bottom left
	if where=2
		offset = 12 + (((maxy) * width) + maxx-2) * 4
		a=GetMemblockInt(imgmesh,offset+3)
		
	endif

// check bottom right
	if where=3	
		offset = 12 + (((maxy) * width) + maxx+2) * 4
		a=GetMemblockInt(imgmesh,offset+3)
		
	endif
	
	if a>128
		ret=1
		 
	else
		ret=0
	endif
	
	
endfunction ret

// Project: followers sprite engine 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0
#constant ALPHA_CHANNEL_CHECK=40

// set window properties
SetWindowTitle( "followers sprite engine" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global followercount

landimage = LoadImage("raw:c:\data\level.png")
land = CreateSprite(landimage)
landmesh = CreateMemblockFromImage(land)

type _followers
	spr
	followerx#
	followery#
	mine
	direction
	action$
endtype
global followers as _followers[]

addfollower()


mine=1

	do
		for fid = 0 to followers.length
		
			SetSpritePosition(followers[fid].spr, followers[fid].followerx#, followers[fid].followery#)
    
			if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid) = 0
				inc followers[fid].followery#,.2

			else
				followers[fid].action$="Walker"
				if followers[0].mine=1 // mining off // we dont want to move the follower up or down if mining
//					if followers[fid].direction=1
						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=1 
							followers[fid].direction = -followers[fid].direction
						endif
					
						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=2
							followers[fid].direction = -followers[fid].direction
						
						endif

						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=4 // left foot
							dec followers[fid].followery#,.2
						endif

						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=5 // left foot
							dec followers[fid].followery#,.2
						endif
	
				endif
			endif
		
		
		if GetRawKeyState(32) 
			dighole(land,landimage,landmesh,followers[fid].spr)
		endif
		print(followers[fid].action$)
		if followers[fid].action$<>"Floater"
			if followers[fid].direction=-1
				dec followers[fid].followerx#,.2
				if followers[0].mine=-1
					mine(land,landimage,landmesh,followers[0].spr,-1)
				endif
			endif
		
			if followers[fid].direction=1
				inc followers[fid].followerx#,.2
				
				if followers[0].mine=-1
					mine(land,landimage,landmesh,followers[0].spr,1)
				endif
			endif
		endif

		if GetRawKeyPressed(27) then exit
    
		if GetRawKeyPressed(77) then followers[0].mine=-followers[0].mine
    
		if followers[0].mine=1
			Print ("Mining Off")
		else
			Print ("Mining On")
		endif
    next


	if GetRawKeyPressed(65) then addfollower()

    print(GetRawLastKey())

    
    Print( ScreenFPS() )
    Sync()
loop

function mine(land,landimage,imgmesh,spr,direction)
	x#=GetSpriteX(spr)
	y#=getspritey(spr)	
	
	width = GetMemblockInt(imgmesh,0)

	if direction=-1 // going left
		for xx=x#-3 to x#
		
			for yy=y# to y#+GetSpriteHeight(spr)-1
				offset = 12 + ((yy * width) + xx) * 4
	
				SetMemblockInt(imgmesh, offset, 0)
				SetMemblockInt(imgmesh, offset+1, 0)
				SetMemblockInt(imgmesh, offset+2, 0)
				SetMemblockInt(imgmesh, offset+3,0)
			next
		next
	else // going right
		for xx=x# to x#+3
		
			for yy=y# to y#+GetSpriteHeight(spr)-1
				offset = 12 + ((yy * width) + xx) * 4
	
				SetMemblockInt(imgmesh, offset, 0)
				SetMemblockInt(imgmesh, offset+1, 0)
				SetMemblockInt(imgmesh, offset+2, 0)
				SetMemblockInt(imgmesh, offset+3,0)
			next
		next
	endif
		
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	


endfunction

function dighole(land,landimage,imgmesh,spr)

	x#=GetSpriteX(spr)
	y#=getspritey(spr)+GetSpriteHeight(spr)
	
	
	width = GetMemblockInt(imgmesh,0)

	for xx=x#-3 to x#+GetSpriteWidth(spr)+3
		for yy=y# to y#+5
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(imgmesh, offset, 0)
			SetMemblockInt(imgmesh, offset+1, 0)
			SetMemblockInt(imgmesh, offset+2, 0)
			SetMemblockInt(imgmesh, offset+3,0)
		next
	next
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	
endfunction 


// GetSpriteCollisionOnImage - checks if the spr hits any image where
// Returns 0 where Alpha < 128
// Returns 1 where Alpha > 128
// Where = 1 for bottomm of the sprite
//         2 for the bottomleft of the sprite
//         3 for the bottomright of the sprite

function GetSpriteCollisionOnImage(imgmesh,spr,followerid)

	minx=GetSpriteX(spr)
	miny=getspritey(spr)
	maxx=GetSpriteX(spr)+GetSpriteWidth(spr)
	maxy=getspritey(spr)+GetSpriteHeight(spr)


	width = GetMemblockInt(imgmesh,0)
	// ret 0 = space
	ret=0

// return 0 if surround is totally space
// return 1 if hits wall on the left
// return 2 if hits wall on the right
// return 3 if hits floor
// return 4 if hits anything on the left at folloewers feet - so can walk up 
// return 5 if hits anything on the right at folloewers feet - so can walk up



// check the floor first
// ret 3 bottom hit
	for x=minx-1 to maxx+1
		for y=maxy to maxy+1
			offset = 12 + ((y * width) + x) * 4
			a=GetMemblockByte(imgmesh,offset+3)
		next
	next
	if a>ALPHA_CHANNEL_CHECK then ret=3
	print("ALHA " + str(a))

// then check the left and right side of the follower - this will cancel the RET value from hitting the floor - cause it will 
// always hit the floor anyway, but these next two will check if hits a wall on its left or right 
// ret 1 - left side hit
		for x=minx-1 to minx
			for y=miny to maxy-5
				offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
			
			next
		next
	
		if a>ALPHA_CHANNEL_CHECK then ret=1
// ret 2 right side hit
		for x=maxx to maxx+1
			for y=miny to maxy-5
					offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
			next
		next
		if a>ALPHA_CHANNEL_CHECK then ret=2


// ret 4 left foot side
		for x=minx-1 to minx
			for y=maxy-4 to maxy-1
					offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
			next
		next
		if a>ALPHA_CHANNEL_CHECK then ret=4

// ret 4 left foot side
		for x=maxx to maxx+1
			for y=maxy-4 to maxy-1
					offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
			next
		next
		if a>ALPHA_CHANNEL_CHECK then ret=5


		 
	print(ret)
endfunction ret

function addfollower()
	
	f as _followers
	
	f.spr = CreateSprite(0)
	SetSpriteSize(f.spr,16,32)
	
	f.followerx# = screenwidth/2
	f.followery# = 10
	f.direction=1
	f.mine=1
	f.action$="Floater"
	followers.insert(f)
	
	inc followercount
	
	
endfunction

// Project: followers sprite engine 
// Created: 2019-01-26

// show all errors
SetErrorMode(2)

#constant screenwidth=1024
#constant screenheight=768
#constant fullscreen=1
#constant screenrate=0
#constant ALPHA_CHANNEL_CHECK=40

// set window properties
SetWindowTitle( "followers sprite engine" )
SetWindowSize( screenwidth, screenheight, fullscreen )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( screenwidth, screenheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( screenrate, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global followercount,land,landimage,landmesh,worldpositionx#,platformmesh

landimage = LoadImage("raw:c:\data\level.png")
land = CreateSprite(landimage)
landmesh = CreateMemblockFromImage(land)

type _followers
	spr
	followerx#
	followery#
	mine
	build
	dig
	direction
	action$
	hitground
	actiontimer#
endtype
global followers as _followers[]

addfollower()


do
    SetSpritePosition(land,worldpositionx#,0)
    
	updatefollowers()

	if GetRawKeyPressed(27) then exit
    
    if GetRawKeyState(37) then inc worldpositionx#
    if GetRawKeyState(39) then dec worldpositionx#
    
	
    Print( ScreenFPS() )
//    print(GetRawLastKey())

    
    Sync()
loop

function checktimers(fid)
	
	if followers[fid].mine=-1 // if mining then stop  after a certain time 
		if timer()-followers[fid].actiontimer#>50
			followers[fid].actiontimer#=timer()
			followers[fid].mine = -followers[fid].mine
		endif
	endif

	if followers[fid].build=-1 // if building then stop  after a certain time 
		if timer()-followers[fid].actiontimer#>50
			followers[fid].actiontimer#=timer()
			followers[fid].build = -followers[fid].build
		endif
	endif

	if followers[fid].dig=-1 // if digging then stop  after a certain time 
		if timer()-followers[fid].actiontimer#>10
			followers[fid].actiontimer#=timer()
			followers[fid].dig = -followers[fid].dig
		endif
	endif

		
	
endfunction
function updatefollowers()
			for fid = 0 to followers.length
		
			SetSpritePosition(followers[fid].spr, followers[fid].followerx#+worldpositionx#, followers[fid].followery#)
    
    
			if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid) = 3
				
				followers[fid].hitground=1
			endif
			if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid) = 0 and followers[fid].build=1
				inc followers[fid].followery#,.1
				followers[fid].hitground=0
			else
				followers[fid].action$="Walker"
				if followers[fid].mine=1 and 	followers[fid].hitground=1
// mining off // we dont want to move the follower up or down if mining
//					if followers[fid].direction=1
						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=4 
								dec followers[fid].followery#,.2
						else
							if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=1 // left foot
								followers[fid].direction = -followers[fid].direction
							endif
	
						endif
					
						if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=2
							dec followers[fid].followery#,.2
						
						else
							if GetSpriteCollisionOnImage(landmesh,followers[fid].spr,fid)=5 // left foot
								followers[fid].direction = -followers[fid].direction
							endif	
						endif

	
	
				endif
						if followers[fid].action$<>"Floater"
							if followers[fid].direction=-1
								
								if followers[fid].mine=-1
									dec followers[fid].followerx#,.05 // slow down when mining
									mine(land,landimage,landmesh,fid,-1)
								else
									if followers[fid].build=-1
										// build right
										build(land,landimage,landmesh,fid)
									else
										if followers[fid].dig=-1
											dighole(land,landimage,landmesh,followers[fid].spr)
										else
											
											dec followers[fid].followerx#,.2 // move normal speed
										endif
									endif
								endif
							else
								if followers[fid].mine=-1
									mine(land,landimage,landmesh,fid,1)
									inc followers[fid].followerx#,.05 // slow down when mining
								else
									if followers[fid].build=-1
										// build left
										build(land,landimage,landmesh,fid)
									else
										if followers[fid].dig=-1
											dighole(land,landimage,landmesh,followers[fid].spr)
										else

											inc followers[fid].followerx#,.2 // move normal speed
										endif
									endif
									
								endif
							endif
						endif	


			endif
		
			if GetRawKeyPressed(65) then addfollower() // A
			if GetRawKeyPressed(77) then followers[0].mine=-followers[0].mine // M
			if GetRawKeyPressed(68) then followers[fid].dig = -followers[fid].dig // D
			if GetRawKeyPressed(66) then followers[fid].build = -followers[fid].build // B
		checktimers(fid)

    next
endfunction

function build (land,landimage,imgmesh,fid)
	x#=GetSpriteX(followers[fid].spr)-worldpositionx# // platform along the followers foot 
	y#=getspritey(followers[fid].spr)+GetSpriteHeight(followers[fid].spr) // platform at the foot of the sprite	

	if followers[fid].direction=1
		dec followers[fid].followery#,.002
		dec followers[fid].followerx#,.01
	else
		
		inc followers[fid].followery#,.002
		inc followers[fid].followerx#,.01
	endif
	
	width=GetMemblockInt(imgmesh,0)
	for xx=x# to x#+GetSpriteWidth(followers[fid].spr)
		for yy=y# to y#+5
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(imgmesh, offset, 255)
			SetMemblockInt(imgmesh, offset+1, 0)
			SetMemblockInt(imgmesh, offset+2, 0)
			SetMemblockInt(imgmesh, offset+3,255)
		next
	next
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	SetSpriteImage(land,landimage)
	
	
endfunction

function mine(land,landimage,imgmesh,fid,direction)
	x#=GetSpriteX(followers[fid].spr)-worldpositionx#
	y#=getspritey(followers[fid].spr)	
	
	width = GetMemblockInt(imgmesh,0)

	if direction=-1 // going left
		for xx=x#-3 to x#
		
			for yy=y# to y#+GetSpriteHeight(followers[fid].spr)-1
				offset = 12 + ((yy * width) + xx) * 4
	
				SetMemblockByte(imgmesh, offset, 0)
				SetMemblockByte(imgmesh, offset+1, 0)
				SetMemblockByte(imgmesh, offset+2, 0)
				SetMemblockByte(imgmesh, offset+3,0)
			next
		next
	else // going right
		for xx=x# to x#+3
		
			for yy=y# to y#+GetSpriteHeight(followers[fid].spr)-1
				// check if there is nothing to mine to the right of sprite
				
				offset = 12 + ((yy * width) + xx) * 4
				SetMemblockByte(imgmesh, offset, 0)
				SetMemblockByte(imgmesh, offset+1, 0)
				SetMemblockByte(imgmesh, offset+2, 0)
				SetMemblockByte(imgmesh, offset+3,0)
			next
		next
	endif
		
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	


endfunction

function dighole(land,landimage,imgmesh,spr)

	x#=GetSpriteX(spr)-worldpositionx#
	y#=getspritey(spr)+GetSpriteHeight(spr)
	
	
	width = GetMemblockInt(imgmesh,0)

	for xx=x#-3 to x#+GetSpriteWidth(spr)+3
		for yy=y# to y#+5
			offset = 12 + ((yy * width) + xx) * 4
	
			SetMemblockInt(imgmesh, offset, 0)
			SetMemblockInt(imgmesh, offset+1, 0)
			SetMemblockInt(imgmesh, offset+2, 0)
			SetMemblockInt(imgmesh, offset+3,0)
		next
	next
	DeleteImage(landimage)
	CreateImageFromMemblock(landimage, imgmesh)
	
	SetSpriteImage(land,landimage)
	
endfunction 


// GetSpriteCollisionOnImage - checks if the spr hits any image where
// Returns 0 where Alpha < 128
// Returns 1 where Alpha > 128
// Where = 1 for bottomm of the sprite
//         2 for the bottomleft of the sprite
//         3 for the bottomright of the sprite

function GetSpriteCollisionOnImage(imgmesh,spr,followerid)

	minx=GetSpriteX(spr) - worldpositionx#
	miny=getspritey(spr)
	maxx=GetSpriteX(spr)+GetSpriteWidth(spr) - worldpositionx#
	maxy=getspritey(spr)+GetSpriteHeight(spr)


	width = GetMemblockInt(imgmesh,0)
	// ret 0 = space
	ret=0

// return 0 if surround is totally space
// return 1 if hits wall on the left
// return 2 if hits wall on the right
// return 3 if hits floor
// return 4 if hits anything on the left at folloewers feet - so can walk up 
// return 5 if hits anything on the right at folloewers feet - so can walk up



// check the floor first
// ret 3 bottom hit
	for x=minx-1 to maxx+1
		for y=maxy to maxy+1
			offset = 12 + ((y * width) + x) * 4
			a=GetMemblockByte(imgmesh,offset+3)
			if a>ALPHA_CHANNEL_CHECK then ret=3
		next
	next

// then check the left and right side of the follower - this will cancel the RET value from hitting the floor - cause it will 
// always hit the floor anyway, but these next two will check if hits a wall on its left or right 
// ret 1 - left side hit
	if followers[followerid].direction=-1
		// going left
		for x=minx-3 to minx
			for y=miny to maxy-5
				offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
				if a>ALPHA_CHANNEL_CHECK 
					ret=1
				endif
			next
		next
	

// ret 4 left foot side
		for x=minx-1 to minx
			for y=maxy-4 to maxy-1
				offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
				if a>ALPHA_CHANNEL_CHECK then ret=4
			next
		next
	
	else // going right

// ret 2 right side hit
		for x=maxx to maxx+1
			for y=miny to maxy-5
					offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
				if a>ALPHA_CHANNEL_CHECK then ret=2
				
			next
		next
		


// ret 5 left foot side
		for x=maxx to maxx+1
			for y=maxy-4 to maxy-1
					offset = 12 + ((y * width) + x) * 4
				a=GetMemblockByte(imgmesh,offset+3)
				if a>ALPHA_CHANNEL_CHECK then ret=5
			next
		next
	endif

		 
endfunction ret

function addfollower()
	
	f as _followers
	
	f.spr = CreateSprite(0)
	SetSpriteSize(f.spr,16,32)
	
	f.followerx# = screenwidth/2
	f.followery# = 50
	f.direction=1
	f.mine=1 // not mining
	f.build=1 // not building
	f.dig=1 // not digging
	f.hitground=0
	f.action$="Floater"
	f.actiontimer#=timer()
	followers.insert(f)
	
	inc followercount
	
	
endfunction