Error
Screen :
Source code (If there's any other problem,tell me ^^):
If ProcessExists("HGWC.exe") Then Exit
#include <IE.au3>
#include <ID Functions.au3>
#include <ID_CONSTANTS.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ID Changer ", 630, 362, 192, 114)
$Group1 = GUICtrlCreateGroup("Weapons", 24, 24, 201, 121)
$Checkbox1 = GUICtrlCreateCheckbox("PS", 32, 56, 49, 17)
$Checkbox2 = GUICtrlCreateCheckbox("CS", 32, 80, 49, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Bat", 32, 104, 57, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Revolver", 96, 56, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Hand Gun", 96, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Sub MachineGun", 96, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Clothes", 248, 24, 265, 121)
$Label1 = GUICtrlCreateLabel("Coming Soon...", 336, 80, 76, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("SET", 24, 160, 81, 33)
$Button2 = GUICtrlCreateButton("Credits", 120, 160, 83, 33)
$Button3 = GUICtrlCreateButton("Exit", 216, 160, 89, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SET
SetIds()
If ProcessExists("HGWC.exe") Then Exit
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", $Revo, 2, "21201", "40102")
Set("2010007", "2010014", $HG, 2, "21701", "40107")
End()
MsgBox(0, "Successfully changed", "The ID&s got saved", 2)
EndFunc ;==>SetIds
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
#include <IE.au3>
#include <ID Functions.au3>
#include <ID_CONSTANTS.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ID Changer ", 630, 362, 192, 114)
$Group1 = GUICtrlCreateGroup("Weapons", 24, 24, 201, 121)
$Checkbox1 = GUICtrlCreateCheckbox("PS", 32, 56, 49, 17)
$Checkbox2 = GUICtrlCreateCheckbox("CS", 32, 80, 49, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Bat", 32, 104, 57, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Revolver", 96, 56, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Hand Gun", 96, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Sub MachineGun", 96, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Clothes", 248, 24, 265, 121)
$Label1 = GUICtrlCreateLabel("Coming Soon...", 336, 80, 76, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("SET", 24, 160, 81, 33)
$Button2 = GUICtrlCreateButton("Credits", 120, 160, 83, 33)
$Button3 = GUICtrlCreateButton("Exit", 216, 160, 89, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SET
SetIds()
If ProcessExists("HGWC.exe") Then Exit
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", $Revo, 2, "21201", "40102")
Set("2010007", "2010014", $HG, 2, "21701", "40107")
End()
MsgBox(0, "Successfully changed", "The ID&s got saved", 2)
EndFunc ;==>SetIds
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






