## Pikku pelit

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

### Re: Pikku pelit

Pienellä lagilla tuossa voi huijata. Joten älkääkös olko hirviän kovia jätkiä. Itsellä meni xiitissä 1,5k mil sec. Sitte iha huijaamatta se 3,5k..

Btw, tässä minun pikku peli:

Code: Select all

``````Const Gravity = 0.225
Dim x#, y#, prevx#, prevy#

SCREEN 800, 600

Gosub sub_start

SetFont fontsmall

tryagain\$ = "Press mouse left button to try again."
tx = - TextWidth(tryagain)

Repeat

If GameOver = False Then
dx# = (x# - MouseX())
dy# = (y# - MouseY())
d# = Sqrt(dx#^2 + dy^2)
multiplier# = (d# - 120) / d#
x# = x# - dx# * 0.5 * multiplier#
y# = y# - dy# * 0.5 * multiplier#

Line MouseX(), MouseY(), x#, y#

If x# < 0 Or x# > ScreenWidth() Then GameOver = True : Reason = 1 : EndingTime = Timer() - startTime

tmpx# = x#
x# = 2 * x# - prevx#
prevx# = tmpx

tmpy# = y#
y# = 2 * y# - prevy# + Gravity
prevy# = tmpy

Text 0, 0, "Don't let stick fall!"
Text 0, 15,  Replace("Try_to hold whole stick inside the_screen", "_", " ")
Text 0, 30, "Time survived: "+(Timer() - startTime)

If y# > (MouseY() + 119) Then
GameOver = True
EndingTime = Timer() - startTime
EndIf
Else
SetFont fontbig
CenterText 400, 300, "Game over!", 2
SetFont fontsmall
CenterText 400, 320, "You survived: "+EndingTime/1000+" seconds"
If Reason Then
CenterText 400, 335, Replace("Part of stick went outside of the_screen area!", "_", " ")
EndIf
tx = tx + plusx
If tx > 400 Then
plusx = 0
If MouseHit(1) Then Gosub sub_start : GameOver = False
Else
plusx = 5
EndIf
CenterText tx, 350, tryagain
EndIf

DrawScreen
Forever

sub_start:
PositionMouse 400, 300
startTime= Timer()
x# = MouseX() + Rnd(-0.1, 0.1)
y# = MouseY() - 120
prevx# = MouseX() + Rnd(-0.5, 0.5)
prevy# = MouseY() - 120
Return
``````
Last edited by MaGetzUb on Tue Aug 03, 2010 2:48 pm, edited 1 time in total.
Solar Eclipse
We're in a simulation, and God is trying to debug us.

Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 10:01 pm
Contact:

### Re: Pikku pelit

MaGetzUb wrote:Pienellä lagilla tuossa voi huijata. Joten älkääkös olko hirviän kovia jätkiä. Itsellä meni xiitissä 1,5k mil sec. Sitte iha huijaamatta se 3,5k..

Btw, tässä minun pikku peli:

Code: Select all

``````Const Gravity = 0.225
Global x#, y#, prevx#, prevy#

SCREEN 800, 600

Gosub sub_start

SetFont fontsmall

tryagain\$ = "Press mouse left button to try again."
tx = - TextWidth(tryagain)

Repeat

If GameOver = False Then
dx# = (x# - MouseX())
dy# = (y# - MouseY())
d# = Sqrt(dx#^2 + dy^2)
multiplier# = (d# - 120) / d#
x# = x# - dx# * 0.5 * multiplier#
y# = y# - dy# * 0.5 * multiplier#

Line MouseX(), MouseY(), x#, y#

If x# < 0 Or x# > ScreenWidth() Then GameOver = True : Reason = 1 : EndingTime = Timer() - startTime

tmpx# = x#
x# = 2 * x# - prevx#
prevx# = tmpx

tmpy# = y#
y# = 2 * y# - prevy# + Gravity
prevy# = tmpy

Text 0, 0, "Don't let stick fall!"
Text 0, 15,  Replace("Try_to hold whole stick inside the_screen", "_", " ")
Text 0, 30, "Time survived: "+(Timer() - startTime)

