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: 18th Oct 2018 10:38 Edited at: 18th Oct 2018 10:39

Link

Thought ide resurrect some old code I started ages ago this is basically the carnival shooter code
no media needed

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = 3  //time to keep bullets alive
SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()

type objectType
	ID as integer
	time as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim objects[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
circleImg=createCircleImage()
triangleImg=createTriangleImage()
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	if imgRan=0
		SetObjectImage(obj,circleImg,0)
	else
		SetObjectImage(obj,triangleImg,0)
	endif
	SetObjectTransparency(obj,1)
	//SetObjectCollisionMode(obj,1)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,-15,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)
do
	Angle_x#=GetPointerY()
	Angle_y#=GetPointerX()
		
//	SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 400.0, 10.0)
	endif
	
	Step3DPhysicsWorld()
	for num = 0 to 7
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
            endif
		endif
		MoveObjectLocalX(objects[num].ID,-.1)
		if getObjectX(objects[num].ID)<-20 then SetObjectPosition(objects[num].ID,20,-10,20)
		if GetObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
			objects[num].time=0
		endif 
	next num
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
end

function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,Angle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere( 10, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = 3  //time to keep bullets alive
SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()

type objectType
	ID as integer
	time as float
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim objects[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
circleImg=createCircleImage()
triangleImg=createTriangleImage()
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	if imgRan=0
		SetObjectImage(obj,circleImg,0)
	else
		SetObjectImage(obj,triangleImg,0)
	endif
	SetObjectTransparency(obj,1)
	//SetObjectCollisionMode(obj,1)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,-15,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)
do
	Angle_x#=GetPointerY()
	Angle_y#=GetPointerX()
		
//	SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 400.0, 10.0)
	endif
	
	Step3DPhysicsWorld()
	for num = 0 to 7
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
            endif
		endif
		MoveObjectLocalX(objects[num].ID,-.1)
		if getObjectX(objects[num].ID)<-20 then SetObjectPosition(objects[num].ID,20,-10,20)
		if GetObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
			objects[num].time=0
		endif 
	next num
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		if (myBullet[num].time)+bulletLife<timer() 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
end


function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,Angle_x#,GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere( 10, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

It needs work but basically would have like ducks you shoot with air rifle etc and may have other things like throwing basket balls in hoops etc
things like you see at fun fairs (shows etc) just curious what people think of the idea where you get rewarded things for success

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: 19th Oct 2018 03:06 Edited at: 20th Oct 2018 03:13

Link

Ok so I Improved the mouse vectors and added a pretty basic looking construction

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#=50

SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()

type objectType
	ID as integer
	time as float
endtype
loadImage(1,"duck2.png")
// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim objects[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
//circleImg=createCircleImage()
//triangleImg=createTriangleImage()
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	//if imgRan=0
	//	SetObjectImage(obj,circleImg,0)
	//else
	//	SetObjectImage(obj,triangleImg,0)
	//endif
	SetObjectImage(obj,1,0)
	SetObjectTransparency(obj,1)
	SetObjectCollisionMode(obj,1)
	//Create3DPhysicsStaticBody(obj)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,0,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)

LoadObject(100,"carnival.3ds")
SetObjectRotation(100,0,90,0)
SetObjectScale(100,6,6.5,10)
SetObjectPosition(100,2,-17,-1)
SetObjectCollisionMode(100,0)
SetObjectcolor(100,0,0,200,255)
Create3DPhysicsStaticBody(100) 
do
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 500.0, 10.0)
	endif
	
	Step3DPhysicsWorld()
	for num = 0 to 7
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
             else
			endif
		endif
		MoveObjectLocalX(objects[num].ID,-.1)
		if getObjectX(objects[num].ID)<-20 then SetObjectPosition(objects[num].ID,20,-10,20)
		if GetObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
			objects[num].time=0
		endif 
	next num
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
end

function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere(2, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth2#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth2# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth2# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet



#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#=50

SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()

type objectType
	ID as integer
	time as float
endtype
loadImage(1,"duck2.png")
// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim objects[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
//circleImg=createCircleImage()
//triangleImg=createTriangleImage()
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	//if imgRan=0
	//	SetObjectImage(obj,circleImg,0)
	//else
	//	SetObjectImage(obj,triangleImg,0)
	//endif
	SetObjectImage(obj,1,0)
	SetObjectTransparency(obj,1)
	SetObjectCollisionMode(obj,1)
	//Create3DPhysicsStaticBody(obj)
	objects[num].ID=obj
	objects[num].time=0
next num
//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,0,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)

LoadObject(100,"carnival.3ds")
SetObjectRotation(100,0,90,0)
SetObjectScale(100,6,6.5,10)
SetObjectPosition(100,2,-17,-1)
SetObjectCollisionMode(100,0)
SetObjectcolor(100,0,0,200,255)
Create3DPhysicsStaticBody(100) 
do
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

		
	SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 500.0, 10.0)
	endif
	
	Step3DPhysicsWorld()
	for num = 0 to 7
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
             else
			endif
		endif
		MoveObjectLocalX(objects[num].ID,-.1)
		if getObjectX(objects[num].ID)<-20 then SetObjectPosition(objects[num].ID,20,-10,20)
		if GetObjectAngleX(objects[num].ID)>89 and objects[num].time+2<timer() 
			RotateObjectLocalX(objects[num].ID,-90)
			objects[num].time=0
		endif 
	next num
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=1 to bulletCount
		hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
end


function ThrowBall( initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere(2, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth2#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth2# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth2# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

required media
http://users.tpg.com.au/subarpk/carnival.3ds
http://users.tpg.com.au/subarpk/duck2.png

NEEDS ALLOT OF WORK LOL

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: 19th Oct 2018 03:22 Edited at: 19th Oct 2018 03:23

Link

thinking I need a pretty basic sort of rifle and to improve the way it shoots
at the moment you just touch screen and it shoots

That's a starter

All feedback Welcome

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: 19th Oct 2018 04:59 Edited at: 19th Oct 2018 05:02

Link

What about something like this? As a frame

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: 19th Oct 2018 06:12 Edited at: 19th Oct 2018 15:51

Link

That looks awesome blink0k your so talented I was playing trying to texture in meshlab and it crashed on me
A frame would be excellent, as the ducks are separate objects didn't really like to ask after all the help you have given in the past

I think the concept of a day at the carnival has good potential as each individual carnival activity could have its own prizes/rewards
that people could collect like collector cards or something like pokemon did as I believe that was one of the reasons of its success

but done like the classic Olympic Games

Still very much tossing the ideas around as what would be possible, I think basketball hoops be good similar to the same throw routine
I currently use for shooting. Could throw a random duck in the duck shooter that opened you up to new rewards.

Throw the torus over the bottle could be one or a cube with money

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: 19th Oct 2018 15:45 Edited at: 21st Oct 2018 21:09

Link

Thought ide try the bottle down throwing one too

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#=55

SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()
 
type objectType
	ID as integer
	time as float
endtype
loadImage(1,"duck2.png")
loadImage(2,"tarpee.png")

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim myDucks[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
//circleImg=createCircleImage()
//triangleImg=createTriangleImage()

//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,0,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)

LoadObject(100,"carnival.3ds")
SetObjectRotation(100,0,90,0)
SetObjectScale(100,6,6.5,10)
SetObjectPosition(100,2,-17,-1)
SetObjectCollisionMode(100,0)
SetObjectimage(100,2,0)
SetObjectcolor(100,0,0,200,255)
Create3DPhysicsStaticBody(100)

/*
LoadObject(101,"bottle.obj")
SetObjectScale(101,2,2,2)
SetObjectPosition(101,0,-10,20)
SetObjectColor(101,100,100,100,150)
SetObjectTransparency(101,1)
Create3DPhysicsDynamicBody(101) 
SetObject3DPhysicsMass(101,100 )

CloneObject(102,101)
SetObjectPosition(102,-2,-10,20)
Create3DPhysicsDynamicBody(102) 
SetObject3DPhysicsMass(102,100 )

CloneObject(103,101)
SetObjectPosition(103,2,-10,20)
Create3DPhysicsDynamicBody(103) 
SetObject3DPhysicsMass(103,100 )

CloneObject(104,101)
SetObjectPosition(104,-1,-10,19)
Create3DPhysicsDynamicBody(104) 
SetObject3DPhysicsMass(104,100 )

CloneObject(105,101)
SetObjectPosition(105,1,-10,19)
Create3DPhysicsDynamicBody(105) 
SetObject3DPhysicsMass(105,100 )

CloneObject(106,101)
SetObjectPosition(106,0,-10,18)
Create3DPhysicsDynamicBody(106) 
SetObject3DPhysicsMass(106,100 )

do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 600.0, 10.0.2)
	endif
	
	Step3DPhysicsWorld()
	
	sync()
loop
*/
duckShoot()

function duckShoot()
ducksShot=0
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	//if imgRan=0
	//	SetObjectImage(obj,circleImg,0)
	//else
	//	SetObjectImage(obj,triangleImg,0)
	//endif
	SetObjectImage(obj,1,0)
	SetObjectTransparency(obj,1)
	//SetObjectCollisionMode(obj,1)
	Create3DPhysicsKinematicBody(obj)
	myDucks[num].ID=obj
	myDucks[num].time=0
next num	
CreateText(1,"Ducks Shot=0")
SetTextSize(1,40)
SetTextPosition(1,0,0)

do
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 300.0, 10.0,1.0)
	endif
	
	
	for ducks = 0 to 7
		/*
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
                inc ducksShot
             else
			endif
		endif
		*/
		if GetObject3DPhysicsFirstContact(myDucks[ducks].ID) 
			contactObjB  = GetObject3DPhysicsContactObjectB()
			for num=0 to bulletCount
				if contactObjB= myBullet[num].ID
					if GetObjectAngleX(myDucks[ducks].ID)=0
						RotateObjectLocalX(myDucks[ducks].ID,90) 
						myDucks[ducks].time=timer()
						inc ducksShot
					endif
				endif
				while GetObject3DPhysicsNextContact() 
					contactObjB  = GetObject3DPhysicsContactObjectB()
					for num=0 to bulletCount
						if contactObjB= myBullet[num].ID
							if GetObjectAngleX(myDucks[ducks].ID)=0
								RotateObjectLocalX(myDucks[ducks].ID,90) 
								myDucks[ducks].time=timer()
								inc ducksShot
							endif
						endif	
					next num
				endwhile	
			next num
		endif
		
		
		
		MoveObjectLocalX(myDucks[ducks].ID,-.1)
		if getObjectX(myDucks[ducks].ID)<-20 then SetObjectPosition(myDucks[ducks].ID,20,-10,20)
		if GetObjectAngleX(myDucks[ducks].ID)>89 and myDucks[ducks].time+3<timer() 
			RotateObjectLocalX(myDucks[ducks].ID,-90)
			myDucks[ducks].time=0
		endif 
	next ducks
	
	
	
	Step3DPhysicsWorld()
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=0 to bulletCount
		hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	SetTextString(1,"Ducks Shot="+Str(ducksShot))	
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
endfunction

function ThrowBall( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere(size, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth2#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth2# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth2# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

+ Code Snippet


#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   5
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#=55

SetWindowTitle("Pop UPs" ) 
SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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
create3DPhysicsWorld()
 
type objectType
	ID as integer
	time as float
endtype
loadImage(1,"duck2.png")
loadImage(2,"tarpee.png")

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype
global myBullet as bullet[0]
dim myDucks[7] as objectType
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#   
//circleImg=createCircleImage()
//triangleImg=createTriangleImage()

//SetObjectImage(obj1,circleImg,0)
//obj2=CreateObjectPlane(2,4)
CreateObjectBox(playerObj,20,20,20)
SetObjectPosition(playerObj,0,0,-20)
SetObjectVisible(playerObj,0)
//SetCameraPosition(1,0,10,-120)

LoadObject(100,"carnival.3ds")
SetObjectRotation(100,0,90,0)
SetObjectScale(100,6,6.5,10)
SetObjectPosition(100,2,-17,-1)
SetObjectCollisionMode(100,0)
SetObjectimage(100,2,0)
SetObjectcolor(100,0,0,200,255)
Create3DPhysicsStaticBody(100) 

/*
LoadObject(101,"bottle.obj")
SetObjectScale(101,2,2,2)
SetObjectPosition(101,0,-10,20)
SetObjectColor(101,100,100,100,150)
SetObjectTransparency(101,1)
Create3DPhysicsDynamicBody(101) 
SetObject3DPhysicsMass(101,100 )

CloneObject(102,101)
SetObjectPosition(102,-2,-10,20)
Create3DPhysicsDynamicBody(102) 
SetObject3DPhysicsMass(102,100 )

CloneObject(103,101)
SetObjectPosition(103,2,-10,20)
Create3DPhysicsDynamicBody(103) 
SetObject3DPhysicsMass(103,100 )

CloneObject(104,101)
SetObjectPosition(104,-1,-10,19)
Create3DPhysicsDynamicBody(104) 
SetObject3DPhysicsMass(104,100 )

CloneObject(105,101)
SetObjectPosition(105,1,-10,19)
Create3DPhysicsDynamicBody(105) 
SetObject3DPhysicsMass(105,100 )

CloneObject(106,101)
SetObjectPosition(106,0,-10,18)
Create3DPhysicsDynamicBody(106) 
SetObject3DPhysicsMass(106,100 )



do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

		
	SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 600.0, 10.0.2)
	endif
	
	Step3DPhysicsWorld()
	
	sync()
loop
*/
duckShoot()

function duckShoot()
ducksShot=0
for num = 0 to 7
	obj=CreateObjectBox(2,4,.1)
	SetObjectPosition(obj,num*5-20,-10,20)
	imgRan=random(0,1)
	//if imgRan=0
	//	SetObjectImage(obj,circleImg,0)
	//else
	//	SetObjectImage(obj,triangleImg,0)
	//endif
	SetObjectImage(obj,1,0)
	SetObjectTransparency(obj,1)
	//SetObjectCollisionMode(obj,1)
	Create3DPhysicsKinematicBody(obj)
	myDucks[num].ID=obj
	myDucks[num].time=0
next num	
CreateText(1,"Ducks Shot=0")
SetTextSize(1,40)
SetTextPosition(1,0,0)	


do
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY() )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

		
	SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			ThrowBall( 300.0, 10.0,1.0)
	endif
	
	
	for ducks = 0 to 7
		/*
		hit=checkCollision(objects[num].ID)
		if hit>0
			if GetObjectAngleX(objects[num].ID)=0
                RotateObjectLocalX(objects[num].ID,90) 
                objects[num].time=timer()
                inc ducksShot
             else
			endif
		endif
		*/
		if GetObject3DPhysicsFirstContact(myDucks[ducks].ID) 
			contactObjB  = GetObject3DPhysicsContactObjectB()
			for num=0 to bulletCount
				if contactObjB= myBullet[num].ID
					if GetObjectAngleX(myDucks[ducks].ID)=0
						RotateObjectLocalX(myDucks[ducks].ID,90) 
						myDucks[ducks].time=timer()
						inc ducksShot
					endif
				endif
				while GetObject3DPhysicsNextContact() 
					contactObjB  = GetObject3DPhysicsContactObjectB()
					for num=0 to bulletCount
						if contactObjB= myBullet[num].ID
							if GetObjectAngleX(myDucks[ducks].ID)=0
								RotateObjectLocalX(myDucks[ducks].ID,90) 
								myDucks[ducks].time=timer()
								inc ducksShot
							endif
						endif	
					next num
				endwhile	
			next num
		endif
		
		
		
		MoveObjectLocalX(myDucks[ducks].ID,-.1)
		if getObjectX(myDucks[ducks].ID)<-20 then SetObjectPosition(myDucks[ducks].ID,20,-10,20)
		if GetObjectAngleX(myDucks[ducks].ID)>89 and myDucks[ducks].time+3<timer() 
			RotateObjectLocalX(myDucks[ducks].ID,-90)
			myDucks[ducks].time=0
		endif 
	next ducks
	
	
	
	Step3DPhysicsWorld()
	
	//There is no limit to bullets but a timer of bulletlife for how long they live
	for num=0 to bulletCount
		hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num
	SetTextString(1,"Ducks Shot="+Str(ducksShot))	
	sync()
	//SetCameraRotation(1,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj) ) 
loop
endfunction


function ThrowBall( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CreateObjectSphere(size, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function checkCollision(object)
//this checks for colliion between an object with any other object and returns its id
width#=.5
height#=1.5
depth2#=.025
 
x#=getObjectWorldX(object)
y#=GetObjectWorldY(object)
z#=getObjectWorldZ(object)
// calculate the start of the ray cast
start_x# = x#-width#
start_y# = y#+height#
start_z# = z#-depth2# 
// calculate the end of the ray cast
end_x# = x#+width#   
end_y# = y#-height#
end_z# = z#+depth2# 
// determine which object has been hit
object_hit = ObjectRayCast(0,start_x#,start_y#,start_z#,end_x#,end_y#,end_z#)
endfunction object_hit 	

function createTriangleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawLine(5,0,9,9,green,green)
    DrawLine(1,8,8,8,green,green)
    DrawLine(1,9,5,0,green,green)
    //DrawLine(5,0,5,9,green,green)
     
    //draw these if you want it filled
    DrawLine(4,0,8,9,green,green)
    DrawLine(0,9,8,9,green,green)
    DrawLine(0,9,4,0,green,green)   
    DrawBox(4,1,6,8,green,green,green,green,1)
     
    swap()
    img = getimage(0,0,10,10)
    SetImageTransparentColor(img,0,0,0)
endfunction img
 
function createCircleImage()
    rem draw a triangle image used for the player sprite on radar
    SetClearColor(0,0,0)
    ClearScreen()
    Render()
    DrawEllipse(6,6,4,4,yellow,yellow,0)
    DrawEllipse(6,6,3,3,yellow,yellow,0)
    swap()
    img = getimage(0,0,12,12)
    SetImageTransparentColor(img,0,0,0)
endfunction img

I have the bottles as dynamic atm cos I cant remember if or how to get the kinematic ones to fall over

Video Removed for space please see latest post

Media
http://users.tpg.com.au/subarpk/Bottle.obj

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: 19th Oct 2018 17:00 Edited at: 20th Oct 2018 03:13

Link

Improved the duck shooter shoot routine but need to change the collisions to physics collisions I think
now I have the duck shooter working as physics contacts and screen vectors

May try throwing a torus over a bottle or box but that's a job for tomorrow night along with proper physics
collisions

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 19th Oct 2018 17:19

Link

Looking great @fubarpk! You are really knocking out the games fast and so varied too.

And @blink0k that really is a superb shooting gallery frame. Looks AWESOME!

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

puzzler2018

User Banned

Posted: 19th Oct 2018 21:41

Link

Yes indeed - looks really good - keep it up fubarpk - maybe have a rollercoaster running in the background

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Oct 2018 21:56

Link

Thanks Garbenjamin and Puzzler

Quote: "maybe have a rollercoaster running in the background"

That would be a game in itself as each of the carnival activities could be but prob quite feasible to have a ferris wheel or roller coaster
as a video image in the background will have to have a look if there are suitable royalty free videos i could play over an object. I know
DBPRO can do that perhaps a ferris wheel shader

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Oct 2018 21:58

Link

awesome

like the inspiration there...

Back to top

Profile

puzzler2018

User Banned

Posted: 19th Oct 2018 22:00

Link

Anyone ever been to a fairground ride where we after to "look up" and be on a rollercoaster or an attraction fairground ride.

A Skydome could have a video of that nature..

Awesome furparpk

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 19th Oct 2018 23:09 Edited at: 21st Oct 2018 21:08

Link

Video Removed for space please see latest post

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Oct 2018 23:49

Link

Spot on, well done

Back to top

Profile

puzzler2018

User Banned

Posted: 20th Oct 2018 00:04 Edited at: 20th Oct 2018 00:06

Link

Im asking cause i know you can achieve something miles better furbarpk, not suggesting that you doing simple stuff. but put your mind to agk then can achieve more

When i started AppGameKit - i thought 2d stuff was just going to be it.

Spend time in 3d work then worlds you oyster

Back to top

Profile

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 20th Oct 2018 01:23 Edited at: 20th Oct 2018 01:25

Link

Lots of great games made in 2D and 3D. I think most of us probably work in both? Isn't all of this stuff fubarpk has been making recently in 3D? I thought even this was another 3D game. Not that it matters really but it looks like it is 3D models.

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: 20th Oct 2018 02:22

Link

It is very much 3D the video is put on a planeobject rotated a little to suit camera. Im thinking i could perhaps make the video
plane object much bigger and move the camera along different activity tents for the individual games. Perhaps selectable from
a thumbnail menu as to which activity you play. Not sure how il do rewards yet as the gameplays needs work and decisions on
which games ide like to use but will try and keep the controls simple. Perhaps just click the screen like the duck shooter and
a power control for other items such as bottle drop or basketball etc style games.

But as always open to suggestions

And Blocklifter i owe allot of thanks to blink0k for the models without them it would look mighty bland.
And it was puzzlers puzzle code that really made pixelated labrynth possible with some help from Cliff converting to planes.
2D i can work in and usually get the effect i want but 3D even if i can do the model, texturing it becomes the problem. Meshlab
has made creating textured maps much easier but im still very much learning how that works but Jousting Eggs was textured
using meshlab. Now i need to learn how to apply a texture atlas map to a model

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 20th Oct 2018 02:58 Edited at: 20th Oct 2018 03:01

Link

If you can spare the cash I recommend getting Ultimate Unwrap Pro it makes uv mapping and vertex painting very easy and is what we used in that thread of Xaby's to do the flat shaded vertex color models too. I think it may have been Blink that figured out exactly how to do it in UUP. I mean you can definitely uv unwrap in Blender well too just saying I find working with UUP a nicer workflow and it allows you to do a lot more than just that.

Yes Blink does fantastic art. No doubt about it. I'm on a kick where I want to create a few games completely solo in ultra low resolution just because it feels like something I need to do now. Can't really explain it better than that it resonates with me. Otherwise I'd be seriously tempted to increase the resolution to 640x360 and bug Blink for art or pay for it even.

Puzzler I know is always working on something with memblocks and 3D and I know he is working hard on it and making progress all of the time but I haven't tried any of the code samples in a while just because I don't need any manual object creation stuff like minecraft and been working on my own projects. After making the templates to help folks out and then the extended api functions I was ready to just make a game again. And I am loving it!! lol

Anyway looking forward to trying out your latest game fubarpk!

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

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 20th Oct 2018 05:29 Edited at: 20th Oct 2018 05:30

Link

+1 for UU. The guy who wrote it is super helpful. Never takes more than a day to get back to you and mostly replies within the hour. Super dooper product!

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 20th Oct 2018 08:16

Link

Thanks Garbenjamin did you get to try Jousting Eggs I think it plays quite well with mobile considering the thread is here https://forum.thegamecreators.com/thread/223043

I wish there was a course I could do on basic texturing models i used meshlab because it was easy for colouring faces took me about 5 minutes because i found a great tutorial for that but the map
it created wasn't very suitable for texturing a pic with that method it has other ways and seems really powerful but dang its confusing. Im pretty sure blender does the maps too but when i tried in
3DS many years ago that was as much work as creating the model to get right if not more as it seemed like you had to align the object faces onto a texture template. I did a basic modelling 3d course
in 3ds max many years ago a short course but now with my qualifications its very hard to do short courses because of rules i have to atleast sign up for some full course or university again lol i can think
of better subjects i could do at uni. I sat in a hackers course at uni once invited by a lecturer and because of my age and prob the beard I had at time every young student wanting me in their group hhahahah
Loved security but this was better you set up a computer and you hacked into the other groups pcs points awarded for leaving notecard etc on there machine and more points awarded for not having
yours penetrated pretty sure you would love that course Gar. I already did security etc but that course sounded like fun.

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: 20th Oct 2018 11:09 Edited at: 21st Oct 2018 20:15

Link

Blink very kindly donated some media
video deleted for space please see further down

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: 20th Oct 2018 21:38

Link

Nice work!

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 20th Oct 2018 22:35 Edited at: 21st Oct 2018 21:08

Link

Thanks I also thought it may be used for other games
like in this example after you have done duck shoot perhaps bottle bowl
but that may get changed to a torus toss yet. Having to set the bottles as dynamic to make them fall over is a pain

Video Removed for space please see latest post

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: 20th Oct 2018 22:41 Edited at: 20th Oct 2018 22:42

Link

Something like bowling. Ok. What happend to the poor dogs ears?

ps: i would turn physics off for the bottles until the ball is almost touching

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 20th Oct 2018 23:07 Edited at: 21st Oct 2018 20:19

Link

Quote: "What happend to the poor dogs ears? "

oops mustve cut them when making it transparent around him pls dont tell animal welfare

Il fix that next update

hoop toss perhaps
video delete for space please see further down

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: 20th Oct 2018 23:12

Link

What about an aiming line that shows the trajectory of the ball?

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 20th Oct 2018 23:19 Edited at: 20th Oct 2018 23:22

Link

that should be possible
but mobiles wont show the aiming the way it is atm as its done via mouse
I was thinking if I do a hoop toss I could overlay some buttons for the power then just click screen
not really sure and haven't managed to land a hoop over the bottle yet lol so hoping the physics
allows

May add a sine curve for the ducks yet on y axis
and randomly have the dog jump up

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: 21st Oct 2018 00:05

Link

The hoops may have a problem in that they are a concave shape. Physics may be treating it like a disc
As a test you could place it directly above the bottle and let it drop

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 21st Oct 2018 00:21 Edited at: 21st Oct 2018 20:15

Link

When I do that and set the test hoop to dynamic
Video deleted for space
It almost works but then bounces off

I think your right about the concave shape but I might try changing the collision shape of bottle

Ps think gar has the right idea by posting vids of your own stuff you can see alsorts you might otherwise miss

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 Oct 2018 02:58 Edited at: 21st Oct 2018 20:17

Link

Happier with the way the bottlebowling turning out
a few seconds into the video is the bottle bowling
video deleted for space please see further down

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 21st Oct 2018 03:51

Link

@fubarpk and @blink0k this has a very fun look to it!! Looks very nice.

@fubarpk I haven't had a chance to try Jousting Eggs yet but I need a brain break and am doing no more work tonight so as soon as I post this I will check it out!

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: 21st Oct 2018 04:09 Edited at: 21st Oct 2018 04:11

Link

Thanks

Still working on what Carnival activities are possible and suitable with loads of controls would like some event with concave objects
but the hoop toss i kinda got it to sit over the bottle but not go too far down. Hahahah one of my favorite carnival games was
popping the ping pong ball into the clowns mouth mostly cos it was so easy to get a prize. Not so sure how that could be done in AGK
at present. I did manage a marble game where you tilt the device to make the mables go in the pockets but it got set back on my to do
list. But shows there may be a method of doing the clown thing. Perhaps a dart/balloon thing too!, really just playing with concepts atm
and welcome all suggestions.

Quote: "I haven't had a chance to try Jousting Eggs yet "

All good I just value your opinion.

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 21st Oct 2018 04:16

Link

I just played it and left you feedback on your other thread. I seem to be the only one that has played it???? We need to get more of this community into game testing!!

lol

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: 21st Oct 2018 04:44

Link

Yes we all should test each others games most people to busy with there own stuff understandably but you would have to be the best ive come across
for game testing and you give good feedback. Other than that my only other method ide suggest for feedback is the indi promo group on facebook if you
provide a link.

Quote: "I seem to be the only one that has played it? "

I think the person who it shows playing it on google play is the same one person which may be good because theyve had it installed for quite a while on
there machine which shows they enjoy it i guess. The crazy thing with google play if you want lots of downloads quick write a quick joke telling app for
halloween and you will notice so many downloads in next to no time. But spend hours on getting gameplay right and testing etc allot of people wont even
find it let alone play it. Its def a hard market to break into nowadays I just enjoy checking my download stats

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 21st Oct 2018 04:57 Edited at: 21st Oct 2018 04:58

Link

I get that completely. I have put a lot of work into this current game. I mean yes it is less than 100 hours but still is a lot of time... the equivalent of over two full-time workweeks on a job is a good amount of time to me. And I am putting time into marketing activities as well and in the end all of this will most likely do very little. I accept that already. I mean I'm doing what I can to make an impact but basically I see it like all as a process. If it was 2 years ago when I had some momentum built up and this was the third game in a row with time spent on marketing it would be different. But 2 years between not sure if there is much left I can leverage. A little probably but basically it is for all intents & purposes like starting right back at the beginning again. lol But again it is a process. Just need to keep moving forward. I will get some followers from this. Some people will enjoy the game and I will have 1 new fan of my games. Or maybe 10. Hard to say. When this game is done I will work on another game and do more marketing and that will increase my reach a tiny bit more.

I think maybe try that for your games too. It is dull monotonous work the marketing but it is needed I think. Basically make a game do some marketing. Make a game do some more marketing. And your reach will grow over 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: 21st Oct 2018 05:07

Link

Yeh I need to do something with marketing all I have now is my website but my night driving gets a constant flow of players and I liked the
idea of pixelated lit up signs in pixelated labrynth for advertising in that not so much they have time to check out the signs but im sure it does
get them to check out my other games. I could also go with the old fashioned sine scrolling text in some games too I guess perhaps at the title
page or a menu option to check out other games and have favorites thumbnailed on a screen menu option. Giving the user some choice

in
the matter

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 Oct 2018 20:18 Edited at: 2nd Nov 2018 07:27

Link

Added a digital scoreboard

Duckshoot
10 points for yellow ducks
20 points for purple ducks
30 points for blue ducks
minus 100 points for hitting dog

BottleBowl
Score=Score+(NumberKnockedOver*10)

HoopToss
gotta sort collisions better
Video removed for space please see further down

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: 21st Oct 2018 22:13

Link

Looks really great fubpark but must say its hard to keep track of all your Projects

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: 22nd Oct 2018 01:34 Edited at: 2nd Nov 2018 07:27

Link

The bowling now uses a bowling alley look

Video removed for space please see further down

If the torus Object in the hooptoss doesn't want to travel down around the bottle I was wondering
if like a dunny toss where you toss something into the dunny would it perhaps stay there.
I know we have SetObjectShapeConvexHull(Obj) but that doesn't seem to work well for a taurus

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 22nd Oct 2018 01:58

Link

Visually it looks great... very interesting & unique! But I think every game the balls (and ring) are moving far too quickly. There is no time to appreciate it flying through the air. The duck shoot is best with this. I think you could slow the balls down on all of the games and it would make it a lot more enjoyable. Especially on the bottle ringer game and the bowling game (that ball travels insanely fast). If the duck shoot ball was just a little slower there would be some suspense will the ball knock over a duck? If the bottle ringer was much slower it would also create that suspense and enjoyment of watching it travel through the air and perhaps bounce around a bit. The bowling ball I'd make much slower for the same reasons.

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

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 22nd Oct 2018 02:00

Link

I agree.
I also think these would make great VR games

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Oct 2018 03:44 Edited at: 22nd Oct 2018 13:22

Link

Thanks for all the feedback

Easy enough to slow the balls I cranked up the velocity when I was sorting out the vectors
like the up in air approach too for the duck shoot so for the top ducks I want it so you have to aim above them
which by slowing down the velocity will have that effect

I have tried placing the torus just above the bottles and all I can get it to do is partially go down the bottle I have since moved
the centre point and now its worse but either way it failed there is a setobjectshapeconvexhull() command which may be better
suited to a different style of object ie a dunny that you can throw a ball into. Lots to do thinking this will be one of my longer projects
as I want four or so mini games. but changing from one minigame to the other is kinda less stressfull than just doing the same one
game

Still need work on the scoring but it now has a proper scoring notecard
No total score calculated and have to make allowances for strikes and spares

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 22nd Oct 2018 05:05 Edited at: 22nd Oct 2018 05:07

Link

Looking good. If you are not tired of my input... I suggest moving the start point of the bowling ball back a ways. The ball should be rolling and currently it is thrown and hits the lane about 1/2 to 2/3 of the way to the pins. BUT you could have fun with it. I am not sure what you are going for. Like it could be Crazy Bowler / Angry Bowler and that would make complete sense for the ball to be thrown the way it is now and would be a unique take on it. Really depends on how you are theming/spinning this.

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: 22nd Oct 2018 10:54 Edited at: 22nd Oct 2018 13:23

Link

Thanks Garbenjamin
Perhaps more like this for movement
video removed for space

PS I don't pick up the pins yet in middle of a bowling frame
and scores still need work

And that's with the mass of the pins set to 5
And velocity of the ball to 200

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: 22nd Oct 2018 11:22 Edited at: 22nd Oct 2018 11:23

Link

My pin mass calculation is;
SetObject3DPhysicsMass(pin, GetObject3DPhysicsMass(pin) * 0.01)

My bowling ball mass calculation is;
SetObject3DPhysicsMass(ball, GetObject3DPhysicsMass(ball) * 1.5)

So pins are 10% their normal mass
Bowling ball is 1 1/2 times it's normal mass

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Oct 2018 13:02 Edited at: 2nd Nov 2018 07:27

Link

The problem was the way I set collisionshapes they were all set different lol but fixed
with your bowling mass calcularion

Video removed for space please see further down

Added this to the setthemup() and set the ball velocity to 75 in the above video

+ Code Snippet

	for pin = pinObj1 to pinObj10
		SetObjectImage(pin,pinImg,0)
		Create3DPhysicsDynamicBody(pin)
		SetObjectShapeCylinder(pin,1)
		SetObject3DPhysicsMass(pin, GetObject3DPhysicsMass(pin) * 0.01)
		SetObject3DPhysicsRestitution(pin, 1)	
	next pin

fubar

Back to top

Profile PM Email Website

GarBenjamin

AGK Developer

7

Years of Service

User Offline

Joined: 30th Nov 2016

Location: USA

Posted: 22nd Oct 2018 15:08

Link

FANTASTIC!!!

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

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 22nd Oct 2018 23:03

Link

Looks good! Have you set the restitution in that one?

Back to top

Profile PM

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 22nd Oct 2018 23:06

Link

Looks comercial and well done

Looks like something i could find as a mini game on one of my Nintendo Machines and that in a good way

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: 23rd Oct 2018 00:32 Edited at: 23rd Oct 2018 00:36

Link

Quote: "Looks good! Have you set the restitution in that one?"

sure have now all the settings are same as Strike

fubar

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Carnival Game

Attachments