TheGameCreators - CodeBase

Category: 2D Effects

Version: 1.0

Information

Uploaded: 25th Sep 2003 19:36

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

Developed on a Pentium3-850 with GeForce 256 DDR but worked okay on less! Needs low resolution for speed though. Press the left and right mouse buttons during the program to "paint" on-screen. Directions are inversed.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`	-------------------------------------------------------------------------

`	Plasma Fire                                   DarkForge Snippet 27/9/2000

`	-------------------------------------------------------------------------

`	Developed on a Pentium3-850 with GeForce 256 DDR but worked okay on less!

`	Needs low resolution for speed though. Press the left and right mouse

`	buttons during the program to "paint" on-screen. Directions are inversed.

set display mode 320,240,16

hide mouse

sync rate 0

sync on

`	Build a small DarkForge logo (image 1)

set text font "Terminal"

for a=1 to 5

ink rgb(25*a,25*a,25*a),0

text a,0,"DARKFORGE"

next a

ink rgb(255,255,255),0

text 5,0,"DARKFORGE"

get image 1,4,1,56,8

cls 0

`	Create our working bitmaps (1 for blur, 2 for flip)

create bitmap 2,180,60

create bitmap 1,180,60

`	Set a few variables, i for ink and fp for firepaint value

i=0

fp=6

position mouse 0,0

set current bitmap 1

for a=0 to 5

if black=1

ink rgb(0,0,0),0

else

`			Uncomment these for various colour effects or make your own!

`			ink rgb(i,75,i/2),0

`			ink rgb(i,10,i/2),0

`			ink rgb(255,i,255),0

`			ink rgb(150+i,50+i,i),0

ink rgb(150+i,50+i,i/2),0

endif

circle rnd(180),0,8

next a

inc i

if i<255 then i=255

inc blacktimer

if blacktimer=350 then black=1

if blacktimer>425

blacktimer=0

black=0

i=0

endif

if mouseclick()=1

mx=mousex()

my=mousey()

ink rgb(155,155,155),0

for a=0 to fp

offset=rnd(12)

box mx+offset,my+offset,(mx+offset)+2,(my+offset)+2

next a

endif

if mouseclick()=2

mx=mousex()

my=mousey()

ink rgb(255,255,255),0

circle mx,my,6

endif

blur bitmap 1,1

copy bitmap 1,0,9,179,59,2,0,0,179,59

flip bitmap 2

copy bitmap 2,0,0,179,59,0,0,0,319,239

set current bitmap 0

paste image 1,0,0

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Plasma Fire

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments