Sorry your browser is not supported!

SetVirtualResolution( 640, 480 ) 

x as float
y as float
ang as float
lx as float
ly as float
angle as float
counter as float
adjust as float
lx=50       `player x
ly=140       `player y
x=lx        `ray x
y=ly        `ray y

angle=-50
cam_fov=90

z=makecolor(100,100,255)
c=makecolor(90,70,0)

do

ja=130     `horizont
    `we draw the sky and floor out  of  FOR/NEXT to acelerate process
	drawbox( 220,0,587,130,z,z,z,z,1)            `sky
	drawbox( 220,130,587,300,c,c,c,c,1)          `floor

for kk= 1 to 150
   for i= 0 to 60 step 2
	   
		 `The Ray
		 x=x+cos(ang+angle)*1
		 y=y+sin(ang+angle)*1
		 
		 
        `avoid fisheye    cam_fov/100 best result
         adjust=counter*cos(ang*cam_fov/100)  

		 `Defining some areas for walls or rooms
		 
		 v=makecolor(0,255,0)
		 `------------blocks -------------------------------
		 drawbox(40,40,60,60,v,v,v,v,1)       `not necesary to draw as we collide with inside zones
		 drawbox(80,60,90,120,v,v,v,v,1)
		 
		 
		 inside=0         `first we reset variable to 0  (not true)
		 if x>40 and x<60 and y>40 and y<60  then   inside=1
		 if x>80 and x<90 and y>60 and y<120 then   inside=1
		 
		 
		`wall size
		 col=255-counter*2  `brightness
		 if col<10 then col=10
		 wall=4000/adjust
		 wall2=4200/adjust

		   if inside=1  
			  limit1=ja+wall
			  limit2=ja+wall2
			  if limit1>300 then limit1=300     `just limits to not flood out area
			  if limit2>300 then limit2=300
			  
			  n=makecolor(0,0,0)
			  drawbox( 400+ang*4,ja-wall2,408+ang*4,limit2,n,n,n,n,1)   `border
									 
			  b=makecolor(col,col,col)
			  drawbox( 400+ang*4,ja-wall,408+ang*4,limit1,b,b,b,b,1)     `wall
			endif
		 		 
		 
		 `reads the distance from player to any collision ...border or walls
		 counter=counter +1
		 if counter>250 or inside=1  or x<0 or x>200 or y<0 or y>200
			counter=0
			x=lx
			y=ly
			ang=ang+2
		 endif
		 if ang>45 then ang=-45
		 
       `ray       
       ry=makecolor(255,0,0)
       drawline(x,y,x,y,ry,ry)
   
      `Player
       py=makecolor(255,255,0)
       drawbox(lx-4,ly-4,lx+4,ly+4,py,py,py,py,1)
	next
 next
           
            
  `Player movements                   
                     
if ( GetRawKeyState( 40 ) ) 
    lx=lx+cos(angle)*-2	 
    ly=ly+sin(angle)*-2
endif
if ( GetRawKeyState( 38 ) ) 
	lx=lx+cos(angle)*2
    ly=ly+sin(angle)*2
endif         
if ( GetRawKeyState( 37 ) ) 
    angle=angle-5
endif
if ( GetRawKeyState( 39 ) ) 
    angle=angle+5
endif                     
             
                     
                  
   for i= 1 to 15
	   print("")
   next
   print ("Use cursor to move player")   
   print("Angle   "+str(angle))
   print("FPS    "+str( ScreenFPS()))
  
sync()
loop

// Project: Tiles
// Created: 2018-11-04
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Tiles" )
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

`USE HERE YOUR OWN TEXTURES 
`loadimage(1,"stone03b.jpg")
`loadimage(2,"suelo.jpg")
w=makecolor(100,70,20)
drawbox(0,0,100,100,w,w,w,w,1)
w=makecolor(150,100,25)
drawbox(5,5,95,95,w,w,w,w,1)
getimage( 1,0,0,100,100)