If y# > (MouseY() + 119) Then
GameOver = True
EndingTime = Timer() - startTime
EndIf
Else
SetFont fontbig
CenterText 400, 300, "Game over!", 2
SetFont fontsmall
CenterText 400, 320, "You survived: "+EndingTime/1000+" seconds"
If Reason Then
CenterText 400, 335, Replace("Part of stick went outside of the_screen area!", "_", " ")
EndIf
tx = tx + plusx
If tx > 400 Then
plusx = 0
If MouseHit(1) Then Gosub sub_start : GameOver = False
Else
plusx = 5
EndIf
CenterText tx, 350, tryagain
EndIf

DrawScreen
Forever

sub_start:
PositionMouse 400, 300
startTime= Timer()
x# = MouseX() + Rnd(-0.1, 0.1)
y# = MouseY() - 120
prevx# = MouseX() + Rnd(-0.5, 0.5)
prevy# = MouseY() - 120
Return
``````
Hyvä peli
Pärjäsin ekalla kerralla 13 sekkaa
Attachments
13sec.png (12.41 KiB) Viewed 7810 times
Alussa oli asiakas, projekti ja Koodari...

Code: Select all

``````[23:36:33] <Minixmix> jos nyt viel yhen lastin heittäis
[23:36:48] <Minixmix> Sit loput vois hoitaa kännyllä :/
[00:14:49] <Minixmix> mutta nyt tyhjennykselle ->``````
[/size]

Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

### Re: Pikku pelit

Hieno peli. 36s toisella yrityksellä. Tulee wanhat ajat mieleen Kerran tein pienen pelin nimeltä Balance. Saman tyylinen mutta pelattiin näppäimistöllä. (Hieman eri asia kuin tämä peli. Vertaillaan siis esim. Käsillä seisontaa ja kepin tasapainottelemista)
EDIT:

No nyt meni se minuutti yli reilusti. 89s, mutta pahaksi onnekseni huomasin VesQ:n viestin

Last edited by Viltzu on Tue Jul 13, 2010 5:53 pm, edited 1 time in total.

valscion
Moderator
Posts: 1591
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

### Re: Pikku pelit

Kiva peli, mutta kun kekkas oikeen tyylin kävi tylsäks. Itte ennätys siis 93 sekkaa. Ilman mitään xiittejä.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 9:25 am

### Re: Pikku pelit

Teinpäs tälläisen iltana iloksi. Pelissä on ideana saada kaikki valot palamaan yhtä aikaa, aivan kuten Aapelin Parrasvalot-pelissäkin. Kun klikkaat valoa, se ja sen ympärillä olevat valot vaihtavat tilaansa.
Kentän kokoa voi vaihtaa xCells- ja yCells-muuttujilla ja valojen kokoa SIZE-vakiolla. Siinä on kuitenkin jokin kummallinen bugi, että jos vaikka SIZE on 40 ja valojen määrät 2 ja 2, ei ruudusta tule oikean kokoinen ja mitään ei piirretä. Olisikohan joku outo CB-feature, kun en koodistakaan mitään virhettä ollut löytävinäni.

Tässäpä pidemmittä puheitta itse peli:

Code: Select all

``````Const SIZE = 40

Global xCells,yCells,totalCells,litCells
xCells = 3
yCells = 3
totalCells = xCells * yCells

Global screenW,screenH
screenW = xCells * SIZE + 5 * (xCells + 1)
screenH = yCells * SIZE + 5 * (yCells + 1)

Dim cells(xCells - 1,yCells - 1)

SCREEN screenW,screenH

Repeat

litCells = 0

For x = 0 To xCells - 1
For y = 0 To yCells - 1

tmpX = (x + 1) * 5 + x * SIZE
tmpY = (y + 1) * 5 + y * SIZE

If BoxOverlap(MouseX(),MouseY(),1,1,tmpX,tmpY,SIZE,SIZE) And MouseHit(1)
cells(x,y) = Not cells(x,y)

If x > 0
cells(x - 1,y) = Not cells(x - 1,y)
EndIf

If x < xCells - 1
cells(x + 1,y) = Not cells(x + 1,y)
EndIf

If y > 0
cells(x,y - 1) = Not cells(x,y - 1)
EndIf

If y < yCells - 1
cells(x,y + 1) = Not cells(x,y + 1)
EndIf
EndIf

If cells(x,y) = 1
litCells = litCells + 1
EndIf

Box tmpX,tmpY,SIZE,SIZE,cells(x,y)

Next y
Next x

DrawScreen

If litCells = totalCells
MakeError "Voitit!"
EndIf

