TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 29th Nov 2006 16:39

Modified: 27th May 2008 04:06

Author: bandM

Summary

This code applies noise effect to screen.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Noise Effect - Burak Yazar

`Display

set display mode 1024,768,32

set window on

maximize window

backdrop off

color backdrop rgb(0,0,255)

sync on : sync rate 0

make object cube 1,5

angle#=0

gosub Setup_Noise

gosub Update_Noise

rotate object 1,0,angle#,0

if angle => 360 then angle=0

angle#=angle#+0.1

sync

loop

end

Setup_Noise:

draw sprites last

for Noise_sprite=0 to 4

load image "Noise_Image"+str$(Noise_sprite)+".jpg",Noise_sprite+1002

sprite Noise_sprite+1002,0,0,1002+Noise_sprite

set sprite alpha 1002+Noise_sprite,30

size sprite 1002+Noise_sprite,1024,768

hide sprite 1002+Noise_sprite

next Noise_sprite

Noisecounter=0

return

Update_Noise:

if Noisecounter=>0 and Noisecounter=<3

show sprite 1002

sprite 1002,0,0,1002

hide sprite 1003

hide sprite 1004

hide sprite 1005

hide sprite 1006

endif

if Noisecounter=3 and Noisecounter=<6

hide sprite 1002

show sprite 1003

sprite 1003,0,0,1003

hide sprite 1004

hide sprite 1005

hide sprite 1006

endif

if Noisecounter=6 and Noisecounter=<9

hide sprite 1002

hide sprite 1003

show sprite 1004

sprite 1004,0,0,1004

hide sprite 1005

hide sprite 1006

endif

if Noisecounter=9 and Noisecounter=<12

hide sprite 1002

hide sprite 1003

hide sprite 1004

show sprite 1005

sprite 1005,0,0,1005

hide sprite 1006

endif

if Noisecounter=12 and Noisecounter=<15

hide sprite 1002

hide sprite 1003

hide sprite 1004

hide sprite 1005

show sprite 1006

sprite 1006,0,0,1006

endif

if Noisecounter=>15 then Noisecounter=0

Noisecounter=Noisecounter+1

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Noise Effect

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	bandM
CodeBase Entries:	1