SP0256-AL2 speech synthesis chip
-phrases.bas

phrases.bas

Option Explicit

' ---------------------------------------------------------------------------------------
' This module hardcodes some spoken phrases

public sub sayIPick()

	' I...
	add(Ay)
	say
	delay 0.5
	add(p10ms)
	say
	delay 0.25	
	
	'Pick...
	Add(PP)
	Add(IH)
	say
	delay 0.5
	Add(KK2)
	add(p10ms)
	say

end sub

public sub sayTheRobotHasSpoken()
	' The
	Add(TH)
	Add(UH)
	say
	delay 0.5

	' Ro...
	add(RR1)
	add(OW)
	say
	delay 0.5

	' bot...
	add(P30ms)
	add(BB2)
	add(AA)
	say
	delay 0.5
	add(TT1)
	add(p10ms)
	say
	delay 0.5

	' Has
	Add(HH1)
	Add(AE)
	Add(AE)
	Add(AE)
	Add(ZZ)
	add(p10ms)
	say
	delay 0.5

	' Spo...
	Add(SS)
	Add(PP)
	Add(OW)
	say
	delay 0.5

	add(p30ms)
	add(KK1)	
	add(EH)
	add(EH)
	add(EH)
	add(NN1)	
	add(p10ms)
	say

end sub

public sub SayFitterHappier()
	'"Fitter"
	Add(FF)
	Add(FF)
	Add(IH)
	Add(TT2)
	Add(ER2)
	Add(P200ms)
	Add(P200ms)
	Add(P200ms)
	Say
	
	'"Happier"
	Add(HH1)
	Add(AE)
	Add(PP)
	Add(YR)
	Add(P200ms)
	Add(P200ms)
	Add(P200ms)	
	Say

	'"More Productive"
	Add(MM)
	Add(OR1)	
	Add(PP)
	Add(ER1)
	Add(OW)
	Add(DD2)
	Add(UH)
	Add(UH)
	Add(KK3)
	Add(TT2)
	Add(IH)
	Add(VV)
	Add(VV)
	Add(VV)
	Add(P200ms)
	Say

end sub

public sub SayGoodMorningClass()
	'"Good"
	Add(GG1)
	Add(UH)
	Add(DD1)
	Add(P100ms)
	
	'"Morning"
	Add(MM)
	Add(OR1)
	Add(NG)
	Say

	'"Class"
	Add(KK1)
	Add(LL)
	Add(AE)
	Add(AE)
	Add(AE)
	Add(AE)
	Add(AE)
	Add(SS)
	Add(SS)
	Add(P200ms)
	Say
end sub

public sub sayAllStudents()
	dim betweenNamePause as single
	betweenNamePause = 0.25

	SayDesireena(0.25)
		delay betweenNamePause
	SayKaren(0.0)	
		delay betweenNamePause
	SayChristine(0.0)
		delay betweenNamePause
	SayLia(0.0)
		delay betweenNamePause
	SayCarrie(0.25)
		delay betweenNamePause
	SayFaYi(0.25)
		delay betweenNamePause
	SayKatherine(0.25)
		delay betweenNamePause
	SayRachel(0.125)
		delay betweenNamePause
	SayChieh(0.5)
		delay betweenNamePause
	SayJessica(0.5)
		delay betweenNamePause
	SayMiro(0.25)
		delay betweenNamePause
	SayAi(0.75)
		delay betweenNamePause
	SayHyunJean(0.25)
		delay betweenNamePause
	SayJon(0.5)
		delay betweenNamePause
	SayMac(0.125)
		delay betweenNamePause
	SayYoonhee(0.25)
		delay betweenNamePause
	SayPatrick(0.5)
		delay betweenNamePause
	SayGabriela(0.5)
		delay betweenNamePause
	SayJose(0.5)
		delay betweenNamePause
	SayDiana(0.25)
		delay betweenNamePause
	SayJungEun(0.25)
		delay betweenNamePause
end sub

public sub SayDesireena(byVal pause as single)
	add(DD2)
	add(EH)
	add(EH)
	add(EH)
	say
	delay(pause)

	add(ZZ)
	add(ER1)
	say
	delay(pause)

	add(IY)
	say
	delay(pause)

	add(NN2)
	add(AE)
	add(AE)
	say
	delay pause

	add(P10ms)
	say
