Jump to content

Help with cheater coding for Sims 3


Recommended Posts

I use a small program that allows you to assign cheats to function keys in Sims 3. It activates keys F1-F11. The Sims 3 game already uses F1-F3 and F10. What I want to do is make this program to only activate keys F4-F9,F11 and F12 so the other keys are still used by the game's assignments. I didn't write the program and can't contact the person who did.

#NoTrayIcon

#include <GuiConstants.au3>

Opt("RunErrorsFatal", 0)

Dim $GUI, $Pic, $label, $Button_1, $Commands

$Path = IniReadSection("Commands.ini", "EXEPath")

if $Path[1][1] = "0" Then

$message = "Please locate your sims 3 exe"

$var = FileOpenDialog($message, "C:\Program Files\Electronic Arts\The Sims 3\Game\Bin\", "Sims 3 (Sims3Launcher.exe; TS3.exe)", 1 + 4 )

If @error Then

MsgBox(4096,"","Game exe not found")

Else

$var = StringReplace($var, "|", @CRLF)

$Path = "Location = " & $var

FileChangeDir(@ScriptDir)

IniWriteSection("Commands.ini","EXEPath",$Path)

EndIf

EndIf

$Path = IniReadSection("Commands.ini", "EXEPath")

$App = Run($Path [1][1])

_INI()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $Button_1

Run(@ComSpec & " /c " & 'Commands.ini', "", @SW_HIDE)

WinWait("Commands.ini","")

WinWaitClose("Commands.ini","")

GUIDelete ($GUI)

_INI()

EndSelect

Wend

Func _INI()

$Commands = IniReadSection("Commands.ini", "Commands")

HotKeySet("{F1}","_Command1")

HotKeySet("{F2}","_Command2")

HotKeySet("{F3}","_Command3")

HotKeySet("{F4}","_Command4")

HotKeySet("{F5}","_Command5")

HotKeySet("{F6}","_Command6")

HotKeySet("{F7}","_Command7")

HotKeySet("{F8}","_Command8")

HotKeySet("{F9}","_Command9")

HotKeySet("{F10}","_Command10")

HotKeySet("{F11}","_Command11")

$GUI = GUICreate("Sims 3 Auto Cheater", 500, 230, 200, 1)

$Pic = GUICtrlCreatePic("TS3Auto.jpg", 5, 5, 280, 190)

$label = GUICtrlCreateLabel("F1: " & $Commands[1][1], 290, 10)

$label = GUICtrlCreateLabel("F2: " & $Commands[2][1], 290, 30)

$label = GUICtrlCreateLabel("F3: " & $Commands[3][1], 290, 50)

$label = GUICtrlCreateLabel("F4: " & $Commands[4][1], 290, 70)

$label = GUICtrlCreateLabel("F5: " & $Commands[5][1], 290, 90)

$label = GUICtrlCreateLabel("F6: " & $Commands[6][1], 290, 110)

$label = GUICtrlCreateLabel("F7: " & $Commands[7][1], 290, 130)

$label = GUICtrlCreateLabel("F8: " & $Commands[8][1], 290, 150)

$label = GUICtrlCreateLabel("F9: " & $Commands[9][1], 290, 170)

$label = GUICtrlCreateLabel("F10: " & $Commands[10][1], 290, 190)

$label = GUICtrlCreateLabel("F11: " & $Commands[11][1], 290, 210)

$Button_1 = GUICtrlCreateButton ("Edit Configuration", 70, 202, 150)

GUISetState()

EndFunc

Func _Command1()

Send("^+c")

Sleep(200)

Send($Commands[1][1])

Send("{ENTER}")

EndFunc

Func _Command2()

Send("^+c")

Sleep(200)

Send($Commands[2][1])

Send("{ENTER}")

EndFunc

Func _Command3()

Send("^+c")

Sleep(200)

Send($Commands[3][1])

Send("{ENTER}")

EndFunc

Func _Command4()

Send("^+c")

Sleep(200)

Send($Commands[4][1])

Send("{ENTER}")

EndFunc

Func _Command5()

Send("^+c")

Sleep(200)

Send($Commands[5][1])

Send("{ENTER}")

EndFunc

Func _Command6()

Send("^+c")

Sleep(200)

Send($Commands[6][1])

Send("{ENTER}")

EndFunc

Func _Command7()

Send("^+c")

Sleep(200)

Send($Commands[7][1])

Send("{ENTER}")

EndFunc

Func _Command8()

Send("^+c")

Sleep(200)

Send($Commands[8][1])

Send("{ENTER}")

EndFunc

Func _Command9()

Send("^+c")

Sleep(200)

Send($Commands[9][1])

Send("{ENTER}")

EndFunc

Func _Command10()

Send("^+c")

Sleep(200)

Send($Commands[10][1])

Send("{ENTER}")

EndFunc

Func _Command11()

Send("^+c")

Sleep(200)

Send($Commands[11][1])

Send("{ENTER}")

EndFunc

See attachments for program file.

Can anyone help me with this? The only coding I have done is BASIC years ago, but this is a little different.

Thank you for your time. ;)

Sims3 QuickCheat.au3

Edited by Winterhart
Link to comment
Share on other sites

Good luck with this. Cheaters are not welcomed with open arms around here.

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Link to comment
Share on other sites

You are going to have to learn a bit of AutoIt before anyone is going to help you. Nobody is going to hand you a plate with your finished script all prepared for you. Open the help file and see how the code you posted works, then see if you can find out what isn't working right. If you can't fix it, some people (most people don't help out with hacks and bots) here would be glad to help.

Link to comment
Share on other sites

Thank you. I know absolutely nothing about AutoIt code. ;)

Its just nice ond easy to read your code if you do this

[autoit]your code goes in here[/autoit]

Which is a quite nifty forum feature.

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...