Tyhmät kysymykset (II/2009)

[Sly_Jack0]

Code: Select all

Repeat

    If Int(Chr(GetKey())) = muuttuja
        Exit
    EndIf

Forever

En sitten tiedä toimiiko.

EDIT:

Temu oli nopeempi.

[Feuer]

Saako muuten kuin käyttäjältä kysymällä selvitettyä polkua Musiikki - kansioon (vista) tai Omat Musiikkitiedostot - kansioon (XP)?

[kaneli2000]

Saako muuten kuin käyttäjältä kysymällä selvitettyä polkua Musiikki - kansioon (vista) tai Omat Musiikkitiedostot - kansioon (XP)?

Olen itse miettinyt samaa, ja ainakin XP:ssä Omat Musiikkitiedostot -kansio löytyy osoitteesta:

Code: Select all

C:/Documents and Settings/[käyttäjän nimi]/Omat tiedostot/Omat musiikkitiedostot

Eli toisin sanoen, jos jostain saa ongittua ylös käyttäjän nimen, kansioon voi mennä suoraan.

[Feuer]

Täytyy ottaa huomioon että käyttäjän järjestelmälevy ei välttämättä ole C:\ ja musiikkitiedostokansion sijainninkin voi vaihtaa

[valscion]

Saako muuten kuin käyttäjältä kysymällä selvitettyä polkua Musiikki - kansioon (vista) tai Omat Musiikkitiedostot - kansioon (XP)?

Olen itse miettinyt samaa, ja ainakin XP:ssä Omat Musiikkitiedostot -kansio löytyy osoitteesta:

Code: Select all

C:/Documents and Settings/[käyttäjän nimi]/Omat tiedostot/Omat musiikkitiedostot

Eli toisin sanoen, jos jostain saa ongittua ylös käyttäjän nimen, kansioon voi mennä suoraan.

Mutta mahdollisesti käyttäjä käyttää englanninkielistä XP:tä (kuten minä). Kannattaa käyttää googlea apuna ja lukea cbSDK:n rekisterifunktioiden avulla windowsin rekisteristä tiedot. Muista olla varovainen rekisterin kanssa - käytä mielummin vain lukufunktioita. Näin et sekoita järjestelmää.

Voit tosin käyttää myös vbs-skriptausta apunas. Tein tossa esimerkin, miten saa CB:llä VBScriptin avulla haettua omat tiedostot -kansion polun.

vbs-tapa.zip

Tässä esimerkki VBscriptin hyödyntämisestä

(739 Bytes) Downloaded 286 times

[Feuer]

Tämä palauttaa Rammsteinin Herzeleid - biisistä "Integer divided by zero" - virheen, Tarotin muutamista kappaleista "PeekByte - failed":n ja Heaven And Hellin samanniminen kappale toimii kuin unelma... Mikä tässä on ratkaiseva lenkki?

[Panzur]

Miten saan peliniini semmotteen että kun healt on 0 tai pienempi niin pelihahmo kuolee?

[JATothrim]

Miten saan peliniini semmotteen että kun healt on 0 tai pienempi niin pelihahmo kuolee?

Melkein kirjoitit vastauksesi itse. Mitä haluat tapahtuvan pelissäsi kun pelaajan hp-muuttujan arvo laskee alle yhden? Näyttää "Game Over" ?, Näyttää pistelistan? Palata kentän alkuun ja vähentää yhden elämän? Vaihtoehtoja on monia. Pelaajan "enerigiana" toimii siis tavallinen muuttuja esim. "pelaajan_energia".

Code: Select all

pelaajan_energia = 100 'asetetaan pelaajalle 100% energiat.

Repeat
	
	'tähän kaikkien laista pelin koodia...
	'vähennä "pelaajan_energia" arvoa jos pelaaja/aan osuu jotakin epäterveellistä.
	
	If pelaajan_energia < 0
		'tee jotain.. esim näytä "game over" viesti
	EndIf
Forever

PS: oli pakko kokeilla spoiller tagia.

[Tuxi]

Mitä vikaa tässä on?

Code: Select all

Dim Items(100,5)

Hettää tällaista virheilmoitusta:

Code 56
Syntax error at line 101

[Herra Siili]

Minulla menee kääntäjästä läpi että heilahtaa. Eihän tuossa näytä olevan mitään virhettä. Outoa...

[Tuxi]

Niin minullakin meni äsken läpi irrallaan, muttei siinä projektissa missä virhe alunperin tuli.

EDIT:

Virhe löytyi. Olin aikaisemmin koodissa käyttänyt samannimistä muuttujaa. Hassua vain, että tuosta syntyy Syntax error eikä MAV.

[Panzur]

Miten saan peliini Final Fantasy tyyliset vuoropohjaiset taistelut??

