------------------------ VARIABLES ------------------------
title="MY GAME"
titleColor="0x00ffffff"
name="gomorrah18"
nameColor="0x00009cee"
date="03/13/2014"
warningColor="0x000000ff"
bgColor="0x00000099"
txtColor="0x00ffffff"
---listbox color---
lbtxtColor="0x00cccccc"
lbbgColor="0x00222222"


function setHack_Information()
  t =
  {

{'Hack1',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack]]},

{'Hack2',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack2]]},

{'Hack3',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack3]]},

{'Hack4',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack4]]},

{'Hack5',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack5]]},

{'Hack6',
[[LuaCall(Aobswap("26 48","27 48"))]],
[[Description of hack6]]},

}
end

------------------------ MAIN GUI ------------------------
MainGUI = {}
MainGUI[1] = createForm(false)
setProperty(MainGUI[1] , "ShowInTaskBar", "stAlways")
MainGUI[2] = createPanel(MainGUI[1])
MainGUI[3] = createLabel(MainGUI[2])--title trainer
MainGUI[4] = createLabel(MainGUI[2])--date
MainGUI[5] = createLabel(MainGUI[2])--konghack.com
MainGUI[6] = createLabel(MainGUI[2])--name

------------------------ UPPER GROUPBOX ------------------------
MainGUI[11] = createGroupBox(MainGUI[2])--upper groupbox
MainGUI[12] = createLabel(MainGUI[11])----select browser. make sure...
MainGUI[13] = createComboBox(MainGUI[11])--browser list
MainGUI[14] = createButton(MainGUI[11])--select button
MainGUI[15] = createLabel(MainGUI[11])--attach to browser...

------------------------ LOWER GROUPBOX ------------------------
MainGUI[21] = createGroupBox(MainGUI[2])--lower groupbox
MainGUI[22] = createLabel(MainGUI[21])--list of hacks
MainGUI[23] = createLabel(MainGUI[21])--enable on loading...
MainGUI[24] = createListBox(MainGUI[21])--listbox
MainGUI[25] = createButton(MainGUI[21])--enable button
MainGUI[26] = createButton(MainGUI[21])--enable all button
MainGUI[27] = createButton(MainGUI[21])--reset all button
MainGUI[28] = createLabel(MainGUI[21])--description
MainGUI[29] = createLabel(MainGUI[21])--no hack selected
MainGUI[30] = createProgressBar(MainGUI[21])--progressbar
MainGUI[31] = createLabel(MainGUI[21])--executing...
MainGUI[32] = createLabel(MainGUI[21])--failed to enable...

------------------------ SIZE & POS ------------------------
control_setSize(MainGUI[1], 350, 380)
x,y = control_getSize(MainGUI[1])
control_setSize(MainGUI[2], x,y)
control_setPosition(MainGUI[3], 15, 10)
control_setPosition(MainGUI[4], 270, 17)
control_setPosition(MainGUI[5], 12, 360)
control_setPosition(MainGUI[6], 270, 360)

control_setSize(MainGUI[11], 330, 90)
control_setPosition(MainGUI[11], 10, 35)
  control_setPosition(MainGUI[12], 5, 0)
  control_setSize(MainGUI[13], 210, 15)
  control_setPosition(MainGUI[13], 5, 20)
  control_setSize(MainGUI[14], 100, 25)
  control_setPosition(MainGUI[14], 220, 20)
  control_setPosition(MainGUI[15], 5, 50)

control_setSize(MainGUI[21], 330, 235)
control_setPosition(MainGUI[21], 10, 125)
  control_setPosition(MainGUI[22], 10, 0)
  control_setPosition(MainGUI[23], 10, 20)
  control_setSize(MainGUI[24], 210, 95)
  control_setPosition(MainGUI[24], 5, 45)
  control_setSize(MainGUI[25], 100, 25)
  control_setPosition(MainGUI[25], 220, 45)
  control_setEnabled(MainGUI[25], false)
  control_setSize(MainGUI[26], 100, 25)
  control_setPosition(MainGUI[26], 220, 80)
  control_setEnabled(MainGUI[26], false)
  control_setSize(MainGUI[27], 100, 25)
  control_setPosition(MainGUI[27], 220, 115)
  control_setEnabled(MainGUI[27], false)
  control_setPosition(MainGUI[28], 10, 145)
  control_setPosition(MainGUI[29], 12, 165)
  control_setSize(MainGUI[30], 315, 15)
  control_setPosition(MainGUI[30], 5, 150)
  control_setVisible(MainGUI[30], false)
  control_setPosition(MainGUI[31], 10, 150)
  control_setVisible(MainGUI[31], false)
  control_setPosition(MainGUI[32], 10, 170)
  control_setVisible(MainGUI[32], false)

