Koodaajaa "Oraakkeli" -projektiin

Etsitkö tiimiä tai etsiikö tiimisi jäseniä?
Post Reply
Hene
Active Member
Posts: 122
Joined: Wed Apr 22, 2009 8:13 pm

Koodaajaa "Oraakkeli" -projektiin

Post by Hene »

Eli tarkoituksena olisi tehdä perinteisestä Oraakkeli -ennustajasta CoolBasicilla useita kilpailijoitaan parempi. Oraakkelin ideana on, että käyttäjä syöttää ohjelmalle kysymyksen ja oraakkeli vastaa käyttämällä tiettyjä avainsanoja (Esim. "Kuka on paras?" "Jorma").

TIIMI
Avainsanojen tekijä
(Keksikää itse parempi nimi)
Tarkoituksena olisi, että minä hoidan tämän, eli annan Oraakkelille listat avainsanoista ja niihin käytettävistä vastauksista. Mahdollisesti myös toinen hoitamaan tätä.

Koodaaja
Koodaaja luo pohjan ohjelmalle, johon avainsanojen tekijän on suhteellisen helppo määritellä avainsanat ja niiden vastineet.

Graafikko (Tarvittaessa)
Graafikon tehtävä on piirtää peliin yksinkertaiset grafiikat.

Jos kiinnostusta projektiin, niin viestiä vaan. Ei kovin vaativia hommia, omat koodaustaitoni eivät vain tuonne asti vielä yllä.
"Baby," I said. "I'm a genius but nobody knows it but me."
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Koodaajaa "Oraakkeli" -projektiin

Post by Koodiapina »

Eli sinä hoitaisit tiimissä sen helpoimman osuuden, johon kuka tahansa kykenee? Jos joku nyt oraakkelia innostuisi tekemään, niin kysymys kuuluisi, että mihin hän enää sinun apuasi tarvitsee? Voisit ainakin antaa näytteen osaamisestasi, jotta näemme miten hulvattoman hauskaa settiä osaat kirjoittaa ;)
Hene
Active Member
Posts: 122
Joined: Wed Apr 22, 2009 8:13 pm

Re: Koodaajaa "Oraakkeli" -projektiin

Post by Hene »

Grandi wrote:Eli sinä hoitaisit tiimissä sen helpoimman osuuden, johon kuka tahansa kykenee? Jos joku nyt oraakkelia innostuisi tekemään, niin kysymys kuuluisi, että mihin hän enää sinun apuasi tarvitsee? Voisit ainakin antaa näytteen osaamisestasi, jotta näemme miten hulvattoman hauskaa settiä osaat kirjoittaa ;)
..ja itselläni on päämääränä siis luoda oraakkelille erittäin laaja sanavarasto, joka ei rajoitu pelkkiin mitä, kuka, missä -sanoihin.

Jos nyt joku muukin näytettä vaatimalla vaatii, niin voin sitten kyllä teille jotain sanaisesta arkustani heittää ;P
"Baby," I said. "I'm a genius but nobody knows it but me."
User avatar
Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 9:01 pm
Contact:

Re: Koodaajaa "Oraakkeli" -projektiin

Post by Koodari »

Tota pohjaa saa vapaasti käyttää TÄSSÄ projektissa. Toivon, että lupaa kysytään/edes ilmoitetaan, jos aiot käyttää tätä koodia jossain projektissasi!

EDIT:

4-Kirjaimisille sanoille:

Code: Select all

Repeat
    Kysymys$=Input("Kysy oraakkelilta: ")
    Drawscreen
Until Keyhit(cbkeyreturn)
Välivaihe$=strremove(Kysymys$,4,Len(Kysymys$)-4)
Closeinput
Cls
If Lower(Välivaihe$) = "kuka" Then Random1=Rand(1,3)
If Random1=1 Then Text 0,0,"Jorma"
If Rabdom1=2 Then Text 0,0,"Pertti"
If Random1=3 Then Text 0,0,"Sinä"
If Lower(Välivaihe$) = "mikä" Then Random2=Rand(1,2)
If Random2=1 Then Text 0,0,"Tietokone"
If Random2=2 Then Text 0,0,"Televisio"
Drawscreen
Waitkey
Tota en jaksanu tehä enää 5-kirjaimisille! Voit laittaa itse!


5-Kirjaimisille sanoille:

Code: Select all

Repeat
    Kysymys$=Input("Kysy oraakkelilta: ")
    Drawscreen
Until Keyhit(cbkeyreturn)
Välivaihe$=strremove(Kysymys$,5,Len(Kysymys$)-5)
Closeinput
Cls
If Lower(Välivaihe$) = "miksi" Then Text 0,0,"Enpä tiedä..."
If Lower(Välivaihe$) = "missä" Then Text 0,0,"Koneella"
Drawscreen
Waitkey
Voin tänään tai huomenna yhdistää noi koodit, että se tunnistaa, että kumpi se on (4 vai 5 kirjaiminen) ja sitten kirjottaa tekstin...

Tosta vaan jatkamaan ;)
Last edited by Koodari on Tue Feb 23, 2010 10:16 am, edited 1 time in total.
Alussa oli asiakas, projekti ja Koodari...

Code: Select all

[23:36:33] <Minixmix> jos nyt viel yhen lastin heittäis
[23:36:48] <Minixmix> Sit loput vois hoitaa kännyllä :/
[00:14:49] <Minixmix> mutta nyt tyhjennykselle ->
[/size]
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Koodaajaa "Oraakkeli" -projektiin

Post by Koodiapina »

Koodari wrote:Pitää kysyä joltain, miten saat selville tekstin pituuden KIRJAIMINA.

Code: Select all

Print Len("Nopea ruskea kettu hyppää laiskan koiran yli.")
WaitKey
Itse käyttäisin muuten GetWordia pilkkomaan lause sanoiksi. Se on kätevämpi ratkaisu, kun lauseesta pitää erotella enemmän eri tunnisteita.
User avatar
Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 9:01 pm
Contact:

Re: Koodaajaa "Oraakkeli" -projektiin

Post by Koodari »

Grandi wrote:Itse käyttäisin muuten GetWordia pilkkomaan lause sanoiksi. Se on kätevämpi ratkaisu, kun lauseesta pitää erotella enemmän eri tunnisteita.
Juu, niinpä näyttääkin. Korjaan kai tänään...
Alussa oli asiakas, projekti ja Koodari...

Code: Select all

[23:36:33] <Minixmix> jos nyt viel yhen lastin heittäis
[23:36:48] <Minixmix> Sit loput vois hoitaa kännyllä :/
[00:14:49] <Minixmix> mutta nyt tyhjennykselle ->
[/size]
jannetin
Newcomer
Posts: 6
Joined: Sun Feb 28, 2010 9:00 pm

Re: Koodaajaa "Oraakkeli" -projektiin

Post by jannetin »

Voisha tota harkita. Mun mielestä toi oraakkeli -systeemi on iha hauska
idea ja sen vois toteuttaa. Mulla tohon riittäs aika ja taito.

Laitetaa harkintaa!

Sähköpostia japennit97@hotmail.com
:D
Post Reply