Guest User

Untitled

a guest
May 3rd, 2013
1,093
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3.     function clearplayfield()
  4.  
  5.         for x = 0x6, 0x8, 2 do
  6.             for y = 0x02, 0x0B do
  7.                 memory.writebyte(0xC800 + (x * 0x10) + y, 0x2F);
  8.             end;
  9.         end;
  10.  
  11.  
  12.     end;
  13.  
  14.  
  15.  
  16.  
  17.     piecevalues = {
  18.         [0x00]  = "L",
  19.         [0x04]  = "J",
  20.         [0x08]  = "I",
  21.         [0x0C]  = "O",
  22.         [0x10]  = "Z",
  23.         [0x14]  = "S",
  24.         [0x18]  = "T",
  25.     };
  26.  
  27.     pieces      = {};
  28.  
  29.     for k,v in pairs(piecevalues) do
  30.         pieces[k]   = 0;
  31.     end;
  32.  
  33.     sum             = 0;
  34.  
  35.     print("butt");
  36.  
  37.     donepiece   = true;
  38.  
  39.     while true do
  40.  
  41.         if not donepiece and memory.readbyte(0xC201) == 0x18 then
  42.             clearplayfield();
  43.             local curpiece      = memory.readbyte(0xC203);
  44.             donepiece           = true;
  45.             pieces[curpiece]    = pieces[curpiece] + 1;
  46.             sum                 = sum + 1;
  47.  
  48.         elseif donepiece and memory.readbyte(0xC201) ~= 0x18 then
  49.             donepiece   = false;
  50.         end;
  51.  
  52.         local temp  = 0;
  53.  
  54.         inpt    = input.get();
  55.         if inpt['X'] then
  56.  
  57.             gui.box(96, 0, 159, 144, 0x000000af, 0x000000ff);
  58.             for k,v in pairs(piecevalues) do
  59.                 gui.text(100, temp * 7, string.format("%s %6d %5.2f%%", v, pieces[k], pieces[k] / sum * 100));
  60.                 temp    = temp + 1;
  61.             end;
  62.             temp        = temp + 1;
  63.         end;
  64.  
  65.             gui.text(100, temp * 7, string.format("%8d", sum));
  66.  
  67.         emu.frameadvance();
  68.     end;
RAW Paste Data