set display mode 1024,768,32
global fish
global bigger
bigger=100
 
w=Screen Width():h=Screen Height()
Create Bitmap 1,w,h
Set Current Bitmap 1
Box 0,0,w/2,h-1,RGB(0,0,15),RGB(150,150,255),RGB(0,0,64),RGB(200,200,255)
Box w/2,0,w-1,h-1,RGB(0,0,64),RGB(200,200,255),RGB(0,0,15),RGB(150,150,255)
Get Image 3,0,0,w-1,h-1
Sprite 2,1,1,3
Set sprite alpha 2,100
Set Current Bitmap 0
make object box 1000,1800,1800,10
texture object 1000,3
make object box 1001,1,500,1
position object 1001,-87,0,600
make object box 1002,1,500,1
position object 1002,86,0,600
make object box 1003,500,.1,.1
position object 1003,0,-61.2,600
make object box 1004,500,.1,.1
position object 1004,0,61.2,600
hide object 1001
hide object 1002
hide object 1003
hide object 1004
fish=3
 
Fish(1)
position object 1,10,10,-100
yrotate object 1,90
do
begin:
position object 1001,-522-bigger/5,0,600
position object 1002,522+bigger/5,0,600
position object 1003,0,-367.2,600
position object 1004,0,367.2,600
 
position object 1000,0,0,900
if object collision(1,1001)=0
if leftkey()=1 then x=x-4
else
x=492+bigger/25
position object 1,x,y,600
endif
if object collision(1,1002)=0
if rightkey()=1 then x=x+4
else
x=-498-bigger/10
position object 1,x,y,600
sync
endif
if object collision(1,1003)=0 then if downkey()=1 then y=y-4
if object collision(1,1004)=0 then if upkey()=1 then y=y+4
position object 1,x,y,600
for fish=2 to 100
if rnd(700)=1
if object exist(fish)=0 then Fish(fish) : position object fish,-498,rnd(720)-360,600 : yrotate object fish,90 : rndscl=rnd(400)+80 : scale object fish,rndscl,rndscl,rndscl
if object size(fish)>1 and object size(fish)<10 then color object fish,rgb(255,0,0)
if object size(fish)>10 and object size(fish)<20 then color object fish,rgb(0,255,0)
if object size(fish)>20 and object size(fish)<30 then color object fish,rgb(0,0,255)
if object size(fish)>30 and object size(fish)<40 then color object fish,rgb(255,0,255)
if object size(fish)>40 then color object fish,rgb(0,255,255)
ghost object on fish,1
endif
if object exist(fish)=1
crntx=object position x(fish)+1
crnty=object position y(fish)
position object fish,crntx,crnty,600
if object exist(fish) then if object collision(1002,fish) then delete object fish
if object exist(fish)
if object collision(1,fish)=1
if object size(fish)<object size(1)
delete object fish : inc bigger,10 : scale object 1,bigger,bigger,bigger
else
end
endif
endif
endif
endif
next fish
 
loop
 
Function Fish(ObjectID)
Make Object Sphere ObjectID,18,50,50
Make Mesh From Object ObjectID,ObjectID
Delete Object ObjectID
Make Object Triangle ObjectID,0,6,-6,0,-6,-6,0,0,6
Offset Limb ObjectID,0,0,0,-.48
Add Limb ObjectID,1,ObjectID
Offset Limb ObjectID,1,0,0,10
Scale Limb ObjectID,1,20,80,100
EndFunction