Sorry your browser is not supported!

set display mode 1024,768,32
hide mouse
Sync On
Sync Rate 60
Randomize Timer()
Autocam Off

Type Coordinates
   x as Float
   y as Float
   z as Float
Endtype
Global Object as Coordinates
Global Target as Coordinates
Global Total as Coordinates
Global Count as Float
`number of fish with disease
Global disease as Float
disease=0
`plant growth progress
Global plant as Float
plant=1
`lighting level
Global light as Float
light=1
`ph level (acidity or alkaliness of water)
Global ph as Float
ph=6.5
`bacteria in water
Global bacteria as Float
bacteria=.5
`temperature °F and °C
Global temp as Float
Global tempc as Float
temp=55
tempc=int((temp-32)*(5.0/9.0))
`time variables
Global oldtime as Float
Global newtime as Float
newhr=0:time=1:ampm=1:pm=0:am=1:day=1:week=1:month=1:year=1
`make the aquarium camera
set camera to image 0,1,512,512
  set camera aspect 800/600
  color backdrop RGB(150,150,220)
  sprite 1,0,0,1
  set sprite 1,0,1
  set sprite alpha 1,100
  size sprite 1,800,600
Create Bitmap 1,100,100
Set Current Bitmap 1
Box 0,0,99,99,RGB(255,128,0),RGB(164,169,213),RGB(233,235,169),RGB(89,91,0)
Get Image 2,0,0,99,99
Set Current Bitmap 0
Delete Bitmap 1
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 Sprite Priority 2,0
Set Current Bitmap 0
`store stuff controlling fish movement
Dim m(1000) as Float
R# = 50        :` resting length
K# = 2         :` spring coefficient
v# = 0.0       :` velocity
f# = 0.9       :` friction

