Sorry your browser is not supported!

rem main game loop
do

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-3
if leftkey()=1 then turn object left 1,1
if rightkey()=1 then turn object right 1,1

sync
loop

make object cube 1,100.0

do
pressed$ = ""
if keystate(203) = 1
   turn object left 1,0.1
   if leftkey() then pressed$ = ">leftkey"
endif

if keystate(205) = 1
   turn object right 1,0.1
   if rightkey() then pressed$ = ">rightkey"
endif

set cursor 0,0
print "Scancode: ", scancode()," ",pressed$
loop

make object cube 1, 1
do
    if upkey()=1
        move object 1,5
    endif
    if downkey()=1
        move object 1,-3
    endif
    if leftkey()=1
        turn object left 1,1
        move object 1, 0.5
    endif
    if rightkey()=1
        turn object right 1,1
        move object 1, 0.5
    endif

    sync
loop
end

make object cube 1, 1
do
    if upkey()=1
        move object 1,0.1
    endif
    if downkey()=1
        move object 1,-0.1
    endif
    if leftkey()=1
        turn object left 1,1
        rem move object 1, 0.5
    endif
    if rightkey()=1
        turn object right 1,1
        rem move object 1, 0.5
    endif

    sync
loop
end

rem startup
_startup:
cls
sync on
sync rate 60
maximize window
set display mode 800,600,32
hide mouse
autocam off
load music "media\music\menu.mp3",1
play music 1
load image "media\picture\title1.png",1
load image "media\picture\startgame.png",2
load image "media\picture\option.png",3
load image "media\picture\quitgame.png",4
load image "media\picture\loading.png",5

rem menu pictures
paste image 1,190,80

paste image 2,200,200
paste image 3,200,280
paste image 4,200,360

rem main menu loop
do

if keystate(31)=1 then gosub _loadgame
if keystate(24)=1 then gosub _option
if keystate(16)=1 then goto _quitgame

sync
loop

rem option
_option:
cls
do



sync
loop

rem load game objects
_loadgame:

bil = 1
map = 2

cls
center text 350,400,"Loading ..."
sync
load music "media\music\bgmusic1.mp3",2
load music "media\music\bgmusic2.mp3",3
load image "media\picture\rød.png",2

rem bil
load object "media\bil\bil.3ds",bil
position object bil,0,0,0
texture object bil,2

rem map
load object "media\map\map.3ds",map
position object map,0,0,0

rem camera
make camera 1
set current camera 1
set camera to object orientation 1,1
position camera 1,0,1500,0
point camera 1,0,180,0


x = rnd(2)+1




gosub _startgame

rem starts the game
_startgame:
cls
stop music 1
play music x

rem main game loop
do

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-3
if leftkey()=1 then turn object left 1,1
if rightkey()=1 then turn object right 1,1

sync
loop

rem quit game
_quitgame:
cls
center text 350,240,"Sure you want to quit game?"
center text 350,280,"(Y) (N)"

do

if keystate(21)=1 then exit
if keystate(49)=1 then gosub _startup

sync
loop

rem startup
cls
sync on
sync rate 20
maximize window
set display mode 800,600,32
hide mouse

autocam off
POSITION CAMERA 0,50,-50
POINT CAMERA 0,0,0

make matrix 1,64,64,64,64

make object cube 1,10
position object 1,0,0,0
texture object 1,2

rem main game loop
do

if upkey()=1 then move object 1, 0.5
if downkey()=1 then move object 1, -0.3
if leftkey()=1 then turn object left 1,1
if rightkey()=1 then turn object right 1,1

sync
loop