Koodaa avatar kilpailu

Post Reply
Arska
Member
Posts: 73
Joined: Fri Aug 31, 2007 11:25 pm
Location: Iitti
Contact:

Koodaa avatar kilpailu

Post by Arska »

Koodaa Avatar Kilpailu

Säännöt:
-Järjestäjät eivät saa osallistua.
-Ei kuvia.
-Rivi rajoitus 50.
-Koodissa ei saa käyttää : merkkejä.
-Kuvassa on oltava tekijän nimi.
-Text, Print, write tai addtextia ei saa käyttää
-Rand funktiota ei saa käyttää.
-Avatarin koko Leveys: 100 pix Korkeus: 100 pix

Palkinto:
-Mainetta ja Kunniaa!
-Banneri (koko: 100x37 pix)

Töiden palautus 12.10 kello 00:00 mennessä.
Töiden äänestys topic avataan 12.10 kello 00.00, joka loppuu 15.10 kello 21:00

Onnea kilpailuun!

Järjestäjät:
Arska
Leonarven

Jos on jotain kysyttävää, kysykää tässä!
EDIT:

Palkintoihin on lisätty Banneri voittajalle.

EDIT:

Sääntö muutos! Min ja max ovat sallittuja!

Last edited by Arska on Tue Oct 02, 2007 6:44 pm, edited 2 times in total.
Image
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Koodaa avatar kilpailu

Post by koodaaja »

Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

file = OpenToRead( "kuva.txt" )
For x = 0 To 100
   For y = 0 To 100
       Color ReadInt(file), ReadInt(file), ReadInt(file)
       Dot x,y
   Next y
Next x
DrawScreen
WaitKey
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

kuvatus = LoadImage("kuva.bmp")
file = OpenToWrite("kuva.txt")
For x = 0 To 100
   For y = 0 To 100
       PickImageColor kuvatus,x,y
       WriteInt file, getRGB(RED)
       WriteInt file, getRGB(GREEN)
       WriteInt file, getRGB(BLUE)
   Next y
Next x
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.
Attachments
Ja tässäpä esimerkkikuva
Ja tässäpä esimerkkikuva
kuu-ukko_nimi.PNG (2.32 KiB) Viewed 10897 times
Arska
Member
Posts: 73
Joined: Fri Aug 31, 2007 11:25 pm
Location: Iitti
Contact:

Re: Koodaa avatar kilpailu

Post by Arska »

koodaaja wrote:Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

Koodia...
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

Koodia...
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.
Rikoit sääntöä:
-Ei kuvia.

Ohjelmassa käytetään apuna kuvaa ja säännöt kieltävät kuvien käytön. Voit vielä tehdä uuden työn.
Image
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Koodaa avatar kilpailu

Post by koodaaja »

Arska wrote:
koodaaja wrote:Veni, vidi, vici. Ja jos alatte sääntöjä muutella, syytän törkeästä panettelusta : D

Code: Select all

Koodia...
Kuvia, joita ylempi lukee, tehdään tällä erillisellä koodinpätkällä:

Code: Select all

Koodia...
Ja tämä on täysin sääntöjen, joskaan ei hyvien tapojen, mukaista.
Rikoit sääntöä:
-Ei kuvia.

Ohjelmassa käytetään apuna kuvaa ja säännöt kieltävät kuvien käytön. Voit vielä tehdä uuden työn.
Aimut, tuohan on tiedosto! .txt -sellainen. Ei mikään kuva. Toki tuo muunnin niitä käyttää, mutta siitä ei mainittu mitään. Se ei liity muuten varsinaiseen kilpailutyöhön, mutta foorumi ei hyväksy .txt -liitteitä.
User avatar
Ilmuri
Developer
Developer
Posts: 277
Joined: Sun Aug 26, 2007 2:46 pm
Location: \o

Re: Koodaa avatar kilpailu

Post by Ilmuri »

Txt-tiedosto on kuva, jos varastoit sen sisään kuvan. Miten luulet vaikkapa digikameroiden tallentamien raakakuvatiedostojen toimivan? :/
EDIT:

Ja niin joo, miksi perkeleessä min ja max on kielletty?

CoolBasic henkilökuntaa
Kehittäjä
CoolBasic Classic
Arska
Member
Posts: 73
Joined: Fri Aug 31, 2007 11:25 pm
Location: Iitti
Contact:

Re: Koodaa avatar kilpailu

Post by Arska »

Ilmuri wrote:
EDIT:

