Pikku pelit

Koodiapina · Post by **Koodiapina** » Mon Jun 14, 2010 11:36 pm

TheDuck wrote:Gimp, ilmainen, helppokäyttöinen ja sillä saa aikaan kaunista graffaa jos osaa käyttää.

Itsekin joudun käyttämään GIMPiä täällä Linuxin puolella, mutta kovin on vaivalloinen.

Monet tutut toiminnot ovat ulkoaopeteltavien näppäinyhdistelmien takana, joten tässä suhteessa ei voida ainakaan puhua helppokäyttöisyydestä. Tämän lisäksi monet asiat on toteutettu erittäin typerästi: esimerkiksi oikeanpuolimmaisesta hiirennapista ei voikaan piirtää kakkosvärillä, "kuten pitäisi", vaan siitä avautuu täysin turha valikko (joka olisi jo muutenkin siinä nenän edessä). Näin ainakin, jos ei säädä jotain asetuksia (itse en ole moisia edes löytänyt). Olen haastatellut muutamia muita GIMP-käyttäjiä asian tiimoilta, mutta hekin sanovat vain klikkaavansa ens- ja toissijaisen värin paikkoja vaihtavaa nappulaa värivalikosta, mikä on IMO turhaa pelleilyä kun vähemmälläkin olisi voinut päästä. Toisena esimerkkinä GIMPin huonoudesta voitaisiin mainita vaikka se, miten vaivalloisesti siinä toteutetaan niinkin peruskauraa oleva kuvio kuin ympyrä. Enempää ei varmaan tarvitse sanoakaan, kun video kertoo kaiken.

Windows-käyttäjälle voisin melkeinpä suositella Paint.NETiä.

esa94 · Post by **esa94** » Mon Jun 14, 2010 11:52 pm

Mahtaa teitä kyrsiä, täällä Linuxin puolella saa Single window moden GIMPiin :3

Post by **temu92** » Tue Jun 15, 2010 12:21 am

http://www.gimpshop.com/

esa94 · Post by **esa94** » Tue Jun 15, 2010 12:27 am

temu92 wrote:http://www.gimpshop.com/

Ei ei, se on sisäänrakennettu uusimpiin GIMPin versioihin. Vaikka tietysti GimpShop on parempi sellaisille, jotka ovat jo fotariin tykästyneet.

MrMonday · Post by **MrMonday** » Tue Jun 15, 2010 12:35 am

Heipä hei, ilmoitusasiaa sen verran, että ELÄMÄ-pelissä käytetyn median (kuvat) annan vapaaseen käyttöön, ja mikäli joku olisi kiinnostunut jatkamaan projektia, niin YV:tä minulle ja soviataan asiasta

..tai jatketaan projua vaikka yhdessä..

Awaclus · Post by **Awaclus** » Tue Jun 15, 2010 8:57 am

Grandi wrote:Monet tutut toiminnot ovat ulkoaopeteltavien näppäinyhdistelmien takana, joten tässä suhteessa ei voida ainakaan puhua helppokäyttöisyydestä. Tämän lisäksi monet asiat on toteutettu erittäin typerästi: esimerkiksi oikeanpuolimmaisesta hiirennapista ei voikaan piirtää kakkosvärillä, "kuten pitäisi", vaan siitä avautuu täysin turha valikko (joka olisi jo muutenkin siinä nenän edessä). Näin ainakin, jos ei säädä jotain asetuksia (itse en ole moisia edes löytänyt). Olen haastatellut muutamia muita GIMP-käyttäjiä asian tiimoilta, mutta hekin sanovat vain klikkaavansa ens- ja toissijaisen värin paikkoja vaihtavaa nappulaa värivalikosta, mikä on IMO turhaa pelleilyä kun vähemmälläkin olisi voinut päästä. Toisena esimerkkinä GIMPin huonoudesta voitaisiin mainita vaikka se, miten vaivalloisesti siinä toteutetaan niinkin peruskauraa oleva kuvio kuin ympyrä. Enempää ei varmaan tarvitse sanoakaan, kun video kertoo kaiken.

Miulla on käytössä Adobe Photoshop CS2, jossa on nuo samat "ongelmat", mitä en ole kokenut kuitenkaan kovin haitallisina. GIMP on hyvä ohjelma jos siihen totuttelee.

kaneli2000 · Post by **kaneli2000** » Tue Jun 15, 2010 9:27 am

Itse olen käyttänyt Gimpiä koko ajan, hyvin se on toiminut. Ehkä vaivalloinen, mutta ainakin saa haluamansa tuloksen.

jaahas · Post by **jaahas** » Wed Jun 16, 2010 2:57 pm

kyl toi gimp on ihan hyvä mut on sitä vähän vaikea käyttää. ihmettelin tässä että miten saatte noista kuvista/objekteista noihin peleihin niin sulavia et niis ei ole sellaisia neliöitä joka puolel?

Post by **temu92** » Wed Jun 16, 2010 3:09 pm

Pistä antialiasing pois ja käytä PNG kuvia JPG:n sijaan.

Kille · Post by **Kille** » Wed Jun 16, 2010 10:10 pm

Miten GIMP tallentaa PNG-kuvan?

esa94 · Post by **esa94** » Thu Jun 17, 2010 12:52 am

Kille wrote:Miten GIMP tallentaa PNG-kuvan?

Tallenna (nimellä) -> <tiedostonimi>.png

Post by **Zero** » Thu Jun 17, 2010 3:29 pm

Vähän menee offtopikiksi nyt...

Lazyanttu · Post by **Lazyanttu** » Mon Jun 21, 2010 6:52 am

Tässä tuli vähän aikaa tapettua ja tällainen keskeneräinen avaruusmättö tuli tehtyä.
Jos tämä projekti tästä jatkuu niin huomauttaisin että tässä on HYVIN alkeellinen versio, aneetaampas muutama esimerkki:
-Kaikki äänet/musiikki + osa kuvista otetta CoolBasicin valmiista tai CoolBasicin sivuilta löytyneistä lisämatskuista.
-Ei minkäänlaista tarinaa
-Ei päävalikkoa tms. Peli alkaa suoraan kun EXE:n käynnistää.
-Kun pelaaja kuolee, tulee Error joka kertoo kuolinsyyn + loppupisteet
-Liikkuminen on WAD ja Ampuu vasemmasta Ctrl:ista. Ei muita näppäimiä.
-Pelissä ei yksinkertaisesti ole ideaa, tuhotaan avaruusaluksia ja koitetaan saada pisteitä - ai niin ei niitä huippupisteitä vielä tallenneta

Ja sitten kai pitäisi sanoa jotain hyvääkin:
-Peli (ainakin pyrkii) olemaan haastava. Painovoima planeetan ympärillä keljuilee eikä osumisesta tahdo tullaa mitään. Samaan aikaan vihollisen hi-tech alukset kelluvat siellä ilman painovoiman haitallisia vaikutuksia.
-Mukana tulee Game Info - tekstitiedosto mutta siinä on pelkkiä spoilereita pelistä. Suosittelen pelaamaan ensin pari kertaa enenkuin luette.

ZIP:in löytää täältä (1 kuukauden & 2 viikon päästä poistuu):
http://up.servut.us/24002

Musta tuntuu että meni ihan oikeaan osastoon "pikkupelit", vaikkakin keskeneräinen.

EDIT: En tiedä saako tässä topikissa sitä kysyä (sille on omansa kait "Projektit" osiossa) mutta jos jollakulla sattuisi olemaan/haluaisi tehdä ääniä/musiikkia/grafiikoita tähän peliin niin otan ilomielin vastaan.
Ja tämä peli EI ole sieltä helpoimmasta päästä...

High-Score systeemiä ei vielä ole, mutta oma ennätykseni on 173 pistettä, vaikka keskimäärin pisteitä tulee vain 20-40.

TheDuck · Post by **TheDuck** » Tue Jun 22, 2010 9:25 pm

Juustopeli!

~vuosi sitten pikkuveljelleni lomaillessa tekemäni peli. Tarkoitus syödä hiirellä juustoja, mutta varo ettet syö myrkytettyjä juustoja! (Vihertyvät lähelle mennessä) Kontrollit on nuolinäppäimet, enter ja space valikoinnissa.

Mukana highscore-lista (top-3) ja lähdekoodi.

Lataa!

juustopeli.zip: Juustopeli!; (590.93 KiB) Downloaded 411 times

DJ-Filbe · Post by **DJ-Filbe** » Tue Jun 22, 2010 9:34 pm

TheDuck wrote:Juustopeli!

~vuosi sitten pikkuveljelleni lomaillessa tekemäni peli. Tarkoitus syödä hiirellä juustoja, mutta varo ettet syö myrkytettyjä juustoja! (Vihertyvät lähelle mennessä) Kontrollit on nuolinäppäimet, enter ja space valikoinnissa.

