Viikkokisa XI

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

Viikkokisa XI

Post by CCE » Sun Feb 03, 2008 6:13 pm

Kröhm...

Tämän kertaisen viikkokisan aihe hyvin yksinkertainen, mutta silti varsin haastava.
Ideana on tehdä peli, jossa ainoana käyttöliittymänä toimii hiiri.
Toki myös escapen käyttö on sallittu, tosin vain pelistä poistumisen helpottamiseksi.

Mitään rajoitteita pelin toteuttamistavalle ei ole, mutta mitään laitonta sisältöä ei luonnollisestikaan saa käyttää.
Kannattaa muista että tällä tavalla rajoitettuja pelejä tehdessä lasketaan aina plussaksi muutama asia:

- Omaperäisyys
- Ulkonäkö
- Äänimaailma
- Yksinkertaisuus

Kilpailuaikaa on tästä päivästä sunnuntaihin 10.2. asti. Tottakai aikataulu on tarvittaessa varsin liukuva ;)
Sen jälkeen voittaja peli ratkaistaan yleisöäänestyksellä.

Paras peli voittakoon!

Edit: Pikku typo korjattu.
Last edited by CCE on Sun Feb 03, 2008 11:30 pm, edited 1 time in total.

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka » Sun Feb 03, 2008 6:16 pm

Onko aikaa tosiaan vain puoli päivää? Ehdotan vähän pidempää kisa-aikaa niin saataisiin enemmän osallistujiakin.

EDIT: Haha, nopeampi. ;)
Last edited by Harakka on Sun Feb 03, 2008 6:19 pm, edited 1 time in total.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

User avatar
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 12:49 pm
Location: Kemi

Re: Viikkokisa XI

Post by Myst!c » Sun Feb 03, 2008 6:16 pm

CCE wrote:Kröhm...

Tämän kertaisen viikkokisan aihe hyvin yksinkertainen, mutta silti varsin haastava.
Ideana on tehdä peli, jossa ainoana käyttöliittymänä toimii hiiri.
Toki myös escapen käyttö on sallittu, tosin vain pelistä poistumisen helpottamiseksi.

Mitään rajoitteita pelin toteuttamistavalle ei ole, mutta mitään laitonta sisältöä ei luonnollisestikaan saa käyttää.
Kannattaa muista että tällä tavalla rajoitettuja pelejä tehdessä lasketaan aina plussaksi muutama asia:

- Omaperäisyys
- Ulkonäkö
- Äänimaailma
- Yksinkertaisuus

Kilpailuaikaa on tästä päivästä sunnuntaihin 3.2. asti. Tottakai aikataulu on tarvittaessa varsin liukuva ;)
Sen jälkeen voittaja peli ratkaistaan yleisöäänestyksellä.

Paras peli voittakoon!
Tästä sunnuntai 3.2 päivästä sunnuntaihin 3.2..? :S
Every Legend Has A Start!

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

Re: Viikkokisa XI

Post by Koodiapina » Sun Feb 03, 2008 7:40 pm

Code: Select all

SCREEN 800,600  
    SetWindow "Kill those bugs!",0,"Are you sure? There's no better game!"
    Const DIFF = 1  // Tästä voi vaihtaa vaikeutta
    Dim bugx(100)
    Dim bugy(100)
    Dim bugsx(100)
    Dim bugsy(100)
    Dim alive(100)
    img = LoadImage("media/tatti.bmp")
    If ImageHeight(img)<>16 Or ImageWidth(img)<>16 Then ResizeImage img,16,16
    For i=1 To 100
        bugx(i) = Rand(10,ScreenWidth()-20)
        bugy(i) = Rand(30,ScreenHeight()-20)
        bugsx(i) = DIFF*Rand(-1,1)
        bugsy(i) = DIFF*Rand(-1,1)
        alive(i) = True
    Next i
    font = LoadFont("verdana",16)
    SetFont font
    Repeat
        Color cbwhite
        Text 0,0,"Time: "+Left(Str((1000-mytime)),2)
        Text 300,0,"Kills: "+killed
        Text 600,0,"Misses: "+misses
        mytime = mytime + 1
        For i=1 To 100
            If alive(i) Then
                Color 255,0,0
                DrawImage img,bugx(i),bugy(i)
                bugx(i) = bugx(i) + bugsx(i)
                bugy(i) = bugy(i) + bugsy(i)
                If bugx(i) < 0 Or bugx(i) > ScreenWidth()-16 Then
                    bugsx(i) = bugsx(i)*-1
                EndIf
                
                If bugy(i) < 20 Or bugy(i) > ScreenHeight()-16 Then
                    bugsy(i) = bugsy(i)*-1
                EndIf
                
                If MouseHit(1) Then
                    If MouseX()>bugx(i) And MouseY()>bugy(i) And MouseX()<bugx(i)+17 And MouseY()<bugy(i)+17 Then
                        killed = killed + 1
                        alive(i) = False
                    EndIf
                EndIf
             EndIf
        Next i
        If mytime > 1001 Then MakeError "You destroyed "+killed+" bugs!"
        DrawScreen
    Forever 
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
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 12:49 pm
Location: Kemi

