Quadzerker Omniscient steal

save = savestate.create()
savestate.save(save)
seen = false
reloads = -1
clears = 0
seen_count = 0
reload_time = os.clock()
potions = 0
have_potion = false

function reload(reason)
   vba.print(reason)
   reloads = reloads + 1
   reload_time = os.clock()
   savestate.load(save)
   rng = math.random(2400)
   while(rng > 0) do
     vba.message("R: " .. reloads  .. " S: " .. seen_count .. " C: " .. clears .. " P: " .. potions)
     vba.frameadvance()
     rng = rng - 1
   end
   i = 0
   while(i < 200) do
     joypad.set(1, {up=true})
     vba.message("R: " .. reloads  .. " S: " .. seen_count .. " C: " .. clears .. " P: " .. potions)
     vba.frameadvance()
     i = i+1
   end
end

reload("Start")

while true do
   vba.message("R: " .. reloads  .. " S: " .. seen_count .. " C: " .. clears .. " P: " .. potions)
   if(memory.readbyte(0x0201C360) == 224) then
      if(have_potion == false) then
        potions = potions + 1
        have_potion = true
      end
      seen = false
   end
   if(memory.readbyte(0x0201C360) == 197 and seen == false) then
      vba.print("Seen it!")
      vba.print(seen_count)
      seen = true
      have_potion = false
      seen_count = seen_count + 1
   end
   if(memory.readbyte(0x0201C360) == 0) then
      seen = false
      have_potion = false
   end
   if(memory.readwordsigned(0x0201F056) == 16999 and memory.readwordsigned(0x0201F054) == 0) then
     clears = clears + 1
     vba.print("Cleared!")
     vba.print(clears)
     if(seen == true) then
       vba.print("GOT IT!")
       break
     end
     if(seen == false) then
       reload("Didn't steal the thing")
     end
   end
   if(os.clock() - reload_time > 90) then
      reload("Timed out")
   end
   vba.frameadvance()
end

vba.print("Done")