44 lines
1.1 KiB
AppleScript
44 lines
1.1 KiB
AppleScript
repeat
|
|
set pstart to some item of {true, false}
|
|
if pstart then
|
|
display alert "You go first!"
|
|
set score to 0
|
|
else
|
|
display alert "The computer goes first!"
|
|
log "The computer chose 1"
|
|
log "The score is now 1"
|
|
set score to 1
|
|
end if
|
|
repeat
|
|
repeat
|
|
set input to display alert "Choose a number:" buttons {1, 2, 3}
|
|
set pmove to button returned of input
|
|
set score to score + pmove
|
|
if score > 21 then
|
|
display alert "You can't go above 21! Try again."
|
|
set score to score - pmove
|
|
else
|
|
exit repeat
|
|
end if
|
|
end repeat
|
|
log "You chose " & pmove
|
|
log "The score is now " & score
|
|
if score = 21 then
|
|
log "You win!"
|
|
exit repeat
|
|
else if score mod 4 is not 1 then
|
|
set cmove to (5 - (score mod 4)) mod 4
|
|
else
|
|
set cmove to random number from 1 to 3
|
|
end if
|
|
set score to score + cmove
|
|
log "The computer chose " & cmove
|
|
log "The score is now " & score
|
|
if score = 21 then
|
|
log "Too bad! The computer wins."
|
|
exit repeat
|
|
end if
|
|
end repeat
|
|
set again to display alert "Play again?" buttons {"Yes", "No"}
|
|
if button returned of again = "No" then exit repeat
|
|
end repeat
|