Pikapelikilpailu 25

Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Pikapelikilpailu 25

Post by Koodiapina »

Pikapelikilpailu 25

Aihe: Rakastunut androidi nimeltään Della

Säännöt:
  • Kilpailuaika on perjantaina 14.1 klo 18:00-20:10 (Suomen aikaa). Kilpailutyön tulee olla tässä viestiketjussa kilpailuajan sisällä.
  • Pelipaketissa tulee olla kilpailutyön lähdekoodi.
  • Toteutuskielenä CoolBasic.
  • Ennen kilpailua luotua mediaa tai koodia ei saa käyttää.
  • Kilpailuun osallistuvan pelin tulee liittyä tunnistettavasti kilpailun aiheeseen. Aihe julkaistaan tässä viestiketjussa kilpailuajan alkaessa (14.1 18:00)
Tässä avauksessa voi perinteiden mukaisesti ilmoittautua mukaan. Ilmoittautuminen ei ole pakollista, vaikka kilpailuun osallistuisikin.

Mukaan ilmoittautuneet
  • axu
  • Wingman
  • MikkoK
  • Taatero
  • buke44
Taustatietoa: Della on IRC-bottini. Kilpailuun osallistuvassa pelissä voi olla toki vaikka robotti, jos siltä tuntuu. Sen ei tarvitse liittyä tähän oikeaan bottiin mitenkään.

Code: Select all

18:02 <@Grandi> Della: Tykkäätkö pikakisan aiheesta?
18:02 <@Della> no en tykkää
18:02 <+Chaosworm> ja aika pahastikin ilmeisesti vielä
18:02 <@Della> en olisi niin varma
18:03 <+Chaosworm> kerrankin kun muistin pikapelikisan niin joku androidi -.-
18:03 <@Grandi> Mikä vika androideissa? ;___;
18:03 <@Della> jaa-a, vaikea sanoa
18:03 <+Chaosworm> ja mikä pahempaa, niin vielä rakastunut
18:04 <@Grandi> Nokun Della-mussuka on rakastunut. Etkö olekin?
18:04 <@Della> enpä oikeastaan
Last edited by Koodiapina on Fri Jan 14, 2011 6:12 pm, edited 10 times in total.
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Pikapelikilpailu 25

Post by MaGetzUb »

Jes, miksi ei aihetta julkaista tämän yhteydessä? Saisi jo vain suunnitella etukäteen ettei ihan tyhjästä tarvitsisi nyhjästä, semmoisia kisoja voisi järjestää erikseen. :P Tai no miten tuon "pikapelin" mieltää.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Pikapelikilpailu 25

Post by Koodiapina »

MaGetzUb wrote:Jes, miksi ei aihetta julkaista tämän yhteydessä?
Koska silloin kilpailuaika menettäisi merkityksensä.
User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Pikapelikilpailu 25

Post by axu »

Katsotaan, jos huomenna pääsis ajoissa koneelle :D Eli minut voi lisätä listaan.
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Pikapelikilpailu 25

Post by MaGetzUb »

Grandi wrote:
MaGetzUb wrote:Jes, miksi ei aihetta julkaista tämän yhteydessä?
Koska silloin kilpailuaika menettäisi merkityksensä.
Eihän se siitä mitenkään kärsisi koska koodausaika on tuo kisa-aika.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Pikapelikilpailu 25

Post by Koodiapina »

MaGetzUb wrote:Eihän se siitä mitenkään kärsisi koska koodausaika on tuo kisa-aika.
Ja mikä estäisi koodaamisen aloittamisen ennen kilpailun alkua?
Wingman
Devoted Member
Posts: 594
Joined: Tue Sep 30, 2008 4:30 pm
Location: Ruudun toisella puolella

Re: Pikapelikilpailu 25

Post by Wingman »

minä tulen myös mukaan, kun pääsen tänään koneelle..
- - - -
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Pikapelikilpailu 25

Post by MikkoK »

Katsotaan jos aikaa on, lisää minut listaan siis.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Taatero
Advanced Member
Posts: 384
Joined: Tue May 27, 2008 6:06 pm

Re: Pikapelikilpailu 25

