Kayleigh by y!Ck6th 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. 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 |