Acme-Playwright

 view release on metacpan or  search on metacpan

Playwright.pm  view on Meta::CPAN

@nT =     ( 'Red',      'Bonzo',    'Sparky',    'Tex',    'Surachai',  'Samaransak', 'Nai',      'Jackie',  'Bruce',      'Lennox' );

%Phrases = (
    'That was funny!'                                        => 'A', 'How long have you been here?'                           => 'B',
    'How long have you been waiting?'                        => 'C', 'When did you say you had your appointment?'             => 'D',
    'That is a lovely shade of blue.'                        => 'E', 'That weighs a bit more than I expected.'                => 'F',
    'Where did you say you want me to put that?'             => 'G', "I won't put that there."                                => 'H',
    "Are you sure I'm supposed to put that there?"           => 'I', 'I need to sharpen my sword.'                            => 'J',
    'I like to paint.'                                       => 'K', 'Wow, you have a lot of books.'                          => 'L',
    'I finally got my network setup.'                        => 'M', 'I need more RAM.'                                       => 'N',
    'Where did I put my pen?'                                => 'O', 'That looks like a nasty cut.'                           => 'P',
    'Have you got some aspirin?'                             => 'Q', 'Got any gum?'                                           => 'R',
    'My subscription to Sys Admin is about to expire.'       => 'S', "She's pretty"                                           => 'T',
    'I wish it would stop raining.'                          => 'U', 'It is waaaaay too hot in here.'                         => 'V',
    'Could you turn that fan off?'                           => 'W', 'Do you know much about TCP/IP?'                         => 'X',
    'I finally got my certificate.'                          => 'Y', 'That picture frame is a little crooked.'                => 'Z',
    'Did you hear that noise?'                               => 'a', 'Hey, the Inspector General is coming.'                  => 'b',
    'Lucky for me.'                                          => 'c', "You don't say?"                                         => 'd',
    'Could that possibly smell any worse?'                   => 'e', 'Probably not.'                                          => 'f',
    'How long should I cook this?'                           => 'g', "You'll want to cook that very slowly."                  => 'h',
    'Me want beer.'                                          => 'i', 'I could really use a nap.'                              => 'j',

Playwright.pm  view on Meta::CPAN

    'No, it is too soon for that.'                           => ';', 'She thinks I dance funny.'                              => ':',
    'Nice socks. Did you get dressed in the dark?'           => "'", 'Why must you say things like that?'                     => '"',
    'Because I think it is funny.'                           => ',', 'Hey, you asked.'                                        => '<',
    "That's the last time I ask for your opinion."           => '.', 'I never did care for that.'                             => '>',
    "That's what you think."                                 => '/', 'Wonderful, my nose is bleeding again.'                  => '?',
    'Why would I do that?'                                   => ' ', 'I need more paint.'                                     => ' ',
    'The water is warm.'                                     => ' ', 'Have you ever seen so many worms?'                      => ' ',
    'Three, maybe four times. And you?'                      => ' ', 'My shoe is untied again.'                               => ' ',
    'I finally got around to doing that.'                    => ' ', 'Could you please pass the coleslaw?'                    => ' ',
    'Have you ever seen one of these?'                       => ' ', "I've never seen one so close up before."                => ' ',
    'It looks sort of squashed.'                             => ' ', 'Whatever you say.'                                      => ' ',
    'Not if you paid me.'                                    => 'a', "Please don't poke me with that."                        => 'a',
    'Have you looked under the table?'                       => 'a', 'It has water in it.'                                    => 'a',
    'Hey, nice foot.'                                        => 'a', "I'm not sure I should put that there."                  => 'a',
    'I beg your pardon?'                                     => 'a', 'Not at the moment.'                                     => 'a',
    "I don't think so."                                      => 'a', 'Who?'                                                   => 'a',
    'I never did learn how to do that very well.'            => 'e', 'It is much heavier than it looks.'                      => 'e',
    'No, you have too many already.'                         => 'e', 'Done!',                                                 => 'e',
    'I win, you lose.'                                       => 'e', 'Get bent.'                                              => 'e',
    'When would be a good time for you?'                     => 'e', 'Pfah!'                                                  => 'e',
    'In your shoe, I think.'                                 => 'e', 'I did that yesterday.'                                  => 'e',
    'Ok, but it will cost you.'                              => 'n', 'I like it when you touch me there.'                     => 'n',
    'Have I ever told you that you look like Ted Koppel?'    => 'n', "Shhhh. I'm trying to listen to this."                   => 'n',
    'Will you never stop crying?'                            => 'n', 'Because I said so.'                                     => 'n',
    'As soon as the train stops.'                            => 'n', 'That is a very large apple.'                            => 'n',
    "I'm not sure what that is."                             => 'n', 'No thanks.'                                             => 'n',
    'Could you repeat that?'                                 => 'o', 'I have never been so bored.'                            => 'o',
    'So what are your thoughts on Tolstoy?'                  => 'o', "I'm still trying to find the plot."                     => 'o',
    "He's rather fond of himself, isn't he?"                 => 'o', "Well it looks like...I don't know what it looks like."  => 'o',
    'Your point being?'                                      => 'o', 'And...?'                                                => 'o',
    'I have a picture of that on my mousepad.'               => 'o', 'That stain will never come out.'                        => 'o',
    'I tried that once, but it felt really weird.'           => 'r', 'That door sure is hard to open.'                        => 'r',
    'That really hurt.'                                      => 'r', 'I have to delete that.'                                 => 'r',
    'It is just too big.'                                    => 'r', 'Only when I cross my eyes.'                             => 'r',
    'Do you really think so?'                                => 'r', 'I took an educated guess.'                              => 'r',
    'Your theory is fundamentally flawed.'                   => 'r', "You probably shouldn't put your finger there."          => 'r',
    'I think you broke it.'                                  => 's', 'It just needs new batteries.'                           => 's',
    'How long have you known?'                               => 's', "You think I'm dumb, don't you?"                         => 's',
    "I've never been so insulted."                           => 's', 'Sure is windy out there.'                               => 's',

Playwright.pm  view on Meta::CPAN

    'Kiss me.'                                               => 't', 'Do you need a tissue?'                                  => 't',
    'Good question.'                                         => 't', 'What an ugly cat!'                                      => 't',
    'Want to hear a joke?'                                   => 't', 'Not if you are the one doing it.'                       => 't',
    'It sure is a long way down.'                            => 't', 'How long did it take to make that?'                     => 't'
);

