EMERGENCY! EMERGENCY! EMERGENCY! I am pc! I seek revenge!

DOS specific questions.
angros47
Posts: 1637
Joined: Jun 21, 2005 19:04

EMERGENCY! EMERGENCY! EMERGENCY! I am pc! I seek revenge!

Postby angros47 » May 30, 2014 9:08

Just a port of this:
http://olofsonarcade.com/2012/03/24/pc-speaker-speech-resynthesized/

Code: Select all

#include "dos\dos.bi"

sub th
   for i as integer=1 to 5
      sound(300)
      delay(1)
      sound(2000+(rnd*1000))
      delay(1)
      sound(2000+(rnd*1000))
      delay(1)
      nosound
      delay(13)
   next
end sub

sub d
   delay(20)
   sound(1000)
   delay(1)
   sound(600)
   delay(2)
   sound(400)
   delay(3)
   sound(300)
   delay(4)
   sound(200)
   delay(5)
   sound(100)
   delay(6)
   nosound
end sub

sub dg
   sound(200)
   delay(5)
   sound(100)
   delay(6)
   nosound
   for i as integer=1 to 4
      sound(300)
      delay(1)
      sound(3000+(rnd*1000))
      delay(1)
      sound(3000+(rnd*1000))
      delay(1)
      nosound
      delay(13)
   next
   nosound
end sub

sub v
   for i as integer=1 to 5
      sound(300)
      delay(1)
      for j as integer=1 to 8
         sound(4000+(rnd*3000))
         delay(1)
      next
      nosound
      delay(7)
   next
   nosound
end sub

sub s
   for i as integer=1 to 70
      sound(5000+(rnd*4000))
      delay(1)
   next
   nosound
end sub

sub sh
   for i as integer=1 to 150
      sound(2000+(rnd*1000))
      delay(1)
   next
   nosound
end sub

sub t
   delay(40)
   for i as integer=1 to 10
      sound(3000+(rnd*4000))
      delay(1)
   next
   nosound
end sub

sub ht
   delay(20)
   for i as integer=1 to 10
      sound(2000+(rnd*1000))
      delay(1)
   next
   nosound
end sub

sub k
   delay(30)
   for i as integer=1 to 16
      sound(1000+(rnd*1000))
      delay(1)
   next
   nosound
end sub

sub o
   for i as integer=1 to 8
      sound(740)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub r
   for i as integer=1 to 8
      sound(900)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub eh
   for i as integer=1 to 6
      sound(1500)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub er
   for i as integer=1 to 14
      sound(700)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub ee
   for i as integer=1 to 8
      sound(2000)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub a
   for i as integer=1 to 8
      sound(1100)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub ah
   for i as integer=1 to 8
      sound(900)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub eeee
   for i as integer=1 to 12
      sound(2200)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub ai
   ah
   for i as integer=1 to 8
      sound(800+i*100)
      delay(1)
      nosound
      delay(15)
   next
   eeee
end sub

sub m
   for i as integer=1 to 10
      sound(40000)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub n
   for i as integer=1 to 10
      sound(65)
      delay(1)
      nosound
      delay(15)
   next
   nosound
end sub

sub p
   delay(40)
   sound(200)
   delay(3)
   sound(100)
   delay(4)
   sound(65)
   delay(6)
   nosound
end sub



ee:m:er:dg:eh:n:s:ee:

delay(200):

ee:m:er:dg:eh:n:s:ee:

delay(200):

ee:m:er:dg:eh:n:s:ee:

delay(300):

ai:delay(60):a:m:delay(50):p:eeee:delay(10):s:eeee:

delay(300):

ai:delay(60):s:eeee:k:delay(60):r:ee:v:eh:n:dg:

delay(300):

th:ee:s:delay(50):ee:s:delay(30):er:delay(30):
r:eeee:a:r:delay(60):ee:m:er:dg:eh:n:s:ee:

Return to “DOS”

Who is online

Users browsing this forum: No registered users and 1 guest