Sorry your browser is not supported!

load bitmap "Bob.bmp",1 
copy bitmap 1,0 
wait key

hide mouse
set display mode 169,470,32
load bitmap "waterBackground.bmp",1 
copy bitmap 1,0 
set current bitmap 0
load image "fish.png",2
sprite 1,500,500,2
set sprite 1,0,2
do

cls
copy bitmap 1,0 
set current bitmap 0
paste sprite 1,mousex(),mousey()
loop

ink rgb(255,0,0),0
box 0,0,30,30
get image 1,0,0,30,30,1
x#=300
y#=200
do
if leftkey() then x#=x#-0.5
if rightkey() then x#=x#+0.5
if upkey() then y#=y#-0.5
if downkey() then y#=y#+0.5

sprite 1,x#,y#,1

sync
loop

autocam off
sync on

for i= 1 to 100
make object sphere i,10
position object i,rnd(200),0,rnd(200)
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i

make object box 500,320,0,320
position object 500,150,0,150
ghost object on 500

position camera 0,800,0
point camera 0,0,0

do
for i= 1 to 100
x=object position x(i)
z=object position z(i)
if rnd(1100)=2 then yrotate object i,45
if rnd(1100)=3 then yrotate object i,90
if rnd(1100)=8 then yrotate object i,180
if rnd(1100)=10 then yrotate object i,270
if x<0 then yrotate object i,90
if x>300 then yrotate object i,-90
if z<0 then yrotate object i,0
if z>300 then yrotate object i,180

move object i,0.1
next i
sync
loop

x#=70
y#=300
hide mouse
set display mode 169,470,32
load bitmap "waterBackground.bmp",1 
copy bitmap 1,0 
set current bitmap 0
load image "fish.png",2
sprite 1,x#,y#,2
set sprite 1,0,2
do
if leftkey() then x#=x#-0.05
if rightkey() then x#=x#+0.05
if upkey() then y#=y#-0.05
if  downkey() then y#=y#+0.05
cls
copy bitmap 1,0 
set current bitmap 0
sprite 1,x#,y#,2
loop

autocam off
sync on
ink rgb(200,0,0),0
box 0,0,10,10
get image 1,0,0,10,10,1
for i= 1 to 100
sprite i,rnd(200),rnd(200),1

next i


position camera 0,800,0
point camera 0,0,0

do
for i= 1 to 100
x=sprite x(i)
y=sprite y(i)
if rnd(1100)=2 then rotate sprite i,45
if rnd(1100)=3 then rotate sprite i,90
if rnd(1100)=8 then rotate sprite i,180
if rnd(1100)=10 then rotate sprite i,270
if x<0 then rotate sprite i,90
if x>300 then rotate sprite i,-90
if y<0 then rotate sprite i,180
if y>300 then rotate sprite i,0
move sprite i,0.1
next i
sync
loop

autocam off
sync on
ink rgb(200,0,0),0
box 0,0,3,10
get image 1,0,0,10,10,1
for i= 1 to 20
sprite i,rnd(200),rnd(200),1
offset sprite i,1.5,5

next i


position camera 0,800,0
point camera 0,0,0

do
for i= 1 to 20
x=sprite x(i)
y=sprite y(i)
if rnd(5000)=2 then rotate sprite i,45
if rnd(5000)=3 then rotate sprite i,90
if rnd(5000)=8 then rotate sprite i,180
if rnd(5000)=10 then rotate sprite i,270
if x<10 then rotate sprite i,90
if x>200 then rotate sprite i,-90
if y<10 then rotate sprite i,180
if y>200 then rotate sprite i,0

move sprite i,0.1
next i
sync
loop