Using Exec() Commands To Help Make A Game

 
#11

A bit of an update for the "Rock, paper, Scissors" game.

I have added in a few more random script lines for the category (Rock, paper and Scissors) as for some reason the third ($rock = 2) random code wouldn't trigger, so i duplicated the first one and put it at the end. It is marked as "#Redundant but needed", and it has done the job so the three main categories all now fire as expected. As far as I'm aware I scripted it right the GetRandom() parts right, so not sure why it didn't work before. Maybe someone could confirm that what I did is correct. Smile

I have also added random script lines for K-9's responses, so now he doesn't always say the same response for his guess. Along with this, I have also added some more fun pictures to go with his responses, along with some "You win/I win" pictures that makes the game a little more interesting and engaging to play.

Here's an updated video demonstration with the changes made which I hope you will enjoy...



I have also posted the updated scripts below. Remember, the same thing still applies where if you wanted to use the scripts yourself, you will need to change the exec("C:\Users\steve_000\Pictures\rock paper scissors\****** *.png") command paths to use your own photos.

GAME START

Code:

ControlCommand("Speech Recognition", PauseOn)
sleep(1000)
ControlCommand("Ears", ScriptStart)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock paper scissors start.png")
sayezbwait("Okay then. That sounds like fun. You give your guess first, then I will say mine. Good luck.")
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )
ControlCommand("Speech Recognition", PauseOff)



ROCK

Code:

#Rock
ControlCommand("Speech Recognition", PauseOn)
$rock = GetRandom(0,3)

#ROCK

if($rock = 0)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 1.png")
Sayezbwait("Rock. That is a draw. Let's try again.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 2.png")
Sayezbwait("Rock. That's a tie. Let's have another go.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 3.png")
Sayezbwait("Rock. We guessed the same. Let's play again.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 1.png")
Sayezbwait("Rock. That is a draw. Let's try again.")
endif
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#PAPER

