Guest User

Untitled

a guest
May 3rd, 2013
1,037
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3.     piecevalues = {
  4.         [0x00]  = "I",
  5.         [0x01]  = "T",
  6.         [0x02]  = "Z",
  7.         [0x03]  = "S",
  8.         [0x04]  = "J",
  9.         [0x05]  = "L",
  10.         [0x06]  = "O",
  11.     };
  12.  
  13.     pieces      = {};
  14.  
  15.     for k,v in pairs(piecevalues) do
  16.         pieces[k]   = 0;
  17.     end;
  18.  
  19.     sum             = 0;
  20.  
  21.     print("butt");
  22.  
  23.     donepiece   = true;
  24.     lasty       = 0xFF;
  25.  
  26.     while true do
  27.  
  28. --      if donepiece and memory.readbyte(0xAF81) == 0x01 then
  29.         piecey  = memory.readbyte(0xAF81);
  30.         if piecey < lasty then
  31.             local curpiece      = memory.readbyte(0xAF85);
  32.             donepiece           = true;
  33.             pieces[curpiece]    = pieces[curpiece] + 1;
  34.             sum                 = sum + 1;
  35.             --memory.writebyte(0xAF80, math.random(0x02, 0x08));
  36.             --memory.writebyte(0xAF81, math.random(0x03, 0x0F));
  37.             --joypad.set(1,{down=1});
  38.         --elseif donepiece and memory.readbyte(0xAF81) ~= 0x01 then
  39.         --  donepiece   = false;
  40.  
  41.         end;
  42.  
  43.         lasty   = piecey;
  44.  
  45.         local temp  = 0;
  46.  
  47.         inpt    = input.get();
  48.         if true or inpt['X'] then
  49.  
  50.             gui.box(96, 0, 159, 144, 0x000000af, 0x000000af);
  51.             for k,v in pairs(piecevalues) do
  52.                 gui.text(100, temp * 7, string.format("%s %6d %5.2f%%", v, pieces[k], pieces[k] / sum * 100));
  53.                 temp    = temp + 1;
  54.             end;
  55.             temp        = temp + 1;
  56.         end;
  57.  
  58.             gui.text(100, temp * 7, string.format("%8d", sum));
  59.  
  60.         emu.frameadvance();
  61.     end;
RAW Paste Data