Pikapelikisa 3

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

Re: Pikapelikisa 3 ilmoittautuminen

Post by Sami345 » Thu Sep 11, 2008 6:37 pm

Eikös tämän kisan pitäny alkaa 18:00? Miksei ole alkanu?
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3 ilmoittautuminen

Post by Alligaattori » Thu Sep 11, 2008 6:45 pm

Se alkaa perjantai-iltana. Eli siis huomenna. ;)

User avatar
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: Pikapelikisa 3 ilmoittautuminen

Post by Valtzu » Thu Sep 11, 2008 6:46 pm

Mukana myös.

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Pikapelikisa 3 ilmoittautuminen

Post by TheDuck » Thu Sep 11, 2008 7:06 pm

Mukana! Kisa voisi alkaa huomenna kello 18.00 ja päättyä 20.00 tai 21.00?
^^

User avatar
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Pikapelikisa 3 ilmoittautuminen

Post by Jonez » Thu Sep 11, 2008 7:49 pm

Mukana ollaan jos koneen ääressä satun kyseisenä ajankohtana olemaan. Todennäköisesti olen jossain muualla, kun yleensä nää pienet vapaat hetket armeijan harmaista on tapana viettää hieman erilaisissa merkeissä. ;)
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Pikapelikisa 3 ilmoittautuminen

Post by MikkoK » Fri Sep 12, 2008 4:00 pm

Liityn en menekkään mummolleni. :P

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.

User avatar
kaneli2000
Guru
Posts: 1059
Joined: Mon Mar 17, 2008 3:40 pm
Location: Lempäälä

Re: Pikapelikisa 3 ilmoittautuminen

Post by kaneli2000 » Fri Sep 12, 2008 4:54 pm

