BoFIII Fishing Aid (revised)

while true do

//  KEY
// .--------------------.--------------------.
// | JEL | Jellyfish    | BLW | Blowfish     |
// | PIR | Pirana       | SEA | Sea Bream    |
// | PUF | Puffer       | SBS | Sea Bass     |
// | TRT | Trout        | POR | Black Porgy  |
// | RBW | RainbowTrout | OCT | Octopus      |
// | RED | Red Catfish  | ANG | Angler       |
// | BAS | Bass         | DEV | Devilfish    |
// | MAR | MartianSquid | SPR | Spearfish    |
// | BLK | Black Bass   | WHL | Whale        |
// | BAR | Barandy      | MCK | Mackerel     |
// | MOW | Man-o'-War   | MAN | Manillo      |
// | FLY | Flying Fish  |--------------------'
// '--------------------'

// The following tables hold the game's 23 fish in the order
// the game indexes them, both abbreviated names and lengths.

local name = {"JEL", "PIR", "PUF", "TRT", "RBW", "RED", "BAS",
              "MAR", "BLK", "BAR", "MOW", "FLY", "BLW", "SEA",
              "SBS", "POR", "OCT", "ANG", "DEV", "SPR", "WHL",
              "MCK", "MAN"}
local max =  {30, 40, 50, 70, 70, 80, 40, 80, 90, 200, 30, 20,
              20, 40, 60, 60, 70, 100, 120, 160, 240, 70, 200}

  local i
  for i = 0, 24, 1 do
    caught = memory.readbyte(0x0014688A+i*0x98)
    type = memory.readbyte(0x0014688E+i*0x98) + 1
    length = memory.readbyte(0x00146918+i*0x98)
    xpos = memory.readwordsigned(0x001468B6+i*0x98)
    ypos = memory.readwordsigned(0x001468B8+i*0x98)
    if length > 0 then
      if caught == 0 then
        gui.text(xpos,ypos,""..length,"red")
        gui.text(302,20+i*8,""..length)
        gui.text(278,20+i*8,""..name[type])
        if length >= max[type] then
          gui.text(292,20+i*8,"*","green")
        end
      end
    end
  end

  emu.frameadvance()

end