TheGameCreators - CodeBase - AGK half-life 1 voice system

Category: Libraries

Version: 1.0

Information

Uploaded: 17th May 2017 05:12

Modified: 17th May 2017 05:12

Author: Jack

Summary

This library and example code can load the sentences.txt from half life and also the whole vox sound system. You need an own copy of half-life 1 as you need the HLroot/sound/vox/ audio files and the HLroot/sound sentences.txt file in order to make it work. There is also a description how to create

Full Description

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Half Life VOX System

This code can load and handle the sound/vox audio files from Half Life

and does also use the part of the sentences.txt where the vox is defined

It is some sort of basic speech synthesis, where you can add word samples

and combine them to sentences. Of course you could also use full sentences in one single wave file.

The wave file name will be loaded as the word.

It is also possible to modify the pitch, volume, start and endpoint of the playing sound or even add a pause

after the word. I would recommend you to find a good Hl1 tutorial where the sentences.txt usage is explained.

It may be useful to search in a internet-wayback machine. With some little research you can have a functional voice System!

LoadVoxVoice(path$,name$,0.2) - 0.2 seconds - there is the standard pause defined

Each word can have multiple modification parameters after the word. Each char/word can have different modification parameters, if the .wav file also exist

Example sentence in the sentence.txt:

HG_QUEST3 clik(p110 v60) (t30) squad, quiet(e75) down clik(p120)

Soundname = HG_QUEST3

Sound files that need to exist:

clik.wav

squad.wav

_comma.wav

quiet.wav

down.wav

clik.wav

(pX): Pitch; 100 = regular, 200 = double

(tX): Pause; 100 = no Pause, 0 = full Pause

(vX): Volume; 100 = regular, 0 = silent

(sX): Play Sound from X Percent

(eX): Play Sound to X Percent

1. You need to create a sentences.txt with only the vox sentences from the Half life 1 original sentences.txt place your new "sentences.txt" with only the vox lines as "sentences_vox.txt" in "\media\network\assets\"

2. You need it the .wav files placed in HLroot/sound/vox/, place it in "\media\network\assets\"

3. Set your path to the sentences.txt/ audio files here: path$ = "\media\network\assets\"

4. Set your vox name (in case you want to have multiple voices) (voice = different audio folder in hl1 sound\ folder)

5. Set you sentences.txt (only one voice per sentences.txt)

If it work, you should see a list with some sentences. The first word is the sentence name. "C1A0_START"

Type it in the editbox and press enter to play a sentence.

// Project: Vox

// Created: 19.04.2017

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "Vox" )

SetWindowSize( 1920, 1080, 0 )

// set display properties

SetVirtualResolution( 1920, 1080 )

SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global VoiceSystemActive : VoiceSystemActive = 1

type Snd_def

name$ as string

file$ as string

snd as integer

endtype

type Word_def

word$ as string

start# as float

end# as float

volume# as float

pitch# as float

pause# as float

endtype

type Vox_Sentence_def

name$ as string

sentence$ as string

sentence_words as Word_def[]

endtype

type Vox_def

name$ as string

path$ as string

sound as Snd_def[]

pause# as float

sentences as Vox_Sentence_def[]

endtype

type soundlist_def

soundfile as integer

volume# as float

pitch# as float

pause# as float

endtype

type Vox_Playlist_def

wordcount as integer

currentword as integer

currentsound as integer

instantplay as integer

pausetimer# as float

soundlist as soundlist_def[]

endtype

if VoiceSystemActive = 1

dim VoxVoice[] as Vox_def

dim VoxVoicePlaylist[] as Vox_Playlist_def

path$ = "\media\network\assets\"

name$ = "VOX"

sentence$ = "sentences_vox.txt"

vox = LoadVoxVoice(path$,name$,0.2)

LoadVoxSentences(vox,path$+sentence$)

endif

SetPrintSize(17)

txt2 = CreateText("213")

SetTextSize(txt2,20)

SetTextPosition(txt2,1000,400)

eb = CreateEditBox()

SetEditBoxPosition(eb,1000,600)

SetEditBoxSize(eb,300,35)

SetEditBoxTextSize(eb,30)

if GetRawKeyPressed(13)=1

PlayVoxSentence(vox, GetEditBoxText(eb),0)

