Page 1 of 1

Lomakisa - tuotokset

Posted: Fri Dec 19, 2008 3: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 2:27 pm
by Sly_Jack0
Tässäpä minun tuotokseni: Teh Ultimate Ilotulitus

Re: Lomakisa - tuotokset

Posted: Mon Dec 22, 2008 7:23 pm
by Valtzu

Re: Lomakisa - tuotokset

Posted: Tue Dec 23, 2008 11:40 am
by zHelmet
Oma tuotokseni:
- Windowed
- Fullscreen
(ps. kestää pitkään)

Re: Lomakisa - tuotokset

Posted: Tue Dec 23, 2008 9: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 8:13 pm
by TheDuck
Oma ilotulitukseni, joka hieman epäonnistui. Hiirestä ampuu raketteja :D 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 1: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 1:24 am
by Pettis
Äänestys lisätty.

Re: Lomakisa - tuotokset

Posted: Fri Jan 02, 2009 10:05 pm
by Pettis
Vielä on viimeiset hetket aikaa äänestää.

Re: Lomakisa - tuotokset

Posted: Fri Jan 02, 2009 10: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 10:36 pm
by zHelmet
Taisi mavini johtua vain siitä että putpixel piirtää yli ruudun (hups) mutta itselläni tuo ei valita siitä... :shock:

Re: Lomakisa - tuotokset

Posted: Sat Jan 03, 2009 1: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 3:16 am
by Pettis
Ja yleisöäänestyksen perusteella parhaimman ilotulituksen teki Pate5. Onnittelut.