Ja niin joo, miksi perkeleessä min ja max on kielletty?

Ihan vain Haasteen vuoksi laitoimme sen Leonarvenin kanssa.
Image
atomimalli
Moderator
Moderator
Posts: 227
Joined: Wed Aug 29, 2007 3:55 pm

Re: Koodaa avatar kilpailu

Post by atomimalli »

En vielä tiedä, että osallistunko, mutta minulta minin ja maxin puuttuminen veisi koko ilon. se on yksi tärkeimmistä rivioptimoinnin elementeistä grafiikan parissa ja tässähän oli tarkoitus puristaa työ mahdollisimman pieneen kokoon.
<3 max and min :(
Arska
Member
Posts: 73
Joined: Fri Aug 31, 2007 11:25 pm
Location: Iitti
Contact:

Re: Koodaa avatar kilpailu

Post by Arska »

Voin kyllä ottaa säännön pois jos liittyminen riippuu siitä.
EDIT:

Sääntö poistettu

Image
Quru
Newcomer
Posts: 15
Joined: Tue Aug 28, 2007 8:09 pm

Re: Koodaa avatar kilpailu

Post by Quru »

Jos tiedosto sisää kuvadataa, se on kuva, oli päätteenä sitten .txt .bmp tai vaikka .rotflmao
User avatar
elmo123
Active Member
Posts: 153
Joined: Sun Sep 09, 2007 4:19 pm

Re: Koodaa avatar kilpailu

Post by elmo123 »

Oma rehellinen tekeleeni :D :

Code: Select all

imgUkko= MakeImage(64,64)
DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
    
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
    
    For angle = 160 To 20 Step -1
    
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
    
    Next angle

DrawToScreen 
Elikkä esittää surunaamaa (voihan tuon muuttaa hymynaamaks :) )
EDIT:

drawtoimage failed.
Joku pikku häiriö varmaan copypastessa. Editoin tuon MakeImagen mukaan[/edit]
Last edited by elmo123 on Mon Oct 08, 2007 2:12 pm, edited 1 time in total.
Kiinnostuin pelien tekemisestä ennen 1. luokkaa.
Sitten 3. luokalla tuli CB. Ja siitä se alkoi.

Blender! TF2! CB! Game Maker! Nokia-mollaus! Kitaransoitto! Breakdance! MadTracker! Minecraft!
User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: Koodaa avatar kilpailu

Post by -Z- »

elmo123 wrote:Oma rehellinen tekeleeni :D :

Code: Select all

DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
    
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
    
    For angle = 160 To 20 Step -1
    
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
    
    Next angle

DrawToScreen 
Elikkä esittää surunaamaa (voihan tuon muuttaa hymynaamaks :) )
Drawtoimage failed.
"Fallout 3 (#10) marked a shift in the industry, a move that saw the western RPG begin to surpass its Japanese counterparts." -IGN top 100 RPGs of all time
User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Koodaa avatar kilpailu

Post by TheDuck »

Elmon koodi toimii näin:

Code: Select all

imgUkko= MakeImage(64,64)
DrawToImage imgUkko
    Cls
    Color 0, 0, 0
    Ellipse 0, 0, 64, 64, 0

    Color cbYellow
    Ellipse 1, 1, 62, 62
   
    Color 0, 0,  0
    Circle 10, 10, 17
    Circle 42, 10, 17
   
    For angle = 160 To 20 Step -1
   
    Circle 32 + Cos(angle) * 17 - (7.0/2.0), 52 - Sin(angle) * 17 - (7.0/2.0), 7
   
    Next angle

DrawToScreen
Repeat
DrawImage imgUkko,10,10
DrawScreen
Forever 
Lisäsin loopin ja kuvan piirron.
^^
leonarven
Newcomer
Posts: 30
Joined: Sun Aug 26, 2007 4:02 pm
Location: Somewhere in Newada

Re: Koodaa avatar kilpailu

Post by leonarven »

Noniin. Kilpailuaika on päättynyt.
Tämän viestiin jälkeen lähetettyjä teoksia ei hyväksytä.

Arskan pyynnöstä minä, toisena järjestäjänä, pistän pystyyn äänestystopikin sekä lopetan tämän vanhan.

Joten, lyhemmittä puheitta, Kiitämme Arskan kanssa kaikkia osallistuja ja
kehoitamme kaikkia ihmisiä, kautta maan, äänestämään parasta koodattua avataria.

Sir Napi Von Leonarven
Post Reply