TheGameCreators - CodeBase - Vertical Mayhem

Return to the CodeBase listing

Category: 3D Effects

Version: 1.0

Information

Uploaded: 25th Sep 2003 19:37

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

A subtle but effective plain trick with a bitmap. Turn on/off ghosting or rotation for other styles.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

`	Vertical Mayhem                               DarkForge Snippet 27/9/2000

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

`	A subtle but effective plain trick with a bitmap.

`	Turn on/off ghosting or rotation for other styles.

sync rate 0

sync on

hide mouse

load bitmap "sanctuary_by_thomas.bmp",1

bw=bitmap width(1)

jump=480/12

`	split into 12 chunks

offsety=0

for a=1 to 12

get image a,0,offsety,bw,offsety+jump

inc offsety,jump

next a

set current bitmap 0

autocam off

make object plain 1,80,5

make mesh from object 1,1

delete object 1

make object plain 2,1,1

color object 2,rgb(0,0,0)

dim y(12)

for a=1 to 12

add limb 2,a,1

texture limb 2,a,13-a

offset limb 2,a,0,y,0

y(a)=y

inc y,5

next a

color backdrop rgb(0,0,0)

set ambient light 100

ghost object on 2

position camera 0,27.5,-50

rotate camera 0,0,0

x1#=-100

x2#=100

repeat

for a=1 to 12 step 2

offset limb 2,a,x1#,y(a),0

next a

for a=2 to 12 step 2

offset limb 2,a,x2#,y(a),0

next a

inc x1# : dec x2#

sync

until x2#=-1

sync

rx=0 : p=0

for a=1 to 12

rotate limb 2,a,wrapvalue(rx),0,0

next a

lx1=limb angle x(2,1)

lx2=limb angle x(2,12)

yrotate object 2,wrapvalue(rx)

inc rx,2

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Vertical Mayhem

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments