Viikkokisa XI

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

Viikkokisa XI

Post by CCE »

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 10:30 pm, edited 1 time in total.
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka »

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 5: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)
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 11:49 am
Location: Kemi

Re: Viikkokisa XI

Post by Myst!c »

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!
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Viikkokisa XI

Post by Koodiapina »

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 
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 11:49 am
Location: Kemi

Re: Viikkokisa XI

Post by Myst!c »

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 »

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
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka »

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

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
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Viikkokisa XI

Post by Sami345 »

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 »

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 »

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 2:10 pm, edited 1 time in total.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War
vms100
Member
Posts: 81
Joined: Tue Aug 28, 2007 4:47 pm

Re: Viikkokisa XI

Post by vms100 »

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 »

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 »

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 2:10 pm, edited 1 time in total.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War
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 »

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
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Viikkokisa XI

Post by Sami345 »

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 »

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.
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka »

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)
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viikkokisa XI

Post by Harakka »

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

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