------------------------ TEXT ------------------------
control_setCaption(MainGUI[1], title.." TRAINER")
control_setCaption(MainGUI[3], title.." TRAINER")
control_setCaption(MainGUI[4], date)
control_setCaption(MainGUI[5], "KongHack.com")
control_setCaption(MainGUI[6], name)

control_setCaption(MainGUI[12], "Select browser. Make sure the game is loaded.")
control_setCaption(MainGUI[14], "Select")
control_setCaption(MainGUI[15], "Attach to browser first.")

control_setCaption(MainGUI[22], "LIST OF HACKS")
control_setCaption(MainGUI[23], "Enable on loading screen/before starting a new game.")
control_setCaption(MainGUI[25], 'Enable Selected')
control_setCaption(MainGUI[26], 'Enable All')
control_setCaption(MainGUI[27], 'Reset All')
control_setCaption(MainGUI[28], "Description:")
control_setCaption(MainGUI[29], "No hack selected")

------------------------ FONT PROP ------------------------
setProperty(MainGUI[1] , "color", bgColor)
setProperty(MainGUI[1] , "Position", "poScreenCenter")
setProperty(MainGUI[1] , "BorderIcons", "[biSystemMenu]")
setProperty(MainGUI[1] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[13] , "ReadOnly", "True")
local fontface = getProperty(MainGUI[3] , "Font")
setProperty(fontface , "Style", "[fsBold]")
setProperty(fontface , "Height", "25")
setProperty(fontface , "Color", titleColor)
local fontface = getProperty(MainGUI[4] , "Font")
setProperty(fontface , "Style", "[fsBold]")
setProperty(fontface , "Height", "15")
setProperty(fontface , "Color", txtColor)
local fontface = getProperty(MainGUI[5] , "Font")
setProperty(fontface , "Style", "[fsBold, fsitalic]")
setProperty(fontface , "Height", "16")
setProperty(fontface , "Color", txtColor)
setProperty(MainGUI[5], "Cursor", "-21")
local fontface = getProperty(MainGUI[6] , "Font")
setProperty(fontface , "Style", "[fsBold]")
setProperty(fontface , "Height", "15")
setProperty(fontface , "Color", nameColor)
---upper groupbox---
local fontface = getProperty(MainGUI[11] , "Font")
setProperty(fontface , "Height", "18")
setProperty(fontface , "Color", txtColor)
local fontface = getProperty(MainGUI[15] , "Font")
setProperty(fontface , "Style", "[fsBold]")
---lower groupbox---
local fontface = getProperty(MainGUI[21] , "Font")
setProperty(fontface , "Height", "15")
setProperty(fontface , "Color", txtColor)
local fontface = getProperty(MainGUI[22] , "Font")
setProperty(fontface , "Style", "[fsBold, fsitalic]")
setProperty(fontface , "Height", "20")
local fontface = getProperty(MainGUI[24] , "Font")
setProperty(fontface , "Color", lbtxtColor)
setProperty(MainGUI[24] , "color", lbbgColor)
local fontface = getProperty(MainGUI[28] , "Font")
setProperty(fontface , "Height", "18")
local fontface = getProperty(MainGUI[31] , "Font")
setProperty(fontface , "Style", "[fsBold]")
setProperty(fontface , "Height", "20")
local fontface = getProperty(MainGUI[32] , "Font")
setProperty(fontface , "Style", "[fsBold]")
setProperty(fontface , "Height", "20")

------------------------ COMBOBOX CONTENT ------------------------
setHack_Information()
al = combobox_getItems(MainGUI[13])
strings_clear(al)
strings_add(al, 'Choose your browser.')
strings_add(al, 'plugin-container')
strings_add(al, 'Firefox')
strings_add(al, 'Google Chrome')
strings_add(al, 'Internex Explorer')
setProperty(MainGUI[13] , "ItemIndex", "0")
all_enabled = 0
success = 1
TeL = listbox_getItems(MainGUI[24])
TempSave = {}
strings_clear(TeL)
check = 0
i = 0
repeat
if t[i+1]==nil then
  check = 1
else
  i = i+1
  strings_add(TeL, t[i][1])
  TempSave[i] = {}
  TempSave[i][1] = t[i][1]
  TempSave[i][2] = t[i][2]
  TempSave[i][3] = t[i][3]
  TempSave[i][4] = 2
  TempSave[i][5] = 0
  check = 0
