TheGameCreators - CodeBase

Category: 2D Effects

Version: 1.2

Information

Uploaded: 12th Sep 2003 13:18

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

Trip back to the ST/Amiga days when distorting effects ruled! This simulates a classic distorter on a 320x240 bitmap. Use the cursor keys to change the step rate and speed of the distort, you can produce some cool effects! Increase the Z value on slower machines.

Full Description

========================================================== A Screaming Product Of The DARKFORGE (www.darkforge.co.uk) ========================================================== Title DarkDistort Version 1.0 Date March 25th 2000 Files darkdistort.dba 1608 Bytes zod4.bmp 230454 Bytes darkdistort.gif 43543 Bytes Programmer Richard Davey rich@fatal-design.com DB Version DarkBasic v1.02 (Registered) License Public Domain Comments Trip back to the ST/Amiga days when distorting effects ruled! This simulates a classic distorter on a 320x240 bitmap. Use the cursor keys to change the step rate and speed of the distort, you can produce some cool effects! Increase the Z value on slower machines. ========================================================== (c) www.darkforge.co.uk 2000 ==========================================================

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

`             DarkDistort v2

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

` By Rich Davey (rich@fatal-design.com)

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

` New version: Massive speed increase!

` Optimised code. Works with a bitmap

` of any size now (>16x16 pixels)

` Uses sprites not bobs :-)

` Music listened  to while  coding this

` Chicane - Behind the Sun CD

` -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

sync rate 0

sync on

hide mouse

`	You can replace this bitmap with any image > 16x16 in size

load bitmap "zod4.bmp",1

bw=bitmap width(1)

bh=bitmap height(1)

if bh<=16 or bw<=16

print "BMP too small to distort properly"

end

endif

`	Change the Z value for a smoother distortion effect

`	it must be a multiple of 2 (i.e. 2, 4, 6, 8, 16)

z=2 : y=0

`	Let's grab our sprites!

for i=1 to bh/z-1

get image i,0,y,bw,y+z

sprite i,-100,-100,i

set sprite i,0,1

inc y,z

next i

delete bitmap 1

`	Set-up the initial values

count=bh/z : step=1 : speed=4 : sx=0

offsetx=(screen width()-bw)/2

offsety=(screen height()-bh)/2

set current bitmap 0

cls 0

for a=1 to count

sprite a,offsetx+cos(wrapvalue(sx+a*step))*100,offsety+(a*z),a

next a

inc sx,speed

if upkey()

inc speed

if speed>64 then speed=64

endif

if downkey()

dec speed

if speed<0 then speed=0

endif

if leftkey()

inc step

if step>16 then step=16

endif

if rightkey()

dec step

if step<0 then step=0

endif

if spacekey() then end

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Dark Distort

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments