Jump to content
Sign in to follow this  
Skrip

Trainer: Sim City 3000

Recommended Posts

Skrip

Hey guys. I decided to make a trainer for Sim City: Societies.

It allows: Unlimited money, freeze population, freeze year, no expenses, (a little sketchy ==>) change population to anything.

Posted Image

Sorry, in the picture I did not want to load the game. It does work though.

-----

Sorry, no full source. I am not sure I should release it. It could give people a better capability to hack in online games (CSS, WoW, GW, CNC, ect..). You can trust it though, I've been here for awhile, you've probably seen my scripts before. It is in no way malicious.

Hope you like it. :)

This time I added in hotkey functions. But I did not want to use HotKeySet, because you can not UnSet it.

The hotkeys do not seem to work, here's the script I'm willing to give (full source, with the actual cheat part removed. (No mem edit commands))-

;YES. I know the code isn't the most efficient, I slammed it out fast, to see if I could actually do it. Normally I replace repetive things with arrays, but I decided not to on this one.
#include <GUIConstants.au3>
#include <Misc.au3>
;no include for you.
Opt("RunErrorsFatal", 0)
$dll = DllOpen("user32.dll")
#NoTrayIcon
$hotkeys_enable = 0
MsgBox(0, "", "Load the program, and click okay to inject and load.")
$process = "SC3.exe"
If ProcessExists($process) Then
    $pid = ProcessExists($process)
Else
    MsgBox(16, "Trainer: PNF", "Error: Process not found. If the process is active, please restart this program, else start the game then launch this.")
;~  Exit
EndIf
#Region ### START Koda GUI section ### Form=c:\program files\autoit3\trainer_sim3000.kxf
If FileExists("config.con") Then
    $hotkeys_enable = 1
    $file_o = FileOpen("config.con", 0)