Re: Viikkokisa XI

Post by Myst!c » Sun Feb 03, 2008 7:44 pm

Grandi wrote:

Code: Select all

SCREEN 800,600  
    SetWindow "Kill those bugs!",0,"Are you sure? There's no better game!"
    Const DIFF = 1  // Tästä voi vaihtaa vaikeutta
    Dim bugx(100)
    Dim bugy(100)
    Dim bugsx(100)
    Dim bugsy(100)
    Dim alive(100)
    img = LoadImage("media/tatti.bmp")
    If ImageHeight(img)<>16 Or ImageWidth(img)<>16 Then ResizeImage img,16,16
    For i=1 To 100
        bugx(i) = Rand(10,ScreenWidth()-20)
        bugy(i) = Rand(30,ScreenHeight()-20)
        bugsx(i) = DIFF*Rand(-1,1)
        bugsy(i) = DIFF*Rand(-1,1)
        alive(i) = True
    Next i
    font = LoadFont("verdana",16)
    SetFont font
    Repeat
        Color cbwhite
        Text 0,0,"Time: "+Left(Str((1000-mytime)),2)
        Text 300,0,"Kills: "+killed
        Text 600,0,"Misses: "+misses
        mytime = mytime + 1
        For i=1 To 100
            If alive(i) Then
                Color 255,0,0
                DrawImage img,bugx(i),bugy(i)
                bugx(i) = bugx(i) + bugsx(i)
                bugy(i) = bugy(i) + bugsy(i)
                If bugx(i) < 0 Or bugx(i) > ScreenWidth()-16 Then
                    bugsx(i) = bugsx(i)*-1
                EndIf
                
                If bugy(i) < 20 Or bugy(i) > ScreenHeight()-16 Then
                    bugsy(i) = bugsy(i)*-1
                EndIf
                
                If MouseHit(1) Then
                    If MouseX()>bugx(i) And MouseY()>bugy(i) And MouseX()<bugx(i)+17 And MouseY()<bugy(i)+17 Then
                        killed = killed + 1
                        alive(i) = False
                    EndIf
                EndIf
             EndIf
        Next i
        If mytime > 1001 Then MakeError "You destroyed "+killed+" bugs!"
        DrawScreen
    Forever 
Hehe pidin pelistä. :P Lopetuksen olisi voinut muuttaa että olisiko halunnut ottaa uudestaan mutta ei siinä mitään ja ei näkynyt että monta hutia oli. xD Vielä high scores ja äänet tuohon niin voitto on taattu! :D
Every Legend Has A Start!

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

Re: Viikkokisa XI

Post by Jonez » Wed Feb 06, 2008 3:34 pm

No tässä vaiheessa varmaan uskallan lupautua mukaan kisaan, kun oon tommosta pikkupeliä muutaman päivän väkerrelly. Aika hiljaa, melkein huomaamatta on proju edenny, ja erittäin aikaisessa vaiheessa vielä.

Toivottavasti tähän saadaan kanssakilpailijoita. Viikkokisat on yleensä ollu aika hiljasia.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka » Wed Feb 06, 2008 5:06 pm

Itse olen tekemässä peliä tähän kisaan. Kilpailua on siis tulossa.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

User avatar
SPuntte
Tech Developer
Tech Developer
Posts: 650
Joined: Mon Aug 27, 2007 9:51 pm
Location: Helsinki, Finland
Contact:

