Ok, here's the full code, function call and function all in one. (Try not to read the function until after you've run it a few times though, or you'll spoil the surprise...)
Captain_Jack_Sparrow
suspend for key
end
Function Captain_Jack_Sparrow
Var = Rnd(4)
Select var
Case 0
Print "Drink up, me hearties, yo ho!"
EndCase
Case 1
Print "If you were waiting for the opportune moment... that was it!"
EndCase
Case 2
Print "It is my intention here in Port Royal to comandeer one of these ships, pick up a crew in"
Print "Tortuga and then raid, pillage, plunder and otherwise pilfer my weasly black guts out!"
EndCase
Case 3
Print "Me? I'm dishonest. And a dishonest man you can always trust to be dishonest - honestly!"
EndCase
Case 4
Print "A wedding! I love weddings! Drinks all around!"
EndCase
EndSelect
endfunction
Function Jack_Sparrow
Print "It's Captain, Captain Jack Sparrow!"
endfunction
Enjoy!
On our way 'ome, on our way 'ome...
