Interesting talk at the bar

[Henko]

Code: Select all

randomize
dim m$(5)
p$="aeiou"
m$(0)="I beg your pardon?"
m$(1)="may i offer you another drink?"
m$(2)="please, explain yourself somewhat"
m$(3)="I fear that i do not quite understand what you're saying"
m$(4)="yes yes, another time may be"

say voice "en-GB"
say text "hello beauty, nice place here"
go_on: if saying() then go_on
loop:
time reset
do
w$="" ! say voice "pt-PT"
for n=3 to 4+rnd(4) ! w$&=mid$(p$,rnd(5),1) ! next n
if rnd(1)>.75 then say pitch .2+rnd(.4)
if rnd(1)>.7 then say rate .2+rnd(.3)
say text w$
go_on1: if saying() then go_on1
until time()>3+rnd(5)
say voice "en-GB" ! say pitch 1 ! say rate 1
say text m$(rnd(5))
go_on2: if saying() then go_on2
goto loop
end

[rbytes]

Thanks for the fun. The longer this plays, the more I can't stop laughing! I have to admire the fellow - he never gives up!