local mycustomscripts = { ["scripts"] = {} } function mycustomscripts.Run() local f = getFileList(getCheatEngineDir().."\\templates") local k local v for k,v in ipairs(f) do local filename = v local f = string.match(v,".*\\(.*)") local file, ext = string.match(f,"(.*)[.](.*)") if ext:lower() == "cea" then local myf = io.open(filename, "rb") if myf ~= nil then local content = myf:read("*all") mycustomscripts.scripts[file] = content myf:close() end end end registerFormAddNotification(mycustomscripts.Bind) end function mycustomscripts.Bind(form) if form.Caption == nil then -- Weird form that is half created with no Caption possible return end if form.Caption == "" then -- Form is not full initialized local t = createTimer() t.Interval = 100 t.Enabled = true t.OnTimer = function(t) t:Destroy() mycustomscripts.Bind(form) end else if form.Name:lower():sub(0,13) == "frmautoinject" and form.Menu ~= nil then local i for i=0,form.Menu.Items.Count-1 do if form.Menu.Items[i].Name == "emplate1" or form.Menu.Items[i].Name == "template1" then -- emplate1 ????? local j local found = false for j=0,form.Menu.Items[i].Count - 1 do if form.Menu.Items[i][j].Caption == "Custom" then found = true end end if not found then local citem = createMenuItem(form.Menu.Items[i]) citem.Caption = "Custom" form.Menu.Items[i]:Insert(0, citem); local k,v for k,v in pairs(mycustomscripts.scripts) do local mi = createMenuItem(citem) mi.Caption = k mi.OnClick = function(mi) mycustomscripts.OnClick(form, mi) end citem:Add(mi) end end end end end end end function mycustomscripts.OnClick(form, mi) if mi.Caption ~= nil and mycustomscripts.scripts[mi.Caption] ~= nil then if form.assemblescreen ~= nil then form.assemblescreen.Lines.Text = mycustomscripts.scripts[mi.Caption] end end end mycustomscripts.Run()