Pikapelikisa 4

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

Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 6:51 pm

Eli nyt normaaleja tapoja vasten nyt pikapelikisan pidänkin minä kun ei tuota samia näy.

Aihe: Tee peli, missä on väh. 2 eri pelimuotoa. Eri pelimuodoiksi lasketaan pelihahmon vaihtuminen, pelitavan vaihtuminen ym.
Muista että ennen peliä tehtyä mediaa ei saa käyttää.
kisa loppuu puoli kymmeneltä eli 21.30


Mukana:
  • Grandi
  • Pate5
  • koodaaja
  • E.T
  • MikkoK141
  • Bambi
  • Vilsku
  • Ris
  • Nevssons
  • CCE
EDIT:

Oliko tuota "sääntökirjaa" missään kun en muista muita sääntöjä
Edit2: kiitos Pate5

EDIT:

Vaihdoin kisan loppumis ajankohdan myöhemmäksi jos joku huomaa tämän kisa-ajan vaihtumisen myöhään

Last edited by axu on Fri Sep 26, 2008 8:01 pm, edited 5 times in total.
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

User avatar
Pate5
Artist
Artist
Posts: 551
Joined: Tue Aug 28, 2007 4:53 pm
Location: Vantaa

Re: Pikapelikisa 4

Post by Pate5 » Fri Sep 26, 2008 6:58 pm

Ilmuri wrote: Sääntöinä:
  • Kilpailuaika on perjantaina 18:00-20:00, työ tulee olla kisatopikissa (aukeaa 18:00) viimeisintään kello 20:10.
  • Pelipaketissa tulee olla mukana pelin lähdekoodi.
  • Toteutuskieli Coolbasic.
  • Ennen kilpailua luotua mediaa tai koodia ei saa käyttää.
  • Peliin tulee sisältyä kilpailun alkaessa paljastuva elementti. Se on, kuten edellisessä kisassa, varsinaista toteutusta mahdollisimman vähän rajoittava.
  • Palkintoina pelin palauttaneille onnistumisen tunne ja mahdollinen maine sekä kunnia.
CoolBasic henkilökuntaa
Graafikko

User avatar
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Pikapelikisa 4

Post by Sami345 » Fri Sep 26, 2008 7:10 pm

Joo, ei haittaa.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Pikapelikisa 4

Post by CCE » Fri Sep 26, 2008 7:13 pm

Jaa en siis ehdi mukaan? Osallistuisin mielelläni.

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

Re: Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 7:31 pm

Lisään sinut osallistujiin.

Ainiin palkintona on minun tekemä kuva sigiin
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

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

Re: Pikapelikisa 4

Post by Koodiapina » Fri Sep 26, 2008 8:09 pm

Suuri, mahtava ja hämmästyttävä... BoulderBob! * Kliketi klaketi *. Ohjeet löytyy LUE.txt:tä. Joo tää on ihan paska ja tiedostan sen :D
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

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

Re: Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 8:40 pm

hehe, hyvä peli tuo boulderbob :D Pelasin melkein 5 minsaa ennen kuin huomasin että pelissä ei voi voittaa!

Off: Kuinka suuren kuvan voi laittaa sigiin?(en halua modeja kannoilleni:D)
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Pikapelikisa 4

Post by nevssons » Fri Sep 26, 2008 8:57 pm

Juoduin muuttamaan peliä tiukan aikataulun takia.
EDIT:

Ai... tässähän on vielä puoli tuntia!

Attachments
Peli.zip
(587.93 KiB) Downloaded 192 times
Last edited by nevssons on Fri Sep 26, 2008 9:02 pm, edited 1 time in total.
Koodarina kohtalainen, henkilönä vittumainen
Image

User avatar
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Pikapelikisa 4

Post by MAVmaggot » Fri Sep 26, 2008 9:00 pm

axu wrote:hehe, hyvä peli tuo boulderbob :D Pelasin melkein 5 minsaa ennen kuin huomasin että pelissä ei voi voittaa!

Off: Kuinka suuren kuvan voi laittaa sigiin?(en halua modeja kannoilleni:D)
only 40x40.. muistaakseni.

