Bubbles - GameCreators Forum

Author

Message

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Dec 2018 22:02

Link

Hi guys .

Being bored I made this funy bubbles code . Could be useful for a screen saver

// Project: bubbles
// Created: 2018-12-15

// show all errors
SetErrorMode(2)

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

`getting some images
skin=makecolor(180,130,90)
drawbox(0,0,50,45,skin,skin,skin,skin,1)
drawbox(0,60,50,100,skin,skin,skin,skin,1)
getimage(1,0,0,50,100)

wt=makecolor(255,255,255)
drawbox (0,0,100,100,wt,wt,wt,wt,1)
blue=makecolor(80,80,250)
DrawEllipse(50,50,7,7,blue,blue,1)
getimage(2,0,0,100,100)

`modeling prota
CreateObjectSphere(1,20,20,20)
setobjectimage(1,1,0)
SetObjectTransparency(1,1)

cloneobject(3,1)
setobjectposition(3,25,0,0)

CreateObjectSphere(2,19,20,20)
setobjectimage(2,2,0)

cloneobject(4,2)
setobjectposition(4,25,0,0)

CreateObjectSphere(5,100,20,20)
SetObjectColor(5,180,130,90,0)
setobjectposition(5,12.5,-30,32)
fixobjectpivot(5)

for i= 1 to 4
  FixObjectToObject(i,5)
next

`lips
cloneobject(6,5)
setobjectscale(6,0.8,0.2,0.8)
setobjectposition(6,2,-10,-10)
setobjectcolor(6,200,0,0,0)
cloneobject(7,6)
setobjectposition(7,2,-15,-10)
setobjectrotation(6,-10,0,0)
setobjectrotation(7,-10,0,0)
FixObjectToObject(6,5)
fixobjecttoobject(7,5)

createobjectbox(8,100,40,2)
setobjectcolor(8,0,255,0,0)
setobjectposition(8,-30,-15,32)

fixobjecttoobject(8,5)
cloneobject(9,8)
setobjectposition(9,55,-15,32)
fixobjecttoobject(9,5)
setobjectrotation(9,10,-45,0)
setobjectrotation(8,10,45,0)

createobjectcone(10,40,20,12)
setobjectcolor(10,0,0,0,0)
setobjectposition(10,12,-50,-20)
setobjectrotation(10,-130,0,0)
fixobjecttoobject(10,5)

`our Sky
createobjectSphere(4000,1000,20,20)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)

`sensor
createobjectbox(1000,0,0,0)

`bubbles
o=1000
for i= 1 to 300
   inc o
   createobjectsphere(o,5,10,10)
   setobjectposition(o,-100+random(0,200),-100+random(0,200),-100+random(0,200))
   SetObjectTransparency(o,1)
   setobjectalpha(o,40)
next

