Ongelma goton kanssa

[-Z-]

Eli saisiko tällaista koodia mitenkään toimimaan:

Code: Select all

Repeat
    Color cbdarkgreen
    CenterText 200,50,"CONSOLE"
    Locate 150,150
    paikka$ = Input(">")
Until KeyHit(cbkeyReturn)
Goto paikka$

Nyt herjaa tietysti, ettei 'paikka$' -nimistä labelia ole olemassakaan. Apuja?

[TheFish]

Voisit tietysti tehdä select viritelmän.

Code: Select all

select paikka$
   case "paikka 1"
      goto PAIKKA1
   case "paikka 2"
      goto PAIKKA2
   default
      print "Paikkaa ei ole olemassa"
end select

[tuhoojabotti]

Sinun täytyy pistää sinne paikka1:, paikka2:,jne... jotta goto toimii esim

Code: Select all

Repeat
If KeyHit(cbkeyreturn) Then Goto paikka2
DrawScreen
Forever 

paikka2:
Print "lol nyt se toimii!"
WaitKey

[Vieras_Elmo123]

näin:

Code: Select all

         Repeat
            Color cbdarkgreen
            CenterText 200,50,"CONSOLE"
            Locate 150,150
            'Kokeile laittaa vaikka hugabuga
            paikka$ = Input(">")
            DrawScreen
        Until KeyHit(cbkeyReturn)
        g = OpenToWrite("juttu.cb")
        WriteLine g,"Goto "+paikka$
        CloseFile g
        If FileExists("juttu.cb") Then 
        Include "juttu.cb"
        EndIf
        'Täällä ei enää olla...
        MakeError "Tämä error ei ikinä pomppaa"

        hugabuga:
        MakeError "Onnistunut CB-ajo"

jos tulee error "Tämä error ei ikinä pomppaa" niin minä olen George W.Bush

[-Z-]

Juu, kiitos vaan kaikille. Fishin zydeemiä vähän huono käyttää, kun teen teksipeliä, ja tuolla olisi tarkoitus päästä minne vaan Täytynee käyttää elmon (HIEMAN purkahtavaa) Viritystä

[Marcoder]

Elmon viritys sattuu olemaan sen laatuista purkkaa ettei se edes voi toimia!
Include sisällytetään ohjelmakoodiin jo käännösvaiheessa eikä suinkaan ajonaikaisesti.

[TheFish]

Mitä tarjoitat tuolla "olisi takoitus päästä minne vaan"?
Jos tarkoitat, että mille riville tahansa, niin sehän ei taida onnistua mitenkään.
Jos taas tarkoitat, että mihin osioon (esim koti, kauppa, yms) tahansa, niin silloin sinulla pitää kuitenkin olla ne labelit kaikkialla mihin voi mennä, joten omassa systeemissäni ei pitäisi olla mitään vikaa (laitat vain oikeat labelit siihen ja teet siitä funktion).
Tietysti funktioitahan siinä kannattaisi käyttää muutenkin.

[-Z-]

Nojaa, no joo. Meinasin vaan sitä, että kun tekstipeliä teen, niin paikkoja tulisi olemaan runsaasti. Tuossa siis on vaan aika paljon vaivaa listata kaikki paikat sinne x3 Mutta jos kukaan ei keksi nokkelampaa systeemiä, niin kiitos tästä.

[otto90x]

Nojaa, no joo. Meinasin vaan sitä, että kun tekstipeliä teen, niin paikkoja tulisi olemaan runsaasti. Tuossa siis on vaan aika paljon vaivaa listata kaikki paikat sinne x3 Mutta jos kukaan ei keksi nokkelampaa systeemiä, niin kiitos tästä.

Tee niistä paikoista tyyppikokoelma, niillä sitten voi olla field(e)inä kaikki tarvittavat tiedot. Näin niitä on helppo lisätä, poistaa ja käydä läpi. Tunnistaminen voidaan tehdä esim. nimen perustella olettaen ettei ole kahta samannimistä paikkaa.