Simple no-media chain (DBP) - GameCreators Forum

Author

Message

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 5th Mar 2007 17:45 Edited at: 29th Oct 2007 21:01

Link

Hi,

This is a fairly simple chain effect that I just put together:

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 22,100
for x=1 to 21
make object cube x,50
next x

position camera 500,250,-500

do

set camera to follow object position x(11),object position y(22),object position z(22),object angle y(22),600,700,1700,0
point camera object position x(22),object position y(11),object position z(22)

mouseobjectmovement(22)

for x=1 to 21
chain(x,x+1,50,5,1)
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

+ Code Snippet

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 22,100
for x=1 to 21
make object cube x,50
next x

position camera 500,250,-500

do

set camera to follow object position x(11),object position y(22),object position z(22),object angle y(22),600,700,1700,0
point camera object position x(22),object position y(11),object position z(22)

mouseobjectmovement(22)


for x=1 to 21
chain(x,x+1,50,5,1)
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

If anyone needs some help understanding it, just ask.

Comments welcome.

print rnd(20)/0

Attachments

Login to view attachments

Back to top

Profile PM

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Mar 2007 09:58

Link

That's pretty cool! With a couple minor changes it works in DBC too:

sync on
sync rate 60
hide mouse
autocam off

make matrix 1,1000,1000,20,20
make object cone 22,100

for x=1 to 21
   make object cube x,50
next x

position camera 500,250,-500

do

set camera to follow object position x(11),object position y(22),object position z(22),object angle y(22),600,700,1700,0
   point camera object position x(22),object position y(11),object position z(22)

mouseobjectmovement(22)

for x=1 to 21
      chain(x,x+1,50.0,5.0,1)
   next x

sync
loop

end

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
   if object position x(leadobj)=>object position x(chainnumber)
      d1#=object position x(leadobj)-object position x(chainnumber)
   else
      d1#=object position x(chainnumber)-object position x(leadobj)
   endif

if object position y(leadobj)=>object position y(chainnumber)
      d2#=object position y(leadobj)-object position y(chainnumber)
   else
      d2#=object position y(chainnumber)-object position y(leadobj)
   endif

if object position z(leadobj)=>object position z(chainnumber)
      d3#=object position z(leadobj)-object position z(chainnumber)
   else
      d3#=object position z(chainnumber)-object position z(leadobj)
   endif
   d1#=d1# ^ 2
   d2#=d2# ^ 2
   d3#=d3# ^ 2
   d1#=d1#+d2#+d3#
   d2#=sqrt(d1#)

if d2#=>stretchiness#
      point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
      move object chainnumber,stretchiness_speed#
   endif
endfunction

function mouseobjectmovement(obj)
   position object obj,object position x(obj)+mousemovex(),object position y(obj),object position z(obj)
   move object obj,-1*mousemovey()
endfunction

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam off

make matrix 1,1000,1000,20,20
make object cone 22,100

for x=1 to 21
   make object cube x,50
next x

position camera 500,250,-500

do

   set camera to follow object position x(11),object position y(22),object position z(22),object angle y(22),600,700,1700,0
   point camera object position x(22),object position y(11),object position z(22)

   mouseobjectmovement(22)

   for x=1 to 21
      chain(x,x+1,50.0,5.0,1)
   next x

sync
loop

end

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
   if object position x(leadobj)=>object position x(chainnumber)
      d1#=object position x(leadobj)-object position x(chainnumber)
   else
      d1#=object position x(chainnumber)-object position x(leadobj)
   endif

   if object position y(leadobj)=>object position y(chainnumber)
      d2#=object position y(leadobj)-object position y(chainnumber)
   else
      d2#=object position y(chainnumber)-object position y(leadobj)
   endif

   if object position z(leadobj)=>object position z(chainnumber)
      d3#=object position z(leadobj)-object position z(chainnumber)
   else
      d3#=object position z(chainnumber)-object position z(leadobj)
   endif
   d1#=d1# ^ 2
   d2#=d2# ^ 2
   d3#=d3# ^ 2
   d1#=d1#+d2#+d3#
   d2#=sqrt(d1#)

   if d2#=>stretchiness#
      point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
      move object chainnumber,stretchiness_speed#
   endif