`camera setup
SetCameraPosition(1,0,-50,-190)
SetCameraLookAt(1,0,0,0,0)

rott#=180  `starting rotation
b=1
up=1
do
	`sensor
	setobjectposition(1000,getobjectx(5),getobjecty(5),getobjectz(5))
	setobjectlookat(1000,getcamerax(1),getobjecty(5),getcameraz(1),0)
	
	turn#=getobjectangley(1000)  
	if rott#<turn#+la# then inc rott#,0.5
	if rott#>turn#+la# then dec rott#,0.5
	
	`our fish
	setobjectrotation(5,0,rott#-20+la#+180,0)
	setobjectposition(5,0,su#,0) 
	
	`animation
   if b=1 then la#=la#+1
   if la#>20 then b=2
   if b=2 then la#=la#-1
   if la#<0 then b=1
   
   if up=1 then su#=su#+0.5
   if su#>70 then up=2
   if up=2 then su#=su#-0.5
   if su#<0 then up=1
   
   `wings
   setobjectrotation(9,10,-45+RANDOM(0,10),0)
   setobjectrotation(8,10,45+RANDOM(0,10),0)
   
	`eye controls
    x#=getcamerax(1)
    y#=getcameray(1)-su#*2
    z#=getcameraz(1)
    
	SetObjectLookAt(1,-x#,-y#,-z#,0)
    SetObjectLookAt(2,-x#,-y#,-z#,0)
    SetObjectLookAt(3,40-x#,-y#,-z#,0)
    SetObjectLookAt(4,40-x#,-y#,-z#,0)
           
    
    `bubbles animation
    for i= 1001 to 1300
		moveobjectlocaly(i,2)
		if getobjecty(i)>100 then setobjectposition(i,getobjectx(i),-100,getobjectz(i))
    next
    
    
    `CAMERA
     if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 3 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -3 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -3 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 3  )
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
	 
	print("Fly with cursors")
	for i= 1 to 20
		print("")
	next

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: bubbles
// Created: 2018-12-15

// show all errors
SetErrorMode(2)

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

`getting some images
skin=makecolor(180,130,90)
drawbox(0,0,50,45,skin,skin,skin,skin,1)
drawbox(0,60,50,100,skin,skin,skin,skin,1)
getimage(1,0,0,50,100)

wt=makecolor(255,255,255)
drawbox (0,0,100,100,wt,wt,wt,wt,1)
blue=makecolor(80,80,250)
DrawEllipse(50,50,7,7,blue,blue,1)
getimage(2,0,0,100,100)

`modeling prota
CreateObjectSphere(1,20,20,20)
setobjectimage(1,1,0)
SetObjectTransparency(1,1)

cloneobject(3,1)
setobjectposition(3,25,0,0)

CreateObjectSphere(2,19,20,20)
setobjectimage(2,2,0)

cloneobject(4,2)
setobjectposition(4,25,0,0)

CreateObjectSphere(5,100,20,20)
SetObjectColor(5,180,130,90,0)
setobjectposition(5,12.5,-30,32)
fixobjectpivot(5)


for i= 1 to 4
  FixObjectToObject(i,5)
next

`lips
cloneobject(6,5)
setobjectscale(6,0.8,0.2,0.8)
setobjectposition(6,2,-10,-10)
setobjectcolor(6,200,0,0,0)
cloneobject(7,6)
setobjectposition(7,2,-15,-10)
setobjectrotation(6,-10,0,0)
setobjectrotation(7,-10,0,0)
FixObjectToObject(6,5)
fixobjecttoobject(7,5)

createobjectbox(8,100,40,2)
setobjectcolor(8,0,255,0,0)
setobjectposition(8,-30,-15,32)

fixobjecttoobject(8,5)
cloneobject(9,8)
setobjectposition(9,55,-15,32)
fixobjecttoobject(9,5)
setobjectrotation(9,10,-45,0)
setobjectrotation(8,10,45,0)

createobjectcone(10,40,20,12)
setobjectcolor(10,0,0,0,0)
setobjectposition(10,12,-50,-20)
setobjectrotation(10,-130,0,0)
fixobjecttoobject(10,5)

`our Sky
createobjectSphere(4000,1000,20,20)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)

`sensor
createobjectbox(1000,0,0,0)


`bubbles
o=1000
for i= 1 to 300
   inc o
   createobjectsphere(o,5,10,10)
   setobjectposition(o,-100+random(0,200),-100+random(0,200),-100+random(0,200))
   SetObjectTransparency(o,1)
   setobjectalpha(o,40)
next

`camera setup
SetCameraPosition(1,0,-50,-190)
SetCameraLookAt(1,0,0,0,0)

rott#=180  `starting rotation
b=1
up=1
do
	`sensor
	setobjectposition(1000,getobjectx(5),getobjecty(5),getobjectz(5))
	setobjectlookat(1000,getcamerax(1),getobjecty(5),getcameraz(1),0)
	
	turn#=getobjectangley(1000)  
	if rott#<turn#+la# then inc rott#,0.5
	if rott#>turn#+la# then dec rott#,0.5
	
	`our fish
	setobjectrotation(5,0,rott#-20+la#+180,0)
	setobjectposition(5,0,su#,0) 
	
	`animation
   if b=1 then la#=la#+1
   if la#>20 then b=2
   if b=2 then la#=la#-1
   if la#<0 then b=1
   
   if up=1 then su#=su#+0.5
   if su#>70 then up=2
   if up=2 then su#=su#-0.5
   if su#<0 then up=1
   
   `wings
   setobjectrotation(9,10,-45+RANDOM(0,10),0)
   setobjectrotation(8,10,45+RANDOM(0,10),0)
   
	`eye controls
    x#=getcamerax(1)
    y#=getcameray(1)-su#*2
    z#=getcameraz(1)
    
	SetObjectLookAt(1,-x#,-y#,-z#,0)
    SetObjectLookAt(2,-x#,-y#,-z#,0)
    SetObjectLookAt(3,40-x#,-y#,-z#,0)
    SetObjectLookAt(4,40-x#,-y#,-z#,0)
           
    
    `bubbles animation
    for i= 1001 to 1300
		moveobjectlocaly(i,2)
		if getobjecty(i)>100 then setobjectposition(i,getobjectx(i),-100,getobjectz(i))
    next
    
    
    `CAMERA
     if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 3 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -3 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -3 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 3  )
	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
	 
	print("Fly with cursors")
	for i= 1 to 20
		print("")
	next 

    Print( ScreenFPS() )
    Sync()
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 16th Dec 2018 22:13

Link

im drowning - yikes. let there be air. pleeeeese

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 16th Dec 2018 22:13 Edited at: 16th Dec 2018 22:17

Link

Looks good

not sure what kind of fish that is looks to me like Mr potato head not sure if you know about him

but it is very well built without media and looks cute

fubar

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 17th Dec 2018 19:33

Link

Thankyou guys for your comments.

Quote: "
looks to me like Mr potato head not sure if you know about him
"

Yeah ...you meant the one from Toy Story right? ...for next weekend I will have a nice Mr Potato made just with Appgamekit

I'm not a grumpy grandpa

Back to top

Profile PM Email

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 21st Dec 2018 22:35

Link

Hi there . This my first attempt to make a Mr Potato . update coming soon

// Project: Mr Potato 
// Created: 2018-12-21

// show all errors
SetErrorMode(2)

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

`body
CreateObjectSphere(1,30,15,15)
setobjectcolor(1,63,20,0,0)
`creamos un malla para el objeto 1
mesh = CreateMemblockFromObjectMesh(1,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>6 then SetMeshMemblockVertexPosition(mesh,i,x#*0.9,y#+y#*1,z#*0.9)
 next
 SetObjectMeshFromMemblock(1,1,mesh)
 
 setobjectimage(1,1,0)
 `--------------------------------------------------------------------------------
 `hat
 createobjectsphere(2,12,15,15)
 setobjectposition(2,0,25.5,0)
 setobjectcullmode(2,0)
 setobjectcolor(2,0,0,0,0)
 setobjectrotation(2,0,0,2)
 
 mesh = CreateMemblockFromObjectMesh(2,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)

if y#<0 then SetMeshMemblockVertexPosition(mesh,i,x#*1.5,0,z#*1.5)
	 if y#<-1 then SetMeshMemblockVertexPosition(mesh,i,x#*1.7,2,z#*1.7)
 next
 SetObjectMeshFromMemblock(2,1,mesh)

`-------------------------------------------------------------------------------------
`eye
gosub texture
createobjectsphere(3,5,15,15)
setobjectimage(3,1,0)
setobjectrotation(3,-75,0,0)
setobjectscale(3,1,1,1.5)
fixobjectpivot(3)
setobjectposition(3,-2,18,-9)
`--
cloneobject(4,3)
setobjectposition(4,2,18,-9)

`-------------------------------------------------------------------------------------
`shoe
createobjectsphere(5,14,15,15)
setobjectposition(5,-5,-18,-5)
setobjectcolor(5,30,30,250,0)
setobjectscale(5,1,1,2)

mesh = CreateMemblockFromObjectMesh(5,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#<0 then SetMeshMemblockVertexPosition(mesh,i,0,0,0)
	 if y#<0 then SetMeshMemblockVertexNormal(mesh,i,0,0,-1)
 next

SetObjectMeshFromMemblock(5,1,mesh)

cloneobject(6,5)
setobjectposition(6,5,-18,-5)
setobjectrotation(5,0,13,0)
setobjectrotation(6,0,-13,0)

`----------------------------------------------------------------------------------
`ears
createobjectsphere(7,10,15,15)
setobjectscale(7,0.8,1,0.3)
setobjectposition(7,-13,18,-2)
setobjectcolor(7,255,180,255,0)

`---
cloneobject(8,7)
setobjectposition(8,13,18,-2)
setobjectrotation(7,0,0,-25)
setobjectrotation(8,0,0,25)

`-----------------------------------------------------------------------------------
`nose
createobjectsphere(9,5,15,15)
mesh = CreateMemblockFromObjectMesh(9,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>1 then SetMeshMemblockVertexPosition(mesh,i,x#*0.7,y#*1.5,z#*0.7)
     if y#<1 then SetMeshMemblockVertexPosition(mesh,i,x#*1.2,y#*1.5,z#*1.5)
 next

SetObjectMeshFromMemblock(9,1,mesh)
setobjectposition(9,0,12,-12)
setobjectcolor(9,255,155,0,0)

`--------------------------------------------------------
`moustach
n=9
for i= 1 to 8
	inc n
	createobjectsphere(n,5,6,6)
	setobjectposition(n,-4+i*0.9,7,-13)
	setobjectrotation(n,0,0,-50+i*12)
	setobjectscale(n,0.5,1,1)
	setobjectcolor(n,0,0,0,0)
next

`---------------------------------------------------------
`right hand
createobjectsphere(18,4,6,10)
setobjectscale(18,1,3,1)
fixobjectpivot(18)
mesh = CreateMemblockFromObjectMesh(18,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>2 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.7)+5,10,z#*0.7)
     if y#<-3 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.5)+5,-15,z#*0.5)
  next

SetObjectMeshFromMemblock(18,1,mesh)

setobjectposition(18,-18,12,-7)
setobjectrotation(18,135,0,-20)
fixobjectpivot(18)

`--- left hand
createobjectsphere(19,4,6,10)
setobjectscale(19,1,3,1)
fixobjectpivot(19)
mesh = CreateMemblockFromObjectMesh(19,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>2 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.7)-5,10,z#*0.7)
     if y#<-3 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.5)-5,-15,z#*0.5)
  next

SetObjectMeshFromMemblock(19,1,mesh)

setobjectposition(19,18,12,-7)
setobjectrotation(19,135,0,20)
fixobjectpivot(19)

`unifying objects
for i= 2 to 19
	fixobjecttoobject(i,1)
next

`our Sky
createobjectsphere(4000,31000,20,20)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)

SetCameraPosition(1,0,30,-80)
SetCameraLookAt(1,0,0,0,0)
SetCameraRange(1,1,100000)
v=0
do
 gosub camara
    g=g+2
    setobjectrotation(1,g,g,g)
    
    Print( ScreenFPS() )
    print(v)
    Sync()
loop

texture:
`eyes
wt=makecolor(255,255,255)
drawbox(0,3,30,30,wt,wt,wt,wt,1)
getimage(1,0,0,30,30)

return

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha

if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

+ Code Snippet

// Project: Mr Potato 
// Created: 2018-12-21

// show all errors
SetErrorMode(2)

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

`body
CreateObjectSphere(1,30,15,15)
setobjectcolor(1,63,20,0,0)
`creamos un malla para el objeto 1
mesh = CreateMemblockFromObjectMesh(1,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>6 then SetMeshMemblockVertexPosition(mesh,i,x#*0.9,y#+y#*1,z#*0.9)
 next
 SetObjectMeshFromMemblock(1,1,mesh)
 
 setobjectimage(1,1,0)
 `--------------------------------------------------------------------------------
 `hat
 createobjectsphere(2,12,15,15)
 setobjectposition(2,0,25.5,0)
 setobjectcullmode(2,0)
 setobjectcolor(2,0,0,0,0)
 setobjectrotation(2,0,0,2)
 
 mesh = CreateMemblockFromObjectMesh(2,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 

	 if y#<0 then SetMeshMemblockVertexPosition(mesh,i,x#*1.5,0,z#*1.5)
	 if y#<-1 then SetMeshMemblockVertexPosition(mesh,i,x#*1.7,2,z#*1.7)
 next
 SetObjectMeshFromMemblock(2,1,mesh)

`-------------------------------------------------------------------------------------
`eye
gosub texture
createobjectsphere(3,5,15,15)
setobjectimage(3,1,0)
setobjectrotation(3,-75,0,0)
setobjectscale(3,1,1,1.5)
fixobjectpivot(3)
setobjectposition(3,-2,18,-9)
`--
cloneobject(4,3)
setobjectposition(4,2,18,-9)


`-------------------------------------------------------------------------------------
`shoe
createobjectsphere(5,14,15,15)
setobjectposition(5,-5,-18,-5)
setobjectcolor(5,30,30,250,0)
setobjectscale(5,1,1,2)

mesh = CreateMemblockFromObjectMesh(5,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#<0 then SetMeshMemblockVertexPosition(mesh,i,0,0,0)
	 if y#<0 then SetMeshMemblockVertexNormal(mesh,i,0,0,-1)
 next

SetObjectMeshFromMemblock(5,1,mesh)

cloneobject(6,5)
setobjectposition(6,5,-18,-5)
setobjectrotation(5,0,13,0)
setobjectrotation(6,0,-13,0)

`----------------------------------------------------------------------------------
`ears
createobjectsphere(7,10,15,15)
setobjectscale(7,0.8,1,0.3)
setobjectposition(7,-13,18,-2)
setobjectcolor(7,255,180,255,0)

`---
cloneobject(8,7)
setobjectposition(8,13,18,-2)
setobjectrotation(7,0,0,-25)
setobjectrotation(8,0,0,25)

`-----------------------------------------------------------------------------------
`nose
createobjectsphere(9,5,15,15)
mesh = CreateMemblockFromObjectMesh(9,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>1 then SetMeshMemblockVertexPosition(mesh,i,x#*0.7,y#*1.5,z#*0.7)
     if y#<1 then SetMeshMemblockVertexPosition(mesh,i,x#*1.2,y#*1.5,z#*1.5)
 next

SetObjectMeshFromMemblock(9,1,mesh)
setobjectposition(9,0,12,-12)
setobjectcolor(9,255,155,0,0)

`--------------------------------------------------------
`moustach
n=9
for i= 1 to 8
	inc n
	createobjectsphere(n,5,6,6)
	setobjectposition(n,-4+i*0.9,7,-13)
	setobjectrotation(n,0,0,-50+i*12)
	setobjectscale(n,0.5,1,1)
	setobjectcolor(n,0,0,0,0)
next


`---------------------------------------------------------
`right hand
createobjectsphere(18,4,6,10)
setobjectscale(18,1,3,1)
fixobjectpivot(18)
mesh = CreateMemblockFromObjectMesh(18,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>2 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.7)+5,10,z#*0.7)
     if y#<-3 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.5)+5,-15,z#*0.5)
  next

SetObjectMeshFromMemblock(18,1,mesh)

setobjectposition(18,-18,12,-7)
setobjectrotation(18,135,0,-20)
fixobjectpivot(18)

`--- left hand
createobjectsphere(19,4,6,10)
setobjectscale(19,1,3,1)
fixobjectpivot(19)
mesh = CreateMemblockFromObjectMesh(19,1)
`get vertex quantity
 verts= GetMemblockInt( mesh, 0 )

 for i= 0 to verts-1
	 x#=GetMeshMemblockVertexX(mesh,i)
	 y#=GetMeshMemblockVertexy(mesh,i)
	 z#=GetMeshMemblockVertexz(mesh,i)	 
	 if y#>2 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.7)-5,10,z#*0.7)
     if y#<-3 then SetMeshMemblockVertexPosition(mesh,i,(x#*0.5)-5,-15,z#*0.5)
  next

SetObjectMeshFromMemblock(19,1,mesh)

setobjectposition(19,18,12,-7)
setobjectrotation(19,135,0,20)
fixobjectpivot(19)







`unifying objects
for i= 2 to 19
	fixobjecttoobject(i,1)
next



`our Sky
createobjectsphere(4000,31000,20,20)
SetObjectCullMode(4000,0)
SetObjectColor(4000,100,100,255,0)

SetCameraPosition(1,0,30,-80)
SetCameraLookAt(1,0,0,0,0)
SetCameraRange(1,1,100000)
v=0
do
 gosub camara
    g=g+2
    setobjectrotation(1,g,g,g)
    
    Print( ScreenFPS() )
    print(v)
    Sync()
loop

texture:
`eyes
wt=makecolor(255,255,255)
drawbox(0,3,30,30,wt,wt,wt,wt,1)
getimage(1,0,0,30,30)

return

camara:
	 if ( GetRawKeyState( 38 ) ) then MoveCameraLocalZ( 1, 1 )  // cursor up
	 if ( GetRawKeyState( 40 ) ) then MoveCameraLocalZ( 1, -1 ) // cursor down
	 if ( GetRawKeyState( 37 ) ) then MoveCameraLocalX( 1, -1 ) // cursor iz
	 if ( GetRawKeyState( 39 ) ) then MoveCameraLocalX( 1, 1 )  // cursor derecha 

	 if ( GetPointerPressed() )
		startx# = GetPointerX()
		starty# = GetPointerY()
		angx# = GetCameraAngleX(1)
		angy# = GetCameraAngleY(1)
		pressed = 1
	 endif

	 if ( GetPointerState() = 1 )
		fDiffX# = (GetPointerX() - startx#)/1.0
		fDiffY# = (GetPointerY() - starty#)/1.0

		newX# = angx# + fDiffY#
		if ( newX# > 89 ) then newX# = 89
		if ( newX# < -89 ) then newX# = -89
		SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
	 endif
return

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Dec 2018 02:15

Link

Mr Potato is looking good
Quite a talent in creating objects from code, The beauty being its great to export snippets like this without media
I try and do that when I can with 2D and 3D creating its media but only when I foresee it as a possibility and not
requiring to much work. My 3d Night driving code created all of its media from code, right down to vertex manipulation
and any beginner modeller could've created the media in tenth the time it took me in a modelling program. If you look
at my snippets thread I created a fractal tree from code for a forum comp. It was a 2D fractally generated tree that
was placed onto several planes to create a 3d tree

Puzzler also likes to create his media with code.

fubar

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Dec 2018 12:38

Link

@fubarpk Thanks for your comments . I use Appgamekit just for fun, and its like a challenge averyday . I'm learning the Agk code that differs from Dbpro . There are lots of things that I can't jet do with this lenguage as it lacks fo lots of useful Dbpro commands .
I've seen your 3d Night driving code ...the last one is awesome . I saw many of your good codes like the "jumping throug flaming hoops ...the one with the brake ligths is amazing ....I would like to manage shader one day . I couldn't find your fractal tree

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Dec 2018 14:41

Link

The tree is about halfway down the thread below
https://forum.thegamecreators.com/thread/222027

I used to play with DBPro myself was a very powerful language and then I got into GDK sadly they stopped developing that as it was quite fast

fubar

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Dec 2018 15:22 Edited at: 22nd Dec 2018 15:23

Link

@fubarpk Hey... Lol it looks like my paraglider . Nice effect

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Bubbles