Mukana highscore-lista (top-3) ja lähdekoodi.

Lataa!
juustopeli.zip

Ihan pelattavahan tuo oli!
Jos olisi oikein tylsää niin tätähän pelaisi ihan pelaamalla.

phons · Post by **phons** » Wed Jun 23, 2010 2:20 pm

-- Dungeon Runner --

on pieni pelin alku joka käyttää minun tekemääni RANDmap-kirjastoa.. Pientä testailua siis periaatteessa.. Peli siis luo mapin ja sinne käytäviä ja huoneita randomisti, sekä alku- ja loppupisteet.. Pelissä kuljetaan pallolla ja yritettään löytää loppupiste, sen kyllä huomaa kun sen löytää. Mappeja on siis loputtomasti, koska ne luodaan satunnaisesti, eli peli ei lopu ikinä.. mappi-generaattori on vielä aika keskeneräinen, koska huoneet menevät herkästi päällekkäin..

Edit: aivan exe vielä

D :
Edit2: exejä ei voi lähettää

pakataan siis..

Koodiapina · Post by **Koodiapina** » Tue Jul 13, 2010 1:17 pm

Code: Select all

SCREEN 800,600

Type lettARR
	Field Y
	Field ____________
	Field x
EndType 

PIENI = LoadFont("arial",60)
iso = LoadFont("arial",30)

ClsColor 255,255,255

Function CREATE_____________a_newLETTAAAR(öö_mitä_hä)
llll.lettARR = New(lettARR)
llll\x = öö_mitä_HÄ

endgame:
llll\Y = Rand(60,ScreenWidth()-60)
llll\____________ = Rand(100,ScreenHeight ()-60)

For ÖÖÖ.lettARR = Each lettARR
	If llll\x = ÖÖÖ\x Then Exit 

If Distance(ÖÖÖ\Y,ÖÖÖ\____________,llll\Y,llll\____________) < 80 Then Goto endgame
	Next ÖÖÖ
	EndFunction  

	SetFont pieni
	Repeat
	
	Color cborange
	Text 100+Rand(-1,1),250+Rand(-1,1),"KLIKKAAA!"
	DrawScreen

Until MouseHit(1)

THEY_SEE_ME_ROLLIN:
SetFont pieni

For O0O0.lettARR = Each lettARR
Delete O0O0
Next O0O0

For iteraattori_jonka_tunnus_on_I_kirjain = 1 To 9
	CREATE_____________a_newLETTAAAR(iteraattori_jonka_tunnus_on_I_kirjain)
Next iteraattori_jonka_tunnus_on_I_kirjain

t4im3r = Timer()
panelu = löllötilöl+1

While (Not MIKS_MUN_KOODI_EI_TOIMI_KU_TALLENNAN_SEN) And panelu<10
	
	Color 150,150,150
	Text ScreenWidth()-TextWidth(Str((Timer()-t4im3r)/100))-30,10,(Timer()-t4im3r)/100
	
	For ____________________________________________.lettARR = Each lettARR
		If panelu > ____________________________________________\x Then Goto VAIN_ALOITTELIJAT_KÄYTTÄÄ_GOTOA_SENKIN_NOOB
		Color 0,0,0
	Box ____________________________________________\Y-32,____________________________________________\____________-32,64,64
	
	Select ____________________________________________\x
			Case 1,2,3: Color cbred
			Case 4,5,6
				Color cbdarkblue
				Case 7,8,9: Color cbpurple
				EndSelect 
				Box ____________________________________________\Y-30,____________________________________________\____________-30,60,60
				Color cbwhite
				Text ____________________________________________\Y-15,____________________________________________\____________-30,____________________________________________\x
			
				If MouseX()>____________________________________________\Y-33 And MouseY()>____________________________________________\____________-33 And MouseX()<____________________________________________\Y+33 And MouseY()<____________________________________________\____________+33
					If MouseHit(1) And panelu = ____________________________________________\x Then
					panelu = panelu + 1
					EndIf 
				EndIf 
	VAIN_ALOITTELIJAT_KÄYTTÄÄ_GOTOA_SENKIN_NOOB:
		Next ____________________________________________
		DrawScreen
	Wend 

	lopul_linen = (Timer()-t4im3r)
	
	SetFont iso
	
	ClearMouse()
	Repeat
	Color 50,50,50
	Text 200,150,"sult kesti semmone "+lopul_linen+" milli sekunttii XD"
	
	Color cborange
	Text 150+Rand(-1,1),350+Rand(-1,1),"klikkaa kokeillakses uusiks"
	DrawScreen

