Viikkokisa - Quindecim

[JATothrim]

Viikkokisa on tullut takaisin! Tällä kerralla Aiheena on "Koodaa pelin päävalikko"

Muutamia sääntöjä:
- Aikaisempaa koodia EI SAA käyttää, vaikka en voikkaan valvoa tätä.
- Median on mahduttava 2 Mt tilaan ! ( Exe lasketaan mukaan, tiedätte kyllä miksi )
- Sorsat pakettiin mukaan, kun työtä palautetaan arkistoksi pakattuna! ( ei mitään mielellään exsootista tavaraa kiitos. )
- Koska valikon tekeminen luulisi olevan koht helppoa, tehkää systeemistänne uudelleen käytettäviä! Kiinnittäkää huomiota myös koodin ulkoasuun.

Kisa alkaa kun osallistujia on ainakin kolme, ja kisa kestää TASAN VIIKON, ei yhtään kauempaa. Töiden on oltava palatutettu tuolloin, tai voi voi.

EDIT:

Listaapa kolme arvostelu pistettä:
-Animaatiot, -Käyttäjä ystävällisyys ja -Efektit.
Nämä toteuttamalla 100% voi arvosanakin kavuta samoihin lukemiin , mutta koska aihe ja tyyli on vapaa, ovat nämä ns. pohjapisteitä.

EDIT:

Kisa on päättynyt! - Äänestäkää Voittaja.

[Viltzu]

Miksi .zip? Jos johtuu siitä, että sinulla ei ole ohjelmaa joka avaisi .rar tiedostoja, niin hanki sellainen. (En muista, mutta joku sanoi, että ei toiminut winrar ja 7-zip, olitko se sinä? )

[JATothrim]

En, pistin vain koska tuo on yleisin pakkausmuoto minkä tiedän. Itellä on kyllä juuri tuo 7-Zip, plus nämä: Tug-Zip ja IZArc2Go eli kyllä aukeaa paketit. Taidan editoida tuon tiedostomuodon pois nois säännöistä.. Niin ja: Kisaan osallistujien olisi hyvä ilmoittaa tässä ketjussa ollaanko mukana, muutenhan kisa ei ala koskaan! Joku voisi myös suunnitella jonkin palkinnon tähän, niin voisi kinastella myös palkinnon omistamisesta.

[Koodiapina]

Mukana.

Ja tässä palkintosignaturekuva:


EDIT: Onkohan liian iso? :o

[Ris]

Mukana olen.

[KilledWhale]

Mukana myös

[CCE]

Joo kyllä minäkin jotain raapaisen mukaan.

[MAVmaggot]

Osallistun.

[nevssons]

Osallistun ja valikko on jo lähes valmis

[JATothrim]

Ehh.. Grandin tekemä palkinto banneri oli minusta vähän arvelluttavan näköinen ( ei pahalla, Grandi ) joten tein itse toisen:

Voittaja saa valita näistä jomman kumman.

[nevssons]

Noniin! Pikaisesti tehty valikkoni

[-Z-]

Noniin! Pikaisesti tehty valikkoni

Mikäs taikanäyttö sinulla on, kun voi näyttää 400,300 fullscreeninä?

Itse valikosta (sorsan muokkauksen jälkeen): Nättihän se oli, mutta todella epäkäytännöllinen.

[nevssons]

Noniin! Pikaisesti tehty valikkoni

Mikäs taikanäyttö sinulla on, kun voi näyttää 400,300 fullscreeninä?

Itse valikosta (sorsan muokkauksen jälkeen): Nättihän se oli, mutta todella epäkäytännöllinen.

Minkä kokoinen pitäisi olla? Se on fullscreeninä koska Screen gamma ei toimi ilman sitä.
btw minun näyttöni on sellainen widescreen

[Viltzu]

No olipas tylsää, joten väsäsinpäs yksinkertaisen, mutta siistin valikon.

Code: Select all

Const V1 = "Aloita peli"  //Valinta 1 teksti
Const V1X = 150  //Valinta 1 tekstin X-suunta 
Const V1Y = 70  //Valinta 1 tekstin Y-suunta

Const V2 = "Ohjeet" //Valinta 2 teksti
Const V2X = 150  //Valinta 2... X
Const V2Y = 90  //Valinta 2... Y

Const V3 = "Lopeta"  //Valinta 3 teksti
Const V3X = 150  //X
Const V3Y = 110  //Y