Forever``````

valscion
Moderator
Posts: 1591
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

### Re: Pikku pelit

Sly_Jack0 wrote:Siinä on kuitenkin jokin kummallinen bugi, että jos vaikka SIZE on 40 ja valojen määrät 2 ja 2, ei ruudusta tule oikean kokoinen ja mitään ei piirretä. Olisikohan joku outo CB-feature, kun en koodistakaan mitään virhettä ollut löytävinäni.
Joo on CB-bugi. Sillon kun ikkunan leveys alittaa 117 pikseliä, ei näytölle piirry mitään. Vertaa vaikka näitä koodeja keskenään:

Code: Select all

``SCREEN 117, 20 : Print "Testi" : WaitKey ``

Code: Select all

``SCREEN 116, 20 : Print "Testi" : WaitKey ``
Muuten oli kyllä ihan hyvä replika
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 9:25 am

### Re: Pikku pelit

VesQ wrote:...
Kiitoksia tästä, aina oppii jotain uutta. On se kyllä kumma se CB. =D

Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 10:01 pm
Contact:

### Re: Pikku pelit

Jos et tiedä, miten peliä pelataan, avaa ohje!

Koodaamiseen meni aikaa huimat 30 minuuttia
Attachments
ClickGame.zip
Peli
Alussa oli asiakas, projekti ja Koodari...

Code: Select all

``````[23:36:33] <Minixmix> jos nyt viel yhen lastin heittäis
[23:36:48] <Minixmix> Sit loput vois hoitaa kännyllä :/
[00:14:49] <Minixmix> mutta nyt tyhjennykselle ->``````
[/size]

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

### Re: Pikku pelit

Koodari wrote:Jos et tiedä, miten peliä pelataan, avaa ohje!

Koodaamiseen meni aikaa huimat 30 minuuttia
Pistäkää paremmaksi!
Attachments
cg.png (30.39 KiB) Viewed 7586 times

Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

### Re: Pikku pelit

Klik klik pelissä 73 ekalla yrityksellä. Ja sitten ohjelmalla 354

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

### Re: Pikku pelit

Tein tämmösen tylsyyden vallassa:
EDIT:

Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä

Attachments
Pokeri.rar

Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

### Re: Pikku pelit

DJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:
EDIT:

Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä

Jos ei lukitse mitää korttia ja ottaa siis kokonaan uuden pakan niin tulee mukamas aina pari. Sekä minulla oli yhdessä vaiheessa 2 paria ja peli sanoi että vain yksi. Ei pitäisi olla bugeja ei... No juu ihan hieno tekele silti. Edit: Meinasitko siis että animoinnissa ei ole bugeja? Selvä.
EDIT:

Ja suoran sain... K, Q, J, 9, 8 where is number 10?
Ja nyt sain kolmoset mutta sanoo niiden olevan pari.
Nyt tuli yksi pari ja peli sanoo että ei.

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

### Re: Pikku pelit

Viltzu wrote:
DJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:
EDIT:

Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä

Jos ei lukitse mitää korttia ja ottaa siis kokonaan uuden pakan niin tulee mukamas aina pari. Sekä minulla oli yhdessä vaiheessa 2 paria ja peli sanoi että vain yksi. Ei pitäisi olla bugeja ei... No juu ihan hieno tekele silti. Edit: Meinasitko siis että animoinnissa ei ole bugeja? Selvä.
EDIT:

Ja suoran sain... K, Q, J, 9, 8 where is number 10?
Ja nyt sain kolmoset mutta sanoo niiden olevan pari.
Nyt tuli yksi pari ja peli sanoo että ei.

Hienoa...
En vaa oikeen osaa tarkistaa noita käsiä tai sitten on joku vika objektien näyttämisessä / piilottamisessa (todennäköistä).

buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

### Re: Pikku pelit

Arkanoid klooni, Larkanoid. Laukaise pallo välilyönnistä ja ohjaa mailaa nuolinäppäimillä. Painamalla S saat musiikin päälle/pois. Oma ennätys 4 level.
Lataa: http://up.servut.us/24553 Liian suuri tiedosto tänne foorumeille. Jos haluat ladata tuon, mutta se on jo poistunut (30 päivää tästä) ilmottele vaikka yksityisviestillä.
Last edited by buke44 on Mon Aug 02, 2010 10:19 am, edited 2 times in total.