Dim dots(400) as Coordinates
Dim vels(400) as Coordinates
`amount of fish
Global Fish as Float
Fish = 2
`make the fish
For i = 1 to Fish
   Fish(i)
   `Texture Object i,1
   Set Sphere Mapping On i,2
   Position Object i,10,10,22
   Turn Object Right i,rnd(360)
   Pitch Object Down i,rnd(360)
   Roll Object Left i,rnd(360)
   Move Object i,rnd(R#)+.1
   m(i)=rnd(500.0)/10.0+100.0
   Return_Object(i)
   dots(i).x=Object.x:dots(i).y=Object.y:dots(i).z=Object.z
Next i
Make Object Sphere 1001,.5,8,8
Hide Object 1001
Position Object 1001,0,0,100
   Turn Object Right 1001,rnd(360)
   Pitch Object Down 1001,rnd(360)
   Roll Object Left 1001,rnd(360)
Count=249
`make background for time
for y=1 to 120
ink rgb(50,50,255-y*2),0
box 0+y,0+y,120-y,120-y
next y
get image 4,0,0,120,120
`make background for stats
for x=1 to 290
ink rgb(50,50,255-x),0
box 0+x,0+x/2,300-x,300-x/2
next x
get image 5,0,0,290,290
do
gosub movefish
gosub stats
gosub time
loop

movefish:
   Fix Object Pivot 1001
   Return_Object(1001)
   If rnd(100)=1 Then movex#=rnd(50.0)/10.0-3.0
   If rnd(200)=1 Then movey#=rnd(50.0)/10.0-3.0
   If rnd(300)=1 Then movez#=rnd(50.0)/10.0-3.0
   Position Object 1001,Object.x+movex#,Object.y+movey#,Object.z+movez#
   Return_Object(1001)
   If Object.x>80 or Object.x<-250
      Position Object 1001,Object.x-movex#,Object.y+movey#,Object.z+movez#
      movex#=-movex#
   Endif
   If Object.y>80 or Object.y<-200
      Position Object 1001,Object.x+movex#,Object.y-movey#,Object.z+movez#
      movey#=-movey#
   Endif
   If Object.z>250 or Object.z<50
      Position Object 1001,Object.x+movex#,Object.y+movey#,Object.z-movez#
      movez#=-movez#
   Endif
   cx#=Object.x:cy#=Object.y:cz#=Object.z
   Total.x=0:Total.y=0:Total.z=0
   For i =1 to Fish
      Return_Target(i)
      Total.x=Target.x+Total.x
      Total.y=Target.y+Total.y
      Total.z=Target.z+Total.z
   Next i
   cx#=(cx#*(Fish*.1)+Total.x)/(Fish*1.1):cy#=(cy#*(Fish*.1)+Total.y)/(Fish*1.1):cz#=(cz#*(Fish*.1)+Total.z)/(Fish*1.1)
   For i = 1 to Fish
      Return_Target(i)
      dx#=Target.x-(cx#+dots(i).x)
      dy#=Target.y-(cy#+dots(i).y)
      dz#=Target.z-(cz#+dots(i).z)
      d#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
      vels(i).x=Spring(vels(i).x,K#,abs(dx#*d#)/dx#,m(i),f#)
      vels(i).y=Spring(vels(i).y,K#,abs(dy#*d#)/dy#,m(i),f#)
      vels(i).z=Spring(vels(i).z,K#,abs(dz#*d#)/dz#,m(i),f#)
      Position Object i,Target.x+vels(i).x,Target.y+vels(i).y,Target.z+vels(i).z
      Point Object i,(Object.x-cx#)*100+cx#,(Object.y-cy#)*100+cy#,(Object.z-cz#)*100+cy#
      Return_Target(i)
   Next i
   Sync
return

stats:
draw to front
ink 0,0
box 0,600,1024,768
box 800,0,1024,768
paste image 4,347,630
paste image 5,0,600
ink rgb(255,255,255),0
text 30,600,"---STATS---"
text 0,625,"-Temperature:"+str$(temp)+"°F("+str$(tempc)+"°C)"
text 0,650,"-PH Level:"+str$(ph)
text 0,675,"-% Of Bacteria Per Inch³:"+str$(bacteria)+" %"
if light=1 then text 0,700,"-Light Level:Low"
if light=2 then text 0,700,"-Light Level:Medium Low"
if light=3 then text 0,700,"-Light Level:Medium"
if light=4 then text 0,700,"-Light Level:Medium High"
if light=5 then text 0,700,"-Light Level:High"
if plant=1 then text 0,725,"-Plant Growth:Terrible"
if plant=2 then text 0,725,"-Plant Growth:Bad"
if plant=3 then text 0,725,"-Plant Growth:Fair"
if plant=4 then text 0,725,"-Plant Growth:Good"
if plant=5 then text 0,725,"-Plant Growth:Excellent"
text 0,750,"-Number Of Fish With Disease:"+str$(disease)+" Fish"
text 350,645,"Time - "+str$(time)+":00"
if ampm=1 then text 447,645,"AM"
if ampm=2 then text 447,645,"PM"
text 350,670,"Day: "+str$(day)
text 350,690,"Week: "+str$(week)
text 350,710,"Month: "+str$(month)
text 350,730,"Year: "+str$(year)
return

time:
if newhr=1 then inc time:oldtime=timer():newhr=0
newtime=timer()
if newtime>oldtime+500 then newhr=1
if time=13 and am=1 then time=1:inc ampm:am=0:pm=1
if time=13 and pm=1 then time=1:dec ampm:pm=0:am=1:inc day
if day=8 then inc week:day=1
if week=4 and day=3 then week=1:day=1:inc month
if month=13 then month=1:inc year
return

Function Spring(vel#,spring#,dist#,resist#,frict#)
vel#=(vel# + (-spring# * dist#)/resist#)*frict#
EndFunction vel#


Function Return_Object(ObjectID)
Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
EndFunction

Function Return_Target(TargetID)
Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
EndFunction

Function Fish(ObjectID)
Make Object Sphere ObjectID,30,50,50
Make Mesh From Object ObjectID,ObjectID
Delete Object ObjectID
Make Object Triangle ObjectID,0,10,-10,0,-10,-10,0,0,10
Offset Limb ObjectID,0,0,0,-8
Add Limb ObjectID,1,ObjectID
Offset Limb ObjectID,1,0,0,1
Scale Limb ObjectID,1,20,80,100
EndFunction

set display mode 1280, 1024, 32
sync on
sync rate 0
autocam off
backdrop on
color backdrop 0
randomize timer()
hide mouse
set directional light 0, 1.0, -1.0, -1.0
set ambient light 0

#constant ARENA_SIZE 20.0
make object plain 1, ARENA_SIZE, ARENA_SIZE
position object 1, 0, 0, 0
point object 1, 0, 1, 0
color object 1, rgb(0, 128, 0)


make object sphere 2, 0.5
position object 2, 0, 0.25, 0
position mouse screen width() * 0.5, screen height() * 0.5
Type FeederData
   x#
   z#
endtype
Feeder as FeederData

















#constant ANT_SPEED 4.0
AntCount = 10
Type AntData
   x#
   z#
   angle#
   size#
   cx#
   cz#
EndType

Dim Ants(AntCount) as AntData

for i = 1 to AntCount
   Ants(i).x# = rnd(ARENA_SIZE)-(ARENA_SIZE*0.5)
   Ants(i).z# = rnd(ARENA_SIZE)-(ARENA_SIZE*0.5)

   Ants(i).cx# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)
   Ants(i).cz# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)

   Ants(i).angle# = rnd(360)
   Ants(i).size# = 1.0
   make object triangle 100+i, -0.1, 0.0, 0.0,    0.0, 0.0, 0.25,    0.1, 0.0, 0.0
   position object 100+i, Ants(i).x#, 0.25, Ants(i).z#
   yrotate object 100+i, Ants(i).angle#
   set object light 100+i, 0
next i


position camera 0, 20.0, 0
point camera 0,0,0
null = make vector2(1)

frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()


   gosub _MOVE_ANTS
   gosub _POSITION_FEEDER

   sync
loop



_POSITION_FEEDER:
   dx# = mousemovex() *  0.05
   dz# = mousemovey() * -0.05
   inc Feeder.x#, dx#
   inc Feeder.z#, dz#

   position object 2, Feeder.x#, 0.25, Feeder.z#

   if mouseclick() = 1
      if object collision(2, 0) >= 200
         i = object collision(2, 0)
         s# = object size x(i)
         inc s#, frameTime# * 0.0005
         s# = (s# / 0.5) * 100.0
         scale object i, s#, 50.0, s#
      else
         i = 200
         while object exist(i) AND i < 205
            inc i
         endwhile
         if object exist(i) = 0
            make object sphere i, 0.5
            scale object i, 100.0, 50.0, 100.0
            position object i,Feeder.x#, 0.25, Feeder.z#
            color object i, rgb(192, 0, 0)
            if object collision(i,0) >= 100 then delete object i
         endif

      endif
   endif
return




_MOVE_ANTS:
   for i = 1 to AntCount
      obj = 100+i

      closestID = -1
      closest# = -1.0
      for j = 200 to 205
         if object exist(j)
            if object collision(obj, j) = 1
               s# = object size x(obj)
               inc s#, object size x(j) * 0.05
               s# = (s# / 0.2) * 100.0
               scale object obj, s#, 100.0, s#
               delete object j
            else
               dx# = (object position x(j) - Ants(i).x#)
               dz# = (object position z(j) - Ants(i).z#)

               set vector2 1, dx#, dz#
               dist# = length vector2(1)
               if closestID = -1 OR dist# < closest# then closestID = j : closest# = dist#
            endif
         endif
      next j

      if closestID > -1
         dx# = (object position x(closestID) - Ants(i).x#)
         dz# = (object position z(closestID) - Ants(i).z#)
         set vector2 1, dx#, dz#
         dist# = length vector2(1)
      else
         dx# = (Ants(i).cx# - Ants(i).x#)
         dz# = (Ants(i).cz# - Ants(i).z#)
         set vector2 1, dx#, dz#
         dist# = length vector2(1)
         if dist# < 5.0
            inc Ants(i).cx#, (rnd(5.0)-2.5) * frameTime# * 0.001
            inc Ants(i).cz#, (rnd(5.0)-2.5) * frameTime# * 0.001
         endif
      endif


      if dist# < 3.0 then dist# = 3.0

      dAngle# = atanfull(dx#, dz#)
      Ants(i).angle# = curveangle(dAngle#, Ants(i).angle#, dist# * 100.0)

      inc Ants(i).x#, ANT_SPEED * sin(Ants(i).angle#) * frameTime# * 0.001
      inc Ants(i).z#, ANT_SPEED * cos(Ants(i).angle#) * frameTime# * 0.001
      position object obj, Ants(i).x#, 0.25, Ants(i).z#
      yrotate object obj, Ants(i).angle#


      s# = (object size x(obj) / 0.002) - frameTime# * 0.01
      if s# < 75.0 then s# = 75.0 : `DEATH CODE SHOULD GO HERE
      scale object obj, s#, 100.0, s#



      sX# = object screen x(obj) + 10.0
      sY# = object screen y(obj) - 10.0

      s# = object size x(obj) / 0.02
      ink rgb(255.0, 0.0, 0.0), rgb(0,0,0)
      box sX#, sY#, sX#+3.0, sY#+s#
      ink rgb(255.0, 255.0, 255.0), rgb(0,0,0)
   next i
return

