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

                                    ` 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

do

	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