-
Koodiapina
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
-
Contact:
Post
by Koodiapina » Thu Jan 13, 2011 4:48 pm
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 7:12 pm, edited 10 times in total.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.
-
MaGetzUb
- Guru
- Posts: 1715
- Joined: Sun Sep 09, 2007 12:35 pm
- Location: Alavus
Post
by MaGetzUb » Thu Jan 13, 2011 4:54 pm
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.

Tai no miten tuon "pikapelin" mieltää.
Solar Eclipse
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
-
Contact:
Post
by Koodiapina » Thu Jan 13, 2011 4:55 pm
MaGetzUb wrote:Jes, miksi ei aihetta julkaista tämän yhteydessä?
Koska silloin kilpailuaika menettäisi merkityksensä.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.
-
axu
- Devoted Member
- Posts: 854
- Joined: Tue Sep 18, 2007 6:50 pm
Post
by axu » Thu Jan 13, 2011 5:30 pm
Katsotaan, jos huomenna pääsis ajoissa koneelle

Eli minut voi lisätä listaan.
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua

-
MaGetzUb
- Guru
- Posts: 1715
- Joined: Sun Sep 09, 2007 12:35 pm
- Location: Alavus
Post
by MaGetzUb » Thu Jan 13, 2011 6:30 pm
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
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
-
Contact:
Post
by Koodiapina » Thu Jan 13, 2011 6:40 pm
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?
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.
-
Wingman
- Devoted Member
- Posts: 594
- Joined: Tue Sep 30, 2008 4:30 pm
- Location: Ruudun toisella puolella
Post
by Wingman » Fri Jan 14, 2011 11:34 am
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
Post
by MikkoK » Fri Jan 14, 2011 2:42 pm
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
Post
by Taatero » Fri Jan 14, 2011 2:48 pm
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
Post
by phons » Fri Jan 14, 2011 3:22 pm
Olisin osallistunut, mutta menenkin kaverin pokeri-iltaan.. :/ Toivottavasti ei olisi mikä minulle mieluinen aihe

-
buke44
- Active Member
- Posts: 169
- Joined: Sat May 23, 2009 8:10 pm
- Location: Tampere
Post
by buke44 » Fri Jan 14, 2011 4:44 pm
Osallistun.
-
axu
- Devoted Member
- Posts: 854
- Joined: Tue Sep 18, 2007 6:50 pm
Post
by axu » Fri Jan 14, 2011 7:01 pm
Onpa taas ihme aihe

Katsotaan jos jotain väkertäis!
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua

-
Awaclus
- Forum Veteran
- Posts: 2939
- Joined: Tue Aug 28, 2007 2:50 pm
Post
by Awaclus » Fri Jan 14, 2011 9:00 pm
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
-
axu
- Devoted Member
- Posts: 854
- Joined: Tue Sep 18, 2007 6:50 pm
Post
by axu » Fri Jan 14, 2011 9:00 pm
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

-
buke44
- Active Member
- Posts: 169
- Joined: Sat May 23, 2009 8:10 pm
- Location: Tampere
Post
by buke44 » Fri Jan 14, 2011 9:03 pm
tässä
-
Attachments
-
- pikakisa.zip
- (601.49 KiB) Downloaded 104 times
Last edited by
buke44 on Fri Jan 14, 2011 9:29 pm, edited 1 time in total.
-
Koodiapina
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
-
Contact:
Post
by Koodiapina » Fri Jan 14, 2011 9:11 pm
Kilpailuaika on päättynyt. Teen äänestyksen.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.
-
MaGetzUb
- Guru
- Posts: 1715
- Joined: Sun Sep 09, 2007 12:35 pm
- Location: Alavus
Post
by MaGetzUb » Sat Jan 15, 2011 12:10 am
Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja?

Solar Eclipse
We're in a simulation, and God is trying to debug us.
-
buke44
- Active Member
- Posts: 169
- Joined: Sat May 23, 2009 8:10 pm
- Location: Tampere
Post
by buke44 » Sat Jan 15, 2011 12:28 am
MaGetzUb wrote:Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja?

Tämän takia minun pitäisi voittaa muiden hylkäämisen takia. Ja androidi tarkoittaa ihmisen kaltaista robottia. Ei bottia.
-
koodaaja
- Moderator

- Posts: 1583
- Joined: Mon Aug 27, 2007 11:24 pm
- Location: Otaniemi - Mikkeli -pendelöinti
Post
by koodaaja » Sat Jan 15, 2011 1:31 am
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.
-
axu
- Devoted Member
- Posts: 854
- Joined: Tue Sep 18, 2007 6:50 pm
Post
by axu » Sat Jan 15, 2011 4:02 pm
buke44 wrote:MaGetzUb wrote:Eikös pikapelikisassa pitäisi tehdä pelejä eikä botteja?

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
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
