Carnival Game - GameCreators Forum

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Nov 2018 06:04 Edited at: 22nd May 2021 21:11

Link

Quote: "Please get into the 3D world and maybe we could be driving that dodgem too."

They are all 3D, the main things that hold me back on 3D is it requires much more art skills and can be more costly
not to mention how fidly it is to place the objects unless you use a program like AGE3D which im still learning and
is the reason i have been doing smaller 3D stuff. and dodgems is def 3D I just set the camera a far as I haven't done
,a player car yet

Thanks GarBenjamin
I owe allot of thanks to Blink0k, but think toilettoss and hooptoss look better than they did lol im thinking it should
be toiletchuck and hooptoss. Will next have a play with the dodgem concept again still thinking that may be best as
a sort of bonus game and you pay so much to play each game but bowling is so much higher scoring it might cost
twice as much with the artifical coinage.

BETA hopefully a beta version soon as im not sure if ive set the gyro settings well as its not set to be used
perfectly upright. And the gyro mouse settings might need tweaking

Heres what there is so far
Edit Video removed for space please see the latest one below
Weekend
I thought it was time I formatted my machine and setup what was needed again, that has taken most of my time
this weekend

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Attachments

Login to view attachments

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 10th Nov 2018 11:17

Link

Hi,

Just a little something - sorry, couldnt resist

// Project: lights 
// Created: 2018-11-09

// show all errors
SetErrorMode(2)

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

lightswheel as integer
lightswheel = CreateObjectSphere(.1,.1,.1)

type _arms
	fitting
	lights as integer[18]
endtype
arm as _arms[18]

lightstart=100000
for armcount = 0 to arm.length	
	arm[armcount].fitting=CreateObjectBox(1,.1,40)

for a=0 to arm[armcount].lights.length
		arm[armcount].lights[a] = CreateObjectSphere(.5,20,20)
		SetObjectPosition(arm[armcount].lights[a],0,.2,a)

if mod(armcount,2)
			SetObjectColor(arm[armcount].lights[a],255,0,0,255)
//			CreatePointLight(lightstart,0,0,0,1000,255,0,0)
			inc lightstart
		else
			SetObjectColor(arm[armcount].lights[a],0,0,255,255)
	//		CreatePointLight(lightstart,0,.2,a,10,0,0,255)
			inc lightstart

endif
		SetObjectTransparency(arm[armcount].lights[a],1)
		SetObjectRotation(arm[armcount].fitting,0,armcount*(360/arm[armcount].lights.length),0)
		FixObjectToObject(arm[armcount].lights[a],arm[armcount].fitting)
		SetObjectLightMode(arm[armcount].lights[a],0)

next
	FixObjectToObject(arm[armcount].fitting,lightswheel)
next

//alpha=255
alpha=1 : fade=1
do
	
	RotateObjectLocalY(lightswheel,1)

for armcount = 0 to arm.length	
		for a=0 to arm[armcount].lights.length
				
				SetObjectColor(arm[armcount].lights[a],GetObjectColorRed(arm[armcount].lights[a]),GetObjectColorGreen(arm[armcount].lights[a]),GetObjectColorBlue(arm[armcount].lights[a]),alpha)
		next
	next
	if fade=1 
		inc alpha,50
	else
		dec alpha,50
	endif
	
	if alpha>255
		alpha=255
		fade=0
	endif

if alpha<0
		alpha=0
		fade=1
	endif
	
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet


// Project: lights 
// Created: 2018-11-09

// show all errors
SetErrorMode(2)

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

lightswheel as integer
lightswheel = CreateObjectSphere(.1,.1,.1)

type _arms
	fitting
	lights as integer[18]
endtype
arm as _arms[18]

lightstart=100000
for armcount = 0 to arm.length	
	arm[armcount].fitting=CreateObjectBox(1,.1,40)

	for a=0 to arm[armcount].lights.length
		arm[armcount].lights[a] = CreateObjectSphere(.5,20,20)
		SetObjectPosition(arm[armcount].lights[a],0,.2,a)

		if mod(armcount,2)
			SetObjectColor(arm[armcount].lights[a],255,0,0,255)
//			CreatePointLight(lightstart,0,0,0,1000,255,0,0)
			inc lightstart
		else
			SetObjectColor(arm[armcount].lights[a],0,0,255,255)
	//		CreatePointLight(lightstart,0,.2,a,10,0,0,255)
			inc lightstart

		endif
		SetObjectTransparency(arm[armcount].lights[a],1)
		SetObjectRotation(arm[armcount].fitting,0,armcount*(360/arm[armcount].lights.length),0)
		FixObjectToObject(arm[armcount].lights[a],arm[armcount].fitting)
		SetObjectLightMode(arm[armcount].lights[a],0)

	next
	FixObjectToObject(arm[armcount].fitting,lightswheel)
next


//alpha=255
alpha=1 : fade=1
do
	
	RotateObjectLocalY(lightswheel,1)

	for armcount = 0 to arm.length	
		for a=0 to arm[armcount].lights.length
				
				SetObjectColor(arm[armcount].lights[a],GetObjectColorRed(arm[armcount].lights[a]),GetObjectColorGreen(arm[armcount].lights[a]),GetObjectColorBlue(arm[armcount].lights[a]),alpha)
		next
	next
	if fade=1 
		inc alpha,50
	else
		dec alpha,50
	endif
	
	if alpha>255
		alpha=255
		fade=0
	endif

	if alpha<0
		alpha=0
		fade=1
	endif
	
    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Nov 2018 15:13 Edited at: 10th Nov 2018 15:57

Link

That looks pretty cool puzzler

If I went down the flashy light path tho ide want one model texture with all the lights attached
and ide do it similar to this where the second texture would be the glow of just the lights

// Project: 3D car shader demo 
// Created: 2018-07-25

// show all errors
SetErrorMode(2)

#constant screenWidth=1920
#constant screenHeight=1080
 
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
carID=1
SetCameraPosition(1,0,100,-250)
SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)
 
loadObject(carId,"car.obj")
SetObjectScale(carId,0.5,0.5,0.5)
 
createShader() 
loadImage(1,"car.png") //the complete normal texture
loadImage(2,"car_glow.png") 
 
SetObjectImage(carID,1,0) 
SetObjectImage(carID,2,1) 
 
//createShader()
Shader=LoadShader( "neon.vs","neon.ps" )
SetObjectShader(carID,Shader)

lightint#=1.0
lightson=1
SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
     
