[DBC] Motion Blur Cursor - GameCreators Forum

Author

Message

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 29th Jan 2008 11:29 Edited at: 29th Jan 2008 11:42

Link

It might be quite a cool effect for a breakout game or something like that

+ Code Snippet

hide mouse
sync on:sync rate 0

for n = 1 to 25
   ink n*10,0
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      square#(n,x)=curvevalue(mousex(),square#(n,x),26-n)
      square#(n,y)=curvevalue(mousey(),square#(n,y),26-n)
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
   next n

   sync
LOOP

Back to top

Profile PM Email

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 29th Jan 2008 19:47

Link

Nice!

DBPro us3rzzz:

+ Code Snippet

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink n*10,0
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      square#(n,x)=curvevalue(mousex(),square#(n,x),26-n)
      square#(n,y)=curvevalue(mousey(),square#(n,y),26-n)
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
   next n

   sync
LOOP

Am I cool or not? Not really, I just added color backdrop

Nice 1 OBese87!

-Jeff

You're the

'th to view this signature!

Back to top

Profile PM Email

MonoCoder

18

Years of Service

User Offline

Joined: 4th Dec 2005

Location: england

Posted: 30th Jan 2008 01:23

Link

This one will only work in dbp, but builds further on yours.

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink n*10,0
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),26-n)
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),26-n)
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),26-n)
      square#(25,y)=curvevalue(mousey(),square#(25,y),26-n)
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*4, 20
          rotate sprite n, a# + ( n * 30 )
      endif
   next n

sync
LOOP

+ Code Snippet

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink n*10,0
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),26-n)
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),26-n)
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),26-n)
      square#(25,y)=curvevalue(mousey(),square#(25,y),26-n)
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*4, 20
          rotate sprite n, a# + ( n * 30 )
      endif
   next n

   sync
LOOP

Fiddle with the size/rotate sprite lines to change wacky factor.

Shove your shitty MMORPG idea and get me a drink.

Back to top

Profile PM Email

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 30th Jan 2008 17:34

Link

Quote: "
This one will only work in dbp, but builds further on yours.

[CODE SNIPPET]

Fiddle with the size/rotate sprite lines to change wacky factor.

"

Wow, nasty!

Very impressive man!

-Jeff

You're the

'th to view this signature!

Back to top

Profile PM Email

Max Mods

16

Years of Service

User Offline

Joined: 21st Jun 2007

Location: don\'t know

Posted: 1st Feb 2008 02:20 Edited at: 1st Feb 2008 02:28

Link

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink n*32121313313131533213541414143413431317543541341343147,4784540
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),26-n)
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),26-n)
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),26-n)
      square#(25,y)=curvevalue(mousey(),square#(25,y),26-n)
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*4, 20
          rotate sprite n, a# + ( n * 30 )
      endif
   next n

sync
LOOP

+ Code Snippet

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink n*32121313313131533213541414143413431317543541341343147,4784540
   for d = 0 to 8
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

DO
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),26-n)
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),26-n)
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),26-n)
      square#(25,y)=curvevalue(mousey(),square#(25,y),26-n)
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*4, 20
          rotate sprite n, a# + ( n * 30 )
      endif
   next n

   sync
LOOP

Very G@y ?

No god can take me out

Back to top

Profile PM Email

MonoCoder

18

Years of Service

User Offline

Joined: 4th Dec 2005

Location: england

Posted: 1st Feb 2008 23:47

Link

Fancy-ass cursor dragon.

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink rgb( n * 10, n * 4, n * 13 ), 0
   for d = 0 to 8 step ( 1 + ( 2 * ( n <> 25 ) ) )
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

do
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),5-(n/8.0))
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),5-(n/8.0))
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),2-(n/25.0))
      square#(25,y)=curvevalue(mousey(),square#(25,y),2-(n/25.0))
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*1.5, 20
          rotate sprite n, a# + ( n * 90 )
      else
          scale sprite n, 100 + ( cos( timer() / 2 ) * 20 )
      endif
   next n

sync
loop

+ Code Snippet

hide mouse
sync on:sync rate 0
color backdrop rgb(0,0,0)

for n = 1 to 25
   ink rgb( n * 10, n * 4, n * 13 ), 0
   for d = 0 to 8 step ( 1 + ( 2 * ( n <> 25 ) ) )
      circle 10,10,d
      circle 11,10,d
      circle 10,11,d
      circle 11,11,d
   next d
   get image n,0,0,20,20
next n

DIM square#(25,1)
x=0:y=1
cls 0:wait 10

do
   for n = 1 to 25
      if n < 25
      square#(n,x)=curvevalue(square#(n+1,x),square#(n,x),5-(n/8.0))
      square#(n,y)=curvevalue(square#(n+1,y),square#(n,y),5-(n/8.0))
      else
      square#(25,x)=curvevalue(mousex(),square#(25,x),2-(n/25.0))
      square#(25,y)=curvevalue(mousey(),square#(25,y),2-(n/25.0))
      endif
      `bind to screen
      if square#(n,x)>screen width()-20 then square#(n,x)=screen width()-20
      if square#(n,y)>screen height()-20 then square#(n,y)=screen height()-20
      sprite n,square#(n,x),square#(n,y),n
      offset sprite n, 10, 10
      if n < 25
          d# = sqrt( ( ( square#(n+1,x) - square#(n,x) ) ^ 2 ) + ( ( square#(n+1,y) - square#(n,y) ) ^ 2 ) )
          a# = 90 - atanfull( square#(n+1,x) - square#(n,x), square#(n+1,y) - square#(n,y) )
          size sprite n, 20 + d#*1.5, 20
          rotate sprite n, a# + ( n * 90 )
      else
          scale sprite n, 100 + ( cos( timer() / 2 ) * 20 )
      endif
   next n

   sync
loop

Shove your shitty MMORPG idea and get me a drink.

Back to top

Profile PM Email

Paul08

16

Years of Service

User Offline

Joined: 20th Feb 2008

Location: Oxford, UK

Posted: 20th Feb 2008 22:39

Link

nice

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DBC] Motion Blur Cursor