The Name Game
The Name Game
- Subject: The Name Game
- From: "Arthur J. Knapp" <email@hidden>
- Date: Mon, 23 Jun 2003 17:37:40 -0400
property nameOf : "Bridgette"
property waitBy : 1
on DisplayOK(s, t)
display dialog s giving up after t buttons {"OK"} default button 1
end DisplayOK
"The Name Game" & return & return & "Please enter a name:"
display dialog result default answer nameOf
set nameOf to result's text returned
set char01 to nameOf's character 1
set restOf to nameOf's text 2 thru -1
DisplayOK(nameOf & " " & nameOf & "...", waitBy)
if (char01 is in "B") then
"Bo-"
else
"Bo B"
end if
DisplayOK(result & restOf & "...", waitBy)
if (char01 = "F") then
"Banana Fanna Fo-"
else
"Banana Fanna Fo F"
end if
DisplayOK(result & restOf & "...", waitBy)
if (char01 = "M") then
"Fee Fi Mo-"
else
"Fee Fi Mo M"
end if
DisplayOK(result & restOf & "...", waitBy)
DisplayOK(nameOf & "!", waitBy)
{ Arthur Knapp, of <
http://www.STELLARViSIONs.com>
a r t h u r @ s t e l l a r v i s i o n s . c o m
Philadelphia : Roxborough / Manayunk / East Falls / Andorra
}
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.