Sorry your browser is not supported!

Here's a pretty good program:


sync on
hide mouse

make matrix 1,10000,10000,25,25
load image "stoney01.bmp",1
prepare matrix texture 1,1,2,2
set matrix 1,1,1,0,1,1,1,1

dim hiLoad#(25,25)

load array "save.matrix", hiLoad#(0)

for x=0 to 25
for z=0 to 25

set matrix height 1,x,z, hiLoad#(x,z)*10

next z
next x

update matrix 1

undim hiLoad#(25,25)

make object sphere 1,100

rem Set variables for character position
x#=1000
z#=600

acc#=5

fog color rgb(128,128,128)
fog distance 9000
fog on

color backdrop rgb(128,128,128)

ink rgb(255,32,32),0

load cdmusic 2,1

set camera range 1,10000

rem Begin loop
do

`if music playing(1) = 0 then play music 1

rem Control camera with arrow keys
a#=wrapvalue(a#+10*(rightkey()-leftkey()))

push=upkey()-downkey()

pushX#=acc#*push*sin(a#)
pushZ#=acc#*push*cos(a#)

`fav=friction affected value
favX# = abs(slopeX())
favZ# = abs(slopeZ())

velX#=velX# + pushX# - slopeX() * favX#
velZ#=velZ# + pushZ# - slopeZ() * favZ#

if velX# > 80 then velX#=80
if velX# 80 then velZ#=80
if velZ# ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ž
¶>ÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÞŠAÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂÂÏÀÂIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃIýÃ+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;Ã+q;ÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃúeÃb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…Ãb¬…ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–ÃÒÍ–Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ãú¯¥Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã²Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã¦Ü»Ã?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃ?ÒÂÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃBáÆÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃ:ùÇÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆÃRÆû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?Áû?ÁÃ臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹Ã臹ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃM ¯ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡ÃÞô¡Ãšs’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’Ús’åÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀåÀÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZÃæPZæÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/æÙ/ÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃŽÃÃ7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§Â7u§ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
ÂëÈ
Â