User avatar
Pate5
Artist
Artist
Posts: 551
Joined: Tue Aug 28, 2007 4:53 pm
Location: Vantaa

Re: Pikapelikisa 4

Post by Pate5 » Fri Sep 26, 2008 9:17 pm

Oma pelini: The Arena!

Pelissä ohjataan ukkoa wasdista ja hiirellä ammutaan. Pelissä on kolme vaikeustasoa, sekä loputtomasti leveleitä per vaikeustaso. Leveleiden välillä maksimiheltti ja aseen tulinopeus nousee.

LATAA
CoolBasic henkilökuntaa
Graafikko

Ris
Active Member
Posts: 142
Joined: Wed Jul 02, 2008 8:27 pm

Re: Pikapelikisa 4

Post by Ris » Fri Sep 26, 2008 9:18 pm

nevssons wrote:Juoduin muuttamaan peliä tiukan aikataulun takia.
Eikös sääntöjen mukaan pelin sourcen pitänyt olla mukana. Itse en tuosta paketista sourcea löytänyt.
Mutta tosiaan mitään en saanut tällä kertaa tehtyä. :o
Yritin parannella koodia ja se alkoi temppuilemaan! Se on aikamoista purkkaa.

tuossa nyt on vain koodi. Lataamisesta ei hyödy mitään!
Sääntöjen mukaanhan koodi pitää olla mukana, vaikka olisikin kuinka purkkaisaa.
Ja sääntöjähän näissä kisoissa tulee noudattaa. ;)
lähdekoodi löytyy tuolta: http://servut.us/nizpu/games/peli.cb (PURKKAA!)
Tuo cb pääte on tuossa väärin, se on oikeasti isolla. Eli http://servut.us/nizpu/games/peli.CB
Last edited by Ris on Fri Sep 26, 2008 9:55 pm, edited 3 times in total.

User avatar
Bambi
Member
Posts: 87
Joined: Sat Nov 24, 2007 1:51 pm

Re: Pikapelikisa 4

Post by Bambi » Fri Sep 26, 2008 9:25 pm

Crapper 1.0
http://servut.us/nizpu/games/Crapper.rar
6.97 MB

kontrollit: nuolinäppäimet, tavoitteena kerätä mahd. paljon ruskeita pökäleitä. Jos jäät kolmasti kiinni,... empäs kerrokkaan. :)
Pelaa ja kokeile itse.

lähdekoodi löytyy tuolta: http://servut.us/nizpu/games/peli.cb (PURKKAA!)
Last edited by Bambi on Fri Sep 26, 2008 9:32 pm, edited 1 time in total.

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Pikapelikisa 4

Post by nevssons » Fri Sep 26, 2008 9:25 pm

Ris wrote:
nevssons wrote:Juoduin muuttamaan peliä tiukan aikataulun takia.
Eikös sääntöjen mukaan pelin sourcen pitänyt olla mukana. Itse en tuosta paketista sourcea löytänyt.
Mutta tosiaan mitään en saanut tällä kertaa tehtyä. ;)
Yritin parannella koodia ja se alkoi temppuilemaan! Se on aikamoista purkkaa.

tuossa nyt on vain koodi. Lataamisesta ei hyödy mitään! (Ellei tahdo tietää millaista on purkka!)
Attachments
peli.rar
(1.11 KiB) Downloaded 179 times
Koodarina kohtalainen, henkilönä vittumainen
Image

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

Re: Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 9:30 pm

Jahas se on TIME OUT!!

Eli tämän minuutin jälkeisiä pelejä ei hyväksytä :!:
Last edited by axu on Fri Sep 26, 2008 9:35 pm, edited 1 time in total.
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Pikapelikisa 4

Post by CCE » Fri Sep 26, 2008 9:30 pm

Elite Mousefinger Muscular Warrior, kehittävä älypelini:
http://up.servut.us/10403
Liikkuminen tapahtuu WASD näppäimistä, ja hiirellä tähdätään ja ammutaan.
Space käynnistää salaisen erikoismoodin mittarin ollessa täynnä.

