Offtopic

Muu yhteisön välinen keskustelu.
Locked
User avatar
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Offtopic

Post by Sami345 » Sun Apr 27, 2008 4:14 pm

Muokkasin koodia, ei toimi vieläkään:

Code: Select all

<?php
							$filu = fopen("Files/vieraat.dat","r");
							$vieraat = fread($filu,filesize("Files/vieraat.dat"));
							fclose($filu);
							
							$vieraat = $vieraat + 1;
							for($numero=0; $numero == strlen($vieraat); $numero+1){
							if($numero == 0)
								echo "<img src=\"Mittari/vasen_".substr($vieraat,$numero,1).".gif\" />";
							elseif($numero == strlen($vieraat)- 1)
								echo "<img src=\"Mittari/oikea_".substr($vieraat,$numero,1).".gif\" />";
							else
								echo "<img src=\"Mittari/".substr($vieraat,$numero,1).".gif\" />";
							}
							$filu = fopen("Files/vieraat.dat","w");
							$vieraat = fwrite($filu,$vieraat);
							fclose($filu);
						?>
EDIT: Tämä topic on muuttunut minun ja grandin kaksinpuheluksi.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Offtopic

Post by Koodiapina » Sun Apr 27, 2008 4:24 pm

Vika näyttäisi olevan vieläkin For - loopin ehdossa. Eli tuo yksi rivi voitaisiin korvata tällä:

Code: Select all

for($numero=0; $numero<strlen($vieraat); $numero+1){
---

Onnittelut Pettikselle 23 vuotis syntymäpäivän johdosta! :)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

User avatar
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Offtopic

Post by Sami345 » Sun Apr 27, 2008 4:44 pm

Ei toimi vieläkään, selain jää vieläkin jumiin.

Code: Select all

<?php
							$filu = fopen("Files/vieraat.dat","r");
							$vieraat = fread($filu,filesize("Files/vieraat.dat"));
							fclose($filu);
							
							$vieraat = $vieraat + 1;
							for($numero=0; $numero<strlen($vieraat); $numero+1){
							if($numero == 0)
								echo "<img src=\"Mittari/vasen_".substr($vieraat,$numero,1).".gif\" />";
							elseif($numero == strlen($vieraat)- 1)
								echo "<img src=\"Mittari/oikea_".substr($vieraat,$numero,1).".gif\" />";
							else
								echo "<img src=\"Mittari/".substr($vieraat,$numero,1).".gif\" />";
							}
							$filu = fopen("Files/vieraat.dat","w");
							$vieraat = fwrite($filu,$vieraat);
							fclose($filu);
						?>
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Offtopic

Post by Koodiapina » Sun Apr 27, 2008 4:52 pm

Kokeile sitten tätä

Code: Select all