Sori, mutta tuli vähän esteitä tuohon ajankohtaan, eli pitää perua osallistuminen :(. Ehkä sitten ensi kerralla!
I see the rainbow rising

User avatar
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Pikapelikisa 3 ilmoittautuminen

Post by MikkoK » Fri Sep 12, 2008 5:56 pm

Alkaako tämä 18?

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3 ilmoittautuminen

Post by Alligaattori » Fri Sep 12, 2008 5:58 pm

Kyllä. Parin minuutin kuluttua.

------------------------
EDIT:

KILPAILU ON ALKANUT.

Säännöt:

  • Peliin tulee sisältyä jokin MINIPELI. Eli vaikka palapeli tai tikanheittoa.
  • Toteutuskieli CoolBasic.
  • Ennen julkaistua mediaa ääniä lukuunottamatta ei saa käyttää.
  • Kilpailu päättyy klo 20:00 tai kun muistan lopettaa sen eli aikaa on vähintään kaksi tuntia.
  • Edellisen kilpailun kaltainen whinetys on kiellettyä ja johtaa diskaukseen.
Kello käy! Hopi hopi koodaamaan. Onnea osanottajille![/edit]

User avatar
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Pikapelikisa 3 ilmoittautuminen

Post by MikkoK » Fri Sep 12, 2008 6:05 pm

Juu kilpailu näköjään alkanu ilmotan tähän viestiin sitte pelini mutta olisi kannattanut tehdä uusi topic kisalle.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3

Post by Alligaattori » Fri Sep 12, 2008 6:10 pm

Teithän itsekin näin ensimmäisessä pikapelikisassa. Jos joka kisalle tekisi kolme topiccia, ne veisivät äkkiä paljon tilaa.

User avatar
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Pikapelikisa 3

Post by MikkoK » Fri Sep 12, 2008 6:14 pm

Tuli muuten paha aihe en keksi mitään. Niinpä taisin muuten tehdä.... En vain muistanut.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.

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

Re: Pikapelikisa 3

Post by Sami345 » Fri Sep 12, 2008 7:50 pm

Olisko mahollista saada puolituntia lisäaikaa? Teen tikanheitto peliä. :D
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3

Post by Alligaattori » Fri Sep 12, 2008 7:52 pm

Ei lisäaikoja pikapelikisoihin. Siitä ärjyin jo kerran enkä muuta mielipidettäni. Rupeaa kyrsimään, kun itse tekee peliä hiki hatussa ja sitten joku vinkuu ja saa lisäaikaa. Kokemusta on.

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

Re: Pikapelikisa 3

Post by Sami345 » Fri Sep 12, 2008 7:57 pm

Joo. Sitten en saa tätä kyllä valmiiksi, mutta ihan sama. Teen tämän silti.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3

Post by Alligaattori » Fri Sep 12, 2008 8:02 pm

Nyt on kulunut jo kaksi tuntia kilpailun alkamisesta. Annan vielä viisi minuuttia aikaa, jotta saadaan ehkä edes muutama peli tänne. Kukaan ei sitten itkenyt minulta tätä.

Edit: :D :twisted: Sain idean! Vielä viisi minuuttia lisää. Jos ei sittenkään vielä tule pelejä, mukaan äänestykseen otetaan kolme ensimmäistä työnsä palauttanutta.

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

Re: Pikapelikisa 3

Post by Sami345 » Fri Sep 12, 2008 8:38 pm

Mun peli:

Code: Select all

SAFEEXIT OFF
FrameLimit 60
SCREEN 400,400
ClsColor cbWhiteSkin

Type HEITETYT
    Field x As Integer
    Field y As Integer
EndType

Repeat
    Color cbRed
    valinta = Valikko("Uusi peli|Poistu",200,200,200,-1,10,1,255,255,255)
    Select valinta
        Case 1
            i = 0
            pisteet = 0
            all_pisteet = 0
            Repeat
                i + 1
                pisteet = level(i,i*5,3,i*5)
                all_pisteet = all_pisteet + pisteet
            Until Not pisteet
            Text 0,0,"Selvisit levelliin "+i +" asti."
            Text 0,13,"Sinulle kertyi "+all_pisteet+" pistettä."
            DrawScreen
            WaitKey
        Case 2
            End
    EndSelect
    DrawScreen
Forever

Function level(taso,max_virhe,tikat,t_pisteet)
    DrawScreen
    ClearKeys
    Color cbBlack
    Text 0,0,"Taso: "+taso
    Text 0,13,"Tikat: "+tikat
    Text 0,26,"Tarvitset "+t_pisteet+" pistettä voittoon."
    Text 0,39,"Aloita painamalla mitä tahansa näppäintä."
    DrawScreen
    WaitKey
    taulu = MakeImage(400,400)
    DrawToImage taulu
        For i = 0 To 360 Step 40
            Color cbWhite
            If Not i Mod 80 Then Color cbRed
            Circle i/2,i/2,400-i
        Next i
    DrawToScreen
    ClearMouse
    Repeat
        virhex = Rand(-max_virhe,max_virhe)
        virhey = Rand(-max_virhe,max_virhe)
        PositionMouse Max(Min(MouseX()+virhex,400),0), Max(Min(MouseY()+virhey,400),0)
        If MouseHit(1) Then
            tikka.HEITETYT = New(HEITETYT)
            tikka\x = MouseX()
            tikka\y = MouseY()
            tikat = tikat - 1
        EndIf
        DrawImage taulu,0,0
        Circle MouseX()-5,MouseY()-5,10
        Color cbBlack
        For tikka.HEITETYT = Each HEITETYT
            Circle tikka\x-5,tikka\y-5,10
        Next tikka
        DrawScreen
        If EscapeKey() Then Return 0
    Until tikat = 0
    For tikka.HEITETYT = Each HEITETYT
        Color cbBlack
        pisteet = pisteet + Max(RoundDown((220 - Distance (200, 200, tikka\x, tikka\y) ) / 20),0)
        Delete tikka
    Next tikka
    DeleteImage taulu
    Text 0,0,"Sait " + pisteet + " pistettä."
    If pisteet < t_pisteet Then
        Text 0,13,"Tarvitsit "+T_pisteet+" pistettä."
        DrawScreen 
        WaitKey
        Return 0
    EndIf
    DrawScreen 
    WaitKey
    Return pisteet
EndFunction

Function Valikko(teksti$,x,y,w = -1,h = -1,vali=10,center = 1,r2 = 0,g2 = 0,b2 = 0,hit_type = 2,nappi = 1,nappulan_muoto=0,muoto = 0)
    If h = -1 Then h = TextHeight(teksti$)+20
    For i = 1 To Int(CountWords(teksti$,"|"))
        If tw < TextWidth(GetWord(teksti$,i,"|")) Then tw = TextWidth(GetWord(teksti$,i,"|"))
    Next i
    If center Then
        th = TextHeight(" ")
        y = y - (Int(CountWords(teksti$,"|"))*h+(Int(CountWords(teksti$,"|"))-1)*vali)/2
        x = x - w/2
    EndIf
    For i = 1 To Int(CountWords(teksti$,"|"))
        If Painike(GetWord(teksti$,i,"|"),x,y,w,h,r2,g2,b2,hit_type,nappi,nappulan_muoto) Then palautus = i
        y = y + vali + h
    Next i
    Select palautus
        Case 0
            Select muoto
                Case 0
                    Return 0
                Case 1
                    Return ""
            EndSelect
        Default 
            Select muoto
                Case 0
                    Return palautus
                Case 1
                    Return GetWord(teksti$,palautus,"|")
            EndSelect
    EndSelect
EndFunction

Function Painike(teksti$,x,y,w = -1,h = -1,r2 = 0,g2 = 0,b2 = 0,hit_type = 2,nappi = 1,nappulan_muoto=0)
    r = getRGB(RED)
    g = getRGB(GREEN)
    b = getRGB(BLUE)
    If w = -1 Then w = TextWidth(teksti$)+20
    If h = -1 Then h = TextHeight(teksti$)+20
    If MouseON(x,y,w,h,True) Then
        Color Max(r - 50,0),Max(g - 50,0),Max(b - 50,0)
        Select HIT_TYPE
            Case 0
                If MouseHit(nappi) Then klikattu = True
            Case 1
                If MouseDown(nappi) Then klikattu = True
            Case 2
                If MouseUp(nappi) Then klikattu = True
        EndSelect   
    EndIf
    Select nappulan_muoto
        Case 0
            Box x + 1,y + 1,w-2,h-2
        Case 1
            Ellipse x + 1,y + 1,w-2,h-2
    EndSelect
    Color r2,g2,b2
    Select nappulan_muoto
        Case 0
            Box x,y,w,h,False
        Case 1
            Ellipse x,y,w,h,False
    EndSelect
    CenterText x+w/2,y+h/2,teksti$,2
    Color r,g,b
    Return klikattu
EndFunction

Function MouseON(x1,y1,x2,y2,wh = 0)
    If wh Then
        x2 = x1 + x2
        y2 = y1 + y2
    EndIf
    If x1 <= MouseX() And y1 <= MouseY() And x2 >= MouseX() And y2 >= MouseY() Then Return 1
    Return 0
EndFunction 
EDIT:

Päivitin peliä.

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

User avatar
Alligaattori
Active Member
Posts: 135
Joined: Fri Mar 07, 2008 9:49 pm

Re: Pikapelikisa 3

Post by Alligaattori » Fri Sep 12, 2008 9:04 pm

Ääh. Ei tästä taida tulla mitään. Oliko aihe liian hankala vai eikö kukaan paitsi Sami345 jaksanut tai viitsinyt tehdä peliä?

Tarkoitus oli tehdä peli, jossa olisi minipeli sisällä. Samin peli on vain tikanheitto. Mitä olette muut mieltä, voinko julistaa hänet voittajaksi, vaikka se ei ole aivan sääntöjen mukainen? (ei kyllä sodi mitään sääntöä vastaankaan)

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

Re: Pikapelikisa 3

Post by Sami345 » Fri Sep 12, 2008 9:07 pm

Kyllähän tuon pelin pystyy liittämään helposti johonkin peliin mukaan minipeliksi.
EDIT:

Jos vaikka valikko on itse peli ja tikanheitto minipeli sen pelin sisällä.

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

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

Re: Pikapelikisa 3

Post by Koodiapina » Fri Sep 12, 2008 9:55 pm

Kyllä Samin pitäisi saada olla voittaja vaikka mitä sääntöjä oltaisiin rikottu, sillä palautti ainoana työnsä ja pitäähän moinen vaiva palkita. Tuskin tätä kilpailua ainakaan uudestaan kannata järjestää, että eiköhän tuo olisi se järkevin ratkaisu.

OFF: Itse en edes muistanut koko pikapeliä kun tuunailin yhdeksättätoista sivupohjaa GrandiWebille, jonka nimi tulee muuten olemaan Grandisoft Computer Entertainment ;)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

Post Reply