Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Arvostele pelit
15.8. klo 12 mennessä!

Keskustelu: Koodit näytille: QB: Tekstiseikkailu

Sivu 1 / 1

Sivun loppuun

vipemype [27.02.2002 18:47:48]

#

Huomasin ettei täällä ole yhtään teksiseikkailuun liittyvää. Vai onko? Joten tässä on parissa minuutissa tehty alku, jossa on vielä reilusti parannettavaa, mutta aloittelijoille se on hyvä alku.

alku:
cls
print "Olet pimeässä huoneessa"
print "Mitä teet?"
print "1. Menet ulos"
print "2. Laitat valot päälle"
input v$
if v$ = "1" then goto 1
if v$ = "2" then goto 2
1 :
cls
print "Tulit ulos ja pääsit pelin läpi"
end
2 :
cls
print "Laitat valot päälle ja pääsit pelin läpi"
end

vipemype [28.02.2002 03:35:56]

#

Sekosin hieman noissa lokeroissa, joten tuo tuli kaksi kertaa.

snakari [28.02.2002 10:10:19]

#

Mää olin tekemässä samanlaista!
Tän vois muuttaa:

input v$
if v$ = "1" then goto 1
if v$ = "2" then goto 2

Täks:

v:
input v$
if v$ = "1" then goto 1
if v$ = "2" then goto 2
goto v

Suosittelen!!

vipemype [28.02.2002 17:13:55]

#

Juu niin kannattaa.

(nimetön) [07.05.2002 21:05:19]

#

Koitin tuota ohjelmointiharjoitusta,
mutta ohjelma herjaa, että ensimmäinen rivi (***tekstiseikkailu) on virheellinen eikä siis toimi. MISTÄ SE JOHTUU?

Antti Laaksonen [07.05.2002 22:39:23]

#

Ensimmäinen rivi on poistettava; se on vain kuvaus koodista.

(nimetön) [17.06.2002 17:09:28]

#

kiitoksia tosta koodista :D oon yrittäny tehä tekstipeliä, mut sen pääsee läpi entteriä rämppäämällä ;)

(nimetön) [17.06.2002 17:26:06]

#

tossakin on se :(

Slimer [30.06.2002 16:35:50]

#

Miten ihmeessä Basicilla saa $ kirjaimen, altista työkalurivi aktivoituu... Vai onko tuo merkki edes dollari?

(nimetön) [06.07.2002 22:03:30]

#

alt gr+4=$

(nimetön) [06.07.2002 22:05:39]

#

miten tos saa sillee et voi painaa vaan 1/2 nappia? ku painaa vaik y+enter ni sit se menee läpi... kertokaaaa-aaa-aa

(nimetön) [13.07.2002 19:03:03]

#

tein pelin ja se valittaa
jotain komentosarjaa....
TEHKÄÄ KUNNON OHJE PLEASE!!!!
Olisin kiitollinen.

no minä [01.09.2002 21:32:43]

#

nää koodit kusee.
pitääks noi siis tehä jossain qb:ssä?
vai voiko tehdä word badissa?
Häh?

juhaz [10.09.2002 22:27:33]

#

?????
Mitä yksinkertaisin koodi ja porukka ihmettelee :)

Qbasicissa vain työnnät tuota koodia ruutuun ja niin eespäin.

Kyle_ [19.09.2002 17:01:05]

#

Miten tota tekstin kokoa saa muutettua?

(nimetön) [24.09.2002 20:17:52]

#

Jos ei halua että sen pääsee läpi entteriä rämppäämällä kannattaa lisätä:

INPUT v$
IF v$ = "1" THEN GOTO 1
IF v$ = "2" THEN GOTO 2
GOTO alku

Createman [12.10.2002 21:07:34]

#

Laita:

INPUT x
SELECT CASE x
CASE 1 = 1
GOTO 1
CASE 2 = 2
GOTO 2
CASE ELSE
GOTO Alku
END SELECT

Tumpi [18.10.2002 16:09:05]

#

Menikö ton pelin tekemiseen kaksi minuuttia?

Createman [19.10.2002 22:03:44]

#

Ei keltään mee 30 sekkaakaa...

(nimetön) [05.11.2002 19:59:41]

#

Itse suosittelisin seuraavan käyttämistä:

Print "1. Mene ulos"
Print "2. Lopeta"
DO
SELECT CASE UCASE$(INKEY$)
CASE IS = "1": GOTO ulos 'jos painetaan ykköstä menee kohtaan ulos
CASE IS = "2": END 'jos painetaan kakkosta, lopettaa ohjelman
END SELECT
LOOP

Jesoft [03.04.2003 16:22:29]

#

Print "paina 1"
input " " ; A$
If A$=1 goto jou
:jou
Print "voitit pelin"
sleep 5

vaikka

tejeez [10.10.2003 21:17:19]

#

Niinpä, mitä yksinkertaisin koodi ja porukka ihmettelee.. varmaan jotku hakenu hakukoneella hakusanalla tekstiseikkailu alkeet ja tullu tänne :D

GoodBytes [23.10.2003 18:24:47]

#

Eikö joku voisi lähettää tänne jotain semmosta ohjetta ettei tarttis lukea kaikkia kommentteja? Hallitsen kyllä koodin tämän alueen aika hyvin mutta niille jotka ei osaa?

sirkkeli [17.11.2003 14:26:42]

#

Ohje tulossa mä laitoin jo sen seikkailun mut se ei oo viel tullu tänne

drc [09.12.2003 11:08:55]

#

Voisko joku sanoa miten tehdään tallennus tekstiseikkailuun?Oon justiin vasta alottanu ohjelmoinnin ja tarvin apua

jsufai [24.12.2003 23:15:35]

#

Toimiiko toi ollenkaan. Kun kirjoitan ton koodin. Sitten tallennan sen, niin kun aukaisen sen tiedoston, niin aukeaa vain tyhjä tiedosto, jossa ei ole mitään.

drc [07.01.2004 11:37:56]

#

Kyllä tuo ainakin minulla toimii.Muokkasin vaan AIKA lailla pitemmän tuosta.


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta