Pikapelikisa 18

[kaneli2000]

Eli, nyt sitten vain osallistumaan. Säännöt ovatkin varmaan monelle tutut, joskin otin valtuudet hieman muunnella:

• Kilpailuajan ulkopuolella tehtyä mediaa ei saa käyttää.
  Kilpailuajan ulkopuolella tehtyä, ennen julkaisematonta koodia saa käyttää, tuon ylemmän säännön puiteissa. Tämä siksi, että koodin ikää ei voida valvoa.
  Kilpailuaikaa on klo 18.00-20.00 ja armon aikaa pelin uppimiseen 20.00-20.10, jonka jälkeen alkaa äänestys.
  Kilpailun aihe paljastetaan melkein sekunnilleen klo 18.00.
  Kilpailuun saa osallistua kuka tahansa, jolla on tunnukset CoolBasicin foorumeille.

Paras voittakoon!

Ai niin, ja voittaja saa valtuudet järjestää seuraavan pikapelikisan ja tämän hienon, paintilla tehdyn bannerin allekirjoitukseensa .
Ei vaan, jos joku raaskisi hienomman vääntää niin se olisi ihan kiva .

Osallistuneet:

• Viltzu
  MAVmaggot
  Koodaaja
  Jani
  Ris
  Phons
  -Z-
  Tuxu

EDIT - 18.00
Noniin, nyt lähtee kilpailu käyntiin. Kilpailun aiheeksi valitsin metsästykseen liittyvän pelin. Kahden tunnin päästä sitten nähdään taas.

EDIT - 20.00
AIKA! Laittakaa näppiksenne pois, tallentakaa ja sulkekaa cb, ja uppikaa valmiit tulokset kymmenen minuutin sisään. Jos et siinä ajassa saa tekelettäsi nettiin, niin et saa. piste.

[Viltzu]

Mukana!
Ja sitten, eka!!1!

[MAVmaggot]

Mukana, toka!!!111

[koodaaja]

Yritän saada jotain tehtyä, pitkästä aikaa olisi aikaa.

[Jani]

MUKANA

[Ris]

Mukana olen.

[Jani]

Ja vielä uusi kuva:


Valitkaa.

[Koodiapina]

Tästä pukkaisi vielä eräs banneri:

[phons]

Mukana...

[skinkken]

Vähän tyhmä tuo Kilpailuajan ulkopuolella tehtyä koodia saa käyttää-sääntö.
Jokuhan voisi vain ottaa omasta pelistään koko koodin ja laittaa uudet graffat ja äänet.

Muuta sääntöä vaikka niin että Kilpailuajan ulkopuolella tehtyä ennen julkaisematonta koodia saa käyttää.

[-Z-]

Vähän tyhmä tuo Kilpailuajan ulkopuolella tehtyä koodia saa käyttää-sääntö.

Tämä siksi, että koodin ikää ei voida valvoa

Ja voisin osallistua. Eikun siis ilmoittautua. Osallistumista en takaa.

[kaneli2000]

Kilpailu alkoi, katsokaa ensimmäisestä viestistä aihe.
Ja onnea kaikille .

Ja Skinkille kiitos, nyt on säännöt muutettu.

[Jani]

No huhhuh!

Osaan mää kyllä tehhä, mutta emmää ny mittää toho jaksa tehhä.

[kaneli2000]

No huhhuh!

Osaan mää kyllä tehhä, mutta emmää ny mittää toho jaksa tehhä.

Hihiiii, siks just, vähän haastetta .

[Pate5]

Banneri:

[-Z-]

Plprbbt.

Tähän kilpailuun lähetetään kaksi surkeaa Eräjorma-metsästys-kloonia, ja se jossa on paremmat grafiikat, voittaa.

Ainiin, en ehdi tänään osallistua, lähden nuorisotalolle.

[kaneli2000]

Plprbbt.

Tähän kilpailuun lähetetään kaksi surkeaa Eräjorma-metsästys-kloonia, ja se jossa on paremmat grafiikat, voittaa.

Voi olla, paitsi että Eräjorma-metsaästys on jo itsessään surkeasti tehty peli, vaikka siilisoftwaren muu tuotanto on huippuluokkaa. Jos tulee vielä huonompia pelejä, niin ne on sitten jo huonoja.

[Viltzu]

Code: Select all

