CoolBasic introkisa 2010

[temu92]

Hmm, mikäs on ropleema kunnei CCE:n tuotoksesta näy muuta kuin musta ruutu?

[CCE]

Hmm, mikäs on ropleema kunnei CCE:n tuotoksesta näy muuta kuin musta ruutu?

Screengamma komento on kovassa käytössä, kokeilepa vaihtaa lähdekoodista mokoma pyörimään ikkunassa jos auttaisi.

[temu92]

Testasin jo muttakun ei vaan pelitä :/

[DJ-Filbe]

Nyt ensi kertaa yritän tehdä CB:llä introesitystä... tiedän: ei tämä mikään überhyvä ole todellakaan, mutta tässä:
(jäi sitten aika tylsäksi.. noh, jokainen katselukerta on erilainen )

EDIT:

Kun säännöt eivät kiellä osallistuvan intron muokkausta (ennen osallistumisajan päättymistä), upin tänne vielä paremman version introstani.

E2: Nimettäköön introni sitten Sparta-Epilepsiaksi (thanks, Taatero!)

[Taatero]

Nyt ensi kertaa yritän tehdä CB:llä introesitystä... tiedän: ei tämä mikään überhyvä ole todellakaan, mutta tässä:
(jäi sitten aika tylsäksi.. noh, jokainen katselukerta on erilainen )

Sparta-Epilepsia? Oli ihan ok, jäi kaipaamaan värikkäitä pintoja tai gradientteja, on vähän tylsä tuo musta tausta.

[DJ-Filbe]

Nyt ensi kertaa yritän tehdä CB:llä introesitystä... tiedän: ei tämä mikään überhyvä ole todellakaan, mutta tässä:
(jäi sitten aika tylsäksi.. noh, jokainen katselukerta on erilainen )

Sparta-Epilepsia?

no jos haluat sitä siksi nimittää. loppukevennyksenä sen laitoin kun en muuta keksinyt sinne

Oli ihan ok, jäi kaipaamaan värikkäitä pintoja tai gradientteja, on vähän tylsä tuo musta tausta.

joo. Piti saada värejä sinne mutta nyt on jo vähän myöhästä.
Vai saako tuota vielä muuttaa?

EDIT:

Laitoin toisen version introsta tuonne aiempaan viestiini.

[atomimalli]

Tässähän on vielä monta päivää aikaa säätää, jos oma aikataulu sallii. Minä joudun lopettamaan etukäteen tämän homman lauantaina. Toivottavasti saan kaiken valmiiksi siihen mennessä

ps. randomizesta voi olla apua.

[Henkru]

Korjasin bugin omasta tuotoksestani. Niille joilla intro kaatu (fonttien takia) niin käykää lataamassa uudestaan. 4ever (Sama latausosoite kuin aiemmin)

[kaneli2000]

Korjasin bugin omasta tuotoksestani. Niille joilla intro kaatu (fonttien takia) niin käykää lataamassa uudestaan. 4ever (Sama latausosoite kuin aiemmin)

CAKE IS A LIE!

Ihan kiva intro kyllä, mutta liian vähän tavallista introkamaa. Hauska idea enivei :D

[MetalRain]

Hmm, mikäs on ropleema kunnei CCE:n tuotoksesta näy muuta kuin musta ruutu?

Itselläni oli sama ongelma, jonka sain korjattua muuttamalla ruudun kokoisten kuvien piirtokoordinaatteja siten ettei ne ole 0,0. Tässä koodi jolla sain toimimaan:

Code: Select all

SCREEN 640,480,0,0// POLYORBISM by cce, 16.6.2010
tasot=4
Dim bg(Tasot)
Dim pallot(tasot,1)
	Box 18, 468, 604, 9, 0
DrawScreen OFF
font=LoadFont("tahoma",42)
SetFont font
bg(0) = LoadImage("gfx\bg.png")
result=MakeImage(640,480)
mask=MakeImage(640,480)
ruutu=MakeImage(640,480)
MaskImage mask, 255, 255, 255 
valkea=MakeImage(639,479,1)
DrawToImage valkea
Box 0,0,640,480,1
DrawToScreen
CalculationStart = Timer()
brighten# = 99/(Tasot)
For i=1 To Tasot
	bg(i) = CloneImage( bg(0 ))
	DrawToImage bg(i)
	DrawImage bg(0), 0, 0
	DrawGhostImage valkea, 1, 1, 0, Int(brighten*i)
DrawToScreen
Box 18, 468, 604, 9, 0
	Box 20, 470, (i)*(600.0/tasot), 5
	DrawScreen OFF
