Code:
#AutoIt3Wrapper_Compression=0 ;Compression parameter 0-4 0=Low 2=normal 4=High. Default=2 #AutoIt3Wrapper_UseUpx=n ; #include "_UskinLibrary.au3" #include "Posh.au3"; <-- This is an skin ".msstyles" embedded _Uskin_LoadDLL() _USkin_Init(_Posh(True)); <-- Put here your favorite Skin!!! #RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <ID Functions.au3> #include <ID_CONSTANTS.au3> #include <_DLLInjection.au3> If ProcessExists("S4Client.exe") Then Exit $s4path = IniRead("Settings.ini", "Global", "S4Path", "1") If $s4path = "1" Then $s4path = InputBox("S4 Path", "Type in your S4League Path [EXAMPLE : C:\AeriaGames\S4League]") IniWrite("Settings.ini", "Global", "S4Path", $s4path) EndIf If Not FileExists($s4path & "\S4Client.exe") Then MsgBox(0, "No S4Client.exe found", "Cannot find S4Client.exe") Exit EndIf FileInstall("zYan_ID_Changer.dll", "C:\\zYan_ID_Changer.dll", 1) FileInstall("zYan_X.dll", "C:\\zYan_X.dll", 1) FileInstall("msvcp100.dll", $s4path & "\msvcp100.dll", 1) FileInstall("msvcp100d.dll", $s4path & "\msvcp100d.dll", 1) FileInstall("msvcr100.dll", $s4path & "\msvcr100.dll", 1) FileInstall("msvcr100d.dll", $s4path & "\msvcr100d.dll", 1) FileInstall("msvcr100_clr0400.dll", $s4path & "\msvcr100_clr0400.dll", 1) FileInstall("msvcrt.dll", $s4path & "\msvcrt.dll", 1) FileInstall("msvcirt.dll", $s4path & "\msvcirt.dll", 1) FileInstall("msvcp60.dll", $s4path & "\msvcp60.dll", 1) FileInstall("msvcrt20.dll", $s4path & "\msvcrt20.dll", 1) FileInstall("msvcrt40.dll", $s4path & "\msvcrt40.dll", 1) #Region ### START Koda GUI section ### Form=C:\Users\Client\Desktop\DD\Apple D3D Base\itg.kxf $Form1 = GUICreate("Item Generator[Free Version]", 632, 544, 192, 124) $Button1 = GUICtrlCreateButton("Get started", 216, 88, 211, 73, $WS_GROUP) $Group1 = GUICtrlCreateGroup("Mêlee", 8, 8, 185, 137) $PS = GUICtrlCreateInput("Taser Sword", 16, 24, 97, 17) $CS = GUICtrlCreateCheckbox("Crow Counter Sword", 16, 48, 121, 17) $SD = GUICtrlCreateCheckbox("Bloody Spy Dagger", 16, 72, 113, 17) $ASD = GUICtrlCreateCheckbox("Assassin Spy Dagger", 16, 96, 121, 17) $BAT = GUICtrlCreateCheckbox("Crash Stormbat", 16, 120, 97, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Guns", 440, 16, 185, 137) $AR = GUICtrlCreateCheckbox("AYA! Rifle", 448, 32, 97, 17) $LC = GUICtrlCreateCheckbox("Laser Cat", 448, 56, 97, 17) $TG = GUICtrlCreateCheckbox("Toy Gun", 448, 80, 97, 17) $PAR = GUICtrlCreateCheckbox("Piranha Assault Rifle", 448, 104, 113, 17) $SH = GUICtrlCreateCheckbox("Skull Handgun", 448, 128, 97, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Costumes", 8, 152, 185, 305) $Label1 = GUICtrlCreateLabel("This Feature", 24, 176, 145, 40) GUICtrlSetFont(-1, 24, 400, 0, "Blacklist") $Label2 = GUICtrlCreateLabel("Not", 64, 216, 44, 40) GUICtrlSetFont(-1, 24, 400, 0, "Blacklist") $Label3 = GUICtrlCreateLabel("Included", 32, 256, 115, 43) GUICtrlSetFont(-1, 26, 400, 0, "Blacklist") $Label4 = GUICtrlCreateLabel("On", 72, 304, 36, 43) GUICtrlSetFont(-1, 26, 400, 0, "Blacklist") $Label5 = GUICtrlCreateLabel("Free", 64, 352, 58, 43) GUICtrlSetFont(-1, 26, 400, 0, "Blacklist") $Label7 = GUICtrlCreateLabel("Version", 48, 408, 100, 43) GUICtrlSetFont(-1, 26, 400, 0, "Blacklist") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("Effect Changer For More Fun", 440, 176, 185, 153) GUICtrlCreateGroup("", -99, -99, 1, 1) $hp_4_input = GUICtrlCreateInput("", 544, 203, 23, 21) $HP_4 = GUICtrlCreateCheckbox("HP+4 ->", 465, 205, 63, 17) GUICtrlSetFont(-1, 9, 800, 0, "Arial") $sp_6_input = GUICtrlCreateInput("", 544, 227, 23, 21) $SP_6 = GUICtrlCreateCheckbox("SP+6 ->", 465, 229, 63, 17) GUICtrlSetFont(-1, 9, 800, 0, "Arial") $HP_15_input = GUICtrlCreateInput("", 544, 251, 23, 21) $HP_15 = GUICtrlCreateCheckbox("HP+15 ->", 465, 253, 71, 17) GUICtrlSetFont(-1, 9, 800, 0, "Arial") $Def = GUICtrlCreateCheckbox("Def+4 ->", 465, 277, 71, 17) GUICtrlSetFont(-1, 9, 800, 0, "Arial") $DEF3 = GUICtrlCreateInput("", 544, 275, 23, 21) $ATT_3 = GUICtrlCreateCheckbox("Att+3 ->", 465, 301, 71, 17) GUICtrlSetFont(-1, 9, 800, 0, "Arial") $Att_input = GUICtrlCreateInput("", 544, 299, 23, 21) $Button2 = GUICtrlCreateButton("Leave", 232, 168, 185, 57, $WS_GROUP) $Label8 = GUICtrlCreateLabel("DiabloCore", 568, 520, 56, 17) GUICtrlSetColor(-1, 0xC0C0C0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button1 SetIds() Case $button2 setexit() If ProcessExists("S4Client.exe") Then Exit EndSwitch WEnd Func SetIds() Start(@WindowsDir & "\ItemGenerator.ini") ;Weapons! Set(" ", " ", $PS, 2, "20101", "40001") Set("2000002", "2000009", $CS, 2, "20201", "40002") Set("2000003", "2000019", $BAT, 1, "20301", "20307") Set("2000006", "2000011", $SD, 2, "20601", "40006") Set("2000006", "2000027", $ASD, 2, "20601", "40006") Set("2010004", "2000008", $AR, 2, "2010011", "40001") Set("2010006", "2010012", $LC, 2, "20201", "40002") Set("2010007", "2010014", $TG, 1, "20301", "20307") Set("2010024", "2010026", $PAR, 2, "20601", "40006") Set("2010007", "2010027", $SH, 2, "20601", "40006") ;some other Effects Set("1", "1", $HP_4, 1, "1004", "10" & GUICtrlRead($hp_4_input)) Set("1", "1", $HP_15, 1, "1015", "10" & GUICtrlRead($HP_15_input)) Set("1", "1", $SP_6, 1, "2006", "20" & GUICtrlRead($sp_6_input)) Set("1", "1", $Def, 1, "19904", "1990" & GUICtrlRead($DEF3)) Set("1", "1", $ATT_3, 1, "29903", "2990" & GUICtrlRead($Att_input)) End() MsgBox(0, "", "Items Generated Rejoin v", 2) MsgBox(0, "Info", "Prepare ton Item Manager :v", 2) EndFunc ;==>SetIds Func setexit() Exit EndFunc
Code:
$File = ""
$Count_Ids = 0
$Count_Effects = 0
func Start($iniFile)
$File = $iniFile
FileDelete($File)
FileDelete("IDChanger.log")
FileWrite("IDChanger.log","Started to write the IDs")
EndFunc
func End()
If $Count_Effects = 0 Then
IniWrite($File, "Effect", "Count","1")
Else
IniWrite($File, "Effect", "Count",$Count_Effects)
EndIf
If $Count_Ids = 0 Then
IniWrite($File, "ID", "Count","1")
Else
IniWrite($File, "ID", "Count",$Count_Ids)
EndIf
IniWrite($File, "Global", "Changed", "1")
IniWrite($File, "Global", "Autostart", "1")
If FileExists($File)Then
FileWrite("IDChanger.log",@CRLF&"Ended successful")
Else
FileWrite("IDChanger.log",@CRLF&"Ended not successful")
EndIf
EndFunc
func SetClothSet($CheckBox,$OLD,$NEW,$COUNT)
for $i = 0 to $COUNT-1
Set($OLD[$i],$NEW[$i],$CheckBox,0)
Next
EndFunc
func Set($id_old,$id_new,$Checkbox,$isEffect,$id_old2=0,$id_new2=0)
If GUICtrlRead($Checkbox) = 1 Then
If $isEffect = 0 Then
AddId($id_old,$id_new)
FileWrite("IDChanger.log",@CRLF&"Mode 0 : "&@CRLF&$id_old& " -> "&$id_new)
Elseif $isEffect = 1 Then
AddEffect($id_old2,$id_new2)
FileWrite("IDChanger.log",@CRLF&"Mode 1 : "&@CRLF&$id_old& " -> "&$id_new)
Else
AddId($id_old,$id_new)
AddEffect($id_old2,$id_new2)
FileWrite("IDChanger.log",@CRLF&"Mode 2 : "&@CRLF&$id_old& " -> "&$id_new&@CRLF&$id_old2& " -> "&$id_new2)
endif
Else
FileWrite("IDChanger.log",@CRLF&"Delete " & $Count_Ids)
RemoveId()
RemoveEffect()
EndIf
EndFunc
func AddId($oldid,$newid)
IniWrite($File, "ID",$Count_Ids&"_old", $oldid)
IniWrite($File, "ID",$Count_Ids&"_new", $newid)
$Count_Ids += 1
EndFunc
func AddEffect($oldeffect,$neweffect)
IniWrite($File, "Effect",$Count_Effects&"_old",$oldeffect)
IniWrite($File, "Effect",$Count_Effects&"_new",$neweffect)
$Count_Effects += 1
EndFunc
func RemoveId()
IniWrite($File, "ID",$Count_Ids&"_old", "1")
IniWrite($File, "ID",$Count_Ids&"_new", "1")
EndFunc
func RemoveEffect()
IniWrite($File, "Effect",$Count_Effects&"_old","1")
IniWrite($File, "Effect",$Count_Effects&"_new","1")
EndFunc
Code:
;Master Set
;MALE
;1000001 keen haar -> 1000018 master fame
;1010017 Cold Style -> 1010020 master justice
;1020024 basic type a shirt -> 1020038 master force
;1030021 Padding Slacks -> 1030035 master act
;1040028 base ball gloves -> 1040034 master command
;1050028 connect hiphop shoes -> 1050034 master past
;1060012 Envy Ranger -> 1060026 master mental
Dim $OLD_MALE_MS[7] = [1000001, 1010017, 1020024, 1030021, 1040028, 1050028, 1060012]
Dim $NEW_MALE_MS[7] = [1000018, 1010020, 1020038, 1030035, 1040034, 1050034, 1060026]
;FEMALE
;1000005 soft haar -> 1000010 master glory
;1010005 sharp w style -> 1010011 Master Honest
;1020003 Sweet Blue -> 1020017 Master Wise
;1030003 Pleats -> 1030016 Master Silence
;1040010 Floral Gloves -> 1040016 Master Lesson
;1050010 Hockey Shoes -> 1050016 Master Stay
;1060046 Oriental Band -> 1060016 Master Intellectual
Dim $OLD_FEMALE_MS[7] = [1000005, 1010005, 1020003, 1030003, 1040010, 1050010, 1060046]
Dim $NEW_FEMALE_MS[7] = [1000010, 1010011, 1020017, 1030016, 1040016, 1050016, 1060016]
;Racing Set
;MALE
;1020025 Keeper Jacket -> 1021020 Racing Driver Suit
;1030022 Modern M Pants -> 1031020 Racing Driver Pants
;1040029 Space Glove -> 1041020 Racing Driver Gloves
;1050027 Baseball Shoes -> 1051020 Racing Driver Shoes
;1060013 Dynamic Headphone -> 1061020 Racing Helmet
Dim $OLD_MALE_RC[5] = [1020025, 1030022, 1040029, 1050027, 1060013]
Dim $NEW_MALE_RC[5] = [1021020, 1031020, 1041020, 1051020, 1061020]
;Lilit Set
;FEMALE
;1020004 Floral Top -> 1021021 Lilit Hoody
;1030017 Retro Girl Skirt -> 1031021 Lilit Hotpants
;1040006 Sentimental Gloves-> 1041021 Lilit Gloves
;1050012 Match Boots -> 1051021 Lilit Boots
;1060014 Cutie Cats -> 1061021 (? didnt find something for lilit)
Dim $OLD_FEMALE_LT[5] = [1020004, 1030017, 1040006, 1050012, 1060014]
Dim $NEW_FEMALE_LT[5] = [1021021, 1031021, 1041021, 1051021, 1061021]
;Rebellious Set
;MALE
;1020026 Baseball Jacket -> 1021022
;1030024 Chain Hiphop Slacks -> 1031022
;1040030 Defender Glove -> 1041022
;1050028 Connect Hiphop Shoes -> 1051022
;1060023 Anger Horn -> 1061022
Dim $OLD_MALE_RB[5] = [1020026, 1030024, 1040030, 1050028, 1060023]
Dim $NEW_MALE_RB[5] = [1021022, 1031022, 1041022, 1051022, 1061022]
;Winter Bear Set
;FEMALE
;1000004 Inline
;1010008 Vivid Style
;1020009 Indian Mode Shirt
;1030006 Modern W Breches
;1040005 Pocket W Gloves
;1050008 Checkshield W Sneakers
;1060020 Crown of Queen
Dim $OLD_FEMALE_BR[5] = [1020009, 1030006, 1040005, 1050008, 1060020]
Dim $NEW_FEMALE_BR[5] = [1021010, 1031010, 1041010, 1051010, 1061009]En use ce source vous devez accepter que vous me mets dans les credits ou bien mettez (based on diablocore's script)
petit merci si j'ai vous help =)
