Pikapelikisa 3
Re: Pikapelikisa 3 ilmoittautuminen
Eikös tämän kisan pitäny alkaa 18:00? Miksei ole alkanu?
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/
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3 ilmoittautuminen
Se alkaa perjantai-iltana. Eli siis huomenna.
Re: Pikapelikisa 3 ilmoittautuminen
Mukana myös.
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Pikapelikisa 3 ilmoittautuminen
Mukana! Kisa voisi alkaa huomenna kello 18.00 ja päättyä 20.00 tai 21.00?
^^
Re: Pikapelikisa 3 ilmoittautuminen
Mukana ollaan jos koneen ääressä satun kyseisenä ajankohtana olemaan. Todennäköisesti olen jossain muualla, kun yleensä nää pienet vapaat hetket armeijan harmaista on tapana viettää hieman erilaisissa merkeissä.
Re: Pikapelikisa 3 ilmoittautuminen
Liityn en menekkään mummolleni.
Code: Select all
#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
- kaneli2000
- Guru
- Posts: 1059
- Joined: Mon Mar 17, 2008 2:40 pm
- Location: Lempäälä
Re: Pikapelikisa 3 ilmoittautuminen
Sori, mutta tuli vähän esteitä tuohon ajankohtaan, eli pitää perua osallistuminen . Ehkä sitten ensi kerralla!
I see the rainbow rising
Re: Pikapelikisa 3 ilmoittautuminen
Alkaako tämä 18?
Code: Select all
#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3 ilmoittautuminen
Kyllä. Parin minuutin kuluttua.
------------------------
------------------------
EDIT:
KILPAILU ON ALKANUT.
Säännöt:
- Peliin tulee sisältyä jokin MINIPELI. Eli vaikka palapeli tai tikanheittoa.
- Toteutuskieli CoolBasic.
- Ennen julkaistua mediaa ääniä lukuunottamatta ei saa käyttää.
- Kilpailu päättyy klo 20:00 tai kun muistan lopettaa sen eli aikaa on vähintään kaksi tuntia.
- Edellisen kilpailun kaltainen whinetys on kiellettyä ja johtaa diskaukseen.
Re: Pikapelikisa 3 ilmoittautuminen
Juu kilpailu näköjään alkanu ilmotan tähän viestiin sitte pelini mutta olisi kannattanut tehdä uusi topic kisalle.
Code: Select all
#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3
Teithän itsekin näin ensimmäisessä pikapelikisassa. Jos joka kisalle tekisi kolme topiccia, ne veisivät äkkiä paljon tilaa.
Re: Pikapelikisa 3
Tuli muuten paha aihe en keksi mitään. Niinpä taisin muuten tehdä.... En vain muistanut.
Code: Select all
#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Re: Pikapelikisa 3
Olisko mahollista saada puolituntia lisäaikaa? Teen tikanheitto peliä.
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/
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3
Ei lisäaikoja pikapelikisoihin. Siitä ärjyin jo kerran enkä muuta mielipidettäni. Rupeaa kyrsimään, kun itse tekee peliä hiki hatussa ja sitten joku vinkuu ja saa lisäaikaa. Kokemusta on.
Re: Pikapelikisa 3
Joo. Sitten en saa tätä kyllä valmiiksi, mutta ihan sama. Teen tämän silti.
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/
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3
Nyt on kulunut jo kaksi tuntia kilpailun alkamisesta. Annan vielä viisi minuuttia aikaa, jotta saadaan ehkä edes muutama peli tänne. Kukaan ei sitten itkenyt minulta tätä.
Edit: Sain idean! Vielä viisi minuuttia lisää. Jos ei sittenkään vielä tule pelejä, mukaan äänestykseen otetaan kolme ensimmäistä työnsä palauttanutta.
Edit: Sain idean! Vielä viisi minuuttia lisää. Jos ei sittenkään vielä tule pelejä, mukaan äänestykseen otetaan kolme ensimmäistä työnsä palauttanutta.
Re: Pikapelikisa 3
Mun peli:
Code: Select all
SAFEEXIT OFF
FrameLimit 60
SCREEN 400,400
ClsColor cbWhiteSkin
Type HEITETYT
Field x As Integer
Field y As Integer
EndType
Repeat
Color cbRed
valinta = Valikko("Uusi peli|Poistu",200,200,200,-1,10,1,255,255,255)
Select valinta
Case 1
i = 0
pisteet = 0
all_pisteet = 0
Repeat
i + 1
pisteet = level(i,i*5,3,i*5)
all_pisteet = all_pisteet + pisteet
Until Not pisteet
Text 0,0,"Selvisit levelliin "+i +" asti."
Text 0,13,"Sinulle kertyi "+all_pisteet+" pistettä."
DrawScreen
WaitKey
Case 2
End
EndSelect
DrawScreen
Forever
Function level(taso,max_virhe,tikat,t_pisteet)
DrawScreen
ClearKeys
Color cbBlack
Text 0,0,"Taso: "+taso
Text 0,13,"Tikat: "+tikat
Text 0,26,"Tarvitset "+t_pisteet+" pistettä voittoon."
Text 0,39,"Aloita painamalla mitä tahansa näppäintä."
DrawScreen
WaitKey
taulu = MakeImage(400,400)
DrawToImage taulu
For i = 0 To 360 Step 40
Color cbWhite
If Not i Mod 80 Then Color cbRed
Circle i/2,i/2,400-i
Next i
DrawToScreen
ClearMouse
Repeat
virhex = Rand(-max_virhe,max_virhe)
virhey = Rand(-max_virhe,max_virhe)
PositionMouse Max(Min(MouseX()+virhex,400),0), Max(Min(MouseY()+virhey,400),0)
If MouseHit(1) Then
tikka.HEITETYT = New(HEITETYT)
tikka\x = MouseX()
tikka\y = MouseY()
tikat = tikat - 1
EndIf
DrawImage taulu,0,0
Circle MouseX()-5,MouseY()-5,10
Color cbBlack
For tikka.HEITETYT = Each HEITETYT
Circle tikka\x-5,tikka\y-5,10
Next tikka
DrawScreen
If EscapeKey() Then Return 0
Until tikat = 0
For tikka.HEITETYT = Each HEITETYT
Color cbBlack
pisteet = pisteet + Max(RoundDown((220 - Distance (200, 200, tikka\x, tikka\y) ) / 20),0)
Delete tikka
Next tikka
DeleteImage taulu
Text 0,0,"Sait " + pisteet + " pistettä."
If pisteet < t_pisteet Then
Text 0,13,"Tarvitsit "+T_pisteet+" pistettä."
DrawScreen
WaitKey
Return 0
EndIf
DrawScreen
WaitKey
Return pisteet
EndFunction
Function Valikko(teksti$,x,y,w = -1,h = -1,vali=10,center = 1,r2 = 0,g2 = 0,b2 = 0,hit_type = 2,nappi = 1,nappulan_muoto=0,muoto = 0)
If h = -1 Then h = TextHeight(teksti$)+20
For i = 1 To Int(CountWords(teksti$,"|"))
If tw < TextWidth(GetWord(teksti$,i,"|")) Then tw = TextWidth(GetWord(teksti$,i,"|"))
Next i
If center Then
th = TextHeight(" ")
y = y - (Int(CountWords(teksti$,"|"))*h+(Int(CountWords(teksti$,"|"))-1)*vali)/2
x = x - w/2
EndIf
For i = 1 To Int(CountWords(teksti$,"|"))
If Painike(GetWord(teksti$,i,"|"),x,y,w,h,r2,g2,b2,hit_type,nappi,nappulan_muoto) Then palautus = i
y = y + vali + h
Next i
Select palautus
Case 0
Select muoto
Case 0
Return 0
Case 1
Return ""
EndSelect
Default
Select muoto
Case 0
Return palautus
Case 1
Return GetWord(teksti$,palautus,"|")
EndSelect
EndSelect
EndFunction
Function Painike(teksti$,x,y,w = -1,h = -1,r2 = 0,g2 = 0,b2 = 0,hit_type = 2,nappi = 1,nappulan_muoto=0)
r = getRGB(RED)
g = getRGB(GREEN)
b = getRGB(BLUE)
If w = -1 Then w = TextWidth(teksti$)+20
If h = -1 Then h = TextHeight(teksti$)+20
If MouseON(x,y,w,h,True) Then
Color Max(r - 50,0),Max(g - 50,0),Max(b - 50,0)
Select HIT_TYPE
Case 0
If MouseHit(nappi) Then klikattu = True
Case 1
If MouseDown(nappi) Then klikattu = True
Case 2
If MouseUp(nappi) Then klikattu = True
EndSelect
EndIf
Select nappulan_muoto
Case 0
Box x + 1,y + 1,w-2,h-2
Case 1
Ellipse x + 1,y + 1,w-2,h-2
EndSelect
Color r2,g2,b2
Select nappulan_muoto
Case 0
Box x,y,w,h,False
Case 1
Ellipse x,y,w,h,False
EndSelect
CenterText x+w/2,y+h/2,teksti$,2
Color r,g,b
Return klikattu
EndFunction
Function MouseON(x1,y1,x2,y2,wh = 0)
If wh Then
x2 = x1 + x2
y2 = y1 + y2
EndIf
If x1 <= MouseX() And y1 <= MouseY() And x2 >= MouseX() And y2 >= MouseY() Then Return 1
Return 0
EndFunction
EDIT:
Päivitin peliä.
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/
-
- Active Member
- Posts: 135
- Joined: Fri Mar 07, 2008 8:49 pm
Re: Pikapelikisa 3
Ääh. Ei tästä taida tulla mitään. Oliko aihe liian hankala vai eikö kukaan paitsi Sami345 jaksanut tai viitsinyt tehdä peliä?
Tarkoitus oli tehdä peli, jossa olisi minipeli sisällä. Samin peli on vain tikanheitto. Mitä olette muut mieltä, voinko julistaa hänet voittajaksi, vaikka se ei ole aivan sääntöjen mukainen? (ei kyllä sodi mitään sääntöä vastaankaan)
Tarkoitus oli tehdä peli, jossa olisi minipeli sisällä. Samin peli on vain tikanheitto. Mitä olette muut mieltä, voinko julistaa hänet voittajaksi, vaikka se ei ole aivan sääntöjen mukainen? (ei kyllä sodi mitään sääntöä vastaankaan)
Re: Pikapelikisa 3
Kyllähän tuon pelin pystyy liittämään helposti johonkin peliin mukaan minipeliksi.
EDIT:
Jos vaikka valikko on itse peli ja tikanheitto minipeli sen pelin sisällä.
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/
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Pikapelikisa 3
Kyllä Samin pitäisi saada olla voittaja vaikka mitä sääntöjä oltaisiin rikottu, sillä palautti ainoana työnsä ja pitäähän moinen vaiva palkita. Tuskin tätä kilpailua ainakaan uudestaan kannata järjestää, että eiköhän tuo olisi se järkevin ratkaisu.
OFF: Itse en edes muistanut koko pikapeliä kun tuunailin yhdeksättätoista sivupohjaa GrandiWebille, jonka nimi tulee muuten olemaan Grandisoft Computer Entertainment ;)
OFF: Itse en edes muistanut koko pikapeliä kun tuunailin yhdeksättätoista sivupohjaa GrandiWebille, jonka nimi tulee muuten olemaan Grandisoft Computer Entertainment ;)