mgr.inz.Player I post too much Reputation: 218 Joined: 07 Nov 2008 Posts: 4438 Location: W kraju nad Wisla. UTC+01:00
|
Posted: Thu Jul 28, 2016 12:43 pm Post subject: CT Name And Decimal PID |
|
|
Features:
- current cheat table name. Something similar to "project name" known from other applications.
- decimal process ID
- popup menus - you can copy file name, file full path, decimal PID to the clipboard.
Just place it in autorun folder.
Script:
Code: | local mf = getMainForm()
local sd = mf.SaveDialog1
local od = mf.OpenDialog1
local filefullpath
local filename
local mi
local function returnFileName(path)
--extracts file name from full path (not full path => return nil)
return (path~=nil) and (path:match("\\([^\\]+)$"))
end
-- currentTableNameLabel
local currentTableNameLabel = createLabel(mf)
currentTableNameLabel.Name = 'currentTableNameLabel'
currentTableNameLabel.Caption = ''
currentTableNameLabel.Font.Assign(mf.foundcountlabel.Font)
currentTableNameLabel.Parent = mf.Panel5
currentTableNameLabel.AnchorSideLeft.Control = mf.foundcountlabel
currentTableNameLabel.AnchorSideLeft.Side = asrBottom
currentTableNameLabel.AnchorSideTop.Control = mf.foundcountlabel
currentTableNameLabel.AnchorSideTop.Side = asrCenter
currentTableNameLabel.BorderSpacing.Left = 20
currentTableNameLabel.ShowHint = true
currentTableNameLabel.PopupMenu=createPopupMenu(currentTableNameLabel)
mi = createMenuItem(currentTableNameLabel.PopupMenu)
currentTableNameLabel.PopupMenu.Items.add(mi)
mi.Caption="cheat table file name - copy to clipboard"
mi.OnClick=function () writeToClipboard(filename) end
mi = createMenuItem(currentTableNameLabel.PopupMenu)
currentTableNameLabel.PopupMenu.Items.add(mi)
mi.Caption="cheat table file full path - copy to clipboard"
mi.OnClick=function () writeToClipboard(filefullpath) end
-- decimalPIDLabel
local decimalPIDLabel = createLabel(mf)
decimalPIDLabel.Name = 'decimalPIDLabel'
decimalPIDLabel.Caption = ''
decimalPIDLabel.Font.Assign(mf.ProcessLabel.Font)
decimalPIDLabel.Parent = mf.Panel5
decimalPIDLabel.AnchorSideLeft.Control = mf.ProcessLabel
decimalPIDLabel.AnchorSideLeft.Side = asrBottom
decimalPIDLabel.AnchorSideTop.Control = mf.ProcessLabel
decimalPIDLabel.AnchorSideTop.Side = asrCenter
decimalPIDLabel.BorderSpacing.Left = 5
decimalPIDLabel.PopupMenu=createPopupMenu(decimalPIDLabel)
mi = createMenuItem(decimalPIDLabel.PopupMenu)
decimalPIDLabel.PopupMenu.Items.add(mi)
mi.Caption="decimal PID - copy to clipboard"
mi.OnClick=function () writeToClipboard(decimalPIDLabel.Caption:sub(2,-2)) end
-- change ProcessLabel positioning
mf.ProcessLabel.Anchors = '[akTop,akLeft]'
mf.ProcessLabel.AnchorSideLeft.Control = mf.Panel5
mf.ProcessLabel.AnchorSideLeft.Side = asrCenter
-- updateLabelsCaptionsTimer
local updateLabelsCaptionsTimer = createTimer(mf)
updateLabelsCaptionsTimer.Interval = 500
updateLabelsCaptionsTimer.OnTimer = function (t)
filefullpath = sd.Filename or od.Filename or ''
filename = returnFileName(filefullpath)
currentTableNameLabel.Hint = filefullpath
if filename then currentTableNameLabel.Caption = 'CT Name: '..filename
else currentTableNameLabel.Caption = 'CT Name:' end
local OpenedProcessID = getOpenedProcessID()
decimalPIDLabel.Caption = (OpenedProcessID==4294967295) and '' or ('('..OpenedProcessID..')')
end
|
Below file contains (up do date ) script. _________________ Dark Souls II Item Swap and Item List
My Borderlands2 tables
Recent CheatEngine builds
Last edited by mgr.inz.Player on Sun Apr 12, 2020 9:39 am; edited 3 times in total
|
|