REM *** START SYSTEM SETUP SECTION
sync on : sync rate 60
autocam off
hide mouse
randomize timer()
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
REM *****************************************
REM *** START INTRO SECTION
REM *** INTRO SECTION HEADER
REM DECLARE VARIABLES
REM SCREEN DISPLAY
cls 0
load bitmap \\\"images/Carbonstartscreen.Bmp\\\"
REM NAME
Width=Screen Width()
height=Screen Height()
Tx=Width/2
Ty=Height/5
Ink rgb(0,0,0),rgb(255,255,255)
Set text Transparent
Set text to bold
Center Text tx-30,ty+130,\\\"What is your name? Young one\\\"
Set cursor tx-30,ty+156:input Name$
Set cursor tx-30,ty+170
Print \\\"Ready to start your Journey?\\\", Name$
Set text to bold
Set cursor tx-30,ty+190
if text background type()=0
print \\\"TRANPARENT IS OFF\\\"
else
rem Text background type command must have retuned a 1
print \\\"TRANPARENT IS ON\\\"
endif
wait key
REM LOAD MUSIC
Load Music \\\"music/pretty fields.mp3\\\",1 :
Load Music \\\"music/Wizards and Warriors.mp3\\\",2 :
Load Music \\\"music/minibosses.mp3\\\",3 :
REM LOAD SOUNDS
Load sound \\\"sounds/music_loop.wav\\\",1 : set sound volume 1,50
Load sound \\\"sounds/carbonade-music_end.wav\\\",2 : set sound volume 2,50
Load sound \\\"sounds/game_start.wav\\\",3 : set sound volume 3,50
Load sound \\\"sounds/fruit_little.wav\\\",4 : set sound volume 4,50
Load sound \\\"sounds/fruit_super.wav\\\",5
Load sound \\\"sounds/jump.wav\\\",6
REM SOUND EFFECTS
play music 1
if music playing(2)=1 then stop music 2
REM SPECIAL EFFECTS
REM REFRESH SCREEN
sync
REM *** INTRO SECTION LOOP
do
REM SCREEN DISPLAY
REM CONTROL INPUT
if Keystate(scancode())=1 then goto MainSection
REM REFRESH SCREEN
sync
loop
REM *** END INTRO SECTION
REM *****************************************
REM *** START MAIN SECTION
REM *** MAIN SECTION HEADER
MainSection:
REM DECLARE VARIABLES
MyTimer = 2000 : rem MyTimer / sync rate = seconds on timer (approx.)
Gravity# = 1 : rem How powerful gravity is
MyPower = 15 : rem How strong the player can jump
MySpeed = 15 : rem How fast the player can run
MyScore = 0 : rem Starting score is 0
MyAcceleration# = 0.0 : rem Start without jumping or falling
REM SCREEN DISPLAY
cls 0 : backdrop on
REM LOAD IMAGES
Load image \\\"images/Kan.bmp\\\",1
Load image \\\"images/Wall North.bmp\\\",2
Load image \\\"images/Eastwall.bmp\\\",3
Load image \\\"images/southwall.bmp\\\",4
Load image \\\"images/westwall.bmp\\\",5
Load image \\\"images/floor.bmp\\\",6
Load image \\\"images/can_lid.bmp\\\",7
Load image \\\"images/Superfruit.bmp\\\",30
REM OBJECT CREATION
Rem Player Character
make object cylinder 1,50
scale object 1,100,140,100
texture object 1,1
position object 1,0,35,0
make object collision box 1,-25,-35,-25,25,35,25,0
make object cylinder 80,50
make mesh from object 1,80
delete object 80
add limb 1,1,1
offset limb 1,1,0,25,0
scale limb 1,1,100,1,100
texture limb 1,1,7
rem Walls
rem North Wall
make object box 2,2000,1000,10
rotate object 2,0,0,0
position object 2, 0,500,1005
texture object 2,2
rem East Wall
make object box 3,2000,1000,10
rotate object 3,0,90,0
position object 3, 1005,500,0
texture object 3,3
rem North Wall
make object box 4,2000,1000,10
rotate object 4,0,180,0
position object 4, 0,500,-1005
texture object 4,4
rem West Wall
make object box 5,2000,1000,10
rotate object 5,0,270,0
position object 5, -1005,500,0
texture object 5,5
rem Floor
make object box 6,2000,1000,2000 : position object 6,0,-500,0 : color object 6,rgb(0,255,0)
make object collision box 6,-1000,-500,-1000,1000,500,1000,0
texture object 6,6
rem Steps
NumberOfSteps = 7
for t=0 to NumberOfSteps-1
make object box t+7,50,10,50
position object t+7,0,5+(t*20),100+(t*100)
color object t+7,rgb(100,200,100)
make object collision box t+7,-25,-5,-25,25,5,25,0
next t
rem Fruits
NumberOfFruits = 30
FruitColor = 0
for t = 1 to NumberOfFruits
if FruitColor = 0
r = 255 : g = 0
endif
if FruitColor = 1
r = 255 : g = 255
endif
if FruitColor = 2
r = 0 : g = 255
endif
if FruitColor = 3
r = 255 : g = 125
endif
FruitColor = FruitColor + 1
if FruitColor = 4 then FruitColor = 0
make object sphere t + NumberOfFruits ,50
color object t + NumberOfFruits , rgb(r,g,0)
position object t + NumberOfFruits ,Rnd(1900)-950,30,Rnd(1900)-950
make object collision box t + NumberOfFruits ,-25,-25,-25,25,25,25,0
next t
rem Super Fruit
numberofSuperfruits=1
make object cylinder 50,100
texture object 50,30
position object 50,0,250,900
make object collision box 9,-50,-50,-50,50,50,50,0
REM LOAD MODELS
REM SET COLLISIONS
REM SET CAMERA
REM SOUND EFFECTS
play sound 3
REM SPECIAL EFFECTS
REM REFRESH SCREEN
sync
REM *** MAIN SECTION LOOP
do
if scancode()=0 then exit
loop
REM *** MAIN SECTION LOOP END
This is just the Top half of my Game. hope this works
Gangstar