TGC Codebase Backup



Kayleigh by y!Ck

6th Oct 2003 10:15
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 p



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.

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
well i hope this helps newby's cuz i don't think it will help some already experienced programmers



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
do
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