Sorry your browser is not supported!

sync on
sync rate 60
autocam off

load image "Sky.jpg",1,1
color backdrop rgb(255,255,255)

obj = 1
for x=1 to 50
    for y=1 to 50
        make object box obj,10,10+rnd(100),10
        position object obj,x*10-250,-5,y*10-250
        color object obj,rgb(rnd(255),rnd(255),rnd(255))
        inc obj
    next
next

fog on
fog distance 0,150
fog color 0,0,0

position camera 0,50,0

ink rgb(0,0,0)

do
    pspace = space
    space = spacekey()
    if image = 0
        center text screen width()/2,0,"Use mouse to look left/right | Press Space to swap to Image BG"
    else
        center text screen width()/2,0,"Use mouse to look left/right | Press Space to swap to Random colour BG"
    endif
    if space>pspace
        image = 1-image
        if image=1
            texture backdrop 1
        else
            texture backdrop 0
            color backdrop rgb(rnd(255),rnd(255),rnd(255))
        endif
    endif
    
    camang = camang + mousemovex()
    yrotate camera camang
    
    sync
loop

sync rate 60

load image "media\backdrop.jpg",1,1
texture backdrop 1

fog distance 20000
fog off

do
            if controlkey() = 1 then fog on
            if shiftkey() = 1 then fog off
            center text screen width()/2,screen height()/2, "control key turns fog on - shift key turns fog off"
            sync
loop

Rem Project: test2
Rem Created: Thursday, April 07, 2011

Rem ***** Main Source File *****
sync on
sync rate 60

load image "Sky.jpg",1,1
texture backdrop 1

fog distance 20000
fog off

do
    pck=ck
    ck=controlkey()
    if ck > pck then fog on : fog = 1
    psk=sk
    sk=shiftkey()
    if sk > psk then fog off : fog = 0
    if fog=0
        center text screen width()/2,screen height()/2, "control key turns fog on - shift key turns fog off | Fog is OFF"
    else
        center text screen width()/2,screen height()/2, "control key turns fog on - shift key turns fog off | Fog is ON"
    endif
    sync
loop