EndIf
$Form1 = GUICreate("Trainer: Sim City 3000 ~ By Firestorm", 468, 182, -1, -1)
GUISetBkColor(0x000080)
$Button1 = GUICtrlCreateButton("Freeze Population", 8, 8, 105, 33, 0)
$Button2 = GUICtrlCreateButton("Unfreeze Population", 120, 8, 105, 33, 0)
$Button3 = GUICtrlCreateButton("Set Population", 232, 8, 105, 33, 0)
$Input1 = GUICtrlCreateInput("Population", 344, 16, 121, 21)
$Button4 = GUICtrlCreateButton("Unlimited Money", 8, 48, 105, 33, 0)
$Button5 = GUICtrlCreateButton("Regular Money", 120, 48, 105, 33, 0)
$Button6 = GUICtrlCreateButton("No Expenses", 8, 88, 105, 33, 0)
$Button7 = GUICtrlCreateButton("Expenses", 120, 88, 105, 33, 0)
$Group1 = GUICtrlCreateGroup("", 232, 128, 193, 33)
$Label1 = GUICtrlCreateLabel("Status: ", 233, 140, 189, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Hotkeys", 312, 100, 105, 25, 0)
$Button8 = GUICtrlCreateButton("Freeze Year", 8, 128, 105, 33, 0)
$Button9 = GUICtrlCreateButton("Unfreeze Year", 120, 128, 105, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=c:\program files\autoit3\trainer_sim3000.kxf
AdlibEnable("check")
_Status("Waiting...")
While 1
    If $hotkeys_enable = 1 Then
        $h1 = FileReadLine($file_o, 1)
        $h2 = FileReadLine($file_o, 2)
        $h3 = FileReadLine($file_o, 3)
        $h4 = FileReadLine($file_o, 4)
        $h5 = FileReadLine($file_o, 5)
        $h6 = FileReadLine($file_o, 6)
        $h7 = FileReadLine($file_o, 7)
        $h8 = FileReadLine($file_o, 8)
        $h9 = FileReadLine($file_o, 9)
        If _IsPressed($h1) Then _1()
        If _IsPressed($h2) Then _2()
        If _IsPressed($h3) Then _3()
        If _IsPressed($h4) Then _4()
        If _IsPressed($h5) Then _5()
        If _IsPressed($h6) Then _6()
        If _IsPressed($h7) Then _7()
        If _IsPressed($h8) Then _8()
        If _IsPressed($h9) Then _9()
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            DllClose($dll)
            Exit
        Case $Button1
            _1()
        Case $Button2
            _2()
        Case $Button3
            _3()
        Case $Button4
            _4()
        Case $Button5
            _5()
        Case $Button6
            _6()
        Case $Button7
            _7()
        Case $Button8
            _8()
        Case $Button9
            _9()
        Case $Button10
            _Hotkeys()
    EndSwitch
WEnd

Func _1()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_1

Func _2()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_2

Func _3()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_3

Func _4()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_4

Func _5()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_5

Func _6()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_6

Func _7()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_7

Func _8()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_8

Func _9()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_9

Func _Status($status, $color = 1, $sleep = 0)
    Sleep($sleep)
    GUICtrlSetData($Label1, "Status: " & $status)
    If $color = 1 Then
        GUICtrlSetColor($Label1, 0x00FF00)
    ElseIf $color = 2 Then
        GUICtrlSetColor($Label1, 0xFF0000)
    EndIf
EndFunc   ;==>_Status

Func check()
    If Not ProcessExists("SC3.exe") Then
        _Status("Process not found!!", 2)
    EndIf
EndFunc   ;==>check

Func _Hotkeys()
    #Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Trainer_Sim3000H.kxf
    $H_Form1 = GUICreate("Hotkey Setup", 259, 354, -1, -1)
    GUISetBkColor(0x335EA8)
    $H_Label1 = GUICtrlCreateLabel("Freeze Population:", 8, 16, 110, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input1 = GUICtrlCreateInput("", 144, 16, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label2 = GUICtrlCreateLabel("UnFreeze Population:", 8, 48, 126, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input2 = GUICtrlCreateInput("", 144, 48, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label3 = GUICtrlCreateLabel("Set Population:", 8, 80, 91, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input3 = GUICtrlCreateInput("", 144, 80, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Input4 = GUICtrlCreateInput("", 144, 112, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label4 = GUICtrlCreateLabel("Unlimited Money:", 8, 112, 101, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input5 = GUICtrlCreateInput("", 144, 144, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label5 = GUICtrlCreateLabel("Regular Money:", 8, 144, 93, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input6 = GUICtrlCreateInput("", 144, 176, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label6 = GUICtrlCreateLabel("No Expenses:", 8, 176, 82, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input7 = GUICtrlCreateInput("", 144, 208, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label7 = GUICtrlCreateLabel("Expenses:", 8, 208, 62, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input8 = GUICtrlCreateInput("", 144, 240, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label8 = GUICtrlCreateLabel("Freeze Year:", 8, 240, 76, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input9 = GUICtrlCreateInput("", 144, 272, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label9 = GUICtrlCreateLabel("UnFreeze Year:", 8, 272, 92, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Button1 = GUICtrlCreateButton("Save", 24, 312, 89, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $H_Button2 = GUICtrlCreateButton("Cancel", 144, 312, 81, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Trainer_Sim3000H.kxf
    If $hotkeys_enable = 1 Then
        GUICtrlSetData($H_Input1, Chr(FileReadLine($file_o, 1)))
        GUICtrlSetData($H_Input2, Chr(FileReadLine($file_o, 2)))
        GUICtrlSetData($H_Input3, Chr(FileReadLine($file_o, 3)))
        GUICtrlSetData($H_Input4, Chr(FileReadLine($file_o, 4)))
        GUICtrlSetData($H_Input5, Chr(FileReadLine($file_o, 5)))
        GUICtrlSetData($H_Input6, Chr(FileReadLine($file_o, 6)))
        GUICtrlSetData($H_Input7, Chr(FileReadLine($file_o, 7)))
        GUICtrlSetData($H_Input8, Chr(FileReadLine($file_o, 8)))
        GUICtrlSetData($H_Input9, Chr(FileReadLine($file_o, 9)))
    EndIf
    While 1
        If WinActive($Form1) Then WinActivate($H_Form1)
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($H_Form1)
                ExitLoop
            Case $H_Button1
                $H_File = FileOpen("config.con", 2)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input1)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input2)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input3)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input4)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input5)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input6)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input7)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input8)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input9)) & @CRLF)
                FileClose($H_File)
                $hotkeys_enable = 1
                GUIDelete($H_Form1)
                ExitLoop
            Case $H_Button2
                GUIDelete($H_Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_Hotkeys

If you'd like to give a shot at fixing the keys, go right ahead.

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
DexterMorgan

Hey guys. I decided to make a trainer for Sim City: Societies.

It allows: Unlimited money, freeze population, freeze year, no expenses, (a little sketchy ==>) change population to anything.

Posted Image

Sorry, in the picture I did not want to load the game. It does work though.

-----

Sorry, no full source. I am not sure I should release it. It could give people a better capability to hack in online games (CSS, WoW, GW, CNC, ect..). You can trust it though, I've been here for awhile, you've probably seen my scripts before. It is in no way malicious.

Hope you like it. :)

This time I added in hotkey functions. But I did not want to use HotKeySet, because you can not UnSet it.

The hotkeys do not seem to work, here's the script I'm willing to give (full source, with the actual cheat part removed. (No mem edit commands))-

;YES. I know the code isn't the most efficient, I slammed it out fast, to see if I could actually do it. Normally I replace repetive things with arrays, but I decided not to on this one.
#include <GUIConstants.au3>
#include <Misc.au3>
;no include for you.
Opt("RunErrorsFatal", 0)
$dll = DllOpen("user32.dll")
#NoTrayIcon
$hotkeys_enable = 0
MsgBox(0, "", "Load the program, and click okay to inject and load.")
$process = "SC3.exe"
If ProcessExists($process) Then
    $pid = ProcessExists($process)
Else
    MsgBox(16, "Trainer: PNF", "Error: Process not found. If the process is active, please restart this program, else start the game then launch this.")
;~  Exit
EndIf
#Region ### START Koda GUI section ### Form=c:\program files\autoit3\trainer_sim3000.kxf
If FileExists("config.con") Then
    $hotkeys_enable = 1
    $file_o = FileOpen("config.con", 0)
EndIf
$Form1 = GUICreate("Trainer: Sim City 3000 ~ By Firestorm", 468, 182, -1, -1)
GUISetBkColor(0x000080)
$Button1 = GUICtrlCreateButton("Freeze Population", 8, 8, 105, 33, 0)
$Button2 = GUICtrlCreateButton("Unfreeze Population", 120, 8, 105, 33, 0)
$Button3 = GUICtrlCreateButton("Set Population", 232, 8, 105, 33, 0)
$Input1 = GUICtrlCreateInput("Population", 344, 16, 121, 21)
$Button4 = GUICtrlCreateButton("Unlimited Money", 8, 48, 105, 33, 0)
$Button5 = GUICtrlCreateButton("Regular Money", 120, 48, 105, 33, 0)
$Button6 = GUICtrlCreateButton("No Expenses", 8, 88, 105, 33, 0)
$Button7 = GUICtrlCreateButton("Expenses", 120, 88, 105, 33, 0)
$Group1 = GUICtrlCreateGroup("", 232, 128, 193, 33)
$Label1 = GUICtrlCreateLabel("Status: ", 233, 140, 189, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Hotkeys", 312, 100, 105, 25, 0)
$Button8 = GUICtrlCreateButton("Freeze Year", 8, 128, 105, 33, 0)
$Button9 = GUICtrlCreateButton("Unfreeze Year", 120, 128, 105, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=c:\program files\autoit3\trainer_sim3000.kxf
AdlibEnable("check")
_Status("Waiting...")
While 1
    If $hotkeys_enable = 1 Then
        $h1 = FileReadLine($file_o, 1)
        $h2 = FileReadLine($file_o, 2)
        $h3 = FileReadLine($file_o, 3)
        $h4 = FileReadLine($file_o, 4)
        $h5 = FileReadLine($file_o, 5)
        $h6 = FileReadLine($file_o, 6)
        $h7 = FileReadLine($file_o, 7)
        $h8 = FileReadLine($file_o, 8)
        $h9 = FileReadLine($file_o, 9)
        If _IsPressed($h1) Then _1()
        If _IsPressed($h2) Then _2()
        If _IsPressed($h3) Then _3()
        If _IsPressed($h4) Then _4()
        If _IsPressed($h5) Then _5()
        If _IsPressed($h6) Then _6()
        If _IsPressed($h7) Then _7()
        If _IsPressed($h8) Then _8()
        If _IsPressed($h9) Then _9()
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            DllClose($dll)
            Exit
        Case $Button1
            _1()
        Case $Button2
            _2()
        Case $Button3
            _3()
        Case $Button4
            _4()
        Case $Button5
            _5()
        Case $Button6
            _6()
        Case $Button7
            _7()
        Case $Button8
            _8()
        Case $Button9
            _9()
        Case $Button10
            _Hotkeys()
    EndSwitch
WEnd

Func _1()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_1

Func _2()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_2

Func _3()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_3

Func _4()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_4

Func _5()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_5

Func _6()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_6

Func _7()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_7

Func _8()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_8

Func _9()
    _Status("Writing...")
    ;no code for you.
    _Status("Waiting...", "", 750)
EndFunc   ;==>_9

Func _Status($status, $color = 1, $sleep = 0)
    Sleep($sleep)
    GUICtrlSetData($Label1, "Status: " & $status)
    If $color = 1 Then
        GUICtrlSetColor($Label1, 0x00FF00)
    ElseIf $color = 2 Then
        GUICtrlSetColor($Label1, 0xFF0000)
    EndIf
EndFunc   ;==>_Status

Func check()
    If Not ProcessExists("SC3.exe") Then
        _Status("Process not found!!", 2)
    EndIf
EndFunc   ;==>check

Func _Hotkeys()
    #Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Trainer_Sim3000H.kxf
    $H_Form1 = GUICreate("Hotkey Setup", 259, 354, -1, -1)
    GUISetBkColor(0x335EA8)
    $H_Label1 = GUICtrlCreateLabel("Freeze Population:", 8, 16, 110, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input1 = GUICtrlCreateInput("", 144, 16, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label2 = GUICtrlCreateLabel("UnFreeze Population:", 8, 48, 126, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input2 = GUICtrlCreateInput("", 144, 48, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label3 = GUICtrlCreateLabel("Set Population:", 8, 80, 91, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input3 = GUICtrlCreateInput("", 144, 80, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Input4 = GUICtrlCreateInput("", 144, 112, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label4 = GUICtrlCreateLabel("Unlimited Money:", 8, 112, 101, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input5 = GUICtrlCreateInput("", 144, 144, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label5 = GUICtrlCreateLabel("Regular Money:", 8, 144, 93, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input6 = GUICtrlCreateInput("", 144, 176, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label6 = GUICtrlCreateLabel("No Expenses:", 8, 176, 82, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input7 = GUICtrlCreateInput("", 144, 208, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label7 = GUICtrlCreateLabel("Expenses:", 8, 208, 62, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input8 = GUICtrlCreateInput("", 144, 240, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label8 = GUICtrlCreateLabel("Freeze Year:", 8, 240, 76, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Input9 = GUICtrlCreateInput("", 144, 272, 33, 21)
    GUICtrlSetLimit(-1, 1)
    $H_Label9 = GUICtrlCreateLabel("UnFreeze Year:", 8, 272, 92, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $H_Button1 = GUICtrlCreateButton("Save", 24, 312, 89, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $H_Button2 = GUICtrlCreateButton("Cancel", 144, 312, 81, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Trainer_Sim3000H.kxf
    If $hotkeys_enable = 1 Then
        GUICtrlSetData($H_Input1, Chr(FileReadLine($file_o, 1)))
        GUICtrlSetData($H_Input2, Chr(FileReadLine($file_o, 2)))
        GUICtrlSetData($H_Input3, Chr(FileReadLine($file_o, 3)))
        GUICtrlSetData($H_Input4, Chr(FileReadLine($file_o, 4)))
        GUICtrlSetData($H_Input5, Chr(FileReadLine($file_o, 5)))
        GUICtrlSetData($H_Input6, Chr(FileReadLine($file_o, 6)))
        GUICtrlSetData($H_Input7, Chr(FileReadLine($file_o, 7)))
        GUICtrlSetData($H_Input8, Chr(FileReadLine($file_o, 8)))
        GUICtrlSetData($H_Input9, Chr(FileReadLine($file_o, 9)))
    EndIf
    While 1
        If WinActive($Form1) Then WinActivate($H_Form1)
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUIDelete($H_Form1)
                ExitLoop
            Case $H_Button1
                $H_File = FileOpen("config.con", 2)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input1)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input2)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input3)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input4)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input5)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input6)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input7)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input8)) & @CRLF)
                FileWrite($H_File, Asc(GUICtrlRead($H_Input9)) & @CRLF)
                FileClose($H_File)
                $hotkeys_enable = 1
                GUIDelete($H_Form1)
                ExitLoop
            Case $H_Button2
                GUIDelete($H_Form1)
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>_Hotkeys

If you'd like to give a shot at fixing the keys, go right ahead.

Wow I'm re-downloading SimCity 3000 for this, I got bored before because I was really (Really) bad. Im hoping it will be more fun now! Lol cheating makes everything funner..

code

Share this post


Link to post
Share on other sites
Skrip

Wow I'm re-downloading SimCity 3000 for this, I got bored before because I was really (Really) bad. Im hoping it will be more fun now! Lol cheating makes everything funner..

:) Thanks for the input. I use this myself, because that game can get boring. lol.

Get like half a million people (500,000) then freeze the population. Make money limited, and freeze the population, then jack your taxes up to 22 (max) and budget down to zero, and turn off expenses.

You get ALOT of money VERY fast.


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
DexterMorgan

:) Thanks for the input. I use this myself, because that game can get boring. lol.

Get like half a million people (500,000) then freeze the population. Make money limited, and freeze the population, then jack your taxes up to 22 (max) and budget down to zero, and turn off expenses.

You get ALOT of money VERY fast.

Lol. Before i used to cheat with the cheat codes and it took a lot of time. This is so cool.

I still remember that one of the codes is like "Call Cousin Vinnie" and you get like $50,000. lol

With this i click a button wheee im rich!

Edited by kkKrazy

code

Share this post


Link to post
Share on other sites
Thatsgreat2345

You can just use cheat engine to find the pointer and offset. Then use the memory.au3 UDF to do it easy.

Share this post


Link to post
Share on other sites
Skrip

Yeah. I already did it. That's what the script is. :)


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
CoderDunn

If you did post the complete source, you wouldn't be the first with a script that edits a proccesses memory. Plus, I'd be willing to bet that most the people on this forum wouldn't understand how to use it in other games (it seems the people that come here for bots or trainers don't have any interest in learning the language. Look at some of the posts in the 'Gaming and Bots' forum) OR have no interest in making a bot/trainer of thier own. And if worse comes to worse, if that person really was interested in making mass bots using this technique, an advanced forum search for "Memory" (titles only) reveals plenty of examples for someone to get started (Example: http://www.autoitscript.com/forum/index.php?showtopic=66842).

Without those functions, this script is effectively useless for everyone except those with the game.

Just my two cents. I probably sound rude ...

~ Hallman

Edited by Hallman

Share this post


Link to post
Share on other sites
DexterMorgan

If you did post the complete source, you wouldn't be the first with a script that edits a proccesses memory. Plus, I'd be willing to bet that most the people on this forum wouldn't understand how to use it in other games (it seems the people that come here for bots or trainers don't have any interest in learning the language. Look at some of the posts in the 'Gaming and Bots' forum) OR have no interest in making a bot/trainer of thier own. And if worse comes to worse, if that person really was interested in making mass bots using this technique, an advanced forum search for "Memory" (titles only) reveals plenty of examples for someone to get started (Example: http://www.autoitscript.com/forum/index.php?showtopic=66842).

Without those functions, this script is effectively useless for everyone except those with the game.

Just my two cents. I probably sound rude ...

~ Hallman

Yep.. Completely true I wouldn't understand half of it and I am interested in the language..

BTW- Works very good


code

Share this post


Link to post
Share on other sites
Generator

If you did post the complete source, you wouldn't be the first with a script that edits a proccesses memory. Plus, I'd be willing to bet that most the people on this forum wouldn't understand how to use it in other games (it seems the people that come here for bots or trainers don't have any interest in learning the language. Look at some of the posts in the 'Gaming and Bots' forum) OR have no interest in making a bot/trainer of thier own. And if worse comes to worse, if that person really was interested in making mass bots using this technique, an advanced forum search for "Memory" (titles only) reveals plenty of examples for someone to get started (Example: http://www.autoitscript.com/forum/index.php?showtopic=66842).

Without those functions, this script is effectively useless for everyone except those with the game.

Just my two cents. I probably sound rude ...

~ Hallman

As that being said, when I first use AutoIt it was mainly for bot purposes, but soon or after I had great interest in learning the language and till now I am still learning. On the other hand, most of the cheaters will use "CheatEngine" published trainer than any others, AutoIt seems to have no significant advantage when comparing to other memory editing program.

Share this post


Link to post
Share on other sites
Thatsgreat2345

Yeah I came for botting purposes , pixel bots to be exact as I had no clue as to what anything really was. I slowly learned the language, and learned a lot about computer stuff. The best bot is a packet bot, second best is memory bot. Bots are quite easy to make with memory. Just get monster IDs, set the monster ID as targeted, send attack, so on and so forth. Get location of monsters/distances away all that good stuff. OllyDBG helps too :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×