TheGameCreators - CodeBase - Introduction to Types

Return to the CodeBase listing

Category: 2D Effects

Version: 1.1

Information

Uploaded: 7th Dec 2005 16:56

Modified: 8th May 2006 01:54

Author: Tobo

Summary

How to create and control multiple items on screen at once.

Full Description

I always found 'types' quite tricky to grasp, and various examples I found were too complicated for me :-( So here, hopefully, is a straight forward example of their power and ease of use.<br /> <br /> For fun, subject to the power of your PC, try upping the 'dim square(50)' value!<br /> <br /> I'm a noob to DBp, so comments very welcome. (I'm not even totally sure what SYNC RATE 60 does! ....although it looks smoother!)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 1024,768,32     `set up the screen W,H,COLOUR DEPTH

sync rate 60

randomize timer()                `without this line, random numbers get predictable

type type_squares                `create new TYPE called TYPE_SQUARES (think of this as the mum)

x as integer                  `set up the variables associated with TYPE_SQUARES (think of these as the kids)

y as integer                  `

xx as integer                 `

yy as integer                 `

red as integer                `

green as integer              `

blue as integer               `

endtype                          `creation over

dim square(50) as type_squares   `set the amount of squares to create (50). Actually it's 51, as I'm sure you've been

`told before, computers count from 0. So 0 to 50 equals 51.

`Each square() we've "DIM'ed" (all 51 of 'em) adopts the variables of the TYPE_SQUARES.

for f = 0 to array count (square(0))

square(f).x = rnd(950)

square(f).y = rnd(700)

square(f).xx = rnd(2)+1

square(f).yy = rnd(2)+1

square(f).red = rnd(255)

square(f).green = rnd(255)

square(f).blue = rnd(255)

next f

repeat

cls

drawsquares()

until spacekey()=1

function drawsquares()

for f=0 to array count (square(0))

ink rgb(square(f).red,square(f).green,square(f).blue),0

box square(f).x,square(f).y,square(f).x+50,square(f).y+50

square(f).x=square(f).x + square(f).xx

square(f).y=square(f).y + square(f).yy

if square(f).x > 951 then square(f).xx = -(rnd(2)+1)

if square(f).x < 1 then square(f).xx = rnd(2)+1

if square(f).y > 701 then square(f).yy = -(rnd(2)+1)

if square(f).y < 1 then square(f).yy = rnd(2)+1

next f

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Tobo
CodeBase Entries:	1

CodeBase - Introduction to Types