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 "

                                    ` 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

do

	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