Introkisa Joulu '11

Post Reply
User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Introkisa Joulu '11

Post by Viltzu » Thu Dec 01, 2011 5:59 pm

CoolBasic introkilpailu Joulu '11!
Alkuperäiset säännöt kirjoittanut Makesmi


Perinteisestihän introkisoja on ollut kerran vuodessa, nyt se tulee muuttumaan. Tästä eteenpäin järjestelen kisoja kaksi kertaa vuodessa.
Tämä introkisa alkaa tänään, 01.12.2011, ja loppuu 22.12 klo 21:00. Äänestys järjestetään kisan loputtua ja se päättyy 30.12 kello 21.00

Säännöt
  • koodinpituusraja 300 riviä
  • kaksoispistettä ei saa käyttää rivien yhdistämiseen
  • objekteja ja partikkelejakin saa käyttää, mutta piirtokomennot ja kuvat ovat suositus
  • ei saa olla tehty ennen kisan alkua.
  • myös tiiminä saa osallistua
  • introt on palautettava tähän topikkiin zip tai rar-pakettina taikka koodina viimeistään 22.12 kello 21.00 paikkeilla
  • paketissa täytyy olla lähdekoodi, tämän lisäksi yhteensä korkeintaan 2 Mt ääni- sekä kuvatiedostoja! Vain äänitiedostoja ja kuvia.
  • musiikkia ei ole pakko tehdä itse, sekä se saa olla tehty ennen kisaa.
  • CoolBasicin bugeja ei saa käyttää hyväksi. (Esimerkiksi Then-bugi)
  • intro ei saa hakea netistä mitään, eikä porsaanreikien keksimistä ja käyttämistä suvaita.
  • loppupeleissä minä päätän onko intro sääntöjen mukainen!
Vinkkejä:
  • efektit liikkumaan pehmeästi musan mukaan
  • eri efektien väliset vaihdokset hauskalla tavalla
  • fraktaaleilla saa hienoja efektejä helposti, pienellä koodilla ja samalla oppii rekursion käytön

Linkki kesän edelliseen introkilpailuun viewtopic.php?p=49603#p49603
Osallistumisen lisäksi kysymykset ja mielipiteet kilpailusta ovat tervetulleita.

Then-bugi: If 1 Then Print "a" Then Print "b" Then Print "c" Then WaitKey

Voittaja voi halutessaan ottaa mukaansa Humble Introversion Bundlen. Just ask for it. Mukana Uplink, Darwinia, DEFCON ja Multiwinia

Linkki seuraavaan introkisaan

Halutessasi voit tehdä bannerin voittajalle, jota hän voi käyttää allekirjoituksessaan. Voittaja voi valita bannereista sen mitä haluaa käyttää. Tekstinä "introkisa Joulu" ja vuosi 2011 jossain muodossa. Hyvä koko on esimerkiksi 80x24.
Last edited by Viltzu on Tue Jan 01, 2013 1:52 am, edited 6 times in total.

User avatar
atomimalli
Moderator
Moderator
Posts: 227
Joined: Wed Aug 29, 2007 3:55 pm

Re: Introkisa Joulu '11

Post by atomimalli » Sat Dec 03, 2011 3:45 am

Jee! Introkisoja ei kyllä ole liikaa. Vaikkei jokaiseen osallistuisikaan, niin aina siitä jotain katsottavaa syntyy.

Efekteistä voi kenties hakea inspiraatiota ja oppia.

Jos mietityttää että miten intron saa etenemään efektistä toiseen niin yksi vaihtoehto on pistää koodia pääsilmukassa vaikka ajan tarkistavan iffin sisään. Tarkan ajan millisekunteina saa timer():llä. Minä tykkään ottaa sen kierroksen alussa johonkin kivaan muuttujaan talteen, josta sitä on helppo käyttää. Toinen käyttö ajalle on vaikka asioiden liikutus tai värien muuttelu. Siitä voisinkin tehdä ehkä toimivan esimerkkikoodin:

Code: Select all

'This is your first CoolBasic program!

alkuaika=timer()
repeat
	aika=timer()-alkuaika 
	'nykyisestä ajasta pitää miinustaa alkuaika, koska timer mittaa aikaa koneen käynnistymisestä eikä ohjelman käynnistymisestä. Näin saadaan aikaan ajastin, joka alkaa nollasta ohjelman käynnistyessä.
	color aika/10 mod 255,aika/100 mod 255, aika/7 mod 255  
	'mod on jakojäännös. sillä arvo pomppaa takaisin nollaan kun siitä tulee liian iso. Väriarvojen ei kannata olla yli 255.
	box 100,100+sin(aika/10.0)*500,30,aika/100
	'sini on semmonen trigonometrinen funktio joka menee aaltona edestakaisin -1 ja 1 välillä. se tekee kokonaisen kierroksen 360:ssä, eli se menisi kolme kierrosta sekunnissa, koska millisekunnit etenevät 1000 sekunnissa. Sini kannattaa kertoa jollakin jos haluaa että se vaikuttaa enemmän kuin pikku nykimistä.
	'jos muistan oikein niin 10.0:lla jakaminen aiheuttaa vähemmän pätkintää. Millisekunnit etenevät niin nopeasti että kannattaa pienentää.
	'jos väreistä ei halua niin välkkyviä niin voi koittaa soveltaa siniä siihen. Vaikeaksi sen tekee se että sini menee myös miinukselle ja värit eivät tykkää negatiivisista arvoista.
	'kannattaa plussata siihen jotain ettei mene miinukselle ja varoa kertomasta liian isolla ettei mene yli 255.

	'tehdäämpä vielä ajastettu esiintulo ja poistuminen
	if aika>8000 and aika<16000 then
		color 123,221,50
		circle 200,200,20+sin(aika/15)*5 'pieni sinikikkailu tuossa koossa!
	endif

	drawscreen