endfunction

function mouseobjectmovement(obj)
   position object obj,object position x(obj)+mousemovex(),object position y(obj),object position z(obj)
   move object obj,-1*mousemovey()
endfunction

Enjoy your day.

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 7th Mar 2007 12:01 Edited at: 7th Mar 2007 12:49

Link

Glad you like it!
Thanks for making it DBC too.

I wonder if a game could be made out of it? Maybe something to do with a snake.

EDIT:
I just edited the DBC code you made (so that it can hopefully work in both languages) to make the chain into a snake!

sync on
sync rate 60
hide mouse
autocam off

make matrix 1,1000,1000,20,20
make object sphere 22,210
scale object 22,100,100,200
color object 22,rgb(10,100,50)

for x=1 to 21
   make object sphere x,x*10
color object x,rgb(10,100,50)
next x

do

set camera to follow object position x(22),object position y(22),object position z(22),object angle y(22),700,800,17,0
   point camera object position x(22),object position y(22),object position z(22)

if upkey()=1 then move object 22,5.0
   if leftkey()=1 then yrotate object 22,object angle y(22)-1.5
   if rightkey()=1 then yrotate object 22,object angle y(22)+1.5

for x=1 to 21
      chain(x,x+1,50.0,5.0,1)
   next x

sync
loop

end

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
   if object position x(leadobj)=>object position x(chainnumber)
      d1#=object position x(leadobj)-object position x(chainnumber)
   else
      d1#=object position x(chainnumber)-object position x(leadobj)
   endif

if object position y(leadobj)=>object position y(chainnumber)
      d2#=object position y(leadobj)-object position y(chainnumber)
   else
      d2#=object position y(chainnumber)-object position y(leadobj)
   endif

if object position z(leadobj)=>object position z(chainnumber)
      d3#=object position z(leadobj)-object position z(chainnumber)
   else
      d3#=object position z(chainnumber)-object position z(leadobj)
   endif
   d1#=d1# ^ 2
   d2#=d2# ^ 2
   d3#=d3# ^ 2
   d1#=d1#+d2#+d3#
   d2#=sqrt(d1#)

if d2#=>stretchiness#
      point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
      move object chainnumber,stretchiness_speed#
   endif
endfunction

function mouseobjectmovement(obj)
   position object obj,object position x(obj)+mousemovex(),object position y(obj),object position z(obj)
   move object obj,-1*mousemovey()
endfunction

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam off

make matrix 1,1000,1000,20,20
make object sphere 22,210
scale object 22,100,100,200
color object 22,rgb(10,100,50)

for x=1 to 21
   make object sphere x,x*10
color object x,rgb(10,100,50)
next x



do

   set camera to follow object position x(22),object position y(22),object position z(22),object angle y(22),700,800,17,0
   point camera object position x(22),object position y(22),object position z(22)

   if upkey()=1 then move object 22,5.0
   if leftkey()=1 then yrotate object 22,object angle y(22)-1.5
   if rightkey()=1 then yrotate object 22,object angle y(22)+1.5

   for x=1 to 21
      chain(x,x+1,50.0,5.0,1)
   next x

sync
loop

end

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
   if object position x(leadobj)=>object position x(chainnumber)
      d1#=object position x(leadobj)-object position x(chainnumber)
   else
      d1#=object position x(chainnumber)-object position x(leadobj)
   endif

   if object position y(leadobj)=>object position y(chainnumber)
      d2#=object position y(leadobj)-object position y(chainnumber)
   else
      d2#=object position y(chainnumber)-object position y(leadobj)
   endif

   if object position z(leadobj)=>object position z(chainnumber)
      d3#=object position z(leadobj)-object position z(chainnumber)
   else
      d3#=object position z(chainnumber)-object position z(leadobj)
   endif
   d1#=d1# ^ 2
   d2#=d2# ^ 2
   d3#=d3# ^ 2
   d1#=d1#+d2#+d3#
   d2#=sqrt(d1#)

   if d2#=>stretchiness#
      point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
      move object chainnumber,stretchiness_speed#
   endif
endfunction

function mouseobjectmovement(obj)
   position object obj,object position x(obj)+mousemovex(),object position y(obj),object position z(obj)
   move object obj,-1*mousemovey()
