#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         Jacob Pannell

 Script Function:
	Battle

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here




;Splash--------------------------------------------------------------------------------------------------
splashtexton("Battle!","This is Jacob Pannell's version of 'Battle!' by Travis Sims. All rights reserved.")
sleep(2000)
splashoff()
;------vars
$player1roll = "go"
$player2roll = "go"
$p1rollstotal = 0
$p2rollstotal = 0

$p1stm = 0
$p1agi = 0
$p1str = 0

$p2stm = 0
$p2agi = 0
$p2str = 0

$p1status = "fine"
$p2status = "fine"


;----fucntions
func roll1()
	SplashTextOn($player1name & "'s Stats","Rolling....")
	do
		$p1stm = int(random(1,10))
		$p1agi = int(random(1,10))
		$p1str = int(random(1,10))
		$player1statstotal = $p1stm + $p1agi + $p1str
	Until $player1statstotal = 14
	sleep(1000)
	splashoff()
EndFunc




func roll2()
	SplashTextOn($player2name & "'s Stats","Rolling....")
	do
		$p2stm = int(random(1,10))
		$p2agi = int(random(1,10))
		$p2str = int(random(1,10))
		$player2statstotal = $p2stm + $p2agi + $p2str
	Until $player2statstotal = 14
	sleep(1000)
	splashoff()
EndFunc

func attack1()
	if $p1agi > $p2agi Then
		$hitchance1 = int(random(6,10))
		if $hitchance1 = 4 or $hitchance1 = 6 or $hitchance1 = 8 or $hitchance1 = 9 or $hitchance1 = 10 Then
			$damage1 = ($p1str * 10) + int(random(5,26))
			if $damage1 < (.05 * $p2health) Then
				do
					$damage1 = $damage1 + int(random(1,5)) + ($p1str * .02)
				until $damage1 >= (.05 * $p2health)
			EndIf
			$p2health = $p2health - $damage1
			msgbox(64,$player1name & "'s Attack",$player1name & " attacked " & $player2name & " for " & $damage1 & ".")
		Else
			msgbox(64,$player1name & "'s Attack",$player1name & " missed " & $player2name & ".")
		EndIf
	Elseif $p1agi < $p2agi or $p1agi = $p2agi then
		$hitchance1 = int(random(1,10))
		if $hitchance1 = 2 or $hitchance1 = 4 or $hitchance1 = 6 or $hitchance1 = 8 or $hitchance1 or 10 then
			$damage1 = ($p1str * 10) + int(random(2,13))
			if $damage1 < (.05 * $p2health) Then
				Do
					$damage1 = $damage1 + int(random(1,5)) + ($p1str * .02)
				until $damage1 >= (.05 * $p2health)
			EndIf
			$p2health = $p2health - $damage1
			msgbox(64,$player1name & "'s Attack",$player1name & " attacked " & $player2name & " for " & $damage1 & ".")
		Else
			msgbox(64,$player1name & "'s Attack",$player1name & " missed " & $player2name & ".")
		EndIf
	EndIf
EndFunc


func attack2()
	if $p2agi > $p1agi Then
		$hitchance2 = int(random(6,10))
		if $hitchance2 = 4 or $hitchance2 = 6 or $hitchance2 = 8 or $hitchance2 = 9 or $hitchance2 = 10 Then
			$damage2 = ($p2str * 10) + int(random(5,26))
			if $damage2 < (.05 * $p1health) Then
				do 
					$damage2 = $damage2 + int(random(1,5)) + ($p2str * .02)
				until $damage2 >= (.05 * $p1health)
			EndIf
			$p1health = $p1health - $damage2
			msgbox(64,$player2name & "'s Attack",$player2name & " attacked " & $player1name & " for " & $damage2 & ".")
		Else
			msgbox(64,$player2name & "'s Attack",$player2name & " missed " & $player1name & ".")
		EndIf
	Elseif $p2agi < $p1agi or $p2agi = $p1agi then
		$hitchance2 = int(random(1,10))
		if $hitchance2 = 2 or $hitchance2 = 4 or $hitchance2 = 6 or $hitchance2 = 8 or $hitchance2 or 10 then
			$damage2 = ($p2str * 10) + int(random(2,13))
				if $damage2 < (.05 * $p1health) Then
				Do
					$damage2 = $damage2 + int(random(1,5)) + ($p2str * .02)
				until $damage2 >= (.05 * $p1health)
			EndIf
			$p1health = $p1health - $damage2
			msgbox(64,$player2name & "'s Attack",$player2name & " attacked " & $player1name & " for " & $damage2 & ".")
		Else
			msgbox(64,$player2name & "'s Attack",$player2name & " missed " & $player1name & ".")
		EndIf
	EndIf