Edit: No painaessani "Submit" huomasin viestisi. Dammit.
Viestini lähetetty samalla minuutilla omasi kanssa :D
Last edited by CCE on Sat Sep 27, 2008 12:28 pm, edited 4 times in total.

User avatar
otto90x
Advanced Member
Posts: 349
Joined: Mon Aug 27, 2007 9:00 pm
Location: Lapinjärvi, Finland
Contact:

Re: Pikapelikisa 4

Post by otto90x » Fri Sep 26, 2008 9:31 pm

axu wrote:hehe, hyvä peli tuo boulderbob :D Pelasin melkein 5 minsaa ennen kuin huomasin että pelissä ei voi voittaa!

Off: Kuinka suuren kuvan voi laittaa sigiin?(en halua modeja kannoilleni:D)
Voihan siinä voittaa, rämpytät nextiä Tai no näin luulin ennen kuin luin readmen ja tajusin että siinä on kaksi moodia.
Otto Martikainen a.k.a. MetalRain, otto90x, kAATOSade.
Runoblogi, vuodatusta ja sekoiluja.

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

Re: Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 9:33 pm

CCE wrote:Tässä oma pelini:
http://up.servut.us/10403
Edit: No painaessani "Submit" huomasin viestisi. Dammit.
Viestini lähetetty samalla minuutilla omasi kanssa :D
Ei haittaa, tämä on kuitenkin lähetetty 9:30 eli se on aikarajan sisällä(ja useampi parempi)
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

E.T.
Newcomer
Posts: 42
Joined: Thu Jul 03, 2008 9:33 am

Re: Pikapelikisa 4

Post by E.T. » Fri Sep 26, 2008 9:35 pm

