Post by Admin on Apr 1, 2018 19:56:10 GMT
copy and paste this code in your BBC Basic For windows editor and run (close your eyes)
INSTALL @lib$+"COMLIBA"
ON ERROR PROC_comexit : PRINT 'REPORT$ : END
ON CLOSE PROC_comexit : QUIT
PROC_cominit
Pitch% = 0
Speed% = -2
Voice$ = ""
REPEAT
READ phrase$
PROCspeak(phrase$,Pitch%,Speed%,Voice$)
WAIT 100
UNTIL phrase$ = ""
PROC_comexit
END
DATA close your eyes
DATA IMAGINE YOU ARE IN A NICE HOT SHOWER
DATA NOW INCREASE THE NOISE OF THE WATER AND IMAGINE THE HUMID WARM AIR
DATA breeth THE HUMID AIR and FEEL the WARM WATER AS it GENTLY MASSAGES
DATA AS YOU RELAX YOU OPEN YOUR EYES AND SEE THAT YOU ARE NOW IN A NATURAL EARTHEN HEATED SWAMP.
DATA STRANGE EYES PEER DOWN AT YOU AND DEEP HEAVING WOOD BENDING SOUNDS ECHO IN THE DARKENING DEPTHS
DATA CROW LIKE SOUNDS ABRUPTLY CHANT AT YOU AS YOU NOW REALIZE YOU ARE BURDENED WITH A SUIT OF HEAVY ARMOR
DATA AS YOU EXTEND YOUR HAND TO GRAB A PROTRUSION YOU DISLODGE A SWORD AND RAISE THE RUSTY METAL IN FRONT OF YOU
DATA THE RUST SLIDES OFF THE SWORD AS THOUGH it WAS WATER AND it BEGINS TO SHINE.
DATA SEEING NO USE FOR it, YOU THROW it AND it SLAMS INTO A TWISTED TREE
DATA THE SWORD DISLODGES AND FLOATS TOWARDS YOU AND THE BURDEN OF YOUR ARMOR WILLS YOU TO PICK it up
DATA You advance slowly, and soon the muddy shore greets you and you crawl to a dry clearing
DATA Part two
DATA many dry branches are strewn all around the area
DATA You immediately gather them and vigorously use your camping skills to start a fire.
DATA As you sit on a rock, a bunch of rat like creatures gather around the fire
DATA The rats suddenly begin to sing in weak voices and dance wildly swinging their limbs around.
DATA They squeal loudly and scurry away like rabbits into the darkness.
DATA Feeling disturbed, you rise to your feet and draw your sword.
DATA You scream like a warlord into the skies and your voice echos like thunder in the distance.
DATA You then stomp out the fire and run frantically into the woods
DATA You begin to slash down the trees and your mighty sword doesnt even pause as it effortlessly cuts through the dense wood.
DATA Grunts begin to echo, getting louder and louder
DATA you now know you have awoken something and the ground begins to shake
DATA before you can focus your gaze on it, you are wrapped in thorny vines that drop you on your back and drag you into the vegetation
DATA the rat like creatures jump on you and frantically scratch your face as they giggle in a frenzy
DATA Your body is viciously pounded on the ground and lashed through the trees
DATA It becomes a blur and you lose conscientiousness
DATA when you awaken, you find yourself in a dark slimy chasm
DATA you quickly realize you are not alone
DATA a damsel in dirty rags is trapped in a jagged enclosure and she is frantically trying to say something
DATA but you can not hear anything. In fact, you can not even utter a word even as you try to scream
DATA you extend your hand into the enclosure and she grabs it in desperation
DATA you can see the expression as tears roll down her face as she panicks as she looks into the darkness behind her.
DATA the shadow nears her and surrounds and pulls her hand away from you into the blackness
DATA everything becomes pitch black as you desperately search for a path to exit the new hell you are in.
DATA
DEF PROCspeak(phrase$,pitch%,speed%,voice$)
tts% = FN_createobject("Sapi.SpVoice")
IF tts% THEN
LOCAL qual$
qual$ = "<PITCH ABSMIDDLE="""""+STR$pitch%+"""""/><RATE ABSSPEED="""""+STR$speed%+"""""/>"
IF voice$<>"" qual$ += "<VOICE REQUIRED=""""NAME="+voice$+"""""/>"
PROC_callmethod(tts%, "Speak("""+qual$+phrase$+""")")
PROC_releaseobject(tts%)
ENDPROC
ENDIF
tts% = FN_createobject("Speech.VoiceText")
IF tts% THEN
PROC_callmethod(tts%, "Register("""",""COMLIB demo"")")
PROC_putvalue(tts%, "Enabled(BTRUE)")
PROC_putvalue(tts%, "Speed("+STR$INT(150*3^(speed%/10))+")")
PROC_callmethod(tts%, "Speak("""+phrase$+""", 1)")
REPEAT
SYS "Sleep", 150
UNTIL FN_getvalueint(tts%, "IsSpeaking") = 0
PROC_releaseobject(tts%)
ENDPROC
ENDIF
ENDPROC