endif

if GetRawKeyState(27)=1 then end

print("Voices: "+str(VoxVoice[vox].sound.length+1))

print("Sentences: "+str(VoxVoice[vox].sentences.length+1))

for sentences=0 to 12

sentence$=""

for word=0 to VoxVoice[vox].sentences[sentences].sentence_words.length

word$ = VoxVoice[vox].sentences[sentences].sentence_words[word].word$

wordsettings$="<"+"v"+str(VoxVoice[vox].sentences[sentences].sentence_words[word].volume#,0)+" p"+str(VoxVoice[vox].sentences[sentences].sentence_words[word].pitch#,0)+" s"+str(VoxVoice[vox].sentences[sentences].sentence_words[word].start#,0)+" e"+str(VoxVoice[vox].sentences[sentences].sentence_words[word].end#,0)+" t"+str(VoxVoice[vox].sentences[sentences].sentence_words[word].pause#,0)+">"

sentence$=sentence$+word$+" " // wordsettings$+" "

next word

print(VoxVoice[vox].sentences[sentences].name$+":"+sentence$)

next sentences

line$=""

SetTextString(txt2,str(VoxVoicePlaylist.length))

if VoiceSystemActive = 1

UpdateVoxVoice()

endif

Print( ScreenFPS() )

Sync()

loop

function UpdateVoxVoice()

for i=0 to VoxVoicePlaylist.length

if i=0 or VoxVoicePlaylist[i].instantplay=1

if VoxVoicePlaylist[i].currentword=-1

soundinst = PlaySound(VoxVoicePlaylist[i].soundlist[0].soundfile)

SetSoundInstanceRate(soundinst,(VoxVoicePlaylist[i].soundlist[0].pitch#/100.0))

SetSoundInstanceVolume(soundinst,VoxVoicePlaylist[i].soundlist[0].volume#)

VoxVoicePlaylist[i].currentword=VoxVoicePlaylist[i].currentword+1

VoxVoicePlaylist[i].currentsound = soundinst

VoxVoicePlaylist[i].pausetimer#= timer()

endif

if VoxVoicePlaylist[i].currentword>-1

if GetSoundInstancePlaying(VoxVoicePlaylist[i].currentsound)=0

if VoxVoicePlaylist[i].currentword+1=<VoxVoicePlaylist[i].soundlist.length

if VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword].pause#=100.0

soundinst = PlaySound(VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword+1].soundfile)

SetSoundInstanceRate(soundinst,(VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword+1].pitch#/100.0))

SetSoundInstanceVolume(soundinst,VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword+1].volume#)

VoxVoicePlaylist[i].currentword=VoxVoicePlaylist[i].currentword+1

VoxVoicePlaylist[i].currentsound = soundinst

VoxVoicePlaylist[i].pausetimer#= timer()

else

if (timer()-VoxVoicePlaylist[i].pausetimer#)=>VoxVoice[0].pause#*(1.0-VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword].pause#/100.0)

VoxVoicePlaylist[i].soundlist[VoxVoicePlaylist[i].currentword].pause#=100.0

endif

else

for s=0 to 	VoxVoicePlaylist[i].soundlist.length

DeleteSound(VoxVoicePlaylist[i].soundlist[s].soundfile)

VoxVoicePlaylist.remove(i)

endif

next i

endfunction

function LoadVoxVoice(voice_path$,voice_name$,pauselength#)

// create a new Vox Voice Entry

VoxVoice.length = VoxVoice.length + 1

current_voice = 	VoxVoice.length

VoxVoice[current_voice].name$ = voice_name$

VoxVoice[current_voice].pause# = pauselength#

VoxVoice[current_voice].path$ = voice_path$

tmpfolder$ = GetFolder()

SetFolder( voice_path$ )

list = OpenToWrite("assetlist.txt")

assetline$=""

// load file loop

file$=GetFirstFile()

while file$<>""

if right(file$,4)=".wav"

AddVoXVoiceSound(current_voice,voice_path$+file$)

endif

assetline$=assetline$+"assets/"+file$+","

file$=GetNextFile()

endwhile

WriteLine(list,assetline$)

CloseFile(list)

SetFolder( tmpfolder$ )

endfunction current_voice

function AddVoXVoiceSound(current_voice, file$)

VoxVoice[current_voice].sound.length =	VoxVoice[current_voice].sound.length + 1

current_sound = VoxVoice[current_voice].sound.length

// snd = LoadSound( file$ )

VoxVoice[current_voice].sound[current_sound].name$ = GetStringToken(left(file$,len(file$)-4),"\",CountStringTokens(left(file$,len(file$)-4),"\"))

VoxVoice[current_voice].sound[current_sound].file$ = file$

endfunction

function LoadVoxSentences(vox,sentence_file$)

file = OpenToRead(sentence_file$)

while FileEOF(file)=0

line$ = ReadLine( file)

if line$<>"" and left(line$,2)<>"//"

AddVoxSentence(vox,line$)

endif

endwhile

CloseFile(file)

endfunction

function AddVoxSentence(current_voice,sentence_string$)

VoxVoice[current_voice].sentences.length =	VoxVoice[current_voice].sentences.length + 1

current_sentence = VoxVoice[current_voice].sentences.length

// snd = LoadSound( file$ )

VoxVoice[current_voice].sentences[current_sentence].name$ = GetStringToken(sentence_string$," ",1)

// VoxVoice[current_voice].sentences[current_sentence].sentence$ = right(sentence$,len(sentence$)-1-len(VoxVoice[current_voice].sentences[current_sentence].name$))

sentence$ = right(sentence_string$,len(sentence_string$)-1-len(VoxVoice[current_voice].sentences[current_sentence].name$))

AddVoxSentenceWords(current_voice,current_sentence,sentence$)

endfunction

function AddVoxSentenceWords(current_voice,current_sentence,sentence$)

parsedword$=""

parsedsettings$=""

volume# = 100

pitch# = 100

start# = 0

end# = 100

pause# = 100

parsetype = 0	// 0 = word 1 = settings

for i=1 to len(sentence$)

char$ = mid(sentence$,i,1)

select char$

case ",":

if parsetype=0

AddVoxSentenceWord(current_voice,current_sentence,parsedword$,volume#,pitch#,start#,end#,pause#)

// reset all to default

volume# = 100

pitch# = 100

start# = 0

end# = 100

pause# = 100

parsedword$=""

parsedsettings$=""

endif

parsedword$=","

endcase

case ".":

if parsetype=0

AddVoxSentenceWord(current_voice,current_sentence,parsedword$,volume#,pitch#,start#,end#,pause#)

// reset all to default

volume# = 100

pitch# = 100

start# = 0

end# = 100

pause# = 100

parsedword$=""

parsedsettings$=""

endif

parsedword$="."

endcase

case "(":

parsetype=1

endcase

case ")":

for token=1 to CountStringTokens(parsedsettings$," ")

token$ = GetStringToken(parsedsettings$," ",token)

select left(token$,1)

case "e":

end# = val(right(token$,len(token$)-1))

endcase

case "t":

pause# = val(right(token$,len(token$)-1))

endcase

case "s":

start# = val(right(token$,len(token$)-1))

endcase

case "p":

pitch# = val(right(token$,len(token$)-1))

endcase

case "v":

volume# = val(right(token$,len(token$)-1))

endcase

endselect

next token

if parsetype=0

AddVoxSentenceWord(current_voice,current_sentence,parsedword$,volume#,pitch#,start#,end#,pause#)

// reset all to default

volume# = 100

pitch# = 100

start# = 0

end# = 100

pause# = 100

parsedword$=""

parsedsettings$=""

endif

parsetype=0

endcase

case " ":

if parsetype=0 and mid(sentence$,i+1,1)<>"("

AddVoxSentenceWord(current_voice,current_sentence,parsedword$,volume#,pitch#,start#,end#,pause#)

// reset all to default

volume# = 100

pitch# = 100

start# = 0

end# = 100

pause# = 100

parsedword$=""

parsedsettings$=""

endif

if parsetype=1

parsedsettings$=parsedsettings$+" "

endif

endcase

case default:

if parsetype=0

parsedword$=parsedword$+char$

endif

if parsetype=1

parsedsettings$=parsedsettings$+char$

endif

endcase

endselect

if i=len(sentence$)

if parsetype=0

AddVoxSentenceWord(current_voice,current_sentence,parsedword$,volume#,pitch#,start#,end#,pause#)

parsedword$=""

parsedsettings$=""

endif

next i

endfunction

function AddVoxSentenceWord(current_voice,current_sentence,word$,volume#,pitch#,start#,end#,pause#)

VoxVoice[current_voice].sentences[current_sentence].sentence_words.length = VoxVoice[current_voice].sentences[current_sentence].sentence_words.length + 1

current_word = VoxVoice[current_voice].sentences[current_sentence].sentence_words.length

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].word$ = word$

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].volume# = volume#

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].pitch# = pitch#

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].start# = start#

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].end# = end#

VoxVoice[current_voice].sentences[current_sentence].sentence_words[current_word].pause# = pause#

endfunction

function PlayVoxSentence(current_voice, sentence$, instantplay)

current_sentence = FindVoxSentence(current_voice, sentence$)

if current_sentence>-1

VoxVoicePlaylist.length = VoxVoicePlaylist.length + 1

pos = VoxVoicePlaylist.length

wordcount = VoxVoice[current_voice].sentences[current_sentence].sentence_words.length

VoxVoicePlaylist[pos].wordcount = wordcount

VoxVoicePlaylist[pos].currentword=-1

VoxVoicePlaylist[pos].instantplay = instantplay

// cache sounds

for words = 0 to wordcount

currentword$ = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].word$

start# = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].start#

end# = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].end#

pitch# = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].pitch#

volume# = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].volume#

pause# = VoxVoice[current_voice].sentences[current_sentence].sentence_words[words].pause#

file$ = FindVoxWordSoundFile(current_voice,currentword$ )

if file$<>"" and GetFileExists(file$)=1

VoxVoicePlaylist[pos].soundlist.length = VoxVoicePlaylist[pos].soundlist.length + 1

sndpos = VoxVoicePlaylist[pos].soundlist.length

snd=LoadSoundStartEnd(file$,start#,end#) // LoadSound(file$)

VoxVoicePlaylist[pos].soundlist[sndpos].soundfile = snd

VoxVoicePlaylist[pos].soundlist[sndpos].pause# = pause#

VoxVoicePlaylist[pos].soundlist[sndpos].pitch# = pitch#

VoxVoicePlaylist[pos].soundlist[sndpos].volume# = volume#

endif

next words

endif

endfunction

function FindVoxSentence(current_voice, sentence$)

for i=0 to VoxVoice[current_voice].sentences.length

if VoxVoice[current_voice].sentences[i].name$ = sentence$

exitfunction i

endif

next i

endfunction -1

function FindVoxWordSoundFile(current_voice,word$ )

if word$="," then word$="_comma"

if word$="." then word$="_period"

for i=0 to VoxVoice[current_voice].sound.length

if VoxVoice[current_voice].sound[i].name$ = word$

exitfunction VoxVoice[current_voice].sound[i].file$

endif

next i

endfunction ""

function LoadSoundStartEnd(file$,startplay,endplay)

loadedsound = LoadSound( file$ )

mem = CreateMemblockFromSound( loadedsound )

size =  (GetMemblockSize( mem )-12)

sp# = size*(startplay*0.01)

ep# = size*(endplay/100.0)

if trunc(sp#)<sp# then sp# = trunc(sp#)+1

if trunc(ep#)<ep# then ep# = trunc(ep#)+1

channels = GetMemblockShort( mem, 0 )

bits = GetMemblockShort( mem, 2 )

hz = GetMemblockInt( mem, 4 )

totallength = GetMemblockInt( mem, 8 )

SndMem = CreateMemblock( 12+(ep#-sp#)*bits )

// Header for a wav file

SetMemblockShort(SndMem,0,channels)

SetMemblockShort(SndMem,2,bits)

SetMemblockInt(SndMem,4,hz)

SetMemblockInt(SndMem,8,totallength)

CopyMemblock( mem, SndMem, 12+(sp#), 12, (ep#)-(sp#) )

snd = CreateSoundFromMemblock( SndMem )

DeleteMemblock( mem )

DeleteMemblock( SndMem )

endfunction snd

Download

Please login to download

Comments

No comments yet.

Author Name:	Jack
CodeBase Entries:	17

CodeBase - AGK half-life 1 voice system

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments