lvvrGErtENm - NotatWiki

More documents

Recommendations

Info

Derefter giver vi maskinen besked på tilfældigt at give dørene en værdi, der enten skal være nul eller et positivt tal. Hvis døren er nul, kan man som bekendt ikke gå igennem den. Hvis vi får mange nuller, får vi ikke ret mange døre. Så lad os for eksperimentets skyld sige, at vi vil have i gennemsnit tre døre for hver tom væg i spillet: 20 FOR I=l TO IOO:FOR J=l TO 4:L(lrJl=INT(RND(l)*4): NEXT J: }IEXT I Herefter må vi straks sørge for at fortælle maskinen, at yderveg- gene ill}le må have døre. Hvis vi iklce gjorde dette og fx kunne gå mod nord fra Rum nr. 3, ville vi havne i Rum rrr. -7, som ikke eksisterer i vores system, og som ikke er med i det DlMensionerede sæt. Maskinen ville protestere og afbryde programmet. Vi er altså nødt til at f,ortælle den, at ydervæggene i vores system ikke har nogen døre: 30 FOR I=l TO lO:L(I, lr=O:NEXT I 40 FOR I=1O TO IOO STEP lOlL(Ir3)*O!NEXT I 50 FOR I=91 TO IOO:L(I,2t=O:NEXT I 60 FOR f=l TO 9r STEP !O:L(I,4)=O:NEXT I Og når det er sket, må vi sørge for, at der bliver sammenhæns imellem dørene. At man, dersom man ikke k;" gt -"arfJ f.l fx Rum nr. 32, heller ikke skal kunne gå mod nord fra Rum nr. 42 osv. - og at man, dersom man kan gå mod øst fra fx Rum nr. 64, også skal kunne gå mod vest fra Rum nr. 65. Det gør vi på følgende vis: 70 FoR r=r To rop EO IF I(I1 THEN lOO 90 IF L(Irl)=O THEN L(I-lO,2r=O l9l
IOO IF L(I,1)O THEN L(Ir1)=I-lO 11O IF I}9O THEN I3O 12O IF L(IrZ)=O THEN L(I+10,1)=O l5O IF L(Ir2)O THEN THEN L(fr2)=I+lO l4O IF I=IOO THEN 160 15O IF L(IrS)=O THEN L(I+1r4)=O 160 IF L(I,3)O THEN L(Ir3)=I+l L7O TF I=1 THEN I9O IAO IF L(Ir4)=O THEN L(I-1rS)=O 19O IF L(I'4)O THEN L(Ir4)=I-1 2OO NEXT I Et kort konstrueret med dette program kan fx komme til at se sådan ud: r92
Page 1 and 2:
Lav dine egne COMPUTER lvvrGErtENm
Page 3 and 4:
NIELS SØNDERGAARD Lav dine esne Co
Page 5 and 6:
Indhold Forord 7 I .Hvad er eventyr
Page 7 and 8:
PA SKATTEJAGT I AMAZONLANDET: ca. 3
Page 9 and 10:
Leopardens knurren gled over i et b
Page 11 and 12:
OG ROLIBT GA DIN VEJ. HVAD VIL DU G
Page 13 and 14:
kan bestemme, hvad der skal ske, de
Page 15 and 16:
2 .Huset med de ti rum Alfa og omeg
Page 17 and 18:
um til rum og tage eller lægge for
Page 19 and 20:
ET SVcRI) Okayi så er du klar over
Page 21 and 22:
Dem skal vi bruge ti af; RUM RUt'l
Page 23 and 24:
Lad dig ikke forvirre, hvis du ikke
Page 25 and 26:
hvor computeren får ordre til at l
Page 27 and 28:
eftersom det kun er beregnet til co
Page 29 and 30:
Det kræver lidt'mere computerhukom
Page 31 and 32:
DU KAN GA: SYDPA øSTPA Men ikke no
Page 33 and 34:
44O DATA BLY , SVE , SPE, GBL, FLA,
Page 35 and 36:
er et navneord). Men selve denne pr
Page 37 and 38:
430: DATA for de udsagnsord, vi put
Page 39 and 40:
920: ClS-instruktionen vil ikke fun
Page 41 and 42:
HVAD VIL DU GøRE? Du skal endnu ik
Page 43 and 44:
5lO IF B!3=iSTATUS' THEN 860 52O TF
Page 45 and 46:
600: Her fortæller vi maskinen, at
Page 47 and 48:
740: Her får maskinen at vide, hvo
Page 49 and 50:
Så nemt var det altså at GÅ. gvi
Page 51 and 52:
dersom den overhovedet kommer til d
Page 53 and 54:
3 .Det mvstiske rumskib En af de ti
Page 55 and 56:
Iande sikkert. Jeg besluttede, at r
Page 57 and 58:
træpind, man kan hamre i hjertet p
Page 59 and 60:
vampyrer ikke kan stå for lugten a
Page 61 and 62:
B. Genstande l En måne: Selv om vi
Page 63 and 64:
GÅ siger sig selv (man skal kunne
Page 65 and 66:
9 REM DET MYSTISKE RUMSKIB **T+* IO
Page 67 and 68:
120: Vi går ned til mellemrumstang
Page 69 and 70:
generel forholdsregel at tage. Der
Page 71 and 72:
klaringen til linie 600 (ovenfor) o
Page 73 and 74:
doer han skal bruge - men jeg mener
Page 75 and 76:
937 lF UO=g THEN 3310 954 IF Uo=9 T
Page 77 and 78:
1230 PRINT 'OG øDELAGT DINE CHANCE
Page 79 and 80:
1180: Hvis man forsøger at AKTiver
Page 81 and 82:
I55O PRINT 'DER STAR NOGET I DEN.':
Page 83 and 84:
1480-1540: Hvad der sker, hvis man
Page 85 and 86:
2O5O PRINT 'DU HAR IKKE FUNDET UD A
Page 87 and 88:
2540 PRINT .FøRST MA MAN DOG SVGKK
Page 89 and 90:
29TO PRINT 'STATUS: VISER HVAD I}U
Page 91 and 92:
33aO TNPUTS l, DO 3390 rNPUT* 1, tl
Page 93 and 94:
3240:Yi lukker filen (husk altid de
Page 95 and 96:
3S2O NEXT I:PRINT:GOTO 3B4O 3A30 NE
Page 97 and 98:
4 . Nogle videre finesser Når du e
Page 99 and 100:
Det var straks meget bedre. Problem
Page 101 and 102:
Det gør vi på følgende vis: IO L
Page 103 and 104:
DU STAR I ET GAMMELT TEI{PEL. SOLEN
Page 105 and 106:
DATO: T. JULI * KLOKKEN ER 12:IO DU
Page 107 and 108:
Lad os kigge på et nyt program, de
Page 109 and 110:
dan det vil gå en person, når han
Page 111 and 112:
kalitet nr. 8 - og hvis spilleren s
Page 113 and 114:
Labyrinter Labyrinter er altid spæ
Page 115 and 116:
DU KAN GA: NORDPA SYDPA øSTPA VEST
Page 117 and 118:
SO IF OMEO THEN 2() 90 NEXT K 1OO A
Page 119 and 120:
50 NEXT J:NEXT I OBS! Dette program
Page 121 and 122:
I tzo ITATA I 12I DATA I122 DATA T1
Page 123 and 124:
1520 NEXT I:NEXT J l55O FOR J=l TO
Page 125 and 126:
Hvis de ikke har været besøgt (hv
Page 127 and 128:
5 . På skatteiagt i Arnazonlandet
Page 129 and 130:
smidt alt, hvad man bærer på,på
Page 131 and 132:
se. Et sted ved en flodbred ligger
Page 133 and 134:
og anbringe den et andet (tilfældi
Page 135 and 136:
5 REM PA SKATTEJAGT I AMAZONLANDET
Page 137 and 138:
59O PRINT:PRINT 'OKAY. GOD FORNøJE
Page 139 and 140: tt4o L9(4,EVJ3+'I EN ITUNKEL REGNSK
Page 141 and 142: ITOO L:3(3O)=l'r:5+'ENllT I EN BLIN
Page 143 and 144: 2230 lF TY'l THEN Lt3(tl)=Ui+'MIDT
Page 145 and 146: 2760 NEXT I 2770 tF NO:å=.BfiR' TH
Page 147 and 148: 24sO 3350 rF NO19 THEN 3400 3360 IF
Page 149 and 150: ss90 GoTO 3920 39OO PRINT 'HVORFOR
Page 151 and 152: 4460 lF No=6 THEN 43Oo 4470 GOTO 24
Page 153 and 154: 5030 PRINT O;Ft r ! ' 5O4O I'tI=l'l
Page 155 and 156: U t, I' tl Å ll -\ /.4--- 5540 PRI
Page 157 and 158: SAEO PRINT:PRINT TSA VIDT DEN':PRIN
Page 159 and 160: 6420 PRINT 'DU KAN FA NOGEN TIL AT
Page 161 and 162: 7O1O FOR f-t TO 4:PRtNTlf lrv!3(t):
Page 163 and 164: 7560 TV=l:G(11)=O 7570 PRINT 'DEN T
Page 165 and 166: AO4O PRINT STF+'JUNGLEN LIGGER BADE
Page 167 and 168: A6T0 PRINT 'DATO: I IDA!F' " JULI *
Page 169 and 170: 9O4O PRINT 'DIN LEJR MED SKATTEN.'
Page 171 and 172: Indekserede variabler: G$(l): EN LO
Page 173 and 174: N$(34): NoRdpå N$(35): SYDpå N$(3
Page 175 and 176: IN:O: Den er lukket. IN:l: Den er
Page 177 and 178: SO: Bruges til beregning af, hvorn
Page 179 and 180: jeg nødt til at fordele indholdet
Page 181 and 182: 2480: Hvis man rydder skærmen, få
Page 183 and 184: hængebroen, får du besked på at
Page 185 and 186: 6 . Tilfældigt anbragte lokalitete
Page 187 and 188: lave et tilfældigt kort, kræver d
Page 189: maskinen straks føle sig hjemme i.
Page 193 and 194: ffi ffi ffi ffi ffi ffiE Nu er der
Page 195 and 196: måde. Vi må prøve atforbinde dem
Page 197 and 198: 640 650 IF C=3 THEN G ( I-J.,3) =O
Page 199 and 200: 380-720: Vi begynder forfra på den
Page 201 and 202: um tid på at kordægge). Spørgsm
Page 203 and 204: skal du ikke fortvivle. Du kan sagt
Page 205 and 206: 90 DATA NORDPATSYDPATøSTPATVESTPA
Page 207 and 208: 660 I=I+IO:GOTO g5O 670 C=O: IF G (
Page 209 and 210: 2OO LO5(25)='I ET RUM'+StF+'FYLDT M
Page 211 and 212: INDLEDNTNGEN, SOM ER LIG HJftLPE-RU
Page 213 and 214: 2OSO IF L(LO,NO)EO THEN PRINT 'DU K
Page 215 and 216: 2690 PRrNT Xlgi Yr3; : GOTO 2710 27
Page 217 and 218: 3390 PRINT TAB(10):FOR I=91 TO lOO
Page 219 and 220: 3SAO PRINT 'FORNEMMELSE AF, AT DER
Page 221 and 222: I il 44AO IF LO
Page 223 and 224: 5O7O NA=z:MU=-l SOSO FOR I=1 TO 3OO
Page 225 and 226: ket forhindrer mumien i at dukke op
Page 227 and 228: 1910-1930: Vores input-rutine. Bem
Page 229 and 230: 3620-4340: Indledningen, hvoraf en
Page 231 and 232: eventyrspil op i flere programmer (
Page 233 and 234: om bestemte lokaliteter, er der ing
Page 235 and 236: tegnet >A< med det tegn, der har AS
Page 237 and 238: 43O SM5=SAa+,M.+SB.|3 44O STIF=SA|F
Page 239 and 240: to4o ITATA Or 2t, 19, O toso L;3(19
Page 241 and 242:
1640 PRINT NDU STIKKER DIG PA PILEN
Page 243 and 244:
2770, 2720, 23?O, 2770, 2g,OO, 29,2
Page 245 and 246:
2620 FOR I=1 TO AN:IF G(II=LO THEN
Page 247 and 248:
3O7O OPEH 'I', 1, '3O-ITATA': RElrl
Page 249 and 250:
i ] 3430 PRINT 'AFHøRE SAITITLIGE
Page 251 and 252:
391O X35=.JOE ! PH !CBE IESJBN!PN !
Page 253 and 254:
4270 ON NO-13 GOTO 4260,4260,4260,4
Page 255 and 256:
I ], 4790 PRINT "'DET ER PRIAM, DER
Page 257 and 258:
5230 pRrNT .POLITIET, SOM SPRGNGTE
Page 259 and 260:
5760 ON NO-13 GOTO 5g2or5gOOr5820r3
Page 261 and 262:
Stikordsregister Anagrammer 116 Bæ
show all

lvvrGErtENm - NotatWiki

Create successful ePaper yourself

Delete template?

Save as template?