Sorry your browser is not supported!

`<<<:=={ LOAD GAME }==:>>>
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"LOADING..."
SYNC ON : SYNC RATE 0 : HIDE MOUSE
#CONSTANT _DO FOR __XXXX__ = 0 TO 0x7fffffff
#CONSTANT _LOOP NEXT __XXXX__
GOSUB _LOAD1
`<<<:=={ MAIN GAME LOOP }==:>>>
_DO
    GOSUB _CONTROL

    IF ESCAPEKEY() THEN END
    WAIT SCREEN FPS()/9999*9999*9999*9999
SYNC : _LOOP
`<<<:=={ SUB POINTS }==:>>>
    `Gameplay
        _CONTROL:
            PAX=OBJECT ANGLE X(1) : PAY=OBJECT ANGLE Y(1) : PAZ=OBJECT ANGLE Z(1)
            PPX=OBJECT POSITION X(1) : PPY=OBJECT POSITION Y(1) : PPZ=OBJECT POSITION Z(1)
            IF UPKEY() THEN MOVE OBJECT 1,5
            IF DOWNKEY() THEN MOVE OBJECT 1,-3.5
            IF LEFTKEY() THEN ROTATE OBJECT 1,PAX,PAY-7,PAZ
            IF RIGHTKEY() THEN ROTATE OBJECT 1,PAX,PAY+7,PAZ

            POSITION CAMERA 1,LIMB POSITION X(1,1),LIMB POSITION Y(1,1),LIMB POSITION Z(1,1)
            POINT CAMERA 1,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
        RETURN
    `Loading Points
        `Load Game
            _LOAD1:
                MAKE OBJECT SPHERE 1,50 : COLOR OBJECT 1,RGB(0,255,0)

                MAKE OBJECT SPHERE 2,50 : COLOR OBJECT 2,RGB(255,0,0) : POSITION OBJECT 2,130,0,0

                MAKE OBJECT BOX 3,500,150,5 : POSITION OBJECT 3,0,0,150

                MAKE OBJECT SPHERE 9999,5 : MAKE MESH FROM OBJECT 9999,9999 : DELETE OBJECT 9999
                ADD LIMB 1,1,9999 : OFFSET LIMB 1,1,PPX,PPY+75,PPZ-250
                MAKE CAMERA 1 : COLOR BACKDROP 1,RGB(0,0,0)
                POSITION CAMERA 1,LIMB POSITION X(1,1),LIMB POSITION Y(1,1),LIMB POSITION Z(1,1)
                POINT CAMERA 1,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
            RETURN

`<<<:=={ LOAD GAME }==:>>>
SYNC ON : SYNC RATE 60 : HIDE MOUSE
set display mode 1024,768,32
GOSUB LOAD1
`<<<:=={ MAIN GAME LOOP }==:>>>
DO
    GOSUB CONTROL
    WAIT SCREEN FPS()/9999*9999*9999*9999
SYNC : LOOP
`<<<:=={ SUB POINTS }==:>>>
    `Gameplay
        CONTROL:
            PAX=OBJECT ANGLE X(1) : PAY=OBJECT ANGLE Y(1) : PAZ=OBJECT ANGLE Z(1)
            PPX=OBJECT POSITION X(1) : PPY=OBJECT POSITION Y(1) : PPZ=OBJECT POSITION Z(1)
            IF UPKEY() THEN MOVE OBJECT 1,5
            IF DOWNKEY() THEN MOVE OBJECT 1,-3.5
            IF LEFTKEY() THEN ROTATE OBJECT 1,PAX,PAY-4,PAZ
            IF RIGHTKEY() THEN ROTATE OBJECT 1,PAX,PAY+4,PAZ

            POSITION CAMERA 1,LIMB POSITION X(1,1),LIMB POSITION Y(1,1),LIMB POSITION Z(1,1)
            POINT CAMERA 1,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

            box screen width() / 2,0,screen width(),screen height(),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
            line 0,screen height() / 2,screen width() / 2,screen height() / 2
            line screen width() / 2,0,screen width() / 2,screen height()

            text 600,screen height() / 2 + 0   ,"X: " + str$(LIMB POSITION X(1,1))
            text 600,screen height() / 2 + 15 ,"Y: " + str$(LIMB POSITION Y(1,1))
            text 600,screen height() / 2 + 30 ,"Z: " + str$(LIMB POSITION Z(1,1))
        RETURN
    `Loading Points
        `Load Game
            LOAD1:
                MAKE OBJECT SPHERE 1,50,50,50 : COLOR OBJECT 1,RGB(0,255,0) : set object light 1,1

                MAKE OBJECT SPHERE 2,50,50,50 : COLOR OBJECT 2,RGB(255,0,0) : set object light 2,1 : POSITION OBJECT 2,130,0,0

                MAKE OBJECT BOX 3,500,150,5 : set object light 3,1 : POSITION OBJECT 3,0,0,150

                MAKE OBJECT SPHERE 9999,5 : MAKE MESH FROM OBJECT 9999,9999 : DELETE OBJECT 9999
                ADD LIMB 1,1,9999 : OFFSET LIMB 1,1,PPX,PPY+75,PPZ-250
                MAKE CAMERA 1 : COLOR BACKDROP 1,RGB(0,0,0) : COLOR BACKDROP 0,RGB(0,0,0)
                SET CAMERA VIEW 1, 0, 0, screen width() / 2, screen height() / 2
                SET CAMERA VIEW 0, 0, screen height() / 2, screen width() / 2, screen height()
                POSITION CAMERA 1,LIMB POSITION X(1,1),LIMB POSITION Y(1,1),LIMB POSITION Z(1,1)
                POINT CAMERA 1,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
            RETURN