Perfect World Bot PWI-Prophet Bot Recoded

$CHK_FZ = GUICtrlCreateCheckbox("Unfreeze", 160, 469, 82, 8)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHK_FZ), "wstr", 0, "wstr", 0)
If IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_FREEZE_KEY, "0") = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
Else
	GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf

Func SETGUIDATA()
	If Not $PROCESS_ID Then Return 0
	If GUICtrlRead($CHK_FZ) <> IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_FREEZE_KEY, "0") Then
		IniWrite($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_FREEZE_KEY, GUICtrlRead($CHK_FZ))
		If GUICtrlRead($CHK_FZ) = 5 Then
			MEMWRITE(10439036, 1)
		EndIf
	EndIf
	If IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_FREEZE_KEY, "0") = 1 Then
		$FZ = MEMREAD($APP_BASE_ADDRESSFZ)
		If $FZ <> 1 Then
			MEMWRITE($APP_BASE_ADDRESSFZ, $PROCESS_INFORMATION, "1")
		EndIf
	EndIf
EndFunc


Func MEMOPEN($PROCESS_ID)
	Local $MID = DllCall($KERNEL32, "int", "OpenProcess", "int", 2035711, "int", 1, "int", $PROCESS_ID)
	Return $MID[0]
EndFunc
Func MEMREAD($ADRESS, $TYPE = "dword")
	Local $STRUCT = DllStructCreate($TYPE)
	DllCall($KERNEL32, "int", "ReadProcessMemory", "int", $MID, "int", $ADRESS, "ptr", DllStructGetPtr($STRUCT), "int", DllStructGetSize($STRUCT), "int", "")
	Return DllStructGetData($STRUCT, 1)
EndFunc

Func MEMWRITE($IV_ADDRESS, $AH_HANDLE, $V_DATA, $SV_TYPE = "dword")
	If Not IsArray($AH_HANDLE) Then
		SetError(1)
		Return 0
	EndIf
	Local $V_BUFFER = DllStructCreate($SV_TYPE)
	If @error Then
		SetError(@error + 1)
		Return 0
	Else
		DllStructSetData($V_BUFFER, 1, $V_DATA)
		If @error Then
			SetError(6)
			Return 0
		EndIf
	EndIf
	DllCall($AH_HANDLE[0], "int", "WriteProcessMemory", "int", $AH_HANDLE[1], "int", $IV_ADDRESS, "ptr", DllStructGetPtr($V_BUFFER), "int", DllStructGetSize($V_BUFFER), "int", "")
	If Not @error Then
		Return 1
	Else
		SetError(7)
		Return 0
	EndIf
EndFunc
Func MEMPOINTERWRITE($IV_ADDRESS, $AH_HANDLE, $AV_OFFSET, $V_DATA, $SV_TYPE = "dword")
	If IsArray($AV_OFFSET) Then
		If IsArray($AH_HANDLE) Then
			Local $IV_POINTERCOUNT = UBound($AV_OFFSET) - 1
		Else
			SetError(2)
			Return 0
		EndIf
	Else
		SetError(1)
		Return 0
	EndIf
	Local $IV_STRUCTDATA, $I
	Local $V_BUFFER = DllStructCreate("dword")
	For $I = 0 To $IV_POINTERCOUNT
		If $I = $IV_POINTERCOUNT Then
			$V_BUFFER = DllStructCreate($SV_TYPE)
			If @error Then
				SetError(@error + 3)
				Return 0
			EndIf
			DllStructSetData($V_BUFFER, 1, $V_DATA)
			If @error Then
				SetError(8)
				Return 0
			EndIf
			$IV_ADDRESS = "0x" & Hex($IV_STRUCTDATA + $AV_OFFSET[$I])
			DllCall($AH_HANDLE[0], "int", "WriteProcessMemory", "int", $AH_HANDLE[1], "int", $IV_ADDRESS, "ptr", DllStructGetPtr($V_BUFFER), "int", DllStructGetSize($V_BUFFER), "int", "")
			If @error Then
				SetError(9)
				Return 0
			Else
				Return $IV_ADDRESS
			EndIf
		ElseIf $I = 0 Then
			DllCall($AH_HANDLE[0], "int", "ReadProcessMemory", "int", $AH_HANDLE[1], "int", $IV_ADDRESS, "ptr", DllStructGetPtr($V_BUFFER), "int", DllStructGetSize($V_BUFFER), "int", "")
			If @error Then
				SetError(3)
				Return 0
			EndIf
			$IV_STRUCTDATA = DllStructGetData($V_BUFFER, 1)
		Else
			$IV_ADDRESS = "0x" & Hex($IV_STRUCTDATA + $AV_OFFSET[$I])
			DllCall($AH_HANDLE[0], "int", "ReadProcessMemory", "int", $AH_HANDLE[1], "int", $IV_ADDRESS, "ptr", DllStructGetPtr($V_BUFFER), "int", DllStructGetSize($V_BUFFER), "int", "")
			If @error Then
				SetError(3)
				Return 0
			EndIf
		EndIf
		$IV_STRUCTDATA = DllStructGetData($V_BUFFER, 1)
	Next
EndFunc
Func MEMCLOSE($MID)
	DllCall($KERNEL32, "int", "CloseHandle", "int", $MID)
EndFunc

If GUICtrlRead($CHK_FZ) = 5 Then ;idk what the 5 means -.-| 1=Checked,4=Unchecked
	MEMWRITE(10439036, 1) ;there's no handle to the process it should write to
EndIf

If GUICtrlRead($CHK_FZ) = 5 Then ;idk what the 5 means -.-| 1=Checked,4=Unchecked
	MEMWRITE("0x"&Hex(10439036),$PROCESS_INFORMATION, 1)
EndIf