Kun se edellinen Q Basic topic on jo mennyt todella vanhaksi, ja äsken löysin vanhan q basic ohjelmani, kertoisitteko mites niitä tekstiseikkailuita voisi tehdä, ja jos samalla ohjeet miten voin littää kuvan siihen myös.

alkuun pääsee mm. tällä tavalla:

CLS
PRINT "Olet autiossa talossa. Mitä teet?"
PRINT "1 Lähden pois"
PRINT "2 Menen jääkaapille"
INPUT aashoul$
IF aashoul$ = "1" THEN END
IF aashoul$ = "2" THEN GOTO 10

10
PRINT "Söit itsesi niin täyteen, että kuolit."
SLEEP 3
END

Tässä sitten hieman selittelen noista käskyistä:

CLS - Tyhjentää koko ruudun.
PRINT - Aloita kirjoitus komento tällä ja tee teksti " merkkien väliin.
INPUT aashoul$ - Aashoulin tilalla voi olla jokin muu kirjain yhdistelmä.
IF aashoul$ = "2"THEN GOTO 10 - Kun asshoul$:ksi laitetaan 2 niin se menee kohtaan 10.
END - Tällä käskyllä lopetat ohjelman/pelin.

Kiitos paljon Waari selvistä ohjeista. Kysyisin vielä että miten jonkun kuvan pystyn laittamaan siihen tekstiseikkailuuni.

Ne pitää kai tehdä viivoista sun muista.

ja kiitos waarille omastakin puolesta, koska waari opetti mullekin aikasemmin basicia.

Darkki, linkitähän sit se ossu tänne, josta sen sun tekstiseikkailun saa.

hehz

Vähän komentoja:
CLS = Tyhjentää ruudun.
PRINT "teksti" = Teksti tulee näkyviin.
LOCATE xx, xx = Locate..
OR = Esim. IF "k" or "K" then ..blabla
END = Nimensä mukaan, Loppu.
GOTO = Esim. GOTO 10, menee 10.
BEEP = Piippi.
SOUND xx, xx = Ääni. (Esim. SOUND 40, 10)
THEN = (Esim. IF ammu$="1" then goto 10 Kun painat 1 se menee 10, tajusithan?)
Ja tässä sinulle todella pieni peli:
10 CLS
PRINT "Onko Tarja Halonen suomen presidentti? K/E" (Tämä teksti tulee siis näkyviin)

INPUT kysymys$ (Input antaa ns. "nimet"

IF kysymys$="K" or "k" then goto 20
IF kysymys$="E" or "e" then goto 30 (Tässä käytetään nyt GOTO :a ja OR :ria.)
20
PRINT "Aivan oikein!"
END (Nyt peli loppuu.)

Print "Väärin, yritä uudelleen!" THEN SOUND 40, 10 (Sound, "tyrähdys" tulee tässä vaiheessa)
GOTO 10 (Nyt se menee alkuun, eli kymmeneen)

Ja tässä toinen hyvä esimerkki:
CLS
PRINT "Ikäsi?" ika$
PRINT "Nimesi?" nimi$
PRINT "Hauska tutustua "; nimi$;"
PRINT "Olet siis "; ika$" vuotta vanha."
END


[Plastiq muokkasi tätä viestiä 07.05.2002 klo 18:49]

Itse olen käyttänyt tätä aina pohjana, kun olen tehnyt tekstiseikkailu pelin.

alku:

cls

print "Tervetuloa tekstiseikkailupeliin" 'jonkinsortin tervetuliais toivotus

print "Olet sängyssä! Mitä teet?"

print "A=jatkat unia, B=Menet syömään, C=tapat itsesi" 'tässä olisi tavallaan ne vaihtoehdot

input "valintasi: "; c$

if c$ = "A" then goto 1

if c$ = "B" then goto 2

if c$ = "C" then goto 3

goto alku 'jos käyttäjä laittaa jonkin muun, kuin A:n, B:n tai C:n isolla niin tämä menee takaisin ekalle riville missä on alku eli ohjelma alkaa alusta

1:

'tämä onkin oma valintasi

2:

'kuten tämä myös

3:

print "Tapoit itsesi, joten peli loppui osaltasi" 'kun kirjoitat valintasi jälkeen c niin joudut tähän kohtaan

sleep 'tauko ja lopuu, kun painat jotain näppäintä

end 'lopettaa ohjelman

Olen käyttänyt, ja unohtanutkin myöhemmin lähes kaiken.
Joskus Plastiqia opetin hieman käyttämään QB:tä.

On toi QBasic ihmeen helppoa, nuo peruskäskythän oppii muutamassa minuutissa.

Eipä siis ihme, että ohjelmointikieli on nimeltäänkin "Beginner's All-Purpose Symbolic Instruction Code".

Kiitos kaikille jotka neuvvoivat.
Eilen illalla sain kyhättyä jo tekstiseikkailua, mutta se ei tallentanut sitä, pitää alottaa alusta.

Miten (vai saako ollenkaan) saa qbasicilla tehdyn tiedoston esim. tekstipelin muutettua semmoiseksi että sen suorittamiseen ei tarvi qbasiccia.

Mulla ainakin on siinä q basicissani (first basic) niin sellanen optionssi kun "Compile".

dark, saatko tehtyä .exe tiedostoja?

Edit: Kirjoitusvirhe vain.


[ale muokkasi tätä viestiä 09.05.2002 klo 07:05]

Mistä tämä Qbasic löytyy???

Lainaus:
08.05.2002 klo 21:40, SOB kirjoitti:
Mistä tämä Qbasic löytyy???

http://www.qbasic.com Sieltä löytyy jotain.

Äh! Eihän tuolta qbasic.comista saa yksittäisenä ohjelmana vaan ne käskee kopioimaan dossin mukana vai oliko se noin? No ainakin osoitteesta http://www.ohjelmointiputka.net saa ohjelman ja apua siihen ohjelmointiin.