; AquesTalk.dll include module sample for HSP 3.x
#module "AquesTalk"
#uselib "AquesTalk.dll"
; 音声記号列から音声波形を生成します
#func AquesTalk_Synthe "AquesTalk_Synthe" str , int , var
; 音声データの領域を開放
#func AquesTalk_FreeWave "AquesTalk_FreeWave" var

#deffunc ATalk str txtDat , int tkSpeed
dataSize = 0
AquesTalk_Synthe txtDat , tkSpeed , datSize
wavTalk = stat
dupptr wavDat , wavTalk , datSize , 2
AquesTalk_FreeWave wavTalk
memfile wavDat , 0 , datSize
mmload "MEM:AquesTalk.wav" , 0 , 2
mmplay 0
return
#global

textDat = "おんせいきごう"
iSpeed = 100

mes "start"
Atalk textDat , iSpeed
mes "end"
stop