Voice recognition
Posted: Mon Oct 18, 2010 10:03 pm
Commmander Joe has been working on a voice recognition command system. It uses the windows 7 inbuilt VR and the glovePIE interface.
Here's the glovePIE script...
// Targetting computer
t = said("weapons target missile") or said("weapons arm missile")
u = said("weapons untarget missile") or said("weapons dissarm missile")
m = said("weapons launch missile") or said("weapons fire missile")
y = said("weapons next missile")
key.Multiply = said("weapons Cycle forward between targets")
key.minus = said("weapons Cycle backward between targets")
// weapons
Tab = said("weapons fire energy bomb")
A = said("weapons fire laser")
if said("weapons fire a 3 second burst") then begin
press A
wait 3000 ms
release A
end
if said("weapons let them have it") then begin
press A
wait 5000 ms
release A
say("Hey commander, we got them that time, we really blasted them.")
end
// tactical
Escape = said("launch escape pod")
L = said("tacticle request docking permission")
R = said("tacticle cycle cargo to dump")
z = said("tacticle zoom display") or said ("tacticle magnify display")
key.\ = said("tacticle next compass mode") or said ("tacticle change compass mode")
if said("tacticle Show log") or said ("tacticle display the ships log")) then begin
press Console
wait 9000 ms
release Console
end
if said("tacticle show advanced navigational array") then begin
press LeftShift+6
wait 9000 ms
release LeftShift+6
end
if said("tacticle show polictical information") then begin
press I
wait 9000 ms
release I
end
if said("tacticle show economic information") then begin
press I
wait 9000 ms
release I
end
if said("tacticle save position") then begin
press F2
wait 100 ms
release F2
wait 1000 ms
press enter
wait 100 ms
release enter
end
if said("tacticle evasive manouvers") then begin
press up
wait 3000 ms
release up
wait 100 ms
press left
wait 500 ms
release left
wait 100 ms
say("evasive manouvers in progress")
press down
wait 500 ms
release down
press right
wait 500 ms
release right
end
F1 = said("tacticle forward view") or said ("tacticle front view")
F2 = said("tacticle rear view")
F3 = said("tacticle left view")
F4 = said("tacticle right view")
r = said("tacticle scan forwards" or said ("tacticle whats that") or said ("tacticle activate forward scan")
F5 = said("tacticle display our reputation") or said ("tacticle display special cargo")
F6 = said("tacticle display short range scan") or said ("tacticle short range scan")
F6 = said("tacticle display long range scan") or said ("tacticle long range scan")
F7 = said("tacticle display data on system") or said ("tacticle data on system") or said ("tacticle display system records")
// helm
key.Apostrophe = said("helm left a bit")
key.Dot= said("helm right a bit")
key.up= said("Up") or said("previous item")
key.Down= said("Down") or said("next item")
w = said("helm increase speed") or said("helm more speed")
s = said("helm decrease speed") or said("helm slow down")
if said("helm engage fuel injectors 3 second burn") then begin
press i
wait 3000 ms
release i
end
if said("helm engage fuel injectors 10 second burn") then begin
press i
wait 10000 ms
release i
end
if said("helm engage fuel injectors 15 second burn") then begin
press i
wait 15000 ms
release i
wait 10000 ms
say("Wha hey commander, that was fun!")
end
j = said("helm engage jump drive") or said("helm engage the jump drive") or said("helm fire up the jump drive")
g = said("helm prepare for galactic hyperspace")
h = said("helm start hyperdrive countdown") or said("helm make it so") or said("helm get us out of here")
c = said("helm start docking proceedure") or said("helm start the docking proceedure")
Shift+C = said("helm lets have a drink") or said("helm time to visit the black monks") or said("helm dock with target") or said("helm dock with that ship")
key.Shift + D = said("helm dock quickly")
F1 = said("helm take us out of dock") or said("helm launch the ship")
// Engineering
F3 = said("engineering we need to buy new equipment")
F3 = said("engineering lets check out the ships for sale")
F2 = said("engineering show the ships options")
p = said("engineering freeze time and space")
if said("engineering fill her up") then begin
say("Okay commander I will get the fuel loaded.")
press F3
wait 100 ms
release F3
wait 500 ms
press enter
wait 100 ms
release enter
end
if said("engineering load a missile") then begin
press F3
wait 100 ms
release F3
wait 500 ms
press down
wait 100 ms
release down
wait 500 ms
press enter
wait 100 ms
release enter
wait 6000 ms
say("Okay commander, I will equip the ship with a standard missile.")
end
if said("engineering damage report") then begin
press F5
wait 100 ms
release F5
wait 3000 ms
say("Oooh commander this ship is as good as she will ever be")
wait 7000 ms
press F1
wait 100 ms
release F1
end
if said("engineering transfer fuel from external tank") then begin
say("Okay commander I will pump the fuel, I hope you've selected the fuel pod properly this time.")
wait 6000 ms
press t
wait 100 ms
release t
wait 500 ms
press key.M
wait 100 ms
release key.M
end
// Trader
F8 = said("trader display market prices") or said("trader display the market prices") or said("trader display market prices on main screen")
F8 = said("trader display contracts") or said("trader display contracts available")
enter = said("trader buy that")
enter = said("trader sell that")
if microphone.partialphrase<>'' then debug = microphone.PartialPhrase
if said("what can I say") then
say("Please ask: What can I say to my helmsman?. What can I say to my trader?. What can I say to my weapons officer?");
end if
if said("What can I say to my weapons officer?") then
say("You can say "
... + "weapons target missile "
... + "weapons untarget missile "
... + "weapons launch missile "
... + "weapons next missile "
... + "weapons fire energy bomb "
... + "weapons fire laser "
... + "weapons fire a 3 second burst ")
end if
if said("What can I say to my tacticle officer?") then
say("You can say: "
... + "launch escape pod "
... + "tacticle request docking permission "
... + "tacticle show advanced navigational array "
... + "tacticle show polictical information "
... + "tacticle show economic information "
... + "tacticle save position "
... + "tacticle evasive manouvers "
... + "tacticle forward view "
... + "tacticle rear view "
... + "tacticle left view "
... + "tacticle right view "
... + "tacticle display short range scan "
... + "tacticle display short range scan "
... + "tacticle display data on system")
end if
if said("What can I say to my trader?") then
say("You can say: "
... + "trader display market prices "
... + "trader buy that "
... + "trader food, textiles, alloys, computers ")
end if
if said("What can I say to my engineer?") then
say("You can say: "
... + "engineering we need to buy new equipment "
... + "engineering lets check out the ships for sale "
... + "engineering show the ships options "
... + "engineering fill her up "
... + "engineering load a missile "
... + "engineering transfer fuel from external tank")
end if
if said("What can I say to my helmsman?") then
say("You can say: "
... + "helm increase speed "
... + "helm decrease speed "
... + "helm engage fuel injectors "
... + "helm engage jump drive "
... + "helm prepare for galactic hyperspace "
... + "helm start hyperdrive countdown "
... + "helm dock quickly "
... + "helm start docking proceedure "
... + "helm take us out of dock ")
end if
Here's the glovePIE script...
// Targetting computer
t = said("weapons target missile") or said("weapons arm missile")
u = said("weapons untarget missile") or said("weapons dissarm missile")
m = said("weapons launch missile") or said("weapons fire missile")
y = said("weapons next missile")
key.Multiply = said("weapons Cycle forward between targets")
key.minus = said("weapons Cycle backward between targets")
// weapons
Tab = said("weapons fire energy bomb")
A = said("weapons fire laser")
if said("weapons fire a 3 second burst") then begin
press A
wait 3000 ms
release A
end
if said("weapons let them have it") then begin
press A
wait 5000 ms
release A
say("Hey commander, we got them that time, we really blasted them.")
end
// tactical
Escape = said("launch escape pod")
L = said("tacticle request docking permission")
R = said("tacticle cycle cargo to dump")
z = said("tacticle zoom display") or said ("tacticle magnify display")
key.\ = said("tacticle next compass mode") or said ("tacticle change compass mode")
if said("tacticle Show log") or said ("tacticle display the ships log")) then begin
press Console
wait 9000 ms
release Console
end
if said("tacticle show advanced navigational array") then begin
press LeftShift+6
wait 9000 ms
release LeftShift+6
end
if said("tacticle show polictical information") then begin
press I
wait 9000 ms
release I
end
if said("tacticle show economic information") then begin
press I
wait 9000 ms
release I
end
if said("tacticle save position") then begin
press F2
wait 100 ms
release F2
wait 1000 ms
press enter
wait 100 ms
release enter
end
if said("tacticle evasive manouvers") then begin
press up
wait 3000 ms
release up
wait 100 ms
press left
wait 500 ms
release left
wait 100 ms
say("evasive manouvers in progress")
press down
wait 500 ms
release down
press right
wait 500 ms
release right
end
F1 = said("tacticle forward view") or said ("tacticle front view")
F2 = said("tacticle rear view")
F3 = said("tacticle left view")
F4 = said("tacticle right view")
r = said("tacticle scan forwards" or said ("tacticle whats that") or said ("tacticle activate forward scan")
F5 = said("tacticle display our reputation") or said ("tacticle display special cargo")
F6 = said("tacticle display short range scan") or said ("tacticle short range scan")
F6 = said("tacticle display long range scan") or said ("tacticle long range scan")
F7 = said("tacticle display data on system") or said ("tacticle data on system") or said ("tacticle display system records")
// helm
key.Apostrophe = said("helm left a bit")
key.Dot= said("helm right a bit")
key.up= said("Up") or said("previous item")
key.Down= said("Down") or said("next item")
w = said("helm increase speed") or said("helm more speed")
s = said("helm decrease speed") or said("helm slow down")
if said("helm engage fuel injectors 3 second burn") then begin
press i
wait 3000 ms
release i
end
if said("helm engage fuel injectors 10 second burn") then begin
press i
wait 10000 ms
release i
end
if said("helm engage fuel injectors 15 second burn") then begin
press i
wait 15000 ms
release i
wait 10000 ms
say("Wha hey commander, that was fun!")
end
j = said("helm engage jump drive") or said("helm engage the jump drive") or said("helm fire up the jump drive")
g = said("helm prepare for galactic hyperspace")
h = said("helm start hyperdrive countdown") or said("helm make it so") or said("helm get us out of here")
c = said("helm start docking proceedure") or said("helm start the docking proceedure")
Shift+C = said("helm lets have a drink") or said("helm time to visit the black monks") or said("helm dock with target") or said("helm dock with that ship")
key.Shift + D = said("helm dock quickly")
F1 = said("helm take us out of dock") or said("helm launch the ship")
// Engineering
F3 = said("engineering we need to buy new equipment")
F3 = said("engineering lets check out the ships for sale")
F2 = said("engineering show the ships options")
p = said("engineering freeze time and space")
if said("engineering fill her up") then begin
say("Okay commander I will get the fuel loaded.")
press F3
wait 100 ms
release F3
wait 500 ms
press enter
wait 100 ms
release enter
end
if said("engineering load a missile") then begin
press F3
wait 100 ms
release F3
wait 500 ms
press down
wait 100 ms
release down
wait 500 ms
press enter
wait 100 ms
release enter
wait 6000 ms
say("Okay commander, I will equip the ship with a standard missile.")
end
if said("engineering damage report") then begin
press F5
wait 100 ms
release F5
wait 3000 ms
say("Oooh commander this ship is as good as she will ever be")
wait 7000 ms
press F1
wait 100 ms
release F1
end
if said("engineering transfer fuel from external tank") then begin
say("Okay commander I will pump the fuel, I hope you've selected the fuel pod properly this time.")
wait 6000 ms
press t
wait 100 ms
release t
wait 500 ms
press key.M
wait 100 ms
release key.M
end
// Trader
F8 = said("trader display market prices") or said("trader display the market prices") or said("trader display market prices on main screen")
F8 = said("trader display contracts") or said("trader display contracts available")
enter = said("trader buy that")
enter = said("trader sell that")
if microphone.partialphrase<>'' then debug = microphone.PartialPhrase
if said("what can I say") then
say("Please ask: What can I say to my helmsman?. What can I say to my trader?. What can I say to my weapons officer?");
end if
if said("What can I say to my weapons officer?") then
say("You can say "
... + "weapons target missile "
... + "weapons untarget missile "
... + "weapons launch missile "
... + "weapons next missile "
... + "weapons fire energy bomb "
... + "weapons fire laser "
... + "weapons fire a 3 second burst ")
end if
if said("What can I say to my tacticle officer?") then
say("You can say: "
... + "launch escape pod "
... + "tacticle request docking permission "
... + "tacticle show advanced navigational array "
... + "tacticle show polictical information "
... + "tacticle show economic information "
... + "tacticle save position "
... + "tacticle evasive manouvers "
... + "tacticle forward view "
... + "tacticle rear view "
... + "tacticle left view "
... + "tacticle right view "
... + "tacticle display short range scan "
... + "tacticle display short range scan "
... + "tacticle display data on system")
end if
if said("What can I say to my trader?") then
say("You can say: "
... + "trader display market prices "
... + "trader buy that "
... + "trader food, textiles, alloys, computers ")
end if
if said("What can I say to my engineer?") then
say("You can say: "
... + "engineering we need to buy new equipment "
... + "engineering lets check out the ships for sale "
... + "engineering show the ships options "
... + "engineering fill her up "
... + "engineering load a missile "
... + "engineering transfer fuel from external tank")
end if
if said("What can I say to my helmsman?") then
say("You can say: "
... + "helm increase speed "
... + "helm decrease speed "
... + "helm engage fuel injectors "
... + "helm engage jump drive "
... + "helm prepare for galactic hyperspace "
... + "helm start hyperdrive countdown "
... + "helm dock quickly "
... + "helm start docking proceedure "
... + "helm take us out of dock ")
end if