Hold Key Press Hotkey Script

[Evoked100]

im found this value

Code: Select all

GameAssembly.dll+641AB4C

in float

Code: Select all

-1

im need script for Hold keypress "SHIFT" the value -1 come to 5

im found this on google

Code: Select all

function _Key()
         keyDown(VK_SHIFT) -- Pressed Key SHIFT
end

how im complete script? thanks very much

[LeFiXER]

Without more information it's hard to say if this will work exactly as intended. The code provided creates a hotkey and assigns a function that writes a float value of 5 to the address upon pressing the hotkey.

Code: Select all

hk = createHotkey(function()
  writeFloat(GameAssembly.dll+641AB4C, 5)
end, VK_SHIFT)

[Evoked100]

Without more information it's hard to say if this will work exactly as intended. The code provided creates a hotkey and assigns a function that writes a float value of 5 to the address upon pressing the hotkey.

Code: Select all

hk = creatHotkey(function()
  writeFloat(GameAssembly.dll+641AB4C, 5)
end, VK_SHIFT)

not working im try

[LeFiXER]

not working im try

I noticed a typo. I missed the "e" in "createHotkey".

[Evoked100]

Without more information it's hard to say if this will work exactly as intended. The code provided creates a hotkey and assigns a function that writes a float value of 5 to the address upon pressing the hotkey.

Code: Select all

hk = createHotkey(function()
  writeFloat(GameAssembly.dll+641AB4C, 5)
end, VK_SHIFT)

im have tryed this...

no have effect. value no change to 5

Code: Select all

function speed() --boosts speed for superspeed
   if main.speed.checked==true then
   writeFloat("GameAssembly.dll+641AB4C",5)
  end
end

function float() --superspeed without the speed
    writeFloat("GameAssembly.dll+641AB4C",5)
end

speedkey = createHotkey("speed",VK_SHIFT) --superspeed hotkey

function close() --on close for form
closeCE()
return caFree
end

main=createForm(true)
main.borderstyle=bsToolWindow
main.height=70
main.width=156
main.left=342
main.top=115
main.caption="Speed"
main.OnClose = close
main.speedtext=createLabel(main)
main.speedtext.caption="Super Speed"
main.speedtext.left=28
main.speedtext.top=5
main.speed=createCheckBox(main)
main.speed.caption=nil
main.speed.checked=false
main.speed.left=95
main.speed.top=5
main.OnClose = close

[LeFiXER]

Here:

Code: Select all

frmSpeed = createForm(true)
frmSpeed.borderstyle = bsToolWindow
frmSpeed.height = 70
frmSpeed.width = 156
frmSpeed.left = 342
frmSpeed.top = 115
frmSpeed.caption = "Speed"
frmSpeed.OnClose = disableSpeed()

cbSpeed = createCheckBox(frmSpeed)
cbSpeed.caption = "Super Speed"
cbSpeed.OnClick = checkState
cbSpeed.left = 10
cbSpeed.top = 15

function disableSpeed()
  -- Here you will want to write the original speed value
  local original_speed = 0

  if hk then
    hk.destroy()
    hk = nil
    print('Hotkey destroyed')
  end

  if original_speed ~= nil then
     writeFloat("GameAssembly.dll+641AB4C", original_speed)
  else
     return nil
  end
end

function setSpeed(speedToSet, nkey)
  if frmSpeed == nil then
    return
  end
  local hk = createHotkey(
             function()
               if nkey ~= nil then
                 writeFloat("GameAssembly.dll+641AB4C", tonumber(speedToSet))
               end
             end, nkey)
     --print('Created hotkey: ' .. string.format("0x%X", nkey) .. '\nSpeed set to : ' .. tostring(speedToSet))
     return hk
end


function checkState(cb)
   if cb.State == cbChecked then
      setSpeed(5, VK_SHIFT)
   else
      disableSpeed()
   end
end

This will create the hotkey when the checkbox is enabled. Make sure the address is correct.