end
until check == 1

function checkProcessMajor()
  reinitializeSymbolhandler()
  if getAddress("pepflashplayer.dll")~=0 or getAddress("AdobeCPGetAPI") ~=0 then
    return true
  end
  return false
end

errorOnLookupFailure(false)
alreadycheckedPIDS={}
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function(sender)
  local tempPIDtable = getPids()
  if #tempPIDtable == 0 then return end
  timer_setEnabled(sender,false)
  openProcess(tempPIDtable[1])
end)

function getPids()
  local SL=createStringlist()
        getProcesslist(SL)
  local tempPIDtable={}
  for i=0,strings_getCount(SL)-1 do
    local entry = strings_getString(SL,i)
    local processname = entry:sub(10,255)
    local PID = tonumber('0x'..entry:sub(1,8))
    if processname == "chrome.exe" then
      if alreadycheckedPIDS[PID]~=true then
        table.insert(tempPIDtable,PID)
      end
    end
  end
  object_destroy(SL)
  return tempPIDtable
end

function checkProcess(sender)
  timer_setEnabled(sender,false)
  alreadycheckedPIDS[getOpenedProcessID()]=true
  if checkProcessMajor() then
    timer_setEnabled(openNextProcTimer,false)
    alreadycheckedPIDS={}
    enableHacks()
  else
    timer_setEnabled(openNextProcTimer,true)
  end
end

checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)

function onOpenProcess()
   if success == 1 then return end
   timer_setEnabled(checkProcessTimer,true)
end

function BrowserScan()
	  AttachItems = combobox_getItems(MainGUI[13])
	  AttachIndex = combobox_getItemIndex(MainGUI[13])
	  setProperty(getProperty(MainGUI[15] , "Font"), "Color", txtColor)
	  control_setCaption(MainGUI[15], "Scanning Process...")
	  if AttachIndex == -1 then return end
	  if AttachIndex == 0 then
		control_setCaption(MainGUI[15], "No Browser selected.")
        control_setEnabled(MainGUI[25], false)
        control_setEnabled(MainGUI[26], false)
		control_setEnabled(MainGUI[27], false)
		return
	 end
	  local check = strings_getString(AttachItems,AttachIndex)
	  if check == 'Google Chrome' then
		success = 0
		local test = openProcess("chrome.exe")
		if test == nil then
			setProperty(getProperty(MainGUI[15] , "Font") , "Color", warningColor)
			control_setCaption(MainGUI[15], "Google Chrome not found.")
			control_setEnabled(MainGUI[25], false)
            control_setEnabled(MainGUI[26], false)
			control_setEnabled(MainGUI[27], false)
			timer_setEnabled(openNextProcTimer,false)
			return
		end
		strings_add(getAutoAttachList(),"chrome.exe")
		timer_setEnabled(openNextProcTimer,true)
		return
	  end
	  if check == 'Firefox' or check == 'Internet Explorer' then openProcess("FlashPlayerPlugin") end
	  if check == 'plugin-container' then openProcess("plugin-container.exe") end
	  errorOnLookupFailure(false)
	  reinitializeSymbolhandler()
	  err=getAddress("kernel32.dll")==0
	  if err==true then
		setProperty(getProperty(MainGUI[15] , "Font") , "Color", warningColor)
		control_setCaption(MainGUI[15], "Flash player plugin not found")
	  else
		local PID=getOpenedProcessID()
		 setProperty(getProperty(MainGUI[15] , "Font"), "Color", "0x0000b800")
		 control_setCaption(MainGUI[15], "Attached to PID: " .. PID .. " - flash player plugin")
		 control_setEnabled(MainGUI[25], true)
         control_setEnabled(MainGUI[26], true)
	  end
end

function enableHacks()
	setProperty(getProperty(MainGUI[15] , "Font"), "Color", "0x0000b800")
	local PID=getOpenedProcessID()
	local check = strings_getString(AttachItems,AttachIndex)
	if check == 'Firefox' or check == 'Internet Explorer' then
		control_setCaption(MainGUI[15], "Attached to PID: " .. PID .. " - flash player plugin")
	elseif check == 'Google Chrome' then
		control_setCaption(MainGUI[15], "Attached to PID: " .. PID .. " - chrome.exe")
	elseif check == 'plugin-container' then
		control_setCaption(MainGUI[15], "Attached to PID: " .. PID .. " - plugin-container")
	end
	success = 1
    control_setEnabled(MainGUI[25], true)
    control_setEnabled(MainGUI[26], true)
