Sorry your browser is not supported!

sync on : sync rate 30 : hide mouse : set display mode 1024,768,16 : color backdrop rgb(0,0,64)
backdrop on : set text font "arial" : set text size 16 : set text to bold : set text transparent
pos_x# = 700 : pos_y# = 1.21 :pos_z# = 28 : m_speed# = 1.8 : a_speed# = 10 : angle_y# = 90
lk_p = 1 : rk_p = 1 : load bsp "","level\maze_01.bsp" : load image "Texture\Yellow.jpg",1 : make object sphere 2,1
texture object 2,1 : set camera range 0.1,5000 : position camera pos_x# + 2,pos_y#,pos_z# : position object 2,pos_x#,pos_y#,pos_z#
fix object pivot 2 : rotate object 2,0,-90,0 : set bsp camera collision 1,0,0.13,0 : set bsp object collision 2,2,0.13,0 : set bsp collision threshhold 1,0.001
start_tid# = timer()
do
   if leftkey() then yrotate object 2,wrapvalue(object angle y(2) - a_speed#)
   if rightkey() then yrotate object 2,wrapvalue(object angle y(2) + a_speed#)
   if upkey() then move object 2,m_speed#
   if downkey() then move object 2,m_speed# * -1
   set camera to follow object position x(2),object position y(2),object position z(2),object angle y(2),6,object position y(2) + 4,2,0
   tid# = (timer() - start_tid#) / 1000
   text 20,screen height()-40, "Tid brukt : " + str$(int(tid#))
   sync
   if camera position x() < -520 then exit
loop
ink rgb(255,0,0),0 : set text size 72 : center text screen width() / 2,screen height() / 2, "Du brukte " + str$(tid#) + " sekunder!"
sync : wait key : end

sync on : sync rate 30 : hide mouse : set display mode 1024,768,16 : color backdrop rgb(0,0,64)
backdrop on : set text font "arial" : set text size 16 : set text to bold : set text transparent
pos_x# = 700 : pos_y# = 1.21 :pos_z# = 28 : m_speed# = 1.8 : a_speed# = 10 : angle_y# = 90
lk_p = 1 : rk_p = 1 : load bsp "","level\maze_01.bsp" : load image "Texture\Yellow.jpg",1 : make object sphere 2,1
texture object 2,1 : set camera range 0.1,5000 : position camera pos_x# + 2,pos_y#,pos_z# : position object 2,pos_x#,pos_y#,pos_z#
fix object pivot 2 : rotate object 2,0,-90,0 : set bsp camera collision 1,0,0.13,0 : set bsp object collision 2,2,0.13,0 : set bsp collision threshhold 1,0.001
start_time# = timer()
do
   if leftkey() then yrotate object 2,wrapvalue(object angle y(2) - a_speed#)
   if rightkey() then yrotate object 2,wrapvalue(object angle y(2) + a_speed#)
   if upkey() then move object 2,m_speed#
   if downkey() then move object 2,m_speed# * -1
   set camera to follow object position x(2),object position y(2),object position z(2),object angle y(2),6,object position y(2) + 4,2,0
   time# = (timer() - start_time#) / 1000
   text 20,screen height()-40, "Time usedt : " + str$(int(time#))
   sync
   if camera position x() < -520 then exit
loop
ink rgb(255,0,0),0 : set text size 72 : center text screen width() / 2,screen height() / 2, "You used " + str$(time#) + " secounds!"
sync : wait key : end