Keskustelu: Koodit: QB: Tekstiseikkailu opettelu

' kaikki missä on lainaus merkit ovat Ä tai Ö
CLS
COLOR 3                                   ' määrittää tekstin värin
PRINT "               KUOLEMA ODOTTAA"
PRINT                                     'Muista älä kirjoita näitä
                                          'jossa on heitto merkki
COLOR 2
PRINT "BY: Sami kangasmaa"                'Tämä on alku teksti
                                          'toivottavasti nämä kommentit menee oikein
PRINT
PRINT "Version 0.5"
SLEEP 6
GOTO 400



400 :
COLOR 9
CLS
PRINT "Olet salainen agentti ja tehtävä on TAPA OSAMA"   'tässä on tehtäväsi
PRINT
SLEEP 5
1 :
CLS
PRINT "Aina kun olet lukenut tekstin ODOTA"  'tämä tarkoittaa että kun olet vastannut odota
PRINT
PRINT "Jos haluat lopettaa paina 0 "  'voit lopettaa painamalla 0 ja sen jälkeen enteriä
PRINT
PRINT "Olet kaupungissa mitä teet "  'kysymys mitä haluat tehdä
PRINT
PRINT "1 Mene casinoon"                         'tässä on vaihtoehdot
PRINT "2 Käväise ase kupassa"
PRINT "3 Kurista puiston penkillä istuva mummo"

INPUT q$                             ' tähän laitetaan numero joka on vahtoehdon edessä
IF q$ = "1" THEN GOTO 10
IF q$ = "2" THEN GOTO 11
IF q$ = "3" THEN GOTO 12   ' nämä ovat käskyjä jotka sanovat mihin pitää mennä
IF q$ = "0" THEN GOTO 30   ' esim. IF q$ = "1" THEN GOTO 10
                           ' Suomennettuna: jos q$ kirjoitetaan 1  silloin ohjelma hyppää 10


30 :
CLS
END      'kun painaa 0 ohjelma hyppää tähän ja lopettaa pelin

10 :  'numero johon hypätään esim. jos 1 valinta hyppää 10 niin silloin se tulee tähän
CLS
PRINT "Pelaat raha peliä ja häviät kaikki rahasi"      'tässä on vaihtoehdon vastaus
PRINT "Kun sinulla ei ollut rahaa niin söit roskia ja kuolit ripuliin"

SLEEP 8      ' viive jotta kerkiät lukea tekstin
GOTO 1       'palaa takaisin alkuun koska tämä on väärä vastaus

11 :
CLS
PRINT "Ase kauppias näyttää aseet"
PRINT "Anna tilinumero jotta voisit maksaa"
INPUT w$
IF w$ = "171754" THEN GOTO 13      'tämän saa tehtyä esim. if w$ = "171754" then goto 13
IF w$ <= "171754" THEN GOTO 200    'tämä rivi siirtää ohjelman riville 200 jos numero on eri kuin 171754

200 :
CLS
PRINT "Ase kauppias sanoo petturi ja AMPUU sinut haulikolla"
SLEEP 7
GOTO 1

12 :
CLS
PRINT "Kuristit mummon vähän ajan päästä poliisit tulevat paikalle"
PRINT "Yksi poliisi sanoo teit hyvää työtä siitä hyvästä saat tilinumeron"
PRINT "Ja tilinumero on: 171754"
SLEEP 11
GOTO 1



13 :
CLS
PRINT "Ase kauippias näyttää aseet valitse ase:"
PRINT "1 Pistooli"
PRINT "2 Haulikko"
PRINT "3 Kranaatin heitin"
INPUT e$
IF e$ = "1" THEN GOTO 14
IF e$ = "2" THEN GOTO 15
IF e$ = "3" THEN GOTO 16

14 :
CLS
PRINT "Kauppias sanoo, että pistooli on hänen aarre ja AMPUU sinut"
SLEEP 8
GOTO 1

15 :
CLS
PRINT "Kauppias antaa haulikon"
SLEEP 5
GOTO 17        'tämä on oikea vastaus joten siirrytään 17 josta pääsee jatkamaan

16 :
CLS
PRINT "Kauppias on antamassa asetta, mutta ase hajoaa käsiin"
PRINT "Sinä sanoit, että ase on huono ja siitä seurauksesta"
PRINT "Kauppias vetää sinua turpaan KUOLIT"
SLEEP 12
GOTO 1

17 :
CLS
PRINT "Tulit pois ase kaupasta"
PRINT "Päätät lähteä etsimään Osamaa"
PRINT "Mihin lähdet"
PRINT
PRINT "1 Mene lentokentälle"
PRINT "2 Mene vessaan"
PRINT "3 Hakkaa päätäsi seinään"
INPUT g$
IF g$ = "1" THEN GOTO 18
IF g$ = "2" THEN GOTO 19
IF g$ = "3" THEN GOTO 20

