Pikapelikisa 20

[Koodiapina]

Pikapelikisa 20

Säännöt

• Kilpailuaika on perjantaina 18:00-20:00 (2 tuntia) ja työn tulee olla kisatopicissa viimeistään kello 20:10.
• Pelipaketissa tulee olla mukana pelin lähdekoodi.
• Toteutuskieli CoolBasic.
• Ennen kilpailua luotua mediaa tai koodia ei saa käyttää.

Aihe

Pelin tulee mainostaa jollain tapaa Suomea ja suomalaisuutta.

EDIT: Foorumin kellot elävät näemmä omaa aikaansa, mutta ne eivät vaikuta nyt tämän kilpailun aikatauluun.

[MAVmaggot]

Miksi 2 tuntia, eikös puhuttu 3-4:stä? Tämä on oikeasti surkean pieni aika, ei ehdi tekemään mitään kunnollista.

[Koodiapina]

Miksi 2 tuntia, eikös puhuttu 3-4:stä?

Pidän itse tästä perinteisestä, joka on hyväksi havaittu.

Tämä on oikeasti surkean pieni aika, ei ehdi tekemään mitään kunnollista.

Kyllä se voittaja näinkin selviää.

EDIT: Viltzu muuten tekee tälle äänestyksen, kun itselleni tuli juuri menoa.

[Sami345]

Tuli sellanen aihe, että en taida osallistuu. Ei keksi vaan mitään.

[TheDuck]

Code: Select all

Repeat
	Color cbwhite
	Text 1,1,"Su"
	Text 1+24,1,"mirlz"
	Text 1,1+27,"Su"
	Text 1+24,1+27,"mirlz"
	Color cbblue
	Text 1+16,1,"o"
	Text 1+16,1+27,"o"
	Text 1,14,"Suomirlz"
	DrawScreen
Forever 

Suomi ruleZ!

[Sami345]

Pitihän tähän jotain tehdä. Joten:

Code: Select all

SCREEN 250,150
Repeat
	i = Min(i + 1,230)
	Color cbWhite
	Line 225,0,225,150
	If i < 100 Then
		a=i
		Text 0,0,"Suomalainen johtaa!"
	ElseIf i = 230
		Text 0,0,"Suomalainen voitti!"
		Text 0,13,"Ruotsalainen hävisi!"
	ElseIf i > 150
		a = i - 50
		Text 0,0,"Suomalainen korjasi sen!"
	Else
		a = 100
		Text 0,0,"Suomalaisen auto hajosi!"
	EndIf
	Color cbBlue
	Circle a,20,50
	Color cbYellow
	Circle i/2,80,50
	DrawScreen
Forever

[Viltzu]

No joo. Piti minun osallistua ihan kunnon tuotoksella tähän, mutta en sitten jaksanut tehdä mitään über coolia peliä. Mutta on tässä jotain.
http://viltzu.jouluserver.com/Suomi.exe

[Sami345]

No joo. Piti minun osallistua ihan kunnon tuotoksella tähän, mutta en sitten jaksanut tehdä mitään über coolia peliä. Mutta on tässä jotain.
http://viltzu.jouluserver.com/Suomi.exe

Rikoit sääntöjä, sinulla ei ole lähdekoodia mukana tuossa.

[koodaaja]

Mielestäni on varsin epämääräistä, että Grandi järjestää kisan (lainaamatta m1c:n viestiä, kuten hää pyysi) , muuttaa m1c:n ehdotusta kilpailuajan suhteen (lähes kaikki näihin osallistuneet ovat muutenkin halunneet väh. 3 tunnin aikoja, se on vaan paljon kivempi kuin 2) eikä ole edes paikalla äänestystä laittamassa.

[skinkken]

Tässä oma tuotokseni:

Code: Select all

SCREEN 640,480


AddText "Piirrä suomen lippu."
AddText "Hiiren vasemmasta napista saat valkoista ja oikeasta napista sinistä."
AddText "Klikkaamalla rullaa voit aloittaa alusta."
AddText "Kun kuvasi on valmis, paina spacea"
AddText ""
AddText "Paina enter..."

DrawScreen
WaitKey

ClearText

kuva=MakeImage(640,480)
gamma=MakeImage(640,480)
ShowMouse OFF
Repeat
Color 100,100,100
Circle MouseX(),MouseY(),15,15

If MouseDown(1) Then
    DrawToImage kuva
    Color 255,255,255
    Circle MouseX(),MouseY(),15
    DrawToScreen
EndIf

If MouseDown(2) Then
    DrawToImage kuva
    Color 0,0,255
    Circle MouseX(),MouseY(),15
    DrawToScreen
EndIf


If MouseHit(3) Then
    DrawToImage kuva
    Color 0,0,0
    Box 0,0,640,480
    DrawToScreen
EndIf


If KeyHit(cbkeyspace) Then Goto loppu

DrawImage kuva,0,0
Color 100,100,100
Circle MouseX(),MouseY(),15,15

DrawScreen
Forever

loppu:

FrameLimit 40

lippu(MouseX()-80,MouseY()-65)
Color 0,0,255
AddText "Tällainen sen oöisi pitänyt olla!"
lippu(paikka,200)
paikka=-200
Repeat
paikka+10
lippu(paikka,200)
If paikka>260 Then DrawScreen:Wait 4000:Goto poppo
DrawScreen
Forever
poppo:
ClearText

AddText "!!!  S U O M I    O N    P A R A S  !!!"
Repeat
lippu(MouseX(),MouseY())
DrawScreen
Forever
Function lippu(x,y)
    
    Color 255,255,255
    Box x,y,190,130
    Color 0,0,255
    Box x,y+45,190,40
    Box x+50,y,40,130
    
EndFunction

[rami123]

eli Suomi tahtoo olla suomi

EDIT:

Tiedosto ei ole enään ladattavissa..

[CCE]

Tässä peli http://up.servut.us/14102

Edit: Kysessä on siis kertomus perisuomalaisesta asenteesta syvällä Lapin erämaassa ihmisyyden rajamailla.