for($numero=0; $numero<strlen($vieraat]; $numero++){
Tämä toimii ainakin itselläni. Vika oli siinä, että $numero muuttujan arvoa ei korotettu ollenkaan.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

User avatar
Sami345
Advanced Member
Posts: 349
Joined: Fri Aug 31, 2007 4:52 pm
Contact:

Re: Offtopic

Post by Sami345 » Sun Apr 27, 2008 4:57 pm

Erittäin suuret kiitokset. Nyt sain toimimaan. Olen näköjään liian tottunut CoolBasicin tyyliin, jossa voi lisätä arvoa noin.
Projektit: Fiperus - Jäädytetty pidemmäksi aikaa.
Voitot: Viikkokisa XIII, Pikapelikisa 3, Pikapelikisa 13
http://www.sami345.tk/

User avatar
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 5:15 pm
Location: Muhos

Re: Offtopic

Post by Olwi » Mon Apr 28, 2008 7:08 pm

Eikö ole ihana avatar?
:lol:
Huuda mun ip:tä!

User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: Offtopic

Post by -Z- » Mon Apr 28, 2008 8:22 pm

Olw1 wrote:Eikö ole ihana avatar?
:lol:
Image
"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
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Offtopic

Post by Jonez » Thu May 01, 2008 12:18 pm

Oon lähössä kaverin mökille vappua viettämään. Mutta koska oon semmonen aamuvirkku, niin tylsistyin aika nopeesti ku porukoilla luonnollisesti kestää (herääminen). Koodasin huvikseni tämmösen "pelin", jossa testataan sekä reaktionopeutta, että "tietokonekirjoitustaitoja"... Omat enkat on siinä kaheksan sekunnin lukemisissa ilman virheitä..

Idea on siis seuraava: ruudulla on kopio sun näppiksen tietystä osasta (aakkoset ja -.,). Yksi niistä loistaa ja sitä näppäintä on tarkoitus painaa. Painaessa näppäin vaihtuu toiseen. Paina taas sitä jne. Kymmenen kertaa pitää painaa (tosin voihan sitä lukua muuttaa koodista), jonka jälkeen näet nopeutesi ja tarkkuutesi. Tämä ohjelma ei siis jäljittele mitään oikeita sanoja. Koodissa on tällä hetkellä aivan turhia välejä ja voi olla jopa jotain turhaa sälääkin, kun en jaksanut siihen ulkoasuun panostaa.

Code: Select all

SCREEN 1024, 768
FrameLimit 40

fFont = LoadFont( "Times New Roman", 20 )
fLarge = LoadFont( "Times New Roman", 40 )

Const SIZE = 50
Const MAX_TIMES = 10

While True
    newNbr = Rand( 16, 53 )
    If Not Restricted( newNbr ) Then Exit 
Wend
gameState = 2
Repeat
    

    If gameState <> 0 Then
        
            Color 200, 200, 200
            Box ScreenWidth() / 2 - ScreenWidth() / 4, ScreenHeight() / 2 - ScreenHeight() / 4, ScreenWidth() / 2, ScreenHeight() / 2
            Color cbWhite
            Box ScreenWidth() / 2 - ScreenWidth() / 4, ScreenHeight() / 2 - ScreenHeight() / 4, ScreenWidth() / 2, ScreenHeight() / 2, 0
               
        If gameState = 3 Then
            SetFont fFont
            
            Color cbBlack
            _message$ = "Time: " + ( loppuaika - aika# ) / 1000 + " seconds."
            _message2$ = "Mistakes: " + virheitä + " / " + ( virheitä + osumia )
            _message3$ = "Press enter to start the game... (esc to quit)"
            
            Text ScreenWidth() / 2 - TextWidth( _message$ ) / 2, ScreenHeight() / 2 - TextHeight( _message$ ) / 2, _message$
            Text ScreenWidth() / 2 - TextWidth( _message$ ) / 2, ScreenHeight() / 2 - TextHeight( _message$ ) / 2 + TextHeight("I"), _message2$
            Text ScreenWidth() / 2 - TextWidth( _message3$ ) / 2, ScreenHeight() / 2 - TextHeight( _message3$ ) / 2 + TextHeight("I") * 4, _message3$
            
            If KeyHit( cbkeyreturn ) Then
                _times = 0
                gameState = 1
                aloitusAika = Timer() + 2000
                ClearKeys()
            EndIf
        ElseIf gameState = 2 Then
            SetFont fLarge    
            Color cbBlack
            _message$ = "Press enter to start the game..."
            Text ScreenWidth() / 2 - TextWidth( _message$ ) / 2, ScreenHeight() / 2 - TextHeight( _message$ ) / 2, _message$
                
            If KeyHit( cbkeyreturn ) Then 
                aloitusAika = Timer() + 2000
                gameState = 1
            EndIf
            
        ElseIf gameState = 1
            SetFont fLarge
            Color cbBlack
            
            _tempAika = ( aloitusAika - Timer() ) / 1000
            
            If _tempAika = 1 Then 
                _message$ = "Start!"
            ElseIf _tempAika = 0 Then
                gameState = 0
                virheitä = 0
                osumia = 0
                aika# = Timer()       
            EndIf
            Text ScreenWidth() / 2 - TextWidth( _message$ ) / 2, ScreenHeight() / 2 - TextHeight( _message$ ) / 2, _message$
                
        EndIf
    EndIf
    
    SetFont fFont
    
    y = 0
    x = 0
    key = 0
    alhaalla = 0
    For a = 16 To 53
        If KeyDown( a ) Then alhaalla + 1
    Next a
     
    For i = 16 To 53

            x + 1
            If x > 14 Then 
                x = 1
                y + 1
            EndIf        
        
        If gameState = 0 Then
            If KeyDown( i ) Then key = i
    
            If KeyUp( i ) Then 
    
                If i = newNbr And alhaalla < 2 Then
                    osumia + 1
                Else
                    virheitä + 1
                EndIf
                key = 0
                While True
                    newNbr = Rand( 16, 53 )
                    If Not Restricted( newNbr ) Then Exit 
                Wend
                _times + 1
            EndIf
        EndIf
        
        If Not Restricted( i ) Then
        
            Select i
            
                Case 16
                    _txt$ = "Q"
                Case 17
                    _txt$ = "W"                
                Case 18
                    _txt$ = "E"
                Case 19
                    _txt$ = "R"
                Case 20
                    _txt$ = "T"
                Case 21
                    _txt$ = "Y"
                Case 22
                    _txt$ = "U"
                Case 23
                    _txt$ = "I"
                Case 24
                    _txt$ = "O"
                Case 25
                    _txt$ = "P"
                Case 26
                    _txt$ = "Å"
                Case 30
                    _txt$ = "A"
                Case 31
                    _txt$ = "S"
                Case 32
                    _txt$ = "D"
                Case 33
                    _txt$ = "F"
                Case 34
                    _txt$ = "G"
                Case 35
                    _txt$ = "H"
                Case 36
                    _txt$ = "J"
                Case 37
                    _txt$ = "K"
                Case 38
                    _txt$ = "L"
                Case 39
                    _txt$ = "Ö"
                Case 40
                    _txt$ = "Ä"
                Case 44
                    _txt$ = "Z"
                Case 45
                    _txt$ = "X"
                Case 46
                    _txt$ = "C"
                Case 47
                    _txt$ = "V"
                Case 48
                    _txt$ = "B"
                Case 49
                    _txt$ = "N"
                Case 50
                    _txt$ = "M"
                Case 51
                    _txt$ = ","
                Case 52
                    _txt$ = "."
                Case 53
                    _txt$ = "-"
            EndSelect 

            Color cbWhite
            
            If gameState = 0 Then
                If i = newNbr Then Color cbBlue
                If i = key then 
                    Color cbRed
                    If i = newNbr + 14 Or i = newNbr - 1 Or i = NewNbr + 1 Or i = newNbr - 14 Then
                        Color cbOrange
                    EndIf
                    If i = newNbr then Color cbGreen        
                EndIf
            EndIf
            
            Box SIZE * x + y * 10, SIZE * y, SIZE, SIZE
            Color cbBlack
            Box SIZE * x + y * 10, SIZE * y, SIZE, SIZE, 0
            Text SIZE * x + y * 10 + SIZE / 4, SIZE * y + SIZE / 4, _txt$
        
        Else
            If key = 28 Then 
                While True
                    newNbr = Rand( 16, 53 )
                    If Not Restricted( newNbr ) Then Exit 
                Wend            
                _times = 0
                gameState = 2
                ClearKeys()
            EndIf
        EndIf

    Next i
    
    Color cbWhite
    
    If _times => MAX_TIMES And gameState <> 3 Then 
        gameState = 3 
        loppuaika = Timer()
    EndIf
    DrawScreen
Forever

Function Restricted( _nbr )
    If _nbr = 27 Or _nbr = 28 Or _nbr = 29 Or _nbr = 41 Or _nbr = 42 Or _nbr = 43 Then
        Return 1
    EndIf
End Function
Edit: 6.771 ilman virheitä enkka. Edit2. W0t ei ookkaa :(. Bugi koodissa, jostain syystä pääsin läpi kaheksalla painalluksella. Eli tavallista hitaammin vedin :).
Edit3. Bugi korjattu. Ongelma oli restartissa. Laskuria ei nollattu.

Ton postin ja kolmen editin välissä oli niin pieni aika, että tää muistuttaa enemmänki jotain outoa yksinpuhelua... :)
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Offtopic

Post by Koodiapina » Thu May 01, 2008 12:59 pm

Tuohan on hieno! En tosin viitsi kertoa tulostani, koska se on huono... Sanojen kirjoittaminen olisi hauskempaa, mutta käy se näinkin :)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Offtopic