[Evoked100]

Here:

Code: Select all

frmSpeed = createForm(true)
frmSpeed.borderstyle = bsToolWindow
frmSpeed.height = 70
frmSpeed.width = 156
frmSpeed.left = 342
frmSpeed.top = 115
frmSpeed.caption = "Speed"
frmSpeed.OnClose = disableSpeed()

cbSpeed = createCheckBox(frmSpeed)
cbSpeed.caption = "Super Speed"
cbSpeed.OnClick = checkState
cbSpeed.left = 10
cbSpeed.top = 15

function disableSpeed()
  -- Here you will want to write the original speed value
  local original_speed = 0

  if hk then
    hk.destroy()
    hk = nil
    print('Hotkey destroyed')
  end

  if original_speed ~= nil then
     writeFloat("GameAssembly.dll+641AB4C", original_speed)
  else
     return nil
  end
end

function setSpeed(speedToSet, nkey)
  if frmSpeed == nil then
    return
  end
  local hk = createHotkey(
             function()
               if nkey ~= nil then
                 writeFloat("GameAssembly.dll+641AB4C", tonumber(speedToSet))
               end
             end, nkey)
     --print('Created hotkey: ' .. string.format("0x%X", nkey) .. '\nSpeed set to : ' .. tostring(speedToSet))
     return hk
end


function checkState(cb)
   if cb.State == cbChecked then
      setSpeed(5, VK_SHIFT)
   else
      disableSpeed()
   end
end

This will create the hotkey when the checkbox is enabled. Make sure the address is correct.

Address is correct check:


thanks for help-me

on line 8 says this error:

Code: Select all

