#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <ID Functions.au3>
#include <ID_CONSTANTS.au3>
$s4path = IniRead("Settings.ini", "Global", "S4Path", "1")
If $s4path = "1" Then
$s4path = InputBox("S4 Path", "Type in your S4League Path [EXAMPLE : C:\LOL\S4 League]")
IniWrite("Settings.ini", "Global", "S4Path", $s4path)
EndIf
If Not FileExists($s4path & "\S4Client.exe") Then
MsgBox(0, "No S4Client.exe found", "Can´t find S4Client.exe")
Exit
EndIf
FileInstall("PHY_ID_Changer.dll", "C:\\PHY_ID_Changer.dll")
FileInstall("PHY_X.dll", "C:\\PHY_X.dll")
FileInstall("msvcp100.dll", $s4path & "\msvcp100.dll")
FileInstall("msvcp100d.dll", $s4path & "\msvcp100d.dll")
FileInstall("msvcr100.dll", $s4path & "\msvcr100.dll")
FileInstall("msvcr100d.dll", $s4path & "\msvcr100d.dll")
FileInstall("msvcr100_clr0400.dll", $s4path & "\msvcr100_clr0400.dll")
FileInstall("msvcrt.dll", $s4path & "\msvcrt.dll")
FileInstall("msvcirt.dll", $s4path & "\msvcirt.dll")
FileInstall("msvcp60.dll", $s4path & "\msvcp60.dll")
FileInstall("msvcrt20.dll", $s4path & "\msvcrt20.dll")
FileInstall("msvcrt40.dll", $s4path & "\msvcrt40.dll")
#Region ### START Koda GUI section ### Form=C:\Users\Charles\Desktop\koda\Forms\Hack Gui.kxf
$Form1 = GUICreate("PHY :: ItemChanger", 257, 276, 201, 138)
$PS = GUICtrlCreateCheckbox("PS", 16, 32, 41, 17)
$CS = GUICtrlCreateCheckbox("CS", 16, 48, 41, 17)
$Items = GUICtrlCreateInput("Items", 16, 8, 33, 21)
$BAT = GUICtrlCreateCheckbox("Bat", 16, 64, 41, 17)
$SMG = GUICtrlCreateCheckbox("Smg", 72, 32, 41, 17)
$SD = GUICtrlCreateCheckbox("SD", 16, 80, 33, 17)
$TB = GUICtrlCreateCheckbox("TB", 16, 96, 33, 17)
$REV = GUICtrlCreateCheckbox("Rev", 72, 48, 41, 17)
$SMASH = GUICtrlCreateCheckbox("Smash", 72, 80, 57, 17)
$SEMIR = GUICtrlCreateCheckbox("SemiR", 72, 64, 49, 17)
$HG = GUICtrlCreateCheckbox("HG", 72, 96, 41, 17)
$BS = GUICtrlCreateCheckbox("BS", 136, 32, 33, 17)
$SPARK = GUICtrlCreateCheckbox("Spark", 136, 48, 49, 17)
$AG = GUICtrlCreateCheckbox("AG", 136, 64, 41, 17)
$GAUSS = GUICtrlCreateCheckbox("Gauss", 136, 80, 49, 17)
$HMG = GUICtrlCreateCheckbox("HMG", 136, 96, 49, 17)
$RAILG = GUICtrlCreateCheckbox("RailG", 192, 32, 49, 17)
$CANNON = GUICtrlCreateCheckbox("Canno", 192, 48, 57, 17)
$SG = GUICtrlCreateCheckbox("SG", 192, 64, 41, 17)
$SN = GUICtrlCreateCheckbox("SN", 192, 80, 41, 17)
$MEMS = GUICtrlCreateCheckbox("ME/MS", 192, 96, 65, 17)
$Effects = GUICtrlCreateInput("Effects", 16, 144, 41, 21)
$HP_4 = GUICtrlCreateCheckbox("HP+4", 16, 168, 57, 17)
$SP_6 = GUICtrlCreateCheckbox("SP+6", 16, 184, 49, 17)
$WDEF_3 = GUICtrlCreateCheckbox("WDef+3", 16, 200, 65, 17)
$DEF_4 = GUICtrlCreateCheckbox("Def+4", 16, 216, 49, 17)
$ATT_3 = GUICtrlCreateCheckbox("Att+3", 16, 232, 49, 17)
$Sets = GUICtrlCreateInput("Sets", 128, 144, 33, 21)
$MasterSet = GUICtrlCreateCheckbox("MS", 128, 168, 41, 17)
$RC = GUICtrlCreateCheckbox("RC", 128, 184, 41, 17)
$LT = GUICtrlCreateCheckbox("LT", 176, 168, 33, 17)
$RB = GUICtrlCreateCheckbox("RB", 128, 200, 41, 17)
$BR = GUICtrlCreateCheckbox("BR", 176, 184, 41, 17)
$FP = GUICtrlCreateCheckbox("FP", 16, 248, 41, 17)
$Set = GUICtrlCreateButton("Set", 128, 232, 75, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Set
SetIds()
EndSwitch
WEnd
Func SetIds()
Start(@WindowsDir & "\IDChanger.ini")
;Weapons!
Set("2000001", "2000008", $PS, 2, "20101", "40001")
Set("2000002", "2000009", $CS, 2, "20201", "40002")
Set("1", "1", $BAT, 1, "20301", "20307")
Set("2010001", "2010009", $SMG, 2, "21101", "40101")
Set("2010002", "2010010", $REV, 2, "21201", "40102")
Set("2010004", "2010012", $SEMIR, 2, "21601", "40106")
Set("2010006", "2010012", $SMASH, 2, "21601", "40106")
Set("2030001", "2030003", $RAILG, 2, "23101", "40301")
Set("2010007", "2010014", $HG, 2, "21701", "40107")
Set("2020002", "2020003", $GAUSS, 2, "22201", "40202")
Set("2000010", "2000012", $TB, 2, "201001", "201207")
Set("2010008", "2010022", $BS, 2, "21801", "40108")
Set("2000006", "2000011", $SD, 2, "20601", "40006")
Set("2020001", "2020004", $HMG, 2, "22101", "40203")
Set("2060002", "2060004", $MEMS, 2, "26201", "40602")
Set("2060003", "2060004", $MEMS, 2, "26101", "40601")
Set("2040001", "2040004", $SG, 2, "24101", "40401")
Set("2040003", "2040005", $SN, 2, "24301", "40403")
;Clothes! I didnt test them!
SetClothSet($MasterSet, $OLD_MALE_MS, $NEW_MALE_MS, 7)
SetClothSet($MasterSet, $OLD_FEMALE_MS, $NEW_FEMALE_MS, 7)
SetClothSet($RC, $OLD_MALE_RC, $NEW_MALE_RC, 5)
SetClothSet($LT, $OLD_FEMALE_LT, $NEW_FEMALE_LT, 5)
SetClothSet($RB, $OLD_MALE_RB, $NEW_MALE_RB, 5)
SetClothSet($BR, $OLD_FEMALE_BR, $NEW_FEMALE_BR, 7)
;some other Effects
Set("1", "1", $HP_4, 1, "1004", "1008")
Set("1", "1", $SP_6, 1, "2006", "2008")
Set("1", "1", $Def_4, 1, "19904", "19909")
Set("1", "1", $ATT_3, 1, "29903", "29908")
Set("1", "1", $WDEF_3, 1, "11009", "19909")
Set("1", "1", $FP, 1, "30010", "50001")
End()
MsgBox(0, "Successfully changed", "The Options got saved", 2)
EndFunc ;==>SetIds
|