Post by Awaclus » Thu May 01, 2008 2:15 pm

Hyvää vappua!

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic

Post by esa94 » Fri May 02, 2008 11:08 pm

Löysin muuten maailman parhaan ohjelmointikielen :D
http://en.wikipedia.org/wiki/LOLCODE

Kannattaa kattoa.

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Offtopic

Post by Koodiapina » Sat May 03, 2008 12:06 am

Wanha. Tämäkin on wanha, mutta mun mielestä hauskempi :)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

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

Re: Offtopic

Post by CCE » Sat May 03, 2008 2:43 pm

Opettelinpä vääntämään flashiä, ja tässä tulos.
http://www.jouluserver.com/~cce/foo/adhdtank.swf
Mitäs sanotte?

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Offtopic

Post by Koodiapina » Sat May 03, 2008 2:51 pm

Kivan sarjakuvamainen ulkoasu, mutta pituutta saisi olla vähän enemmän. Onks toi flash muuten joku ohjelma vai ohjelmointikieli?
Last edited by Koodiapina on Sat May 03, 2008 6:47 pm, edited 1 time in total.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

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

Re: Offtopic

Post by CCE » Sat May 03, 2008 3:28 pm

Pituutta en ala tuolle lisäämään, sillä jokainen ruutu siitä on piirretty käsin joka on hyvin työlästä.
Flash MX ohjelmalla tuon tein, ohjelmahan perustuu vektorigrafiikkaan, ja siinähän niitä voi sitten piirrellä ja animoida.
Ohjelmointikin onnistuu flashin omalla ActionScript kielellä.