end sub

public sub sayKaren(byVal pause as single)
	Add(KK1)
	Add(EH)
	Add(XR)
	Say
	Delay(pause)

	Add(EH)
	Add(NN1)
	Say
	delay(pause)

	Add(p10ms)
	Say
end sub

public sub sayChristine(byVal pause as single)
	Add(KK3)
	Add(RR2)
	Add(IH)
	Say
	delay pause

	Add(SS)
	Add(TT2)
	Add(IY)
	Add(NN1)
	Add(p10ms)
	say

end sub

public sub sayLia(byVal pause as single)
	Add(LL)
	Add(IY)
	say
	delay pause

	Add(AE)
	Add(AE)
	Add(AE)
	say
	delay pause

	Add(p10ms)
	say

end sub

public sub sayFaYi(byVal pause as single)
	Add(FF)
	Add(FF)
	Add(AO)
	say
	delay pause

	Add(YY2)
	Add(IY)
	say
	delay pause
	
	add(p10ms)
	say
end sub

public sub sayKatherine(byVal pause as single)
	Add(KK1)
	Add(AE)
	Say
	delay pause

	Add(TH)
	Add(ER1)
	Say
	delay pause

	Add(IH)
	Add(NN1)
	say
	delay pause

	Add(p10ms)
	say
	
end sub

public sub sayRachel(byVal pause as single)
	Add(RR1)
	Add(EY)
	say
	delay pause

	add(CH)
	add(UH)
	add(LL)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayChieh(byVal pause as single)
	add(CH)
	add(IY)
	say
	delay pause

	add(EY)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayJessica(byVal pause as single)
	add(JH)
	add(EH)
	say
	delay pause

	add(SS)
	add(IH)
	say
	delay pause

	add(KK3)
	add(AO)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayMiro(byVal pause as single)
	add(MM)
	add(YR)
	say
	delay pause

	add(OW)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayAi(byVal pause as single)
	add(AY)
	say
	delay(pause)

	add(p10ms)
	say
end sub

public sub sayHyunJean(byVal pause as single)
	add(HH1)
	add(YY1)
	add(UW1)
	add(NN1)
	say
	delay pause

	add(JH)
	add(IY)
	add(NN1)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayJon(byVal pause as single)
	add(JH)
	add(AO)
	say
	delay pause

	add(NN1)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayMac(byVal pause as single)
	add(MM)
	say
	delay pause

	add(AE)
	say
	delay pause

	add(KK2)

	add(p10ms)
	say
end sub


public sub sayYoonHee(byVal pause as single)
	add(YY2)
	add(UW1)
	say
	delay pause

	add(NN1)
	add(IY)
	say
	delay pause

	add(p10ms)
	say
end sub


public sub sayGabriela(byVal pause as single)
	add(GG3)
	add(AE)
	say
	delay pause

	add(BB1)
	add(RR2)
	add(IY)
	say
	delay pause

	add(EH)
	add(EH)
	add(LL)
	say
	delay pause

	add(AE)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayDiana(byVal pause as single)
	add(DD1)
	add(AY)
	say
	delay pause

	add(AE)
	say
	delay pause

	add(NN1)
	add(p30ms)
	add(AE)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayJungEun(byVal pause as single)
	add(JH)
	add(AX)
	add(NG)
	say
	delay pause

	add(YY2)
	add(UW1)
	say
	delay pause

	add(NN1)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayCarrie(byVal pause as single)
	add(KK1)
	add(XR)
	say
	delay pause

	add(IY)
	say
	delay pause

	add(p10ms)
	say
end sub

public sub sayPatrick(byVal pause as single)
	add(PP)
	add(AE)
	say
	delay pause
	
	add(TT2)
	add(RR2)
	add(IH)
	say
	delay pause

	add(KK2)

	add(p10ms)
	say
end sub

public sub sayJose(byVal pause as single)
	add(HH2)
	add(OW)
	say
	delay pause

	add(ZZ)
	add(EY)
	say
	delay pause

	add(p10ms)
	say
end sub