TheGameCreators - CodeBase

Category: 2D Effects

Version: 1.0

Information

Uploaded: 6th Oct 2003 10:15

Modified: 6th Oct 2003 12:35

Author: y!Ck

Summary

I just made something for my cousin and thought jou would like to see how you can just make something with alphabetical keys it's actually kinda stupid but i thought i would just put it online here

Full Description

Alright once you push in a alphabetical key you it will draw a little art piece out of 2d pictures without any sprite's or anything it will build it outoff nothing just 2d commands and 2 3d commands specially without a backdrop to make it look good.<br /> <br /> Every key produce's a 2d graphical piece that does'nt look great but i will fix that shortly. like i will give it a very high resolution like something to make it look pretty<br /> well i hope this helps newby's cuz i don't think it will help some already experienced programmers

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

hide mouse

sync

backdrop off

if scancode()=30 then goto lettera

if scancode()=48 then goto letterb

if scancode()=46 then goto letterc

if scancode()=32 then goto letterd

if scancode()=18 then goto lettere

if scancode()=33 then goto letterf

if scancode()=34 then goto letterg

if scancode()=35 then goto letterh

if scancode()=23 then goto letteri

if scancode()=36 then goto letterj

if scancode()=37 then goto letterk

if scancode()=38 then goto letterl

if scancode()=50 then goto letterm

if scancode()=49 then goto lettern

if scancode()=24 then goto lettero

if scancode()=25 then goto letterp

if scancode()=16 then goto letterq

if scancode()=19 then goto letterr

if scancode()=31 then goto letters

if scancode()=20 then goto lettert

if scancode()=22 then goto letteru

if scancode()=47 then goto letterv

if scancode()=17 then goto letterw

if scancode()=45 then goto letterx

if scancode()=21 then goto lettery

if scancode()=44 then goto letterz

if scancode()=57 then cls:sync

if screen invalid()=1 then cls

if escapekey()=1 then end

back:

loop

lettera:

for z=1 to 100

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

circle 320,240,z

sync

next z

goto back

letterb:

for z=1 to 150

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0+z,0+z/2,350+z,20+z/1.5

sync

next z

goto back

letterc:

for z=1 to 75

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 200,300,20+z,15+z*02

sync

next z

goto back

letterd:

for z=1 to 400

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

box z,z,z+50,z+50

sync

next z

goto back

lettere:

for z=400 to 1 step -1

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

box z,z,z+50,z+50

sync

next z

goto back

letterf:

for z=1 to 100

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

circle 100,100,z*2

sync

next z

goto back

letterg:

for z=1 to 30

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

circle 400,200,z*1.2

sync

next z

goto back

letterh:

for z=20 to 240

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line z,z/2,z*2.3,z/2.5

sync

next z

goto back

letteri:

for z=240 to 20 step -1

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line z/2.5+100,z*2.3,z/2+100,z

sync

next z

goto back

letterj:

for z=1 to 400

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

circle 320,240,z

sync

next z

goto back

letterk:

for z=1 to 50

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

circle 320,240,z*8

sync

next z

goto back

letterl:

for z=1 to 50

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,z*1.2,z*1.8

sync

next z

goto back

letterm:

for z=1 to 300

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

dot rnd(640),rnd(480)

sync

next z

goto back

lettern:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

box 200,200,400,400

sync

goto back

lettero:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,0,639,480

sync

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 639,0,0,480

sync

goto back

letterp:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 320,0,320,480

sync

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,240,640,240

sync

goto back

letterq:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,0,639,480

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 639,0,0,480

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 320,0,320,480

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,240,640,240

sync

goto back

letterr:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

for z=1 to 200

ellipse 200+z,100+z,20,10

sync

next z

goto back

letters:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,20,100

sync

goto back

lettert:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,100,20

sync

goto back

letteru:

for z=1 to 50

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,100,20

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,20,100

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,80,40

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,40,80

sync

next z

goto back

letterv:

make object cube 1,100

for z = 1 to 360

zrotate object 1,z

sync

next z

delete object 1

goto back

letterw:

make object cube 1,100

for z = 1 to 360

color object 1,rgb(rnd(255),rnd(255),rnd(255))

zrotate object 1,z

sync

next z

delete object 1

cls

sync

goto back

letterx:

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,0,639,479

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 639,0,0,479

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 320,0,320,480

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

line 0,240,640,240

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,100,20

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,20,100

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,80,40

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

ellipse 320,240,40,80

sync

goto back

lettery:

for z=1 to 460

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

dot z+rnd(20),z+rnd(10)

sync

next z

goto back

letterz:

for z=460 to 1 step -1

ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)

dot z+rnd(20),z+rnd(10)

sync

next z

goto back

Download

Please login to download

Comments

No comments yet.

CodeBase - Kayleigh

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	y!Ck
CodeBase Entries:	1