Sorry your browser is not supported!

// Project: ScreenSaver_ando 
// Created: 21-12-04

width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#)
SetSyncRate(30,0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(0,0,0)

sprite_total=5000
dim sprite[sprite_total]

xpos=width#/2
ypos=height#/2
change_time=250
xsize=Random(1,width#/20)
ysize=Random(1,height#/100)
R_color=Random(5,255)
G_color=Random(5,255)
B_color=Random(5,255)
angle=Random(1,60)-30
setrawmousevisible(0)

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  screenshot setup

screenGrab = CreateRenderImage(GetMaxDeviceWidth(),GetMaxDeviceHeight(),0,1)
filesavetext=createtext("")
settextvisible(filesavetext,0)

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

do

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  screenshot section
	
	if GetRawKeyPressed(80)				// P to save screenshot
		SetRenderToImage(screenGrab, -1)
		if gettextvisible(filesavetext) then settextvisible(filesavetext,0)
		number = 1
		ClearScreen()
		Render()
checkFiles:
		if GetFileExists("raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
			number = number + 1
			goto checkFiles
		endif
		SaveImage(screenGrab, "raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
		settextstring(filesavetext," Image saved as Screenshot"+str(number)+".png in "+ GetReadPath()+"screenshots")
		SetTextSize(filesavetext,GetMaxDeviceHeight()*0.0275)
		textTimer = 1
		SetRenderToScreen()
		if not gettextvisible(filesavetext) then settextvisible(filesavetext,1)
	endif
	
	If textTimer > 0 Then textTimer = textTimer + 1
	If textTimer > 299
		settextvisible(filesavetext,0)
		textTimer = 0
	EndIf
	
//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  end screenshot section

    If change_time>299
        angle=Random(1,60)-30
        R_color=Random(5,255)
        G_color=Random(5,255)
        B_color=Random(5,255)
        xstep=Random(1,width#/125)-width#/250
        ystep=Random(1,height#/70)-height#/140
        xsize=Random(1,width#/10)
        ysize=Random(1,height#/500)
        change_time=Random(1,290)
        newangle=Random(1,100)-50
    EndIf
    
    change_time=change_time+1
    
    count=count+1
    if count<sprite_total+1
        if sprite[count]=0
            sprite[count]=CreateSprite(0)
        endif
        SetSpriteColor(sprite[count],R_color,G_color,B_color,255)
        SetSpriteSize(sprite[count],xsize,ysize)
        lastangle=lastangle-newangle
        SetSpriteAngle(sprite[count],lastangle+angle)
        SetSpritePosition(sprite[count],xpos+xstep,ypos+ystep)
        xpos=GetSpriteX(sprite[count])
        ypos=GetSpriteY(sprite[count])
        lastangle=GetSpriteAngle(sprite[count])
        If xpos > width# Then xpos=0
        If xpos < 0 Then xpos=width#
        If ypos > height# Then ypos=0
        If ypos < 0 Then ypos=height#
    Else
        count=0
    endif
    
    Sync()
    if GetrawKeyPressed(27) then exit
loop

// Project: screen saver 
// Created: 2021-12-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "screen saver" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 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

x=300
y=250
spt=1
r=255
g=0
b=0
cl=0
createsprite(spt,0)
setspritesize(spt,1024,768)
setspritecolor(spt,150,150,255,255)
sync()
do
  
for i= 1 to 20
  x=x+cos(giro)*3
  y=y+sin(giro)*3
  if random(0,10)=1
    giro=random(0,360)
  endif
  
  if y<30 or y>700 or x<30 or x>900
	  r=random(0,255):g=random(0,255):b=random(0,255)
	  y=400
	  x=400
  endif
  
  inc spt,1
  inc cl,1
  if cl>30 then cl=0
  createsprite(spt,0)
  SetSpritePosition(spt,x,y)
  setspritecolor(spt,r-cl,g-cl,b-cl,255)
  setspritesize(spt,100,5)
  setspriteangle(spt,random(0,360))
 next

sync()
loop

// Project: stars screen saver 
// Created: 2021-12-05 by Rich Dersheimer

// set window properties
W = GetDeviceWidth()
H = GetDeviceHeight()
SetScreenResolution(0,0)
SetWindowSize(W,H,1)

id = CreateParticles(50,50)
SetParticlesSize(id,.2)
SetParticlesLife(id,30)
SetParticlesDirection(id,5,5 )
AddParticlesColorKeyFrame(id,0,255,255,255,0)
AddParticlesColorKeyFrame(id,2,255,255,255,255)

x1 = GetRawMouseX()
y1 = GetRawMouseY()
x2 = x1
y2 = y1

do
	if GetRawLastKey( ) <> 0 then end
	
	x1 = GetRawMouseX()
	y1 = GetRawMouseY()
    
	if x1=x2 AND y1=y2
		Sync()
	else
		end
	endif
	
	x2 = GetRawMouseX()
	y2 = GetRawMouseY()

	if GetRawMouseLeftReleased() then end

    Sync()
loop

// Project: drop 
// Created: 2021-12-05
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "drop" )
SetWindowSize( 640,360, 1 )
SetWindowAllowResize( 1 )

// set display properties
SetVirtualResolution( 640,360)
SetOrientationAllowed( 1, 1, 1, 1 )

SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

GLOBAL Red, Green, Blue, Drop
Red = MakeColor(255,0,0)	:	Green = MakeColor(0,255,0)	:	Blue = MakeColor(0,0,255)
for x = 4 to 48 step 4
	DrawEllipse(48,48,x,x,red,red,0)
	DrawEllipse(48,48,x-1,x-1,green,green,0)
	DrawEllipse(48,48,x-2,x-2,blue,blue,0)
next x
render()
Drop = GetImage(0,0,97,97)
Drop = CreateSprite(drop)	:	SetSpriteVisible(drop,0)
GLOBAL Drops as Integer []
SetRawMouseVisible(0)
do
	if last# + 1 < timer()
		drop()
		last# = timer()
	endif
	DoDrops()

    If GetRawKeyState(27) then Exit    

    Sync()
loop

Function Drop()
	ThisDrop = CloneSprite(Drop)
	SetSpriteVisible(ThisDrop,1)
	SetSpritePositionByOffset(ThisDrop,Random(0,639), Random(0,359))
	Drops.Insert(ThisDrop)
EndFunction

Function DoDrops()
	For x = Drops.Length to 0 Step -1
	Scale# = GetSpriteScaleX(Drops[x])
	If Scale# < 20.0
		SetSpriteScaleByOffset(Drops[x],Scale# + 0.1,Scale# + 0.1)
	Else
		DeleteSprite(Drops[x])
		Drops.Remove(x)
	Endif
	next x
EndFunction

// Project: himnotic 
// Created: 2018-11-25

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "himnotic" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 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

for i= 1 to 1000
   //ink rgb(rnd(255),rnd(255),rnd(255))
   //dot rnd(100),rnd(100)
   w=random(0,100)
   h=random(0,100)
   col=makecolor(random(0,255),random(0,255),random(0,255))
   drawline(w,h,w,h,col,col)
next i
getimage(1,0,0,100,100)

for i= 1 to 160
	createobjectsphere(i,i*0.05,20,20)
	setobjectimage(i,1,0)
	SetObjectTransparency(i,1)
next

setcameraposition(1,0,3,-6)
SetCameraRange(1,0.01,2000)
do
     //if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.3 )  // cursor up
	 //if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.3 ) // cursor down
  g#=g#+0.004
  
  setobjectrotation( 1,g#,g#,g#)
  for i= 2 to 160
	  setobjectrotation(i,i*g#,i*g#,i*g#)
	  setobjectscale(i,getobjectsizemaxx(i)-g#/2,getobjectsizemaxx(i)-g#/2,getobjectsizemaxx(i)-g#/2)
  next i
   
    Sync()
loop

chafari's himnotic

i'd be scared if you WERE trying to compete :)

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Text game" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 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
x as float
z as float
x2 as float
z2 as float
ox as float
oz as float
ang as float
x2=10
z2=150
x=100
z=50
ox=100
oz=200
d=createtext("d")
b=createtext("b")
c=createtext("M")

settextcolor(d,255,255,0,255)
settextcolor(b,0,255,0,255)
settextcolor(c,255,0,0,255)
settextsize(d,40)
settextsize(b,40)
settextsize(c,40)
settextposition(c,100,200)
do
clearscreen()


x2=x2+0.5
if x2>200
	 x2=10 
	 z2=10+random(0,200)
endif
	 

SetTextPosition(d,x,z)
settextposition(b,x2,z2)
angle# = atanfull(x-x2, z-z2)

x=x+sin(angle#)*-0.4
z=z+cos(angle#)*0.4

dist#=distance#(x,z,x2,z2)
dist2#=distance#(x,z,ox,oz)

w=makecolor(255,0,255)
if dist#<5 then DrawEllipse( x+10,z+15,20,20,W,W,0)

if dist#<8
	run=run+1
	if run=2 then ka=ka+1
	else
	run=0
endif
 
if dist2#<10 then z=z+3     
 
 ox=ox+sin(ang)*-3
 oz=oz+cos(ang)*3
 w=makecolor(255,200,0)
 drawellipse(ox,oz,2,2,w,w,1)
 s=s+1 
 if s<10 then ang = atanfull(ox-x, oz-z)
 if s>150 or oz<0 
	 s=0
	 ox=110
	 oz=220
 endif	 
 if z>250 then x=x+0.8
   if ka<2 then text$="  baby" else text$="  babies"
 
  print( str(ka) +text$)
    Sync()
loop
function distance#(x1#,z1#,x2#,z2#)
value#=sqrt(((x2#-(x1#))^2)+((z2#-(z1#))^2))
ENDFUNCTION value#

// Created: 2021-12-20
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "FLY HARD!" )
SetWindowSize( 640,360, 0 )
SetWindowAllowResize( 1 )
MaximizeWindow()

// set display properties
SetVirtualResolution( 640,360)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 
SetPrintSize(32)
GLOBAL Rate#, Score, High, Player,playerTXT

GLOBAL frames as String []
	frames.Insert("\V/")
	frames.insert("_V_")
	frames.Insert(" V " + CHR(10) + "/ \")
	frames.insert("_V_")
	playerTXT = CreateText(frames[0])	:	SetTextSize(playerTXT,32)	:	SetTextAlignment(playerTXT,1)
	player = CreateSprite(0)			:	SetSpriteSize(player,16,16)

	SetSpritePhysicsOn(player,2)		:	SetSpritePhysicsIsBullet(player,1)
	SetSpritePosition(player,100,240)	:	SetSpriteVisible(player,0)
	SetSpritePhysicsCanRotate(player,0)

Type Wall
	topTXT, topSPR, botTXT,botSPR
EndType
GLOBAL Walls as Wall []
MakeWalls()

SetPhysicsGravity(0,100)

Restart()


do
	if GetPointerPressed()
		SetSpritePhysicsVelocity(player,0,-100.0)
		nextflap# = Timer()
	endif
	
	If GetRawMouseRightState() //DIVE!
		SetSpritePhysicsVelocity(player,0,GetSpritePhysicsVelocityY(player) + 10 )
		frame = 0	:	SetTextString(playerTXT, frames[0])	:	nextflap# = timer() + 0.1
	Else
		if nextflap# < timer()
			INC frame	:	if frame > frames.length then frame = 0
			SetTextString(playerTXT, frames[frame])
			nextflap# = timer() + 0.1
		endif
	Endif
	

	SetTextPosition(playerTXT,GetSpriteXByOffset(player),GetSpriteYByOffset(player)-16)
		
	
    If GetRawKeyState(27) then End    

	DoWalls()

	CheckHits()

	
	print("FLY HARD!")
	Print("Score: " + STR(Score) )
    Sync()
loop

Function CheckHits()
	If GetSpriteFirstContact(player) or GetSpriteCollision(player,Walls[0].topSPR) or GetSpriteCollision(player,Walls[0].botspr)
		GameOver()
	EndIf
EndFunction

Function GameOver()
	Time# = Timer() + 5
	SetTextColor(playerTXT,255,0,0,255)
	Repeat
		If GetRawKeyState(27) then End   
		Print("OUCH!")
		Sync()
	Until Timer() > Time# or GetPointerPressed()
	SetTextColor(playerTXT,255,255,255,255)
	Restart()
EndFunction

Function Restart()
	SetTextVisible(Walls[0].topTXT, 0)
	SetTextVisible(Walls[0].botTXT,0)
	SetTextPosition(playerTXT,320,120)
	nextflap# = Timer()
	If Score > High then High = Score
	Repeat
		If GetRawKeyState(27) then End
		Print("FLY HARD!")
		Print("[LMB] = Flap  [RMB] = Dive!")
		Print("Last Score: " + STR(Score))
		Print("High Score: " + STR(High))
		Print("[Flap] to Continue")
		if nextflap# < timer()
			INC frame	:	if frame > frames.length then frame = 0
			SetTextString(playerTXT, frames[frame])
			nextflap# = timer() + 0.1
		endif

		Sync()
	Until GetPointerPressed()
	Rate# = 2.0
	score = 0
	SetTextPosition(Walls[0].topTXT, 640,(-8+Random(0,4))*32)
	SetTextVisible(Walls[0].topTXT, 1)
	SettextVisible(Walls[0].botTXT,1)
	SetSpritePositionByOffset(player,100,180)
EndFunction


Function DoWalls()
	for x = 0 to Walls.length
		tspr = walls[x].topspr	:	ttxt = Walls[x].topTXT
		bspr = walls[x].botspr	:	btxt = Walls[x].botTXT
		SetTextX(ttxt, GetTextX(ttxt) - Rate#)
		if GettextX(ttxt) < 0
			SetTextPosition(ttxt, 640,(-8+Random(0,4))*32)
			INC Rate#, 0.4
			INC Score
		Endif
		SetSpritePosition(tspr,gettextx(ttxt),GettextY(ttxt)+40)
		SetTextPosition(btxt,GetTextX(ttxt),GetTextY(ttxt)+450)
		SetSpritePosition(bspr, GetTextX(ttxt), GetTextY(ttxt)+450+40)
	next x
EndFunction

Function MakeWalls()
	TXT$ = ""
	for x = 1 to 10
		TXT$ = TXT$ + CHR(10) + "[]"
	next x

	top = CreateText(TXT$)		:	SetTextSize(top,32)	:	SetTextPosition(top, 640,(-8+Random(0,4))*32)
	
	tspr = CreateSprite(0)		:	SetSpriteSize(tspr,16,310)
	SetSpriteVisible(tspr,0)

	bot = CreateText(TXT$)		:	SetTextSize(bot,32)
	bspr = CloneSprite(tspr)
	SetSpriteVisible(bspr,0)

	thiswall as Wall
		thiswall.topTXT = top	:	thiswall.topSPR = top
		thiswall.botTXT = bot 	:	thiswall.botSPR = bspr
		walls.insert(thiswall)
EndFunction

// Created: 2021-12-20
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "FLY HARD!" )
SetWindowSize( 320,180, 0 )
SetWindowAllowResize( 1 )
MaximizeWindow()

// set display properties
SetVirtualResolution( 640,360)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 
SetPrintSize(32)

GLOBAL Rate#, Score, High, Player, playerTXT
GLOBAL hi$ = "hi.dat"

if GetFileExists(hi$)
	file = OpenToRead(hi$)
	High = ReadInteger(file)
	CloseFile(file)
Endif

GLOBAL frames as String []
	frames.Insert("\V/")
	frames.insert("_V_")
	frames.Insert(" V " + CHR(10) + "/ \")
	frames.insert("_V_")
	playerTXT = CreateText(frames[0])	:	SetTextSize(playerTXT,32)	:	SetTextAlignment(playerTXT,1)
	player = CreateSprite(0)			:	SetSpriteSize(player,16,16)

SetSpritePhysicsOn(player,2)		:	SetSpritePhysicsIsBullet(player,1)
SetSpritePosition(player,100,240)	:	SetSpriteVisible(player,0)
SetSpritePhysicsCanRotate(player,0)

Type Wall
	topTXT, topSPR, botTXT,botSPR
EndType
GLOBAL Walls as Wall []
MakeWalls()

SetPhysicsGravity(0,100)

Restart()


do
	if GetPointerPressed()
		SetSpritePhysicsVelocity(player,0,-100.0)
		nextflap# = Timer()
	endif
	
	If GetRawMouseRightState() //DIVE!
		SetSpritePhysicsVelocity(player,0,GetSpritePhysicsVelocityY(player) + 10 )
		frame = 0	:	SetTextString(playerTXT, frames[0])	:	nextflap# = timer() + 0.1
	Else
		if nextflap# < timer()
			INC frame	:	if frame > frames.length then frame = 0
			SetTextString(playerTXT, frames[frame])
			nextflap# = timer() + 0.1
		endif
	Endif
	

	SetTextPosition(playerTXT,GetSpriteXByOffset(player),GetSpriteYByOffset(player)-16)
		
	
    If GetRawKeyState(27) then End    

	DoWalls()

	CheckHits()

	
	print("FLY HARD!")
	Print("Score: " + STR(Score) )
    Sync()
loop

Function CheckHits()
	If GetSpriteFirstContact(player) or GetSpriteCollision(player,Walls[0].topSPR) or GetSpriteCollision(player,Walls[0].botspr)
		GameOver()
	EndIf
EndFunction

Function GameOver()
	Time# = Timer() + 5
	SetTextColor(playerTXT,255,0,0,255)
	Repeat
		If GetRawKeyState(27) then End   
		Print("OUCH!")
		Sync()
	Until Timer() > Time# or GetPointerPressed()
	SetTextColor(playerTXT,255,255,255,255)
	Restart()
EndFunction

Function Restart()
	SetTextVisible(Walls[0].topTXT, 0)
	SetTextVisible(Walls[0].botTXT,0)
	SetTextPosition(playerTXT,320,120)
	nextflap# = Timer()
	If Score > High
		High = Score
		file = OpenToWrite(hi$)	:	WriteInteger(file,high)	:	CloseFile(file)
	Endif
	Repeat
		If GetRawKeyState(27) then End
		Print("FLY HARD!")
		Print("[LMB] = Flap!  [RMB] = Dive!")
		Print("Last Score: " + STR(Score))
		Print("High Score: " + STR(High))
		Print("[Flap] to Continue")
		if nextflap# < timer()
			INC frame	:	if frame > frames.length then frame = 0
			SetTextString(playerTXT, frames[frame])
			nextflap# = timer() + 0.1
		endif

		Sync()
	Until GetPointerPressed()
	Rate# = 3.0
	score = 0
	SetTextPosition(Walls[0].topTXT, 640,(-8+Random(0,4))*32)
	SetTextVisible(Walls[0].topTXT, 1)
	SettextVisible(Walls[0].botTXT,1)
	SetSpritePositionByOffset(player,100,180)
EndFunction


Function DoWalls()
	for x = 0 to Walls.length
		tspr = walls[x].topspr	:	ttxt = Walls[x].topTXT
		bspr = walls[x].botspr	:	btxt = Walls[x].botTXT
		SetTextX(ttxt, GetTextX(ttxt) - Rate#)
		if GettextX(ttxt) < 0
			SetTextPosition(ttxt, 640,(-9+Random(0,5))*32)
			INC Rate#, 0.4
			INC Score
		Endif
		SetSpritePosition(tspr,gettextx(ttxt),GettextY(ttxt)+40)
		SetTextPosition(btxt,GetTextX(ttxt),GetTextY(ttxt)+450)
		SetSpritePosition(bspr, GetTextX(ttxt), GetTextY(ttxt)+450+40)
	next x
EndFunction

Function MakeWalls()
	TXT$ = ""
	for x = 1 to 10
		TXT$ = TXT$ + CHR(10) + "[]"
	next x

	top = CreateText(TXT$)		:	SetTextSize(top,32)	:	SetTextPosition(top, 640,(-9+Random(0,5))*32)
	
	tspr = CreateSprite(0)		:	SetSpriteSize(tspr,16,310)
	SetSpriteVisible(tspr,0)

	bot = CreateText(TXT$)		:	SetTextSize(bot,32)
	bspr = CloneSprite(tspr)
	SetSpriteVisible(bspr,0)

	thiswall as Wall
		thiswall.topTXT = top	:	thiswall.topSPR = top
		thiswall.botTXT = bot 	:	thiswall.botSPR = bspr
		walls.insert(thiswall)
EndFunction

// Project: ..::..
// Created: 2021-12-26

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "*!*" )
SetWindowSize( 1920, 1080, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1920, 1080 ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 0, 0 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 1 ) // 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




#Constant _SCREEN_WIDTH_ 240
#Constant _SCREEN_HEIGHT_ 135
#Constant _SCREEN_MIDX_ 120
#Constant _SCREEN_MIDY_ 62.5

#Constant _TEXTURE_SIZE_ 256
#Constant _TEXTURE_AND_ 255


Type _VEC_4_
	X			As Float
	Y			As Float
	Z			As Float
	W			As Float
EndType

Global ProjectionPlaneWidth As Float
Global ProjectionPlaneHeight As Float
Global ProjectionPlaneDistance As Float
Global CameraFOV As Float
Global CameraHalfFOV As Float
Global CameraDeltaAngle As Float
Global CameraAngle As _VEC_4_
Global CameraPosition As _VEC_4_
Global _GRID_SIZE_ As Float
Global TurnSpeed As Float
Global MoveSpeed As Float

Global _TEXTURE_ As Float[8, _TEXTURE_SIZE_, _TEXTURE_SIZE_, 3]








Global _EOL_ As String
_EOL_ = Chr(13) + Chr(10)


Global _MAP_ As Integer[64, 64], _SURFACE_ As Integer[_SCREEN_HEIGHT_]
Global _CHAR_SIZE_ As Float
Global _X_TILES_ As Integer, _Z_TILES_ As Integer

_LOAD_MAP_()
_CREATE_TEXTURES_()

Do
    //_CLS_() no need to clear the screen
    _GET_USER_INPUT_()
	_RAY_CAST_()
    _SHOW_CONTROLS_()
    Sync()
Loop



Function _RAY_CAST_()
    Local X As Integer, Y As Integer, i As Integer, Ax As Integer, Size As Integer, cX As Integer, cY As Integer, C As Integer
    Local ScanAngle As Float, EyeAngle As Float, DeltaAngle As Float, f As Float, g As Float, h As Float
	Local S As String, E As String

    Local SinY As Float, CosY As Float, RayDirX As Float, RayDirZ As Float, StartX As Float, StartZ As Float
    Local ddx As Float, ddz As Float, SideX As Float, SideZ As Float, Distance As Float
    Local xMap As Integer, zMap As Integer, iX As Integer, iZ As Integer

	Local StepX As Integer, StepZ As Integer, Wall As Integer, Side As Integer, WallHeight As Integer

	Local YStart As Integer, YEnd As Integer
	Local t00 As Float, t01 As Float, tU As Float, tV As Float, uTU As Float, tX As Integer, tY As Integer, xIntersect As Float, zIntersect As Float, vStep As Float
	
    ScanAngle = CameraAngle.Y - CameraHalfFOV
    EyeAngle = -CameraHalfFOV
    DeltaAngle = CameraDeltaAngle    
    
    
    Size = 60
    //cx = (_SCREEN_WIDTH_ - Size * _X_TILES_)/2
    //cy = _SCREEN_HEIGHT_ - (_SCREEN_HEIGHT_ - Size * _Z_TILES_)/2
    
    ScanAngle = ScanAngle - DeltaAngle
    EyeAngle = EyeAngle - DeltaAngle
    
    
    
    StartX = CameraPosition.X
    StartZ = CameraPosition.Z
    iX = Floor(StartX)
    iZ = Floor(StartZ)
    
    
    For X = 0 To _SCREEN_WIDTH_ - 1
        ScanAngle = ScanAngle + DeltaAngle
        EyeAngle = EyeAngle + DeltaAngle
        
        SinY = Sin(ScanAngle)
        CosY = Cos(ScanAngle)
        
        
        raydirx = CosY
        raydirz = SinY
        
        
        ddx = sqrt(1 + (SinY * SinY)/(CosY * Cosy))
        ddz = sqrt(1 + (CosY * Cosy)/(SinY * SinY))
        
        xMap = iX
        zMap = iZ
		f = xMap
		g = zMap
        If CosY < 0
            StepX = -1
            SideX = (StartX - f) * ddx
        Else
            StepX = 1
            SideX = (1 + f - StartX) * ddx
        EndIf
        
        If SinY < 0
            StepZ = -1
            SideZ = (StartZ - g) * ddz
        Else
            StepZ = 1
            SideZ = (1 + g - StartZ) * ddz
        EndIf
        

        
        Do
            If SideX < SideZ
                SideX = SideX + ddx
                xMap = xMap + StepX
                Side = 0
            Else
                SideZ = SideZ + ddz
                zMap = zMap + StepZ
                Side = 1
            EndIf
            If (xMap < 0) Or (xMap >= _X_TILES_) Or (zMap < 0) Or (zMap >= _Z_TILES_) Then Exit
            Wall = _MAP_[xMap, zMap]
            If Wall Then Exit
        Loop

        If Side = 0
            Distance = Abs((xMap - StartX + (1 - StepX)/2)/CosY)
            tU = StartZ + ((xMap - StartX + (1 - StepX)/2)/CosY)*SinY
            If CosY < 0 Then Side = 1
            xIntersect = StartX + Distance * CosY / Abs(Cos(EyeAngle))
            zIntersect = StartZ + Distance * SinY / Abs(Cos(EyeAngle))
        Else
            Distance = Abs((zMap - StartZ + (1 - StepZ)/2)/SinY)
            tU = StartX + ((zMap - StartZ + (1 - StepZ)/2)/SinY)*CosY
            Side = Side * 2
            If SinY < 0 Then Side = 3
            xIntersect = StartX + Distance * CosY / Abs(Cos(EyeAngle))
            zIntersect = StartZ + Distance * SinY / Abs(Cos(EyeAngle))
            
        EndIf
     
		f = _SCREEN_HEIGHT_
        WallHeight = Abs(Floor(f/(Distance * Cos(EyeAngle))))
        
        Ax = X //+ 1
        YStart = 0
        YEnd = Floor(_SCREEN_HEIGHT_ - WallHeight)/2
        If YEnd > _SCREEN_HEIGHT_ - 1 Then YEnd = _SCREEN_HEIGHT_ - 1
        If YEnd < 0 Then YEnd = 0
        h = YStart
        f = _SCREEN_MIDY_ - h
        g = X - _SCREEN_MIDX_
        g = g * _TEXTURE_AND_
        h = _SCREEN_WIDTH_
        h = h * _TEXTURE_AND_
        For i = YStart To YEnd
            t00 =  g/f
            t01 = h/f
            tU = t00 * CosY + t01 * SinY
            tV = t01 * CosY - t00 * SinY
            tX = tU/8
            tY = tV/8
            tX = tX  && _TEXTURE_AND_
            tY = tY  && _TEXTURE_AND_
			SetTextCharColor(_SURFACE_[i], X, _TEXTURE_[0, tX, tY, 2], _TEXTURE_[0, tX, tY, 1], _TEXTURE_[0, tX, tY, 0], 255)
			f = f - 1
		Next
		
		YStart = (_SCREEN_HEIGHT_ - WallHeight)/2 + 1
		YEnd = (_SCREEN_HEIGHT_ + WallHeight)/2
        If YEnd > _SCREEN_HEIGHT_ - 1 Then YEnd = _SCREEN_HEIGHT_ - 1
        If YEnd < 0 Then YEnd = 0
        
        tU = uTU
        f = WallHeight
        h = _TEXTURE_AND_
        VStep = h/f
        tV = 0
        tX = Floor(tU * _TEXTURE_AND_) && _TEXTURE_AND_
		If YStart < 0
			h = YStart
			tv = -vSTep * h
			YStart = 0
		EndIf
		Side = Side + 2
        For i = YStart To YEnd
            tY = Floor(tV) && _TEXTURE_AND_
            tV = tV + VStep
			SetTextCharColor(_SURFACE_[i], Ax, _TEXTURE_[Side, tX, tY, 2], _TEXTURE_[Side, tX, tY, 1], _TEXTURE_[Side, tX, tY, 0], 255)
		Next


		YStart = YEnd + 1
		YEnd = _SCREEN_HEIGHT_ - 1
		f = Ystart - _SCREEN_MIDY_
		h = _TEXTURE_AND_
		g = _SCREEN_MIDY_
		g = g * h/Distance
		
        For i = YStart To YEnd
            t00 = g/f
            t01 = h - t00
            tU = t00 * xIntersect + t01 * StartX
            tV = t00 * zIntersect + t01 * StartZ
            tX = Floor(tU) && _TEXTURE_AND_
            tY = Floor(tV) && _TEXTURE_AND_
			SetTextCharColor(_SURFACE_[i], Ax, _TEXTURE_[1, tX, tY, 2], _TEXTURE_[1, tX, tY, 1], _TEXTURE_[1, tX, tY, 0], 255)
			f = f + 1
		Next

        
    Next
EndFunction




Function _LOAD_MAP_()
	Local S As String, i As Integer, j As Integer, k As Integer
	
	For i = 0 To _SCREEN_WIDTH_ - 1
		S = S + "Q"
	Next
	
	j = CreateText(S)
	_CHAR_SIZE_ = 100
	Do
		SetTextSize(j, _CHAR_SIZE_)
		If GetTextTotalWidth(j) < 1920 Then Exit
		_CHAR_SIZE_ = _CHAR_SIZE_ - 0.5
	Loop
	_CHAR_SIZE_ = _CHAR_SIZE_ + 0.5
	DeleteText(j)
	_X_TILES_ = 32
	_Z_TILES_ = 32
	
	S = ""
	S = S + "11111111111111111111111111111111"
	S = S + "1                              1"
	S = S + "1   11111                 1    1"
	S = S + "1                              1"
	S = S + "1                 1111 111     1"
	S = S + "1                    1 1       1"
	S = S + "1   1111  1111       1 1       1"
	S = S + "1      1  1          1 1       1"
	S = S + "1      1  1                    1"
	S = S + "1      1111               1111 1"
	S = S + "1                11111    1    1"
	S = S + "1         1               1    1"
	S = S + "11111111111        11111111    1"
	S = S + "1                  1           1"
	S = S + "1     11111      1 1           1"
	S = S + "1     1   1      1 1           1"
	S = S + "1     1   1      1 11111       1"
	S = S + "1     1   1      1     1       1"
	S = S + "1   111   1111   1111111       1"
	S = S + "1            1                 1"
	S = S + "1            1           1111  1"
	S = S + "1     111111 1           1     1"
	S = S + "1            11111       1     1"
	S = S + "1                        1     1"
	S = S + "1       1111                   1"
	S = S + "1       1      1   1           1"
	S = S + "1       1   1111   1           1"
	S = S + "1   11111   1  11 11     111   1"
	S = S + "1           1            1 1   1"
	S = S + "1           1            111   1"
	S = S + "1           1                  1"
	S = S + "11111111111111111111111111111111"
	
	
	
	
	k = 1
	For i = 0 To _Z_TILES_ - 1
		For j = 0 To _X_TILES_ - 1
			_MAP_[j, i] = 0
			If Mid(S, k, 1) <> " " Then _MAP_[j, i] = 1
			k = k + 1
		Next
	Next





	_GRID_SIZE_ = 1
	TurnSpeed = 50
	MoveSpeed = _GRID_SIZE_
	CameraPosition.X                = 12.23 * _GRID_SIZE_
	CameraPosition.Y                = 0.5 * _GRID_SIZE_
	CameraPosition.Z                = 12.23 * _GRID_SIZE_
	CameraPosition.W                = 0 * _GRID_SIZE_
	CameraFOV                       = 60
	CameraHalfFOV                   = CameraFOV/2
	CameraDeltaAngle                = CameraFOV/(_SCREEN_WIDTH_)
	ProjectionPlaneDistance         = (_SCREEN_WIDTH_/2)/Tan(CameraFov/2)


	

	For i = 0 To _SCREEN_HEIGHT_ - 1
		S = ""
		For j = 0 To _SCREEN_WIDTH_ - 1
			S = S + Chr(65 + (Random() >> 12))
		Next
		_SURFACE_[i] = CreateText(S)
		SetTextPosition(_SURFACE_[i], 0, i * (_CHAR_SIZE_ - 4))
		SetTextSize(_SURFACE_[i], _CHAR_SIZE_)
		SetTextColor(_SURFACE_[i], 0, 0, 0, 255)
	Next
	
	
EndFunction

/*
Function _CLS_()
	Local i As Integer
	For i = 0 To _SCREEN_HEIGHT_ - 1
		SetTextColor(_SURFACE_[i], 0, 0, 0, 255)
	Next
EndFunction
*/

Function _SHOW_CONTROLS_()
	Local X As Integer, Y As Integer, i As Integer, Ax As Integer, Bx As Integer, Ay As Integer
	Ax = X + 17
	Bx = _SCREEN_WIDTH_ - 21
	For X = 0 To 15
		Y = 15 - X
		Ay = _SCREEN_HEIGHT_ - Y/2 - 25
		For i = 0 To Y
			SetTextCharColor(_SURFACE_[Ay + i], Ax, 255, 255, 0, 255)
			SetTextCharColor(_SURFACE_[Ay + i], Bx, 255, 255, 0, 255)
		Next
		
		SetTextCharColor(_SURFACE_[2 + i], Bx - 1, 255, 0, 0, 255)
		SetTextCharColor(_SURFACE_[2 + i], Bx, 255, 0, 0, 255)
		SetTextCharColor(_SURFACE_[2 + i], _SCREEN_WIDTH_ - 24 + Ax, 255, 0, 0, 255)
		SetTextCharColor(_SURFACE_[2 + i], _SCREEN_WIDTH_ - 24 + Ax + 1, 255, 0, 0, 255)
		
		Ax = Ax - 1
		Bx = Bx + 1
	Next
EndFunction

Function _GET_USER_INPUT_()
    Local _FPS_ As Float
    Local Move As Float, Turn As Float, SinY As Float, CosY As Float, SinS As Float, CosS As Float, VMove As Float, HMove As Float
    Local MouseMove As _VEC_4_, DeltaAngle As _VEC_4_, DeltaPos As _VEC_4_
    Local xMap As Integer, zMap As Integer
    _FPS_ = ScreenFPS()
    Turn = TurnSpeed/_FPS_
    Move = MoveSpeed/_FPS_
    
    MouseMove.X = 0
    
    If GetPointerState()
		CosY = GetPointerX()
		SinY = GetPointerY()
		If SinY >= 930
			If SinY <= 1070
				If CosY <= 150
					If CosY >= 15 Then MouseMove.X = -1
				Else
					If CosY >= 1780
						If CosY <= 1910 Then MouseMove.X = 1
					EndIf
				EndIf
			EndIf
		EndIf
	
		If SinY >= 30
			If SinY <= 170
				If CosY <= 1910
					If CosY >= 1780 Then END
				EndIf
			EndIf
		EndIf
	
	
	EndIf
    
    
    
    If GetRawKeyState(65) Then MouseMove.X = -1
    If GetRawKeyState(68) Then MouseMove.X = 1
    
    
    
    
    MouseMove.X = MouseMove.X * Turn
    CameraAngle.Y = CameraAngle.Y + MouseMove.X
    SinY = Sin(CameraAngle.Y)
    CosY = Cos(CameraAngle.Y)
    SinS = Sin(CameraAngle.Y + 90)
    CosS = Cos(CameraAngle.Y + 90)
    
    VMove = 1
    If GetRawKeyState(Asc("W")) Then VMove = 1
    If GetRawKeyState(Asc("S")) Then VMove = -1
    
    
    
    
    
    
    DeltaPos.X = CosY * VMove * Move
    DeltaPos.Y = 0
    DeltaPos.Z = SinY * VMove * Move
    DeltaPos.W = 0
    
    CameraPosition.X = CameraPosition.X + DeltaPos.X
    xMap = Floor(CameraPosition.X + DeltaPos.X)
    zMap = Floor(CameraPosition.Z + DeltaPos.Z)
    If _MAP_[xMap, zMap] Then CameraPosition.X = CameraPosition.X - DeltaPos.X
    CameraPosition.Z = CameraPosition.Z + DeltaPos.Z
    xMap = Floor(CameraPosition.X + DeltaPos.X)
    zMap = Floor(CameraPosition.Z + DeltaPos.Z)    
	If _MAP_[xMap, zMap] Then CameraPosition.Z = CameraPosition.Z - DeltaPos.Z
EndFunction



Function _CREATE_TEXTURES_()
    Local e1 As Integer, e2 As Integer, d As Integer, R As Integer, G As Integer, B As Integer, i As Integer, j As Integer

    
    
    
    

    e1 = _TEXTURE_SIZE_
    d = _TEXTURE_SIZE_
    _TEXTURE_[0, 0, 0, 0] = 245
    _TEXTURE_[0, 0, 0, 1] = 64
    _TEXTURE_[0, 0, 0, 2] = 16
    
    Do
		If d <= 1 Then Exit
        e2 = d/2
        For i = 0 to _TEXTURE_AND_ Step d
            For j = 0 to _TEXTURE_AND_ Step d
                R = (_TEXTURE_[0, i, j, 2] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, j, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[0, i, j, 1] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, j, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[0, i, j, 0] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, j, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, j, 0] = B
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, j, 1] = G
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, j, 2] = R
    
                R = (_TEXTURE_[0, i, j, 2] + _TEXTURE_[0, i, (j + d) && _TEXTURE_AND_, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[0, i, j, 1] + _TEXTURE_[0, i, (j + d) && _TEXTURE_AND_, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[0, i, j, 0] + _TEXTURE_[0, i, (j + d) && _TEXTURE_AND_, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                
                _TEXTURE_[0, i, (j + e2) && _TEXTURE_AND_, 0] = B
                _TEXTURE_[0, i, (j + e2) && _TEXTURE_AND_, 1] = G
                _TEXTURE_[0, i, (j + e2) && _TEXTURE_AND_, 2] = R
    
                R = (_TEXTURE_[0, i, j, 2] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[0, i, j, 1] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[0, i, j, 0] + _TEXTURE_[0, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 0] = B
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 1] = G
                _TEXTURE_[0, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 2] = R
            Next
        Next
        e1 = e1/2
        d = e1
    Loop        
    
    e1 = _TEXTURE_SIZE_
    d = _TEXTURE_SIZE_
    _TEXTURE_[1, 0, 0, 0] = 8
    _TEXTURE_[1, 0, 0, 1] = 64
    _TEXTURE_[1, 0, 0, 2] = 16
    
    Do
		If d <= 1 Then Exit
        e2 = d/2
        For i = 0 to _TEXTURE_AND_ Step d
            For j = 0 to _TEXTURE_AND_ Step d
                R = (_TEXTURE_[1, i, j, 2] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, j, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[1, i, j, 1] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, j, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[1, i, j, 0] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, j, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, j, 0] = B
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, j, 1] = G
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, j, 2] = R
    
                R = (_TEXTURE_[1, i, j, 2] + _TEXTURE_[1, i, (j + d) && _TEXTURE_AND_, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[1, i, j, 1] + _TEXTURE_[1, i, (j + d) && _TEXTURE_AND_, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[1, i, j, 0] + _TEXTURE_[1, i, (j + d) && _TEXTURE_AND_, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                
                _TEXTURE_[1, i, (j + e2) && _TEXTURE_AND_, 0] = B
                _TEXTURE_[1, i, (j + e2) && _TEXTURE_AND_, 1] = G
                _TEXTURE_[1, i, (j + e2) && _TEXTURE_AND_, 2] = R
    
                R = (_TEXTURE_[1, i, j, 2] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 2] + (_RND_() - 0.5) * e1)/2
                G = (_TEXTURE_[1, i, j, 1] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 1] + (_RND_() - 0.5) * e1)/2
                B = (_TEXTURE_[1, i, j, 0] + _TEXTURE_[1, (i + d) && _TEXTURE_AND_, (j + d) && _TEXTURE_AND_, 0] + (_RND_() - 0.5) * e1)/2
                If R > 255 Then R = 255
                If G > 255 Then G = 255
                If B > 255 Then B = 255
                If R < 0 Then R = 0
                If G < 0 Then G = 0
                If B < 0 Then B = 0
                
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 0] = B
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 1] = G
                _TEXTURE_[1, (i + e2) && _TEXTURE_AND_, (j + e2) && _TEXTURE_AND_, 2] = R
            Next
        Next
        e1 = e1/2
        d = e1
    Loop
    
    
    For i = 0 To _TEXTURE_AND_
		For j = 0 To _TEXTURE_AND_
			B = 4 + _RND_() * 4
			G = 16 + _RND_() * 8
			R = 128 + _RND_() * 32
			_TEXTURE_[2, j, i, 0] = B
			_TEXTURE_[2, j, i, 1] = G
			_TEXTURE_[2, j, i, 2] = R

			_TEXTURE_[3, j, i, 0] = B * 100/150
			_TEXTURE_[3, j, i, 1] = G * 100/150
			_TEXTURE_[3, j, i, 2] = R * 100/150

			_TEXTURE_[4, j, i, 0] = B * 100/260
			_TEXTURE_[4, j, i, 1] = G * 100/260
			_TEXTURE_[4, j, i, 2] = R * 100/260
			
			_TEXTURE_[5, j, i, 0] = B * 100/150
			_TEXTURE_[5, j, i, 1] = G * 100/150
			_TEXTURE_[5, j, i, 2] = R * 100/150
			
		Next
	Next
    
    e1 = _TEXTURE_SIZE_/4
    For i = 0 To 3
		For G = 0 To 3
		For j = 0 To _TEXTURE_AND_
			
				R = 245 + _RND_() * 10
				_TEXTURE_[2, j, i * e1 + G, 0] = R
				_TEXTURE_[2, j, i * e1 + G, 1] = R
				_TEXTURE_[2, j, i * e1 + G, 2] = R
				
				_TEXTURE_[3, j, i * e1 + G, 0] = R * 100/150
				_TEXTURE_[3, j, i * e1 + G, 1] = R * 100/150
				_TEXTURE_[3, j, i * e1 + G, 2] = R * 100/150

				_TEXTURE_[4, j, i * e1 + G, 0] = R * 100/260
				_TEXTURE_[4, j, i * e1 + G, 1] = R * 100/260
				_TEXTURE_[4, j, i * e1 + G, 2] = R * 100/260

				_TEXTURE_[5, j, i * e1 + G, 0] = R * 100/150
				_TEXTURE_[5, j, i * e1 + G, 1] = R * 100/150
				_TEXTURE_[5, j, i * e1 + G, 2] = R * 100/150
			Next
		Next
    Next
    
EndFunction

Function _RND_()
	Local f As Float
	f = Random()
	f = f/65535
EndFunction f

// Project: Lady Bugs by ando - may contain a bug
// Created: 21-12-24

SetErrorMode(2)
//SetVSync(1)

Global width# as Float
Global height# as Float

width# = GetMaxDeviceWidth() // I had to use # to stabilise mouselook over different pc's
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#) // doesn't have to match the window
SetSyncRate(30,0)
SetScissor(0,0,0,0) // use the maximum available screen space
UseNewDefaultFonts(1)
SetPrintSize(height#/25)

// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx map

Global map as integer [19,19]
Global object as integer [19,19]
Global monsterPos as integer [19,19]
Global monster1 as integer
Global player as integer
Global item as integer
Global x,y as integer

AddRow(1 ,"1111111111111111111") // 0 = vacant
AddRow(2 ,"1000000007000000001") // 1 = wall
AddRow(3 ,"1012431011101243101") // 2 = horizontal door left
AddRow(4 ,"1010001000001000101") // 3 = horizontal door right
AddRow(5 ,"1010101124311010101") // 4 = door center
AddRow(6 ,"1050101000001010501") // 5 = virtical door upper
AddRow(7 ,"1040101011101010401") // 6 = virtical door lower
AddRow(8 ,"1060000000000000601") // 7 = player
AddRow(9 ,"1012431010101243101") // 8 = monster
AddRow(10,"1010001010101000101") // 9 = item to collect
AddRow(11,"1010101018101010101")
AddRow(12,"1050101000001010501")
AddRow(13,"1040101010101010401")
AddRow(14,"1060101010101010601")
AddRow(15,"1010101010101010101")
AddRow(16,"1010000010100000101")
AddRow(17,"1011124310124311101")
AddRow(18,"1000000009000000001")
AddRow(19,"1111111111111111111")

Function AddRow(y,data$)
	    for x = 1 to 19
	        tile = VAL(MID(data$,x,1))
	        if tile=0
	            map[x,y]=0
	        endif
	        if tile=1
	            map[x,y]=1
	            object[x,y]=CreateText(chr(127)) //  127  wall
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,255,50,150)
	        endif
	        if tile=2
	            map[x,y]=2
	            object[x,y]=CreateText(chr(60)) //   60  door left
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x+1,y-1]=CreateText(chr(94)) //   94  door upper invisible
	            SetTextSize(object[x+1,y-1],height#/20)
	            SetTextPosition(object[x+1,y-1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+2)-height#/25)
	            SetTextColor(object[x+1,y-1],50,150,255,255)
	            settextvisible(object[x+1,y-1],0)
	            
	            object[x+1,y+1]=CreateText(chr(118)) //   118  door lower invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=3
	            map[x,y]=3
	            object[x,y]=CreateText(chr(62)) //   62  door right
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=4
	            map[x,y]=4
	            object[x,y]=CreateText(chr(847)) //   847  door center
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0085,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],150,200,255,255)
	        endif
	        if tile=5
	            map[x,y]=5
	            object[x,y]=CreateText(chr(94)) //   94  door upper
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x-1,y+1]=CreateText(chr(60)) //   60  door left invisible
	            SetTextSize(object[x-1,y+1],height#/20)
	            SetTextPosition(object[x-1,y+1],(width#/41)*(x+10)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x-1,y+1],50,150,255,255)
	            settextvisible(object[x-1,y+1],0)
	            
	            object[x+1,y+1]=CreateText(chr(62)) //   62  door right invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=6
	            map[x,y]=6
	            object[x,y]=CreateText(chr(118)) //   118  door lower
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=7                         //   PLAYER
                map[x,y]=7
	            object[x,y]=CreateText(chr(79))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41,(height#/25)*(y+3)-height#/25)
                player=object[x,y]
	        endif
	        if tile=8                         //   MONSTER
                map[x,y]=0
                monsterPos[x,y]=1
                monster1=CreateText(chr(88))
                SetTextSize(monster1,height#/20)
                SetTextPosition(monster1,(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(monster1,255,50,50,255)
	        endif
	        if tile=9                         //   item
                map[x,y]=9
	            object[x,y]=CreateText(chr(164))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(object[x,y],255,255,50,255)
                item=object[x,y]
	        endif
	    next x
EndFunction

pPosX=10
pPosY=2
placeItem=0

monsterDir$="up"
mPosX=10
mPosY=11

// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  MAIN LOOP

do
    if gameover=0
        
        if score > 0
            scorekiller=scorekiller+1
            if scorekiller=50
                scorekiller=0
                score=score-1
            endif
        endif
        
        // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  monster X
        
	    if monsterdelay < 2
	        monsterdelay=monsterdelay+1
	    endif
	    
	    if monsterdelay=2
		    if monsterDir$="up"
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY-1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY-1]=1
		            mPosY=mPosY-1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)-height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="down"
		        if map[mPosX,mPosY+1]=0 or map[mPosX,mPosY+1]=7 or map[mPosX,mPosY+1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY+1]=1
		            mPosY=mPosY+1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)+height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="left"
		        if map[mPosX-1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX-1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX-1,mPosY]=1
		            mPosX=mPosX-1
		            SetTextPosition(monster1,GetTextX(monster1)-width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="right"
		        if map[mPosX+1,mPosY]=0 or map[mPosX+1,mPosY]=7 or map[mPosX+1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX+1,mPosY]=1
		            mPosX=mPosX+1
		            SetTextPosition(monster1,GetTextX(monster1)+width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="left"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="right"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx item
	    
	    if placeItem=1
	        pickX=random(2,18)
	        pickY=random(2,18)
	        if map[pickX,pickY]=0
	            if map[pickX+1,pickY]<>4 and map[pickX-1,pickY]<>4 and map[pickX,pickY+1]<>4 and map[pickX,pickY-1]<>4
		            map[pickX,pickY]=9
		            SetTextPosition(item,(width#/41)*(pickX+11)-width#/41+width#*0.0022,(height#/25)*(pickY+3)-height#/25)
		            placeItem=0
		            settextvisible(item,1)
	            endif
	        endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx player
	    
	    if playerdelay < 4
	        playerdelay=playerdelay+1
	    endif
	    
	    if playerdelay=4
		    if GetRawKeyState(38)     //  up
		        if map[pPosX,pPosY-1]=0
		            map[pPosX,pPosY-1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY-1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)-height#/25)
		        elseif map[pPosX,pPosY-1]=2   //  left door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX+2,pPosY-1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX+2,pPosY-1]=0
		            map[pPosX+1,pPosY]=6
		            map[pPosX+1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=3    // right door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX-2,pPosY-1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX-2,pPosY-1]=0
		            map[pPosX-1,pPosY]=6
		            map[pPosX-1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=9    // item
		            map[pPosX,pPosY-1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(40) //  down
		        if map[pPosX,pPosY+1]=0
		            map[pPosX,pPosY+1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY+1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)+height#/25)
	            elseif map[pPosX,pPosY+1]=2   //  left door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX+2,pPosY+1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX+2,pPosY+1]=0
		            map[pPosX+1,pPosY]=5
		            map[pPosX+1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=3    // right door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX-2,pPosY+1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX-2,pPosY+1]=0
		            map[pPosX-1,pPosY]=5
		            map[pPosX-1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=9    // item
		            map[pPosX,pPosY+1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(37)       //  left
		        if map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX-1
		            SetTextPosition(player,GetTextX(player)-width#/41,GetTextY(player))
		        elseif map[pPosX-1,pPosY]=5         //  upper door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX-2,pPosY+1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY+2]=0
		            map[pPosX-2,pPosY+1]=2
		            map[pPosX,pPosY+1]=3
		        elseif map[pPosX-1,pPosY]=6         // lower door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY-2],0)
		            settextvisible(object[pPosX-2,pPosY-1],1)
		            settextvisible(object[pPosX,pPosY-1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY-2]=0
		            map[pPosX-2,pPosY-1]=2
		            map[pPosX,pPosY-1]=3
		        elseif map[pPosX-1,pPosY]=9    // item
		            map[pPosX-1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(39)  //  right
		        if map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX+1
		            SetTextPosition(player,GetTextX(player)+width#/41,GetTextY(player))
		        elseif map[pPosX+1,pPosY]=5   //  upper door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX+2,pPosY+1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY+2]=0
		            map[pPosX,pPosY+1]=2
		            map[pPosX+2,pPosY+1]=3
		        elseif map[pPosX+1,pPosY]=6    // lower door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY-2],0)
		            settextvisible(object[pPosX,pPosY-1],1)
		            settextvisible(object[pPosX+2,pPosY-1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY-2]=0
		            map[pPosX,pPosY-1]=2
		            map[pPosX+2,pPosY-1]=3
		        elseif map[pPosX+1,pPosY]=9    // item
		            map[pPosX+1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    endif
	    endif
    endif
    
    if pPosX=mPosX
        if pPosY=mPosY
            gameover=1
        endif
    endif
    
    Print(" score "+str(score))
    
    fps=ScreenFPS()
    Print(" "+str(fps))
    
    Sync()
    if GetrawKeyPressed(27) then end
loop

ando

SetErrorMode(2):width# = GetMaxDeviceWidth():height# = GetMaxDeviceHeight():SetWindowSize(width#,height#,1):SetVirtualResolution(width#,height#):SetSyncRate(30,0):SetScissor(0,0,0,0):UseNewDefaultFonts(1):Create3DPhysicsWorld():Set3DPhysicsGravity(0,-0.15,0):SetGenerateMipmaps(1):SetSkyboxVisible(1):SetSkyBoxHorizonColor(100,100,255):SetSkyBoxSkyColor(100,100,255):setprintsize(height#/25):light1=1:CreatePointLight(light1,0,1000,0,10000,255,255,255):SetPointLightMode(light1,1):ground=createobjectplane(10000,10000):setobjectcolor(ground,40,100,40,255):rotateobjectlocalX(ground,90):Create3DPhysicsStaticBody(ground):setobjectshapebox(ground):SetObjectCollisionMode(ground,1):previousBoxPos#=CreateVector3(0,0,0):currentPos#=CreateVector3(0,0,0):playerPos#=CreateVector3(0,0,0):gemPos#=CreateVector3(0,0,0):maxBoxes=50
for i=1 to maxBoxes
    boxID=i+1000          //Project: jumpy1 - Created: 21-12-29
    if i=1
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25)):SetObjectRotation(boxID,0,random(0,360),0):SetObjectposition(boxID,random(-500,500),random(10,30),random(100,1000)):setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255):SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12)):Create3DPhysicsStaticBody(boxID)
    endif
    if i>1
        SetVector3(previousBoxPos#,getobjectworldX(boxID-1),getobjectworldY(boxID-1),getobjectworldZ(boxID-1))
    repick:
        boxXpos=random(10,100) + getobjectworldX(boxID-1):boxYpos=random(100,150) + getobjectworldY(boxID-1):boxZpos=random(10,100) + getobjectworldZ(boxID-1):SetVector3(currentPos#,boxXpos,boxYpos,boxZpos):boxDist#=GetVector3Distance(previousBoxPos#,currentPos#)
        if GetrawKeyPressed(27) then end
        if boxDist# < 100 then goto repick
        if boxDist# > 200 then goto repick
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25)):SetObjectRotation(boxID,0,random(0,360),0):SetObjectposition(boxID,boxXpos,boxYpos,boxZpos):setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255):SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12)):Create3DPhysicsStaticBody(boxID)
        if i=maxBoxes
            gem=CreateObjectSphere(5,7,7):SetObjectposition(gem,getobjectworldX(boxID),getobjectworldY(boxID)+GetObjectSizeMaxY(boxID)*2,getobjectworldZ(boxID)):setobjectcoloremissive(gem,155,155,155):SetVector3(gemPos#,getobjectworldX(gem),getobjectworldY(gem),getobjectworldZ(gem))
        endif
    endif
next i
cam1=1:SetCameraRange(cam1, 0.1, 50000 ):SetCameraposition(cam1,0,5,0):SetCameraRotation(cam1,0,0,0):man1=CreateObjectsphere(2,6,12):SetObjectposition(man1,0,5,0):setobjectvisible(man1,0):SetObjectRotation(man1,0,0,0):Create3DPhysicsDynamicBody(man1):SetObject3DPhysicsCanSleep(man1,0):ovec = CreateVector3(0,0,0):rvec = CreateVector3(0,0,0):Create3DPhysicsCharacterController(man1,1,ovec,rvec,0.5):Set3DPhysicsCharacterControllerJumpSpeed(man1,4):Set3DPhysicsCharacterControllerFallSpeed(man1,4):Set3DPhysicsCharacterControllerGravity(man1,1):SetObjectCollisionMode(man1,1):SetObject3DPhysicsMass(man1,2):setrawmousevisible(0):SetRawMousePosition(width#/2,height#/2)
do
    if gameover=0
	    mouseX# = (GetRawMouseX()-width#/2)*0.2:mouseY# = (GetRawMouseY()-height#/2)*0.2:RotateCameraLocalX(cam1,mouseY#):SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
	    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
	    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
	    strafe# = (GetRawKeyState(68) - GetRawKeyState(65)):move# = (GetRawKeyState(87) - GetRawKeyState(83))
	    Move3DPhysicsCharacterController(man1,strafe#,move#,80):Rotate3DPhysicsCharacterController(man1,GetCameraAngleY(cam1)+mouseX#)
	    if GetRawKeyPressed(32)
	        Jump3DPhysicsCharacterController(man1)
	        jumps=jumps+1
	    endif
	    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1)+1,GetObjectZ(man1)):SetVector3(playerPos#,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1)):gemDist#=GetVector3Distance(playerPos#,gemPos#):if gemDist#<7 then gameover=1
    endif
    setobjectcolor(gem,random(15,255),random(15,255),random(15,255),255):print(" jumps "+str(jumps)):Step3DPhysicsWorld():SetRawMousePosition(width#/2,height#/2):Sync():if GetrawKeyPressed(27) then end
loop

SetErrorMode(2):width# = GetMaxDeviceWidth():height# = GetMaxDeviceHeight():SetWindowSize(width#,height#,1):SetVirtualResolution(width#,height#):SetSyncRate(30,0):SetScissor(0,0,0,0):UseNewDefaultFonts(1):Create3DPhysicsWorld():Set3DPhysicsGravity(0,-0.15,0):SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/25)
light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)//   Project: jumpy1 - Created: 21-12-29
SetPointLightMode(light1,1)
ground=createobjectplane(10000,10000)
setobjectcolor(ground,40,100,40,255)
rotateobjectlocalX(ground,90)
Create3DPhysicsStaticBody(ground)
setobjectshapebox(ground)
SetObjectCollisionMode(ground,1)
previousBoxPos#=CreateVector3(0,0,0):currentPos#=CreateVector3(0,0,0)
playerPos#=CreateVector3(0,0,0):gemPos#=CreateVector3(0,0,0)
maxBoxes=50
for i=1 to maxBoxes
    boxID=i+1000
    if i=1
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25))
        SetObjectRotation(boxID,0,random(0,360),0)
        SetObjectposition(boxID,random(-500,500),random(10,30),random(100,1000))
        setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255)
        SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12))
        Create3DPhysicsStaticBody(boxID)
    endif
    if i>1
        SetVector3(previousBoxPos#,getobjectworldX(boxID-1),getobjectworldY(boxID-1),getobjectworldZ(boxID-1))
    repick:
        boxXpos=random(10,100) + getobjectworldX(boxID-1)
        boxYpos=random(100,150) + getobjectworldY(boxID-1)
        boxZpos=random(10,100) + getobjectworldZ(boxID-1)
        SetVector3(currentPos#,boxXpos,boxYpos,boxZpos)
        boxDist#=GetVector3Distance(previousBoxPos#,currentPos#)
        if GetrawKeyPressed(27) then end
        if boxDist# < 100 then goto repick
        if boxDist# > 200 then goto repick
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25))
        SetObjectRotation(boxID,0,random(0,360),0)
        SetObjectposition(boxID,boxXpos,boxYpos,boxZpos)
        setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255)
        SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12))
        Create3DPhysicsStaticBody(boxID)
        if i=maxBoxes
            gem=CreateObjectSphere(5,7,7)
            SetObjectposition(gem,getobjectworldX(boxID),getobjectworldY(boxID)+GetObjectSizeMaxY(boxID)*2,getobjectworldZ(boxID))
            setobjectcoloremissive(gem,155,155,155)
            SetVector3(gemPos#,getobjectworldX(gem),getobjectworldY(gem),getobjectworldZ(gem))
        endif
    endif
next i
cam1=1
SetCameraRange(cam1, 0.1, 50000 )
SetCameraposition(cam1,0,5,0)
SetCameraRotation(cam1,0,0,0)
man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,0,5,0)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,0,0)
Create3DPhysicsDynamicBody(man1)
SetObject3DPhysicsCanSleep(man1,0)
ovec = CreateVector3(0,0,0):rvec = CreateVector3(0,0,0)
Create3DPhysicsCharacterController(man1,1,ovec,rvec,0.5)
Set3DPhysicsCharacterControllerJumpSpeed(man1,4)
Set3DPhysicsCharacterControllerFallSpeed(man1,4)
Set3DPhysicsCharacterControllerGravity(man1,1)
SetObjectCollisionMode(man1,1)
SetObject3DPhysicsMass(man1,2)
setrawmousevisible(0)
SetRawMousePosition(width#/2,height#/2)
do
    if gameover=0
	    mouseX# = (GetRawMouseX()-width#/2)*0.2:mouseY# = (GetRawMouseY()-height#/2)*0.2 
	    RotateCameraLocalX(cam1,mouseY#)
	    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
	    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
	    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
	    strafe# = (GetRawKeyState(68) - GetRawKeyState(65)):move# = (GetRawKeyState(87) - GetRawKeyState(83))
	    Move3DPhysicsCharacterController(man1,strafe#,move#,80)
	    Rotate3DPhysicsCharacterController(man1,GetCameraAngleY(cam1)+mouseX#)
	    if GetRawKeyPressed(32)
	        Jump3DPhysicsCharacterController(man1)
	        jumps=jumps+1
	    endif
	    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1)+1,GetObjectZ(man1))
	    SetVector3(playerPos#,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1))
	    gemDist#=GetVector3Distance(playerPos#,gemPos#)
	    if gemDist#<7 then gameover=1
    endif
    setobjectcolor(gem,random(15,255),random(15,255),random(15,255),255)
    print(" jumps "+str(jumps))
    Step3DPhysicsWorld()
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop

SetErrorMode(2):width# = GetMaxDeviceWidth():height# = GetMaxDeviceHeight():SetWindowSize(width#,height#,1):SetVirtualResolution(width#,height#):SetSyncRate(30,0):SetScissor(0,0,0,0):UseNewDefaultFonts(1):Create3DPhysicsWorld():Set3DPhysicsGravity(0,-0.15,0):SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/25)
light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)//   Project: jumpy1 - Created: 21-12-29
SetPointLightMode(light1,1)
ground=createobjectplane(10000,10000)
setobjectcolor(ground,40,100,40,255)
rotateobjectlocalX(ground,90)
Create3DPhysicsStaticBody(ground)
setobjectshapebox(ground)
SetObjectCollisionMode(ground,1)
previousBoxPos#=CreateVector3(0,0,0):currentPos#=CreateVector3(0,0,0)
playerPos#=CreateVector3(0,0,0):gemPos#=CreateVector3(0,0,0)
maxBoxes=50
SetRandomSeed(1)
for i=1 to maxBoxes
    boxID=i+1000
    if i=1
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25))
        SetObjectRotation(boxID,0,random(0,360),0)
        SetObjectposition(boxID,random(-500,500),random(10,30),random(100,1000))
        setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255)
        SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12))
        Create3DPhysicsStaticBody(boxID)
    endif
    if i>1
        SetVector3(previousBoxPos#,getobjectworldX(boxID-1),getobjectworldY(boxID-1),getobjectworldZ(boxID-1))
    repick:
        boxXpos=random(10,100) + getobjectworldX(boxID-1)
        boxYpos=random(100,150) + getobjectworldY(boxID-1)
        boxZpos=random(10,100) + getobjectworldZ(boxID-1)
        SetVector3(currentPos#,boxXpos,boxYpos,boxZpos)
        boxDist#=GetVector3Distance(previousBoxPos#,currentPos#)
        if GetrawKeyPressed(27) then end
        if boxDist# < 100 then goto repick
        if boxDist# > 200 then goto repick
        CreateObjectbox(boxID,random(5,25),random(5,25),random(5,25))
        SetObjectRotation(boxID,0,random(0,360),0)
        SetObjectposition(boxID,boxXpos,boxYpos,boxZpos)
        setobjectcolor(boxID,random(150,200),random(100,150),random(20,200),255)
        SetObjectScalePermanent(boxID,random(5,15),random(3,13),random(2,12))
        Create3DPhysicsStaticBody(boxID)
        if i=maxBoxes
            gem=CreateObjectSphere(5,7,7)
            SetObjectposition(gem,getobjectworldX(boxID),getobjectworldY(boxID)+GetObjectSizeMaxY(boxID)*2,getobjectworldZ(boxID))
            setobjectcoloremissive(gem,155,155,155)
            SetVector3(gemPos#,getobjectworldX(gem),getobjectworldY(gem),getobjectworldZ(gem))
        endif
    endif
next i
cam1=1:gameover=0
SetCameraRange(cam1, 0.1, 50000 )
SetCameraposition(cam1,0,5,0)
SetCameraRotation(cam1,0,0,0)
man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,0,5,0)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,0,0)
Create3DPhysicsDynamicBody(man1)
SetObject3DPhysicsCanSleep(man1,0)
ovec = CreateVector3(0,0,0):rvec = CreateVector3(0,0,0)
Create3DPhysicsCharacterController(man1,1,ovec,rvec,0.5)
Set3DPhysicsCharacterControllerJumpSpeed(man1,4)
Set3DPhysicsCharacterControllerFallSpeed(man1,4)
Set3DPhysicsCharacterControllerGravity(man1,1)
SetObjectCollisionMode(man1,1)
SetObject3DPhysicsMass(man1,2)
setrawmousevisible(0)
SetRawMousePosition(width#/2,height#/2)
do
    mouseX# = (GetRawMouseX()-width#/2)*0.2:mouseY# = (GetRawMouseY()-height#/2)*0.2 
    RotateCameraLocalX(cam1,mouseY#)
    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
    strafe# = (GetRawKeyState(68) - GetRawKeyState(65)):move# = (GetRawKeyState(87) - GetRawKeyState(83))
    Move3DPhysicsCharacterController(man1,strafe#,move#,80)
    Rotate3DPhysicsCharacterController(man1,GetCameraAngleY(cam1)+mouseX#)
    if getobjectY(man1)<3
        gameover=0:jumps=0
    endif
    if GetRawKeyPressed(32)
        Jump3DPhysicsCharacterController(man1)
        if gameover=0 then jumps=jumps+1
    endif
    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1)+1,GetObjectZ(man1))
    SetVector3(playerPos#,getobjectworldX(man1),getobjectworldY(man1),getobjectworldZ(man1))
    gemDist#=GetVector3Distance(playerPos#,gemPos#)
    if gemDist#<7 then gameover=1
    setobjectcolor(gem,random(15,255),random(15,255),random(15,255),255)
    print(" jumps "+str(jumps))
    Step3DPhysicsWorld()
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop

SetWindowTitle( "Blast Balls" ) :SetWindowSize( 1920, 1080, 0 ) : SetWindowAllowResize( 1 ) :SetVirtualResolution( 1920, 1080 ) :SetOrientationAllowed( 0, 0, 1, 1 ) :SetSyncRate( 30, 0 ) :SetScissor( 0,0,0,0 ) :UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
#Constant _CREATE_COLOR_ ((_C_ > 0) * 0xFF000000) || ((_C_ = 1) * 0x00FF0000) || ((_C_ = 2) * 0x0000FF00) || ((_C_ = 3) * 0x000000FF) || ((_C_ = 4) * 0x00FFFF00) || ((_C_ = 5) * 0x00FF00FF) || ((_C_ = 6) * 0x0000FFFF) || ((_C_ = 7) * 0x00FFFFFF)
Global Map As Integer[32, 32], Lives As Integer, CurrentLives As Integer, ViewLeft As Integer, ViewTop As Integer, ViewRight As Integer, ViewBottom As Integer, BallRadius As Integer, BallSpace As Integer, NextBall As Integer, CurrentBall As Integer, Px As Float, Py As Float, Bx As Float, By As Float, dX As Float, dY As Float, fx As Float, fY As Float, Angle As Float, Bounce As Integer, TotalBlast As Integer, BlastList As Integer[256, 2], Score As Integer, ScoreAdd As Integer, ColorList As Integer, TextMessage As Integer, MessageTime As Integer, MessageVisible As Integer, HiScore As Integer, HiScoreText As Integer, ScoreText As Integer, NewGameText As Integer, QuitText As Integer
BallRadius = 22 :BallSpace = 52 :ViewLeft = 30 :ViewTop = 30 :ViewRight = ViewLeft + 17 * BallSpace + BallSpace/2 :ViewBottom = ViewTop + 15 * BallSpace + BallSpace/2 :Px = ViewLeft + (ViewRight - ViewLeft)/2 :Py = ViewBottom + BallSpace :TextMessage = CreateText("null") :SetTextVisible(TextMessage, 0) :SetTextSize(TextMessage, 100) :SetTextBold(TextMessage, 1) :HiScore = 10000 :HiScoreText = CreateText("Hi - " + Str(HiScore)) :SetTextSize(HiScoreText, 100) :SetTextPosition(HiScoreText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(HiScoreText))/2, 20) :ScoreText = CreateText("Score " + Str(Score)) :SetTextSize(ScoreText, 100) :SetTextPosition(ScoreText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(ScoreText))/2, 320) :NewGameText = CreateText("New Game") :SetTextSize(NewGameText, 100) :SetTextPosition(NewGameText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(NewGameText))/2, 700) :QuitText = CreateText("Quit") :SetTextSize(QuitText, 100) :SetTextPosition(QuitText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(QuitText))/2, 870) :NewGame() :Do :mX = GetPointerX() :mY = GetPointerY()
    If GetPointerState()
		If (mX >= GetTextX(QuitText)) And (mX <= GetTextX(QuitText) + GetTextTotalWidth(QuitText)) And (mY >= GetTextY(QuitText)) And (mY <= GetTextY(QuitText) + GetTextTotalHeight(QuitText)) Then Exit
		If mA And (mX >= GetTextX(NewGameText)) And (mX <= GetTextX(NewGameText) + GetTextTotalWidth(NewGameText)) And (mX >= GetTextY(NewGameText)) And (mY <= GetTextY(NewGameText) + GetTextTotalHeight(NewGameText)) Then NewGame() :mA = 0 :If (Bounce = 0) And (mX >= ViewLeft) And (mX <= ViewRight) And (mY >= ViewTop) And (mY <= ViewRight) Then Bounce = 1
	Else
		mA = 1 :If Bounce = -1 Then Bounce = 0 :If Bounce = 1
			Bounce = 2 :dX = Sin(Angle) * 1000 :dY = Cos(Angle) * 1000
		EndIf :EndIf :If Bounce = 1
		If mY < ViewBottom
			dX = mX - Px :dY = mY - PY :Angle = ATan(dx/dY) :If Angle > 70 Then Angle = 70 :If Angle < -70 Then Angle = -70 :dX = Px - 4 * BallSpace * Sin(Angle) :dY = Py - 4 * BallSpace * Cos(Angle)
		EndIf :DrawLine(Px - BallRadius/2, Py, dX, dY, -1, -1) :DrawLine(Px + BallRadius/2, Py, dX, dY, -1, -1) :EndIf
    If Bounce = 2
		fX = dX/ScreenFPS() :fY = dY/ScreenFPS() :Bx = Bx - fX :By = By - fY
		If (Bx < ViewLeft + BallRadius) Or (Bx > ViewRight - BallRadius)
			Bx = Bx + fX :dX = -dX :fX = - fX :EndIf :Ky = Floor((By - fY - ViewTop)/BallSpace) :Kx = Floor((Bx - fX - ViewLeft)/BallSpace) :Hit = 0
		If (Kx >= 0) And (Kx <= 16) And (Ky >= 0) And (Ky <= 14) 
			If Map[Kx, Ky] Then Hit = 1 :EndIf :If Ky < 0 Then Hit = 1
			If Hit
				Ky = Floor((By - ViewTop)/BallSpace) :Kx = Floor((Bx - ViewLeft)/BallSpace) :Map[Kx, Ky] = CurrentBall :TotalBlast = 0 :_CHECK_BLAST_(Kx, Ky, CurrentBall) :For Y = 0 To 14 :For X = 0 To 16 :Map[X, Y] = Map[X, Y] && 255 :Next :Next :Bx = Px :By = Py :CurrentBall = NextBall :If TotalBlast >= 3
					ScoreAdd = 100 :For Z = 0 To TotalBlast - 1 :DrawScreen() :Sync() :i = Timer() * 1000 :Do :If Abs(i - Timer() * 1000) >= 50 Then Exit :Loop :Map[BlastList[Z, 0], BlastList[Z, 1]] = 0 :Score = Score + ScoreAdd :ScoreAdd = ScoreAdd + 10 :Next :DrawScreen() :Sync() :For X = 0 To 16 :_CHECK_FLOATING_BALLS_(X, 0) :Next :TotalBlast = 0
					For Y = 0 To 14 :For X = 0 To 16
							If Map[X, Y] && 512
								Map[X, Y] = Map[X, Y] && 255 :Continue :EndIf
							If Map[X, Y] && 511
								BlastList[TotalBlast, 0] = X :BlastList[TotalBlast, 1] = Y :TotalBlast = TotalBlast + 1 :Map[X, Y] = Map[X, Y] && 255 :Continue :EndIf :Next :Next :i = Timer() * 1000 :Do :If Abs(i - Timer() * 1000) >= 250 Then Exit :Loop
					For Z = 0 To TotalBlast - 1 :DrawScreen() :Sync() :i = Timer() * 1000 :Do :If Abs(i - Timer() * 1000) >= 50 Then Exit :Loop :Map[BlastList[Z, 0], BlastList[Z, 1]] = 0 :Score = Score + ScoreAdd :ScoreAdd = ScoreAdd + 10 :Next
					SetTextString(ScoreText, "Score " + Str(Score)) :SetTextPosition(ScoreText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(ScoreText))/2, 320)
					If Score > HiScore
						SetTextString(HiScoreText, "Hi - " + Str(Score)) :SetTextPosition(HiScoreText, ViewRight + (1920 - ViewRight - GetTextTotalWidth(HiScoreText))/2, 20) :EndIf :Z = 0 :For Y = 0 To 14 :For X = 0 To 16 :If Map[X, Y] Then Z = 1 :Next :Next :If Z = 0 Then Bounce = 4 :If Score > HiScore Then HiScore = Score
				Else
					CurrentLives = CurrentLives - 1
					If CurrentLives = 0
						Lives = Lives - 1 :If Lives = 0 Then Lives = 7 :CurrentLives = Lives
						For X = 0 To 16
							If Map[X, 14]
								Bounce = 3 :If Score > HiScore Then HiScore = Score :EndIf :Next
						If Bounce <> 3
							For Y = 13 To 0 Step - 1 :For X = 0 To 16 :Map[X, Y + 1] = Map[X, Y] :Next :Next :For X = 0 To 16 :Map[X, 0] = _RANDOM_COLOR_() :Next :EndIf :EndIf :EndIf
				If Bounce = 2
					Bounce = 0 :NextBall = _RANDOM_COLOR_() :EndIf :EndIf :EndIf
    If Bounce = 3
		If Score < HiScore Then SetTextString(TextMessage, "Game Over!") Else SetTextString(TextMessage, "Game Over!" + Chr(13) + Chr(10) + "New High Score!")
		SetTextPosition(TextMessage, ViewLeft + (ViewRight - ViewLeft - GetTextTotalWidth(TextMessage))/2, 220) :SetTextColor(TextMessage, 128, 0, 0, 255) :Bounce = 5 :MessageTime = Timer() * 1000 :MessageVisible = 1 :SetTextVisible(TextMessage, MessageVisible) :EndIf :If Bounce = 4
		If Score < HiScore Then SetTextString(TextMessage, "Conguraltions!") Else SetTextString(TextMessage, "Conguraltions!" + Chr(13) + Chr(10) + "New High Score!")
		SetTextPosition(TextMessage, ViewLeft + (ViewRight - ViewLeft - GetTextTotalWidth(TextMessage))/2, 220) :SetTextColor(TextMessage, 255, 192, 80, 255) :Bounce = 5 :MessageTime = Timer() * 1000 :MessageVisible = 1 :SetTextVisible(TextMessage, MessageVisible) :EndIf
	If Bounce = 5 :If Abs(MessageTime - Timer() * 1000) >= 500
			MessageTime = Timer() * 1000 :MessageVisible = (MessageVisible + 1) && 1 :SetTextVisible(TextMessage, MessageVisible) :EndIf :EndIf :DrawScreen() :Sync()
Loop
Function _RANDOM_COLOR_()
	_GET_COLORS_() :Do :C = 1 + Floor((7 * Random())/65535) :If ColorList && (1 << C) Then Exit :Loop
EndFunction C
Function _GET_COLORS_()
	ColorList = 0 :For Y = 0 To 14 :For X = 0 To 16 :C = Map[X, Y] :If C Then ColorList = ColorList || (1 << C) :If ColorList = 127 Then ExitFunction :Next :Next
EndFunction
Function _CHECK_FLOATING_BALLS_(_X_ As Integer, _Y_ As Integer)
	If _X_ < 0 Then ExitFunction :If _X_ > 16 Then ExitFunction :If _Y_ < 0 Then ExitFunction :If _Y_ > 14 Then ExitFunction :If (Map[_X_, _Y_] && 512) = 512 Then ExitFunction :Map[_X_, _Y_] = Map[_X_, _Y_] || 512 :If (Map[_X_, _Y_] && 511) = 0 Then ExitFunction :For Y = 0 To 2 :For X = 0 To 2 :_CHECK_FLOATING_BALLS_(_X_ - 1 + X, _Y_ - 1 + Y):Next :Next
EndFunction
Function _CHECK_BLAST_(_X_ As Integer, _Y_ As Integer, _C_ As Integer)
	If _X_ < 0 Then ExitFunction :If _X_ > 16 Then ExitFunction :If _Y_ < 0 Then ExitFunction :If _Y_ > 14 Then ExitFunction :If (Map[_X_, _Y_] && 512) = 512 Then ExitFunction :Map[_X_, _Y_] = Map[_X_, _Y_] || 512 :If (Map[_X_, _Y_] && 511) <> _C_ Then ExitFunction :BlastList[TotalBlast, 0] = _X_ :BlastList[TotalBlast, 1] = _Y_ :TotalBlast = TotalBlast + 1 :For Y = 0 To 2 :For X = 0 To 2:_CHECK_BLAST_(_X_ - 1 + X, _Y_ - 1 + Y, _C_) :Next :Next
EndFunction
Function NewGame()
	For Y = 0 To 14 :For X = 0 To 16
			If Y <= 8 Then _C_ = 1 + Floor((7 * Random())/65535) Else _C_ = 0
			Map[X, Y] = _C_
	Next :Next :Lives = 7 :CurrentLives = Lives :CurrentBall = 1 + Floor((7 * Random())/65535) :NextBall = 1 + Floor((7 * Random())/65535) :Score = 0 :Bx = Px :By = Py :Bounce = -1 :MessageVisible = 0 :SetTextVisible(TextMessage, MessageVisible)
EndFunction
Function DrawScreen()
	Drawbox(ViewLeft, ViewTop, ViewRight, ViewBottom, 0x80804000, 0x80804000, 0x80804000, 0x80804000, 1) :Drawbox(ViewRight + 100, ViewTop, 1820, 980, 0x80004080, 0x80004080, 0x80004080, 0x80004080, 1)
	If Bounce <> 5
		For Y = 0 To 14 :For X = 0 To 16 :_C_ = Map[X, Y]
				If _C_ Then DrawEllipse(ViewLeft + X * BallSpace + BallSpace/2, ViewTop + Y * BallSpace + BallSpace/2, BallRadius, BallRadius, _CREATE_COLOR_, 0xFF000000, -1)
		Next :Next :EndIf
	_C_ = NextBall :DrawEllipse(ViewLeft + BallSpace/2, Py, BallRadius, BallRadius, _CREATE_COLOR_, 0xFF000000, 1) :_C_ = CurrentBall :DrawEllipse(Bx, By, BallRadius, BallRadius, _CREATE_COLOR_, 0xFF000000, 1)
	For X = 0 To CurrentLives - 1 :DrawEllipse(ViewLeft + X * BallSpace + BallSpace/2, Py, BallRadius-1, BallRadius-1, 0xFF808080, 0xFF808080, 0) :DrawEllipse(ViewLeft + X * BallSpace + BallSpace/2, Py, BallRadius, BallRadius, 0x80808080, 0x80808080, 0) :Next
EndFunction

type dots:x as float:y as float:endtype:dot as dots[50]:dot[0].x=50:dot[0].y=100:cha=1:secs=timer():SetPrintColor(255,0,0)
do:if cha=1 then dot[0].x = dot[0].x + (GetRawKeyState(37)*-1) + GetRawKeyState(39):DrawEllipse(dot[0].x,dot[0].y,3,3,-1,0,1)
if dot[0].x < 1 OR dot[0].x > 100 then cha = 0
for d = 1 to 50:dot[d].y = dot[d].y - cha
	if dot[d].y < 0:dot[d].x = random2(1,100):dot[d].y = random2(100,250):endif
	if dot[d].y <2:dist = abs((dot[d].x - dot[0].x)):if  dist < 4:cha = 0:dot[0].y=200:endif:endif
	DrawEllipse(dot[d].x,100-dot[d].y,.3,2,-1,-1,1):DrawEllipse(dot[d].x,99-dot[d].y,.6,.6,-1,-1,1)
next d
if cha=1 then gametime$=str(timer()-secs,2) else CreateParticles(1,dot[0].x,99):SetParticlesDirection(1,0,4):SetParticlesTransparency(1,1):AddParticlesColorKeyFrame(1,0,255,255,255,255):AddParticlesColorKeyFrame(1,3,255,0,0,0):SetParticlesSize(1,2):SetParticlesLife(1,4):SetParticlesMax(1,4):
print(gametime$):Sync():loop