endfunction

-Twu Kai

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 9th Mar 2007 23:40

Link

Pretty nice

I edited the original one

It has more things at the end and it's made of spheres now.

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 211,100
for x=1 to 210
make object sphere x,50
color object x,rgb(rnd(255),rnd(155),rnd(155))
next x

position camera 500,250,-500

do

set camera to follow object position x(11),object position y(211),object position z(211),object angle y(211),600,700,1700,0
point camera object position x(211),object position y(11),object position z(211)

mouseobjectmovement(211)

for x=1 to 210
chain(x,x+1,50,5,1)
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

+ Code Snippet

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 211,100
for x=1 to 210
make object sphere x,50
color object x,rgb(rnd(255),rnd(155),rnd(155))
next x

position camera 500,250,-500

do

set camera to follow object position x(11),object position y(211),object position z(211),object angle y(211),600,700,1700,0
point camera object position x(211),object position y(11),object position z(211)

mouseobjectmovement(211)


for x=1 to 210
chain(x,x+1,50,5,1)
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

Back to top

Profile PM Email

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 11th Mar 2007 15:55 Edited at: 11th Mar 2007 15:56

Link

Hehe, colourful! And long.

Here's the same one, with automatic collision. You can make knots!

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 211,100
for x=1 to 210
make object sphere x,50
color object x,rgb(rnd(255),rnd(155),rnd(155))
next x

position camera 500,250,-500

do

set camera to follow object position x(211),object position y(211),object position z(211),object angle y(211),600,700,1,0
point camera object position x(211),object position y(211),object position z(211)

mouseobjectmovement(211)

if mouseclick()=1 then move object up 211,2
if mouseclick()=2 then move object down 211,2

for x=1 to 210
chain(x,x+1,50,2,1)
automatic object collision x,25,0
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

+ Code Snippet

sync on
sync rate 60
hide mouse

autocam off

make matrix 1,1000,1000,20,20
make object cone 211,100
for x=1 to 210
make object sphere x,50
color object x,rgb(rnd(255),rnd(155),rnd(155))
next x

position camera 500,250,-500

do

set camera to follow object position x(211),object position y(211),object position z(211),object angle y(211),600,700,1,0
point camera object position x(211),object position y(211),object position z(211)

mouseobjectmovement(211)

if mouseclick()=1 then move object up 211,2
if mouseclick()=2 then move object down 211,2


for x=1 to 210
chain(x,x+1,50,2,1)
automatic object collision x,25,0
next x
sync
loop

function chain(chainnumber,leadobj,stretchiness#,stretchiness_speed#,update)
if object position x(leadobj)=>object position x(chainnumber)
d1#=object position x(leadobj)-object position x(chainnumber)
else
d1#=object position x(chainnumber)-object position x(leadobj)
endif
if object position y(leadobj)=>object position y(chainnumber)
d2#=object position y(leadobj)-object position y(chainnumber)
else
d2#=object position y(chainnumber)-object position y(leadobj)
endif
if object position z(leadobj)=>object position z(chainnumber)
d3#=object position z(leadobj)-object position z(chainnumber)
else
d3#=object position z(chainnumber)-object position z(leadobj)
endif
d1#=d1# ^ 2
d2#=d2# ^ 2
d3#=d3# ^ 2
d1#=d1#+d2#+d3#
d2#=sqrt(d1#)

if d2#=>stretchiness#
point object chainnumber,object position x(leadobj),object position y(leadobj),object position z(leadobj)
move object chainnumber,stretchiness_speed#
endif
endfunction

function mouseobjectmovement(obj)
move object right obj,mousemovex()
move object obj,-mousemovey()
endfunction

sync

Here's a picture of a knot.

-Twu Kai

Attachments

Login to view attachments

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 14th Mar 2007 03:09

Link

Cool. I never knew the "Automatic Object Collision" command could do that.

Back to top

Profile PM Email

alucart13

17

Years of Service

User Offline

Joined: 16th Jun 2007

Location:

Posted: 18th Jun 2007 23:37

Link

Neat thanks

+ Code Snippet

 Bring the fire, as I fall into oblivion I'll be thinking of you

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Simple no-media chain (DBP)

Attachments

Attachments