TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Info
Code
Shot
Author

Information

Uploaded: 25th Sep 2003 19:34

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

Flying into a 2D starfield. Change stars value for more/less and the slide value for more/less distortion.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

`	3D Starfield                                  DarkForge Snippet 27/9/2000

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

`	Flying into a 2D starfield. Change stars value for more/less and the

`	slide value for more/less distortion.

sync rate 0

sync on

hide mouse

randomize timer()

create bitmap 1,640,480

stars=500

dim x#(stars)

dim y#(stars)

for i = 1 to stars

x#(i)=rnd(640.0)-320.0

y#(i)=rnd(480.0)-240.0

next i

sx#=1.03985 : sy#=1.03985

slidex#=320.0 : slidey#=240.0

ink rgb(255,255,255),0

cls 0

for j=1 to stars

dot x#(j)+slidex#,y#(j)+slidey#

x#(j)=x#(j)*sx#

y#(j)=y#(j)*sy#

if x#(j) > 640.0 then x#(j)=x#(j)-640.0

if y#(j) > 480.0 then y#(j)=y#(j)-480.0

if x#(j) < -640.0 then x#(j)=x#(j)+640.0

if y#(j) < -480.0 then y#(j)=y#(j)+480.0

next j

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

AppGameKit Classic to be retired

Wed, 24th April 2024 1:05 PM

GameGuru MAX Low Poly Mini Kit - Undead Quarry Released!

Tue, 23rd April 2024 3:27 PM

GameGuru MAX performance improvements - it's now better and faster!

Fri, 12th April 2024 8:18 PM

GameGuru MAX Medieval Melee Weapons Booster Pack released!

Thu, 11th April 2024 2:55 PM

AppGameKit Studio 2024.04.10 update released!

Wed, 10th April 2024 7:22 PM

Community

AppGameKit Forum

GameCreators Forum

GameGuru Forum

CodeBase - 3D Starfield