TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Demos

Version: 1.0

Information

Uploaded: 29th Sep 2003 14:09

Modified: 1st Jan 1970 01:00

Author: Richard Davey

Summary

A little sonic inspired intro

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

`	Sonic                                      DarkForge Snippet (20/2/2001)

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

`	A little sonic inspired intro

sync rate 0

sync on

hide mouse

load bitmap "sonic2.bmp",1

`	Each frame is 34x37

get image 1,0,0,34,37

get image 2,34,0,68,37

get image 3,68,0,102,37

get image 4,102,0,136,37

cls

`	Classic blue backdrop

ink rgb(0,0,30),0 : box 0,0,16,16 : box 16,16,32,32

ink rgb(0,0,50),0 : box 0,16,16,32 : box 16,0,32,16

get image 5,0,0,32,32

create bitmap 2,640,480

for y=0 to 480 step 32

for x=0 to 640 step 32

paste image 5,x,y

next x

next y

set gamma 0,0,0

copy bitmap 2,0

repeat

set gamma a,a,a

inc a,5

until a>=255

sx#=-40 : f=1 : s=timer() : y=60 : read t$

sprite 1,sx#,0,1

set sprite 1,0,1

ink rgb(255,255,255),0

set text font "Courier"

create bitmap 3,640,480

copy bitmap 2,3

sprite 1,sx#,y,f

inc sx#,8

if sx#>640

copy bitmap 0,2

read t$

if t$="*" then wait key : end

sx#=-40

inc y,20

endif

if timer()>=s+50

inc f

if f=5 then f=1

s=timer()

endif

text sx#-200,y,t$

copy bitmap 3,0

sync

loop

data "        >>> DARKFORGE"

data ">>> SNIPPETS VOLUME 5"

data ""

data "  www.darkforge.co.uk"

data ""

data "Email:"

data " rich@darkforge.co.uk"

data ""

data "    Yet more snippets"

data "      from the Forge!"

data "Mail me your comments"

data "  and your source for"

data "    Snippets Volume 6"

data ""

data "*"

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Sonictro

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments