#include <Process.au3>
#include <GuiConstants.au3>
$title = "Nightmist Character Generation "
$title_manage = "Account Manager - Nightmist"
$race = "ThunderRT6OptionButton53"
$class = "ThunderRT6OptionButton47"
$sex = "ThunderRT6OptionButton58"
$str = 0
$int = 0
$dex = 0
$con = 0
$wis = 0
$cha = 0
$cbstr = 0
$cbint = 0
$cbdex = 0
$cbcon = 0
$cbwis = 0
$cbcha = 0
$total = 0
$catch = 0
Opt("WinTitleMatchMode",2)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)


GuiCreate("Nightmist Crit-Gen", 259, 200,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Group_1 = GuiCtrlCreateGroup("Info", 10, 10, 170, 150)
$Input_3 = GuiCtrlCreateInput("", 60, 50, 110, 20)
$Label_4 = GuiCtrlCreateLabel("Name:", 20, 50, 30, 20)
$Label_5 = GuiCtrlCreateLabel("Race:", 20, 90, 30, 20)
$Combo_6 = GuiCtrlCreateCombo("Dwarf", 60, 90, 110, 21)
GUICtrlSetData($Combo_6,"Halfling|Elf|Human|HalfElf|Gnome|HalfOrc")
$Combo_7 = GuiCtrlCreateCombo("Fighter", 60, 130, 110, 21)
GUICtrlSetData($Combo_7,"Berserker|Mage|Pacifist|Cleric|Druid|Paladin|Ranger|Thief")
$Label_8 = GuiCtrlCreateLabel("Class:", 20, 130, 30, 20)
$Group_9 = GuiCtrlCreateGroup("Stats", 190, 10, 60, 150)
$Checkbox_10 = GuiCtrlCreateCheckbox("STR", 200, 30, 40, 20)
$Checkbox_11 = GuiCtrlCreateCheckbox("INT", 200, 50, 40, 20)
$Checkbox_12 = GuiCtrlCreateCheckbox("DEX", 200, 70, 40, 20)
$Checkbox_13 = GuiCtrlCreateCheckbox("CON", 200, 90, 40, 20)
$Checkbox_14 = GuiCtrlCreateCheckbox("WIS", 200, 110, 40, 20)
$Checkbox_15 = GuiCtrlCreateCheckbox("CHA", 200, 130, 40, 20)
$Button_18 = GUICtrlCreateButton("Roll", 10, 167, 240, 25)
$Radio_19 = GUICtrlCreateRadio("Male", 60, 20)
$Radio_20 = GUICtrlCreateRadio("Female", 115, 20)
GUICtrlSetState($Radio_19, $GUI_CHECKED)
GuiSetState()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button_18
			If GUICtrlRead($Checkbox_10) = $GUI_CHECKED Then $cbstr = 1
			If GUICtrlRead($Checkbox_11) = $GUI_CHECKED Then $cbint = 1
			If GUICtrlRead($Checkbox_12) = $GUI_CHECKED Then $cbdex = 1
			If GUICtrlRead($Checkbox_13) = $GUI_CHECKED Then $cbcon = 1
			If GUICtrlRead($Checkbox_14) = $GUI_CHECKED Then $cbwis = 1
			If GUICtrlRead($Checkbox_15) = $GUI_CHECKED Then $cbcha = 1
			$cbtotal = $cbstr + $cbint + $cbdex + $cbcon + $cbwis + $cbcha
			$crit_name = GUICtrlRead($Input_3)
			Select
				Case GUICtrlRead($Combo_6) = "Dwarf"
						$race = "ThunderRT6OptionButton55"
				Case GUICtrlRead($Combo_6) = "Halfling"
						$race = "ThunderRT6OptionButton54"
				Case GUICtrlRead($Combo_6) = "Elf"
						$race = "ThunderRT6OptionButton53"
				Case GUICtrlRead($Combo_6) = "Human"
						$race = "ThunderRT6OptionButton52"
				Case GUICtrlRead($Combo_6) = "HalfElf"
						$race = "ThunderRT6OptionButton51"	
				Case GUICtrlRead($Combo_6) = "Gnome"
						$race = "ThunderRT6OptionButton56"
				Case GUICtrlRead($Combo_6) = "HalfOrc"
						$race = "ThunderRT6OptionButton50"
				Case Else
					;;;;
			EndSelect
			
			Select
				Case GUICtrlRead($Combo_7) = "Fighter"
						$class = "ThunderRT6OptionButton46"
				Case GUICtrlRead($Combo_7) = "Berserker"
						$class = "ThunderRT6OptionButton45"
				Case GUICtrlRead($Combo_7) = "Mage"
						$class = "ThunderRT6OptionButton48"
				Case GUICtrlRead($Combo_7) = "Pacifist"
						$class = "ThunderRT6OptionButton44"
				Case GUICtrlRead($Combo_7) = "Cleric"
						$class = "ThunderRT6OptionButton47"
				Case GUICtrlRead($Combo_7) = "Ranger"
						$class = "ThunderRT6OptionButton41"
				Case GUICtrlRead($Combo_7) = "Thief"
						$class = "ThunderRT6OptionButton42"
				Case GUICtrlRead($Combo_7) = "Druid"
						$class = "ThunderRT6OptionButton49"
				Case GUICtrlRead($Combo_7) = "Paladin"
						$class = "ThunderRT6OptionButton43"
				Case Else
					;;;;
			EndSelect
			
			If GUICtrlRead($Radio_20) = $GUI_CHECKED Then 
				$sex = "ThunderRT6OptionButton57"
			EndIf
			Beginner()
		Case Else
			;;;;
	EndSelect
	While $catch = 1
		Pixels()
		If Not $catch Then ExitLoop
		RollClick()
		Sleep(400)
		CheckMath()
		Pixels()
	WEnd
WEnd
Exit




	Func Beginner()
		If Not WinExists($title, "") AND Not WinExists($title_manage, "") Then 
			_RunDOS('"C:\NMRoller.lnk"')
			WinWait($title_manage, "")
		EndIf
		If WinExists($title_manage,"") Then
			If Not WinActive($title_manage,"") Then WinActivate($title_manage,"")
			WinWaitActive($title_manage,"")
			ControlClick($title_manage, "","ThunderRT6CommandButton2")
			WinWait($title,"")
		EndIf
		If Not WinActive($title,"") Then WinActivate($title,"")
		WinWaitActive($title,"")
		If "Next" == ControlGetText($title, "", "ThunderRT6CommandButton1") Then
			Send($crit_name)
			Sleep(1000)
			ControlClick($title, "","ThunderRT6CommandButton1")
			Sleep(1000)
		EndIf
		ControlClick($title, "",$race)
		$catch = 1
	EndFunc
	
	Func RollClick()
		If NOT PixelGetColor(58,444) Then ControlClick($title, "Reroll", "ThunderRT6CommandButton3")
	EndFunc
		
	Func Pixels()
		If $cbstr Then 
			$str_check = PixelSearch(104, 304, 119, 312, 0xD3D01E, 40)
			If Not @error Then
				$str = 1
				;NMsgBox("STR")
			EndIf
			Sleep(10)
		EndIf
		If $cbint Then
			$int_check = PixelSearch(104, 326, 119, 334, 0xD5E143, 40)
			If Not @error Then
				$int = 1
				;NMsgBox("INT")
			EndIf
			Sleep(10)
		EndIf
		If $cbdex Then
			$dex_check = PixelSearch( 104, 348, 119, 353, 0xB4CA25, 40)
			If Not @error Then
				$dex = 1
				;NMsgBox("DEX")
			EndIf
			Sleep(10)
		EndIf
		If $cbcon Then
			$con_check = PixelSearch( 104, 370, 119, 378, 0xD7DB47, 40)
			If Not @error Then
				$con = 1
				;NMsgBox("CON")
			EndIf
			Sleep(10)
		EndIf
		If $cbwis Then
			$wis_check = PixelSearch( 104, 391, 119, 399, 0xB3C522, 40)
			If Not @error Then
				$wis = 1
				;NMsgBox("WIS")
			EndIf
			Sleep(10)
		EndIf
		If $cbcha Then
			$cha_check = PixelSearch( 104, 412, 119, 420, 0xD0BF1E, 40)
			If Not @error Then 
				$cha = 1
				;NMsgBox("CHA")
			EndIf
			Sleep(10)
		EndIf

		$total = $str + $int + $dex + $con + $wis + $cha
		Sleep(100)
		If $total = $cbtotal Then Box()
		$str = 0
		$int = 0
		$dex = 0
		$con = 0
		$wis = 0
		$cha = 0
	EndFunc

	Func Box()
		$catch = 0
		Sleep(1000)
		ControlClick($title, "", $sex)
		Sleep(1000)
		ControlClick($title, "",$class)
		Sleep(1000)
		ControlClick($title, "", "ThunderRT6CommandButton5")
		Sleep(1000)
		SoundPlay("C:\Documents and Settings\Murdock\My Documents\My Music\Music\Classical\Tchaikovsky - 1812 Overture.mp3")
	EndFunc
	
	Func CheckMath()
		If NOT PixelGetColor(439,328) Then
			MouseClick( "left", 150, 50, 1, 0)
			$catch = 0
			Sleep(1000)
			Beginner()
		EndIf
	EndFunc
	
	Func NMsgBox($stat)
		MsgBox(0, "Stat:", $stat)
	EndFunc