end


function ExecuteHacks()
    HLS = listbox_getItemIndex(MainGUI[24])
    LIST = listbox_getItems(MainGUI[24])
    if HLS == -1 then return end
    i = HLS+1
    control_setVisible(MainGUI[28], false)
    control_setVisible(MainGUI[29], false)
    control_setVisible(MainGUI[30], false)
    control_setVisible(MainGUI[31], true)
    control_setVisible(MainGUI[32], true)
	font=getProperty(MainGUI[31], 'Font')
	setProperty(font, 'Color', txtColor)
    control_setCaption(MainGUI[31], "Executing hack...")
    control_setCaption(MainGUI[32], '')
    control_setPosition(MainGUI[31], 10, 150)
    control_setPosition(MainGUI[32], 10, 170)
    strings_setString(LIST, HLS, t[i][1])
    processMessages()
    if TempSave[i][4] == 1 then
       control_setVisible(MainGUI[28], false)
       control_setVisible(MainGUI[29], false)
       control_setVisible(MainGUI[30], false)
       control_setVisible(MainGUI[31], true)
       control_setVisible(MainGUI[32], false)
       setProperty(font, 'Color', "0x0000b800")
       TempText = 'Enabled - '..t[i][1]
       TempSave[i][5] = 'Enabled - '..t[i][1]
       strings_setString(LIST, HLS, TempText)
       control_setCaption(MainGUI[31], "You already enabled this hack !")
       return
    end
    if TempSave[i][4] == 2 then
      Asm = autoAssemble(t[i][2])
      control_setCaption(MainGUI[31], "Executing hack. Finished.")
      font=getProperty(MainGUI[32], 'Font')
      if AobSwapCheck~=true then
        TempText = 'Failed    -  '..t[i][1]
        TempSave[i][5] = 'Failed    -  '..t[i][1]
        strings_setString(LIST, HLS, TempText)
        setProperty(font, 'Color', warningColor)
        control_setCaption(MainGUI[32], 'Failed to enable!\nGame not loaded or game was updated.')
      else
        TempText = 'Enabled - '..t[i][1]
        TempSave[i][5] = 'Enabled - '..t[i][1]
        strings_setString(LIST, HLS, TempText)
        setProperty(font, 'Color', "0x0000b800")
        control_setCaption(MainGUI[32], 'Hack enabled. Enjoy it !')
        TempSave[i][4] = 1
      end
    end
    if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
	control_setEnabled(MainGUI[27], true)
end

function ExecuteAllHacks()
     font=getProperty(MainGUI[31], 'Font')
	 setProperty(font, 'Color', txtColor)
     if all_enabled == 1 then
        control_setVisible(MainGUI[28], false)
        control_setVisible(MainGUI[29], false)
        control_setVisible(MainGUI[30], false)
        control_setVisible(MainGUI[31], true)
        control_setVisible(MainGUI[32], false)
        setProperty(font, 'Color', "0x0000b800")
        control_setCaption(MainGUI[31], "You already enabled all hacks !")
        return
     end
     lb = listbox_getItems(MainGUI[24])
     LIST = listbox_getItems(MainGUI[24])
     show_progressbar()
     progressbar_setMax(MainGUI[30], strings_getCount(lb))
     for i = 1, strings_getCount(lb) do
         strings_setString(LIST, i-1, t[i][1])
     end
     processMessages()
	 count = 0
     for i = 1, strings_getCount(lb) do
          control_setCaption(MainGUI[31], "Executing hack "..i.."/"..strings_getCount(lb))
          processMessages()
		  if TempSave[i][4] == 2 then
		        Asm = autoAssemble(t[i][2])
				if AobSwapCheck~=true then
                    TempSave[i][5] = 'Failed   -  '..t[i][1]
                    strings_setString(LIST, i-1, TempSave[i][5])
 				else
	                TempSave[i][5] = 'Enabled - '..t[i][1]
                    strings_setString(LIST, i-1, TempSave[i][5])
					TempSave[i][4] = 1
					count = count + 1
				 end
		   else
  				count = count + 1
                 TempSave[i][5] = 'Enabled - '..t[i][1]
                 strings_setString(LIST, i-1, TempSave[i][5])
		   end
		if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
        progressbar_setPosition(MainGUI[30], (i/strings_getCount(lb))*10)
        processMessages()
	end
	control_setEnabled(MainGUI[27], true)
    control_setCaption(MainGUI[31], "Executing hack "..strings_getCount(lb).."/"..strings_getCount(lb).. ". Finished.")
    font=getProperty(MainGUI[32], 'Font')
	if count == strings_getCount(lb) then
		setProperty(font, 'Color', "0x0000b800")
        control_setCaption(MainGUI[32], 'All hacks enabled. Enjoy it !')
        all_enabled = 1
	else
		diff = strings_getCount(lb) - count
        if diff == 1 then
           text = "hack"
        else
           text = "hacks"
        end
        setProperty(font, 'Color', warningColor)
	    control_setCaption(MainGUI[32], 'Failed to enable ' .. diff .. ' ' .. text .. ' !')
	end
