{$lua}
[ENABLE]
if syntaxcheck then return end

-- Defines
WindowScale = 4

LoopEnabled = true
function readIntegerSigned(addr)
  local val=readInteger(addr)
  local sign=bAnd(val,0x80000000)
  return sign==0 and val or val-0x100000000
end



ScreenSizeX = readInteger("0x0083168C")
ScreenSizeY = readInteger("0x00831690")
Screen1X = 424
Screen1Y = 240

WindowScale = 4
ScreenX = 275 * WindowScale
ScreenY = 210 * WindowScale
BoxScaledX = 145 * WindowScale
BoxScaledY = 30 * WindowScale
FontScale1 = 8 * WindowScale
FontScale2 = 3 * WindowScale

TextScaleObj0 = 45 * WindowScale
TextScaleObj1 = 20 * WindowScale
TextScaleObj2 = 10 * WindowScale
TextScaleObj3 = 20 * WindowScale
TextScaleObj3Y = 20 * WindowScale
TextScaleSpeed = 50 * WindowScale
LeadingScale = 2 * WindowScale
TopPadding = 5 * WindowScale

red="0x000000FF"
white="0x00FFFFFFF"
Gray="0x00a0a0a0"

background=createPicture()
bmp=picture_getBitmap(background);
red="0x000000FF"
white="0x00FFFFFFF"
Gray="0x00a0a0a0"
graphic_setHeight(bmp,1)
graphic_setWidth(bmp,1)
c=rasterimage_getCanvas(bmp)

canvas_setPixel(c,0,0,0x000000)

d3dhook_initializeHook()
bgtexture=d3dhook_createTexture(background)
bgsprite=d3dhook_createSprite(bgtexture);
d3dhook_renderobject_setX(bgsprite, ScreenX) --center it horizontally
d3dhook_renderobject_setY(bgsprite, ScreenY-TopPadding) --center it horizontally
d3dhook_sprite_setWidth(bgsprite,BoxScaledX)
d3dhook_sprite_setHeight(bgsprite,BoxScaledY)

d3dhook_initializeHook()




font1=createFont()
setProperty(font1, "size", FontScale1)
setProperty(font1,"color",white)
setProperty(font1 , "Style", "[fsBold]")
setProperty(font1,"Pitch",fpFixed)
setProperty(font1,"Quality",fqNonAntialiased)
font_setName(font1, "Lucida Sans Typewriter Bold")


fontmap1=d3dhook_createFontmap(font1)
lineheight=d3dhook_texture_getHeight(fontmap1) --fontmap inherits from texture so this can be used


font=createFont()
setProperty(font,"color",white)
setProperty(font, "Style", "[fsBold]")
setProperty(font, "size", FontScale2)
setProperty(font,"Pitch",fpFixed)
setProperty(font,"Quality",fqNonAntialiased)
font_setName(font, "Lucida Sans Typewriter Bold")

fontmap=d3dhook_createFontmap(font)
lineheight=d3dhook_texture_getHeight(fontmap) --fontmap inherits from texture so this can be used


WHAT = d3dhook_createTextContainer(fontmap,ScreenX + TextScaleObj0,ScreenY+9000, '') --NotUsed
WHAT2=d3dhook_createTextContainer(fontmap,ScreenX+LeadingScale,ScreenY - FontScale2,'SPRevCount  ')
WHAT0 = d3dhook_createTextContainer(fontmap1,ScreenX + LeadingScale,ScreenY,' ')
WHAT1=d3dhook_createTextContainer(fontmap1,ScreenX + LeadingScale,ScreenY + TextScaleObj2,' ')
XSPeedText=d3dhook_createTextContainer(fontmap1,ScreenX + TextScaleSpeed,ScreenY,' ')
YSPeedText=d3dhook_createTextContainer(fontmap1,ScreenX + TextScaleSpeed,ScreenY + TextScaleObj2,' ')





hidden = 0
function ShowHide()
         if hidden == 0 then
            bgsprite.Visible = false
            WHAT0.Visible = false
            WHAT.Visible = false
            WHAT1.Visible = false
            WHAT2.Visible = false
            XSPeedText.Visible = false
            YSPeedText.Visible = false
            hidden = 1
         else
         bgsprite.Visible = true
         WHAT0.Visible = true
         WHAT.Visible = true
         WHAT1.Visible = true
         WHAT2.Visible =true
         XSPeedText.Visible = true
         YSPeedText.Visible = true
         hidden = 0
         end
end

createHotkey(ShowHide,VK_F5)


function Loop()

  while(LoopEnabled) do
    XPOS = readSmallInteger("0x0085E9A2")
    YPOS = readSmallInteger("0x0085E9A6")
    if(XPOS == nil or YPOS == nil) then
        WHAT0.text = "X: 0000"
        WHAT1.text = "Y: 0000"
    else
        WHAT0.text = "X:" .. string.format("%05d", XPOS);
        WHAT1.text = "Y:" .. string.format("%05d", YPOS);
    end

    XSpeed = readIntegerSigned("0x0085E9B0")
    YSpeed = readIntegerSigned("0x0085E9B4")
    if(XSpeed == nil or YSpeed == nil) then
        XSPeedText.text = "X: 0000"
        YSPeedText.text = "Y: 0000"
    else
        XSPeedText.text = "XSpeed:" .. string.format("%07d", XSpeed);
        YSPeedText.text = "YSpeed:" .. string.format("%07d", YSpeed);
    end


    RevCount = readBytes("85EA8A",1)
    if (RevCount ~= nil) then
        WHAT2.text = "SpinDash Rev Count:" .. RevCount
    end
  end
end


createThread(Loop)


--createHotkey(LoopRun,VK_END)

[DISABLE]
bgsprite.Visible = false
WHAT0.Visible = false
WHAT.Visible = false
WHAT1.Visible = false
WHAT2.Visible = false
XSPeedText.Visible = false
YSPeedText.Visible = false
LoopEnabled = false