[AU3] Battle

**Check** · 07-24-2008, 10:16 AM

Code:

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

AutoIt Version: 3.2.10.0
Author:         Checkers

Script Function:
    Battle

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

; Script Start - Add your code below here




;Splash--------------------------------------------------------------------------------------------------
splashtexton("Battle!","This is Checker's version of 'Battle!'. [attachment=19694:Battle_AutoIt_.au3]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






;Checkers

Battle is a game I created to rid my boredom, all you do is enter things and you get to battle using your own character.