proc draw_food
for i: 1 .. 20
loop
randint(foodx(i),0,maxx)
randint(foody(i),0,maxy-infobar_size)
loop
if foodx(i) >= 0 and foodx(i) <= 470 and foody(i) <= 240 and foody(i) <= 155 or %%bottom left cliff
foodx(i) >= 545 and foodx(i) <= maxx and foody(i) <= 240 and foody(i) >= 155 or %%bottom right cliff
foodx(i) >= 395 and foodx(i) <= 590 and foody(i) <= 375 and foody(i) >= 300 or %%Middle Pond
foodx(i) >= 480 and foodx(i) <= 0 and foody(i) <= 515 and foody(i) >= 425 or %%Top left cliff
foodx(i) >= 545 and foodx(i) <= maxx and foody(i) <= 240 and foody(i) >= 425 then%Top right cliff
randint(foodx(i),0,maxx)
randint(foody(i),0,maxy-infobar_size)
else
exit
end if
end loop
exit when i = 20
end loop
drawfilloval(foodx(i),foody(i),5,5,7)
end for
end draw_food