18 :
CLS
PRINT "Tulit juuri kentälle, kun näet OSAMAN"
PRINT
PRINT "Mitä teet"
PRINT "1 Soita poliisit"
PRINT "2 Ammu osama"
PRINT "3 Lyö osamaa"
INPUT j$
IF j$ = "1" THEN GOTO 21
IF j$ = "2" THEN GOTO 22
IF j$ = "3" THEN GOTO 23



19 :
CLS
PRINT "Kun istut pöntölle niin humpsahdat pönttöön ja lyöt pääsi lattiaan"
PRINT "Joku mies tuli ja näki sinut pyörtyneenä niin hän pätti "
PRINT "Tehdä tarpeensa sinun naaman päälle ja tukehduit KAKKAAN"
SLEEP 11
GOTO 1

20 :
CLS
PRINT "Kun hakkasit päätäsi seinään aivosi valahtivat kadulle"
SLEEP 9
GOTO 1


21 :
CLS
PRINT "Osama kuulee puhelusi ja karkaa"
PRINT "Poliisit saapuivat ja kysyivät missä se on"
PRINT "Kun sanoit koko tarinan poliisit eivät uskoneet sitä"
PRINT "Ja veivät sinut vankilaan koska teit väärän hälytyksen"
SLEEP 13
GOTO 1


22 :
CLS
PRINT "Osuit Osamaa suoraa päähän ja pää pamahti atomeiksi"
PRINT "Vähän ajan kuluessa sinun pomosi tulee huolestuneena"
PRINT "Ja sanoo SADDAM pitää myös tappaa. Siinä on uusi tehtäväsi"
SLEEP 8
GOTO 24


23 :
CLS
PRINT "Menit ja löit osamaa ja sen jälkeen tuli verinen taisto jonka voitti"
PRINT "OSAMA"
SLEEP 7
GOTO 1

24 :
CLS
PRINT "Olet vielä lentoasemalla mitä teet"
PRINT
PRINT "1 Mene tax free kauppaan"
PRINT "2 Käy pankkiautomaatilla"
PRINT "3 Osta lentolippu"
INPUT z$
IF z$ = "1" THEN GOTO 25
IF z$ = "2" THEN GOTO 26
IF z$ = "3" THEN GOTO 27


25 :
CLS
PRINT "Tulit juuri kauppaan mitä teet"
PRINT
PRINT "1 Ota hyllyltä viina pullo ja juo se "
PRINT "2 Osta pesis maila"
PRINT "3 Mene pois"
INPUT c$
IF c$ = "1" THEN GOTO 28
IF c$ = "2" THEN GOTO 29
IF c$ = "3" THEN GOTO 31





26 :
CLS
PRINT " Olet automaatin edessä mitä teet"
PRINT
PRINT "1 Nostat rahaa mummon kortilla"
PRINT "2 Hakkaat automaatin romuksi"
PRINT "3 Etsi uusi pankki kortti"
INPUT d$
IF d$ = "1" THEN GOTO 32
IF d$ = "2" THEN GOTO 33
IF d$ = "3" THEN GOTO 34


27 :
CLS
PRINT "Olet ostamassa lento lipun kun myyjä sanoo millä maksatte"
PRINT
PRINT "Anna tilinumero"
INPUT a$
IF a$ = "171754" THEN GOTO 35
IF a$ = "9153-7260" THEN GOTO 36
IF a$ <= "9153-7260" THEN GOTO 333

333 :
CLS
PRINT "Väärä numero PUM pääsi on nyt murskana"
SLEEP 4
GOTO 1

28 :
CLS
PRINT "Joit viinan ja alot horjua kunnes kaaduit "
PRINT "hyllyä päin. Hylly puolestaan haatui sinun päällesi"
PRINT "Ja PLORTS hylly liiskasi sinut lattiaan"
SLEEP 11
GOTO 1




29 :
CLS
PRINT "Kun kävelet kassalle päin joku luulee, että aiot murhata"
PRINT "myyjän ja tulee lyömään sinua pullolla"
PRINT "Lasin palaset viiltävät kurkkusi auki KUOLIT"
SLEEP 10
GOTO 1



31 :
CLS
PRINT "Kävelit kaupasta pois"
SLEEP 5
GOTO 24


32 :
CLS
PRINT "Kun laitat kortin automaattiin se imaisee sen"
SLEEP 8
GOTO 26

33 :
CLS
PRINT "Hakkasit automaattia kun kätesi osui avonaiseen sähkölankaan"
PRINT "ZAZAZA AAAaaah! ja sinusta jäi musta tomu kasa maahan"
SLEEP 10
GOTO 1

34 :
CLS
PRINT "Kävelet kaupungin lentokentällä kunnes yhtäkkiä nurkan takaa"
PRINT "Juoksee ROSVO ja sillä on pankkikortti kädessään"
PRINT "Rosvo kaatuu jalkoihisi ja lyö päänsä maahan ja hän pyörtyy"
PRINT "Näet pankkikortin maassa ja otat sen katsot tilinumeroa "
PRINT "Ja se on 9153-7260"
SLEEP 18
GOTO 24