Re: Viikkokisa XI

Post by SPuntte » Wed Feb 06, 2008 11:35 pm

Minäkin yritän parsia jotain kasaan. Tosin aika on kyllä sen verran kortilla, etten tiedä, ehtiikö tekeleenkandidaattini mukaan 10. pvään mennessä. Katsellaan..
CoolBasic henkilökuntaa
Tech-kehittäjä
CoolBasic Classic, Cool VES

CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX

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

Re: Viikkokisa XI

Post by Sami345 » Thu Feb 07, 2008 10:58 pm

Minä osallistun. Sain pelin jo valmiiksikin. En julkaise peliäni kuitenkaan vielä, sillä en halua kenenkään varastavan ideaani. Vihdoinkin tuli viikkokisa johon pelin toteutus ei ole niin vaikeaa. Mielestäni viikkokisojen tulisi olla niin yksinkertaisia, että aiheesta viikossa kerkeää tekemään hyvän pelin.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

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

Re: Viikkokisa XI

Post by TheDuck » Thu Feb 07, 2008 11:24 pm

Tein tässä koukattavan HIIRIpelin... Nimi on OmgHiiri! Tällä siis osallistun.

Code: Select all

SetWindow "OmgHiiri!",0,"AYS?"
SCREEN 800,600
alku:
hiir=MakeImage(52,32)
DrawToImage hiir
    Color 192,192,192
    Ellipse 0,0,52,32
    Color 160,160,160
    Ellipse 0,22,5,32
    Ellipse 42,22,5,32
    Ellipse 32,0,10,10
DrawToScreen
mouse=MakeObject()
AddText "OMG: tehään hiiriä (OMG: loading)"
DrawScreen 
Dim hiiret(10)
For i=0 To 10
    hiiret(i)=MakeObject(72)
    PaintObject hiiret(i),-hiir
    PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200)
Next i
ClearText 
vaikeus=1
hp=3
osumat=0
Repeat
    If osumat>vaikeus*5 Then vaikeus+1:show=1:aloitus=Timer()
    PositionObject mouse,MouseWX(),MouseWY()
    For i=0 To 10
        MoveObject hiiret(i),vaikeus
        If ObjectX(hiiret(i))>400 Then hp-1:PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200)
        If ObjectsOverlap(mouse,hiiret(i)) And MouseHit(1) Then PositionObject hiiret(i),Rand(-200,-1000),Rand(-200,200):osumat+1
    Next i
    If show=1 And Timer()-aloitus<2000 Then Text 400,300,"TASO "+vaikeus
    DrawGame
    Text 0,0,"Elämiä: "+hp
    Text 0,15,"Osumia: "+osumat
    Text 0,30,"Vaikeustaso: "+vaikeus
    DrawScreen
Until hp<0
ClearObjects
AddText "Sait pisteitä: "+osumat
AddText "Paina näppäintä saadaksesi uuden pelin"
DrawScreen 
WaitKey
Goto alku
EDIT: lisäsin tason vaihdoksen näkymisen
^^

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

Re: Viikkokisa XI

Post by Jonez » Fri Feb 08, 2008 8:34 pm

No tässä tulee oman ehdokkaani näyteversio. Miksi laitan sen tänne? Ei syytä... Mutta jos en saa tähän tarpeeksi maita, juonta ja sälää tehtyä kymmenenteen päivään, niin tämä on se peli jolla osallistun.

[Linkki poistettu]

Edit. No näköjään unohtu space mukaan, jolla pystyy leijuttaa ukkoa, mutta se oli ihan testauksia varten siellä... Toivottavasti mua ei diskata kisasta tän törkeen rikkeen takia!
Last edited by Jonez on Sun Feb 10, 2008 3:10 pm, edited 1 time in total.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
vms100
Member
Posts: 81
Joined: Tue Aug 28, 2007 4:47 pm

Re: Viikkokisa XI

Post by vms100 » Sat Feb 09, 2008 2:00 pm

Tällä kehiin vaan: http://up.servut.us/6083 :shock:

Jonez: Ihan hieno peli,mutta seinässä on oikealle päin mentäessä törmäystunnistus :)

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

Re: Viikkokisa XI

Post by CCE » Sat Feb 09, 2008 3:57 pm

