Quadzerker Gogo steal

save = savestate.create()
savestate.save(save)
hairpin = false
reloads = -1
clears = 0
hairpin_count = 0
reload_time = os.clock()
leather = 0

function reload(reason)
   vba.print(reason)
   reloads = reloads + 1
   reload_time = os.clock()
   hairpin = false
   savestate.load(save)
   rng = math.random(300)
   while(rng > 0) do
     vba.message("R: " .. reloads  .. " H: " .. hairpin_count .. " C: " .. clears .. " L: " .. leather)
     vba.frameadvance()
     rng = rng - 1
   end
   i = 0
   while(i < 30) do
     joypad.set(1, {A=true})
     vba.message("R: " .. reloads  .. " H: " .. hairpin_count .. " C: " .. clears .. " L: " .. leather)
     vba.frameadvance()
     i = i+1
   end
   i = 0
   while(i < 120) do
     vba.frameadvance()
     i = i+1
   end
   i = 0
   while(i < 30) do
     joypad.set(1, {A=true})
     vba.message("R: " .. reloads  .. " H: " .. hairpin_count .. " C: " .. clears .. " L: " .. leather)
     vba.frameadvance()
     i = i+1
   end
end

reload("Start")

while true do
   in_fight = memory.readwordsigned(0x0201F056) == -17822
   butz_dead = memory.readwordsigned(0x0201EE04) == 0
   lenna_dead = memory.readwordsigned(0x0201EE98) == 0
   krile_dead = memory.readwordsigned(0x0201EF2C) == 0
   faris_dead = memory.readwordsigned(0x0201EFC0) == 0
   gogo_dead = memory.readwordsigned(0x0201F054) == 0
   vba.message((in_fight and 't' or 'f').. " " .. (butz_dead and 't' or 'f') .. " " .. (lenna_dead and 't' or 'f').. " " .. (krile_dead and 't' or 'f').. " " .. (faris_dead and 't' or 'f').. " " .. (gogo_dead and 't' or 'f'))
   if(memory.readbyte(0x0201C36A) == 5) then
      leather = leather + 1
      reload("Stole leather")
   end
   if(memory.readbyte(0x0201C360) == 148 and hairpin == false) then
      vba.print("Seen it!")
      hairpin = true
      hairpin_count = hairpin_count + 1
   end
   if(in_fight and gogo_dead) then
     clears = clears + 1
     vba.print("Cleared!")
     vba.print(clears)
     if(hairpin == true) then
       vba.print("GOT IT!")
       vba.pause()
       break
     end
     if(hairpin == false) then
       reload("Didn't steal the thing")
     end
   end
   if(in_fight and krile_dead and hairpin == false) then
     reload("Krile died")
   end
   if(in_fight and butz_dead and lenna_dead and krile_dead and faris_dead) then
     reload("Wrecked")
   end
   vba.frameadvance()
end

vba.print("Done")