TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Demos

Version: 1.0

Info
Code
Shot
Author

Information

Uploaded: 29th Sep 2003 14:09

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

Old Amiga demo effect re-done in DB, simple but effective.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

`	Mirror Ball                                           DarkForge 13/2/2001

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

`	Old Amiga demo effect re-done in DB, simple but effective.

sync rate 0

sync on

hide mouse

load image "raball2.bmp",1

load image "raball_shadow2.bmp",2

create bitmap 1,640,480

for a = 1 to 51

ink rgb(a/2,a/2,25+a),0

line 0,a,639,a

next a

get image 3,0,0,640,50

flip bitmap 1

get image 4,0,430,640,480

x# = 320 : y# = 100 : a# = 1.5 : j = 0 : vel_y# = 0 : d = 1 : s# = 6

cls

if j = 0

vel_y# = 1.5

j = 1

endif

if j = 1

if vel_y# > -4

vel_y# = vel_y# - a#

y# = y# + sin(vel_y#)*35

else

y# = y# + sin(vel_y#)*35

endif

else

if vel_y# > -4

vel_y# = vel_y# - a#

y# = y# - sin(vel_y#)*30

else

y# = y# - sin(vel_y#)*30

endif

if y# <= 30

vel_y# = 0

j = 2

endif

if y# => 340

j = 1

endif

if d=1 then inc x#,s#

if d=2 then dec x#,s#

if x# => 528

d = 2

endif

if x# <= 0

d=1

endif

paste image 3,0,430

paste image 4,0,0

paste image 1,x#,y#,1

paste image 2,x#,530-y#/4,1

paste image 2,x#,-10-y#/4,1

copy bitmap 1,0

sync

loop

Download

Please login to download

Screen Shot

No images yet

Author

Author Name:	Richard Davey
CodeBase Entries:	57

Comments

No comments yet.

Latest News

GameGuru MAX Modern Day Booster Pack - Old Mines released

Thu, 21st November 2024 6:54 PM

GameGuru MAX Horror Booster Pack - Aslyum Furnishings

Thu, 14th November 2024 10:47 PM

GameGuru MAX Mini Kit - Old Furniture

Thu, 17th October 2024 11:58 PM

GameGuru MAX Steampunk Booster Pack - Industry

Wed, 9th October 2024 12:30 AM

GameGuru MAX - September update released!

Tue, 24th September 2024 4:13 PM

Community

AppGameKit Forum

GameCreators Forum

GameGuru Forum

CodeBase - Mirror Ball

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments