Frouk
Grandmaster Cheater
![]() Reputation: 5
Joined: 22 Jun 2021
Posts: 510
|
 Posted: Thu Feb 17, 2022 3:54 pm Post subject: Scripting edtior |
 |
|
| Code: | local form = createForm(false)
form.Height = 400
form.Width = 800
form.Position = poDesktopCenter
form.Caption = "Scripting editor"
form.BevelOuter = bvNone
form.BorderStyle = bsSingle
form.PopupMode = 0
form.OnClose = function()
return caFree
end
local pageControl = createPageControl(form)
pageControl.Align = alLeft
pageControl.Width = form.Width
pageControl.BevelOuter = bvNone
local luaTab = pageControl.addTab()
luaTab.setCaption("Lua")
local asmTab = pageControl.addTab()
asmTab.setCaption("Assembler")
local synEdit = createSynEdit(luaTab,0)
synEdit.AnchorSideLeft.Control = luaTab
synEdit.AnchorSideTop.Control = luaTab
synEdit.Width = 680
synEdit.Height = 180
synEdit.BorderSpacing.Left = 5
synEdit.BorderSpacing.Top = 190
synEdit.Scrollbars = ssBoth
local button = createButton(luaTab)
button.AnchorSideLeft.Control = luaTab
button.AnchorSideTop.Control = luaTab
button.Width = 100
button.Height = 180
button.BorderSpacing.Left = 690
button.BorderSpacing.Top = 190
button.Caption = "Execute"
local mOutput = createMemo(luaTab)
mOutput.AnchorSideLeft.Control = luaTab
mOutput.AnchorSideTop.Control = luaTab
mOutput.Width = 790
mOutput.Height = 180
mOutput.BorderSpacing.Left = 5
mOutput.BorderSpacing.Top = 0
mOutput.WordWrap = false
mOutput.Scrollbars = ssBoth
mOutput.ReadOnly = true
button.OnClick = function()
local f = loadstring(synEdit.Lines.Text)
mOutput.append(synEdit.Lines.Text)
mOutput.append(f())
mOutput.append("\n")
end
local synEdit1 = createSynEdit(asmTab,1)
synEdit1.AnchorSideLeft.Control = asmTab
synEdit1.AnchorSideTop.Control = asmTab
synEdit1.Width = 680
synEdit1.Height = 180
synEdit1.BorderSpacing.Left = 5
synEdit1.BorderSpacing.Top = 190
synEdit1.Scrollbars = ssBoth
local button1 = createButton(asmTab)
button1.AnchorSideLeft.Control = asmTab
button1.AnchorSideTop.Control = asmTab
button1.Width = 100
button1.Height = 180
button1.BorderSpacing.Left = 690
button1.BorderSpacing.Top = 190
button1.Caption = "Execute"
local mOutput1 = createMemo(asmTab)
mOutput1.AnchorSideLeft.Control = asmTab
mOutput1.AnchorSideTop.Control = asmTab
mOutput1.Width = 790
mOutput1.Height = 180
mOutput1.BorderSpacing.Left = 5
mOutput1.BorderSpacing.Top = 0
mOutput1.WordWrap = false
mOutput1.Scrollbars = ssBoth
mOutput1.ReadOnly = true
button1.OnClick = function()
local f = synEdit1.Lines.Text
local f1,f2 = autoAssemble(synEdit1.Lines.Text)
mOutput1.append(f)
if not f1 then
mOutput1.append(f2)
mOutput1.append("Error was occured!")
return
end
mOutput1.append(f1)
end
synEdit.Font.Quality = "fqClearType"
synEdit.Font.Size = 10
synEdit1.Font.Quality = "fqClearType"
synEdit1.Font.Size = 10
synEdit.Font.Color = darkMode() and clWhite or clBlack
synEdit1.Font.Color = darkMode() and clWhite or clBlack --Issue without dark mode
synEdit.Color = darkMode() and 0x242424 or clWhite
synEdit1.Color = darkMode() and 0x242424 or clWhite --same as above
form.Show() |
There's two syntax editors,lua and assembly (cheat engine's)
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
