Guest User

Untitled

a guest
Aug 17th, 2011
156
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. while true do
  2.  
  3. x = 0
  4. y = 0
  5.  
  6. xpos = memory.readbyte(0xc53c)*256+memory.readbyteunsigned(0xc53d)
  7. ypos = memory.readbyte(0xc53a)*256+memory.readbyteunsigned(0xc53b)
  8. xcam = memory.readbyte(0xffaf)*256+memory.readbyte(0xffb0)
  9. ycam = memory.readbyte(0xffad)*256+memory.readbyte(0xffae)
  10. xcam2 = memory.readbyte(0xffa2)
  11. ycam2 = memory.readbyte(0xffa0)
  12.  
  13. if memory.readbyte(0xffb2) < 64 and memory.readbyte(0xffb3) > 102 then y = 46 else y = 0 end
  14.  
  15. gui.opacity(0.75)
  16. gui.drawbox(96+x,0+y,160+x,20+y,"#861175")
  17. gui.opacity(0.80)
  18.  
  19. gui.text(110+x,0+y, "Pos Cam", "yellow")
  20. gui.text(100+x,7+y, "X", "yellow")
  21. gui.text(100+x,13+y, "Y", "yellow")
  22. gui.text(110+x,7+y, xpos)
  23. gui.text(110+x,13+y, ypos)
  24. gui.text(138+x,7+y, xcam)
  25. gui.text(138+x,13+y, ycam)
  26.  
  27. -- enemy x,y display
  28.  
  29. for i = 0xD000, 0xD0FF, 32 do
  30. if memory.readbyte(i+0) ~= 0 then
  31. local xenemy = memory.readbyte(i+6)*256+memory.readbyte(i+5)
  32. local yenemy = memory.readbyte(i+4)*256+memory.readbyte(i+3)
  33. gui.opacity(0.62)
  34. gui.drawbox(xenemy-xcam-6,yenemy-ycam-3,xenemy-xcam+18,yenemy-ycam+10,"#861175")
  35. gui.opacity(0.9)
  36. gui.text(xenemy-xcam-5,yenemy-ycam-2,"X " ..xenemy)
  37. gui.text(xenemy-xcam-5,yenemy-ycam+4,"Y " ..yenemy)
  38. end
  39. end
  40.  
  41. -- final boss fuel
  42.  
  43. -- if memory.readbyte(0xd038) ~= 0 then gui.text(36,3, "Fuel", "yellow") end
  44. -- if memory.readbyte(0xd038) ~= 0 then gui.text(58,3, memory.readbyte(0xd037)) end
  45. -- if memory.readbyte(0xd038) ~= 0 then gui.text(78,3, memory.readbyte(0xd038)) end
  46.  
  47.  
  48. vba.frameadvance()
  49. end
RAW Paste Data