35 :
CLS
PRINT "Kassa neiti sanoo että tililtä on loppunut rahat"
PRINT "ja vartia tulee ampumaan sinut minigunilla"
PRINT "Koska et ole hyvä asiakas"
SLEEP 11
GOTO 1

36 :
CLS
PRINT "Myyjä kysyy minne haluatte lipun"
PRINT
PRINT "1 Iraniin"
PRINT "2 Irakiin"
PRINT "3 USA"
INPUT g$
IF g$ = "1" THEN GOTO 37
IF g$ = "2" THEN GOTO 38
IF g$ = "3" THEN GOTO 39

37 :
CLS
PRINT "Näet että lentokone on lähtemässä ja pistät juoksuksi"
PRINT "Kun olet melkein lentokoneen ovella kompastut"
PRINT "Samaan aikaan kapteeni vetäisi oven kiinni ja pääsi"
PRINT "liiskaantuu oven väliin SE OLI SEN LORUN LOPPU"
SLEEP 16
GOTO 1

38 :
CLS
PRINT "Olet nyt lentokoneessa mitä teet"
PRINT
PRINT "1 Ota laskuvarjo ja hyppää koneesta"
PRINT "2 Tilaa ruokaa"
PRINT "3 Revi paineen tasaaja katosta irti"
INPUT y$
IF y$ = "1" THEN GOTO 42
IF y$ = "2" THEN GOTO 40
IF y$ = "3" THEN GOTO 41






39 :
CLS
PRINT "Pääsit lentokoneeseen onnellisesti kunnes"
PRINT "Kapteeni ilmoitti kun katsotte oikealle näette maata"
PRINT "kun katsotte vasemmalle näette vuoret "
PRINT "kun katsotte alas näette pienen mustan täplän"
PRINT "se on kumilautta jolta minä puhun kone syttyi liekkeihin"
PRINT "ja päätin poistua koneesta HYVÄÄ MATKAA"
SLEEP 24
GOTO 1


42 :
CLS
PRINT "Hyppäät koneesta ja juuri kun olet tulossa maahan vetäiset narusta"
PRINT "Mutta laskuvarjo ei auennut ja PLÄTS olet pläsikä maassa"
SLEEP 10
GOTO 1

40 :
CLS
PRINT "Lento emäntä antaa sinulle leipää ja syöt sen"
PRINT "Vähän ajan päästä sinä kuolet HOME TAUTIIN"
SLEEP 9
GOTO 1

41 :
CLS
PRINT "Revit irti paineen tasaajan kone oli juuri laskeutumassa mutta"
PRINT "Paine heilutti konetta sen verran että pyörät katkesivat"
PRINT "Kone hinkkasi maata kunnes hyppäsit pois kone raahautui taloon"
PRINT "ja räjähti palasiksi"
SLEEP 17
GOTO 43

43 :
CLS
PRINT "Olet nyt irakissa mitä teet"
PRINT
PRINT "1 Mene saddamin tuki kohtaan "
PRINT "2 Vuokraa Jaguari"
PRINT "3 Vuokraa Vene"
INPUT l$
IF l$ = "1" THEN GOTO 44
IF l$ = "2" THEN GOTO 45
IF l$ = "3" THEN GOTO 46

44 :
CLS
PRINT "Kun olet tullut tukikohtaan näet saddamin"
PRINT
PRINT "mitä teet"
PRINT
PRINT "1 Ammu mahaan"
PRINT "2 Ammu päähän"
PRINT "3 Ammu jalkaan"
INPUT p$
IF p$ = "1" THEN GOTO 50
IF p$ = "2" THEN GOTO 51
IF p$ = "3" THEN GOTO 52




45 :
CLS
PRINT "Otit auton ja lähdit ajamaan 340 KM\H mutta yhtäkkiä kuului PAM"
PRINT "Ja auto pamahti"
SLEEP 9
GOTO 1

46 :
CLS
PRINT "Vuokrasit veneen ja päätit lähteä soutamaan olit päässyt 30m"
PRINT "päähän rannasta kun vene upposi ja HUKUIT"
SLEEP 11
GOTO 1

50 :
CLS
PRINT "Saddamin suolet pamahtivat ulos seinälle"
PRINT "PÄÄSIT PELIN LÄPI"
SLEEP 7
END

51 :
CLS
PRINT "Saddamin korvasta pääsee sisään hauli ja aivot reikiintyvät"
PRINT "PÄÄSIT PELIN LÄPI"
SLEEP 6
END

52 :
CLS
PRINT "Saddamin jalat räjähtivät irti ja hän kuoli veren hukkaan"
PRINT "PÄÄSIT PELIN LÄPI"
SLEEP 8
END