uus:
Print "Paina 1, 2, 3 tai 4"
Print "Ammutut MAVit: "+p
n=WaitKey()
Cls 
s=Rand(2,5)
k=k+1
If n=s Then p=p+1
If Not k=5 Then Goto uus
MakeError "Peli loppui! Ammuit "+p+" MAVia!"

Lol I'm gonna win /,,/

[KankiKalle]

Hassua, että kun sain tietää tämän kilpailun aiheen niin heti ensimmäinen ajatus oli Eräjorma Olisi hienoa nähdä kunnollinen Eräjorma-metsästys klooni, tuo Siilisoftwaren versio on jäänyt pahasti kesken. Mutta kukaan tuskin saisi sellaista aikaan 2 tunnissa. Vai olenko väärässä, se nähdään pian?

[Tuxu]

Vaikka en virallisesti ilmoittautunut, niin osallistun silti.

Tässä tulee "Tekometsä" niminen peli. Oli vähän rajattu aihe, niin en jaksanut oikeen panostaa järkevään ajatteluun ja purkkakoodailuksihan se meni, niinkuin Pikapelikisoissa aina. Kuitenkin ihan pelattava peli =)

Code: Select all

//Tekometsä
//By Tuxu
FrameLimit 40

AddText "Tämä on Tekometsä niminen mestästyspeli."
AddText "Pelin ideana on siis ampua eläimiä spacea "
addtext "painamalla. Varo kuitenkin ettet ammu ohi"
AddText "tai osu marjanpoimioihin, sillä silloin"
AddText "pisteesi vähenevät. Metsästys aika on 30s."
AddText ""
AddText "Tähän vielä lista pisteistä,"
AddText "jotka saa eläimen ampumalla:"
AddText "Jänis 10, Karhu 20, Hirvi 30"
AddText ""
AddText "Aloita peli painamalla jotakin näppäintä."

DrawScreen
WaitKey
ClearText 

P=5000
Pisteet=0
aika=30
eläin=0

Repeat
    
    Text 0,0,"Pisteet:        "+pisteet
    Text 0,20,"Aikaa jäjellä: "+aika
    If Timer()>lasku+1000 Then
        aika-1
        lasku=Timer()
    EndIf
    If aika=0 Then
        MakeError "Metsästysaika päättyi. Pisteesi:"+pisteet
    EndIf
    
    If Timer()>r+P Then 
        eläin=Rand(1,4)
        r=Timer()
        P=Rand(1000,5000)
    EndIf
    
    If eläin=0 Then
        Text 100,140,"Metsä on hiljainen..."
    ElseIf eläin=1 Then
        näkyy=Timer()
        Repeat
            Text 100,140,"Jänis juoksee! Ammu!"
            If KeyHit(57) Then
                Text 100,160,"Siihen kuoli."
                pisteet+10
                DrawScreen
                Wait 2000
            EndIf
            DrawScreen
        Until Timer()>näkyy+Rand(300,1000)
        eläin=0
     ElseIf eläin=2 Then
        näkyy=Timer()
        Repeat
            Text 100,140,"Karhu paskoo puun takana! Tulta!"
            If KeyHit(57) Then
                Text 100,160,"Kaatupa komeasti!"
                pisteet+20
                DrawScreen
                Wait 2000
            EndIf
            DrawScreen
        Until Timer()>näkyy+Rand(300,1000)
        eläin=0
     ElseIf eläin=3 Then
        näkyy=Timer()
        Repeat
            Text 100,140,"Hirvi! Antaa paukkua!"
            If KeyHit(57) Then
                Text 100,160,"Headshot!"
                pisteet+30
                DrawScreen
                Wait 2000
            EndIf
            DrawScreen
        Until Timer()>näkyy+Rand(300,1000)
        eläin=0  
     Else 
        näkyy=Timer()
        Repeat
            Text 100,140,"Jokin liikahti!"
            If KeyHit(57) Then
                Text 100,160,"Perkules, se oliko marjanpoimija."
                Text 100,180,"Noh, tuskin kukaan huomaa, "
                Text 100,200,"jos hautaan sen kanervikkoon..."
                pisteet-20
                DrawScreen
                Wait 4000
                DrawScreen
            EndIf
            DrawScreen
        Until Timer()>näkyy+Rand(500,1000)
        eläin=0  
     EndIf
     
     If KeyHit(57) Then
        Text 100,160,"Ohi meni, että viuhahti..."
        pisteet-10
        DrawScreen
        Wait 2000
     EndIf

    DrawScreen
Forever