Page 1 of 1
Lomakisa - tuotokset
Posted: Fri Dec 19, 2008 2:30 pm
by Pettis
Vain Lomakisan tuotoksille,
ei keskustelua ennen vuoden vaihtumista, kiitos.
Säännöt ja ohjeet täällä:
viewtopic.php?f=14&t=1309
Re: Lomakisa - tuotokset
Posted: Sat Dec 20, 2008 1:27 pm
by Sly_Jack0
Tässäpä minun tuotokseni:
Teh Ultimate Ilotulitus
Re: Lomakisa - tuotokset
Posted: Mon Dec 22, 2008 6:23 pm
by Valtzu
Re: Lomakisa - tuotokset
Posted: Tue Dec 23, 2008 10:40 am
by zHelmet
Oma tuotokseni:
-
Windowed
-
Fullscreen
(ps. kestää pitkään)
Re: Lomakisa - tuotokset
Posted: Tue Dec 23, 2008 8:39 pm
by Pate5
Tässä oma ilotulitukseni. Tulitus sulkeutuu itsestään kun se on ohi, älä paina esciä.
Linkki
EDIT:Muistakaa vääntää äänet täysille.
Re: Lomakisa - tuotokset
Posted: Tue Dec 30, 2008 7:13 pm
by TheDuck
Oma ilotulitukseni, joka hieman epäonnistui. Hiirestä ampuu raketteja
Kaikkihan nyt itse haluaa rakettinsa ampua?
Code: Select all
SCREEN 800,600
Type Rocket
Field x#
Field y
Field tx
Field ty
Field speed
Field b
Field kulma
Field cr
Field cg
Field cb
Field style
EndType
Repeat
If MouseHit(1) Then AddRocket(400,600,MouseX(),MouseY(),Rand(3,5),Rand(1,2))
UpdateRockets()
DrawScreen
Forever
Function AddRocket(startx,starty,tox,toy,speed,style)
r.rocket = New(rocket)
r\x# = startx
r\y = starty
r\tx = tox
r\ty = toy
r\speed = speed
r\b = 0
r\kulma = 0
lol = Rand(1,6)
Select lol
Case 1
r\cr = 128
r\cg = 168
r\cb = 4
Case 2
r\cr = 255
r\cg = 255
r\cb = 0
Case 3
r\cr = 0
r\cg = 164
r\cb = 255
Case 4
r\cr = 255
r\cg = 0
r\cb = 0
Case 5
r\cr = 255
r\cg = 172
r\cb = 0
Case 6
r\cr = 253
r\cg = 167
r\cb = 171
EndSelect
r\style = style
EndFunction
Function UpdateRockets()
For ro.rocket = Each rocket
Color cbwhite
If Distance(ro\x, ro\y, ro\tx, ro\ty) > 10 Then
ro\kulma = GetAngle(ro\x#,ro\y,ro\tx,ro\ty)
ro\x = ro\x + Cos(ro\kulma)*3
ro\y = ro\y - Sin(ro\kulma)*3
Line ro\x,ro\y,ro\x + Cos(ro\kulma)*4,ro\y - Sin(ro\kulma)*4
Else
ro\b = ro\b + 6
Color ro\cr, ro\cg, ro\cb
Select ro\style
Case 1
For il = 1 To 30
Circle ro\tx + Cos(il*Rnd(12,12.5))*ro\b,ro\ty - Sin(il*Rnd(12,12.5))*ro\b,3
Next il
If ro\b > 150 Then Delete ro:Exit
Case 2
For al = 1 To 30
Dot ro\tx + ro\b * Rnd(-0.5,0.5),ro\ty + ro\b * Rnd(0.5,0.8) - Rnd(1,3)
Next al
If ro\b > 250 Then Delete ro:Exit
EndSelect
EndIf
Next ro
EndFunction
Re: Lomakisa - tuotokset
Posted: Thu Jan 01, 2009 12:21 am
by Pettis
No niin. Osallistumisaika on päättynyt ja tässä viestiketjussa voidaan keskustella vapaasti. Lisään hetkisen kuluttua äänestyksen tähän viestiketjuun.
Re: Lomakisa - tuotokset
Posted: Thu Jan 01, 2009 12:24 am
by Pettis
Äänestys lisätty.
Re: Lomakisa - tuotokset
Posted: Fri Jan 02, 2009 9:05 pm
by Pettis
Vielä on viimeiset hetket aikaa äänestää.
Re: Lomakisa - tuotokset
Posted: Fri Jan 02, 2009 9:28 pm
by valscion
Sly_Jack0:n ilotulitusta en saanut ladattua mediafiresta... zHelmetin tuotos kaatui lähes heti MAViin (tarkoitusko?) ja Pate5:nkin omien rakettien ampuminen MAVitti kun niitä raketteja tarpeeksi kerralla oli olemassa. Valtzun tuotos oli aika vaisu ja TheDuckin hieman oudohko.
Kaikki tuotokset (paitsi zHelmetin MAV-ohjelma) olivat kuitenkin hienoja ja hyviä
EDIT:Nyt sain Sly_Jack0:nkin ilotulituksen ladattua. Hieno! Mutta todelllllla laginen... FPS varmaan jossain viiden paikkeilla keskimäärin.
Nno, nyt on kaikki katsottu ja ääni annettu (:
Re: Lomakisa - tuotokset
Posted: Fri Jan 02, 2009 9:36 pm
by zHelmet
Taisi mavini johtua vain siitä että putpixel piirtää yli ruudun (hups) mutta itselläni tuo ei valita siitä...
Re: Lomakisa - tuotokset
Posted: Sat Jan 03, 2009 12:29 pm
by Sly_Jack0
OonSuomesta wrote:
EDIT:Nyt sain Sly_Jack0:nkin ilotulituksen ladattua. Hieno! Mutta todelllllla laginen... FPS varmaan jossain viiden paikkeilla keskimäärin.
Juu, tiedän että se on laginen koska koodasin sen tällä uudella koneella missä on vähän enenmmän tehoja ja se pyörii tällä suurilta osin varsin hyvin, mutta vanhalla koneella se lagaa kauheasti. Enkä sitten tietenkään älynnyt koittaa sitä sillä vanhalla ennen kuin laitoin tänne... Ois voinu vähän keventää sitä jos ois älynny...
Re: Lomakisa - tuotokset
Posted: Sun Jan 04, 2009 2:16 am
by Pettis
Ja yleisöäänestyksen perusteella parhaimman ilotulituksen teki Pate5. Onnittelut.