aalist=getAutoAttachList()
stringlist_add(aalist,"ManiaPlanet.exe");

--Hotkeys
speedAccelHK = VK_A
speedDecelHK = VK_D
jumpUpHK = VK_Q
jumpDownHK = VK_E

--Addresses
xAddr='[[[[["ManiaPlanet.exe"+01035964]+124]+34]+78]+1c]+44'
yAddr='[[[[["ManiaPlanet.exe"+01035964]+124]+34]+78]+1c]+48'
zAddr='[[[[["ManiaPlanet.exe"+01035964]+124]+34]+78]+1c]+4c'

--Script Init
scriptVersion = 0.5
control_setCaption(TM2Form_versionLabel, ("V " .. scriptVersion))

speedAccelMult = 1.05
speedDecelMult = 1.2
jumpUpMult = 5
jumpDownMult = 5

control_setCaption(TM2Form_speedAccelEdit, speedAccelMult)
control_setCaption(TM2Form_speedDecelEdit, speedDecelMult)
control_setCaption(TM2Form_jumpUpEdit, jumpUpMult)
control_setCaption(TM2Form_jumpDownEdit, jumpDownMult)

--Main
function speedAccel(speedAccelHK)
  if(getOpenedProcessID()~= 0) then
    x = readFloat(xAddr)
    z = readFloat(zAddr)
    writeFloat(xAddr,x*speedAccelMult)
    writeFloat(zAddr,z*speedAccelMult)
  end
end

function speedDecel(speedDecelHK)
  if(getOpenedProcessID()~= 0) then
    x = readFloat(xAddr)
    z = readFloat(zAddr)
    writeFloat(xAddr,x/speedDecelMult)
    writeFloat(zAddr,z/speedDecelMult)
  end
end

function jumpUp(jumpUpHK)
  if(getOpenedProcessID()~= 0) then
    y = readFloat(yAddr)
    writeFloat(yAddr,y+jumpUpMult)
  end
end

function jumpDown(jumpDownHK)
  if(getOpenedProcessID()~= 0) then
    y = readFloat(yAddr)
    writeFloat(yAddr,y-jumpDownMult)
  end
end


function SetHotKey(func, hotkey)
   local objectHotKey =  createHotkey(func, hotkey)
   generichotkey_setKeys(objectHotKey, hotkey)
   generichotkey_onHotkey(objectHotKey, func)
end

SetHotKey(speedAccel, speedAccelHK)
SetHotKey(speedDecel, speedDecelHK)
SetHotKey(jumpUp, jumpUpHK)
SetHotKey(jumpDown, jumpDownHK)

--Form functions
function speedAccelEditChange(sender)
  if(control_getCaption(TM2Form_speedAccelEdit) ~= nil) then
    speedAccelMult = control_getCaption(TM2Form_speedAccelEdit)
    end
end

function speedDecelEditChange(sender)
  if(control_getCaption(TM2Form_speedDecelEdit) ~= nil) then
    speedDecelMult = control_getCaption(TM2Form_speedDecelEdit)
    end
end

function jumpUpEditChange(sender)
  if(control_getCaption(TM2Form_jumpUpEdit) ~= nil) then
    jumpUpMult = control_getCaption(TM2Form_jumpUpEdit)
    end
end

function jumpDownEditChange(sender)
  if(control_getCaption(TM2Form_jumpDownEdit) ~= nil) then
    jumpDownMult = control_getCaption(TM2Form_jumpDownEdit)
    end
end

form_show(TM2Form)

TM2Form.onClose=function(sender)
  closeCE()
end