EndFunc
			



;START PROGRAM!!!______________________________________________________________________________________
msgbox(64,"Welcome","Welcome to battle!")


;Names
$player1name = inputbox("Name?","What is the first character's name?","Player1")
msgbox(64,"Thank You","Thank you " & $player1name & ".")
$player2name = inputbox("And you?","And the second players name is?","Player2")
msgbox(64,"Thanks","Thanks " & $player2name & ".")


;Stats
msgbox(64,"Stats","We will now determine stats.")



;player1
while $player1roll = "go"
	roll1()
	$yesorno = msgbox(4,$player1name & "'s Stats","Stamina is " & $p1stm & ". Agility is " & $p1agi & ". Strength is " & $p1str & ".Good?")
	if $yesorno = 6 Then
		ExitLoop
	ElseIf $yesorno = 7 Then
		$p1rollstotal = $p1rollstotal + 1
		if $p1rollstotal = 3 Then
			msgbox(64,"Sorry","You can only roll 3 times.")
			ExitLoop
		EndIf
	EndIf
WEnd

msgbox(64,"Player2","Now time for player two. Press 'ok' to roll for your stats!")



;player2
while $player2roll = "go"
	roll2()
	$yesorno2 = msgbox(4,$player2name & "'s Stats","Stamina is " & $p2stm & ". Agility is " & $p2agi & ". Strength is " & $p2str & ".Good?")
	if $yesorno2 = 6 Then
		ExitLoop
	ElseIf $yesorno2 = 7 Then
		$p2rollstotal = $p2rollstotal + 1
		if $p2rollstotal = 3 Then
			msgbox(64,"Sorry","You can only roll 3 times.")
			ExitLoop
		EndIf
	EndIf
WEnd


;Health
$p1health = 500 + ($p1stm * 10) + int(random(50,200))
$p2health = 500 + ($p2stm * 10) + int(random(50,200))

;Start!!!
msgbox(64,"Who goes first","Now we roll to see who goes first.")
msgbox(64,$player1name & "'s roll","Press OK to roll, " & $player1name & ".")
$p1roll = int(random(1,10))
msgbox(64,$player2name & "'s roll","Press OK to roll, " & $player2name & ".")
$p2roll = int(random(1,10))


msgbox(64,"Rolls","Player 1 rolled a " & $p1roll & ". Player 2 rolled a " & $p2roll & ".")

if $p1roll > $p2roll then
	$turn = "p1"
	msgbox(64,"Going first..",$player1name & " will go first.")
Else
	$turn = "p2"
	msgbox(64,"Going first..",$player2name & " will go first.")
EndIf



	

;Health Printout
;msgbox(64,"Health",$player1name & "'s health is " & $p1health & ".")
;msgbox(64,"Health",$player2name & "'s health is " & $p2health & ".")

;Fight!!!!
while $p1health > 0 and $p2health > 0
	if $turn = "p1" Then
		splashtexton("Health",$player1name & "'s health:" & $p1health & " " & $player2name & "'s health:" & $p2health,175,50,576,289,1 + 2 + 4,-1,-1,-1)
		attack1()
		$turn = "p2"
	Else
		splashtexton("Health",$player1name & "'s health:" & $p1health & " " & $player2name & "'s health:" & $p2health,175,50,576,289,1 + 2 + 4,-1,-1,-1)
		attack2()
		$turn = "p1"
	EndIf
WEnd
splashoff()
;determine whos dead
if $p1health = 0 Then
	$p1status = "dead"
elseif $p2health = 0 Then
	$p2status = "dead"
EndIf

;Ending
if $p1status = "dead" Then
	;splashimageon("GAME OVER!!","C:\Documents and Settings\UIL\Desktop\game.jpg")
	sleep(1000)
	splashoff()
	msgbox(64,"WINNER!!",$player2name & " has slain " & $player1name & "!!!!!")
	Exit
Else
	;splashimageon("GAME OVER!!","C:\Documents and Settings\UIL\Desktop\game.jpg")
	sleep(1000)
	splashoff()
	msgbox(64,"WINNER!!",$player1name & " has slain " & $player2name & "!!!!!")
	Exit
EndIf