[Awaclus]

Miten saan peliini Final Fantasy tyyliset vuoropohjaiset taistelut??

Koodaamalla.

Edit: Jaa niin tosiaan, jos on jo ehtinyt postata uuden topicin kysymykselle, niin vaikka siitä kuinka valitettaisiin, ei sitä ainakaan kannata postata uudestaan tänne . Ja jos aloittaa uuden topicin, niin joku muu kuin "Helppiä!" voisi olla hyvä otsikko, vaikkapa "Vuoropohjainen taistelu, miten toteutan?", niin apu löytyisi ehkä helpommin, mutta sitä ei kyllä löydy, jos pyytää toisia koodaamaan puolestaan.

[Panzur]

Mitäs saan zombi pelinii 10 zombia vastustajaksi ja kun taso menee läpin niin tulee 10 enemmän kuin viimeksi?

[Awaclus]

Mitäs saan zombi pelinii 10 zombia vastustajaksi ja kun taso menee läpin niin tulee 10 enemmän kuin viimeksi?

Muuttujalla + typellä.

[phons]

Mitäs saan zombi pelinii 10 zombia vastustajaksi ja kun taso menee läpin niin tulee 10 enemmän kuin viimeksi?

Vaikka näin:

Code: Select all

zombie_amount = 10 //ekassa mapissa on vaan kymmenen

game: //täällä on peli ja tuo zombie_amount on poissa tästä looposta siksi että se on vain alussa 10 eikä joka kerta kun tätä looppia meennään
    
    Repeat
        //täällä itse peli tjs.. jne..
        If killed_zombies = zombie_amount Then Goto nextmap //zombie_amount muutuujaa ei saa pienentää tämä oikeastaan on vain zombien maximi määrä mapissa ei niiden varsinainen määrä
        DrawScreen
    Until Escapekey()
Return

nextmap:
    zombie_amount + 10 //joka kerta kun tulee uusi mappi tulee zombeja kymmenen lisää
    Goto game
Return //näitä return:eja ei tarvita täällä mutta laitan ne silti koska minusta ne selventävät koodia(subprogram looppien loppu)

[Noviisi]

Tämäkin kai kuuluu sarjaan "tyhmät kysymykset", mutta eikös tuo phonsin Zombie-esimerkki toimisi myös kutakuinkin näin:

Code: Select all

zombie_amount = 10
    
    Repeat
        If killed_zombies = zombie_amount Then Gosub nextmap
        DrawScreen
    Until Escapekey()
    End
    
nextmap:
    zombie_amount + 10
Return

[Hene]

Miten saisi tuon CB:n esimerkkikoodin hakemaan tiedostoja myös alikansioista?

Code: Select all

'Change directory to Media 
ChDir "Media"

'Prepare search 
StartSearch

    'Scan all files and print all .BMP images
    count=0
    Repeat
    
        file$=FindFile()
        
        If file$="" Then Exit 'no more files
        
        If Lower(Right(file$,4))=".bmp" Then
            Print file$
            
            count=count+1
        EndIf
    
    Forever

'End search 
EndSearch

Print "Found "+count+" files"

WaitKey

[Feuer]

Miten saisi tuon CB:n esimerkkikoodin hakemaan tiedostoja myös alikansioista?

Itse toteuttaisin sen kikkailemalla IsDirectoryn ja ChDirin kanssa.

Code: Select all

'Change directory to Media 
ChDir "Media"

'Prepare search 
StartSearch

    'Scan all files and print all .BMP images
    count=0
    Repeat
    
        file$=FindFile()
        
        If file$="" Then Exit 'no more files
        If IsDirectory(file$) Then siirry_alikansioon_ja_palaa_sieltä_kun_alikansio_on_käyty_läpi

        If Lower(Right(file$,4))=".bmp" Then
            Print file$
            
            count=count+1
        EndIf
    
    Forever

'End search 
EndSearch

Print "Found "+count+" files"

WaitKey

[phons]

Tämäkin kai kuuluu sarjaan "tyhmät kysymykset", mutta eikös tuo phonsin Zombie-esimerkki toimisi myös kutakuinkin näin:

Code: Select all

zombie_amount = 10
    
    Repeat
        If killed_zombies = zombie_amount Then Gosub nextmap
        DrawScreen
    Until Escapekey()
    End
    
nextmap:
    zombie_amount + 10
Return

Ei! Syy: jos pistät Gosub:in nextmappiin etkä ikinä lähde pois se tietää sitä että tuo zombie_amount plussaantuu koko ajan.

Edit: Oho. tosiaan se Return olikin siellä, my bad. Mutta miksi se muutuja pitäisi muka nollata? sitähä haluttiin nostaa.. ja jos se nolataan se ei koskaan varsinaisesti muutu..