Szanne
Member
Posts: 50
Joined: Thu Aug 30, 2007 5:12 pm
Location: Suomi

Re: Offtopic

Post by Szanne » Sun May 04, 2008 9:43 am

Nyt kannattaa liittyä Snickers Manageriin. Pelissä on tarkoitus koota oma joukke jääkiekon MM-kisan pelaajista ja pelissä saa pisteitä, kun omat pelaajat tekevät oikeissa peleissä pisteitä. Samalla tavalla kuin liigapörssissä. Peli on samalla ilmainen. Tein myös haastesarjan CoolBasicin käyttäjille peliin ja sen kutsukoodi on 9uglw .

Ja linkki itse peliin. http://manager.snickers.fi/
2X - in English viewtopic.php?f=18&t=3057
2X - suomeksi viewtopic.php?f=11&t=3058

Olen Jop Studio vanhalta foorumilta.

User avatar
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 5:15 pm
Location: Muhos

Re: Offtopic

Post by Olwi » Sun May 04, 2008 11:58 am

CCE,todella mahtava animaatio :D

Szanne,teen just tonne tunnusta;)

"504 Gateway Time-out"
Ei rekisteröityminen onnistunut:(


Kuinka vaikeaa olisi CB:llä tehdä jääkiekkopeli?
Joko ylhäältä,sivulta, tai takaapäin(nhl-sarjan tyyliin)
Huuda mun ip:tä!

User avatar
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 12:49 pm
Location: Kemi

Re: Offtopic

Post by Myst!c » Sun May 04, 2008 7:40 pm

Olw1 wrote:CCE,todella mahtava animaatio :D

Szanne,teen just tonne tunnusta;)

"504 Gateway Time-out"
Ei rekisteröityminen onnistunut:(


Kuinka vaikeaa olisi CB:llä tehdä jääkiekkopeli?
Joko ylhäältä,sivulta, tai takaapäin(nhl-sarjan tyyliin)
Ideahan olisi helppo mutta fysiikoiden säätely olisi vaikeaa. :D

http://www.kiekko.tk

Katso tuolta ideoita. :) Voihan sitä yrittää. Kiekko on todella vaikea luultavasti saada toimimaan. :D

User avatar
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 5:15 pm
Location: Muhos

Re: Offtopic

Post by Olwi » Sun May 04, 2008 10:40 pm

Myst!c wrote:
Ideahan olisi helppo mutta fysiikoiden säätely olisi vaikeaa. :D

http://www.kiekko.tk

Katso tuolta ideoita. :) Voihan sitä yrittää. Kiekko on todella vaikea luultavasti saada toimimaan. :D
Juu,pelailen kiekkoa aina välillä.
Mitää jäkispeliä on turha yrittää edes jos ei saa siihen kunnon fysiikoita.
No,yritän jotakin;)


Kiekko.tk:ssa kiekko on mukavan "irtonainen" eli kiekon voi viedä suoraan lavasta ja se irtoaa lavasta kun yrittää liian hienoa kynää. NHL-pelisarjassa kiekko on lähes osa pelaajaa,sitä voi vaikka uittaa maalissa kesken pelin,jos se vain pysyy pelaajan lavassa.
Huuda mun ip:tä!

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic

Post by esa94 » Tue May 06, 2008 9:58 pm

Ei kukaan kaipais mihinkään projektiinsa apua? Mulla on meinaan ollut tylsää. Allekirjoituksessani on linkki, jonka tod. näk. huomaa.

Locked