`-------Aquarium Project---------------------------
`-------CREATED BY:NICHOLAS------------------------
`-------horlocker@yahoo.com------------------------
`-------imthecoolest111@hotmail.com----------------
`-------April 2,2005-------------------------------
`-------Dont steal my code-------------------------
`-------Just the bones of the code-----------------
`-------Right click menu buttons to close----------
`-------Can't buy anything yet---------------------
`-------Showcase for fish in right corner of cam---
`-------If you can help with medicine please do----
set display mode 1024,768,32
hide mouse
Sync On
Sync Rate 60
Randomize Timer()
Autocam Off
draw sprites first
Type Coordinates
   x as Float
   y as Float
   z as Float
Endtype
Global Object as Coordinates
Global Target as Coordinates
Global Total as Coordinates
Global Count as Float
`number of fish with disease
Global disease as Float
disease=0
`plant growth progress
Global plant as Float
plant=1
`lighting level
Global light as Float
light=1
`ph level (acidity or alkaliness of water)
Global ph as Float
ph=6.5
`dh level(the hardness of the water)
Global dh as Float
dh=9.0
`bacteria in water
Global bacteria as Float
bacteria=.5
`temperature °F and °C
Global temp as Float
Global tempc as Float
temp=55
tempc=int((temp-32)*(5.0/9.0))
`time variables
Global oldtime as Float
Global newtime as Float
newhr=0:time=1:ampm=1:pm=0:am=1:day=1:week=1:month=1:year=1
`money variables
Global money as Float
money=200.00
`variables for if buttons are clicked
Global clickaqua as Float:clickaqua=0
Global clicklight as Float:clicklight=0
Global clickfood as Float:clickfood=0
Global clickfilt as Float:clickfilt=0
Global clickheat as Float:clickheat=0
Global clickph as Float:clickph=0
Global clickfish as Float:clickfish=0
Global clickmeds as Float:clickmeds=0
`variable for rotating showcase fish
Global rotate as Float:rotate=0
`varibles for current fish data
Global crntfish as Float:crntfish=0
Global wait1 as Float:wait1=0
`make the aquarium camera
set camera to image 0,1,512,512
  set camera aspect 800/600
  color backdrop RGB(150,150,220)
  sprite 1,0,0,1
  set sprite 1,0,1
  set sprite alpha 1,100
  size sprite 1,800,600
Create Bitmap 1,100,100
Set Current Bitmap 1
Box 0,0,99,99,RGB(255,128,0),RGB(164,169,213),RGB(233,235,169),RGB(89,91,0)
Get Image 2,0,0,99,99
Set Current Bitmap 0
Delete Bitmap 1
`store stuff controlling fish movement
Dim m(1000) as Float
R# = 50        :` resting length
K# = 2         :` spring coefficient
v# = 0.0       :` velocity
f# = 0.9       :` friction

Dim dots(400) as Coordinates
Dim vels(400) as Coordinates
`amount of fish
Global Fish as Float
Fish = 9
`make the fish
For i = 1 to Fish
   Fish(i)
   Position Object i,10,10,22
   Turn Object Right i,90
   Hide object i
Next i
`make different fish to buy and reference of which they are
color object 1,rgb(211,206,1)`--Madagascar
color object 2,rgb(216,169,176)`--Albino Tiger
color object 3,rgb(126,5,60)`--Siamese
color object 4,rgb(203,163,171)`--Common
color object 5,rgb(215,204,206)`--Adolfos
color object 6,rgb(179,180,122)`--Pelvicachromis
color object 7,rgb(230,230,219)`--Albino Red
color object 8,rgb(243,243,243)`--Pearl
color object 9,rgb(201,201,201)`--Three spot