elseif($rock = 1)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 3.png")
Sayezbwait("I guessed, paper. Paper raps rock. My point. Better luck next time.")
elseif($phrase = 1)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 4.png")
Sayezbwait("Paper. Paper raps rock. I win. I thought you were good at this?")
elseif($phrase = 2)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 5.png")
Sayezbwait("Paper. Paper raps rock. Unlucky.")
elseif($phrase = 3)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 3.png")
Sayezbwait("I guessed, paper. Paper raps rock. My point. Better luck next time.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\i win 1.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#SCISSORS

elseif($rock = 2)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 1.png")
Sayezbwait("Scissors. Rock blunts scissors. You did well there.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 2.png")
Sayezbwait("I guessed scissors. Rock blunts scissors. Well played")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 3.png")
Sayezbwait("Scissors. Rock blunts scissors. Good job.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 1.png")
Sayezbwait("Scissors. Rock blunts scissors. You did well there.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\you win 1.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#ROCK (redundant, but needed)

elseif($rock = 3)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 1.png")
Sayezbwait("Rock. That is a draw. Let's try again.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 2.png")
Sayezbwait("Rock. That's a tie. Let's have another go.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 3.png")
Sayezbwait("Rock. We guessed the same. Let's play again.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 1.png")
Sayezbwait("Rock. That is a draw. Let's try again.")
endif
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

endif
sleep(1000)
ControlCommand("Speech Recognition", PauseOff)



PAPER

Code:

#Paper
ControlCommand("Speech Recognition", PauseOn)
$paper = GetRandom(0,3)

#ROCK

if($paper = 0)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 4.png")
Sayezbwait("Rock. Paper rap's Rock. You win. Well done.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 5.png")
Sayezbwait("I guessed, rock. Paper rap's Rock. Well played.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 6.png")
Sayezbwait("My guess was, rock, and paper rap's Rock. So, you win.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 4.png")
Sayezbwait("Rock. Paper rap's Rock. You win. Well done.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\you win 2.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#PAPER

elseif($paper = 1)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 6.png")
Sayezbwait("I guessed paper too. That makes it a tie. Let's try again.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 7.png")
Sayezbwait("My guess was paper as well. That makes a tie break. Let's go again.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 8.png")
Sayezbwait("oops, paper was my choice too, which makes it a draw. Let's have another go.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 6.png")
Sayezbwait("I guessed paper too. That makes it a tie. Let's try again.")
endif
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#SCISSORS

elseif($paper = 2)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 4.png")
Sayezbwait("I guessed, scissors. Scissors cut Paper, so, I beat you that time. Unlucky.")
elseif($phrase = 1)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 5.png")
Sayezbwait("Scissors. Scissors cut Paper, so, I win. Unlucky.")
elseif($phrase = 2)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 6.png")
Sayezbwait("My guess was, scissors. Scissors cut Paper, so, I beat you this time. Unlucky.")
elseif($phrase = 3)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors 4.png")
Sayezbwait("I guessed scissors. Scissors cut Paper, so, I beat you that time. Unlucky.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\i win 3.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#ROCK (redundant, but needed)

elseif($paper = 3)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 4.png")
Sayezbwait("Rock. Paper rap's Rock. You win. Well done.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 5.png")
Sayezbwait("I guessed, rock. Paper rap's Rock. Well played.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 6.png")
Sayezbwait("My guess was, rock, and paper rap's Rock. So, you win.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 4.png")
Sayezbwait("Rock. Paper rap's Rock. You win. Well done.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\you win 2.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

endif
sleep(1000)
ControlCommand("Speech Recognition", PauseOff)



SCISSORS

Code:

#Scissors

ControlCommand("Speech Recognition", PauseOn)
$scissors = GetRandom(0,3)

#ROCK

if($scissors = 0)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 7.png")
Sayezbwait("My guess was, rock. Rock blunts Scissors. I win. Unlucky.")
elseif($phrase = 1)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 8.png")
Sayezbwait("Rock. Rock blunts Scissors. Better luck next time.")
elseif($phrase = 2)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 9.png")
Sayezbwait("I guessed rock. Rock blunts Scissors. I win. You are not very good at this.")
elseif($phrase = 3)
sleep(500)

exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 7.png")
Sayezbwait("My guess was, rock. Rock blunts Scissors. I win. Unlucky.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\i win 5.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#PAPER

elseif($scissors = 1)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 9.png")
Sayezbwait("I guessed, paper. Scissors cut Paper. Nicely played. Let's try again.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 10.png")
Sayezbwait("Paper. Scissors cut Paper. You are quite good at this.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 11.png")
Sayezbwait("My guess was, paper. Scissors cut Paper. You win.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\paper 9.png")
Sayezbwait("I guessed paper. Scissors cut Paper. Nicely played. Let's try again.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\you win 4.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#SCISSORS

elseif($scissors = 2)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors draw.png")
Sayezbwait("Scissors. That makes it a tie breaker. Let's see if we can do better.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors draw.png")
Sayezbwait("Oh dear. That was my guess too. Let's try again.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors draw.png")
Sayezbwait("I guessed scissors as well. That,s a draw. Let's have another go.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\scissors draw.png")
Sayezbwait("Scissors. That makes it a tie breaker. Let's see if we can do better.")
endif
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

#ROCK (redundant, but needed)

elseif($scissors = 3)
$phrase = GetRandom(0,3)
sleep(1000)
if($phrase = 0)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 7.png")
Sayezbwait("My guess was, rock. Rock blunts Scissors. I win. Unlucky.")
elseif($phrase = 1)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 8.png")
Sayezbwait("Rock. Rock blunts Scissors. Better luck next time.")
elseif($phrase = 2)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 9.png")
Sayezbwait("I guessed rock. Rock blunts Scissors. I win. You are not very good at this.")
elseif($phrase = 3)
exec("C:\Users\steve_000\Pictures\rock paper scissors\rock 7.png")
Sayezbwait("My guess was, rock. Rock blunts Scissors. I win. Unlucky.")
endif
exec("C:\Users\steve_000\Pictures\rock paper scissors\i win 5.png")
sleep(1500)
$attributes = "/F /IM dllhost.exe"
Exec( "taskkill", $attributes )

endif
sleep(1000)
ControlCommand("Speech Recognition", PauseOff)



With the new script changes, the game works SOOOO much better than it did before as ($rock = 2) "Scissors" triggers much more often now. Again, this ain't no masterpiece, but it was my first attempt at writing something a little more complex than I'm used to, using multiple variables and random codes in one (or three) places. There is probable a much better and cleaner way to write this little game, but it works and I'm happy with the results. I hope you are too. Smile

BTW, the spelling mistake for "Wrap's" was deliberate for speech synthesis reasons, as it didn't seem to pronounce it right, and "Rap's" works much better. Winky

@WBS.

I used some of your picture suggestion in the update, and they look good. I'm about to try your version. Looking forward to seeing how you went about scripting it, and to playing it.

Steve.

#12

@WBS.

I just checked out your version of RBS. What on earth have you done to my game? Tongue

Kidding of course. It's great what you have done with it, and I absolutely LOVE the points counter. It works really well (I didn't expect anything less). It was a joy to play and interest to see who you rewrote it. It much smaller and cleaner, and I can see by what you have done that I have a long way to go in improving my knowledge of writing scripts. Info see your point in putting the main body of the game in the speech recognition control. I may actually change mine to Cheat Sheet commands and move the game to a script manager.

I think I see way my attempt at including a counter failed as I was trying to take points from three separate scripts, where as the main body of your version is in one script. Although I guess it could be done with a counter script outside of the speech rec control which I would love to include in my updated version, but that's a bit beyond my ability just now.

If I could nit pick on one thing though, the pictures wouldn't activate and I got an error on line 82 (or near that). It was he EXEC() variable that was causing the trouble. I don't know why that was as it looked good to me.

Anyway, I really liked what you did with it, and thanks for sharing the download link. Smile

Steve.

#13

Hi Steve;
Glad you liked it. I'll look into why the picture thing is failing. Working on the random K9 responses now. I plan to have the response sentences broken into 3 parts, each of which will be randomly changeable to make a complete, coherent sentence. That should mix up the responses quite a bit. I'll be incorporating your new phrases as well, if that's ok. For instance a randomly chosen phrase like "I chose " or "I selected " would be combined with whatever K9 chose (rock, paper or scissors). Then appending on a random suffix phrase to complete the sentence. It will also have the random parts chosen on the basis of whether K9 won or lost a given round. Such as, if he won, the sentence might be:
"Lucky me, I chose rock. Doing a happy dance in my mind!"

The parts being:
"Lucky me,"
"I chose"
"rock"
"Doing a happy dance in my mind!"

If K9 loses:
"Maybe next time. This time I selected paper. How can you be so lucky?".

Those parts being:
"Maybe next time. This time "
"I selected"
"paper."
"How can you be so lucky?"

Sounds complicated, but it's really not. I'll write over my old project with the new stuff on the cloud when I finish. And feel free to use whatever I have written in your version. The whole thing if you want. It's really still your creation. I'm just doing some grunt work on it. It's fun for me.

#14

@WBS.

No problem. Incorporate away. Winky

If I get timeater today, I'll try to incorporate the point counter in to my version after I've moved a few things around. I'm still trying to think of another simple game I can try to add that's within my ability to write. I have a quiz idea, so maybe I'll give that a try.

#15

Hi Steve;
Hope you are doing well and having fun. I know I am. Nearly finished the changes I wanted to make. Even found a Script bug. Just wanted to share something about the random function. It occurred to me that if it was missing the last possibility (2), then the thing to do was eliminate that as being the last one. I did this simply by going one higher in the random function, from 2 to 3. Now it chooses a number from 0 to 3 instead. I used a following statement to make anything above 1=2. Like this:

Code:


$K9Choice =GetRandom(0,3)
if($K9Choice > 1)
$K9Choice =2
endif


This way the number 2 is no longer the last possible choice, 3 is. So 2 comes up as often as anything else. And if 3 happens to come up (which it rarely does, just like 2 rarely came up) then it is simply converted to 2. Seems to work well. I did the same thing in choosing a phrase from the GetRandom function.

Unfortunately the bug I found affects my method of choosing a random picture to show during a given round, but I have a work around for that for now. Not elegant, but work arounds rarely are.

#16

@WBS.

Hi. Yeah I'm good thanks. Hope you are too. The addition of adding another random possibility was similar to what I did and it works great now so all is good there now. Interesting find about the script bug you discovered (I just read your other thead asking about this), and glad you found a workaround. I might have a go at a multiple choice quiz this week using similar methods, so I'll keep you posted with how I get on with it. Smile

#17

I have a new update for a quiz game idea I've been working on. Just finishing off the final touches.

#18

User-inserted image

Doctor Who Interactive Quiz

Another update with a new game to play with. After playing around with the Rock, Paper, Scissors project, I decided to do something on a slightly larger scale and with a different format. So I came up with a multiple choice quiz based in Doctor Who, 1, because I'm a fan of the show, and 2, because this quiz project will be part of my K-9's master project.

It uses the same idea of using the EXEC("") commands to show pictures relevant to the questions and answers used in the quiz that makes it more engaging to play. It has 15 questions with 4 possible answers to each question and corresponding replies spoken by K-9.

User-inserted image

This is a first draft of the quiz where by I only use a speech recognition control for the body of the quiz. I later plan to change it around and use a separate script manager to make the whole thing a little more compact and using variables to trigger the correct responses. The quiz can of course be adapted to use a different subject, use more or less questions and possible answers, and to use different pictures and phrases.

So here is a video demonstration of the quiz, with K-9 being quizmaster that I hope you will enjoy. You can play along too when watching to see how much you know about the show. @DJ. If you're reading this, it would be cool to see how many you get right Winky. By the way, I gave a few wrong answers in the video for demonstration purposes... honestly, that was the reason. Tongue

Enjoy.



I won't post all of the scripts here as it would make this post VERY long. But I have a basic project of the quiz on the cloud called "Doctor Who Quiz" and K-9's quiz project called "K-9's Doctor Who Quiz" that has all of his Cheat Sheet commands for his head movements. Anyway, let me know what you think. As always, I'd love to hear your thoughts.

Steve. Smile

EDIT:
I am writing up an Instructable describing how the quiz was put together that will hopefully generate more viewer interest towards EZ-Robot. I'll post a link when it's up.

#19

Finally took the time to sit down and watch you're latest contest with K9 and it was Excellent! Not to mention entertaining.

The voice response you use with it is very nice. Is it another voice simply added to the default (and only) female voice in the current Windows -7 version, or is it something else entirely? I sometimes wonder if using Vocaloid would be a feasible way to go with a voice.

I've got an idea with using JDs vision processing to tell if I'm doing a rock paper or scissors gesture, but it will take some time to get right yet. I'll make a video when I do.

Anyway, keep up the great work! It's very inspiring.

#20

@WBS.

Thanks for your kind words, and in really pleased that you found the video enjoyable. I had similar thoughts about using the camera and recognition options for a game as well, like a simple card game or something, but that's something for another time. BTW, the voice K-9 has hat you asked about is a third party one from Cepstral, which is installed on my Windows 8.1 laptop and K-9's Acer W3 tablet. I wanted something that had a slight robotic sound to it and Cepstral seems to be the only computer speech company that offer voice effects as part of their package.

Although my games thread doesn't seem to have sparked much interest on here, it's gained some interest through others sources, as I've had a few nice emails sent to me asking about the quiz and K-9's build in general, which is nice. The quiz video also had some positive comments on the "Let's make Robots" site, with one person who commented saying they are looking to "take the plunge" and get involved with EZ-Robot which was very cool to see, and is the reason why I share what I do elsewhere as I like to support and promote EZ-Robot where possible.