Tässä olisi pokeripelini, jos vielä ehtii mukaan. Peli tunnistaa vain parin, kolmoset, neloset, vitoset, värin ja suoran ja grafiikat on piirtokomennoilla
EDIT: No en sitten ehtinytkään :(

Code: Select all

SCREEN 800,600
ClsColor cbgold

Dim nimi(5) As String
Dim rahat(5)'pelaajien rahat
Dim käsi(4,5)'5 korttia 6 pelaajalla
Dim pisteet(5)

Dim nroa(13)
Dim maata(3)

Dim pakka(53)'52 korttia+2 jokeria
Dim maa(53)
Dim nro(53)

Global jokeri
jokeri=1

For m=0 To 3
    For n=1 To 13
        maa(m*13+n)=m
        nro(m*13+n)=n
        pakka(m*13+n)=m*13+n
    Next n
Next m



uusi:
pelaa=5
For a=0 To 5
    rahat(a)=1000
Next a



menu:
For a=0 To 4
    For b=0 To 5
        käsi(a,b)=0
    Next b
Next a


If rahat(0)=0 Then Goto hävisit
For a=1 To 4
    If rahat(a)=0 Then
        For b=a To 4
            rahat(b)=rahat(b+1)
            nimi(b)=nimi(b+1)
        Next b
        pelaa=pelaa-1
    EndIf
Next a
If rahat(5)=0 Then pelaa=pelaa-1
If pelaa=0 Then Goto voitit


Repeat
    For a=0 To 5
        Text 0,20*a,"Pelaajalla"+(a+1)+"rahaa:"+rahat(a)
    Next a
    If nappi(200,200,300,30,"Jokeripokeri") Then Goto jokeripokeri
    If nappi(200,250,300,30,"Ilman jokereita") Then Goto pokeri
    If nappi(200,300,300,30,"Uusi peli") Then Goto uusi
    If nappi(200,350,300,30,"Lopeta") Then End
    DrawScreen
Forever



jokeripokeri:
jokeri=1
jaa:
sekoita()
For a=0 To 4
    For b=0 To 5
        käsi(a,b)=pakka(a+b*5)
    Next b
Next a
järjestä()

Repeat
    Text 0,0,"paina enter"
    For a=0 To 4
        kortti(100*a+150,450,maa(käsi(a,0)),nro(käsi(a,0)))
    Next a
    DrawScreen
Until KeyHit(28)

For a=0 To 5
    pisteet(a)=0
    For b=0 To 3
        maata(b)=0
    Next b
    For b=1 To 13
        nroa(b)=0
    Next b
    For b=0 To 4
        If nro(käsi(b,a))> 0 Then
            maata(maa(käsi(b,a)))=maata(maa(käsi(b,a)))+1
            nroa(nro(käsi(b,a)))=nroa(nro(käsi(b,a)))+1
        Else
            For c=1 To 13
                nroa(c)=nroa(c)+1
            Next c
            For c=0 To 3
                maata(c)=maata(c)+1
            Next c
        EndIf
    Next b
    For b=1 To 13
        pisteet(a)=Max(pisteet(a),nroa(b)*nroa(b))
    Next b
    For b=0 To 3
        If maata(b)=5 Then pisteet(a)=Max(10,pisteet(a))
    Next b
    If nro(käsi(0,a))+1=nro(käsi(1,a)) And nro(käsi(0,a))+2=nro(käsi(2,a)) And nro(käsi(0,a))+3=nro(käsi(3,a)) And nro(käsi(0,a))+4=nro(käsi(4,a)) Then pisteet(a)=Max(pisteet(a),11)
    Text 0,30*a,pisteet(a)
    mpisteet=Max(mpisteet,pisteet(a))
Next a
For a=0 To 5
    If pisteet(a)=mpisteet Then
        rahat(a)=rahat(a)+300
    Else
        rahat(a)=rahat(a)-100
    EndIf
Next a
Goto menu





pokeri:
jokeri=0
Goto jaa
voitit:
MakeError "voitit"
hävisit:
MakeError "hävisit"

End
Function sekoita()
    For a=0 To 53
        b=Rand(0,51+2*jokeri)
        If jokeri=0 Then 
            If pakka(a)=0 Or pakka(a)=53 Then 
                b=52+jj
                jj=1
            EndIf   
        EndIf
        c=pakka(a)
        pakka(a)=pakka(b)
        pakka(b)=c
    Next a
EndFunction

Function järjestä()
    For a=0 To 5
        For b=0 To 3
            For c=0 To 3-b
            If käsi(c,a)>käsi(c+1,a) Then
                d=käsi(c,a)
                käsi(c,a)=käsi(c+1,a)
                käsi(c+1,a)=d
            EndIf
            Next c
        Next b
    Next a
EndFunction

Function nappi(x,y,w,h,t$)
    Box x,y,w,h,0
    CenterText x+w/2,y+h/2,t$,2
    If MouseHit(1) And MouseX()>x And MouseY()>y And MouseX()<x+w And MouseY()<y+h Then Return 1
EndFunction

Function kortti(x,y,m,n)
    Color cbwhite
    Box x,y,100,150,1
    Select m
    Case 0
        Color cbblack
        Line x+50,y+75,x+50,y+125
        Line x+25,y+100,x+75,y+100
    Case 1
        Color cbred
        Line x+50,y+75,x+25,y+100
        Line x+50,y+75,x+75,y+100
        Line x+50,y+125,x+25,y+100
        Line x+50,y+125,x+75,y+100

    Case 2
        Color cbblack
        Line x+50,y+75,x+50,y+125
        Line x+50,y+75,x+25,y+100
        Line x+50,y+75,x+75,y+100
    Case 3
        Color cbred
        Line x+50,y+125,x+25,y+100
        Line x+50,y+125,x+75,y+100
    EndSelect
    If n>0 Then 
        CenterText x+50,y+50,n,2
    Else
        Color cbgold
        CenterText x+50,y+75,"Joker",2
    EndIf
    Box x,y,100,150,0
EndFunction
Quidquid latine dictum sit, altum videtur.
Voitot: Viikkokisa XVII

User avatar
Bambi
Member
Posts: 87
Joined: Sat Nov 24, 2007 1:51 pm

Re: Pikapelikisa 4

Post by Bambi » Fri Sep 26, 2008 10:05 pm

Juu tuota millonka voittaja selviää? :P

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

Re: Pikapelikisa 4

Post by axu » Fri Sep 26, 2008 10:19 pm

Teen huomenna äänestyksen joka kestää 2 päivää.
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image

Post Reply