Error:[string "frmSpeed = createForm(true)
..."]:8: attempt to call a nil value (global 'disableSpeed')

im deleted line 8 and execute this (only changed original speed 0 to -1:

Code: Select all

frmSpeed = createForm(true)
frmSpeed.borderstyle = bsToolWindow
frmSpeed.height = 70
frmSpeed.width = 156
frmSpeed.left = 342
frmSpeed.top = 115
frmSpeed.caption = "Speed"

cbSpeed = createCheckBox(frmSpeed)
cbSpeed.caption = "Super Speed"
cbSpeed.OnClick = checkState
cbSpeed.left = 10
cbSpeed.top = 15

function disableSpeed()
  -- Here you will want to write the original speed value
  local original_speed = -1

  if hk then
    hk.destroy()
    hk = nil
    print('Hotkey destroyed')
  end

  if original_speed ~= nil then
     writeFloat("GameAssembly.dll+641AB4C", original_speed)
  else
     return nil
  end
end

function setSpeed(speedToSet, nkey)
  if frmSpeed == nil then
    return
  end
  local hk = createHotkey(
             function()
               if nkey ~= nil then
                 writeFloat("GameAssembly.dll+641AB4C", tonumber(speedToSet))
               end
             end, nkey)
     --print('Created hotkey: ' .. string.format("0x%X", nkey) .. '\nSpeed set to : ' .. tostring(speedToSet))
     return hk
end


function checkState(cb)
   if cb.State == cbChecked then
      setSpeed(5, VK_SHIFT)
   else
      disableSpeed()
   end
end

open window, im enable Box and use "SHIFT" value not move to 5

[LeFiXER]

...

It might be better to use the built-in feature.
See: [Link]

[Evoked100]

im have created this now :

Code: Select all

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>293</ID>
      <Description>"Speed Hack"</Description>
      <LastState Activated="1"/>
      <Color>408000</Color>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript>[ENABLE]
aobscan(speed, 00 00 80 BF 92 0A 86 BF 00)

label(speed1)
registersymbol(speed1)

speed:
speed1:


[DISABLE]

unregistersymbol(speed1)
</AssemblerScript>
      <CheatEntries>
        <CheatEntry>
          <ID>294</ID>
          <Description>"speed"</Description>
          <LastState Value="-1" RealAddress="7FFAE9E8AB4C"/>
          <ShowAsSigned>0</ShowAsSigned>
          <VariableType>Float</VariableType>
          <Address>speed1</Address>
          <Hotkeys>
            <Hotkey>
              <Action>Set Value</Action>
              <Keys>
                <Key>16</Key>
              </Keys>
              <Value>5</Value>
              <ID>0</ID>
            </Hotkey>
          </Hotkeys>
        </CheatEntry>
      </CheatEntries>
    </CheatEntry>
  </CheatEntries>
</CheatTable>

How im add auto anddress come back to -1 after unpress the shift button?

[LeFiXER]

I wish I could help more, but I simply don't have the time. Perhaps setting another hotkey to set the value to -1 instead is a happy compromise.

[Evoked100]

any have solution for this?

@SunBeam
@ShyTwig16
@tfigment
@Akira
@cedricvdg
@GreenHouse
@Insterluda
@TheByteSize
@Rysefox
@MBRKiNG
@DarkByte

thanks LeFiXER for help at here

[YoucefHam]

any have solution for this?
...

Hi there ,
try this, paste the code in cheat engine Address list

Code: Select all

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>2441</ID>
      <Description>"While Key Pressed Down Do"</Description>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript Async="1">{$lua}
if syntaxcheck then return end
memrec.Async = true
[ENABLE]
-- Tutorial Step 4 Float Value
-- local AddressString = '["Tutorial-x86_64.exe"+0x325AA0]+0x818'
local AddressString = 'GameAssembly.dll+641AB4C'
local Address = getAddress( AddressString )
local key = VK_SHIFT  -- see for more https://wiki.cheatengine.org/index.php?title=Virtual-Key_Code
local DownValue = 5  -- Value while Key is Pressed Down
local UpValue = -1  -- Value while Key is Not Pressed

hk = createHotkey( function()
   while isKeyPressed( key ) do
     writeFloat( Address, DownValue ) -- Value while Key is Pressed Down
     sleep(10)
     if not isKeyPressed( key ) then
         writeFloat( Address, UpValue ) -- Value while Key is Not Pressed
     end
   end
   if not isKeyPressed( key ) then
         writeFloat( Address, UpValue ) -- Value while Key is Not Pressed
   end
end, key )

[DISABLE]
key = nil
AddressString = nil
Address = nil
if hk then
  hk.destroy()
  hk = nil
end

</AssemblerScript>
    </CheatEntry>
  </CheatEntries>
</CheatTable>

[Evoked100]

any have solution for this?
...

Hi there ,
try this, paste the code in cheat engine Address list

Code: Select all

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>2441</ID>
      <Description>"While Key Pressed Down Do"</Description>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript Async="1">{$lua}
if syntaxcheck then return end
memrec.Async = true
[ENABLE]
-- Tutorial Step 4 Float Value
-- local AddressString = '["Tutorial-x86_64.exe"+0x325AA0]+0x818'
local AddressString = 'GameAssembly.dll+641AB4C'
local Address = getAddress( AddressString )
local key = VK_SHIFT  -- see for more https://wiki.cheatengine.org/index.php?title=Virtual-Key_Code
local DownValue = 5  -- Value while Key is Pressed Down
local UpValue = -1  -- Value while Key is Not Pressed

hk = createHotkey( function()
   while isKeyPressed( key ) do
     writeFloat( Address, DownValue ) -- Value while Key is Pressed Down
     sleep(10)
     if not isKeyPressed( key ) then
         writeFloat( Address, UpValue ) -- Value while Key is Not Pressed
     end
   end
   if not isKeyPressed( key ) then
         writeFloat( Address, UpValue ) -- Value while Key is Not Pressed
   end
end, key )

[DISABLE]
key = nil
AddressString = nil
Address = nil
if hk then
  hk.destroy()
  hk = nil
end

</AssemblerScript>
    </CheatEntry>
  </CheatEntries>
</CheatTable>

thanks for help, im try test on night.