remstart
reference for making more fish that are bought
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Fish(Fish+1)
Position Object Fish+1,10,10,22
Turn Object Right Fish+1,rnd(360)
Pitch Object Down Fish+1,rnd(360)
Roll Object Left Fish+1,rnd(360)
Move Object Fish+1,rnd(R#)+.1
m(Fish+1)=rnd(500.0)/10.0+100.0
Return_Object(Fish+1)
dots(Fish+1).x=Object.x:dots(Fish+1).y=Object.y:dots(Fish+1).z=Object.z
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
remend

Make Object Sphere 1001,.5,8,8
Hide Object 1001
Position Object 1001,0,0,100
Turn Object Right 1001,rnd(360)
Pitch Object Down 1001,rnd(360)
Roll Object Left 1001,rnd(360)
Count=249
`make background for time
for y=1 to 120
   ink rgb(50,50,255-y*2),0
   box 0+y,0+y,120-y,120-y
next y
get image 4,0,0,120,120
`make background for stats
for x=1 to 290
   ink rgb(50,50,255-x),0
   box 0+x,0+x/2,300-x,300-x/2
next x
get image 5,0,0,290,290

do
gosub movefish
gosub stats
gosub time
gosub buttons
if clickaqua=1 then gosub aquarium
if clicklight=1 then gosub lights
if clickfood=1 then gosub foods
if clickfilt=1 then gosub filters
if clickfish=1 then gosub fishbuy
if clickheat=1 then gosub heater
if clickph=1 then gosub phtab
if clickmeds=1 then gosub medicine
gosub mouse
loop

movefish:
   Fix Object Pivot 1001
   Return_Object(1001)
   If rnd(100)=1 Then movex#=rnd(50.0)/10.0-3.0
   If rnd(200)=1 Then movey#=rnd(50.0)/10.0-3.0
   If rnd(300)=1 Then movez#=rnd(50.0)/10.0-3.0
   Position Object 1001,Object.x+movex#,Object.y+movey#,Object.z+movez#
   Return_Object(1001)
   If Object.x>80 or Object.x<-250
      Position Object 1001,Object.x-movex#,Object.y+movey#,Object.z+movez#
      movex#=-movex#
   Endif
   If Object.y>80 or Object.y<-200
      Position Object 1001,Object.x+movex#,Object.y-movey#,Object.z+movez#
      movey#=-movey#
   Endif
   If Object.z>250 or Object.z<50
      Position Object 1001,Object.x+movex#,Object.y+movey#,Object.z-movez#
      movez#=-movez#
   Endif
   cx#=Object.x:cy#=Object.y:cz#=Object.z
   Total.x=0:Total.y=0:Total.z=0
   For i =1 to Fish
      Return_Target(i)
      Total.x=Target.x+Total.x
      Total.y=Target.y+Total.y
      Total.z=Target.z+Total.z
   Next i
   cx#=(cx#*(Fish*.1)+Total.x)/(Fish*1.1):cy#=(cy#*(Fish*.1)+Total.y)/(Fish*1.1):cz#=(cz#*(Fish*.1)+Total.z)/(Fish*1.1)
   For i = 10 to Fish
      Return_Target(i)
      dx#=Target.x-(cx#+dots(i).x)
      dy#=Target.y-(cy#+dots(i).y)
      dz#=Target.z-(cz#+dots(i).z)
      d#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
      vels(i).x=Spring(vels(i).x,K#,abs(dx#*d#)/dx#,m(i),f#)
      vels(i).y=Spring(vels(i).y,K#,abs(dy#*d#)/dy#,m(i),f#)
      vels(i).z=Spring(vels(i).z,K#,abs(dz#*d#)/dz#,m(i),f#)
      Position Object i,Target.x+vels(i).x,Target.y+vels(i).y,Target.z+vels(i).z
      Point Object i,(Object.x-cx#)*100+cx#,(Object.y-cy#)*100+cy#,(Object.z-cz#)*100+cy#
      Return_Target(i)
   Next i
   Sync
return

stats:
   draw to front
   ink 0,0
   box 0,600,1024,768
   box 800,0,1024,768
   paste image 4,347,630
   paste image 5,0,600
   ink rgb(255,255,255),0
   text 30,600,"---STATS---"
   text 0,620,"-Temperature:"+str$(temp)+"°F("+str$(tempc)+"°C)"
   text 0,640,"-PH Level:"+str$(ph)
   text 0,660,"-dh Level:"+str$(dh)
   text 0,680,"-% Of Bacteria Per Inch³:"+str$(bacteria)+" %"
   if light=1 then text 0,700,"-Light Level:Low"
   if light=2 then text 0,700,"-Light Level:Medium Low"
   if light=3 then text 0,700,"-Light Level:Medium"
   if light=4 then text 0,700,"-Light Level:Medium High"
   if light=5 then text 0,700,"-Light Level:High"
   if plant=1 then text 0,720,"-Plant Growth:Terrible"
   if plant=2 then text 0,720,"-Plant Growth:Bad"
   if plant=3 then text 0,720,"-Plant Growth:Fair"
   if plant=4 then text 0,720,"-Plant Growth:Good"
   if plant=5 then text 0,720,"-Plant Growth:Excellent"
   text 0,740,"-Number Of Fish With Disease:"+str$(disease)+" Fish"
   text 350,645,"Time - "+str$(time)+":00"
   if ampm=1 then text 447,645,"AM"
   if ampm=2 then text 447,645,"PM"
   text 350,670,"Day: "+str$(day)
   text 350,690,"Week: "+str$(week)
   text 350,710,"Month: "+str$(month)
   text 350,730,"Year: "+str$(year)
   text 800,20,"<---------Aquarium Camera"
   text 870,50,"Money: $"+str$(money)
   text 870,80,"----Shop----"
return

time:
   if newhr=1 then inc time:oldtime=timer():newhr=0
   newtime=timer()
   if newtime>oldtime+500 then newhr=1
   if time=13 and am=1 then time=1:inc ampm:am=0:pm=1
   if time=13 and pm=1 then time=1:dec ampm:pm=0:am=1:inc day
   if day=8 then inc week:day=1
   if week=4 and day=3 then week=1:day=1:inc month
   if month=13 then month=1:inc year
return

mouse:
   ink rgb(255,0,0),0
   circle mousex(),mousey(),5
   line mousex()-7,mousey(),mousex()+8,mousey()
   line mousex(),mousey()-7,mousex(),mousey()+8
return

buttons:
`first row of buttons
`left
   if over(1,805,100,913,130)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 805+x,100+x,913-x,130-x
         if mouseclick()=1 then clickaqua=1:clicklight=0:clickfood=0:clickfilt=0:clickheat=0:clickph=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickaqua=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 805+x,100+x,913-x,130-x
      next x
   endif
`right
   if over(1,915,100,1023,130)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 915+x,100+x,1023-x,130-x
         if mouseclick()=1 then clicklight=1:clickaqua=0:clickfood=0:clickfilt=0:clickheat=0:clickph=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clicklight=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 915+x,100+x,1023-x,130-x
      next x
   endif
`second row of buttons
`left
   if over(1,805,132,913,162)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 805+x,132+x,913-x,162-x
         if mouseclick()=1 then clickfood=1:clickaqua=0:clicklight=0:clickfilt=0:clickheat=0:clickph=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickfood=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 805+x,132+x,913-x,162-x
      next x
   endif
`right
   if over(1,915,132,1023,162)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 915+x,132+x,1023-x,162-x
         if mouseclick()=1 then clickfilt=1:clickaqua=0:clicklight=0:clickfood=0:clickheat=0:clickph=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickfilt=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 915+x,132+x,1023-x,162-x
      next x
   endif
`third row of buttons
`left
   if over(1,805,164,913,194)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 805+x,164+x,913-x,194-x
         if mouseclick()=1 then clickheat=1:clickaqua=0:clicklight=0:clickfood=0:clickfilt=0:clickph=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickheat=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 805+x,164+x,913-x,194-x
      next x
   endif
`right
   if over(1,915,164,1023,194)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 915+x,164+x,1023-x,194-x
         if mouseclick()=1 then clickph=1:clickaqua=0:clicklight=0:clickfood=0:clickfilt=0:clickheat=0:clickfish=0:clickmeds=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickph=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 915+x,164+x,1023-x,194-x
      next x
   endif
`fourth row of buttons
`left
   if over(1,805,196,913,226)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 805+x,196+x,913-x,226-x
         if mouseclick()=1 then clickfish=1:crntfish=1:clickaqua=0:clicklight=0:clickfood=0:clickfilt=0:clickheat=0:clickph=0:clickmeds=0:ink 0,0:box 800,230,1024,768
         if mouseclick()=2 then clickfish=0:hide object crntfish:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 805+x,196+x,913-x,226-x
      next x
   endif
`right
   if over(1,915,196,1023,226)=1
      for x=1 to 30
         ink rgb(100,100,255-x*8.5),0:box 915+x,196+x,1023-x,226-x
         if mouseclick()=1 then clickmeds=1:clickaqua=0:clicklight=0:clickfood=0:clickfilt=0:clickheat=0:clickph=0:clickfish=0:ink 0,0:box 800,230,1024,768:if crntfish>0 then hide object crntfish
         if mouseclick()=2 then clickmeds=0:ink 0,0:box 800,230,1024,768
      next x
   else
      for x=1 to 30
         ink rgb(50,50,255-x*8.5),0:box 915+x,196+x,1023-x,226-x
      next x
   endif
`put words on buttons
   ink 0,0
   text 823,108,"Aquariums"
   text 945,108,"Lights"
   text 836,140,"Foods"
   text 941,140,"Filters"
   text 828,172,"Heaters"
   text 930,172,"PH Tablets"
   text 838,204,"Fish"
   text 939,204,"Medicine"
return

heater:
   if over(1,810,230,1020,270)
      ink rgb(255,255,255),0
      box 810,230,1020,270
   else
      ink rgb(200,200,200),0
      box 810,230,1020,270
   endif
   if over(1,810,273,1020,313)
      ink rgb(255,255,255),0
      box 810,273,1020,313
   else
      ink rgb(200,200,200),0
      box 810,273,1020,313
   endif
   if over(1,810,316,1020,356)
      ink rgb(255,255,255),0
      box 810,316,1020,356
   else
      ink rgb(200,200,200),0
      box 810,316,1020,356
   endif
   if over(1,810,359,1020,399)
      ink rgb(255,255,255),0
      box 810,359,1020,399
   else
      ink rgb(200,200,200),0
      box 810,359,1020,399
   endif
   ink 0,0
   text 870,230,"Belmen Heater"
   text 815,242,"Temperature Range:60-75°F"
   text 890,257,"$15.00"
   text 875,273,"1000 Heater"
   text 815,285,"Temperature Range:75-90°F"
   text 890,297,"$15.00"
   text 870,316,"Quick Heater"
   text 815,328,"Temperature Range:65-85°F"
   text 845,340,"Heats Quick-$25.00"
   text 847,359,"All-In-One Heater"
   text 810,371,"Temp. Range:55-95°F(Quick)"
   text 820,383,"Digital Temp. Set-$60.00"
return

filters:
   if over(1,810,230,1020,270)
      ink rgb(255,255,255),0
      box 810,230,1020,270
   else
      ink rgb(200,200,200),0
      box 810,230,1020,270
   endif
   if over(1,810,273,1020,313)
      ink rgb(255,255,255),0
      box 810,273,1020,313
   else
      ink rgb(200,200,200),0
      box 810,273,1020,313
   endif
   if over(1,810,316,1020,356)
      ink rgb(255,255,255),0
      box 810,316,1020,356
   else
      ink rgb(200,200,200),0
      box 810,316,1020,356
   endif
   if over(1,810,359,1020,399)
      ink rgb(255,255,255),0
      box 810,359,1020,399
   else
      ink rgb(200,200,200),0
      box 810,359,1020,399
   endif
   ink 0,0
   text 840,230,"Water Filter 100"
   text 810,242,"Cleans Out 80% Of Bacteria"
   text 815,257,"40 Gallons Per Hr-$18.00"
   text 835,273,"Water Filter 1000"
   text 810,285,"Cleans Out 85% Of Bacteria"
   text 810,297,"100 Gallons Per Hr-$40.00"
   text 832,316,"Water Filter X-800"
   text 810,328,"Cleans Out 95% Of Bacteria"
   text 810,340,"80 Gallons Per Hr-$80.00"
   text 828,359,"Water Filter Z-1000 SP"
   text 810,371,"Cleans Out 99% Of Bacteria"
   text 810,383,"150 Gallons Per Hr-$180.00"
return

aquarium:
`small aquarium(20 gall)
   if over(1,850,250,980,310)
      ink rgb(255,255,255),0:box 850,250,980,310
   else
      ink rgb(230,230,230),0:box 850,250,980,310
   endif
`medium aquarium(40 gall)
   if over(1,840,313,990,403)
      ink rgb(255,255,255),0:box 840,313,990,403
   else
      ink rgb(230,230,230),0:box 840,313,990,403
   endif
`large aquarium(60 gall)
   if over(1,830,406,1000,501)
      ink rgb(255,255,255),0:box 830,406,1000,501
   else
      ink rgb(230,230,230),0:box 830,406,1000,501
   endif
`huge aquarium(100 gall)
   if over(1,803,504,1020,612)
      ink rgb(255,255,255),0:box 803,504,1020,612
   else
      ink rgb(230,230,230),0:box 803,504,1020,612
   endif
   ink 0,0
   text 855,260,"Small Aquarium":text 868,275,"(20 Gallons)"
   text 853,338,"Medium Aquarium":text 868,353,"(40 Gallons)"
   text 857,435,"Large Aquarium":text 868,450,"(60 Gallons)"
   text 861,535,"Huge Aquarium":text 864,550,"(100 Gallons)"
return

lights:
   if over(1,880,250,940,310)
      ink rgb(255,255,255),0:box 880,250,940,310
   else
      ink rgb(230,230,230),0:box 880,250,940,310
   endif
   if over(1,870,313,950,393)
      ink rgb(255,255,255),0:box 870,313,950,393
   else
      ink rgb(230,230,230),0:box 870,313,950,393
   endif
   if over(1,860,396,960,496)
      ink rgb(255,255,255),0:box 860,396,960,496
   else
      ink rgb(230,230,230),0:box 860,396,960,496
   endif
   if over(1,840,499,980,519)
      ink rgb(255,255,255),0:box 840,499,980,519
   else
      ink rgb(230,230,230),0:box 840,499,980,519
   endif
   if over(1,820,522,1000,552)
      ink rgb(255,255,255),0:box 820,522,1000,552
   else
      ink rgb(230,230,230),0:box 820,522,1000,552
   endif
   if over(1,803,555,1017,595)
      ink rgb(255,255,255),0:box 803,555,1017,595
   else
      ink rgb(230,230,230),0:box 803,555,1017,595
   endif
   ink 0,0
   text 890,260,"Light":text 885,272,"(15-W)"
   text 890,331,"Light":text 885,343,"(25-W)"
   text 890,422,"Light":text 885,434,"(40-W)"
   text 843,500,"Fluorescent(20-W)"
   text 843,528,"Fluorescent(25-W)"
   text 843,565,"Fluorescent(35-W)"
return

foods:
   if over(1,812,230,1012,290)
      ink rgb(255,255,255),0
      ellipse 912,260,100,30
      text 826,250,"Tropical Flakes(1 oz)"
      text 885,262,"$4.00"
   else
      ink rgb(200,200,200),0
      ellipse 912,260,100,30
      text 826,250,"Tropical Flakes(1 oz)"
      text 885,262,"$4.00"
   endif
   if over(1,812,293,1012,353)
      ink rgb(255,255,255),0
      ellipse 912,323,100,30
      text 826,313,"Tropical Flakes(10 oz)"
      text 882,325,"$40.00"
   else
      ink rgb(200,200,200),0
      ellipse 912,323,100,30
      text 826,313,"Tropical Flakes(10 oz)"
      text 882,325,"$40.00"
   endif
   if over(1,812,356,1012,416)
      ink rgb(255,255,255),0
      ellipse 912,386,100,30
      text 826,376,"Franks Live Food(5 oz)"
      text 885,388,"$10.00"
   else
      ink rgb(200,200,200),0
      ellipse 912,386,100,30
      text 826,376,"Franks Live Food(5 oz)"
      text 885,388,"$10.00"
   endif
   if over(1,812,419,1012,479)
      ink rgb(255,255,255),0
      ellipse 912,449,100,30
      text 826,439,"Franks Live Food(50 oz)"
      text 882,451,"$100.00"
   else
      ink rgb(200,200,200),0
      ellipse 912,449,100,30
      text 826,439,"Franks Live Food(50 oz)"
      text 882,451,"$100.00"
   endif
   if over(1,802,480,1022,550)
      ink rgb(255,255,255),0
      ellipse 912,515,110,35
      text 815,495,"Mega Combo Package(70 oz)"
      text 855,507,"50 oz Live Food"
      text 867,519,"20 oz Flakes"
      text 882,531,"$144.00"
   else
      ink rgb(200,200,200),0
      ellipse 912,515,110,35
      text 815,495,"Mega Combo Package(70 oz)"
      text 855,507,"50 oz Live Food"
      text 867,519,"20 oz Flakes"
      text 882,531,"$144.00"
   endif
return

phtab:
   if over(1,820,250,1010,274)
      ink rgb(255,255,255),0
      text 820,250,"A PH Acid Tablet Made To"
      text 860,262,"Increase Acidity"
   else
      ink rgb(200,200,200),0
      text 820,250,"A PH Acid Tablet Made To"
      text 860,262,"Increase Acidity"
   endif
   if over(1,800,320,1022,344)
      ink rgb(255,255,255),0
      text 800,320,"A PH Alkaline Tablet Made To"
      text 860,332,"Decrease Acidity"
   else
      ink rgb(200,200,200),0
      text 800,320,"A PH Alkaline Tablet Made To"
      text 860,332,"Decrease Acidity"
   endif
   for x=1 to 10
      ink rgb(255-(x*20),100,100),0
      circle 915,295,x
   next x
   for x=1 to 10
      ink rgb(100,255-(x*20),100),0
      circle 915,365,x
   next x
return

medicine:

return

`will rotate the fish of choice
fishbuy:
   for x=1 to 9
      Position Object x,160,-160,300
      yrotate object x,rotate/4
      inc rotate:if rotate=1440 then rotate=1
   next x
   waitforclick:
      if wait1>0
         inc wait1:if wait1=30 then wait1=0
      endif
`next fish with arrow
      if over(1,928,250,1010,280)
         ink rgb(255,255,255),0
         line 980,250,1010,260:line 980,280,1010,260:text 928,254,"Next Fish"
         if mouseclick()=1 and wait1=0 then inc crntfish:inc wait1:if crntfish=10 then crntfish=1:ink 0,0:box 800,230,1024,768:gosub waitforclick
      else
         ink rgb(100,100,100),0
         line 980,250,1010,260:line 980,280,1010,260:text 928,254,"Next Fish"
      endif
`previous fish with arrow
      if over(1,820,250,905,280)
         ink rgb(255,255,255),0
         line 820,260,850,250:line 820,260,850,280:text 834,254,"Prev Fish"
         if mouseclick()=1 and wait1=0 then dec crntfish:inc wait1:if crntfish=0 then crntfish=9:ink 0,0:box 800,230,1024,768:gosub waitforclick
      else
         ink rgb(100,100,100),0
         line 820,260,850,250:line 820,260,850,280:text 834,254,"Prev Fish"
      endif
`first fish
      if crntfish=1
         show object 1
         ink rgb(180,180,180),0
         text 800,300,"Bedotia geayi"
         text 800,315,"(Madagascar Rainbowfish)"
         text 800,330,"Grow Up To:6 Inches(15cm)"
         text 800,345,"Live Up To:5 Years"
         text 800,360,"Minimum Tank Size:20 Gallon"
         text 800,375,"Diet:Omnivore"
         text 800,390,"PH Level:7.0-7.5"
         text 800,405,"dh Level:>10"
         text 800,420,"Temperature:68-75°F(20-24°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with yellow and white lines"
         text 800,467,"down there body.  They are"
         text 800,482,"peaceful fish and will act"
         text 800,497,"well with almost all other"
         text 800,512,"fish."
         text 800,530,"Cost:$35.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$45"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 1
      endif
`second fish
      if crntfish=2
         show object 2
         ink rgb(180,180,180),0
         text 800,300,"Barbus tetrazona"
         text 800,315,"(Kooliad Barb)"
         text 800,330,"Grow Up To:3 Inches(7cm)"
         text 800,345,"Live Up To:6 Years"
         text 800,360,"Minimum Tank Size:10 Gallon"
         text 800,375,"Diet:Omnivore"
         text 800,390,"PH Level:6.5"
         text 800,405,"dh Level:10"
         text 800,420,"Temperature:68-79°F(20-26°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with pink body and white"
         text 800,467,"lines down there body. They"
         text 800,482,"prefer to be in a school of"
         text 800,497,"there fish and These fish"
         text 800,512,"are very hard to breed."
         text 800,530,"Cost:$30.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$65"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 2
      endif
`third fish
      if crntfish=3
         show object 3
         ink rgb(180,180,180),0
         text 800,300,"Betta Splendens"
         text 800,315,"(Siamese Fighting Fish)"
         text 800,330,"Grow Up To:3 Inches(7cm)"
         text 800,345,"Live Up To:2-3 Years"
         text 800,360,"Minimum Tank Size:3 Gallons"
         text 800,375,"Diet:Live Food(Opt. Flakes)"
         text 800,390,"PH Level:6.8 - 7.4"
         text 800,405,"dh Level:20"
         text 800,420,"Temperature:75-86°F(24-30°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with dark maroon body and"
         text 800,467,"very large fins.  They will"
         text 800,482,"get along fine with other"
         text 800,497,"fish but CANNOT be with"
         text 800,512,"other males."
         text 800,530,"Cost:$40.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$60"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 3
      endif
`fourth fish
      if crntfish=4
         show object 4
         ink rgb(180,180,180),0
         text 800,300,"Toxotes chatareus"
         text 800,315,"(7-Spot Archer)"
         text 800,330,"Grow Up To:11 Inches(27cm)"
         text 800,345,"Live Up To:5 Years"
         text 800,360,"Minimum Tank Size:20 Gallons"
         text 800,375,"Diet:Live Food(Opt. Flakes)"
         text 800,390,"PH Level:7.2-7.8"
         text 800,405,"dh Level:6-10"
         text 800,420,"Temperature:77-86°F(25-30°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with a white body and black"
         text 800,467,"spots on there upper body."
         text 800,482,"get along with fish of same"
         text 800,497,"size.  They are EXTREMELY"
         text 800,512,"difficult to breed."
         text 800,530,"Cost:$70.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$150"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 4
      endif
`fifth fish
      if crntfish=5
         show object 5
         ink rgb(180,180,180),0
         text 800,300,"Corydoras adolfoi"
         text 800,315,"(Adolfos Cory)"
         text 800,330,"Grow Up To:2.5 Inches(6cm)"
         text 800,345,"Live Up To:5 Years"
         text 800,360,"Minimum Tank Size:10 Gallons"
         text 800,375,"Diet:Omnivore-LIVE FOOD"
         text 800,390,"PH Level:6.5-7.2"
         text 800,405,"dh Level:5-15"
         text 800,420,"Temperature:72-79°F(22-26°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with a white body, a black"
         text 800,467,"head, and a black streak on"
         text 800,482,"there upper body. These fish"
         text 800,497,"will enjoy being in a large"
         text 800,512,"school of fish."
         text 800,530,"Cost:$20.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$35"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 5
      endif
`sixth fish
      if crntfish=6
         show object 6
         ink rgb(180,180,180),0
         text 800,300,"Pelvicachromis pulcher"
         text 800,315,"(Purple Cichlid)"
         text 800,330,"Grow Up To:3-4 Inches(8-10cm)"
         text 800,345,"Live Up To:5 Years"
         text 800,360,"Minimum Tank Size:20 Gallons"
         text 800,375,"Diet:Omnivore(Most Foods)"
         text 800,390,"PH Level:6.5"
         text 800,405,"dh Level:8-12"
         text 800,420,"Temperature:75-77°F(24-25°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with a light tan body and a"
         text 800,467,"black streak down there body"
         text 800,482,"length. These fish get along"
         text 800,497,"with almost all other fish"
         text 800,512,"and are very peaceful."
         text 800,530,"Cost:$25.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$55"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 6
      endif
`seventh fish
      if crntfish=7
         show object 7
         ink rgb(180,180,180),0
         text 800,300,"Epalzeorhynchus bicolor"
         text 800,315,"(Albino Red Tailed Shark)"
         text 800,330,"Grow Up To:5 inches(12cm)"
         text 800,345,"Live Up To:5-10 Years"
         text 800,360,"Minimum Tank Size:20 Gallons"
         text 800,375,"Diet:Omnivore(Most Foods)"
         text 800,390,"PH Level:7.0"
         text 800,405,"dh Level:15"
         text 800,420,"Temperature:72-79°F(22-26°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with a white body and red"
         text 800,467,"fins.  These fish can be"
         text 800,482,"aggressive and will also be"
         text 800,497,"territorial. They are also"
         text 800,512,"difficult to breed."
         text 800,530,"Cost:$35.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$90"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 7
      endif
`eighth fish
      if crntfish=8
         show object 8
         ink rgb(180,180,180),0
         text 800,300,"Danio albolineatus"
         text 800,315,"(Pearl Danio)"
         text 800,330,"Grow Up To:2 Inches(6cm)"
         text 800,345,"Live Up To:5 Years"
         text 800,360,"Minimum Tank Size:10 Gallons"
         text 800,375,"Diet:Omnivore(Most Foods)"
         text 800,390,"PH Level:6.5-7.0"
         text 800,405,"dh Level:5-12"
         text 800,420,"Temperature:64-74°F(18-24°C)"
         text 800,437,"These are beautiful fish"
         text 800,452,"with a shiny white body and"
         text 800,467,"transparent fins.  They"
         text 800,482,"enjoy being in large"
         text 800,497,"schools and if they are"
         text 800,512,"they will be peaceful."
         text 800,530,"Cost:$25.00"
         text 800,545,"If fully grown and free of"
         text 800,560,"disease, will sell for:$40"
         if over(1,850,580,950,600)
            ink rgb(255,255,255),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         else
            ink rgb(190,190,190),0
            box 850,580,950,600
            ink 0,0:text 887,583,"BUY"
         endif
      else
         hide object 8
      endif
`ninth fish
      if crntfish=9
            show object 9
            ink rgb(180,180,180),0
            text 800,300,"Trichogaster trichopterus"
            text 800,315,"(Three Spot Gourami)"
            text 800,330,"Grow Up To:4 Inches(10cm)"
            text 800,345,"Live Up To:4 Years"
            text 800,360,"Minimum Tank Size:10 Gallons"
            text 800,375,"Diet:Omnivore(Most Foods)"
            text 800,390,"PH Level:6.0-8.8"
            text 800,405,"dh Level:5-35"
            text 800,420,"Temperature:72-82°F(22-28°C)"
            text 800,437,"These are beautiful fish"
            text 800,452,"with a grey body and three"
            text 800,467,"black spots across there"
            text 800,482,"body.  These are very"
            text 800,497,"peaceful fish and breed"
            text 800,512,"easily."
            text 800,530,"Cost:$15.00"
            text 800,545,"If fully grown and free of"
            text 800,560,"disease, will sell for:$20"
            if over(1,850,580,950,600)
               ink rgb(255,255,255),0
               box 850,580,950,600
               ink 0,0:text 887,583,"BUY"
            else
               ink rgb(190,190,190),0
               box 850,580,950,600
               ink 0,0:text 887,583,"BUY"
            endif
      else
         hide object 9
      endif
return

Function Spring(vel#,spring#,dist#,resist#,frict#)
   vel#=(vel# + (-spring# * dist#)/resist#)*frict#
EndFunction vel#


Function Return_Object(ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
EndFunction

Function Return_Target(TargetID)
   Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
EndFunction

Function Fish(ObjectID)
   Make Object Sphere ObjectID,30,50,50
   Make Mesh From Object ObjectID,ObjectID
   Delete Object ObjectID
   Make Object Triangle ObjectID,0,10,-10,0,-10,-10,0,0,10
   Offset Limb ObjectID,0,0,0,-8
   Add Limb ObjectID,1,ObjectID
   Offset Limb ObjectID,1,0,0,1
   Scale Limb ObjectID,1,20,80,100
EndFunction

function over(but,x1,y1,x2,y2)
   if mousex()>x1 and mousex()<X2
   if mousey()>y1 and mousey()<Y2
      over_area=1
   endif
   endif
endfunction over_area

set display mode 1280, 1024, 32
sync on
sync rate 0
autocam off
backdrop on
color backdrop 0
randomize timer()
hide mouse
set directional light 0, 1.0, -1.0, -1.0
set ambient light 0

#constant ARENA_SIZE 20.0
make object plain 1, ARENA_SIZE, ARENA_SIZE
position object 1, 0, 0, 0
point object 1, 0, 1, 0
color object 1, rgb(0, 128, 0)


`make object sphere 2, 0.5
make object triangle 2, -0.2, 0.0, -0.4,   0.0, 0.0, 0.1,   0.2, 0.0, -0.4
position object 2, 0, 0.25, 0
color object 2, rgb(255,255,255)
set object light 2, 0
position mouse screen width() * 0.5, screen height() * 0.5
Type FeederData
   x#
   z#
   mx#
   mz#
   lastCreated
endtype
Feeder as FeederData

















#constant ANT_SPEED 4.0
#constant MAX_ANT_COUNT = 15
Type AntData
   x#
   z#
   angle#
   cx#
   cz#
   reproduce_progress#
EndType

Dim Ants(MAX_ANT_COUNT) as AntData
for i = 1 to 5 : createRandomAnt(i) : next i



position camera 0, 20.0, 0
point camera 0,0,0
null = make vector2(1)

frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()


   gosub _MOVE_ANTS
   gosub _POSITION_FEEDER

   sync
loop



_POSITION_FEEDER:
   inc Feeder.mx#, mousemovex() * frameTime# *  0.0001
   inc Feeder.mz#, mousemovey() * frameTime# * -0.0001
   Feeder.mx# = curvevalue(0.0, Feeder.mx#, 100.0 / frameTime#)
   Feeder.mz# = curvevalue(0.0, Feeder.mz#, 100.0 / frameTime#)

   if Feeder.mx# <> 0 OR Feeder.mz# <> 0
      inc Feeder.x#, Feeder.mx#
      inc Feeder.z#, Feeder.mz#
      position object 2, Feeder.x#, 0.25, Feeder.z#
      yrotate object 2, atanfull(Feeder.mx#, Feeder.mz#)
   endif

   if mouseclick() = 1
      if object collision(2, 0) >= 200
         i = object collision(2, 0)
         s# = object size x(i)
         inc s#, frameTime# * 0.0005
         s# = (s# / 0.5) * 100.0
         scale object i, s#, 50.0, s#
      else
         if timer() - lastCreated > 750
            i = 200
            while object exist(i) AND i < 205
               inc i
            endwhile
            if object exist(i) = 0
               make object sphere i, 0.5
               scale object i, 100.0, 50.0, 100.0
               position object i,Feeder.x#, 0.25, Feeder.z#
               color object i, rgb(192, 0, 0)
               if object collision(i,0) >= 100 then delete object i
               lastCreated = timer()
            endif
         endif
      endif
   endif
return




_MOVE_ANTS:
   for i = 1 to MAX_ANT_COUNT
      obj = 100+i
      if object exist(obj)
         closestID = -1
         closest# = -1.0
         for j = 200 to 220
            if object exist(j)
               if object collision(obj, j) = 1
                  `Ant eats food
                  s# = object size x(obj)
                  inc s#, object size x(j) * 0.05
                  s# = (s# / 0.2) * 100.0
                  if s# > 300.0 then s# = 300.0
                  scale object obj, s#, 100.0, s#
                  delete object j
               else
                  `Find closest food source
                  dx# = (object position x(j) - Ants(i).x#)
                  dz# = (object position z(j) - Ants(i).z#)

                  set vector2 1, dx#, dz#
                  dist# = length vector2(1)
                  if closestID = -1 OR dist# < closest# then closestID = j : closest# = dist#
               endif
            endif
         next j


         if closestID > -1
            `Head for food source
            dx# = (object position x(closestID) - Ants(i).x#)
            dz# = (object position z(closestID) - Ants(i).z#)
            set vector2 1, dx#, dz#
            dist# = length vector2(1)
         else
            `set heading for patrol zone
            dx# = (Ants(i).cx# - Ants(i).x#)
            dz# = (Ants(i).cz# - Ants(i).z#)
            set vector2 1, dx#, dz#
            dist# = length vector2(1)
            if dist# < 5.0
               inc Ants(i).cx#, (rnd(5.0)-2.5) * frameTime# * 0.001
               inc Ants(i).cz#, (rnd(5.0)-2.5) * frameTime# * 0.001
            endif
         endif

         `Give the ant a radius for patrol
         if dist# < 3.0 then dist# = 3.0

         `calculate the angle between ant and target (patrol zone or food)
         dAngle# = atanfull(dx#, dz#)
         `gradually turn ant towards target based on the distance to target
         Ants(i).angle# = curveangle(dAngle#, Ants(i).angle#, dist# * (100.0 / frameTime#))

         `Set Ant Speed based on how "fat" they are
         sp# = ANT_SPEED - (object size x(obj) * 10.0)
         if sp# < 0.5 then sp# = 0.5

         `Calculate new position based on angle and speed and time.
         inc Ants(i).x#, sp# * sin(Ants(i).angle#) * frameTime# * 0.001
         inc Ants(i).z#, sp# * cos(Ants(i).angle#) * frameTime# * 0.001
         position object obj, Ants(i).x#, 0.25, Ants(i).z#
         yrotate object obj, Ants(i).angle#


         s# = (object size x(obj) / 0.002) - frameTime# * 0.001
         if s# < 75.0
            `Dead Ant
            delete object obj
            j = 205
            `Search for available object to create food from dead ant
            while object exist(j) AND j < 221 : inc j : endwhile

            if object exist(j) = 0
               `Create food from dead ant
               make object sphere j, 0.5
               scale object j, 100.0, 50.0, 100.0
               position object j, Ants(i).x#, 0.25, Ants(i).z#
               color object j, rgb(192, 0, 0)
            endif
         else
            scale object obj, s#, 100.0, s#

            if Ants(i).reproduce_progress# > 30.0
               `REPRODUCE CODE HERE
               j = 101
               while object exist(j) = 1 AND j < MAX_ANT_COUNT + 100 : inc j : endwhile
               if object exist(j) = 0
                  createAnt(j-100, Ants(i).x#, Ants(i).z#)
                  Ants(i).reproduce_progress# = 0.0
               endif
            else
               if s# > 150.0 then inc Ants(i).reproduce_progress#, frameTime# * 0.005
            endif
            rep# = Ants(i).reproduce_progress#


            sX# = object screen x(obj) + 10.0
            sY# = object screen y(obj) - 15.0

            `Max = 30.0
            `Min = 7.5
            `Range = 22.5
            `Factor to turn 22.5 to 30 = 1.33…

            `Bar cols:
            `  -1 = black
            `   0,1,2,3 = Health
            `   4 = black
            `   5,6,7,8 = reproduce progress
            `   9 = black


            s# = ((object size x(obj) / 0.02) - 7.5) * 1.33333333333333333333333
            if s# < 0.0 then s# = 0.0

            `Black bacground
            ink rgb(0.0, 0.0, 0.0), rgb(0,0,0)
            box sX#-1.0, sY#-1.0, sX# + 9.0, sY# + 31.0

            `Health Bar
            r# = 255.0 - (s# * 8.5) : if r# < 0 then r# = 0 else if r# > 255 then r# = 255
            g# =         (s# * 8.5) : if g# < 0 then g# = 0 else if g# > 255 then g# = 255
            ink rgb(r#, g#, 0.0), rgb(0,0,0)
            box sX#, sY# + 30.0 - s#, sX#+3.0, sY# + 30.0

            `Reproduce Bar
            ink rgb(0.0, 0.0, 255.0), rgb(0,0,0)
            box sX#+5.0, sY# + 30.0 - rep#, sX#+8.0, sY# + 30.0

            `Default colour
            ink rgb(255.0, 255.0, 255.0), rgb(0,0,0)
         endif
      endif
   next i
return


end
function createRandomAnt(i)
   Ants(i).x# = rnd(ARENA_SIZE)-(ARENA_SIZE*0.5)
   Ants(i).z# = rnd(ARENA_SIZE)-(ARENA_SIZE*0.5)

   Ants(i).cx# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)
   Ants(i).cz# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)

   Ants(i).angle# = atanfull(-Ants(i).x#, -Ants(i).z#)

   Ants(i).reproduce_progress# = 0.0

   make object triangle 100+i, -0.1, 0.0, 0.0,    0.0, 0.0, 0.25,    0.1, 0.0, 0.0
   position object 100+i, Ants(i).x#, 0.25, Ants(i).z#
   yrotate object 100+i, Ants(i).angle#
   set object light 100+i, 0
endfunction


function createAnt(i, x#, z#)
   Ants(i).x# = x#
   Ants(i).z# = z#

   Ants(i).cx# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)
   Ants(i).cz# = rnd(ARENA_SIZE*0.5)-(ARENA_SIZE*0.25)

   Ants(i).angle# = atanfull(-Ants(i).x#, -Ants(i).z#)

   Ants(i).reproduce_progress# = 0.0

   make object triangle 100+i, -0.1, 0.0, 0.0,    0.0, 0.0, 0.25,    0.1, 0.0, 0.0
   position object 100+i, Ants(i).x#, 0.25, Ants(i).z#
   yrotate object 100+i, Ants(i).angle#
   set object light 100+i, 0
endfunction

function rgba(r as integer,g as integer,b as integer,a as integer)
  colour as dword
  colour = (b)+(g*256)+(r*65536)+(a*16777216)
endfunction colour