Const V1R = 255 : Const V1G = 0 : Const V1B = 0 //Valinta 1 tekstin väri, kun hiiri on tekstin päällä. RGB
Const V2R = 0 : Const V2G = 255 : Const V2B = 0 //Valinta 2 tekstin väri, kun hiiri on tekstin päällä. RGB
Const V3R = 0 : Const V3G = 0 : Const V3B = 255 //Valinta 3 tekstin väri, kun hiiri on tekstin päällä. RGB

Const V1Re = 125 : Const V1Ge = 0 : Const V1Be = 0 //Valinta 1 tekstin väri, kun hiiri ei ole tekstin päällä. RGB
Const V2Re = 0 : Const V2Ge = 125 : Const V2Be = 0 //Valinta 2 tekstin väri, kun hiiri ei ole tekstin päällä. RGB
Const V3Re = 0 : Const V3Ge = 0 : Const V3Be = 125 //Valinta 3 tekstin väri, kun hiiri ei ole tekstin päällä. RGB

Const V1Rs = 255 : Const V1Gs = 0 : Const V1Bs = 0 //Valinta 1 spiraalin väri kun klikataan. RGB
Const V2Rs = 0 : Const V2Gs = 255 : Const V2Bs = 0 //Valinta 2 spiraalin väri kun klikataan. RGB
Const V3Rs = 0 : Const V3Gs = 0 : Const V3Bs = 255 //Valinta 3 spiraalin väri kun klikataan. RGB


angle=1
Repeat
    If MouseX()>V1X And MouseX()<V1X+TextWidth(V1) And MouseY()>V1Y And MouseY()<V1Y+TextHeight (V1) Then
        Color V1R,V1G,V1B
        Text V1X,V1Y,V1
        If MouseHit(1) Then
            Cls
            While angle>0
                If ak=0 Then 
                    Color V1Rs,V1Gs,V1Bs //Pyörimis härpäkkeen väri
                    angle+3
                ElseIf ak=1 Then
                    Color 0,0,0
                    angle-3
                EndIf 
               
                Line 200,150, 200+Cos(angle+90)*250, 150-Sin(angle+90)*250 
                Line 200,150, 200-Cos(angle+90)*250, 150+Sin(angle+90)*250
                Line 200,150, 200+Cos(angle)*250, 150-Sin(angle)*250
                Line 200,150, 200-Cos(angle)*250, 150+Sin(angle)*250
                If angle>92 Then ak=1
                DrawScreen OFF //Jooh...
            Wend
            angle=1
            ak=0
            MakeError "Memory access violation"
        EndIf
    Else
        Color V1Re,V1Ge,V1Be
        Text V1X,V1Y,V1
    EndIf 
    
    If MouseX()>V2X And MouseX()<V2X+TextWidth(V2) And MouseY()>V2Y And MouseY()<V2Y+TextHeight (V2) Then
        Color V2R,V2G,V2B
        Text V2X,V2Y,V2
        If MouseHit(1) Then
            Cls
            While angle>0
                If ak=0 Then 
                    Color V2Rs,V2Gs,V2Bs //Pyörimis härpäkkeen väri
                    angle+3
                ElseIf ak=1 Then
                    Color 0,0,0
                    angle-3
                EndIf 
               
                Line 200,150, 200+Cos(angle+90)*250, 150-Sin(angle+90)*250 
                Line 200,150, 200-Cos(angle+90)*250, 150+Sin(angle+90)*250
                Line 200,150, 200+Cos(angle)*250, 150-Sin(angle)*250
                Line 200,150, 200-Cos(angle)*250, 150+Sin(angle)*250
                If angle>92 Then ak=1
                DrawScreen OFF //Jooh...
            Wend
            angle=1
            ak=0
            MakeError "Öh? Mihin tarvit ohjetta?"
        EndIf
    Else
        Color V2Re,V2Ge,V2Be
        Text V2X,V2Y,V2
    EndIf 
    
    If MouseX()>V3X And MouseX()<V3X+TextWidth(V3) And MouseY()>V3Y And MouseY()<V3Y+TextHeight (V3) Then
        Color V3R,V3G,V3B
        Text V3X,V3Y,V3
        If MouseHit(1) Then
            Cls
            While angle>0
                If ak=0 Then 
                    Color V3Rs,V3Gs,V3Bs //Pyörimis härpäkkeen väri
                    angle+3
                ElseIf ak=1 Then
                    Color 0,0,0
                    angle-3
                EndIf 
               
                Line 200,150, 200+Cos(angle+90)*250, 150-Sin(angle+90)*250 
                Line 200,150, 200-Cos(angle+90)*250, 150+Sin(angle+90)*250
                Line 200,150, 200+Cos(angle)*250, 150-Sin(angle)*250
                Line 200,150, 200-Cos(angle)*250, 150+Sin(angle)*250
                If angle>92 Then ak=1
                DrawScreen OFF //Jooh...
            Wend
            angle=1
            ak=0
            End
        EndIf
    Else
        Color V3Re,V3Ge,V3Be 
        Text V3X,V3Y,V3
    EndIf 
    
DrawScreen
Forever

Enkä maininnut, että koodi olisi kovin siistiä.. Mutta onhan sekin? xD

EDIT:

Jos haluat muuttaa tekstejä/muuta niin ne onnistuvat vakioista, mutta jos haluat enemmän valintoja niin se onnistuu copy/paste/edit -tyylillä xD
Edit2:
Huomatkaa sitten rivi 51
Edit3:
No korjataanpas se kirjoitusvirhe sieltä :/

[JATothrim]

Muistaakseni säännöissä ei kielletä minun osallistumista kisaan, joten tässä valikkoni. PS: yrittäkääpä pistää paremmaksi!

[axu]

No olipas tylsää, joten väsäsinpäs yksinkertaisen, mutta siistin valikon.

Code: Select all

koodia..

Enkä maininnut, että koodi olisi kovin siistiä.. Mutta onhan sekin? xD

EDIT:

Jos haluat muuttaa tekstejä/muuta niin ne onnistuvat vakioista, mutta jos haluat enemmän valintoja niin se onnistuu copy/paste/edit -tyylillä xD
Edit2:
Huomatkaa sitten rivi 51, " MakeError "Memory acces violation" " Eli MAV ei ole oikea

Ei toimi, heitti MAVia ja sitten windows sanoo että tapahtu virhe ja ohjelma on suljettava Häiritsevintä oli kuitenkin tämä: "Memory acces violation" kun siinä pitäisi olla "Memory access violation"!

Dark Code, vaikkei sitä olisi(ja minun muistaakseni oli) kielletty, niin voisi järjellä päätellä, että kilpailun pitäjä ei itse ole kisassa osallistujana. Ei tarvitse välittää mun mielipiteestä, en ole osallistumassa(ei jaksa, olisi laajempi aihe)

[nevssons]

Dark Code, vaikkei sitä olisi(ja minun muistaakseni oli) kielletty, niin voisi järjellä päätellä, että kilpailun pitäjä ei itse ole kisassa osallistujana. Ei tarvitse välittää mun mielipiteestä, en ole osallistumassa(ei jaksa, olisi laajempi aihe)

Sehän kiellettiin epävirallisesti kun minä päätin osallistua omaan kisaani.

[JATothrim]

Tämän takia ajattelin pitää julkisen äänestyksen. Mutta jos en saakkaan osallistua pitää koota tuomarit paikalle. Vai että epävirallisesti? No kokeillaampa nyt uudestaa, kun ei löydy virallisista säännöistä. Niin ja: Kaksi päivää aikaa jäljellä!

[Ris]

Tässäpä tulevan pelini valikko. Screenshotti valikosta: http://img241.imageshack.us/img241/2374/scrmenudo5.png

Offtopic:

Näin offina mainittakoon että tulevassa pelissä on satunnaisgeneroituvat kartat, toistaiseksi generointi
systeemi osaa generoida vain käytäviä. Siitä screenshotti: http://img512.imageshack.us/img512/5955/scrshottx9.png

Ontopic:

Niin ja on tässä valikossa muutama turha ominaisuuskin, mutta tulipahan tehtyä nekin.
Valikkoni on aika perinteinen hiirivalikko. Pakettien sisällöllä ei ole eroja, kunhan laitoin pakkauksen 2 tavalla. Lataus tästä.

[Jani]

Miksi .zip? Jos johtuu siitä, että sinulla ei ole ohjelmaa joka avaisi .rar tiedostoja, niin hanki sellainen. (En muista, mutta joku sanoi, että ei toiminut winrar ja 7-zip, olitko se sinä? )

minä se olin.