Until MouseHit(1)
Goto THEY_SEE_ME_ROLLIN

phons · Post by **phons** » Tue Jul 13, 2010 1:21 pm

Grandi wrote:

Code: Select all

SCREEN 800,600

Type lettARR
	Field Y
	Field ____________
	Field x
EndType 

PIENI = LoadFont("arial",60)
iso = LoadFont("arial",30)

ClsColor 255,255,255

Function CREATE_____________a_newLETTAAAR(öö_mitä_hä)
llll.lettARR = New(lettARR)
llll\x = öö_mitä_HÄ

endgame:
llll\Y = Rand(60,ScreenWidth()-60)
llll\____________ = Rand(100,ScreenHeight ()-60)

For ÖÖÖ.lettARR = Each lettARR
	If llll\x = ÖÖÖ\x Then Exit 

If Distance(ÖÖÖ\Y,ÖÖÖ\____________,llll\Y,llll\____________) < 80 Then Goto endgame
	Next ÖÖÖ
	EndFunction  

	SetFont pieni
	Repeat
	
	Color cborange
	Text 100+Rand(-1,1),250+Rand(-1,1),"KLIKKAAA!"
	DrawScreen

Until MouseHit(1)

THEY_SEE_ME_ROLLIN:
SetFont pieni

For O0O0.lettARR = Each lettARR
Delete O0O0
Next O0O0

For iteraattori_jonka_tunnus_on_I_kirjain = 1 To 9
	CREATE_____________a_newLETTAAAR(iteraattori_jonka_tunnus_on_I_kirjain)
Next iteraattori_jonka_tunnus_on_I_kirjain

t4im3r = Timer()
panelu = löllötilöl+1

While (Not MIKS_MUN_KOODI_EI_TOIMI_KU_TALLENNAN_SEN) And panelu<10
	
	Color 150,150,150
	Text ScreenWidth()-TextWidth(Str((Timer()-t4im3r)/100))-30,10,(Timer()-t4im3r)/100
	
	For ____________________________________________.lettARR = Each lettARR
		If panelu > ____________________________________________\x Then Goto VAIN_ALOITTELIJAT_KÄYTTÄÄ_GOTOA_SENKIN_NOOB
		Color 0,0,0
	Box ____________________________________________\Y-32,____________________________________________\____________-32,64,64
	
	Select ____________________________________________\x
			Case 1,2,3: Color cbred
			Case 4,5,6
				Color cbdarkblue
				Case 7,8,9: Color cbpurple
				EndSelect 
				Box ____________________________________________\Y-30,____________________________________________\____________-30,60,60
				Color cbwhite
				Text ____________________________________________\Y-15,____________________________________________\____________-30,____________________________________________\x
			
				If MouseX()>____________________________________________\Y-33 And MouseY()>____________________________________________\____________-33 And MouseX()<____________________________________________\Y+33 And MouseY()<____________________________________________\____________+33
					If MouseHit(1) And panelu = ____________________________________________\x Then
					panelu = panelu + 1
					EndIf 
				EndIf 
	VAIN_ALOITTELIJAT_KÄYTTÄÄ_GOTOA_SENKIN_NOOB:
		Next ____________________________________________
		DrawScreen
	Wend 

	lopul_linen = (Timer()-t4im3r)
	
	SetFont iso
	
	ClearMouse()
	Repeat
	Color 50,50,50
	Text 200,150,"sult kesti semmone "+lopul_linen+" milli sekunttii XD"
	
	Color cborange
	Text 150+Rand(-1,1),350+Rand(-1,1),"klikkaa kokeillakses uusiks"
	DrawScreen

Until MouseHit(1)
Goto THEY_SEE_ME_ROLLIN

Iha ok.. 4189 ms meni... toi koodi on kyllä aika.. wtf?

Knoy · Post by **Knoy** » Tue Jul 13, 2010 1:41 pm

Meni 3991. Alkuun meni jtn 4500 mut sit tajusin ruveta kattoo niit värei...

Viltzu · Post by **Viltzu** » Tue Jul 13, 2010 2:55 pm

Hieno peli Grandi

Koita nyt päihittää se mun ennätys.

3614ms. Jos sait 3623ms niin kyllä pitäs saada paremmaksi >:D

CoolBasic Forums

Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit

Re: Pikku pelit