Sorry your browser is not supported!

autocam off
set display mode 800,600,32

load image "ng1.bmp",2,1
load image "ng2.bmp",3,1
load image "lg1.bmp",4,1
load image "lg2.bmp",5,1
load image "mp1.bmp",6,1
load image "mp2.bmp",7,1
load sound "car1.wav",1
load sound "car2.wav",2
load sound "car3.wav",3
set sound volume 1,100
set sound volume 2,100
set sound volume 3,100
x#=0
y#=0
z#=0
make object plain 100,screen width(),screen height()
position object 100,x#,y#,z#
xrotate object 100,90
load image "menu main.bmp",1,1
texture object 100,1

make object plain 102,158,52
texture object 102,2
xrotate object 102,90
position object 102,-160,50,-80


make object plain 103,158,52
texture object 103,4
xrotate object 103,90
position object 103,40,50,-80

make object plain 104,158,52
texture object 104,6
xrotate object 104,90
position object 104,240,50,-80

xrotate camera 90
position camera 0,500,0

load object "title.3ds",101
xrotate object 101,90
scale object 101,50,50,50
position object 101,-100,150,120
color object 101,rgb(255,0,0)
sync on
sync rate 40
sound=0
button=0
do
sync
if button=0 then sound=0
ta#=ta#+2
mx#=mousex()
my#=mousey()
yrotate object 101,wrapvalue(ta#)
set cursor 200,290
t=timer()

if mx#>136 and mx#<310 and my#>362 and my#<419
button=1
texture object 102,3
if sound playing(1)=0 and sound<1
play sound 1
sound=sound+1
endif
else 
texture object 102,2

endif

if mx#>356 and mx#<532 and my#>362 and my#<419
button=1
texture object 103,5
if sound playing(2)=0 and sound<1
play sound 2
sound=sound+1
endif
else 
texture object 103,4
endif

if mx#>580 and mx#<754 and my#>362 and my#<419
button=1
texture object 104,7
if sound playing(3)=0 and sound<1
play sound 3
sound=sound+1
endif
else 
texture object 104,6
endif

if my#<363 or my#>419
sound=0
endif
ink rgb(255,0,0),1

if mx#<136 or mx#>310 and mx#<356 or mx#>532 and mx#<580 or mx#>754
sound=0
endif
set cursor 100,100

if mx#>136 and mx#<310 and my#>362 and my#<419 and mouseclick()=1
newgame()
endif
loop

function newgame()

input "Name: ";player_name$

if file exist("savegame.dat")=1 then delete file "savegame.dat"
open to write 1,"savegame.dat"
write string 1,player_name$
close file 1
endfunction

load image "media\other\new.bmp",1
PASTE IMAGE 1,-80,-80
load image "media\other\options.bmp",2
PASTE IMAGE 2,-80,-150

hide mouse
LOAD IMAGE "mouse.bmp",3

SPRITE 1,80,80,1
SPRITE 2,80,150,2
SPRITE 3,mousex(),mousey(),5

sync on
do
SPRITE 5,mousex(),mousey(),5

'the button code basically on mouseover it changes but the names are just what i used in my game i didnt change them...

if sprite collision(1,5)
load image "media\other\new_over.bmp",1
PASTE IMAGE 1,80,80
SPRITE 1,80,80,1
else
load image "media\other\new.bmp",1
PASTE IMAGE 1,-80,-80
SPRITE 1,80,80,1
endif

if sprite collision(2,5)
load image "media\other\options_over.bmp",2
PASTE IMAGE 2,80,80
SPRITE 2,80,150,2
else
load image "media\other\options.bmp",2
PASTE IMAGE 2,-80,-80
SPRITE 2,80,150,2
endif