Speak - Taas yks DLL; tämä puhuu tekstiä

[Aavesoturi]

Tjuu noin vartissa tehokkaalla copy-pasteamisella kasasin pienen DLL:n, joka puhuu sille syötetyn merkkijonon Windowsin perussyntetisaattorilla.
Featuret:
* Yksi funktio, Speak(teksti$)
* Merkkijonon maksimipituus 255 merkkiä
* Ei pysäytä ohjelman suoritusta (luo uuden säikeen puhumiselle)
* Puhuu asiat peräkkäin, eli peräkkäiset kutsut laittavat merkkijonot jonoon
* Maksimissaan 32 merkkijonoa jonossa

Esimerkki ja cb:n kutsufunktio:

Code: Select all

Speak("Moikkelis")
WaitKey 


Function Speak(_txt$)
    _strlen = Len(_txt)
    _mem = MakeMEMBlock(_strlen+4)
    PokeInt _mem, 0, _strlen
    _offset=4
    For _i = 1 To _strlen
        PokeByte _mem, _offset, Asc(Mid(_txt, _i, 1))
        _offset+1
    Next _i
    CallDLL "SpeakDLL.dll", "Speak", _mem
    DeleteMEMBlock _mem
End Function

Lataa liite DLL ja tunge samaan kansioon cb filun kanssa.

[Viltzu]

Hienoa, Viltzu kiittää ja kuittaa, eikun testaamaan->

EDIT:

Hieno on, olisi kyllä ollut mukavaa jos koodissa olisi voinut vaihtaa puhujan.. Esim. Microsoft Mikeen.

[KillBurn]

Olisi voinut olla valmiina source tuola zipissä.
Ihan hauska.Tein pienen lisäyksen(Ei kai haittaa?). Nyt voit vaihtaa tekstiä lennosta(Vain lehnnosta).

Code: Select all

Repeat    
Speak(Input(""))
DrawScreen 
Forever 
    Function Speak(_txt$)
        _strlen = Len(_txt)
        _mem = MakeMEMBlock(_strlen+4)
        PokeInt _mem, 0, _strlen
        _offset=4
        For _i = 1 To _strlen
            PokeByte _mem, _offset, Asc(Mid(_txt, _i, 1))
            _offset+1
        Next _i
        CallDLL "SpeakDLL.dll", "Speak", _mem
        DeleteMEMBlock _mem
    End Function

[otto90x]

Hei tämähän on loistava tekele. Saisikohan tuolle dll:lle vielä välitettyä jotain korkeus tai nopeus parametrejä puheelle. Voisi periaatteessa tehdä useamman henkilön äänen (vaikka olisivatkin Geneerisiä isolla Geellä)

Alkoi ärsyttämään tuossa KillBurnin versiossa tuo että se puhuu kokoajan kun kirjoittaa, joten tein siihen pienen muokkauksen.
Eli kun painaa entteriä niin tulee puhetta.

Code: Select all

Repeat    
    c$=Input("")
    If KeyHit(28) Then Speak(c$)
    DrawScreen 
Forever 

Function Speak(_txt$)
    _strlen = Len(_txt)
    _mem = MakeMEMBlock(_strlen+4)
    PokeInt _mem, 0, _strlen
    _offset=4
    For _i = 1 To _strlen
        PokeByte _mem, _offset, Asc(Mid(_txt, _i, 1))
        _offset+1
    Next _i
    CallDLL "SpeakDLL.dll", "Speak", _mem
    DeleteMEMBlock _mem
End Function

[MAVmaggot]

Mahtava kiitos, voisi käyttää ehkä yhdessä projussanikin.

Alkoi ärsyttämään tuossa KillBurnin versiossa tuo että se puhuu kokoajan kun kirjoittaa, joten tein siihen pienen muokkauksen.
Eli kun painaa entteriä niin tulee puhetta.

Heh, tein juuri samanlaisen, mutta täälä olikin jo semmonen.

[MaGetzUb]

Kiva, Olisipa nyt äänen muakkaus kirjastoja jne, niin voisi tehdä vaikka minkälaisia rooli pelejä jne. Esim joku naisen putkimainen ääni sopisi johonkin lentokone peliin, jossa tuhotaan toisia lentokoneita jne. Jos kukaan muistaa Top Landerin, niin siitä tekisi jonkun sota pelin ja sinne tuollaiset puhe äänet (selvemmät ja ns. terävemmät) niin ai että.. =)

[Sami345]

Englannin kielinen puhe kuulosti erittäin hienolta tällä Vistan kanssa. Tätähän voisi käyttää jossain tekstipelissä niin, että teksti puhuttaisiin. Hienoa työtä.

OffTopic:

Kiva, Olisipa nyt äänen muakkaus kirjastoja jne, niin voisi tehdä vaikka minkälaisia rooli pelejä jne. Esim joku naisen putkimainen ääni sopisi johonkin lentokone peliin, jossa tuhotaan toisia lentokoneita jne. Jos kukaan muistaa Top Landerin, niin siitä tekisi jonkun sota pelin ja sinne tuollaiset puhe äänet (selvemmät ja ns. terävemmät) niin ai että.. =)

Todennäköisesti CB:n tehot eivät riittäisi tuollaiseen, koska jo Top Landerissa CB:n tehot on viety äärirajoilleeen. Ja vaikka joku onnistusikin optimoimaan tarpeaksi, todennäköisesti lentokoneet eivät näyttääisi lentokoneilta, johtuen pistegrafiikasta.

[MaGetzUb]

Mistä niin päättelet? Eihän pelissä tarvitsisi olla aina kun vain pari lentokonetta ilmassa, ja nuo kentätkin ovat aika täynnä pisteitä, eikä koneellani lagaa pahasti. Eli jos olisi avaruus taistelu peli.

EDIT:

No jatketaanpa aihetta

[Aavesoturi]

...Ja ainahan voi käyttää cbGL:ää, joka hallitsee nopean graffan. Juuri lisäsin siihen myös 3d ominaisuuksia.

Niin ja en usko että kehitän tätä enää eteenpäin, tää oli vaan tällanen pikanen hetken mielijohteesta kyhätty juttu, joten jos ei perus ääni kelpaa, niin voipi olla, että joudutte ite tekemään. Laitan tossa jossain vaiheessa sorsat pihalle.

[elmo123]

Ei toimi. Johtuu käyttiksestäni, hämähäkinverkkojen valtaamasta Windows 98:sta. Pitää varmaan käyttää uutta XP-pelikonetta.