@pSpace = (
    'Why would I do that?',                    'I need more paint.',                  'The water is warm.',
    'Have you ever seen so many worms?',       'Three, maybe four times. And you?',   'My shoe is untied again.',
    'I finally got around to doing that.',     'Could you please pass the coleslaw?', 'Have you ever seen one of these?',
    "I've never seen one so close up before.", 'It looks sort of squashed.',          'Whatever you say.'
);

@pA = (
    'Not if you paid me.',              "Please don't poke me with that.",
    'Have you looked under the table?', 'It has water in it.',
    'Hey, nice foot.',                  "I'm not sure I should put that there.",
    'I beg your pardon?',               'Not at the moment.',
    "I don't think so.",                'Who?'
);

@pE = (
    "I never did learn how to do that very well.", "It is much heavier than it looks.",
    "No, you have too many already.",              "Done!",
    "I win, you lose.",                            "Get bent.",
    "When would be a good time for you?",          "Pfah!",
    "In your shoe, I think.",                      "I did that yesterday."
);

@pN = (
    'Ok, but it will cost you.',                           'I like it when you touch me there.',
    'Have I ever told you that you look like Ted Koppel?', "Shhhh. I'm trying to listen to this.",
    'Will you never stop crying?',                         'Because I said so.',
    'As soon as the train stops.',                         'That is a very large apple.',
    "I'm not sure what that is.",                          'No thanks.'
);

@pO = (
    'Could you repeat that?',                   'I have never been so bored.',
    'So what are your thoughts on Tolstoy?',    "I'm still trying to find the plot.",
    "He's rather fond of himself, isn't he?",   "Well it looks like...I don't know what it looks like.",
    "Your point being?",                        'And...?',
    'I have a picture of that on my mousepad.', 'That stain will never come out.'
);

@pR = (
    'I tried it once, but it felt really weird.', 'That door sure is hard to open.',
    'That really hurt.',                          'I have to delete that.',
    'It is just too big.',                        'Only when I cross my eyes.',
    'Do you really think so?',                    'I took an educated guess.',
    'Your theory is fundamentally flawed.',       "You probably shouldn't put your finger there."

Playwright.pm  view on Meta::CPAN

    $rPhrases{ $val } = $name;
}

@Names = keys %Names;

@Actions = (
    'writes a poem',                            'enters from stage left',
    "peers over Michael's shoulder",            'laughs',
    'screams in pain',                          'opens a book',
    'sits at the table',                        'crosses stage right',
    'looks under the chair',                    'straightens the table cloth',
    'opens the window',                         'looks around in confusion',
    'starts singing quietly',                   'closes the window',
    'cries',                                    'enters from stage right',
    'crosses stage left',                       'picks up the book',
    'breaks the mirror',                        'kicks the table',
    'gazes longingly at Pietro',                'dances a merry jig',
    'thinks happy thoughts',                    'falls to the floor',
    'tries to think of something funny to say', 'yearns for the good old days',
    'turns on the radio',                       'turns off the radio',
    'turns on the television',                  'turns off the television',
    'selects a book from the bookshelf',        'concentrates',
    'burps',                                    'clucks like a chicken',
    'motions toward the door',                  'plops down on the sofa',
    'looks around suspiciously',                'beings folding laundry',
    'takes a pan of brownies from the oven',    'thinks of the color blue',
    "pours vinegar in Karen's shoes",           'eats a pickle',
    'disrobes',                                 'dances about like a loon',
    'flits about like a fawn in springtime',    'does an impression of Charlie Chaplin',
    'takes a ham from the oven',                'begins plucking a chicken',
    'tries to hide under the rug',              'removes the cushions from the sofa',
    'opens the pantry',                         'climbs in the pantry',
    'crawls under the sink',                    'closes the pantry',
    'fixes a turkey sandwich',                  'starts making pancakes'
);



( run in 0.394 second using v1.01-cache-2.11-cpan-64827b87656 )