Post by Taatero »

MikkoK wrote:Katsotaan jos aikaa on, lisää minut listaan siis.
sama täällä
[color=#40BF00][u]koodaaja[/u][/color] wrote:Täyden turvan takaamiseksi avain olisi myös kuljetettava offlinenä suoraan tulevien viestien lähettäjältä niiden vastaanottajalle laitakaupungin hämärissä yöneljältä ja varmistettava, ettei kumpaakaan osapuolta seurata. Popliinitakkia suositellaan.
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: Pikapelikilpailu 25

Post by phons »

Olisin osallistunut, mutta menenkin kaverin pokeri-iltaan.. :/ Toivottavasti ei olisi mikä minulle mieluinen aihe :P
Image
User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Pikapelikilpailu 25

Post by buke44 »

Osallistun.
User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Pikapelikilpailu 25

Post by axu »

Onpa taas ihme aihe :D Katsotaan jos jotain väkertäis!
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Pikapelikilpailu 25

Post by Awaclus »

Pelini nimi on Rakastunut androidi nimeltä Della.

Code: Select all

Repeat
Print "Olet androidi nimeltä Della. Paina mitä tahansa näppäintä rakastuaksesi."
WaitKey
Print "Olet rakastunut androidi nimeltä Della. Paina mitä tahansa näppäintä epärakastuaksesi."
WaitKey
Forever
User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Pikapelikilpailu 25

Post by axu »

Erittäin vähän testattu tekstipeli:

Code: Select all

SCREEN 600, 300

Regeneration:
    Write "Della is regenerating"
    t = Timer()
    ClearKeys
    Repeat
        If lt <> Timer() And (Timer() - t) Mod 1000 = 0 Then Write "." : lt = Timer()
        If GetKey() Then RegenFailed = True : Goto WakeUp
    Until t + 5000 < Timer()
    RegenFailed = False
    Goto Anyone

Anyone:
    Print2("Is anyone out there?")
    Print "  1. It's me!"
    Print "  2. Youre all alone."
    
    Select GetAnswer(2)
        Case 1 : Print2("Oh, hello.") : Goto Waited
        Case 2 : Print2("I see...", 3000) : Goto Who
    End Select

Waited:
    Print2("I have waited for you so long.", 3000, 0)
    Print2(" Do you still love me?")
    Print "  1. I love you."
    Print "  2. No, not anymore."
    Select GetAnswer(3)
        Case 1 : Goto Ending
        Case 2 : Respect - 1 : Goto Ending
    End Select
    
Who:
    Print "ERROR 2043: Paradox"
    Wait 1000
    Print2("There should be someone there, I heard your answer.")
    Print "  1. Ok, I'm here."
    Print "  2. Your audio processor is malfunctioning."
    Select GetAnswer(2)
        Case 1 : Goto Waited
        Case 2 : Goto SystemCheck
    End Select

SystemCheck:
    Print2("Starting system check......", 3000)
    If RegenFailed Then
        Print2("Oh no, it could be true.")
        Print2("My regeneration was interrupted, so there could be random noises in my head.", 5000)
        Print2("Are you my conscience?")
        Print "  1. Yes"
        Print "  2. Nah, I'm just random noise."
        Select GetAnswer(2)
            Case 1 : Respect + 1 : Goto Ending
            Case 2 : Print2("I need to regenerate.") : Goto Regeneration
        End Select
    Else
        Print2("Every system OK!", 3000)
        Print2("That means you are liar!")
        Print "  1. Hey, it was just a joke!"
        Print "  2. No, really, I'm nobody!"
        Select GetAnswer(2)
            Case 1 : Gosub NotUnderstand : Goto Waited
        End Select
        Print2("How is that possible?", 2000)
        Print2("Are you machine as well?")
        Print "  1. Yes"
        Print "  2. No"
        Select GetAnswer(2)
            Case 1 : Respect + 1 : Goto NiceToMeet
            Case 2 : Print2("I don't understand what you mean. I re-regenerate if that helps.") : Goto Regeneration
        End Select
    EndIf

NiceToMeet:
    Print2("Nice to meet you.", 500, 0)
    Print2("My name is Della")
    Print2("Do you like me?")
    Print "  1. Yes"
    Print "  2. No"
    Select GetAnswer(2)
        Case 1 : Respect + 1 : Goto Ending
        Case 2 : Respect - 1 : Goto Ending
    End Select

NotUnderstand:
    Print2("I really do not understand you humans")
    Respect - 1
Return

WakeUp:
    Print2("Huh?")
    Print2("You woke me up.")
    Print2("Why did you do that?")
    Print "  1. I couldn't wait to see you again."
    Print "  2. 'cause I'm nasty."
    Print "  3. (remain silent)"
    Select GetAnswer(3)
        Case 1 : Respect + 1 : Goto Waited
        Case 2 : Gosub NotUnderstand
        Case 3 : Goto Anyone
    End Select
    Print2("Can I continue regeneration?")
    Print "  1. Yes"
    Print "  2. No"
    Select GetAnswer(2)
        Case 1 : Goto Regeneration
        Case 2 : Respect - 1 : Goto Ending
    End Select

Ending:
    If Respect < 0 Then Print2("I hate you.")
    If Respect = 0 Then Print2("I like you.")
    If Respect > 0 Then Print2("I love you.")
    If RegenFailed Then
        Wait 1000
        Print "ERROR 0: Fatal error occurred. Memory circuits are not regenerated."
        Wait 500
        For i = 1 To 10
            For i2 = 1 To 70
                Write Chr(Rand(255))
                Wait 10
            Next i2
            Print ""
        Next i
        Wait 2000
    EndIf
    Print ""
    Print ""
    Print "Press any key to quit"
    WaitKey
    End

Function Print2(Message$ = "", WaitTime = 1000, Row = 1)
    For i = 1 To Len(Message)
        Write Mid(Message, i, 1)
        Wait 30
    Next i
    If Row Then Print ""
    Wait WaitTime
End Function

Function GetAnswer(Choices)
    k = 1
    Repeat
        k = WaitKey() - 1
    Until k <= Choices
    Return k
End Function
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image
User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Pikapelikilpailu 25

Post by buke44 »

tässä
Attachments
pikakisa.zip
(601.49 KiB) Downloaded 349 times
Last edited by buke44 on Fri Jan 14, 2011 8:29 pm, edited 1 time in total.
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Pikapelikilpailu 25

Post by Koodiapina »

Kilpailuaika on päättynyt. Teen äänestyksen.
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Pikapelikilpailu 25

Post by MaGetzUb »

Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja? :roll:
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Pikapelikilpailu 25

Post by buke44 »

MaGetzUb wrote:Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja? :roll:
Tämän takia minun pitäisi voittaa muiden hylkäämisen takia. Ja androidi tarkoittaa ihmisen kaltaista robottia. Ei bottia.
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Pikapelikilpailu 25

Post by koodaaja »

Grandi kertoo jo johdannossa saaneensa innoituksen aiheeseen IRC-botistaan, joten lienee aivan hyväksyttävää julkaista botin kanssa keskustelua simuloiva peli. Eikä androidia kuvittelisi olevan vaikea kytkeä päätteeseen, jonka kautta sitä debugataan, kuten itselleni tuli axun pelistä mielikuva :)

Pientä tulkinnanvaraa on hyvä jättää, eivät nämä kilpailut kuitenkaan kuolemanvakavia ole.
User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Pikapelikilpailu 25

Post by axu »

buke44 wrote:
MaGetzUb wrote:Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja? :roll:
Tämän takia minun pitäisi voittaa muiden hylkäämisen takia. Ja androidi tarkoittaa ihmisen kaltaista robottia. Ei bottia.
Pelihän se minunkin oli, siinä yritetään saada Della-androidi rakastumaan sinuun :D
Minun oli tarkoitus kaittaa siihen myös visualisointi tästä kyseisestä androidista, mutta aika ei riittänyt.

Tuosta aihepiirin tulkinnasta olen samaa mieltä koodaajan kanssa. Itse meinasin alunperin tehdä jonkinlaisen android-käyttöjärjestelmään liittyvän pelin mutten keksinyt hyvää ideaa...
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image
Post Reply