Vielä ehtii mukaan!
Kilpailuaikaa jäljellä vielä yksi päivä.

Hyvin on muuten tullut kilpailijoita, propsit teille ;)

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

Re: Viikkokisa XI

Post by Jonez » Sat Feb 09, 2008 5:20 pm

Siis onko tää alustava deadline nyt 23.59 tätä vai seuraavaa päivää? Jos seuraavaan päivään niin voisin _ehkä_ ehtiä tehdä kunnollisen map-generaattorin ku oon ite niin laiska tekemään mappeja.

Ja mainostus: [Linkki poistettu] Edelleen vaan näyteversio. Tässä on tuto missä opetetaan liikkumaan.
Last edited by Jonez on Sun Feb 10, 2008 3:10 pm, edited 1 time in total.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
SPuntte
Tech Developer
Tech Developer
Posts: 650
Joined: Mon Aug 27, 2007 9:51 pm
Location: Helsinki, Finland
Contact:

Re: Viikkokisa XI

Post by SPuntte » Sat Feb 09, 2008 6:13 pm

CCE wrote:Vielä ehtii mukaan!
Kilpailuaikaa jäljellä vielä yksi päivä.

Hyvin on muuten tullut kilpailijoita, propsit teille ;)
Meinaatko, että peli pitää palauttaa viimeistään tänään (lauantaina 9.2.) kello 23.59.59.99 mennessä vai seuraavan vuorokauden (sunnuntai 10. pvä) aikana? Minulle tulee joka tapauksessa kiire, vaikka saisi huomennakin vielä palauttaa.. :?
CoolBasic henkilökuntaa
Tech-kehittäjä
CoolBasic Classic, Cool VES

CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX

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

Re: Viikkokisa XI

Post by Sami345 » Sun Feb 10, 2008 10:42 am

En voikkaan osalistua, koska unohdin tallentaa työni. :cry:
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: Viikkokisa XI

Post by CCE » Sun Feb 10, 2008 2:26 pm

Kilpailutöitä saa vielä julkaista tämän vuorokauden loppuun asti, sen jälkeen teen joko listan tai sitten erityisen pollin jossa äänestetään voittaja.

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka » Sun Feb 10, 2008 5:06 pm

Sami345 wrote:En voikkaan osalistua, koska unohdin tallentaa työni. :cry:
Ihan vinkkinä: vaikka koodin olisi unohtanut tallentaa, viimeisin ajettu koodi löytyy exenä CB:n kansiosta nimellä cbRun.exe. Hyvällä tuurilla saatat onnistua pelastamaan pelisi vielä sieltä. ;)

EDIT: Itse olen edelleen osallistumassa. Julkaisen pelin myöhemmin tänään.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka » Sun Feb 10, 2008 9:40 pm

Haa, oma pelini on valmis. Tuli vähän turhan paljon stressiä sen valmiiksi saamisesta tämän illan aikana... :roll: Pelin nimi on Ufopuolustus ja ideana on palauttaa kaupunkia häiritsevät lautaset takaisin avaruuteen. Kuvia:
Kuva 1, Kuva 2
Kuva 3, Kuva 4
Kuva 5, Kuva 6
Kuva 7

Lataa peli tästä.
Pelissä on muuten kaksi piilotettua minipeliä. Ne kannattaa etsiä.

Anteeksi tuplapostaus. Haluan, että porukat huomaavat uuden pelin ilmestyneen ja saada mittavasti testaajia pelille. 8-) Toivottavasti saadaan hyvä kilpailu aikaan.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

User avatar
SPuntte
Tech Developer
Tech Developer
Posts: 650
Joined: Mon Aug 27, 2007 9:51 pm
Location: Helsinki, Finland
Contact:

Re: Viikkokisa XI

Post by SPuntte » Mon Feb 11, 2008 1:06 am

Potuttaa vähän, että aika loppui kesken. Laitan tähän hetken päästä oman osallistujatekeleeni, joka tosin on aivan raakile. CCE saa päättää, saako se vielä osallistua.
Last edited by SPuntte on Mon Feb 11, 2008 1:20 am, edited 1 time in total.
CoolBasic henkilökuntaa
Tech-kehittäjä
CoolBasic Classic, Cool VES

CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX

Post Reply