AppleScript Programming/Sample Programs/Guess The Character

Guess The Character

This is a small game that you can make with AppleScript, and then you must play it with a friend. You must type in a character and then your friend must guess. If your friend is right, he/she will win a point. You can type in the names, choose how many levels will be played and choose any character, but only one. It includes the if statement, the repeat function and many variables and dialogs. It's long, but the whole code is necessary for playing the game. Copy this code to the Script Editor:

--Code by Juanco Deick
--Feel free to use
display dialog "Welcome! What do you wish?" buttons {"We would like to play.", "We don't want to play. We want to quit."} default button 1 with title "Welcome! Answer the question below."
set buttonpress to button returned of the result
if buttonpress is "We don't want to play. We want to quit." then
        return
end if
repeat
        set playerone to text returned of (display dialog "Player 1, what's you're name?" default answer "Player 1" with title "Insert your name, player 1." buttons {"Continue"} default button 1)
        set playertwo to text returned of (display dialog "Player 2, what's you're name?" default answer "Player 2" with title "Insert your name, player 2." buttons {"Continue"} default button 1)
        set levelnum to text returned of (display dialog "Now, " & playerone & " or " & playertwo & ", please choose how many levels will you play." default answer "1" with title "Choose how many levels will be played." buttons {"Continue"} default button 1)
        set levelplay to 1
        set onescore to 0
        set twoscore to 0
        repeat
                repeat
                        set mytext to text returned of (display dialog playerone & ", please, write a character." default answer "A" with title "Level " & levelplay & " of " & levelnum & " - " & playerone & " vs. " & playertwo buttons {"Continue"} default button 1 with hidden answer)
                        set MyCount to count (mytext)
                        if MyCount is 1 then
                                exit repeat
                        else
                                display dialog "Sorry, but you must insert ONE character. Please try again." buttons {"Try again"} default button 1
                        end if
                end repeat
                repeat
                        set mytry to text returned of (display dialog playertwo & ", please, guess " & playerone & "'s character." default answer "A" with title "Level " & levelplay & " of " & levelnum & " - " & playerone & " vs. " & playertwo buttons {"Continue"} default button 1)
                        set MyCount to count (mytry)
                        if MyCount is 1 then
                                exit repeat
                        else
                                display dialog "Sorry, but you must insert ONE character. Please try again." buttons {"Try again"} default button 1
                        end if
                end repeat
                if mytext is mytry then
                        display dialog "Correct, " & playertwo & "! You are good at this game. 1 point goes to you." with title "Correct!" buttons {"Yay!"} default button 1
                        set twoscore to (twoscore + 1)
                else
                        display dialog "Sorry, " & playertwo & ". You are wrong, the character was " & mytext & ". You didn't win any points." with title "Oops!" buttons {"Aw..."} default button 1
                end if
                repeat
                        set mytext to text returned of (display dialog playertwo & ", please, write a character." default answer "A" with title "Level " & levelplay & " of " & levelnum & " - " & playerone & " vs. " & playertwo buttons {"Continue"} default button 1 with hidden answer)
                        set MyCount to count (mytext)
                        if MyCount is 1 then
                                exit repeat
                        else
                                display dialog "Sorry, but you must insert ONE character. Please try again." buttons {"Try again"} default button 1
                        end if
                end repeat
                repeat
                        set mytry to text returned of (display dialog playerone & ", please, guess " & playertwo & "'s character." default answer "A" with title "Level " & levelplay & " of " & levelnum & " - " & playerone & " vs. " & playertwo buttons {"Continue"} default button 1)
                        set MyCount to count (mytry)
                        if MyCount is 1 then
                                exit repeat
                        else
                                display dialog "Sorry, but you must insert ONE character. Please try again." buttons {"Try again"} default button 1
                        end if
                end repeat
                if mytext is mytry then
                        display dialog "Correct, " & playerone & "! You are good at this game. 1 point goes to you." with title "Correct!" buttons {"Yay!"} default button 1
                        set onescore to (onescore + 1)
                else
                        display dialog "Sorry, " & playerone & ". You are wrong, the character was " & mytext & ". You didn't win any points." with title "Oops!" buttons {"Aw..."} default button 1
                end if
                if onescore is greater than twoscore then
                        display dialog playerone & " is winning." with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore buttons {"Continue", "Quit"} default button 1
                        set buttonclick to button returned of the result
                        if buttonclick is "Quit" then
                                return
                        end if
                else if twoscore is greater than onescore then
                        display dialog playertwo & " is winning." with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore buttons {"Continue", "Quit"} default button 1
                        set buttonclick to button returned of the result
                        if buttonclick is "Quit" then
                                return
                        end if
                else
                        display dialog playertwo & " and " & playerone & " are tied." with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore buttons {"Continue", "Quit"} default button 1
                        set buttonclick to button returned of the result
                        if buttonclick is "Quit" then
                                return
                        end if
                end if
                set levelplay to (levelplay + 1)
                if levelplay is greater than (levelnum as number) then
                        exit repeat
                end if
        end repeat
        if onescore is greater than twoscore then
                display dialog playerone & ", you won!!! Would you like to play again?" with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore & " | Game over." buttons {"Let's play again!", "No, thanks, just quit."} default button 1
                set newbutton to button returned of the result
                if newbutton is "No, thanks, just quit." then
                        exit repeat
                end if
        else if twoscore is greater than onescore then
                display dialog playertwo & ", you won!!! Would you like to play again?" with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore & " | Game over." buttons {"Let's play again!", "No, thanks, just quit."} default button 1
                set newbutton to button returned of the result
                if newbutton is "No, thanks, just quit." then
                        exit repeat
                end if
        else
                display dialog playertwo & " and " & playerone & ", you both tied. Ha ha ha! You both are good! Would you like to play again?" with title playerone & " - " & onescore & " | " & playertwo & " - " & twoscore & " | Game over." buttons {"Let's play again!", "No, thanks, just quit."} default button 1
                set newbutton to button returned of the result
                if newbutton is "No, thanks, just quit." then
                        exit repeat
                end if
        end if
end repeat