LiveCode Forums.

Code: Select all

on openStack
   global theStart
   local thetime
   
   
   put the seconds into theStart
   put the time into thetime
   
   
   answer "Greetings!" & return & thetime titled "Hello World!"
   timeup
end openStack

command timeup
   global theStart
   local theEnd
   
   put the seconds into theEnd
   
   answer "It took you " & (theEnd - theStart) & " seconds to tap that button!" titled "I was Counting"

namefun
end timeup

command namefun
   local userName, theLen, theVowels, tLoop
   
   
   ask "What's your name?"
   put it into userName
   put the length of userName into theLen
   --
   put 0 into theVowels
   repeat with tLoop =1 to theLen
      if character tLoop of userName is among the characters of  "aeiou" then
         add 1 to theVowels
      end if
      
   end repeat
   
   answer  "You have " & thelen & " letters in your name; " & theVowels  & " of them are vowels" 
end namefun