Hi,
your structure of the filter to determine the color doesn’t work.
Here’s your script (a bit cleaned up), I hope you like the card color symbols
property cardList : {"King", "Ace", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "--You cheated, it wasn't in all four!"}
property colorList : {«data utxt2665», «data utxt2666», «data utxt2660», «data utxt2663»}
property questionList : {"Is the rank of your card equal to any of these? 3, Jack, 5, Ace, 9, 7?", "Ok, how about these? 10, 3, 6, 2, 7, Jack?", "Almost done, how about these? 5, Queen, 6, 7, 4?", "Last round: Queen, 9, 8, Jack, 10"}
repeat
tell application "Finder" to display dialog "Think of any playing card in a normal deck...
And for the moment, just forget about the suit, and the color of your card. Only think of the number or letter."
set theResult to 0
repeat with i from 1 to 4
set b to button returned of (display dialog item i of questionList buttons {"No", "Yes"})
if b is "Yes" then set theResult to (theResult + (2 ^ (i - 1))) as integer
end repeat
try
set theResult to item (theResult + 1) of cardList
exit repeat
on error
display dialog "--You cheated, it wasn't in all four!" buttons {"Cancel", "Try Again"} default button 2
end try
end repeat
--figure out the color
tell application "Finder" to display dialog "Great, now I want you to remember the color of your card. imagine it bright and vivid in your mind."
if button returned of result is "OK" then
tell application "Finder" to display dialog "Ok, I am getting something, does the word 'cherry' mean anything to you?" buttons ["Nope", "Yes, it does"]
if button returned of result is "Yes, it does" then
set theColor to 1 -- "red"
else
set theColor to 3 -- "black"
display dialog "Oh.. well I meant 'Black Cherry', we'll move on."
end if
end if
display dialog "Your card is a " & item theColor of colorList & " correct?" buttons ["No, its not", "Yes, it is"]
if button returned of result is "Yes, it is" then
display dialog "I thought so, you're thinking of the " & item theColor of colorList & theResult buttons {"Have a great day!"} default button 1
else
display dialog "Oh, well I sometimes have trouble with the " & item (theColor + 1) of colorList & theResult buttons {"Have a great day!"} default button 1
end if