end

function resetAllHacks()
     lb = listbox_getItems(MainGUI[24])
     LIST = listbox_getItems(MainGUI[24])
     for i = 1, strings_getCount(lb) do
         strings_setString(LIST, i-1, t[i][1])
     end
     for i = 1, strings_getCount(lb) do
        TempSave[i][5] = t[i][1]..''
        strings_setString(LIST, i-1, TempSave[i][5])
		if TempSave[i][4] == 1 then TempSave[i][4] = 2 end
		if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
	 end
    control_setEnabled(MainGUI[25], true)
    control_setEnabled(MainGUI[26], true)
	control_setVisible(MainGUI[28], false)
    control_setVisible(MainGUI[29], false)
	control_setVisible(MainGUI[30], false)
	control_setVisible(MainGUI[32], false)
    control_setPosition(MainGUI[31], 10, 170)
    font=getProperty(MainGUI[31], 'Font')
    setProperty(font, 'Color', "0x0000b2b2")
    control_setCaption(MainGUI[31], "All hacks have been reset.")
    all_enabled = 0
	control_setEnabled(MainGUI[27], false)
end

function show_progressbar()
     control_setPosition(MainGUI[31], 10, 170)
     control_setPosition(MainGUI[32], 10, 190)
     control_setCaption(MainGUI[32], '')
     control_setVisible(MainGUI[28], false)
     control_setVisible(MainGUI[29], false)
     control_setVisible(MainGUI[30], true)
     control_setVisible(MainGUI[31], true)
     control_setVisible(MainGUI[32], true)
     progressbar_setPosition(MainGUI[30], 0)
end
function hide_progressbar()
     control_setVisible(MainGUI[30], false)
     control_setVisible(MainGUI[31], false)
     control_setVisible(MainGUI[32], false)
     control_setVisible(MainGUI[28], true)
     control_setVisible(MainGUI[29], true)
end


function DEC_HEX(IN)
    local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
     if IN<1 then
    OUT=0
    return OUT
  end
  while IN>0 do
    I=I+1
    IN,D=math.floor(IN/B),math.mod(IN,B)+1
    OUT=string.sub(K,D,D)..OUT
    end
    return OUT
end

function Aobswap(search, change)
     aobs = AOBScan(search, "+W")
     if(aobs == nil) then AobSwapCheck=false else
     j = stringlist_getCount(aobs)
     for i = 1, j do
     address=stringlist_getString(aobs,i-1)
     for i = 1, string.len(change), 3 do
     z = string.sub(change, i, i+2)
     x, y = string.find(z, "%?+")
      if (x == nil) then
     script=[[
     ]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
     db ]]..z..[[
     ]]
     autoAssemble(script)
     end
     end
     end
     object_destroy(aobs);
     aobs=nil
     AobSwapCheck=true
    end
end

function HackDescriptionsChange()
    hide_progressbar()
    HLS = listbox_getItemIndex(MainGUI[24])
    if HLS == -1 then return end
    i = HLS+1
    if t[i][3]~='' and t[i][3]~=nil then
      control_setCaption(MainGUI[29] ,t[i][3])
    else
      control_setCaption(MainGUI[29], "No description available.")
    end
end


function OpenKonghack()
	shellExecute("http://konghack.com/")
end

function CloseTrainer()
  form_hide(MainGUI[1])
  closeCE()
end

------------------------ ONCLICK ------------------------
control_onClick(MainGUI[14], BrowserScan)
control_onClick(MainGUI[5], OpenKonghack)
control_onClick(MainGUI[25], ExecuteHacks)
control_onClick(MainGUI[26], ExecuteAllHacks)
control_onClick(MainGUI[27], resetAllHacks)
setMethodProperty(MainGUI[24], 'OnSelectionChange', HackDescriptionsChange)
form_onClose(MainGUI[1], CloseTrainer)
form_show(MainGUI[1])