do
    time#=timer()
    r#=7-time#
    g#=7-time#
    b#=7-time#
     
    RotateObjectLocalY(carId,.5)
    //SetShaderConstantByName(Shader,"pointPos",1,1,1,1)
    //SetShaderConstantByName(Shader,"myColor",r#,g#,b#,0.02) //red green blue factor
    if GetRawKeyState(49)=1
		lightint#=lightint#-0.01
		if lightint#<0.0 then lightint#=0.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeyState(50)=1
		lightint#=lightint#+0.01
		if lightint#>1.0 then lightint#=1.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeypressed(76)=1
		lightson=1-lightson
		SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
	endif
	//SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	//SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
    print("Press L to toggle lights")
    print("Use 1 and 2 to increase/decrease light")
    print ("Current value "+str(lightint#))
    sync()
loop
 
 
function createShader()
file = OpenToWrite("neon.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)
  
//pixel shader
file = OpenToWrite("neon.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec4 agk_MeshDiffuse;")
WriteLine(file,"mediump vec4 colorResult;")
WriteLine(file,"uniform float lightint;")
WriteLine(file,"uniform float lightson;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"	vec4 colorA = texture2D(texture0, uvVarying);")
WriteLine(file,"	vec4 colorB = texture2D(texture1, uvVarying);")
WriteLine(file,"	if (lightson < 1.0) {")
WriteLine(file,"		colorResult = vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file," 	} else {")
WriteLine(file,"		if (colorB.a > 0.0) {")
WriteLine(file,"			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);")
WriteLine(file,"		} else {")
WriteLine(file,"			colorResult =vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"gl_FragColor = colorResult;")
WriteLine(file,"}")
CloseFile(file)
endfunction

+ Code Snippet


// Project: 3D car shader demo 
// Created: 2018-07-25

// show all errors
SetErrorMode(2)

#constant screenWidth=1920
#constant screenHeight=1080
 
SetWindowSize(screenWidth,screenHeight,0)
Setvirtualresolution(screenWidth,screenHeight)
// set variables for camera's starting position
carID=1
SetCameraPosition(1,0,100,-250)
SetFogMode( 1 ) 
SetFogColor(10,10,10)
SetFogRange(6,16)
 
loadObject(carId,"car.obj")
SetObjectScale(carId,0.5,0.5,0.5)
 
createShader() 
loadImage(1,"car.png") //the complete normal texture
loadImage(2,"car_glow.png") 
 
SetObjectImage(carID,1,0) 
SetObjectImage(carID,2,1) 
 
//createShader()
Shader=LoadShader( "neon.vs","neon.ps" )
SetObjectShader(carID,Shader)

lightint#=1.0
lightson=1
SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
     
do
    time#=timer()
    r#=7-time#
    g#=7-time#
    b#=7-time#
     
    RotateObjectLocalY(carId,.5)
    //SetShaderConstantByName(Shader,"pointPos",1,1,1,1)
    //SetShaderConstantByName(Shader,"myColor",r#,g#,b#,0.02) //red green blue factor
    if GetRawKeyState(49)=1
		lightint#=lightint#-0.01
		if lightint#<0.0 then lightint#=0.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeyState(50)=1
		lightint#=lightint#+0.01
		if lightint#>1.0 then lightint#=1.0
		SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	endif
    if GetRawKeypressed(76)=1
		lightson=1-lightson
		SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
	endif
	//SetShaderConstantByName(Shader,"lightint",lightint#,0.0,0.0,0.0)
	//SetShaderConstantByName(Shader,"lightson",lightson*1.0,0.0,0.0,0.0)
    print("Press L to toggle lights")
    print("Use 1 and 2 to increase/decrease light")
    print ("Current value "+str(lightint#))
    sync()
loop
 
 
function createShader()
file = OpenToWrite("neon.vs")
WriteLine(file,"attribute highp vec3 position;")
WriteLine(file,"attribute mediump vec3 normal;")
WriteLine(file,"attribute mediump vec2 uv;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"uniform highp mat3 agk_WorldNormal;")
WriteLine(file,"uniform highp mat4 agk_World;")
WriteLine(file,"uniform highp mat4 agk_ViewProj;")
WriteLine(file,"uniform mediump vec4 uvBounds0;")
WriteLine(file,"mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"void main()")
WriteLine(file,"{") 
WriteLine(file,"    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;")
WriteLine(file,"    highp vec4 pos = agk_World * vec4(position,1.0);")
WriteLine(file,"    gl_Position = agk_ViewProj * pos;")
WriteLine(file,"    mediump vec3 norm = normalize(agk_WorldNormal * normal);")
WriteLine(file,"    posVarying = pos.xyz;")
WriteLine(file,"    normalVarying = norm;")
WriteLine(file,"    lightVarying = GetVSLighting( norm, posVarying );")
WriteLine(file,"}") 
CloseFile(file)
  
//pixel shader
file = OpenToWrite("neon.ps")
WriteLine(file,"uniform sampler2D texture0;")
WriteLine(file,"uniform sampler2D texture1;")
WriteLine(file,"varying highp vec3 posVarying;")
WriteLine(file,"varying mediump vec3 normalVarying;")
WriteLine(file,"varying mediump vec2 uvVarying;")
WriteLine(file,"varying mediump vec3 lightVarying;")
WriteLine(file,"mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );")
WriteLine(file,"mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );")
WriteLine(file,"uniform vec4 myColor;")
WriteLine(file,"uniform mediump vec4 agk_MeshDiffuse;")
WriteLine(file,"mediump vec4 colorResult;")
WriteLine(file,"uniform float lightint;")
WriteLine(file,"uniform float lightson;")
WriteLine(file,"void main()")
WriteLine(file,"{")
WriteLine(file,"	mediump vec3 norm = normalize(normalVarying);")
WriteLine(file,"	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );")
WriteLine(file,"	vec4 colorA = texture2D(texture0, uvVarying);")
WriteLine(file,"	vec4 colorB = texture2D(texture1, uvVarying);")
WriteLine(file,"	if (lightson < 1.0) {")
WriteLine(file,"		colorResult = vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file," 	} else {")
WriteLine(file,"		if (colorB.a > 0.0) {")
WriteLine(file,"			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);")
WriteLine(file,"		} else {")
WriteLine(file,"			colorResult =vec4(colorA * vec4(light,1.0))*lightint;")
WriteLine(file,"		}")
WriteLine(file,"	}")
WriteLine(file,"gl_FragColor = colorResult;")
WriteLine(file,"}")
CloseFile(file)
endfunction

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 10th Nov 2018 15:53

Link

Here is a little more with on sreen keys info

// Project: lights 
// Created: 2018-11-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "lights" )
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 ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#

// MeshMeblock TYpes
Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
  
global MeshID as Mesh
// End of meshmemblock types

setupskyandfog()

lightswheel as integer
lightswheel = CreateObjectSphere(.01,.01,.01)

TicketOffice = CreateObjectBox(10,10,10)
SetObjectPosition(ticketoffice,0,5,0)

roof = CreateObjectCone(10,65,18)
SetObjectPosition(roof,0,16,0)
type _arms
	fitting
	lplatform
	rplatform
	lpatformangle#
	rpatformangle#
	
	lights as integer[18]
endtype
arm as _arms[18]

outsidebars as integer[18]
outsidepanels as integer[18]

floora = CreateObjectCone(.001,120,18)
SetObjectColor(floora,0,100,0,255)

for a=0 to outsidebars.length
	//  only make 17 outside bars cause the missing bar will look like an entrance area
	if a<>9
		outsidebars[a] = CreateObjectBox(.5,20,.5)
		
		x#=30 * sin( a * (360/outsidebars.length))
		z#=30 * cos( a * (360/outsidebars.length))
	
		SetObjectPosition(outsidebars[a],x#,1,z#)
		SetObjectRotation(outsidebars[a], 0,a * (360/outsidebars.length),0)

x#=32 * sin( a * (360/outsidebars.length))
		z#=32 * cos( a * (360/outsidebars.length))
	
		
		if a<>8
			outsidepanels[a] = CreateObjectPlane(10,5)
		
			SetObjectPosition(outsidepanels[a],4,1,0)
			SetObjectRotation(outsidepanels[a],0,11,0)
		
			FixObjectToObject(outsidepanels[a],outsidebars[a])
		endif
	endif
next

lightstart=100000
for armcount = 0 to arm.length
	arm[armcount].fitting=CreateObjectBox(.5,.1,60)

SetObjectPosition(arm[armcount].fitting,0,10,0)
	// create triangular platform
	
	
	
	for a=0 to arm[armcount].lights.length
		arm[armcount].lights[a] = CreateObjectSphere(.5,20,20)
		SetObjectPosition(arm[armcount].lights[a],0,-.2,a *1.5)

if mod(armcount,2)
			SetObjectColor(arm[armcount].lights[a],255,0,0,255)
			CreatePointLight(lightstart,0,0,0,1000,255,0,0)
			inc lightstart
		else
			SetObjectColor(arm[armcount].lights[a],0,0,255,255)
			CreatePointLight(lightstart,0,.2,a,10,0,0,255)
			inc lightstart

endif
		SetObjectTransparency(arm[armcount].lights[a],1)
		SetObjectRotation(arm[armcount].fitting,0,armcount*(360/arm.length*2),0)
		FixObjectToObject(arm[armcount].lights[a],arm[armcount].fitting)
//		SetObjectLightMode(arm[armcount].lights[a],0)

next
	
	spread#=9.5
	createMeshObjectTriangleBlock(0,0,0, -4.5,25,4.5,25,.1)
	arm[armcount].lplatform=CreateObjectFromMeshWithColor(meshid)
	SetObjectRotation(arm[armcount].lplatform,0,armcount * (360 / arm.length*2)+spread#,0)
	SetObjectColor(arm[armcount].lplatform,255,255,255,255)
	FixObjectToObject(arm[armcount].lplatform,lightswheel)

arm[armcount].rplatform=CreateObjectFromMeshWithColor(meshid)
	emptymesh()
	SetObjectRotation(arm[armcount].rplatform,0,armcount * (360 / arm.length*2)-spread#,0)
	FixObjectToObject(arm[armcount].rplatform,lightswheel)
	SetObjectColor(arm[armcount].rplatform,155,155,155,255)

SetObjectPosition(arm[armcount].lplatform,0,1,0)
	SetObjectPosition(arm[armcount].rplatform,0,1,0)

arm[armcount].lpatformangle# =9
	arm[armcount].rpatformangle# =-9

RotateObjectLocalZ(arm[armcount].lplatform,9)
		RotateObjectLocalZ(arm[armcount].rplatform,-9)

FixObjectToObject(arm[armcount].lplatform,lightswheel)
	FixObjectToObject(arm[armcount].rplatform,lightswheel)

SetCameraRotation(1,0,0,0)
startx#=1024/2
starty#=768/2
//alpha=255
alpha=1 : fade=1 : angle=0 : angleup=1 : speed#=0
do

//movecamerawithmouse()
	
	RotateObjectLocalY(lightswheel,speed#)

/*
	for armcount = 0 to arm.length	
		
		RotateObjectLocalY(arm[armcount].fitting,speed#)
		RotateObjectLocalZ(arm[armcount].lplatform,	arm[armcount].lpatformangle#)
		RotateObjectLocalZ(arm[armcount].rplatform,	arm[armcount].rpatformangle#)

//		SetCameraPosition(1,getobjectx(arm[armcount].rplatform),getobjecty(arm[armcount].rplatform)+4,getobjectz(arm[armcount].rplatform))
	//	SetCameraLookAt(1,getobjectx(ticketoffice),getobjecty(ticketoffice),getobjectz(ticketoffice),0)
		
		print(arm[armcount].rpatformangle#)
		if angleup=1 
			inc arm[armcount].lpatformangle#,.1
			dec arm[armcount].rpatformangle#,.1
		endif
		
		if angleup=0
			dec arm[armcount].lpatformangle#,.1
			inc arm[armcount].rpatformangle#,.1
		endif
		
		if arm[armcount].rpatformangle#<-2
			arm[armcount].lpatformangle#=2
			arm[armcount].rpatformangle#=-2
			angleup=0
		endif
		if arm[armcount].rpatformangle#>2
			arm[armcount].lpatformangle#=-2
			arm[armcount].rpatformangle#=2
			angleup=1
		endif

next
	*/
	if GetRawKeyState(82) then RotateCameraLocalX(1,-.1) // R
	
	if GetRawKeyState(70) then RotateCameraLocalX(1,.1) // F
	
	if GetRawKeyState(69) then inc cameray#,.3 // E

if GetRawKeyState(68) then dec cameray#,.3 // D

if GetRawKeyState(83) then dec cameraz#,.3 // W
	if GetRawKeyState(87) then inc cameraz#,.3 // S
	
	if GetRawKeyPressed(38) then inc speed#,.3 // C UP
	if GetRawKeyPressed(40) then dec speed#,.3 // C DOWN
	
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Print("W - Camera forward")
    Print("S - Camera backward")

Print("E - Camera tilt UP")
    Print("D - Camera tilt DOWN")

Print("R - Camera move UP")
    Print("D - Camera move DOWN")
    Print("Cursor UP - speed up the waltzer")
    Print("Cuser Down - Speed down the waltzer")
    
    print (GetRawLastKey())
    Sync()
loop

function emptymesh()
	meshid.TriangleList.length=-1
	MeshID.VertexList.length=-1
endfunction

function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
// X4# is the 4th
 // X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
 
function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1, 0,  0, 1,Color)
 
    // top
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,  .5, .5,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,  0, 0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,  0, 1,Color)
     
     
    // side 1
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0, 1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1, 0,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1,0,Color)
 
 
 
 
 
    // side 2
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       0,0,Color)
     
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
 
 
    // side 3
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       0,0,Color)
     
     
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
 
//  AddVertex(MeshID, x#, y#+height#, z3#   , 0 ,1,0, .5,.5,Color)
     
     
     
     
     
     
endfunction

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
  
endfunction
 
 Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
/*    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 */
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id

Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

function setupskyandfog()
    // setup a skybox
SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,90000)
         
    
endfunction

+ Code Snippet


// Project: lights 
// Created: 2018-11-09

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "lights" )
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 ang#, angx#, angy#, fDiffY#, fDiffX#,newX#,startx#, starty#, camerax#, cameray#, cameraz#

// MeshMeblock TYpes
Type Vertex
      
    x as float
    y as float
    z as float
    nx as float
    ny as float
    nz as float
    u as float
    v as float
    color as integer
endtype
  
Type Triangle
    v1 as integer
    v2 as integer
    v3 as integer
endtype
  
Type Mesh
    VertexList as Vertex[]
    TriangleList as Triangle[]
endtype
  
global MeshID as Mesh
// End of meshmemblock types


setupskyandfog()


lightswheel as integer
lightswheel = CreateObjectSphere(.01,.01,.01)

TicketOffice = CreateObjectBox(10,10,10)
SetObjectPosition(ticketoffice,0,5,0)

roof = CreateObjectCone(10,65,18)
SetObjectPosition(roof,0,16,0)
type _arms
	fitting
	lplatform
	rplatform
	lpatformangle#
	rpatformangle#
	
	lights as integer[18]
endtype
arm as _arms[18]

outsidebars as integer[18]
outsidepanels as integer[18]

floora = CreateObjectCone(.001,120,18)
SetObjectColor(floora,0,100,0,255)

for a=0 to outsidebars.length
	//  only make 17 outside bars cause the missing bar will look like an entrance area
	if a<>9
		outsidebars[a] = CreateObjectBox(.5,20,.5)
		
		x#=30 * sin( a * (360/outsidebars.length))
		z#=30 * cos( a * (360/outsidebars.length))
	
		SetObjectPosition(outsidebars[a],x#,1,z#)
		SetObjectRotation(outsidebars[a], 0,a * (360/outsidebars.length),0)

		x#=32 * sin( a * (360/outsidebars.length))
		z#=32 * cos( a * (360/outsidebars.length))
	
		
		if a<>8
			outsidepanels[a] = CreateObjectPlane(10,5)
		
			SetObjectPosition(outsidepanels[a],4,1,0)
			SetObjectRotation(outsidepanels[a],0,11,0)
		
			FixObjectToObject(outsidepanels[a],outsidebars[a])
		endif
	endif
next


lightstart=100000
for armcount = 0 to arm.length
	arm[armcount].fitting=CreateObjectBox(.5,.1,60)


	SetObjectPosition(arm[armcount].fitting,0,10,0)
	// create triangular platform
	
	
	
	for a=0 to arm[armcount].lights.length
		arm[armcount].lights[a] = CreateObjectSphere(.5,20,20)
		SetObjectPosition(arm[armcount].lights[a],0,-.2,a *1.5)

		if mod(armcount,2)
			SetObjectColor(arm[armcount].lights[a],255,0,0,255)
			CreatePointLight(lightstart,0,0,0,1000,255,0,0)
			inc lightstart
		else
			SetObjectColor(arm[armcount].lights[a],0,0,255,255)
			CreatePointLight(lightstart,0,.2,a,10,0,0,255)
			inc lightstart

		endif
		SetObjectTransparency(arm[armcount].lights[a],1)
		SetObjectRotation(arm[armcount].fitting,0,armcount*(360/arm.length*2),0)
		FixObjectToObject(arm[armcount].lights[a],arm[armcount].fitting)
//		SetObjectLightMode(arm[armcount].lights[a],0)

	next
	
	spread#=9.5
	createMeshObjectTriangleBlock(0,0,0, -4.5,25,4.5,25,.1)
	arm[armcount].lplatform=CreateObjectFromMeshWithColor(meshid)
	SetObjectRotation(arm[armcount].lplatform,0,armcount * (360 / arm.length*2)+spread#,0)
	SetObjectColor(arm[armcount].lplatform,255,255,255,255)
	FixObjectToObject(arm[armcount].lplatform,lightswheel)

	arm[armcount].rplatform=CreateObjectFromMeshWithColor(meshid)
	emptymesh()
	SetObjectRotation(arm[armcount].rplatform,0,armcount * (360 / arm.length*2)-spread#,0)
	FixObjectToObject(arm[armcount].rplatform,lightswheel)
	SetObjectColor(arm[armcount].rplatform,155,155,155,255)

	SetObjectPosition(arm[armcount].lplatform,0,1,0)
	SetObjectPosition(arm[armcount].rplatform,0,1,0)
	

	arm[armcount].lpatformangle# =9
	arm[armcount].rpatformangle# =-9

		RotateObjectLocalZ(arm[armcount].lplatform,9)
		RotateObjectLocalZ(arm[armcount].rplatform,-9)


	FixObjectToObject(arm[armcount].lplatform,lightswheel)
	FixObjectToObject(arm[armcount].rplatform,lightswheel)

next



camerax#=0
cameray#=10
cameraz#=-70

SetCameraRotation(1,0,0,0)
startx#=1024/2
starty#=768/2
//alpha=255
alpha=1 : fade=1 : angle=0 : angleup=1 : speed#=0
do

	//movecamerawithmouse()
	
	RotateObjectLocalY(lightswheel,speed#)

/*
	for armcount = 0 to arm.length	
		
		RotateObjectLocalY(arm[armcount].fitting,speed#)
		RotateObjectLocalZ(arm[armcount].lplatform,	arm[armcount].lpatformangle#)
		RotateObjectLocalZ(arm[armcount].rplatform,	arm[armcount].rpatformangle#)

//		SetCameraPosition(1,getobjectx(arm[armcount].rplatform),getobjecty(arm[armcount].rplatform)+4,getobjectz(arm[armcount].rplatform))
	//	SetCameraLookAt(1,getobjectx(ticketoffice),getobjecty(ticketoffice),getobjectz(ticketoffice),0)
		
		print(arm[armcount].rpatformangle#)
		if angleup=1 
			inc arm[armcount].lpatformangle#,.1
			dec arm[armcount].rpatformangle#,.1
		endif
		
		if angleup=0
			dec arm[armcount].lpatformangle#,.1
			inc arm[armcount].rpatformangle#,.1
		endif
		
		if arm[armcount].rpatformangle#<-2
			arm[armcount].lpatformangle#=2
			arm[armcount].rpatformangle#=-2
			angleup=0
		endif
		if arm[armcount].rpatformangle#>2
			arm[armcount].lpatformangle#=-2
			arm[armcount].rpatformangle#=2
			angleup=1
		endif
			
			

	next
	*/
	if GetRawKeyState(82) then RotateCameraLocalX(1,-.1) // R
	
	if GetRawKeyState(70) then RotateCameraLocalX(1,.1) // F
	
	if GetRawKeyState(69) then inc cameray#,.3 // E

	if GetRawKeyState(68) then dec cameray#,.3 // D

		
	if GetRawKeyState(83) then dec cameraz#,.3 // W
	if GetRawKeyState(87) then inc cameraz#,.3 // S
	
	if GetRawKeyPressed(38) then inc speed#,.3 // C UP
	if GetRawKeyPressed(40) then dec speed#,.3 // C DOWN
	
	
	SetCameraPosition(1,camerax#,cameray#,cameraz#)
    Print( ScreenFPS() )
    Print("W - Camera forward")
    Print("S - Camera backward")

    Print("E - Camera tilt UP")
    Print("D - Camera tilt DOWN")

    Print("R - Camera move UP")
    Print("D - Camera move DOWN")
    Print("Cursor UP - speed up the waltzer")
    Print("Cuser Down - Speed down the waltzer")
    
    print (GetRawLastKey())
    Sync()
loop

function emptymesh()
	meshid.TriangleList.length=-1
	MeshID.VertexList.length=-1
endfunction


 function movecamerawithmouse()
       
    fDiffX# = (GetPointerX() - startx#)/4.0
    fDiffY# = (GetPointerY() - starty#)/4.0
   
    newX# = angx# + fDiffY#
   // if ( newX# > 360 ) then newX# = 360
   // if ( newX# < -360 ) then newX# = -360
     
    // if we keep hold of the left mouse button then rotate the view otherwise the camera stays put
    // so can concentrate on adding/removing blocks at that positon
     
     
    SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
   
endfunction

// X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
// X4# is the 4th
 // X#,Y#,Z# location of where you want it
// First vetex always in centre 0 of x,y,z
// X2# is the 2nd vertex
// X3# is the 3rd 
 
function createMeshObjectTriangleBlock(x#,y#,z#,x2#,z2#,x3#,z3#,height#)
    Color=MakeColor(255,255,255)
     
    // bottom
    AddVertex(MeshID, x#, y#, z#            , 0 ,1, 0,  .5,.5,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1, 0,  0, 0,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1, 0,  0, 1,Color)
 
    // top
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,  .5, .5,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,  0, 0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,  0, 1,Color)
     
     
    // side 1
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0, 1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1, 0,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       0, 0,Color)
 
 
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       1,0,Color)
 
 
 
 
 
    // side 2
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x2#, y#+height#, z2#  , 0 ,1,0,       0,0,Color)
     
    AddVertex(MeshID, x2#, y#, z2#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       1,0,Color)
 
 
    // side 3
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
    AddVertex(MeshID, x3#, y#+height#, z3#  , 0 ,1,0,       0,0,Color)
     
     
    AddVertex(MeshID, x3#, y#, z3#          , 0 ,1,0,       0,1,Color)
    AddVertex(MeshID, x#, y#, z#            , 0 ,1,0,       1,1,Color)
    AddVertex(MeshID, x#, y#+height#, z#    , 0 ,1,0,       1,0,Color)
 
//  AddVertex(MeshID, x#, y#+height#, z3#   , 0 ,1,0, .5,.5,Color)
     
     
     
     
     
     
endfunction

 
Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
    vert as vertex
    vert.x = x
    vert.y = y
    vert.z = z
    vert.nx = nx
    vert.ny = ny
    vert.nz = nz
    vert.u = u
    vert.v = v
    vert.color = color
    m.VertexList.Insert(vert)
  
endfunction
 
 Function CreateObjectFromMeshWithColor(m ref as mesh)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 72 + VertexCount*36
    
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,4)
    SetMemblockInt(memblock,12,36) // no color - 36 if color
    SetmemblockInt(memblock,16,72)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
        SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
        SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
        SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
        SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
        SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
        SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
        SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
     next
      
/*    for i = 0 to m.TriangleList.Length
        SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
        SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
        SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
    next
 */
    id = CreateObjectFromMeshMemblock(memblock)
//  DeleteMemblock(memblock)
endfunction id

Function CreateObjectFromMeshWithUVTexturing(m ref as mesh, texture)
    DeleteMemblock(memblock)
    VertexCount = m.VertexList.Length + 1
    IndexCount = (m.TriangleList.Length + 1) * 2
    IndexOffset = 60 + VertexCount*36
    memblock = CreateMemblock(IndexOffset+IndexCount*4)
    SetMemblockInt(memblock,0,VertexCount)
    SetMemblockInt(memblock,4,IndexCount)
    SetMemblockInt(Memblock,8,3)
    SetMemblockInt(memblock,12,32) // no color - 36 if color
    SetmemblockInt(memblock,16,60)
    SetMemblockInt(memblock,20,IndexOffset)
    SetMemblockInt(memblock,24,0x0c000300)
    SetMemblockString(Memblock,28,"position")
    SetMemblockInt(memblock,40,0x08000300)
    SetMemblockString(memblock,44,"normal")
    SetMemblockInt(memblock,52,0x04000200)
    SetMemblockString(memblock,56,"uv")
    //SetMemblockInt(memblock,60,0x08010401) // maybe one day or year in 2019 lol
    //SetMemblockString(memblock,64,"color") // maybe one day or year in 2019 lol
        for i = 0 to m.VertexList.Length
        SetMemblockFloat(memblock,60+i*32,m.VertexList[i].x)
        SetMemblockFloat(memblock,64+i*32,m.VertexList[i].y)
        SetMemblockFloat(memblock,68+i*32,m.VertexList[i].z)
        SetMemblockFloat(memblock,72+i*32,m.VertexList[i].nx)
        SetMemblockFloat(memblock,76+i*32,m.VertexList[i].ny)
        SetMemblockFloat(memblock,80+i*32,m.VertexList[i].nz)
        SetMemblockFloat(memblock,84+i*32,m.VertexList[i].u)
        SetMemblockFloat(memblock,88+i*32,m.VertexList[i].v)
        //SetMemblockInt(memblock,104+i*36,m.VertexList[i].color) //maybe one day or year in 2019 lol
    next
      
//  for i = 0 to m.TriangleList.Length
//      SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
//      SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
//      SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
//  next
    DeleteObject(id)
    id = CreateObjectFromMeshMemblock(memblock)
    SetObjectImage(id,texture,0)
  
//    if mode=1 // creates the world or it creates for other small things - like explosion blocks
        // we need to keep the world chunk in memory so we can keep updating the vertices
        meshmemory = memblock
//    endif
      
//  DeleteMemblock(memblock)
endfunction id

function setupskyandfog()
    // setup a skybox
SetSunActive(1)
    SetSkyBoxHorizonSize(4.1,4)
    SetSkyBoxHorizonColor(90,132,150)//nice horizon blue
    SetSkyBoxSkyColor(0,122,193)//thunder horison thunderblue
    SetSkyBoxVisible(1)     
    SetFogColor(155,155,155)
    SetFogRange(1000,2000)
    SetFogMode(0)
    SetCameraRange(1,0.1,90000)
         
    
endfunction

Youll get the idea

Enjoy! - will provide more when got the maths right for the rotations and maybe put you on the ride too (in time)

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Nov 2018 16:03

Link

That's really good.

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 10th Nov 2018 16:06

Link

Your welcome - happy to help...

I like your light shader routine.. Splendid idea

Back to top

Profile

puzzler2018

User Banned

Posted: 10th Nov 2018 21:36

Link

Just a small update - a waltzer car

// Project: waltzer car 
// Created: 2018-11-10

// show all errors
SetErrorMode(2)

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

type _cars
	carfloor
	carbacks as integer[180]
	handle as integer[3]
	handlepivot
endtype
cars as _cars[]
car as _cars

car.carfloor = CreateObjectCylinder(.4,5,18)

for a=0 to 360 / 2
	car.carbacks[a] = CreateObjectCylinder(4,.2,50)
	
	rotateamount# = 1
	
			x#=2.5 * sin( a * (rotateamount#))
		z#=2.5 * cos( a * (rotateamount#))
	
		SetObjectPosition(car.carbacks[a],x#,2,z#)
		FixObjectToObject(car.carbacks[a],car.carfloor)

SetObjectColor(car.carbacks[a],255,0,0,255)
		SetObjectColor(car.carfloor,100,100,100,255)

// create a centre pivot for the 3 handles to attach
	car.handlepivot = CreateObjectSphere(1,10,10)
	SetObjectPosition(car.handlepivot,-1,.1,0)
	FixObjectToObject(car.handlepivot, car.carfloor)
	
	
	// create the handlebars
	car.handle[0] = CreateObjectCylinder(2.5,.1,8)
	
	SetObjectPosition(car.handle[0],1,1,1)
	
		SetObjectRotation(car.handle[0],50,0,-30)
		FixObjectToObject(car.handle[0], car.handlepivot)

car.handle[1] = CreateObjectCylinder(2.5,.1,8)
	
	SetObjectPosition(car.handle[1],1,1,-1)
	
		SetObjectRotation(car.handle[1],-50,0,-50)
		FixObjectToObject(car.handle[1], car.handlepivot)

car.handle[2] = CreateObjectCylinder(2.9,.1,8)
	
	SetObjectPosition(car.handle[2],2,1.5,0)
	
		SetObjectRotation(car.handle[2],90,0,0)
		FixObjectToObject(car.handle[2], car.handlepivot)

cars.insert(car)

RotateObjectLocalY(cars[0].carfloor,270)

ridestart#=0 : ridestartup=1
carspeed#=0
carvelocity#=0.1
do
    
    if ridestartup<>3
		RotateObjectLocalZ(cars[0].handlepivot,ridestart#)
	
		if ridestartup=1 then inc ridestart#,.1
		if ridestartup=0 then dec ridestart#,.1
	
		if ridestart#>=3
			ridestart#=3
			ridestartup=0
		endif

if ridestart#<=-3
			ridestart#=0
			ridestartup=3
		endif
	endif	
	
	if ridestartup=3
		RotateObjectLocalY(cars[0].carfloor,carspeed#)

if random(0,100)>50 
			inc carspeed#,carvelocity#
		
		else
			dec carspeed#,carvelocity#
		endif
		
		if carspeed#>10
			carspeed#=0
		endif
	
		if carspeed#<-10
			carspeed#=-10
		endif
	endif
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet


// Project: waltzer car 
// Created: 2018-11-10

// show all errors
SetErrorMode(2)

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

type _cars
	carfloor
	carbacks as integer[180]
	handle as integer[3]
	handlepivot
endtype
cars as _cars[]
car as _cars

car.carfloor = CreateObjectCylinder(.4,5,18)

for a=0 to 360 / 2
	car.carbacks[a] = CreateObjectCylinder(4,.2,50)
	
	rotateamount# = 1
	
			x#=2.5 * sin( a * (rotateamount#))
		z#=2.5 * cos( a * (rotateamount#))
	
		SetObjectPosition(car.carbacks[a],x#,2,z#)
		FixObjectToObject(car.carbacks[a],car.carfloor)

		SetObjectColor(car.carbacks[a],255,0,0,255)
		SetObjectColor(car.carfloor,100,100,100,255)



next


// create a centre pivot for the 3 handles to attach
	car.handlepivot = CreateObjectSphere(1,10,10)
	SetObjectPosition(car.handlepivot,-1,.1,0)
	FixObjectToObject(car.handlepivot, car.carfloor)
	
	
	// create the handlebars
	car.handle[0] = CreateObjectCylinder(2.5,.1,8)
	
	SetObjectPosition(car.handle[0],1,1,1)
	
		SetObjectRotation(car.handle[0],50,0,-30)
		FixObjectToObject(car.handle[0], car.handlepivot)



	car.handle[1] = CreateObjectCylinder(2.5,.1,8)
	
	SetObjectPosition(car.handle[1],1,1,-1)
	
		SetObjectRotation(car.handle[1],-50,0,-50)
		FixObjectToObject(car.handle[1], car.handlepivot)

	car.handle[2] = CreateObjectCylinder(2.9,.1,8)
	
	SetObjectPosition(car.handle[2],2,1.5,0)
	
		SetObjectRotation(car.handle[2],90,0,0)
		FixObjectToObject(car.handle[2], car.handlepivot)



cars.insert(car)


RotateObjectLocalY(cars[0].carfloor,270)

ridestart#=0 : ridestartup=1
carspeed#=0
carvelocity#=0.1
do
    
    if ridestartup<>3
		RotateObjectLocalZ(cars[0].handlepivot,ridestart#)
	
		if ridestartup=1 then inc ridestart#,.1
		if ridestartup=0 then dec ridestart#,.1
	
		if ridestart#>=3
			ridestart#=3
			ridestartup=0
		endif

		if ridestart#<=-3
			ridestart#=0
			ridestartup=3
		endif
	endif	
	
	if ridestartup=3
		RotateObjectLocalY(cars[0].carfloor,carspeed#)

		if random(0,100)>50 
			inc carspeed#,carvelocity#
		
		else
			dec carspeed#,carvelocity#
		endif
		
		if carspeed#>10
			carspeed#=0
		endif
	
		if carspeed#<-10
			carspeed#=-10
		endif
	endif
    Print( ScreenFPS() )
    Sync()
loop

Needs more work, but the mechanics and look and feel looks ok.

Medialess - Unless we fancy doing a lot better one in blender

More tomorrow, need rest

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Nov 2018 22:44 Edited at: 11th Nov 2018 15:28

Link

Decided to release and Early Beta version of what I have
Mostly because I would like some feedback on the controls etc
https://play.google.com/store/apps/details?id=carnival.games
No sounds or catchy carnival music yet all to come in future

the mouse uses the gyro as the following which to me needs work espesh in hoop toss
as you need to tilt the mobile too far for the y axis

+ Code Snippet

mouseX=(GetDirectionX()*(swidth/2.0)+(swidth/2.0))
mouseY=-(((GetDirectionY()-.45))*(sheight*.45))+(sheight*.30)
SetSpritePositionByOffset(mouseSpr,Floor(mouseX),Floor(mouseY))

There is a known bug in hoop toss that the hoops might stick to wall

Thanks Puzzler not sure how I can use rides yet thinking they may be best suited to a 3d person game created with guru
or something and imported in so as there is a whole world of rides for a windows based game possibly a mad shooter
gone crazy at a park. For the moment im sticking with games I can get some kind of score from. Hope that don't offend
you. BTW the Waltzer car looked great

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 11th Nov 2018 02:44

Link

Disney have a ride which combines twister and a shooter. Go to about 4:16. Not too sure how you'd implement that in a game but it would be cool if you could

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Nov 2018 03:22 Edited at: 11th Nov 2018 03:46

Link

That's is pretty cool a ride with sideshow elements
The main issue I forsee is setting up the scene for all the rides and getting it to stop correctly at each
but would be pretty cool

That would incorporate puzzlers ride idea into whats there atm as sideshows
I think with the way scenes are loaded now could add values to the x,y,z axis etc and do a rotation on them
without changing there original offsets. Or could simply have a plain image with the front of what a game
would look like and then play that game when it stops. Or possibly just load the scene before spinning towards it

But for now happy with how it is as it requires allot of scene placement

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 11th Nov 2018 03:57

Link

I never thought of that! It would be a really cool transition from puzzle to puzzle

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Nov 2018 04:27 Edited at: 11th Nov 2018 07:07

Link

Sure would im looking at what models are available free that could be used now as a ride you and puzzler have me thinking now
but ide prob need help with scene placement

could possibly use a ride like https://www.yobi3d.com/q/teacup%20ride
and attach and detach the cups as necessary to do the rotation as each sideshow game could take up a side

Which would work well for four sideshow games

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Nov 2018 06:24 Edited at: 13th Nov 2018 21:15

Link

I been toying with the concept of going down the path of having a ride that stops at each sideshow
just would need to fix a camera to one of the cups that's the easy bit the hard bit is recreating all the scenes there
is for carnival games and having each one situated at one end of the tent
The code for it is quite simple and uses the teacup model from the above link but cut to pieces and resized etc
EDIT VIDEO removed for space

// Project: teacupRide 
// Created: 2018-11-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "teacupRide" )
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
loadObject(1,"tent.obj")
SetObjectColor(1,255,0,0,255)
loadObject(2,"spinner.obj")
SetObjectPosition(2,-1.0,.5,0)
SetObjectColor(2,0,255,0,255)
loadObject(3,"teacup.obj")
SetObjectPosition(3,-5.0,2.0,0)
SetObjectColor(3,0,0,255,255)
FixObjectToObject(3,2)
loadObject(4,"teacup.obj")
SetObjectPosition(4,5.0,2.0,0)
SetObjectColor(4,0,0,255,255)
FixObjectToObject(4,2)
loadObject(5,"teacup.obj")
SetObjectPosition(5,0,2.0,5.0)
SetObjectColor(5,0,0,255,255)
FixObjectToObject(5,2)
loadObject(6,"teacup.obj")
SetObjectPosition(6,0,2.0,-5.0)
SetObjectColor(6,0,0,255,255)
FixObjectToObject(6,2)

do
    
    RotateObjectLocalY(2,1)
    RotateObjectLocalY(3,2)
    RotateObjectLocalY(4,2)
    RotateObjectLocalY(5,2)
    RotateObjectLocalY(6,2)
   
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: teacupRide 
// Created: 2018-11-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "teacupRide" )
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
loadObject(1,"tent.obj")
SetObjectColor(1,255,0,0,255)
loadObject(2,"spinner.obj")
SetObjectPosition(2,-1.0,.5,0)
SetObjectColor(2,0,255,0,255)
loadObject(3,"teacup.obj")
SetObjectPosition(3,-5.0,2.0,0)
SetObjectColor(3,0,0,255,255)
FixObjectToObject(3,2)
loadObject(4,"teacup.obj")
SetObjectPosition(4,5.0,2.0,0)
SetObjectColor(4,0,0,255,255)
FixObjectToObject(4,2)
loadObject(5,"teacup.obj")
SetObjectPosition(5,0,2.0,5.0)
SetObjectColor(5,0,0,255,255)
FixObjectToObject(5,2)
loadObject(6,"teacup.obj")
SetObjectPosition(6,0,2.0,-5.0)
SetObjectColor(6,0,0,255,255)
FixObjectToObject(6,2)

do
    
    RotateObjectLocalY(2,1)
    RotateObjectLocalY(3,2)
    RotateObjectLocalY(4,2)
    RotateObjectLocalY(5,2)
    RotateObjectLocalY(6,2)
   
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
    Print( ScreenFPS() )
    Sync()
loop

and adding these two lines of code

+ Code Snippet

SetCameraPosition(1,GetObjectWorldX(6),GetObjectWorldY(6)+2,GetObjectWorldZ(6))
SetCameraRotation(1,GetObjectWorldAngleX(6),GetObjectWorldAngleY(6),GetObjectWorldAngleZ(6))

It produces this
EDIT VIDEO removed for space

If anyone would like to test the beta its available free here https://play.google.com/store/apps/details?id=carnival.games

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Nov 2018 09:05 Edited at: 13th Nov 2018 21:16

Link

I don't know about you folk but this gives me motion sickness
EDIT VIDEO removed for space
admittedly I use pictures of the games instead of actual 3d depth which may not be as bad nor as bad viewing on a mobile
and adding a pointlight might help but any motion sickness is a no lol

but haven't given up on the concept yet

turning off the lightmode on the sides and tents and slowing it down considerably helps
EDIT VIDEO removed for space

not sure if I like it or not now as a game selector il think on it and leave that as that for the day

I think the gyro could be added to look up or down as it may be quite slow getting levels this way
and ofcourse would need some carnival music

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 11th Nov 2018 09:45

Link

Nice work as always - keep it going and keep all the ideas flowing - nice POV on the tea cups...

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 11th Nov 2018 23:18 Edited at: 11th Nov 2018 23:19

Link

Formula One (Different colours) or regular vehicles (I could make about 5 i think)

Attachments

Login to view attachments

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 11th Nov 2018 23:42 Edited at: 11th Nov 2018 23:43

Link

They look great but couldn't make a decision atm as I just had to bury our beloved dog RIP Tiger

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 11th Nov 2018 23:53

Link

My condolences

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 00:13 Edited at: 12th Nov 2018 00:30

Link

Thanks Blink

Im thinking formula 1 but the cars look great too
I think the advantage with the formula 1 is they would all be behave similar
but disadvantage that people might expect the wheels to turn

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 12th Nov 2018 00:36

Link

Turning the wheels will be easy. Don't worry about that

Back to top

Profile PM

puzzler2018

User Banned

Posted: 12th Nov 2018 00:44

Link

sorry for your loss.

Speed and volicity of wheels spinning according to speed# - yes its acheivable - just creats a wheel and attach to a car with fixobjecttoobject, we can then stil change a wheel Y with speed vehicle is going

Yes is acheivabble

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 00:50 Edited at: 12th Nov 2018 00:51

Link

I understand its possible just with the fluid movements of a dodgem car it is a little harder than just rotating locally
for example at a time one wheel should go in one direction and the other in another direction

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 12th Nov 2018 01:07 Edited at: 12th Nov 2018 01:30

Link

Have a look at this
Sorry. forgot to upload it

Attachments

Login to view attachments

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 01:27

Link

not sure if this is the engine I was thinking about http://torcs.sourceforge.net/index.php?name=Sections&op=viewarticle&artid=1
but if it is it allows everything from 18 wheelers to two wheelers

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 12th Nov 2018 01:48

Link

- Make a dodgen with no wheels

- Create the wheels seperately

- Fix the wheels to the dodgem

- Rotate the wheels independantly

Its easy

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 02:46

Link

That's a pretty neat kart-game
Mustve taken some time

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 12th Nov 2018 02:56 Edited at: 12th Nov 2018 02:58

Link

Took a little time to match up the 2D-3D physics. Got a lot of help from Markus
The thing is, it shows how you can attach the wheels to the car and rotate them around the y-axis (for turning) and the z-axis for rolling

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 03:08

Link

Oh yes Markus haven't heard from him in a while he helped me allot in dark GDK with math

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 12th Nov 2018 03:26 Edited at: 12th Nov 2018 03:28

Link

if you look in the main.agc source there is a commented line SetPhysicsDebugOn() . Uncomment that and you can see the 2D shapes that are used to implement the physics.
Do you think it might be easier to use this technique. I'm a little reluctant because it forces everything to be flat.
You can't have jumps and hills

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Nov 2018 03:56 Edited at: 12th Nov 2018 05:03

Link

wow it uses 2d physics shapes I would never thought of that. I think agk has good 3D physics commands maybe not driver orientated
hence why the 2d physics shapes. There was someone in here who worked on car engine physics they may be willing to share some information
unfortunately due to a disagreement it never made it to AGK

I think for dodgems the car physics is good enough in AppGameKit now
but for a proper racing clone needs new commands

I wish I had it set up in vis studio as im sure there are plenty of commands that would help online

Ide love to redo stuntcar racer oneday

I think if you SetObject3DPhysicsLinearVelocity( objID, dirX, dirY, dirZ, initialSpeed ) once a loop depending on speed etc
but only if there was ground below the car you would have a car that would do jumps

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 12th Nov 2018 09:19

Link

Ha! That STunt car racer look pretty wild

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 13th Nov 2018 07:16

Link

It was definitely an all time favourite blink as it was two player and car damage
effected the driving. And when the crane dropped you off if you happened to
drop yourself on the other player it totalled the other player and you would win
but a very hard thing to pull off. And I seem to recall nitro being an important
boost factor to get right on the jumps. but I think AppGameKit has the ability to reproduce
if the tracks where made as pieces and pieced together sort of like lego.

Still looking for Beta Testers https://play.google.com/store/apps/details?id=carnival.games

fubar

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 13th Nov 2018 08:57

Link

first impression(s):

Attachments

Login to view attachments

Back to top

Profile PM Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 13th Nov 2018 10:08 Edited at: 13th Nov 2018 10:42

Link

Thanks Virtual Nomad for your valued feedback

1>The angle to set the aiming is a pain to get right on mobile matybe il offset the angle by -45 degrees that should make it flat when centered
2>Im not sure of the easiest of the easiest way to stop the rings in the wall but i think i manage it because i have played so many times in windows
3>That missing sprite I never noticed before myself but I think I know the reason now and should be fixed with the next update
4>Thanks glad you liked the bowling and there will be sounds added later that should help with toilet toss

As i set the mouse relative to the position the phone is tilted, I will play with the settings some more im just not sure what position is best for the centre
position as if the phone is flat you tilt it away form you or toward you accordingly. If centre is upright which is what i was going for, for the centre position

anyone got a better algorithm than?

+ Code Snippet

mouseX=(GetDirectionX()*(swidth/2.0)+(swidth/2.0))
mouseY=-(((GetDirectionY()-.45))*(sheight*.45))+(sheight*.30)
SetSpritePositionByOffset(mouseSpr,Floor(mouseX),Floor(mouseY))

ok so I changed the y value of mouse to its default

+ Code Snippet

mouseY=-(((GetDirectionY()))*(sheight))+(sheight)

and uploaded a new version 1.001 that should fix the issues mentioned above
but the jittery mouse in duckshoot im not sure of

BETA 1.001 should be available soon when they approve
https://play.google.com/store/apps/details?id=carnival.games

Think I need to work on sounds next

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 13th Nov 2018 20:56 Edited at: 29th Nov 2018 20:12

Link

Ive taken in nomads feed back and made some changes added sound and now the toilet moves back and forth
Edit Video removed for space please see the latest one below
BETA Version 1.002 available here as soon as google approve https://play.google.com/store/apps/details?id=carnival.games

and if I decide to go with the teacup ride selector it will go something like this and I may just do away with the money concepts
Edit Video removed for space please see the latest one below but would need some works
The teacup selector needs work and I still need my centre to ride routine worked on. Like you presently see with the duckshoot
and I guess I could force it to go around a couple times before it selects etc

What do people think?

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 14th Nov 2018 02:53 Edited at: 29th Nov 2018 20:13

Link

Ok finally combined the two and ended up with this
Edit Video removed for space please see the latest one below

BETA Version 1.004 available here https://play.google.com/store/apps/details?id=carnival.games

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 14th Nov 2018 12:43

Link

Nice work as always.. Keep it up..

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 14th Nov 2018 13:38

Link

Thanks Puzzler

hahah was thinking of changing the name to mad hatters carnival challenge that incorporates the ride concepts
not sure about copyrights on that tho

fubar

Back to top

Profile PM Email Website

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 14th Nov 2018 21:44 Edited at: 14th Nov 2018 21:54

Link

This could be the app that strikes it big for you fubpark

Pros….
Something i can see many wanting to pay for to play.
good color full visuals.

A app that fits all ages….

It looks extremely promising….

This is a app that you might talk to tgc about publishing thru there partner focus multimedia when its done?

If you not already have a dev page here so create one and show your game here..

FubPark Apps or something as a dev team and publisher?

https://www.slidedb.com/

Publishers check this page for the next hit so could be a start..

My space on goggle play ... https://play.google.com/store/apps/developer?id=Play8Bitar+Osterlen
Play8Bitars channel ... https://www.youtube.com/channel/UC_TbzZmDzj0axBZsbfRnDCQ
Think i know it channel ... https://www.youtube.com/channel/UCEJY7tJ5_HBQxi06BGsnoQg
SlideDb space ... http://www.slidedb.com/members/play8bitars-osterlen
Itch io space ... https://play8bitars.itch.io

Back to top

Profile PM Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 14th Nov 2018 21:58 Edited at: 14th Nov 2018 21:59

Link

Thanks Cliff it still needs some polishing and may even get a name change lol

I try the family audience with most my apps according to googles family audience rules etc

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 21st Nov 2018 20:45 Edited at: 29th Nov 2018 20:13

Link

A few updates
1>added get ready notification
2>added strike notification
3>fixed the scoring with bowling it now adds the scores of the next to bowls for a strike and next ball for a spare

4>hooptoss got a major overhaul with improved graphics thanks to blink
hooptoss does have the code for a cannon that shoots the hoops but found that nearly impossible to land a hoop nomatter what settings so went back to hand method atleast for now
hooptoss nolonger keeps scores im thinking it may do it with anything thats not on the ground as its still quite hard. The back image in hooptoss on my phone doesn't show but does in
windows.

5>toilet toss looks more appealing
6>added sounds

Known Problems
There is a issue Ive noticed with lights, I have to clear all pointlights before each game and hence recreate them which is kinda working but in bowling it appears the light to the floor
dont show it may be an object settings not sure as of yet but this only is a problem on the second time round.(in other words have to play all other games first before it becomes a
problem) Last time I had that problem it wasn't lights at al it was an array that wasn't empty.

Heres what there is so far
Edit Video removed for space please see the latest one below

This version is available here
https://play.google.com/store/apps/details?id=carnival.games

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 21st Nov 2018 21:11

Link

Fantastic work -- does the bowling alley one have the right trajectories - meaning - go to a real life one and aim for the strike

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 21st Nov 2018 21:17 Edited at: 21st Nov 2018 21:22

Link

Quote: "does the bowling alley one have the right trajectories"

That button you see in the left corner hold that down and tilt mobile to aim otherwise just use gyroscope normally to move ball

The move ball with gyro has been set to not go as far as the gutter so a straight ball will never gutter ball unless it bounces off a pin

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Nov 2018 18:24 Edited at: 29th Nov 2018 20:13

Link

A few updates
1>added get ready notification
2>added strike notification
3>fixed the scoring with bowling it now adds the scores of the next to bowls for a strike and next ball for a spare

4>hooptoss got a major overhaul with improved graphics thanks to blink
hooptoss does have the code for a cannon that shoots the hoops but found that nearly impossible to land a hoop nomatter what settings so went back to hand method atleast for now
hooptoss nolonger keeps scores im thinking it may do it with anything thats not on the ground as its still quite hard.

5>toilet toss looks more appealing
6>added sounds

Known Problems
There is a issue Ive noticed with lights, I have to clear all pointlights before each game and hence recreate them which is kinda working but in bowling it appears the light to the floor
dont show it may be an object settings not sure as of yet but this only is a problem on the second time round.(in other words have to play all other games first before it becomes a
problem) Last time I had that problem it wasn't lights at al it was an array that wasn't empty.

Heres what there is so far
Edit Video removed for space please see the latest one below

This version is available here
https://play.google.com/store/apps/details?id=carnival.games

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 26th Nov 2018 02:15 Edited at: 26th Nov 2018 04:41

Link

Carnival Games

Google Download
https://play.google.com/store/apps/details?id=carnival.games

Might add a quit game button during the teacup ride but apart from that finished

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 27th Nov 2018 01:32 Edited at: 27th Nov 2018 16:48

Link

The inside workings of the clowns you pop balls into

Im not sure even if il use it but if I do it will be in carnival games 2
and im struggling with the collisions of kinematic objects again but
here is what I have.

// Project: steeringTest 
// Created: 2018-11-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Clowns test" )
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

bottom=CreateObjectBox(10,1,10)
leftBound=CreateObjectBox(.25,2,10)
SetObjectPosition(leftBound,-5.1,.5,0)
rightBound=CreateObjectBox(.25,2,10)
SetObjectPosition(rightBound,5,.5,0)
bottomBound=CreateObjectBox(10,2,.25)
SetObjectPosition(bottomBound,0,.5,-5)
bound1=CreateObjectBox(.25,2,3)
SetObjectPosition(bound1,-4.0,.5,-3.5)
SetObjectColor(bound1,255,0,0,255)
bound2=CreateObjectBox(.25,2,3)
SetObjectPosition(bound2,-2.5,.5,-3.5)
SetObjectColor(bound2,255,0,0,255)
bound3=CreateObjectBox(.25,2,3)
SetObjectPosition(bound3,-1.0,.5,-3.5)
SetObjectColor(bound3,255,0,0,255)
bound4=CreateObjectBox(.25,2,3)
SetObjectPosition(bound4,.5,.5,-3.5)
SetObjectColor(bound4,255,0,0,255)
bound5=CreateObjectBox(.25,2,3)
SetObjectPosition(bound5,2.0,.5,-3.5)
SetObjectColor(bound5,255,0,0,255)
bound6=CreateObjectBox(.25,2,3)
SetObjectPosition(bound6,3.5,.5,-3.5)
SetObjectColor(bound6,255,0,0,255)

FixObjectToObject(leftBound,bottom)
FixObjectToObject(rightBound,bottom)
FixObjectToObject(bottomBound,bottom)
FixObjectToObject(bound1,bottom)
FixObjectToObject(bound2,bottom)
FixObjectToObject(bound3,bottom)
FixObjectToObject(bound4,bottom)
FixObjectToObject(bound5,bottom)
FixObjectToObject(bound6,bottom)

tubeBottom=CreateObjectBox(2,.25,8)
SetObjectPosition(tubeBottom,0,.5,6)
SetObjectColor(tubeBottom,0,0,255,255)
tubeLeft=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeLeft,-1,.5,0)
SetObjectColor(tubeLeft,0,0,255,255)
tubeRight=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeRight,1,.5,0)
SetObjectColor(tubeRight,0,0,255,255)

FixObjectToObject(tubeLeft,tubeBottom)
FixObjectToObject(tubeRight,tubeBottom)

SetObjectPosition(tubeBottom,0,3,6)
RotateObjectLocalX(bottom,-20)
RotateObjectLocalX(tubeBottom,-20)

Create3DPhysicsWorld() 
Create3DPhysicsStaticBody(bottom):SetObjectShapeBox(bottom)
Create3DPhysicsStaticBody(leftBound):SetObjectShapeBox(leftBound)
Create3DPhysicsStaticBody(rightBound):SetObjectShapeBox(rightBound)
Create3DPhysicsStaticBody(bottomBound):SetObjectShapeBox(bottomBound)
Create3DPhysicsStaticBody(bound1):SetObjectShapeBox(bound1)
Create3DPhysicsStaticBody(bound2):SetObjectShapeBox(bound2)
Create3DPhysicsStaticBody(bound3):SetObjectShapeBox(bound3)
Create3DPhysicsStaticBody(bound4):SetObjectShapeBox(bound4)
Create3DPhysicsStaticBody(bound5):SetObjectShapeBox(bound5)
Create3DPhysicsStaticBody(bound6):SetObjectShapeBox(bound6)

Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)

Set3DPhysicsGravity(0,-1,0)

direction=2
do
	if direction=1 
		RotateObjectLocalY(tubeBottom,1)
		if trunc(GetObjectAngleY(tubeBottom))=35 then direction=2	
		//Delete3DPhysicsBody(tubeBottom)
		//Delete3DPhysicsBody(tubeLeft)
		//Delete3DPhysicsBody(tubeRight)
		//Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
		//Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
		//Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)
	elseif direction=2 
		RotateObjectLocalY(tubeBottom,-1)
		if trunc(GetObjectAngleY(tubeBottom))=325 then direction=1
		//Delete3DPhysicsBody(tubeBottom)
		//Delete3DPhysicsBody(tubeLeft)
		//Delete3DPhysicsBody(tubeRight)
		//Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
		//Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
		//Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)
	endif	
	
	if GetRawKeyPressed(32)
		sphere=createObjectSphere(1,10,10)
		SetObjectColor(sphere,0,255,0,255)
		SetObjectPosition(sphere,0,4,5)
		Create3DPhysicsDynamicBody(sphere)
		SetObjectShapeSphere(sphere)
		
	endif		
	Step3DPhysicsWorld()
	sync()
loop

+ Code Snippet


// Project: steeringTest 
// Created: 2018-11-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Clowns test" )
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

bottom=CreateObjectBox(10,1,10)
leftBound=CreateObjectBox(.25,2,10)
SetObjectPosition(leftBound,-5.1,.5,0)
rightBound=CreateObjectBox(.25,2,10)
SetObjectPosition(rightBound,5,.5,0)
bottomBound=CreateObjectBox(10,2,.25)
SetObjectPosition(bottomBound,0,.5,-5)
bound1=CreateObjectBox(.25,2,3)
SetObjectPosition(bound1,-4.0,.5,-3.5)
SetObjectColor(bound1,255,0,0,255)
bound2=CreateObjectBox(.25,2,3)
SetObjectPosition(bound2,-2.5,.5,-3.5)
SetObjectColor(bound2,255,0,0,255)
bound3=CreateObjectBox(.25,2,3)
SetObjectPosition(bound3,-1.0,.5,-3.5)
SetObjectColor(bound3,255,0,0,255)
bound4=CreateObjectBox(.25,2,3)
SetObjectPosition(bound4,.5,.5,-3.5)
SetObjectColor(bound4,255,0,0,255)
bound5=CreateObjectBox(.25,2,3)
SetObjectPosition(bound5,2.0,.5,-3.5)
SetObjectColor(bound5,255,0,0,255)
bound6=CreateObjectBox(.25,2,3)
SetObjectPosition(bound6,3.5,.5,-3.5)
SetObjectColor(bound6,255,0,0,255)


FixObjectToObject(leftBound,bottom)
FixObjectToObject(rightBound,bottom)
FixObjectToObject(bottomBound,bottom)
FixObjectToObject(bound1,bottom)
FixObjectToObject(bound2,bottom)
FixObjectToObject(bound3,bottom)
FixObjectToObject(bound4,bottom)
FixObjectToObject(bound5,bottom)
FixObjectToObject(bound6,bottom)

tubeBottom=CreateObjectBox(2,.25,8)
SetObjectPosition(tubeBottom,0,.5,6)
SetObjectColor(tubeBottom,0,0,255,255)
tubeLeft=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeLeft,-1,.5,0)
SetObjectColor(tubeLeft,0,0,255,255)
tubeRight=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeRight,1,.5,0)
SetObjectColor(tubeRight,0,0,255,255)

FixObjectToObject(tubeLeft,tubeBottom)
FixObjectToObject(tubeRight,tubeBottom)

SetObjectPosition(tubeBottom,0,3,6)
RotateObjectLocalX(bottom,-20)
RotateObjectLocalX(tubeBottom,-20)

Create3DPhysicsWorld() 
Create3DPhysicsStaticBody(bottom):SetObjectShapeBox(bottom)
Create3DPhysicsStaticBody(leftBound):SetObjectShapeBox(leftBound)
Create3DPhysicsStaticBody(rightBound):SetObjectShapeBox(rightBound)
Create3DPhysicsStaticBody(bottomBound):SetObjectShapeBox(bottomBound)
Create3DPhysicsStaticBody(bound1):SetObjectShapeBox(bound1)
Create3DPhysicsStaticBody(bound2):SetObjectShapeBox(bound2)
Create3DPhysicsStaticBody(bound3):SetObjectShapeBox(bound3)
Create3DPhysicsStaticBody(bound4):SetObjectShapeBox(bound4)
Create3DPhysicsStaticBody(bound5):SetObjectShapeBox(bound5)
Create3DPhysicsStaticBody(bound6):SetObjectShapeBox(bound6)

Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)

Set3DPhysicsGravity(0,-1,0) 

direction=2
do
	if direction=1 
		RotateObjectLocalY(tubeBottom,1)
		if trunc(GetObjectAngleY(tubeBottom))=35 then direction=2	
		//Delete3DPhysicsBody(tubeBottom)
		//Delete3DPhysicsBody(tubeLeft)
		//Delete3DPhysicsBody(tubeRight)
		//Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
		//Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
		//Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)
	elseif direction=2 
		RotateObjectLocalY(tubeBottom,-1)
		if trunc(GetObjectAngleY(tubeBottom))=325 then direction=1
		//Delete3DPhysicsBody(tubeBottom)
		//Delete3DPhysicsBody(tubeLeft)
		//Delete3DPhysicsBody(tubeRight)
		//Create3DPhysicsKinematicBody(tubeBottom) //:SetObjectShapeBox(tubeBottom)
		//Create3DPhysicsKinematicBody(tubeLeft) //:SetObjectShapeBox(tubeLeft)
		//Create3DPhysicsKinematicBody(tubeRight) //:SetObjectShapeBox(tubeRight)
	endif	
	
	if GetRawKeyPressed(32)
		sphere=createObjectSphere(1,10,10)
		SetObjectColor(sphere,0,255,0,255)
		SetObjectPosition(sphere,0,4,5)
		Create3DPhysicsDynamicBody(sphere)
		SetObjectShapeSphere(sphere)
		
	endif		
	Step3DPhysicsWorld()
	sync()
loop

After Experimenting with the above it seems fixobjecttoobject upsets kinematic physics
Im sure I have probably come across with that issue before with blocklifter but I forgot lol
so the below update works

// Project: steeringTest 
// Created: 2018-11-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "clowns test" )
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
#constant KEY_UP    = 38
bottom=CreateObjectBox(10,1,10)
top=CreateObjectBox(9.0,.5,9.0)
SetObjectPosition(top,0,2.5,-2.5)
SetObjectColor(top,255,255,255,100)
SetObjectTransparency(top,1)
leftBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(leftBound,-5.1,.5,0)
rightBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(rightBound,5,.5,0)
bottomBound=CreateObjectBox(10,2.5,.25)
SetObjectPosition(bottomBound,0,.5,-5)
bound1=CreateObjectBox(.25,2,3)
SetObjectPosition(bound1,-4.0,.5,-3.5)
SetObjectColor(bound1,255,0,0,255)
bound2=CreateObjectBox(.25,2,3)
SetObjectPosition(bound2,-2.5,.5,-3.5)
SetObjectColor(bound2,255,0,0,255)
bound3=CreateObjectBox(.25,2,3)
SetObjectPosition(bound3,-1.0,.5,-3.5)
SetObjectColor(bound3,255,0,0,255)
bound4=CreateObjectBox(.25,2,3)
SetObjectPosition(bound4,.5,.5,-3.5)
SetObjectColor(bound4,255,0,0,255)
bound5=CreateObjectBox(.25,2,3)
SetObjectPosition(bound5,2.0,.5,-3.5)
SetObjectColor(bound5,255,0,0,255)
bound6=CreateObjectBox(.25,2,3)
SetObjectPosition(bound6,3.5,.5,-3.5)
SetObjectColor(bound6,255,0,0,255)

//FixObjectToObject(top,bottom)
FixObjectToObject(leftBound,bottom)
FixObjectToObject(rightBound,bottom)
FixObjectToObject(bottomBound,bottom)
FixObjectToObject(bound1,bottom)
FixObjectToObject(bound2,bottom)
FixObjectToObject(bound3,bottom)
FixObjectToObject(bound4,bottom)
FixObjectToObject(bound5,bottom)
FixObjectToObject(bound6,bottom)

Tube=CreateObjectCylinder(10,2.5,10)
SetObjectColor(tube,0,255,0,100)
SetObjectPosition(tube,0,4.5,7)
SetObjectTransparency(tube,1)
tubeBottom=CreateObjectBox(2,.25,8)
SetObjectPosition(tubeBottom,0,.5,6)
SetObjectColor(tubeBottom,0,0,255,0)
SetObjectTransparency(tubeBottom,1)
tubeLeft=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeLeft,-1.0,.5,0)
SetObjectColor(tubeLeft,0,0,255,0)
SetObjectTransparency(tubeLeft,1)
tubeRight=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeRight,1.0,.5,0)
SetObjectColor(tubeRight,0,0,255,0)
SetObjectTransparency(tubeRight,1)

RotateObjectLocalX(top,-20)
RotateObjectLocalX(bottom,-20)
RotateObjectLocalX(tube,70)
RotateObjectLocalX(tubeBottom,-20)
RotateObjectLocalX(tubeLeft,-20)
RotateObjectLocalX(tubeRight,-20)

Create3DPhysicsWorld(20) 
Create3DPhysicsStaticBody(bottom):SetObjectShapeBox(bottom)
Create3DPhysicsStaticBody(top):SetObjectShapeBox(top)
Create3DPhysicsStaticBody(leftBound):SetObjectShapeBox(leftBound)
Create3DPhysicsStaticBody(rightBound):SetObjectShapeBox(rightBound)
Create3DPhysicsStaticBody(bottomBound):SetObjectShapeBox(bottomBound)
Create3DPhysicsStaticBody(bound1):SetObjectShapeBox(bound1)
Create3DPhysicsStaticBody(bound2):SetObjectShapeBox(bound2)
Create3DPhysicsStaticBody(bound3):SetObjectShapeBox(bound3)
Create3DPhysicsStaticBody(bound4):SetObjectShapeBox(bound4)
Create3DPhysicsStaticBody(bound5):SetObjectShapeBox(bound5)
Create3DPhysicsStaticBody(bound6):SetObjectShapeBox(bound6)

Create3DPhysicsKinematicBody(tubeBottom):SetObjectShapeBox(tubeBottom)
Create3DPhysicsKinematicBody(tubeLeft):SetObjectShapeBox(tubeLeft)
Create3DPhysicsKinematicBody(tubeRight):SetObjectShapeBox(tubeRight)

Set3DPhysicsGravity(0,-1,0)

SetObjectPosition(tubeBottom,0,3,6)
SetObjectPosition(tubeLeft,-1.0,3,6)
SetObjectPosition(tubeRight,1.0,3,6)

//FixObjectToObject(tubeLeft,tubeBottom)
//FixObjectToObject(tubeRight,tubeBottom)

direction=2
do
	if direction=1 
		RotateObjectLocalZ(tube,-.5)
		RotateObjectLocalY(tubeBottom,.5)
		RotateObjectLocalY(tubeLeft,.5)
		RotateObjectLocalY(tubeRight,.5)	
		if trunc(GetObjectAngleY(tubeBottom))=35 then direction=2	
	
	elseif direction=2 
		RotateObjectLocalZ(tube,.5)
		RotateObjectLocalY(tubeBottom,-.5)
		RotateObjectLocalY(tubeLeft,-.5)
		RotateObjectLocalY(tubeRight,-.5)
		if trunc(GetObjectAngleY(tubeBottom))=325 then direction=1

endif	
	
	
	if GetRawKeyPressed(32)
		sphere=createObjectSphere(1.10,10,10)
		SetObjectColor(sphere,255,0,0,255)
		SetObjectPosition(sphere,0,4,7)
		Create3DPhysicsDynamicBody(sphere)
		//SetObject3DPhysicsLinearVelocity(sphere,0,-.5,.25, -.5 ) 
		SetObjectShapeSphere(sphere)
		SetObject3DPhysicsRestitution(sphere,.5) 
		
	endif	
	
	print(getObjectAngleX(tube))	
	Step3DPhysicsWorld()
	sync()
loop

+ Code Snippet


// Project: steeringTest 
// Created: 2018-11-17
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "clowns test" )
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
#constant KEY_UP    = 38
bottom=CreateObjectBox(10,1,10)
top=CreateObjectBox(9.0,.5,9.0)
SetObjectPosition(top,0,2.5,-2.5)
SetObjectColor(top,255,255,255,100)
SetObjectTransparency(top,1)
leftBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(leftBound,-5.1,.5,0)
rightBound=CreateObjectBox(.25,2.5,10)
SetObjectPosition(rightBound,5,.5,0)
bottomBound=CreateObjectBox(10,2.5,.25)
SetObjectPosition(bottomBound,0,.5,-5)
bound1=CreateObjectBox(.25,2,3)
SetObjectPosition(bound1,-4.0,.5,-3.5)
SetObjectColor(bound1,255,0,0,255)
bound2=CreateObjectBox(.25,2,3)
SetObjectPosition(bound2,-2.5,.5,-3.5)
SetObjectColor(bound2,255,0,0,255)
bound3=CreateObjectBox(.25,2,3)
SetObjectPosition(bound3,-1.0,.5,-3.5)
SetObjectColor(bound3,255,0,0,255)
bound4=CreateObjectBox(.25,2,3)
SetObjectPosition(bound4,.5,.5,-3.5)
SetObjectColor(bound4,255,0,0,255)
bound5=CreateObjectBox(.25,2,3)
SetObjectPosition(bound5,2.0,.5,-3.5)
SetObjectColor(bound5,255,0,0,255)
bound6=CreateObjectBox(.25,2,3)
SetObjectPosition(bound6,3.5,.5,-3.5)
SetObjectColor(bound6,255,0,0,255)

//FixObjectToObject(top,bottom)
FixObjectToObject(leftBound,bottom)
FixObjectToObject(rightBound,bottom)
FixObjectToObject(bottomBound,bottom)
FixObjectToObject(bound1,bottom)
FixObjectToObject(bound2,bottom)
FixObjectToObject(bound3,bottom)
FixObjectToObject(bound4,bottom)
FixObjectToObject(bound5,bottom)
FixObjectToObject(bound6,bottom)

Tube=CreateObjectCylinder(10,2.5,10)
SetObjectColor(tube,0,255,0,100)
SetObjectPosition(tube,0,4.5,7)
SetObjectTransparency(tube,1)
tubeBottom=CreateObjectBox(2,.25,8)
SetObjectPosition(tubeBottom,0,.5,6)
SetObjectColor(tubeBottom,0,0,255,0)
SetObjectTransparency(tubeBottom,1)
tubeLeft=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeLeft,-1.0,.5,0)
SetObjectColor(tubeLeft,0,0,255,0)
SetObjectTransparency(tubeLeft,1)
tubeRight=CreateObjectBox(.25,2,8)
SetObjectPosition(tubeRight,1.0,.5,0)
SetObjectColor(tubeRight,0,0,255,0)
SetObjectTransparency(tubeRight,1)

RotateObjectLocalX(top,-20)
RotateObjectLocalX(bottom,-20)
RotateObjectLocalX(tube,70)
RotateObjectLocalX(tubeBottom,-20)
RotateObjectLocalX(tubeLeft,-20)
RotateObjectLocalX(tubeRight,-20)

Create3DPhysicsWorld(20) 
Create3DPhysicsStaticBody(bottom):SetObjectShapeBox(bottom)
Create3DPhysicsStaticBody(top):SetObjectShapeBox(top)
Create3DPhysicsStaticBody(leftBound):SetObjectShapeBox(leftBound)
Create3DPhysicsStaticBody(rightBound):SetObjectShapeBox(rightBound)
Create3DPhysicsStaticBody(bottomBound):SetObjectShapeBox(bottomBound)
Create3DPhysicsStaticBody(bound1):SetObjectShapeBox(bound1)
Create3DPhysicsStaticBody(bound2):SetObjectShapeBox(bound2)
Create3DPhysicsStaticBody(bound3):SetObjectShapeBox(bound3)
Create3DPhysicsStaticBody(bound4):SetObjectShapeBox(bound4)
Create3DPhysicsStaticBody(bound5):SetObjectShapeBox(bound5)
Create3DPhysicsStaticBody(bound6):SetObjectShapeBox(bound6)

Create3DPhysicsKinematicBody(tubeBottom):SetObjectShapeBox(tubeBottom)
Create3DPhysicsKinematicBody(tubeLeft):SetObjectShapeBox(tubeLeft)
Create3DPhysicsKinematicBody(tubeRight):SetObjectShapeBox(tubeRight)

Set3DPhysicsGravity(0,-1,0) 

SetObjectPosition(tubeBottom,0,3,6)
SetObjectPosition(tubeLeft,-1.0,3,6)
SetObjectPosition(tubeRight,1.0,3,6)

//FixObjectToObject(tubeLeft,tubeBottom)
//FixObjectToObject(tubeRight,tubeBottom)

direction=2
do
	if direction=1 
		RotateObjectLocalZ(tube,-.5)
		RotateObjectLocalY(tubeBottom,.5)
		RotateObjectLocalY(tubeLeft,.5)
		RotateObjectLocalY(tubeRight,.5)	
		if trunc(GetObjectAngleY(tubeBottom))=35 then direction=2	
	
	elseif direction=2 
		RotateObjectLocalZ(tube,.5)
		RotateObjectLocalY(tubeBottom,-.5)
		RotateObjectLocalY(tubeLeft,-.5)
		RotateObjectLocalY(tubeRight,-.5)
		if trunc(GetObjectAngleY(tubeBottom))=325 then direction=1

	endif	
	
	
	if GetRawKeyPressed(32)
		sphere=createObjectSphere(1.10,10,10)
		SetObjectColor(sphere,255,0,0,255)
		SetObjectPosition(sphere,0,4,7)
		Create3DPhysicsDynamicBody(sphere)
		//SetObject3DPhysicsLinearVelocity(sphere,0,-.5,.25, -.5 ) 
		SetObjectShapeSphere(sphere)
		SetObject3DPhysicsRestitution(sphere,.5) 
		
	endif	
	
	print(getObjectAngleX(tube))	
	Step3DPhysicsWorld()
	sync()
loop

Press space to drop ball

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 30th Nov 2018 16:45

Link

Wow @fubarpk you have really been focusing on this game. Huge improvements since a few weeks ago. You've put a lot of care into tweaking gameplay and the visuals are excellent too.

Interesting you mentioned an issue with point lights and also physics. I was pushing hard to complete my game when I did some thorough playtesting and discovered a hell of a bug. Finally tracked it diwn to the DeleteAllImages api function. No error message is thrown at all but "program stopped working". So I then wrote all the code to manually delete each image and ran into it again always while trying to delete a certain group of subimages or their image atlas. Again the error occurs right on the DeleteImage function call. So there was no way for me to debug it. Finally I just got rid of loading & deleting images in each phase (Title, Gameplay, etc) and keep the images loaded the entire time.

My Projects Most With Full Source...
[Attack of the Crows] [Christmas Command 2016]
[Simple Sprite Shaders Example] [Old School Style 3D FPS]
[Playable 2D Shmup Template] [2D Single Screen Platformer]
[FixSpriteToSprite System & Demo]
[Mutant Invaders 3D Shmup]
[Unity - Atlantic Crisis] [Unity - Treasures of Ali-Gar]
[AppGameKit BASIC Extended API] [Ultra LowRez Tower Defense]
[My YouTube Videos] [Twitter]

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 30th Nov 2018 17:30

Link

Thanks Garbenjamin

I found it was a problem with the sun and not pointlights in the end and just needed to recreate the sun settings
I kept my deleteall() function

fubar

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Carnival Game

Attachments

Attachments

Attachments

Attachments