Next i
For i=0 To tasot
	size# = 32
	pallot(i,0) = MakeImage(int(size),int(size))
	pallot(i,1) = MakeImage(Int(size),Int(size))
	DrawToImage pallot(i,0)
	Circle x#,y#,Max(2, size# - (i*((size-4)/tasot)) ),1
	DrawToImage pallot(i,1)
	Circle x#,y#,Max(2, size# - (i*((size-4)/tasot)) )*1.5,1
Next i
DrawToScreen
biisi = LoadSound("sfx/demotone.mp3")
	bpm# = 104	
	interval#=60000 / (bpm)
	songphase = 150 
Cls 
DrawScreen
Wait 600
PositionCamera 320,-240
start=Timer()
fx2# = 1
PlaySound biisi
Repeat
	aika=Timer()-start+songphase
	tahdit = ((aika/2.0) / interval) + 1 
	tahdit2 = ((aika) / interval) + 1
	fadein# = Min(1, (aika/2.0) / (interval * 15))
	fadeout# = Min(1, Max(0, (aika/2.0)-(interval * 50)) / (interval * 15))
		oldgamma# = gamma#
		gamma# = 1.0-(fadein# - fadeout#)
		If gamma<> oldgamma Then ScreenGamma -Int(gamma*255), -Int(gamma*255), -Int(gamma*255)
	If tahdit > 0 And tahdit < 17 Then
		sync# = 0
	ElseIf tahdit > 17 And tahdit < 25 Then
		sync# = 1
	ElseIf tahdit > 35 And tahdit < 50 Then
		fx2# = Min(1, (((1-(1.0-Sin( aika/17 ))/2 )*0.8)+0.2) * 2)
	ElseIf tahdit > 50 And tahdit < 67 Then
		sync# = 0
	ElseIf tahdit => 67 And tahdit < 70 Then
		Goto greetz
	EndIf
	beat# =((1-Sin( aika * (360.0/interval) )) / 2.0 ) * sync
	beat2# =( (1-Sin( (aika/2.0) * (360.0/interval) )) / 2.0 ) * sync
	DrawToImage ruutu
	DrawImage bg(0), 0, 0
	For i=1 To tasot
		DrawToImage mask
			Color cbBlack
			Box -1,0,640,480,1
			Color cbWhite
			t#=aika / 90.0
			r = Max(2, size - (i*((size-4)/tasot)) )
			For u=0 To 21
				rr# = (64+(Min(1,(1-beat2)*4))*20)
				xx3#=  valimuoto( (fadein# - fadeout#), (( Cos( ((t+u) )*16 ))), valimuoto( fx2#, Sin( t + u*16 ) * (240+beat2*32), valimuoto( (( ( 1-Sin( t*2 ) )/2.0)*0.8+0.1),(( Cos( ((t/2+u) )*16.5 )* (128-Sin((t/2)+180)* rr))  )-(r/2) , ( Cos( t*1.5+u*32 )*u-(r/2) ) )))
				yy3#= valimuoto( (fadein# - fadeout#), (( Sin( ((t+u) )*16 ))), valimuoto( fx2#, (u*999) Mod 120, valimuoto((( ( 1-Sin( t*2 ) )/2.0)*0.8+0.1),((Sin(((t/2+u))*16.5)*(128-Sin(t/2)*rr)))-(r/2) , ( Sin( t*1.5+u*16 ) *rr-(r/2) ) )))
				x# =  ( 320 + xx3 ) Mod 640
				y# = ( 240 + yy3) Mod 480
				frame=0
				If i > (tasot-2) And beat2 > 0.9 Then frame = 1
				DrawImage pallot(i,frame), x -frame*3-((r/2)*(1-(fadein# - fadeout#)))-(((r/2)*(1-fx2)))-1, y-frame*3-((r/2)*(1-(fadein# - fadeout#)))-(((r/2)*(1-fx2)))
			Next u
		DrawToImage result
			DrawImage bg(i),1,0
			DrawImage mask,1,0
		DrawToImage(ruutu)
		DrawImage result, 1, 0
	Next i
	DrawToScreen
	DrawImage ruutu, 1 ,0
	s = 32
	w = 320 / s
	h = 240 / s
	t# = Min(1, (1-beat2)*4)
	For y = 0 To h*2
	For x = 0 To w*2
		a# = GetAngle(x*s, y*s, 320, 240)
		dd# = Distance(x*s, y*s, 320, 240) 
		d# = dd# / 210
		p# = -( ((-7)-t*(-7)) * Max(0, (2-(2.0/d) )) )
		plusx# = Cos(a) * p
		plusy# = -Sin(a) * p
		If dd# > 150 Then
			CopyBox Int(x*s), Int(y*s), s, s, Int(x*s+plusx), Int(y*s+plusy), Image(ruutu), SCREEN()
		EndIf
	Next x
	Next y
	DrawScreen()
Forever
greetz:
ScreenGamma 0,0,0
info$ = "POLYORBISM|by cce|Greets|to|atomimalli|Henkru|KilledWhale|lastdear|leonarven|msqrt| "
For i=1 To CountWords(info$, "|")
	Text 320 - TextWidth(GetWord(info$, i, "|" ))/2 ,240 - TextHeight(GetWord(info$, i, "|" ))/2,GetWord(info$, i, "|" )
	DrawScreen
	s=Timer()
	Repeat
	Until Timer() > (s+577)
Next i
End
Function valimuoto( k#, a#, b# )	// arvo k kannattaa olla väliltä 0-1
	Return Float((a*(1-k)) + (b*k))
EndFunction

[phons]

Omaa kyhäelmää nimellä Phinkro, oikeastaan ei mikään varsinainen intro vaan kasa erilaisia efektejä

[Wingman]

Jeah, Yllätin, vaikkei mikään ihmeempi olekkaan:

[Viltzu]

Nyt ensi kertaa yritän tehdä CB:llä introesitystä... tiedän: ei tämä mikään überhyvä ole todellakaan, mutta tässä:
(jäi sitten aika tylsäksi.. noh, jokainen katselukerta on erilainen )

Sinulla varmaan onkin lupa käyttää tuota musiikkia? -En usko. (Kyllä sitä ei kielletä säännöissä, mutta oletkos kuullut tekijänoikeuslaista?)
Joudut vaihtamaan musiikkisi.

[DJ-Filbe]

Nyt ensi kertaa yritän tehdä CB:llä introesitystä... tiedän: ei tämä mikään überhyvä ole todellakaan, mutta tässä:
(jäi sitten aika tylsäksi.. noh, jokainen katselukerta on erilainen )

Sinulla varmaan onkin lupa käyttää tuota musiikkia? -En usko. (Kyllä sitä ei kielletä säännöissä, mutta oletkos kuullut tekijänoikeuslaista?)
Joudut vaihtamaan musiikkisi.

Selvä, minulla on varasuunnitelma. Laitan tänne toisen biisin samalla tempolla, tuli mitä tuli.

EDIT:

Noniin, ladatkaahan se vihoviimeinen versio aiemmasta viestistäni. Nyt mulla on siihen kaikki oikeudet.

[Awaclus]

Noniin! Tässä oma introni, tein sen enemmänkin omaksi harjoitukseksi kuin kisassa oikeastaan pärjäämiseksi, mutta pistän sen kuitenkin tänne (koska on jonkun hävittäväkin). Intron nimi on "intro in Orzhov colors" (ensimmäinen kirjain pienellä, ei lainausmerkkejä).

[atomimalli]

http://up.servut.us/24009.dirb6r62oe

Tässä on neliulotteinen tuotokseni Under the surfece sisältäen versiot 1.8-2.0
Pienistä vastoinkäymisistä johtuen en pysty matkustamaan ajassa, enkä siis pysty ottamaan matkalla tanskaan menevää aikaa takaisin. Jouduin viimeistelemään tämän göteborgilaisessa mäkkärissä kun myöhästyttiin laivasta

ps. Mahdollinen mavi voi johtua siitä että kuva on ghostimagelle liian iso.

Edit: win7/vistaversio korjattu. Meni viimeselle minuutille kun laivalla on vähän heikko nettipuoli :p

[kaneli2000]

http://up.servut.us/24006.uss

Tässä on neliulotteinen tuotokseni Under the surfece sisältäen versiot 1.8-2.0
Pienistä vastoinkäymisistä johtuen en pysty matkustamaan ajassa, enkä siis pysty ottamaan matkalla tanskaan menevää aikaa takaisin. Bugin ilmetessä korjatkoon pätevä yhteisön jäsen tuotokseni ja lähettäköön uuden eheän ilman sisällöllisiä eroja. Jouduin viimeistelemään tämän göteborgilaisessa mäkkärissä kun myöhästyttiin laivasta :P

ps. Mahdollinen mavi voi johtua siitä että kuva on ghostimagelle liian iso.

EPIC. Eikä minulla mitään maveja tullut.

EDIT: Saisiko musiikit .mp3, kiitos :3

[Joxi]

huhhuh. Loppu aika kesken, joten jäi vähän tönköksi. http://up.servut.us/24007.asdf

[temu92]

Atomimallin intron koodi on liian pitkä rivimäärältään, toisaalta kun tyhjät ja kommentoidut rivit poistaa niin rivimäärä laskee alle 270 joten pitäis kaippa kelvata :P

[Viltzu]

Introja ei oteta enään vastaan. Äänestys on alkanut ja löytyy täältä.