forever
laitetaampa vielä selvyyden vuoksi sama ilman kommentteja:

Code: Select all

'This is your first CoolBasic program!

alkuaika=timer()
repeat
	aika=timer()-alkuaika 

	color aika/10 mod 255,aika/100 mod 255, aika/7 mod 255  
	box 100,100+sin(aika/10.0)*500,30,aika/100

	if aika>8000 and aika<16000 then
		color 123,221,50
		circle 200,200,20+sin(aika/15)*5
	endif

	drawscreen
forever
Täne kannattaa varmaan erilaisia vinkkejä laittaa, joista voisi olla hyötyä intron väsäykseen. Vaikkapa kertoimien laskemisesta musiikkiin synkkaavaksi tai että mistä voisi löytyä musiikkia jota saa käyttää

User avatar
Wingman
Devoted Member
Posts: 594
Joined: Tue Sep 30, 2008 4:30 pm
Location: Ruudun toisella puolella

Re: Introkisa Joulu '11

Post by Wingman » Sat Dec 03, 2011 4:11 am

Innostuinpas minäkin, ja tein esimerkin musiikin synkkauksesta;

synkkaus toimii siis niin, että aika jaetaan iskujen välillä (millisekunteina). .xm tiedostoissa ja muissa tracker formaateissa nopeus on kahtena lukuna,
SPD ja BPM. silloin väli=60000/bpm korvataan lauseella väli=(spd*60/(bpm*24)*1000

Code: Select all

'This is your first CoolBasic program!
start=Timer()		'otetaan alkuaika, Timer() antaa ajan koneen käynnistyksestä, muttei ohjelman
bpm=120 			'tähän biisin bpm
väli=60000/bpm      'tällä saadaan iskujen väli millisekunneissa
		'jos biisisi ON .xm tiedosto (tai muu tracker-formaatti) niin nopeus ilmoitetaan kahdella muuttujalla
		'spd ja bpm. silloin; väli=(spd*60)/(bpm*24)*1000, muuten kaikki toimii samalla tavalla
Repeat
	aika=Timer()-start		'tämä pitää koodin ajan tasalla
	wisku=iskut				'tämän avulla voidaan katsoa, muuttuuko iskut-muuttuja framen aikana
	iskut=(aika/väli)/2		'tämä muuttuja näyttää kuinka mones isku menossa; kätevää.
	puoli_wisku=puoli_isku
	puoli_isku=(aika/väli)	'iskujen tiheyttä voi muuttaa, esim. iskut=(aika*2/väli) tai (aika*4/väli) tai (aika/väli)/4 
							
	If iskut<>wisku Then 	'tarkistetaan onko isku tapahtunut ja leikitään hieman
		c#=255
	Else
		c#=CurveValue(0,c,20)
	EndIf 
	If puoli_isku<>puoli_wisku Then 	'tarkistetaan onko isku tapahtunut ja leikitään hieman
		c2#=255
	Else
		c2#=CurveValue(0,c2,20)
	EndIf 
	
	Color c,c,c2
	Box 0,0,400,300
	Color 255-c,255-c,255-c2
	Text 0,0,iskut
	Text 0,12,puoli_isku
	DrawScreen 
Forever 
EDIT: Huomasin, että väli-muuttujan kaksi kaavaa antavat eri arvoja, väli=(spd*60)/(bpm*24)*1000 antaa moduulin yhteen riviin kuluvan ajan, kun taas väli=60000/bpm antaa iskujen välisen ajan.
- - - -

User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Introkisa Joulu '11

Post by Viltzu » Tue Dec 20, 2011 5:51 pm

Tämä ja huominen ja ylihuominen päivä aikaa tehdä/viimeistellä/palauttaa tuotos.

User avatar
Timblex
Advanced Member
Posts: 252
Joined: Sun Apr 11, 2010 10:37 am
Location: Kouvola

Re: Introkisa Joulu '11

Post by Timblex » Thu Dec 22, 2011 7:45 pm

Ensimmäinen introni jonka olen koskaan tehnyt. :)
XmasIntro2011
Entinen timpe99...
Demokisa 2013 demo valmis, Check it out!

User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Introkisa Joulu '11

Post by Viltzu » Thu Dec 22, 2011 8:27 pm

Jos kellään ei ole mitään asiaa vastaan, laitan introt sivutilaani kapsilla, josta ne voidaan ladata. Introjen säilymisen vuoksi, viime kisan introjakin on jo kadonnut alkuperäisistä uppipaikoistaan. Jos et halua introasi laitettavan sivutilaani, ilmoitathan siitä. Introjen säilytys tapana julkisesti näkyvä, jossa listaus introista. (Hakemisto siis vain tyyliin /cbintrot/vuosi/) Laitan sinne sitten myös viime vuosien introja kunhan kerkeän.

Kisan loputtua järjestän äänestyksen sen jälkeen kun olen käynyt introt läpi ja uppinut ne sekä kun kerkeän.

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Introkisa Joulu '11

Post by CCE » Thu Dec 22, 2011 10:00 pm


User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Introkisa Joulu '11

Post by Viltzu » Thu Dec 22, 2011 10:32 pm

Joo jaa kisa päättynyt on. Järjestelen äänestyksen kohta puoliin.

Post Reply