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

Post by MaGetzUb »

Pienellä lagilla tuossa voi huijata. Joten älkääkös olko hirviän kovia jätkiä. :D 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

fontbig = LoadFont("Arial", 22, True)
fontsmall = LoadFont("Arial", 15, True)

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
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
User avatar
Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 9:01 pm
Contact:

Re: Pikku pelit

Post by Koodari »

MaGetzUb wrote:Pienellä lagilla tuossa voi huijata. Joten älkääkös olko hirviän kovia jätkiä. :D 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

fontbig = LoadFont("Arial", 22, True)
fontsmall = LoadFont("Arial", 15, True)

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 :D
Pärjäsin ekalla kerralla 13 sekkaa :)
Attachments
13sec.png
13sec.png (12.41 KiB) Viewed 14580 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

Post by Viltzu »

Hieno peli. 36s toisella yrityksellä. Tulee wanhat ajat mieleen ;) Kerran tein pienen pelin nimeltä Balance. :D 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 :D

Last edited by Viltzu on Tue Jul 13, 2010 5:53 pm, edited 1 time in total.
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Pikku pelit

Post by valscion »

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 8:25 am

Re: Pikku pelit

Post by Sly_Jack0 »

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
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Pikku pelit

Post by valscion »

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 8:25 am

Re: Pikku pelit

Post by Sly_Jack0 »

VesQ wrote:...
Kiitoksia tästä, aina oppii jotain uutta. On se kyllä kumma se CB. =D
User avatar
Koodari
Active Member
Posts: 201
Joined: Wed Nov 18, 2009 9:01 pm
Contact:

Re: Pikku pelit

Post by Koodari »

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

Koodaamiseen meni aikaa huimat 30 minuuttia :D
Attachments
ClickGame.zip
Peli
(587.53 KiB) Downloaded 396 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]
DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 2:18 pm

Re: Pikku pelit

Post by DJ-Filbe »

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

Koodaamiseen meni aikaa huimat 30 minuuttia :D
Pistäkää paremmaksi!
Attachments
cg.png
cg.png (30.39 KiB) Viewed 14356 times
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Pikku pelit

Post by Viltzu »

Klik klik pelissä 73 ekalla yrityksellä. Ja sitten ohjelmalla 354
DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 2:18 pm

Re: Pikku pelit

Post by DJ-Filbe »

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
(589.25 KiB) Downloaded 403 times
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Pikku pelit

Post by Viltzu »

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 2:18 pm

Re: Pikku pelit

Post by DJ-Filbe »

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ä).
User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Pikku pelit

Post by buke44 »

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
Advanced Member
Posts: 378
Joined: Fri Oct 10, 2008 2:35 pm

Re: Pikku pelit

Post by MrMonday »

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 2:18 pm

Re: Pikku pelit

Post by DJ-Filbe »

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
Advanced Member
Posts: 268
Joined: Mon Aug 27, 2007 9:44 pm

Re: Pikku pelit

Post by regalis »

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

Post by Someday coder »

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: 190
Joined: Wed Jan 21, 2009 10:25 pm
Contact:

Re: Pikku pelit

Post by Tuxi »

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

Post by Someday coder »

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