Lomakisa - tuotokset

Post Reply

Kenen ilotulitus on paras?

Poll ended at Sat Jan 03, 2009 1:24 am

Sly_Jack0
5
20%
Valtzu
4
16%
zHelmet
0
No votes
Pate5
13
52%
TheDuck
3
12%
 
Total votes: 25

User avatar
Pettis
The Evil Admin
The Evil Admin
Posts: 1042
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Lomakisa - tuotokset

Post by Pettis » Fri Dec 19, 2008 3:30 pm

Vain Lomakisan tuotoksille, ei keskustelua ennen vuoden vaihtumista, kiitos.

Säännöt ja ohjeet täällä: viewtopic.php?f=14&t=1309
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja

User avatar
Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 9:25 am

Re: Lomakisa - tuotokset

Post by Sly_Jack0 » Sat Dec 20, 2008 2:27 pm

Tässäpä minun tuotokseni: Teh Ultimate Ilotulitus

User avatar
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: Lomakisa - tuotokset

Post by Valtzu » Mon Dec 22, 2008 7:23 pm


User avatar
zHelmet
Member
Posts: 73
Joined: Mon Nov 10, 2008 4:55 pm

Re: Lomakisa - tuotokset

Post by zHelmet » Tue Dec 23, 2008 11:40 am

Oma tuotokseni:
- Windowed
- Fullscreen
(ps. kestää pitkään)

User avatar
Pate5
Artist
Artist
Posts: 551
Joined: Tue Aug 28, 2007 4:53 pm
Location: Vantaa

Re: Lomakisa - tuotokset

Post by Pate5 » Tue Dec 23, 2008 9:39 pm

Tässä oma ilotulitukseni. Tulitus sulkeutuu itsestään kun se on ohi, älä paina esciä.

Linkki
EDIT:

Muistakaa vääntää äänet täysille.

CoolBasic henkilökuntaa
Graafikko

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Lomakisa - tuotokset

Post by TheDuck » Tue Dec 30, 2008 8:13 pm

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 
^^

User avatar
Pettis
The Evil Admin
The Evil Admin
Posts: 1042
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis » Thu Jan 01, 2009 1:21 am

No niin. Osallistumisaika on päättynyt ja tässä viestiketjussa voidaan keskustella vapaasti. Lisään hetkisen kuluttua äänestyksen tähän viestiketjuun.
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja

User avatar
Pettis
The Evil Admin
The Evil Admin
Posts: 1042
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis » Thu Jan 01, 2009 1:24 am

Äänestys lisätty.
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja

User avatar
Pettis
The Evil Admin
The Evil Admin
Posts: 1042
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis » Fri Jan 02, 2009 10:05 pm

Vielä on viimeiset hetket aikaa äänestää.
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja

User avatar
valscion
Moderator
Moderator
Posts: 1588
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: Lomakisa - tuotokset

Post by valscion » Fri Jan 02, 2009 10:28 pm

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 (:

Last edited by valscion on Fri Jan 02, 2009 10:44 pm, edited 1 time in total.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

User avatar
zHelmet
Member
Posts: 73
Joined: Mon Nov 10, 2008 4:55 pm

Re: Lomakisa - tuotokset

Post by zHelmet » Fri Jan 02, 2009 10:36 pm

Taisi mavini johtua vain siitä että putpixel piirtää yli ruudun (hups) mutta itselläni tuo ei valita siitä... :shock:

User avatar
Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 9:25 am

Re: Lomakisa - tuotokset

Post by Sly_Jack0 » Sat Jan 03, 2009 1:29 pm

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...

User avatar
Pettis
The Evil Admin
The Evil Admin
Posts: 1042
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis » Sun Jan 04, 2009 3:16 am

Ja yleisöäänestyksen perusteella parhaimman ilotulituksen teki Pate5. Onnittelut.
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja

Post Reply