MrMonday
Posts: 378
Joined: Fri Oct 10, 2008 2:35 pm

### Re: Pikku pelit

DJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:
EDIT:

Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä

Kylläpähän meni ihan sekaisin kädet jos tuli vaikka kolmoset, niin saattoi väittää että pari, kaksi paria, ei voittokättä tai jotain ihan muuta..
eli käden tarkistus kuntoon niin muuten ei valittamista

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

### Re: Pikku pelit

MrMonday wrote:
DJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:
EDIT:

Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä

Kylläpähän meni ihan sekaisin kädet jos tuli vaikka kolmoset, niin saattoi väittää että pari, kaksi paria, ei voittokättä tai jotain ihan muuta..
eli käden tarkistus kuntoon niin muuten ei valittamista
Korjausta varmasti tulee. Ongelmia tulee kyllä käsien tarkistuksessa. Olisiko jollain heittää hyviä vinkkejä käsien tarkistukseen? (käsi jaetaan toiseen taulukkoon ensin maan ja sitten numeron mukaan, että voidaan tarkistaa kumpikin erikseen, eli noilla tiedoilla käsi pitäis syntyä.) Valmiskaan algoritmi ei pahaa tekisi

regalis
Posts: 268
Joined: Mon Aug 27, 2007 9:44 pm

### Re: Pikku pelit

DJ-Nerd wrote:Korjausta varmasti tulee. Ongelmia tulee kyllä käsien tarkistuksessa. Olisiko jollain heittää hyviä vinkkejä käsien tarkistukseen? (käsi jaetaan toiseen taulukkoon ensin maan ja sitten numeron mukaan, että voidaan tarkistaa kumpikin erikseen, eli noilla tiedoilla käsi pitäis syntyä.) Valmiskaan algoritmi ei pahaa tekisi :)
Itse tekisin varmaan niin, että antaisin joka kortille ID-numeron jotenkin tähän tapaan:

Code: Select all

``````Const PATA = 0
Const RUUTU = 1
Const RISTI = 2
Const HERTTA = 3

Kortin_ID = maa * 13 + (kortin_numero - 1)``````
Tällöin esimerkiksi pataässän ID olisi 0, patakunkun 12, ruutuässän 13, herttanelosen 42 jne... Eikä tarvitse kuin yhden byte-tyyppisen taulukon. :)

ID:stä saa laskettua kortin maan ja numeron vaikka näin:

Code: Select all

``````maa = RoundDown(ID / 13.0)
kortin_numero = (ID mod 13) + 1``````

Someday coder
Active Member
Posts: 106
Joined: Wed Jul 30, 2008 5:04 pm

### Re: Pikku pelit

Yksinkertainen tetris, tässä parin viime päivän aikana väsätty. Eroaa perinteisestä isommalla kentällä ja kahdella lisäpalikalla, jotka on vähän hankalampia kuin perinteiset. Rar paketti sisältää exen ja sourcen jos jotakuta sekin kiinnostaa.

Lataus:
http://www.2shared.com/file/eKy_17q9/tetris.html

Ite pääsin 7 tasolle ja 29 rivii tuhosin.

Tuxi
Active Member
Posts: 189
Joined: Wed Jan 21, 2009 11:25 pm
Contact:

### Re: Pikku pelit

Someday coder wrote:Yksinkertainen tetris, tässä parin viime päivän aikana väsätty. Eroaa perinteisestä isommalla kentällä ja kahdella lisäpalikalla, jotka on vähän hankalampia kuin perinteiset. Rar paketti sisältää exen ja sourcen jos jotakuta sekin kiinnostaa.

Lataus:
http://www.2shared.com/file/eKy_17q9/tetris.html

Ite pääsin 7 tasolle ja 29 rivii tuhosin.
En saanut tuota millään ladattua huonon uppimispaikan takia. En löytänyt sivulta yhtään toimavaa lataa-linkkiä.
EDIT:

Kyllä se sieltä lopulta löytyi se latauslinkki.

Projektit:
Jotain pientä (Ehkä vähän suurempaakin)

-Tuxi- (myös Tuxi4321)

Someday coder
Active Member
Posts: 106
Joined: Wed Jul 30, 2008 5:04 pm

### Re: Pikku pelit

Joo son vähä piilossa siinä oikeessa alakulmassa.