for i= 1 to 1000
	a=random(10,90)
	b=random(10,90)
	drawbox(a,b,a+1,b+1,w,w,w,w,1)
next
getimage(2,0,0,100,100)	
	
	
CreateObjectBox(1000,2,10,2)
SetObjectColor(1000,255,0,0,0)
SetObjectPosition(1000,20,0,-30)	
// CAMARA	
SetCameraPosition(1,-120,100,-120)
SetCameraLookAt(1,30,0,0,0)
setcamerarange(1,0.1,80000)
CreateObjectSphere(80000,2000,10,10)
SetObjectColorEmissive(80000,0,0,255)
SetObjectCullMode(80000,0)
sleeping=30

ob=1
repeat
	    oldx# = GetObjectX(1000)
        oldy# = GetObjectY(1000)
        oldz# = GetObjectZ(1000)

        x# = GetObjectX(1000)
        y# = GetObjectY(1000)
        z# = GetObjectZ(1000)
				
        colli= ObjectRayCast(0,oldx#,oldy#-5,oldz# ,x#,y#+5,z#) 
        if colli>0 then CreateObjectBox(ob,10,0,10) :SetObjectPosition(ob,x#,y#,z#) :SetObjectimage(ob,2,0): inc ob,1 :MoveObjectLocalZ( 1000,10)
        if colli=1000 then SetObjectRotation(1000,0,0+random(0,3)*90,0)
        sleep(sleeping)    `just for timelapse
        print(ob)
        SYNC()
until ob=100


`South Walls
pa=170
for t= 1 to ob-1
	    xx# = GetObjectX(t)
        yy# = GetObjectY(t)
        zz# = GetObjectZ(t)
        SetObjectPosition(1000,xx#,yy#,zz#-10)
                
        oldx# = GetObjectX(1000)
        oldy# = GetObjectY(1000)
        oldz# = GetObjectZ(1000)

        x# = GetObjectX(1000)
        y# = GetObjectY(1000)
        z# = GetObjectZ(1000)
				
        colli= ObjectRayCast(0,oldx#,oldy#-5,oldz#-5 ,x#,y#+5,z#) 
        if colli=1000 
			 CreateObjectBox(pa,10,10,0) :SetObjectPosition(pa,x#,y#+5,z#+5) :SetObjectimage(pa,1,0): inc pa,1
        endif
 next t
        

`-------------------------------------------------------------------------------------------
`North Walls
for t= 1 to ob-1
	    xx# = GetObjectX(t)
        yy# = GetObjectY(t)
        zz# = GetObjectZ(t)
        SetObjectPosition(1000,xx#,yy#,zz#+10)
                
        oldx# = GetObjectX(1000)
        oldy# = GetObjectY(1000)
        oldz# = GetObjectZ(1000)

        x# = GetObjectX(1000)
        y# = GetObjectY(1000)
        z# = GetObjectZ(1000)
				
        colli= ObjectRayCast(0,oldx#,oldy#-5,oldz#-5 ,x#,y#+5,z#) 
        if colli=1000 
			 CreateObjectBox(pa,10,10,0) :SetObjectPosition(pa,x#,y#+5,z#-5) :SetObjectimage(pa,1,0) :inc pa,1
        endif
        
 next t
        
`-------------------------------------------------------------------------------------------
`Right walls
for t= 1 to ob-1
	    xx# = GetObjectX(t)
        yy# = GetObjectY(t)
        zz# = GetObjectZ(t)
        SetObjectPosition(1000,xx#+10,yy#,zz#)
                  
        
        oldx# = GetObjectX(1000)
        oldy# = GetObjectY(1000)
        oldz# = GetObjectZ(1000)

        x# = GetObjectX(1000)
        y# = GetObjectY(1000)
        z# = GetObjectZ(1000)
				
        colli= ObjectRayCast(0,oldx#-5,oldy#-5,oldz# ,x#,y#+5,z#) 
        if colli=1000 
			 CreateObjectBox(pa,0,10,10) :SetObjectPosition(pa,x#-5,y#+5,z#) :SetObjectimage(pa,1,0) :inc pa,1
        endif
 
 next t
        


    `-------------------------------------------------------------------------------------------
`Left Walls
for t= 1 to ob-1
	    xx# = GetObjectX(t)
        yy# = GetObjectY(t)
        zz# = GetObjectZ(t)
        SetObjectPosition(1000,xx#-10,yy#,zz#)   
        
        oldx# = GetObjectX(1000)
        oldy# = GetObjectY(1000)
        oldz# = GetObjectZ(1000)

        x# = GetObjectX(1000)
        y# = GetObjectY(1000)
        z# = GetObjectZ(1000)
				
        colli= ObjectRayCast(0,oldx#-5,oldy#-5,oldz# ,x#,y#+5,z#) 
        if colli=1000 
			 CreateObjectBox(pa,0,10,10) :SetObjectPosition(pa,x#+5,y#+5,z#) :SetObjectimage(pa,1,0) :inc pa,1
			rem SetCameraPosition(1,getobjectx(1),getobjecty(1)+5,getobjectz(1))
			 
        endif
 
 next t
 
 
 
 
 `ceiling
 for i= 1 to ob-1
	 cloneobject(i+3000,ob-1)
	 setobjectposition(i+3000,getobjectx(i),getobjecty(i)+10,getobjectz(i))
	 setobjectimage(i+3000,3,0)  `asignar textura que no existe para eliminarla 
	 setobjectcolor(i+3000,160,160,160,255)
 next

`lights
createpointlight(1,0,0,0,40,255,255,0)
createpointlight(2,getobjectx(2),5,getobjectz(2),40,0,255,0)
createpointlight(3,getobjectx(55),5,getobjectz(55),40,255,0,0)
createpointlight(4,getobjectx(95),5,getobjectz(95),40,0,0,255)

	 
 level=0
do
	SetObjectPosition(1000,0,1000,0)
	if ( GetRawKeyState( 84 ) )
		setcameraposition(1,getobjectx(5),getobjecty(5)+5,getobjectz(5))
		SetSunActive(0)
		SetAmbientColor(0,0,0)
		level=1
	endif
	
	
if level=1	
   rem Old position
 oldx#=GetCameraX(1)
 oldy#=GetCameraY(1)
 oldz#=GetCameraZ(1)
 `
 rem Move camera
 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 0.5 )  `Up
 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -0.5 ) `Down
 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -0.5 ) `Left
 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 0.5 )  `Right
 if ( GetRawKeyState( 27 ) ) then end


 rem Gravity on camera
 SetCameraPosition(1,getcamerax(1),getcameray(1)-0.5,getcameraz(1))
 //SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
 rem New position
 newx#=GetCameraX(1)
 newy#=GetCameraY(1)
 newz#=GetCameraZ(1)
 `
 rem Adjust Y to match floor
 if ObjectSphereSlide(0,oldx#,oldy#,oldz#,newx#,newy#,newz#,4)>0
  newx#=GetObjectRayCastSlideX(0)
  newy#=GetObjectRayCastSlideY(0)
  newz#=GetObjectRayCastSlideZ(0)
  SetCameraPosition(1,newx#,newy#,newz#)
 endif 

  turn=getpointery()
  if turn<330 then turn=330
  if turn>420 then turn=420
  if turn<331 then SetRawMousePosition( getpointerx(), turn ) 
  if turn>421 then SetRawMousePosition( getpointerx(), turn ) 
  if getpointerx()<2 then SetRawMousePosition(722,getpointery())
  if getpointerx()>1022 then SetRawMousePosition(668,getpointery())  
     
  setcamerarotation(1,turn,getpointerx(),0)
  setpointlightposition(1,getcamerax(1),getcameray(1),getcameraz(1)) 
 endif
    print("Press T to Test Level")
  
  Sync()
 `

loop

// Project: AABB Sprite collision 
// Created: 2020-01-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Sprite collision" )
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



dim pos_x[40]
dim pos_z[40]
dim size_x[40]
dim size_z[40]
dim color[40]

bkg=createsprite(0)
setspritescale(bkg,200,200)
setspritecolor(bkg,100,100,255,255)

r=makecolor(255,0,0)

for i= 1 to 40
pos_x[i]=30+random(0,850)
pos_z[i]=30+random(0,650)
size_x[i]=10+random(0,20)
size_z[i]=10+random(0,20)
color[i]=makecolor(random(0,255),random(0,255),random(0,255))
next

x as float
z as float
x=512
z=750
ang as float
ang=-90
do
for i= 1 to 40
  drawbox(pos_x[i]-size_x[i],pos_z[i]-size_z[i],pos_x[i]+size_x[i],pos_z[i]+size_z[i],color[i],color[i],color[i],color[i],1)
next

oldx=x
oldz=z

`movements ------------------------------------------------------------------------
if ( GetRawKeyState( 37 ) ) then ang=ang-4
if ( GetRawKeyState( 39 ) ) then ang=ang+4

 if ( GetRawKeyState( 38 ) ) 
	 x=x+cos(ang)*3
	 z=z+sin(ang)*3
 endif

 if ( GetRawKeyState( 40 ) ) 
	 x=x+cos(ang)*-3
	 z=z+sin(ang)*-3
 endif

`second coords. to show the direction of the sprite
xx=x+cos(ang)*10
zz=z+sin(ang)*10

drawline(x,z,xx,zz,makecolor(255,0,0),1)
DrawEllipse(xx,zz,2,2,makecolor(255,0,0),makecolor(255,0,0),1)
`------------------------------------------------------------------------------------

`Player
drawbox(x-5,z-5,x+5,z+5,r,r,r,r,1)

for i= 1 to 40
   if z+5>pos_z[i]-size_z[i] and oldx+5>pos_x[i]-size_x[i] and oldx-5 <pos_x[i]+size_x[i] and z-5<pos_z[i]+size_z[i]
      z=oldz
   endif

  if oldz+5>pos_z[i]-size_z[i] and x+5>pos_x[i]-size_x[i] and   x-5<pos_x[i]+size_x[i] and oldz-5<pos_z[i]+size_z[i]
     x=oldx
  endif
next

sync()
loop

// Project: AABB Sprite collision 
// Created: 2020-01-17

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Sprite collision" )
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

`LOAD HERE YOUR OWN IMAGES
g=makecolor(0,255,0)
ye=makecolor(255,255,0)
drawbox(0,0,100,100,g,g,g,g,1)
drawbox(30,30,70,70,ye,ye,ye,ye,1)
getimage(1,0,0,100,100)


clearscreen()
w=makecolor(255,255,0)
b=makecolor(1,1,1)
r=makecolor(255,0,0)

   for i= 1 to 20
	   drawellipse( 22,22 ,i,i,w,w,1)
   next
   for i= 1 to 14
	   drawellipse(22,22,i,i,b,b,1)
   next
   for i= 1 to 15
	   drawellipse(22,19,i,i,w,w,1)
   next
   drawellipse(15,18,5,5,b,b,0)
   drawellipse(28,17,5,5,b,b,0)
     
   getimage(2,0,0,42,42)

dim pos_x[40]
dim pos_z[40]
dim size_x[40]
dim size_z[40]

`background color
bkg=createsprite(0)
setspritescale(bkg,200,200)
setspritecolor(bkg,100,100,255,255)

r=makecolor(255,0,0)

for i= 1 to 40
	pos_x[i]=30+random(0,850)
	pos_z[i]=30+random(0,650)
	size_x[i]=10+random(0,20)
	size_z[i]=10+random(0,20)
next

x as float
z as float
x=512
z=750
ang as float
ang=-90

for i= 1 to 40
	createsprite(i,1)
	setspritesize(i,size_x[i]*2,size_z[i]*2)
	setspriteposition(i,pos_x[i]-size_x[i],pos_z[i]-size_z[i])
next

`player sprite
setspriteimage(1,2)
setspritesize(1,14,14)
SetSpriteDepth(1,0)

do
oldx=x
oldz=z

`movements ------------------------------------------------------------------------
if ( GetRawKeyState( 37 ) ) then ang=ang-4
if ( GetRawKeyState( 39 ) ) then ang=ang+4

 if ( GetRawKeyState( 38 ) ) 
	 x=x+cos(ang)*3
	 z=z+sin(ang)*3
 endif

 if ( GetRawKeyState( 40 ) ) 
	 x=x+cos(ang)*-3
	 z=z+sin(ang)*-3
 endif

`second coords. to show the direction of the sprite
xx=x+cos(ang)*10
zz=z+sin(ang)*10

drawline(x,z,xx,zz,makecolor(255,0,0),1)
DrawEllipse(xx,zz,2,2,makecolor(255,0,0),makecolor(255,0,0),1)
`------------------------------------------------------------------------------------

`Player
setspriteposition(1,x-7,z-7)   `- half size x -half size y

for i= 1 to 40
   if z+5>pos_z[i]-size_z[i] and oldx+5>pos_x[i]-size_x[i] and oldx-5 <pos_x[i]+size_x[i] and z-5<pos_z[i]+size_z[i]
      z=oldz
   endif

  if oldz+5>pos_z[i]-size_z[i] and x+5>pos_x[i]-size_x[i] and   x-5<pos_x[i]+size_x[i] and oldz-5<pos_z[i]+size_z[i]
     x=oldx
  endif
next

sync()
loop

// Project: AABB Sprite collision 
// Created: 2020-01-19

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Sprite collision" )
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

`LOAD HERE YOUR OWN IMAGES
g=makecolor(0,255,0)
ye=makecolor(255,255,0)
drawbox(0,0,100,100,g,g,g,g,1)
drawbox(30,30,70,70,ye,ye,ye,ye,1)
getimage(1,0,0,100,100)


clearscreen()
w=makecolor(255,255,0)
b=makecolor(1,1,1)
r=makecolor(255,0,0)

   for i= 1 to 20
	   drawellipse( 22,22 ,i,i,w,w,1)
   next
   for i= 1 to 14
	   drawellipse(22,22,i,i,b,b,1)
   next
   for i= 1 to 15
	   drawellipse(22,19,i,i,w,w,1)
   next
   drawellipse(15,18,5,5,b,b,0)
   drawellipse(28,17,5,5,b,b,0)
     
   getimage(2,0,0,42,42)

dim pos_x[40]
dim pos_z[40]
dim size_x[40]
dim size_z[40]

`background color
bkg=createsprite(0)
setspritescale(bkg,200,200)
setspritecolor(bkg,100,100,255,255)

r=makecolor(255,0,0)

`B U G    F I X E D  ...
for i= 2 to 40
	pos_x[i]=30+random(0,850)
	pos_z[i]=30+random(0,650)
	size_x[i]=10+random(0,20)
	size_z[i]=10+random(0,20)
next


x as float
z as float
x=512
z=750
ang as float
ang=-90

for i= 1 to 40
	createsprite(i,1)
	setspritesize(i,size_x[i]*2,size_z[i]*2)
	setspriteposition(i,pos_x[i]-size_x[i],pos_z[i]-size_z[i])
next

`player sprite
setspriteimage(1,2)
setspritesize(1,14,14)
SetSpriteDepth(1,0)

do
oldx=x
oldz=z

`movements ------------------------------------------------------------------------
if ( GetRawKeyState( 37 ) ) then ang=ang-4
if ( GetRawKeyState( 39 ) ) then ang=ang+4

 if ( GetRawKeyState( 38 ) ) 
	 x=x+cos(ang)*3
	 z=z+sin(ang)*3
 endif

 if ( GetRawKeyState( 40 ) ) 
	 x=x+cos(ang)*-3
	 z=z+sin(ang)*-3
 endif

`second coords. to show the direction of the sprite
xx=x+cos(ang)*10
zz=z+sin(ang)*10

drawline(x,z,xx,zz,makecolor(255,0,0),1)
DrawEllipse(xx,zz,2,2,makecolor(255,0,0),makecolor(255,0,0),1)
`------------------------------------------------------------------------------------

`Player
setspriteposition(1,x-7,z-7)   `- half size x -half size y

for i= 1 to 40
   if z+5>pos_z[i]-size_z[i] and oldx+5>pos_x[i]-size_x[i] and oldx-5 <pos_x[i]+size_x[i] and z-5<pos_z[i]+size_z[i]
      z=oldz
   endif

  if oldz+5>pos_z[i]-size_z[i] and x+5>pos_x[i]-size_x[i] and   x-5<pos_x[i]+size_x[i] and oldz-5<pos_z[i]+size_z[i]
     x=oldx
  endif
next

sync()
loop

// Project: Night Vision 
// Created: 2020-01-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Night Vision" )
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

`LOAD HERE YOUR OWN IMAGES 
loadimage (10,"crate.jpg")
loadimage (11,"floor.jpg")
SetImageWrapU(11,1)
setimagewrapv(11,1)
loadimage (12,"metal.png")
for i= 1 to 10
   createobjectbox(i,5+random(0,5),5+random(0,5),5+random(0,5))
   setobjectposition(i,random(0,100),GetObjectSizeMaxY(i),random(0,100))
   setobjectimage(i,10,0)
next
for i= 11 to 20
   CreateObjectSphere(i,5+random(0,5),20,20)
   setobjectposition(i,random(0,100),GetObjectSizeMaxY(i),random(0,100))
   setobjectimage(i,12,0)
next

createobjectbox(100,500,0.1,500)
setobjectimage(100,11,0)
SetObjectUVScale(100,0,10,10)

SetAmbientColor(0,0,0)
SetSunActive(1)
CreatePointLight(1,0,0,0,50,255,255,0)
`----------------------------------------

`sky
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,10,10,60)


SetRawMousePosition(500,400)
setcameraposition(1,-30,30,-30)
SetCameraLookAt(1,30,0,0,0)


SetFogRange(2,60)
SetFogMode(1)
SetFogColor(100,100,100)


w=makecolor(100,100,100)
`Night Vision Screen 
drawbox(0,0,640,480,w,w,w,w,1)
getimage(1,0,0,640,480)
createsprite(100,1)
setspritescale(100,0.3,0.5)


ima=30

do
    SetFogMode(0)
       render()
    inc ima,1
    getimage(ima,0,0,512,512)
    ClearScreen()
    deleteimage(ima-1) 
    setspriteimage(100,ima)
    SetFogMode(1)
    setspriteposition(100,380,530)	
	setspritecolor(100,0,100+random(0,50),0,255)
	SetPointLightPosition(1,getcamerax(1),10,getcameraz(1))
	
	
	
 gosub camara
  

    Print( ScreenFPS() )
    Sync()
loop
camara:
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	x#=getcamerax(1)
	z#=getcameraz(1)
	setcameraposition(1,x#,5,z#)
	setcamerarotation(1,-45+getpointery(),-80+getpointerx(),0)
	if GetRawKeyState( 27) then end    
return

// Project: Night Vision 
// Created: 2020-01-21

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Night Vision" )
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

`LOAD HERE YOUR OWN IMAGES 
loadimage (10,"crate.jpg")
loadimage (11,"floor.jpg")
loadimage (12,"metal.png")
SetImageWrapU(11,1)
setimagewrapv(11,1)

`ramdom objects
for i= 1 to 10
   createobjectbox(i,5+random(0,5),5+random(0,5),5+random(0,5))
   setobjectposition(i,random(0,100),GetObjectSizeMaxY(i),random(0,100))
   setobjectimage(i,10,0)
next
for i= 11 to 20
   CreateObjectSphere(i,5+random(0,5),20,20)
   setobjectposition(i,random(0,100),GetObjectSizeMaxY(i),random(0,100))
   setobjectimage(i,12,0)
next

`floor object
createobjectbox(100,500,0.1,500)
setobjectimage(100,11,0)
SetObjectUVScale(100,0,30,30)

`lights
SetAmbientColor(0,0,0)
SetSunActive(0)
CreatePointLight(1,0,0,0,50,255,255,0)
`----------------------------------------

`sky
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,5,5,10)


SetRawMousePosition(500,400)
setcameraposition(1,-30,30,-30)
SetCameraLookAt(1,30,0,0,0)

w=makecolor(100,100,100)
`Night Vision Screen 
drawbox(0,0,640,480,w,w,w,w,1)
getimage(1,0,0,640,480)
createsprite(100,1)
setspritescale(100,0.3,0.5)
setspriteposition(100,380,530)	
ima=30
do
      
    inc ima,1
    SetPointLightRadius(1,1800)           `Getting image with maximum light
    render()
    getimage(ima,0,0,512,512)
    ClearScreen()
    deleteimage(ima-1) 
   
    setspriteimage(100,ima)
	setspritecolor(100,0,200+random(0,55),0,255)
	
	SetPointLightPosition(1,getcamerax(1),20,getcameraz(1))
	SetPointLightRadius(1,50)             `back to low light power
 	
 gosub camara
  

    Print( ScreenFPS() )
    Sync()
loop
camara:
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	x#=getcamerax(1)
	z#=getcameraz(1)
	setcameraposition(1,x#,5,z#)
	setcamerarotation(1,-45+getpointery(),-80+getpointerx(),0)
	if GetRawKeyState( 27) then end    
return

// Project: Fake flashlight 
// Created: 2019-10-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Fake flashlight" )
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

for i= 1 to 20
   createobjectbox(i,5+random(0,5),5+random(0,5),5+random(0,5))
   setobjectposition(i,random(0,100),0,random(0,100))
   SetObjectColor(i,random(0,255),random(0,255),random(0,255),255)
next
createobjectbox(21,20,15,10)
setobjectcolor(21,255,255,0,255)
setobjectposition(21,50,0,50)


SetAmbientColor(0,0,0)
SetSunActive(0)
createpointlight(1,0,0,0,400,255,255,0)


`Flashlight with a cone
createobjectcone(111,30,30,100)   
SetObjectCullMode(111,2)
setobjectrotation(111,-90,0,0)
FixObjectPivot(111)
setobjectscale(111,2,2,20)   `modifying cone size
SetObjectTransparency(111,1)
SetObjectAlpha(111,240)

`floor
createobjectsphere(112,1000,50,50)
setobjectcolor(112,50,100,50,255)
setobjectposition(112,0,-5,0)
setobjectscale(112,1,0.001,1)

`ball
CreateObjectSphere(113,20,20,20)
setobjectposition(113,147,5,19)
SetObjectColor(113,15,255,15,255)


`sky
createobjectsphere(1000,1000,12,12)
SetObjectCullMode(1000,0)
SetObjectColorEmissive(1000,0,0,45)


SetRawMousePosition(500,400)
setcameraposition(1,-10,30,20)
SetCameraLookAt(1,30,0,0,0)


do
 gosub camara
     tn#=tn#+2
     setobjectrotation(21,0,tn#,0)
     Print( ScreenFPS() )
    rem print(getcamerax(1))
    rem print(getcameraz(1))
    Sync()
loop
camara:
	movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	setcamerarotation(1,getpointery(),-80+getpointerx(),0)
	if GetRawKeyState( 27) then end    
	setobjectposition(111,getcamerax(1),getcameray(1),getcameraz(1))
	SetObjectRotation(111,GetCameraAngleX(1),GetCameraAngleY(1),GetCameraAngleZ(1))
	
	
	SetPointLightPosition(1,getcamerax(1),getcameray(1),getcameraz(1))
	x=getcamerax(1)
	z=getcameraz(1)
	setcameraposition(1,x,20,z)
return

// Project: design your logo 
// Created: 2020-01-24

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "design your logo" )
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

col=makecolor(255,255,255)
for i= 1 to 8
  drawellipse(4,4,i,i,col,col,1)
next
render()
getimage(1,0,0,9,9)
createsprite(1,1)

spt=1	
tn=0
x=60
y=300

for i= 1 to 600
  rem sleep(2)    `adjust here speed
  x=x+cos(tn)*2
  y=y+sin(tn)*2
  inc spt,1
  createsprite(spt,1)
  setspritecolor(spt,50,50,255,255)
  setspriteposition(spt,x*3,y)
  setspritescale(spt,2,2)

  if i>50 and i<100 then inc tn,3
  if i>150 then dec tn,2
  if i>200 and i<250 then dec tn,3
  if i>300 then tn=0
  if i=350 then tn=10
  if i=400 then x=50
  if i=400 then y=250
  if i>400 then tn=-45
  if i>500 then tn=45
    
   if i>150
	   setspritecolor(spt,255,0,0,255)
   endif
   
   if i>300
	   setspritecolor(spt,0,255,0,255)
   endif
   	
   if i>400
	   setspritecolor(spt,255,0,255,255)
	   setspritescale(spt,1,1)
   endif
    
  sync()
next

createobjectbox(1,10,10,10)
setcameraposition(1,-20,10,-20)
SetCameraLookAt(1,0,0,0,0)
for i= 1 to 601
	setspritevisible(i,0)
next

`our 3D Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)	
do
g=g+1
setobjectrotation(1,0,g,0)
	
	
sync()
loop

// Project: Line thickness 
// Created: 2020-03-29

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Line thickness" )
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

global w

`circles coords
px=50
py=50
px2=480
py2=130


createobjectbox(1,5,5,5)
CreateObjectSphere(2,5,15,15)
setobjectposition(2,40,30,20)

SetCameraPosition(1,-50,50,-50)
SetCameraLookAt(1,0,0,0,0)

`our Sky
createobjectcylinder(4000,1000,180,40)
SetObjectCullMode(4000,0)
SetObjectColorEmissive(4000,30,30,155)
do
`boxes screen coordinates 
cx#=GetScreenXFrom3D(getobjectx(1),getobjecty(1),getobjectz(1))
cx2#=GetScreenXFrom3D(getobjectx(2),getobjecty(2),getobjectz(2))

cy#=GetScreenyFrom3D(getobjectx(1),getobjecty(1),getobjectz(1))
cy2#=GetScreenyFrom3D(getobjectx(2),getobjecty(2),getobjectz(2))	
		
	
w=makecolor(255,255,0)

`two ellipses 
drawellipse(px,py,20,20,w,w,1)
drawellipse(px2,py2,20,20,w,w,1)

`line between ellipses
w=makecolor(170,120,30)
line(px,py,px2,py2,2)

`line between 3D objects
w=makecolor(0,255,0)
line(cx#,cy#,cx2#,cy2#,7+th#)

`moving box
MoveObjectLocalZ(1,.9)
if getobjectz(1)>50 then SetObjectRotation(1,0,GetObjectAngleY(1)+180,0)
if getobjectz(1)<-10 then SetObjectRotation(1,0,GetObjectAngleY(1)+180,0)



 if ( GetRawKeyState( 38 ) ) then th#=th#+0.5
 if ( GetRawKeyState( 40 ) ) then th#=th#-0.5
 if th#<-6.3 then th#=-6.3
 print("Use   up/down  key ")
sync()
loop

function line(x#,z#,x2#,z2#,s)
angle#= atanfull(x#-x2#, z#-z2#)+90

dx#=x#-x2#
dz#=z#-z2#
dist#=sqrt((dx#*dx#)+(dz#*dz#))

for i= 1 to dist#
    x#=x#+cos(angle#)
    z#=z#+sin(angle#)
    drawellipse(x#,z#,s,s,w,w,1)
next
endfunction