Lomakisa - tuotokset

Post Reply

Kenen ilotulitus on paras?

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

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

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

Lomakisa - tuotokset

Post by Pettis »

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
Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 8:25 am

Re: Lomakisa - tuotokset

Post by Sly_Jack0 »

Tässäpä minun tuotokseni: Teh Ultimate Ilotulitus
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: Lomakisa - tuotokset

Post by Valtzu »

zHelmet
Member
Posts: 73
Joined: Mon Nov 10, 2008 3:55 pm

Re: Lomakisa - tuotokset

Post by zHelmet »

Oma tuotokseni:
- Windowed
- Fullscreen
(ps. kestää pitkään)
Pate5
Artist
Artist
Posts: 551
Joined: Tue Aug 28, 2007 4:53 pm
Location: Vantaa

Re: Lomakisa - tuotokset

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

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 »

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 
^^
Pettis
The Evil Admin
The Evil Admin
Posts: 1044
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis »

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
Pettis
The Evil Admin
The Evil Admin
Posts: 1044
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis »

Äänestys lisätty.
CB Repository .com - Sinne ne kaikki koodit menneet on!
MunVerkko - Ilmaisia foorumeita ja blogeja
Pettis
The Evil Admin
The Evil Admin
Posts: 1044
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis »

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: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Lomakisa - tuotokset

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

Last edited by valscion on Fri Jan 02, 2009 9: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
zHelmet
Member
Posts: 73
Joined: Mon Nov 10, 2008 3:55 pm

Re: Lomakisa - tuotokset

Post by zHelmet »

Taisi mavini johtua vain siitä että putpixel piirtää yli ruudun (hups) mutta itselläni tuo ei valita siitä... :shock:
Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 8:25 am

Re: Lomakisa - tuotokset

Post 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...
Pettis
The Evil Admin
The Evil Admin
Posts: 1044
Joined: Sun Aug 26, 2007 5:08 pm
Location: Rovaniemi
Contact:

Re: Lomakisa - tuotokset

Post by Pettis »

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