Viikkokisa XI
Viikkokisa XI
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.
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.
Re: Viikkokisa XI
Onko aikaa tosiaan vain puoli päivää? Ehdotan vähän pidempää kisa-aikaa niin saataisiin enemmän osallistujiakin.
EDIT: Haha, nopeampi.
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)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: Viikkokisa XI
Tästä sunnuntai 3.2 päivästä sunnuntaihin 3.2..? :SCCE 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!
Every Legend Has A Start!
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Viikkokisa XI
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
Re: Viikkokisa XI
Hehe pidin pelistä. 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!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
Every Legend Has A Start!
Re: Viikkokisa XI
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.
Toivottavasti tähän saadaan kanssakilpailijoita. Viikkokisat on yleensä ollu aika hiljasia.
Re: Viikkokisa XI
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)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
-
- Tech Developer
- Posts: 650
- Joined: Mon Aug 27, 2007 9:51 pm
- Location: Helsinki, Finland
- Contact:
Re: Viikkokisa XI
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
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX
Re: Viikkokisa XI
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/
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Viikkokisa XI
Tein tässä koukattavan HIIRIpelin... Nimi on OmgHiiri! Tällä siis osallistun.
EDIT: lisäsin tason vaihdoksen näkymisen
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
^^
Re: Viikkokisa XI
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!
[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.
Re: Viikkokisa XI
Tällä kehiin vaan: http://up.servut.us/6083
Jonez: Ihan hieno peli,mutta seinässä on oikealle päin mentäessä törmäystunnistus
Jonez: Ihan hieno peli,mutta seinässä on oikealle päin mentäessä törmäystunnistus
Re: Viikkokisa XI
Vielä ehtii mukaan!
Kilpailuaikaa jäljellä vielä yksi päivä.
Hyvin on muuten tullut kilpailijoita, propsit teille ;)
Kilpailuaikaa jäljellä vielä yksi päivä.
Hyvin on muuten tullut kilpailijoita, propsit teille ;)
Re: Viikkokisa XI
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.
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.
-
- Tech Developer
- Posts: 650
- Joined: Mon Aug 27, 2007 9:51 pm
- Location: Helsinki, Finland
- Contact:
Re: Viikkokisa XI
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..CCE wrote:Vielä ehtii mukaan!
Kilpailuaikaa jäljellä vielä yksi päivä.
Hyvin on muuten tullut kilpailijoita, propsit teille
CoolBasic henkilökuntaa
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX
Re: Viikkokisa XI
En voikkaan osalistua, koska unohdin tallentaa työni.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/
Re: Viikkokisa XI
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.
Re: Viikkokisa XI
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ä.Sami345 wrote:En voikkaan osalistua, koska unohdin tallentaa työni.
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)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: Viikkokisa XI
Haa, oma pelini on valmis. Tuli vähän turhan paljon stressiä sen valmiiksi saamisesta tämän illan aikana... 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. Toivottavasti saadaan hyvä kilpailu aikaan.
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. 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)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
-
- Tech Developer
- Posts: 650
- Joined: Mon Aug 27, 2007 9:51 pm
- Location: Helsinki, Finland
- Contact:
Re: Viikkokisa XI
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
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX