!% -e !% -~D !% -~S !% $MAX_STATIC_DATA=25000 !% $MAX_ARRAYS=400 !% $MAX_LABELS=4000 !% $MAX_ZCODE_SIZE=50000 ! ! This file was generated with DecInf.rb from a Dec Basic source file, ! using Johan Berntsson's bas2inf, and then quite heavily modified. #ifdef TARGET_ZCODE; ! Let swedish characters get shorter codes, to make game file smaller Zcharacter "abcdefghijklmnopårstuväxyö" "ABCDEFGHIJKLMNOPÅRSTUVÄXYÖ" "012345.,!?'/-:()wqzWQZé"; Abbreviate " "; Abbreviate "(SLAG_link"; Abbreviate "********"; Abbreviate ", "; Abbreviate ". "; Abbreviate "..."; Abbreviate "Det"; Abbreviate "Du "; Abbreviate "Du h"; Abbreviate "Du k"; Abbreviate "Ett staket hindrar dej "; Abbreviate "Hur får jag tag på "; Abbreviate "Jag"; Abbreviate "Om "; Abbreviate "Stug"; Abbreviate "Thorvald"; Abbreviate "Vad har jag för nytta av "; Abbreviate "Vad ska jag "; Abbreviate "_A_2D"; Abbreviate "_FN"; Abbreviate "_str"; Abbreviate "an "; Abbreviate "ar "; Abbreviate "att"; Abbreviate "attenflask"; Abbreviate "du "; Abbreviate "elefon"; Abbreviate "en "; Abbreviate "er "; Abbreviate "et "; Abbreviate "et finns "; Abbreviate "et."; Abbreviate "ett "; Abbreviate "finn"; Abbreviate "ill"; Abbreviate "ing"; Abbreviate "inte "; Abbreviate "m d"; Abbreviate "och "; Abbreviate "om "; Abbreviate "r d"; Abbreviate "r i"; Abbreviate "r jag"; Abbreviate "r.^"; Abbreviate "spelet"; Abbreviate "ägg"; Abbreviate "änd"; Abbreviate "äng"; Abbreviate "ännvinsflask"; Abbreviate "är "; Abbreviate "är.^"; Abbreviate "ärlhalsband"; Abbreviate "ätt"; Abbreviate "å d"; Abbreviate "å på vattnet?^"; Abbreviate "ågo"; Abbreviate "ång"; Abbreviate "år "; Abbreviate "åt.^"; Abbreviate "önstret"; Abbreviate "ör "; Abbreviate "ör att "; Abbreviate "örfattarn"; Abbreviate "örst"; #endif; Include ">istring.h"; Include ">routines.inf"; Include ">stuga_globals.inf"; Array main_str-->6; ! temporary string Array main_str0->100; Array main_str1->100; Array main_str2->100; Array main_str3->100; Array main_str4->100; Array main_str5->100; ! Array main_str_retval->100; Include ">hints.inf"; Include ">functions.inf"; Include ">proc_print_objects.inf"; Include ">proc_print_err_msg.inf"; Include ">simple_procs.inf"; Include ">time_procs.inf"; Include ">proc_parse.inf"; Include ">proc_end.inf"; [ main; input_buffer->1=0; ! Behövs för att nolla inmatningsbufferten - annars skrivs 100 0-tecken ut! main_str-->0=main_str0; main_str-->1=main_str1; main_str-->2=main_str2; main_str-->3=main_str3; main_str-->4=main_str4; main_str-->5=main_str5; InitArrays(); !! 00001 'Version: 4O(114)-4 821227/VE .line1; !=== Version: 4O(114)-4 821227/VE !! 00002 DIM S(55),W$(7),J(100),A(30),A$(30,3),X(20) !! 00003 GOTO 90000 jump line90000hb; !! 00005 '************************ S T U G A ***************************** .line5; !=== ************************ S T U G A ***************************** !! 00010 '******* STUGA är skrivet av Viggo Eriksson, Kimmo Eriksson ******* .line10; !=== ******* STUGA är skrivet av Viggo Eriksson, Kimmo Eriksson ******* !! 00015 '******* och Olle Johansson. Adressen till programmakarna ******* .line15; !=== ******* och Olle Johansson. Adressen till programmakarna ******* !! 00020 '******* är Solängsvägen 170, 191 54 SOLLENTUNA. ******* .line20; !=== ******* är Solängsvägen 170, 191 54 SOLLENTUNA. ******* !! 00025 '******* Denna fil är hemlig och får inte spridas ut utan ******* .line25; !=== ******* Denna fil är hemlig och får inte spridas ut utan ******* !! 00030 '******* författarnas tillstånd. 810321 ******* .line30; !=== ******* författarnas tillstånd. 810321 ******* !! 00035 '****************************************************************** .line35; !=== ****************************************************************** !! 00050 'Rader märkta med $$$$$ är till för kompatibilitet med gamla versioner .line50; !=== Rader märkta med $$$$$ är till för kompatibilitet med gamla versioner !! 00055 'Rader märkta med %%%%% får bara finnas med på Oden och Nadja .line55; !=== Rader märkta med %%%%% får bara finnas med på Oden och Nadja !! 00060 'Rader märkta med &&&&& använder DEC-10-BASIC-filhantering .line60; !=== Rader märkta med &&&&& använder DEC-10-BASIC-filhantering !! 01499 GOSUB 11000 !WARNING: gosub skipped in line: 01499 GOSUB 11000 .line1499; proc_print_err_msg(); !! 01500 Z=53 \ S(25)=S(25)+1'XXXXX VIGGOS ATELJE XXXXX .line1500; i_Z=53;(i_S_1D-->25)=(i_S_1D-->25)+1; !! 01503 IF S(25)>2 AND S(25)<8 THEN PRINT "Du är i Ateljen." \ GOTO 1511 if((i_S_1D-->25)>2 && (i_S_1D-->25)<8) { print "Du är i Ateljen.^";jump line1511;} !! 01504 PRINT "Du är i Ateljen. Här finns det tre dörrar." .line1504; print "Du är i Ateljen. Här finns det tre dörrar.^"; !! 01505 PRINT "Dom går åt vänster, åt höger och bakåt." print "Dom går åt vänster, åt höger och bakåt.^"; !! 01506 PRINT "På väggen står det: ALEA JACTA EST" print "På väggen står det: ALEA JACTA EST^"; !! 01511 IF S(25)>8 THEN S(25)=4 .line1511; if((i_S_1D-->25)>8) { (i_S_1D-->25)=4;} !! 01512 GOSUB 12200 !WARNING: gosub skipped in line: 01512 GOSUB 12200 proc_parse(2); !! 01517 IF X1=1 THEN 1504 if(i_X1==1) { jump line1504;} !! 01518 IF X=0 THEN 1499 if(i_X==0) { jump line1499;} !! 01520 ON X GOTO 1499,1499,15000,15050,1499,1540,1530 switch(i_X) {1: jump line1499;2: jump line1499;3: jump line15000;4: jump line15050;5: jump line1499;6: jump line1540;7: jump line1530;} !! 01530 IF A(10)=53 THEN 1538 .line1530; if((i_A_1D-->10)==53) { jump line1538;} !! 01532 PRINT "TIPS!! Prova orden och gå tillbaka hit." \ S(2)=S(2)-10 \ GOTO 1500 print "TIPS!! Prova orden och gå tillbaka hit.^";(i_S_1D-->2)=(i_S_1D-->2)-10;jump line1500; !! 01538 PRINT "TIPS!! Ta lagerkransen och skriv HJÄLP igen." .line1538; print "TIPS!! Ta lagerkransen och skriv HJÄLP igen.^"; !! 01539 S(2)=S(2)-10 \ GOTO 1500 (i_S_1D-->2)=(i_S_1D-->2)-10;jump line1500; !! 01540 IF A(1)<>1 THEN 9991 .line1540; if((i_A_1D-->1)~=1) { jump line9991;} !! 01542 PRINT "Dörren har gått i baklås så du kommer inte ut åt det hållet!" print "Dörren har gått i baklås så du kommer inte ut åt det hållet!^"; !! 01544 IF A(26)=1 OR A(26)=Z THEN PRINT "Dina nycklar passar inte i nyckelhålet." if((i_A_1D-->26)==1 || (i_A_1D-->26)==i_Z) { print "Dina nycklar passar inte i nyckelhålet.^";} !! 01548 GOTO 1500 jump line1500; !! 01908 GOSUB 11000 !WARNING: gosub skipped in line: 01908 GOSUB 11000 .line1908; proc_print_err_msg(); !! 01909 PRINT "Du är i en stor svängande labyrint." .line1909; print "Du är i en stor svängande labyrint.^"; !! 01910 Z=34 i_Z=34; !! 01911 GOSUB 12200 !WARNING: gosub skipped in line: 01911 GOSUB 12200 proc_parse(2); !! 01913 IF X=0 OR X>6 THEN 1908 if(i_X==0 || i_X>6) { jump line1908;} !! 01914 ON X GOTO 1970,1919,1939,8095,1950,1929 switch(i_X) {1: jump line1970;2: jump line1919;3: jump line1939;4: jump line8095;5: jump line1950;6: jump line1929;} !! 01918 GOSUB 11000 !WARNING: gosub skipped in line: 01918 GOSUB 11000 .line1918; proc_print_err_msg(); !! 01919 PRINT "Du är i en svängig stor labyrint." .line1919; print "Du är i en svängig stor labyrint.^"; !! 01921 Z=92 \ GOSUB 12200'XX KIVIS LABYRINTRUM 3 XXXX Z=92 XXX !WARNING: gosub skipped in line: 01921 Z=92 \ GOSUB 12200'XX KIVIS LABYRINTRUM 3 XXXX Z=92 XXX i_Z=92;proc_parse(2); !! 01922 IF X=0 OR X>6 THEN 1918 if(i_X==0 || i_X>6) { jump line1918;} !! 01923 ON X GOTO 1929,1944,1960,1950,1909,8300 switch(i_X) {1: jump line1929;2: jump line1944;3: jump line1960;4: jump line1950;5: jump line1909;6: jump line8300;} !! 01928 GOSUB 11000 !WARNING: gosub skipped in line: 01928 GOSUB 11000 .line1928; proc_print_err_msg(); !! 01929 PRINT "Du är i en svängande stor labyrint." .line1929; print "Du är i en svängande stor labyrint.^"; !! 01931 Z=89 \ GOSUB 12200'XX KIVIS LABYRINTRUM 2 XXXX Z=89 XXX !WARNING: gosub skipped in line: 01931 Z=89 \ GOSUB 12200'XX KIVIS LABYRINTRUM 2 XXXX Z=89 XXX i_Z=89;proc_parse(2); !! 01932 IF X=0 OR X>6 THEN 1928 if(i_X==0 || i_X>6) { jump line1928;} !! 01933 ON X GOTO 1960,1950,1939,1909,1970,1919 switch(i_X) {1: jump line1960;2: jump line1950;3: jump line1939;4: jump line1909;5: jump line1970;6: jump line1919;} !! 01939 ON (INT(RND*2)+1) GOTO 16500,15432 !WARNING: random argument should be adjusted in line: 01939 ON (INT(RND*2)+1) GOTO 16500,15432 !WARNING: int function skipped in line: 01939 ON (INT(RND*2)+1) GOTO 16500,15432 .line1939; switch(random(2)) {1: jump line16500hb;2: jump line15432;} !! 01944 PRINT "Du är i en återvändsgång. Här står Kimmo och säjer:" .line1944; print "Du är i en återvändsgång. Här står Kimmo och säjer:^"; !! 01945 PRINT " - Det här är återvändsgången i denna labyrint." print " - Det här är återvändsgången i denna labyrint.^"; !! 01946 PRINT " här gömmer piraten sina skatter. Jag är piraten!" print " här gömmer piraten sina skatter. Jag är piraten!^"; !! 01947 PRINT " HAR HAR HAR" print " HAR HAR HAR^"; !! 01948 IF G=1 THEN PRINT "Han håller din halvruttna tomat i handen." if(i_G==1) { print "Han håller din halvruttna tomat i handen.^";} !! 01950 PRINT "Du är i en stor svängig labyrint." .line1950; print "Du är i en stor svängig labyrint.^"; !! 01952 Z=93 \ GOSUB 12200'XX KIVIS LABYRINTRUM 4 XXXX Z=93 XXX !WARNING: gosub skipped in line: 01952 Z=93 \ GOSUB 12200'XX KIVIS LABYRINTRUM 4 XXXX Z=93 XXX i_Z=93;proc_parse(2); !! 01953 IF X=0 OR X>6 THEN 1956 if(i_X==0 || i_X>6) { jump line1956;} !! 01954 ON X GOTO 8000,1929,1960,1970,1944,1919 switch(i_X) {1: jump line8000;2: jump line1929;3: jump line1960;4: jump line1970;5: jump line1944;6: jump line1919;} !! 01956 GOSUB 11000 \ GOTO 1950 !WARNING: gosub skipped in line: 01956 GOSUB 11000 \ GOTO 1950 .line1956; proc_print_err_msg();jump line1950; !! 01959 GOSUB 11000 !WARNING: gosub skipped in line: 01959 GOSUB 11000 .line1959; proc_print_err_msg(); !! 01960 PRINT "Du är i en stor labyrint som också är svängig." .line1960; print "Du är i en stor labyrint som också är svängig.^"; !! 01962 Z=94 \ GOSUB 12200'XX KIVIS LABYRINTRUM 5 XXXX Z=94 XXX !WARNING: gosub skipped in line: 01962 Z=94 \ GOSUB 12200'XX KIVIS LABYRINTRUM 5 XXXX Z=94 XXX i_Z=94;proc_parse(2); !! 01963 IF X=0 OR X>6 THEN 1959 if(i_X==0 || i_X>6) { jump line1959;} !! 01964 ON X GOTO 1919,8035,1970,1980,1929,1950 switch(i_X) {1: jump line1919;2: jump line8035;3: jump line1970;4: jump line1980;5: jump line1929;6: jump line1950;} !! 01969 GOSUB 11000 !WARNING: gosub skipped in line: 01969 GOSUB 11000 .line1969; proc_print_err_msg(); !! 01970 PRINT "Du är i en svängig labyrint som också är stor." .line1970; print "Du är i en svängig labyrint som också är stor.^"; !! 01972 Z=95 \ GOSUB 12200'XX KIVIS LABYRINTRUM 6 XXXX Z=95 XXX !WARNING: gosub skipped in line: 01972 Z=95 \ GOSUB 12200'XX KIVIS LABYRINTRUM 6 XXXX Z=95 XXX i_Z=95;proc_parse(2); !! 01973 IF X=0 OR X>6 THEN 1969 if(i_X==0 || i_X>6) { jump line1969;} !! 01974 ON X GOTO 1960,1980,8071,1950,1909,1929 switch(i_X) {1: jump line1960;2: jump line1980;3: jump line8071;4: jump line1950;5: jump line1909;6: jump line1929;} !! 01980 IF G=1 THEN 1970 ELSE PRINT "Du har en halvrutten tomat i handen." .line1980; if(i_G==1) { jump line1970; } else {print "Du har en halvrutten tomat i handen.^"; } !! 01981 PRINT "HAR HAR HAR! ropar en pirat som springer mot dej." print "HAR HAR HAR! ropar en pirat som springer mot dej.^"; !! 01982 PRINT "Piraten tar din tomat." print "Piraten tar din tomat.^"; !! 01983 G=1 \ GOTO 1970 i_G=1;jump line1970; !! 02008 PRINT "Du är i Högra pannrummet." .line2008; print "Du är i Högra pannrummet.^"; !! 02009 S(42)=S(42)+1 (i_S_1D-->42)=(i_S_1D-->42)+1; !! 02010 IF S(42)>1 THEN PRINT "Ett hål finns i väggen." \ GOTO 2012 if((i_S_1D-->42)>1) { print "Ett hål finns i väggen.^";jump line2012;} !! 02011 PRINT "En panna sprängs och gör ett hål i väggen." print "En panna sprängs och gör ett hål i väggen.^"; !! 02012 A$=FNI$("Vill du gå in i hålet ?") .line2012; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vill du gå in i hålet ?"))); !! 02014 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 2019 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"j"))==0) { jump line2019;} !! 02015 PRINT "Ok." print "Ok.^"; !! 02016 GOTO 14100 jump line14100hb; !! 02018 GOSUB 11000 !WARNING: gosub skipped in line: 02018 GOSUB 11000 .line2018; proc_print_err_msg(); !! 02019 Z=69 'XXXX GROTTRUM 1 XXXXX Z=69 XXX .line2019; i_Z=69; !! 02020 PRINT "Du är i en grotta som sträcker sej utom synhåll åt vänster och höger." print "Du är i en grotta som sträcker sej utom synhåll åt vänster och höger.^"; !! 02021 IF S(42)>0 THEN PRINT "Bakom dej finns ett uppsprängt hål." if((i_S_1D-->42)>0) { print "Bakom dej finns ett uppsprängt hål.^";} !! 02023 GOSUB 20500 !WARNING: gosub skipped in line: 02023 GOSUB 20500 proc_alt_get_command(); !! 02024 IF X<3 THEN 2018 ELSE ON X-2 GOTO 2044,2032,2018,2025,2018 if(i_X<3) { jump line2018; } else {switch(i_X-2) {1: jump line2044;2: jump line2032;3: jump line2018;4: jump line2025;5: jump line2018;} } !! 02025 IF S(42)>0 THEN 14100 ELSE 2018 .line2025; if((i_S_1D-->42)>0) { jump line14100hb; } else {jump line2018; } !! 02032 PRINT "Du gick just genom ett vattenfall." .line2032; print "Du gick just genom ett vattenfall.^"; !! 02033 Z=91'XXXXX GROTTRUM 6 XXX Z=91 XXX .line2033; i_Z=91; !! 02034 PRINT "Du är vid ett vattenfall i en skog." .line2034; print "Du är vid ett vattenfall i en skog.^"; !! 02035 GOSUB 20500 !WARNING: gosub skipped in line: 02035 GOSUB 20500 proc_alt_get_command(); !! 02036 IF X=0 OR X>6 THEN 2038 if(i_X==0 || i_X>6) { jump line2038;} !! 02037 ON X GOTO 2019,2066,2115,2150,2066,2019 switch(i_X) {1: jump line2019;2: jump line2066;3: jump line2115;4: jump line2150;5: jump line2066;6: jump line2019;} !! 02038 GOSUB 11000 !WARNING: gosub skipped in line: 02038 GOSUB 11000 .line2038; proc_print_err_msg(); !! 02039 GOTO 2034 jump line2034; !! 02043 GOSUB 11000 !WARNING: gosub skipped in line: 02043 GOSUB 11000 .line2043; proc_print_err_msg(); !! 02044 Z=19'XXXX GROTTRUM 2 XXX Z=19 XXX .line2044; i_Z=19; !! 02045 IF A(12)<>0 THEN 2051 if((i_A_1D-->12)~=0) { jump line2051;} !! 02046 PRINT "En liten faun springer fram och tänker trampa dej på foten" print "En liten faun springer fram och tänker trampa dej på foten "; !! 02047 PRINT "men han tappar en sko och springer ylande därifrån." print "men han tappar en sko och springer ylande därifrån.^"; !! 02049 A(12)=19 (i_A_1D-->12)=19; !! 02051 PRINT "Du är i Schweiziska klockrummet." .line2051; print "Du är i Schweiziska klockrummet.^"; !! 02052 GOSUB 20500 !WARNING: gosub skipped in line: 02052 GOSUB 20500 proc_alt_get_command(); !! 02054 IF X=0 THEN 2043 if(i_X==0) { jump line2043;} !! 02056 ON X GOTO 2043,2043,2075,2150,2145,2019,2043 switch(i_X) {1: jump line2043;2: jump line2043;3: jump line2075;4: jump line2150;5: jump line2145;6: jump line2019;7: jump line2043;} !! 02065 GOSUB 11000 !WARNING: gosub skipped in line: 02065 GOSUB 11000 .line2065; proc_print_err_msg(); !! 02066 Z=33'XXXXX GROTTRUM 3 XXXXX .line2066; i_Z=33; !! 02067 PRINT "Du är på stranden till en underjordisk sjö." print "Du är på stranden till en underjordisk sjö.^"; !! 02068 GOSUB 20500 !WARNING: gosub skipped in line: 02068 GOSUB 20500 proc_alt_get_command(); !! 02071 IF X=10 THEN 2107 if(i_X==10) { jump line2107;} !! 02073 IF X<>0 THEN ON X GOTO 2101,2104,2075,20270,2107,2033,2065 ELSE 2065 if(i_X~=0) { switch(i_X) {1: jump line2101;2: jump line2104;3: jump line2075;4: jump line20270;5: jump line2107;6: jump line2033;7: jump line2065;} } else {jump line2065; } !! 02074 GOSUB 11000 !WARNING: gosub skipped in line: 02074 GOSUB 11000 .line2074; proc_print_err_msg(); !! 02075 Z=25 'XXX GROTTRUM 5 XXX Z=25 XXX .line2075; i_Z=25; !! 02076 PRINT "Du är på stranden till en underjordisk sjö bredvid en enorm spelautomat." print "Du är på stranden till en underjordisk sjö bredvid en enorm spelautomat.^"; !! 02077 PRINT "På den står det: 'DRA I SPAKEN OM DU HAR EN FAUNSKO ATT SATSA'" print "På den står det: 'DRA I SPAKEN OM DU HAR EN FAUNSKO ATT SATSA'^"; !! 02078 GOSUB 20500 !WARNING: gosub skipped in line: 02078 GOSUB 20500 proc_alt_get_command(); !! 02079 IF FNL$(A$,3)<>"DRA" THEN 2089 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"DRA"))~=0) { jump line2089;} !! 02080 IF A(12)=1 THEN 2083 if((i_A_1D-->12)==1) { jump line2083;} !! 02081 PRINT "FUSKARE! Du har ingen faunsko!" print "FUSKARE! Du har ingen faunsko!^"; !! 02082 GOTO 2087 jump line2087; !! 02083 D=INT(RND*10)+1 !WARNING: random argument should be adjusted in line: 02083 D=INT(RND*10)+1 !WARNING: int function skipped in line: 02083 D=INT(RND*10)+1 .line2083; i_D=random(10); !! 02084 IF D>7 THEN 2094 if(i_D>7) { jump line2094;} !! 02085 PRINT "Grattis ! Du vann en massa guldmynt." print "Grattis ! Du vann en massa guldmynt.^"; !! 02086 A(12)=2 \ A(7)=25 \ S(1)=S(1)-1 (i_A_1D-->12)=2;(i_A_1D-->7)=25;(i_S_1D-->1)=(i_S_1D-->1)-1; !! 02087 PRINT "Du är vid slutet av stranden." .line2087; print "Du är vid slutet av stranden.^"; !! 02088 GOSUB 20500 !WARNING: gosub skipped in line: 02088 GOSUB 20500 proc_alt_get_command(); !! 02089 IF X>0 AND X<7 THEN ON X GOTO 2074,2074,20255,2066,2107,2044 .line2089; if(i_X>0 && i_X<7) { switch(i_X) {1: jump line2074;2: jump line2074;3: jump line20255;4: jump line2066;5: jump line2107;6: jump line2044;}} !! 02090 IF X=10 THEN 2107 ELSE 2074 if(i_X==10) { jump line2107; } else {jump line2074; } !! 02094 PRINT "Tyvärr,du förlorade!" .line2094; print "Tyvärr,du förlorade!^"; !! 02095 S(1)=S(1)-1 \ A(12)=0 (i_S_1D-->1)=(i_S_1D-->1)-1;(i_A_1D-->12)=0; !! 02096 GOTO 2087 jump line2087; !! 02101 PRINT "Du fastnade i en jättesugkopp och kan inte komma loss.";FNS$("sover",15) .line2101; print "Du fastnade i en jättesugkopp och kan inte komma loss.";PrintString(fnc_FNS(decWriteString(main_str-->0,"sover"),15));new_line; !! 02102 PRINT "Hoppsan, nu svalt du ihjäl." print "Hoppsan, nu svalt du ihjäl.^"; !! 02103 GOTO 9461 jump line9461; !! 02104 PRINT "Du sjunker...S J U N K E R!!" .line2104; print "Du sjunker...S J U N K E R!!^"; !! 02105 PRINT "Du är"; print "Du är"; !! 02106 GOTO 9450 jump line9450; !! 02107 PRINT "Vattnet är lugnt, du simmar fort."\PRINT SPACE$(40) .line2107; print "Vattnet är lugnt, du simmar fort.^";PrintString(decSpace(main_str-->0,40));new_line; !! 02108 GOTO 2138 jump line2138; !! 02109 PRINT "Järndörrar slår ner omkring dej. Du kan bara gå uppåt." .line2109; print "Järndörrar slår ner omkring dej. Du kan bara gå uppåt.^"; !! 02111 A$=FNI$("") \ A$=FNC$(A$) .line2111; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));decStrCpy(s_A,fnc_FNC(s_A)); !! 02112 IF FNL$(A$,3)="UPP" OR A$="U" THEN 2135 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"UPP"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"U"))==0) { jump line2135;} !! 02113 PRINT "Så kan du väl inte gå!" print "Så kan du väl inte gå!^"; !! 02114 GOTO 2111 jump line2111; !! 02115 Z=20 'XXX GROTTRUM 4 XXX Z=20 XXX .line2115; i_Z=20; !! 02116 PRINT "Du är fortfarande i skogen men åt ett håll skymtar" print "Du är fortfarande i skogen men åt ett håll skymtar "; !! 02117 PRINT "man en stuga." print "man en stuga.^"; !! 02118 GOSUB 20500 !WARNING: gosub skipped in line: 02118 GOSUB 20500 proc_alt_get_command(); !! 02119 IF X<>0 THEN ON X GOTO 2120,2120,20155,2120,2127,2033,2120 if(i_X~=0) { switch(i_X) {1: jump line2120;2: jump line2120;3: jump line20155;4: jump line2120;5: jump line2127;6: jump line2033;7: jump line2120;}} !! 02120 GOSUB 11000 !WARNING: gosub skipped in line: 02120 GOSUB 11000 .line2120; proc_print_err_msg(); !! 02121 GOTO 2115 jump line2115; !! 02123 PRINT "Du hoppar ner i brunnen och ramlar tillslut ner på marken." .line2123; print "Du hoppar ner i brunnen och ramlar tillslut ner på marken.^"; !! 02124 GOTO 14000 jump line14000; !! 02126 GOSUB 11000 !WARNING: gosub skipped in line: 02126 GOSUB 11000 .line2126; proc_print_err_msg(); !! 02127 Z=99 'XXXXX GROTTRUM 7 XXXX Z=99 XXXX .line2127; i_Z=99; !! 02128 PRINT "Du står utanför stugan vid en brunn." print "Du står utanför stugan vid en brunn.^"; !! 02129 GOSUB 20500 !WARNING: gosub skipped in line: 02129 GOSUB 20500 .line2129; proc_alt_get_command(); !! 02133 IF X=0 OR X>6 THEN 2126 if(i_X==0 || i_X>6) { jump line2126;} !! 02134 ON X GOTO 2126,2123,2126,2126,35000,2115 switch(i_X) {1: jump line2126;2: jump line2123;3: jump line2126;4: jump line2126;5: jump line35000;6: jump line2115;} !! 02135 PRINT "Du har kommit upp ur en brunn. Här finns en stuga." .line2135; print "Du har kommit upp ur en brunn. Här finns en stuga.^"; !! 02136 Z=99 \ GOTO 2129 i_Z=99;jump line2129; !! 02138 D=INT(RND*4)+1 !WARNING: random argument should be adjusted in line: 02138 D=INT(RND*4)+1 !WARNING: int function skipped in line: 02138 D=INT(RND*4)+1 .line2138; i_D=random(4); !! 02139 IF D=2 THEN 2109 if(i_D==2) { jump line2109;} !! 02140 IF D>2 THEN 36000 ELSE PRINT "Du dras ner. Nu är du"; if(i_D>2) { jump line36000hb; } else {print "Du dras ner. Nu är du"; } !! 02143 GOTO 9450 jump line9450; !! 02145 D=INT(RND*5)+1 !WARNING: random argument should be adjusted in line: 02145 D=INT(RND*5)+1 !WARNING: int function skipped in line: 02145 D=INT(RND*5)+1 .line2145; i_D=random(5); !! 02146 IF D<4 THEN 2115 if(i_D<4) { jump line2115;} !! 02147 PRINT "En hord fauner kommer framrusande. Nnnnnu är du en våt fläck." print "En hord fauner kommer framrusande. Nnnnnu är du en våt fläck.^"; !! 02148 GOTO 9461 jump line9461; !! 02149 GOSUB 11000 !WARNING: gosub skipped in line: 02149 GOSUB 11000 .line2149; proc_print_err_msg(); !! 02150 Z=98'XXX GROTTRUM 8 XXXX Z=98 XXXXX .line2150; i_Z=98; !! 02151 PRINT "Du har en halvrutten tomat i handen men den försvinner." print "Du har en halvrutten tomat i handen men den försvinner.^"; !! 02152 GOSUB 20500 !WARNING: gosub skipped in line: 02152 GOSUB 20500 proc_alt_get_command(); !! 02153 IF X=0 OR X>6 THEN 2149 if(i_X==0 || i_X>6) { jump line2149;} !! 02154 ON X GOTO 2157,36000,2180,2168,2161,2044 switch(i_X) {1: jump line2157;2: jump line36000;3: jump line2180;4: jump line2168;5: jump line2161;6: jump line2044;} !! 02157 IF S(31)<>0 OR A(18)<>1 THEN 2164 .line2157; if((i_S_1D-->31)~=0 || (i_A_1D-->18)~=1) { jump line2164;} !! 02158 S(31)=1 (i_S_1D-->31)=1; !! 02159 PRINT "Du har blivit nervös och tar fram brännvinsflaskan och dricker ur den." print "Du har blivit nervös och tar fram brännvinsflaskan och dricker ur den.^"; !! 02160 GOTO 2150 jump line2150; !! 02161 PRINT "Du har kommit till en sjö där du ser två båtar." .line2161; print "Du har kommit till en sjö där du ser två båtar.^"; !! 02162 PRINT "Du kliver i en men upptäcker att den bara var en synvilla." print "Du kliver i en men upptäcker att den bara var en synvilla.^"; !! 02163 GOTO 2104 jump line2104; !! 02164 IF S(32)<>0 THEN 2168 .line2164; if((i_S_1D-->32)~=0) { jump line2168;} !! 02165 D=INT(RND*5)+1 !WARNING: random argument should be adjusted in line: 02165 D=INT(RND*5)+1 !WARNING: int function skipped in line: 02165 D=INT(RND*5)+1 i_D=random(5); !! 02166 IF A(19)=1 AND S(32)=0 THEN 2173 if((i_A_1D-->19)==1 && (i_S_1D-->32)==0) { jump line2173;} !! 02167 S(46)=S(46)+1 (i_S_1D-->46)=(i_S_1D-->46)+1; !! 02168 PRINT "Du står bakom ett draperi." .line2168; print "Du står bakom ett draperi.^"; !! 02169 GOTO 2150 jump line2150; !! 02173 S(32)=1 .line2173; (i_S_1D-->32)=1; !! 02174 PRINT "Du råkar hälla ut vattnet på en faun som springer ylande iväg." print "Du råkar hälla ut vattnet på en faun som springer ylande iväg.^"; !! 02175 GOTO 2150 jump line2150; !! 02180 D=INT (RND*10)+1 !WARNING: random argument should be adjusted in line: 02180 D=INT (RND*10)+1 !WARNING: int function skipped in line: 02180 D=INT (RND*10)+1 .line2180; i_D=random(10); !! 02181 IF D>8 THEN 2183 if(i_D>8) { jump line2183;} !! 02182 GOTO 14100 jump line14100; !! 02183 PRINT "Plötsligt känner du en trasa framför näsan och du säckar ihop." .line2183; print "Plötsligt känner du en trasa framför näsan och du säckar ihop.^"; !! 02184 PRINT "När Du vaknar märker Du att "; print "När Du vaknar märker Du att "; !! 02185 GOTO 2168 jump line2168; !! 02199 GOSUB 11000 !WARNING: gosub skipped in line: 02199 GOSUB 11000 .line2199; proc_print_err_msg(); !! 02200 Z=50'XXX SÖDRA STRANDEN XXXXX Z=50 XXXX .line2200; i_Z=50; !! 02201 PRINT "Du är på den södra sidan av sjön. Här finns ett hus." .line2201; print "Du är på den södra sidan av sjön. Här finns ett hus.^"; !! 02203 IF S(35)<>0 THEN 2207 if((i_S_1D-->35)~=0) { jump line2207;} !! 02204 PRINT "Du hittar ett hål som du kryper ner i." .line2204; print "Du hittar ett hål som du kryper ner i.^"; !! 02205 GOTO 14000 jump line14000; !! 02207 IF S(35)=1 THEN PRINT "Det ligger en roddbåt här." .line2207; if((i_S_1D-->35)==1) { print "Det ligger en roddbåt här.^";} !! 02208 GOSUB 15200 !WARNING: gosub skipped in line: 02208 GOSUB 15200 proc_get_command(0); !! 02211 IF X=0 THEN 2220 if(i_X==0) { jump line2220;} !! 02212 ON X GOTO 20255,20300,2216,2241,20180,2218,2199,2218,20270,2107 switch(i_X) {1: jump line20255hb;2: jump line20300;3: jump line2216;4: jump line2241;5: jump line20180;6: jump line2218;7: jump line2199;8: jump line2218;9: jump line20270;10: jump line2107;} !! 02215 GOTO 2200 jump line2200; !! 02216 PRINT "Kan du gå på vattnet?" .line2216; print "Kan du gå på vattnet?^"; !! 02217 GOTO 2200 jump line2200; !! 02218 PRINT "Ett staket hindrar dej från att gå ditåt." .line2218; print "Ett staket hindrar dej från att gå ditåt.^"; !! 02219 GOTO 2200 jump line2200; !! 02220 IF INSTR(1,A$,"NER")>0 OR INSTR(1,A$,"NED")>0 OR A$="N" THEN 2204 .line2220; if(decInstr(1,s_A,decWriteString(main_str-->0,"NER"))>0 || decInstr(1,s_A,decWriteString(main_str-->1,"NED"))>0 || decStrCmp(s_A,decWriteString(main_str-->2,"N"))==0) { jump line2204;} !! 02222 IF S(35)=1 AND (INSTR(1,A$,"BÅT")>0 OR A$="RO") THEN 9390 if((i_S_1D-->35)==1 && (decInstr(1,s_A,decWriteString(main_str-->0,"BÅT"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"RO"))==0)) { jump line9390;} !! 02224 GOTO 2199 jump line2199; !! 02241 Z=51'XXX STRANDHUSET XXXXX Z=51 XXXX .line2241; i_Z=51; !! 02242 PRINT "Du är inne i huset. Här finns en automat med" .line2242; print "Du är inne i huset. Här finns en automat med "; !! 02243 PRINT "en skylt där det står:" print "en skylt där det står:^"; !! 02244 PRINT " SLÄPP SAKER HÄR, så får du poäng enligt prislistan." style fixed; print " SLÄPP SAKER HÄR, så får du poäng enligt prislistan.^"; !! 02245 PRINT new_line; !! 02246 PRINT " PRISLISTA:" print " PRISLISTA:^"; !! 02247 PRINT " Om du släpper: Så får du:" print " Om du släpper: Så får du:^"; !! 02248 PRINT new_line; !! 02249 PRINT " En tavla 5 poäng" print " En tavla 5 poäng^"; !! 02250 IF A(1)=1 THEN PRINT " En diamant 15 poäng" if((i_A_1D-->1)==1) { print " En diamant 15 poäng^";} !! 02251 IF A(3)=1 THEN PRINT " En silvertacka 10 poäng" if((i_A_1D-->3)==1) { print " En silvertacka 10 poäng^";} !! 02252 IF A(2)=1 THEN PRINT " En illaluktande gurka 5 poäng" if((i_A_1D-->2)==1) { print " En illaluktande gurka 5 poäng^";} !! 02253 IF A(4)=1 THEN PRINT " En hillebard 20 poäng" if((i_A_1D-->4)==1) { print " En hillebard 20 poäng^";} !! 02254 IF A(5)=1 THEN PRINT " En dödskalle 20 poäng" if((i_A_1D-->5)==1) { print " En dödskalle 20 poäng^";} !! 02255 IF A(6)=1 THEN PRINT " En väckarklocka 15 poäng" if((i_A_1D-->6)==1) { print " En väckarklocka 15 poäng^";} !! 02256 IF A(7)=1 THEN PRINT " Massor av guldmynt 10 poäng" if((i_A_1D-->7)==1) { print " Massor av guldmynt 10 poäng^";} !! 02257 IF A(8)=1 THEN PRINT " En trilogi 10 poäng" if((i_A_1D-->8)==1) { print " En trilogi 10 poäng^";} !! 02258 IF A(9)=1 THEN PRINT " Ett kontrakt 15 poäng" if((i_A_1D-->9)==1) { print " Ett kontrakt 15 poäng^";} !! 02259 IF A(10)=1 THEN PRINT " En lagerkrans 15 poäng" if((i_A_1D-->10)==1) { print " En lagerkrans 15 poäng^";} !! 02260 IF A(11)=1 THEN PRINT " Ett pärlhalsband 25 poäng" if((i_A_1D-->11)==1) { print " Ett pärlhalsband 25 poäng^";} !! 02261 IF A(12)=1 THEN PRINT " En faunsko 5 poäng" if((i_A_1D-->12)==1) { print " En faunsko 5 poäng^";} style roman; !! 02272 GOSUB 12200 !WARNING: gosub skipped in line: 02272 GOSUB 12200 .line2272; proc_parse(2); !! 02274 IF X=15 THEN 2290 if(i_X==15) { jump line2290;} !! 02275 IF X=6 THEN 2201 if(i_X==6) { jump line2201;} !! 02276 IF X1=1 THEN 2242 ELSE GOSUB 11000 !WARNING: gosub skipped in line: 02276 IF X1=1 THEN 2242 ELSE GOSUB 11000 if(i_X1==1) { jump line2242; } else {proc_print_err_msg(); } !! 02277 PRINT "Du är vid apparaten och kan bara gå bakåt." .line2277; print "Du är vid apparaten och kan bara gå bakåt.^"; !! 02278 GOTO 2272 jump line2272; !! 02290 A(I)=5 \ S(1)=S(1)-1 .line2290; (i_A_1D-->(i_I))=5;(i_S_1D-->1)=(i_S_1D-->1)-1; !! 02292 S(2)=S(2)+5 (i_S_1D-->2)=(i_S_1D-->2)+5; !! 02294 IF I<>2 AND I<>12 THEN S(2)=S(2)+5 if(i_I~=2 && i_I~=12) { (i_S_1D-->2)=(i_S_1D-->2)+5;} !! 02296 IF I=1 OR I=6 OR I=10 OR I=9 OR I=11 THEN S(2)=S(2)+5 if(i_I==1 || i_I==6 || i_I==10 || i_I==9 || i_I==11) { (i_S_1D-->2)=(i_S_1D-->2)+5;} !! 02298 IF I=4 OR I=5 OR I=11 THEN S(2)=S(2)+10 if(i_I==4 || i_I==5 || i_I==11) { (i_S_1D-->2)=(i_S_1D-->2)+10;} !! 02300 PRINT "Maskinen slukar ";A$(I,3);"." print "Maskinen slukar ";PrintString(((s_A_2D-->(i_I))-->3));print ".^"; !! 02302 GOTO 2277 jump line2277; !! 07556 Z=35'XXXXX HISSENS MASKINRUM XXX Z=35 XXX .line7556; i_Z=35; !! 07558 PRINT "Du är i hissens maskinrum. Det bullrar och låter." print "Du är i hissens maskinrum. Det bullrar och låter.^"; !! 07559 PRINT "Det finns en dörr bakom Dej." print "Det finns en dörr bakom Dej.^"; !! 07560 IF A(1)<>1 THEN PRINT "Det finns en lucka i golvet." if((i_A_1D-->1)~=1) { print "Det finns en lucka i golvet.^";} !! 07562 GOSUB 12200 !WARNING: gosub skipped in line: 07562 GOSUB 12200 proc_parse(2); !! 07564 IF X1=1 THEN 7556 if(i_X1==1) { jump line7556;} !! 07566 IF X=6 THEN 35000 if(i_X==6) { jump line35000hb;} !! 07568 IF X=2 AND A(1)<>1 THEN 7570 ELSE GOSUB 11000 \ GOTO 7556 !WARNING: gosub skipped in line: 07568 IF X=2 AND A(1)<>1 THEN 7570 ELSE GOSUB 11000 \ GOTO 7556 if(i_X==2 && (i_A_1D-->1)~=1) { jump line7570; } else {proc_print_err_msg(); jump line7556; } !! 07569 GOSUB 11000 !WARNING: gosub skipped in line: 07569 GOSUB 11000 .line7569; proc_print_err_msg(); !! 07570 PRINT "Du är i ett litet rum utan fönster." .line7570; print "Du är i ett litet rum utan fönster.^"; !! 07573 Z=32 \ GOSUB 12200 !WARNING: gosub skipped in line: 07573 Z=32 \ GOSUB 12200 i_Z=32;proc_parse(2); !! 07579 IF X1=1 THEN 7588 if(i_X1==1) { jump line7588;} !! 07585 IF X=1 THEN 7556 if(i_X==1) { jump line7556;} !! 07586 IF X=0 OR X=7 THEN 7569 if(i_X==0 || i_X==7) { jump line7569;} !! 07587 IF X=5 THEN 13000 if(i_X==5) { jump line13000;} !! 07588 PRINT "Du kan gå framåt och uppåt."\GOTO 7570 .line7588; print "Du kan gå framåt och uppåt.^";jump line7570; !! 07999 GOSUB 8290 !WARNING: gosub skipped in line: 07999 GOSUB 8290 .line7999; proc_can_go_any_dir(); !! 08000 Z=43'XXXXX LABYRINTRUM 8 XXX Z=43 XXX .line8000; i_Z=43; !! 08001 PRINT "Du är i en gångande vindel." print "Du är i en gångande vindel.^"; !! 08002 GOSUB 12200 !WARNING: gosub skipped in line: 08002 GOSUB 12200 proc_parse(2); !! 08003 IF X=0 OR X>7 THEN 7999 if(i_X==0 || i_X>7) { jump line7999;} !! 08007 IF S(45)=1 THEN ON X GOTO 1929,8330,1944,8300,8420,8300,8011 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line1929;2: jump line8330;3: jump line1944;4: jump line8300;5: jump line8420;6: jump line8300;7: jump line8011;}} !! 08008 PRINT "Det hänger en tavla här." print "Det hänger en tavla här.^"; !! 08009 GOSUB 700 !WARNING: gosub skipped in line: 08009 GOSUB 700 proc_print_thorvald(0); !! 08010 ON X GOTO 8330,7999,8400,17000,8020,16000,8011 switch(i_X) {1: jump line8330;2: jump line7999;3: jump line8400;4: jump line17000;5: jump line8020;6: jump line16000;7: jump line8011;} !! 08011 GOTO 8017 .line8011; jump line8017; !! 08017 S(2)=S(2)-2 .line8017; (i_S_1D-->2)=(i_S_1D-->2)-2; !! 08018 PRINT "Gå inte åt höger eller neråt!" \ GOTO 8000 print "Gå inte åt höger eller neråt!^";jump line8000; !! 08019 GOSUB 8290 !WARNING: gosub skipped in line: 08019 GOSUB 8290 .line8019; proc_can_go_any_dir(); !! 08020 Z=44'XXXXX LEBYRINTRUM 9 XXX Z=44 XXX .line8020; i_Z=44; !! 08021 PRINT "Du är i en gång med vindlar överallt." print "Du är i en gång med vindlar överallt.^"; !! 08022 GOSUB 12200 !WARNING: gosub skipped in line: 08022 GOSUB 12200 proc_parse(2); !! 08025 IF X=4 THEN S(45)=2 if(i_X==4) { (i_S_1D-->45)=2;} !! 08026 IF X=0 OR X>6 THEN 8019 if(i_X==0 || i_X>6) { jump line8019;} !! 08027 ON S(45) GOTO 8250,8263,8430 switch((i_S_1D-->45)) {1: jump line8250;2: jump line8263;3: jump line8430;} !! 08034 GOSUB 8290 !WARNING: gosub skipped in line: 08034 GOSUB 8290 .line8034; proc_can_go_any_dir(); !! 08035 Z=45'XXXXX LABYRINTRUM 10 XXXXX Z=45 XXX .line8035; i_Z=45; !! 08036 PRINT "Du är i en vindlande gång med hål överallt." print "Du är i en vindlande gång med hål överallt.^"; !! 08037 GOSUB 12200 !WARNING: gosub skipped in line: 08037 GOSUB 12200 proc_parse(2); !! 08038 IF X=0 OR X>6 THEN 8034 if(i_X==0 || i_X>6) { jump line8034;} !! 08040 IF S(45)=1 THEN S(45)=3 if((i_S_1D-->45)==1) { (i_S_1D-->45)=3;} !! 08041 IF S(45)=3 THEN ON X GOTO 8000,1919,8300,8020,17000,8365 if((i_S_1D-->45)==3) { switch(i_X) {1: jump line8000;2: jump line1919;3: jump line8300;4: jump line8020;5: jump line17000;6: jump line8365;}} !! 08042 ON X GOTO 1919,8071,8020,8365,8300,8330 switch(i_X) {1: jump line1919;2: jump line8071;3: jump line8020;4: jump line8365;5: jump line8300;6: jump line8330;} !! 08054 PRINT "Den här hjälpen kostar inget." .line8054; print "Den här hjälpen kostar inget.^"; !! 08056 S(3)=1 \ S(41)=1 (i_S_1D-->3)=1;(i_S_1D-->41)=1; !! 08057 GOTO 8035 jump line8035; !! 08067 ON S(45) GOTO 8252,8258,8256 .line8067; switch((i_S_1D-->45)) {1: jump line8252;2: jump line8258;3: jump line8256;} !! 08070 GOSUB 8290 !WARNING: gosub skipped in line: 08070 GOSUB 8290 .line8070; proc_can_go_any_dir(); !! 08071 Z=38'XXXXX LABYRINTRUM 3 XXXX Z=38 XXX .line8071; i_Z=38; !! 08072 PRINT "Du är i ett rum som vindlar." print "Du är i ett rum som vindlar.^"; !! 08073 GOSUB 12200 !WARNING: gosub skipped in line: 08073 GOSUB 12200 proc_parse(2); !! 08074 IF X=0 OR X>6 THEN 8070 if(i_X==0 || i_X>6) { jump line8070;} !! 08075 IF S(45)=3 THEN ON X GOTO 8095,8071,1919,8365,8330,8020 if((i_S_1D-->45)==3) { switch(i_X) {1: jump line8095;2: jump line8071;3: jump line1919;4: jump line8365;5: jump line8330;6: jump line8020;}} !! 08076 ON S(45) GOTO 8261,8253 switch((i_S_1D-->45)) {1: jump line8261;2: jump line8253;} !! 08093 GOSUB 11000 !WARNING: gosub skipped in line: 08093 GOSUB 11000 .line8093; proc_print_err_msg(); !! 08095 Z=39'XXXXX LABYRINTRUM 4 XXXXX .line8095; i_Z=39; !! 08096 PRINT "Du är i ett rum med hål överallt." print "Du är i ett rum med hål överallt.^"; !! 08097 IF S(48)>0 THEN PRINT "Det finns ett krossat fönster här." \ GOTO 8102 if((i_S_1D-->48)>0) { print "Det finns ett krossat fönster här.^";jump line8102;} !! 08100 PRINT "Högt uppe i taket finns ett fönster." print "Högt uppe i taket finns ett fönster.^"; !! 08101 PRINT "Någon knackar på det!!!" print "Någon knackar på det!!!^"; !! 08102 GOSUB 12200 !WARNING: gosub skipped in line: 08102 GOSUB 12200 .line8102; proc_parse(2); !! 08103 IF X1=1 THEN 8095 if(i_X1==1) { jump line8095;} !! 08104 IF X=13 THEN 8131 ELSE IF X=0 THEN 8093 if(i_X==13) { jump line8131; } else {if(i_X==0) { jump line8093; }} !! 08105 IF X<>7 THEN 8112 if(i_X~=7) { jump line8112;} !! 08106 IF A(20)=1 AND S(33)=0 THEN PRINT "Sparka din pumpade boll!"\S(2)=S(2)-5\GOTO 8095 if((i_A_1D-->20)==1 && (i_S_1D-->33)==0) { print "Sparka din pumpade boll!^";(i_S_1D-->2)=(i_S_1D-->2)-5;jump line8095;} !! 08108 PRINT "Inget du bär kan hjälpa dej att komma upp till fönstret." \ S(2)=S(2)-2 print "Inget du bär kan hjälpa dej att komma upp till fönstret.^";(i_S_1D-->2)=(i_S_1D-->2)-2; !! 08110 GOTO 8095 jump line8095; !! 08112 ON S(45) GOTO 8250,8254,8253 .line8112; switch((i_S_1D-->45)) {1: jump line8250;2: jump line8254;3: jump line8253;} !! 08131 PRINT "Du sparkar din boll mot fönstret." .line8131; print "Du sparkar din boll mot fönstret.^"; !! 08132 PRINT " PANG!" print " PANG!^"; !! 08133 PRINT "Fönsterrutan gick sönder." \ IF S(48)=-1 THEN S(2)=S(2)+10\S(48)=0 print "Fönsterrutan gick sönder.^";if((i_S_1D-->48)==-1) { (i_S_1D-->2)=(i_S_1D-->2)+10;(i_S_1D-->48)=0;} !! 08134 S(48)=S(48)+1 (i_S_1D-->48)=(i_S_1D-->48)+1; !! 08135 PRINT "Ett rep ramlar ner genom fönstret och nån viskar: -Kom fort!" print "Ett rep ramlar ner genom fönstret och nån viskar: -Kom fort!^"; !! 08137 A$=FNI$("Klättrar du upp på repet ?") .line8137; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Klättrar du upp på repet ?"))); !! 08138 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 8142 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"N"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"n"))==0) { jump line8142;} !! 08139 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 8144 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"j"))==0) { jump line8144;} !! 08140 PRINT "Bestäm dej!" print "Bestäm dej!^"; !! 08141 GOTO 8137 jump line8137; !! 08142 PRINT "TYST!! Han hörde dej och drog upp repet!!!" .line8142; print "TYST!! Han hörde dej och drog upp repet!!!^"; !! 08143 GOTO 8095 jump line8095; !! 08144 PRINT "Du klättrar upp i en mörk gång efter en mörk skugga." .line8144; print "Du klättrar upp i en mörk gång efter en mörk skugga.^"; !! 08145 PRINT "Långt borta hörs en röst:" print "Långt borta hörs en röst:^"; !! 08146 PRINT " - HÖ, HÖ! En boll! In med den!!!" print " - HÖ, HÖ! En boll! In med den!!!^"; !! 08147 A(20)=4\S(1)=S(1)-1 (i_A_1D-->20)=4;(i_S_1D-->1)=(i_S_1D-->1)-1; !! 08148 IF S(48)<>-1 THEN PRINT "Du är i en mörk gång." ELSE GOSUB 730 \ GOTO 17000 !WARNING: gosub skipped in line: 08148 IF S(48)<>-1 THEN PRINT "Du är i en mörk gång." ELSE GOSUB 730 \ GOTO 17000 .line8148; if((i_S_1D-->48)~=-1) { print "Du är i en mörk gång.^"; } else {proc_under_construction(); jump line17000;} !! 08149 Z=97 'XXXXX MÖRK GÅNG ÖVER LAB.4 XXXX .line8149; i_Z=97; !! 08150 GOSUB 12200 !WARNING: gosub skipped in line: 08150 GOSUB 12200 proc_parse(2); !! 08152 IF X>0 THEN ON X GOTO 17000,25000,18000,10020,8300,8155,8153 if(i_X>0) { switch(i_X) {1: jump line17000;2: jump line25000;3: jump line18000;4: jump line10020;5: jump line8300;6: jump line8155;7: jump line8153;}} !! 08153 GOSUB 11000 !WARNING: gosub skipped in line: 08153 GOSUB 11000 .line8153; proc_print_err_msg(); !! 08154 GOTO 8149 jump line8149; !! 08155 IF S(47)=1 THEN 9510 ELSE 2168 .line8155; if((i_S_1D-->47)==1) { jump line9510; } else {jump line2168; } !! 08250 ON X GOTO 8365,8300,8000,8330,8020,8095,8011 .line8250; switch(i_X) {1: jump line8365;2: jump line8300;3: jump line8000;4: jump line8330;5: jump line8020;6: jump line8095;7: jump line8011;} !! 08252 ON X GOTO 8420,8000,8365,8300,17000,8095,8054 .line8252; switch(i_X) {1: jump line8420;2: jump line8000;3: jump line8365;4: jump line8300;5: jump line17000;6: jump line8095;7: jump line8054;} !! 08253 ON X GOTO 8330,8020,8330,8330,8300,8420,8054 .line8253; switch(i_X) {1: jump line8330;2: jump line8020;3: jump line8330;4: jump line8330;5: jump line8300;6: jump line8420;7: jump line8054;} !! 08254 ON X GOTO 8381,8000,1500,1919,8330,8300,8054 .line8254; switch(i_X) {1: jump line8381;2: jump line8000;3: jump line1500;4: jump line1919;5: jump line8330;6: jump line8300;7: jump line8054;} !! 08256 ON X GOTO 8095,8000,8420,8071,8300,8330,8054 .line8256; switch(i_X) {1: jump line8095;2: jump line8000;3: jump line8420;4: jump line8071;5: jump line8300;6: jump line8330;7: jump line8054;} !! 08258 ON X GOTO 8300,8920,8095,8071,8330,14100,8054 .line8258; switch(i_X) {1: jump line8300;2: jump line8920;3: jump line8095;4: jump line8071;5: jump line8330;6: jump line14100;7: jump line8054;} !! 08261 ON X GOTO 8381,8365,8300,8000,17000,8071,8054 .line8261; switch(i_X) {1: jump line8381;2: jump line8365;3: jump line8300;4: jump line8000;5: jump line17000;6: jump line8071;7: jump line8054;} !! 08263 ON X GOTO 8095,8095,8300,8365,8067,1919,8054 .line8263; switch(i_X) {1: jump line8095;2: jump line8095;3: jump line8300;4: jump line8365;5: jump line8067;6: jump line1919;7: jump line8054;} !! 08300 Z=36'XXXXX LABYRINTRUM 1 XXXXX .line8300; i_Z=36; !! 08302 PRINT "Du är i en vindlande liten gång med hål." print "Du är i en vindlande liten gång med hål.^"; !! 08304 GOSUB 12200 !WARNING: gosub skipped in line: 08304 GOSUB 12200 .line8304; proc_parse(2); !! 08306 IF X=1 THEN 8095 ELSE IF X=0 THEN 8310 if(i_X==1) { jump line8095; } else {if(i_X==0) { jump line8310; }} !! 08307 IF S(45)=1 THEN ON X GOTO 8320,17000,8000,8322,8365,8330,8700 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line8320;2: jump line17000;3: jump line8000;4: jump line8322;5: jump line8365;6: jump line8330;7: jump line8700;}} !! 08308 IF S(45)=2 THEN ON X GOTO 8327,8320,8365,8300,8330,8381,8700 if((i_S_1D-->45)==2) { switch(i_X) {1: jump line8327;2: jump line8320;3: jump line8365;4: jump line8300;5: jump line8330;6: jump line8381;7: jump line8700;}} !! 08309 IF S(45)=3 THEN ON X GOTO 1500,8330,8320,8365,8322,8381,8323 if((i_S_1D-->45)==3) { switch(i_X) {1: jump line1500;2: jump line8330;3: jump line8320;4: jump line8365;5: jump line8322;6: jump line8381;7: jump line8323;}} !! 08310 GOSUB 8290 !WARNING: gosub skipped in line: 08310 GOSUB 8290 .line8310; proc_can_go_any_dir(); !! 08311 GOTO 8304 jump line8304; !! 08320 PRINT "Återvändsgränd!" .line8320; print "Återvändsgränd!^"; !! 08321 GOTO 8300 jump line8300; !! 08322 S(45)=2 \ GOTO 8420 .line8322; (i_S_1D-->45)=2;jump line8420; !! 08323 PRINT "TIPS!! Skriv framåt!" .line8323; print "TIPS!! Skriv framåt!^"; !! 08324 S(2)=S(2)-4 (i_S_1D-->2)=(i_S_1D-->2)-4; !! 08325 GOTO 8300 jump line8300; !! 08327 PRINT "Du är"; .line8327; print "Du är"; !! 08328 GOTO 9450 .line8328; jump line9450; !! 08329 GOSUB 8290 !WARNING: gosub skipped in line: 08329 GOSUB 8290 .line8329; proc_can_go_any_dir(); !! 08330 Z=37'XXXXX LABYRINTRUM 2 XXX Z=37 XXXX .line8330; i_Z=37; !! 08331 IF S(38)=0 THEN PRINT "Du är i en kolsvart gång." \ GOTO 8335 if((i_S_1D-->38)==0) { print "Du är i en kolsvart gång.^";jump line8335;} !! 08332 PRINT "Du är i en gång där det på väggen står:" print "Du är i en gång där det på väggen står:^"; !! 08333 PRINT "Lampan försvinner om det tas ur gången. Stanna kvar!" .line8333; print "Lampan försvinner om det tas ur gången. Stanna kvar!^"; !! 08334 GOSUB 6000 !WARNING: gosub skipped in line: 08334 GOSUB 6000 proc_print_objects(); !! 08335 A$=FNI$("") \ GOSUB 12000 !WARNING: gosub skipped in line: 08335 A$=FNI$("") \ GOSUB 12000 ! .line8335; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));proc_parse(1); .line8335; proc_receive_input();proc_parse(1); !! 08336 IF FNL$(A$,5)="VÄNTA" OR FNL$(A$,5)="STANN" THEN 8345 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"VÄNTA"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"STANN"))==0) { jump line8345;} !! 08338 IF X=13 THEN 8350 if(i_X==13) { jump line8350;} !! 08339 IF X=7 AND S(38)=0 THEN 8343 if(i_X==7 && (i_S_1D-->38)==0) { jump line8343;} !! 08340 IF X=0 OR X>6 THEN 8329 if(i_X==0 || i_X>6) { jump line8329;} !! 08341 IF S(38)=1 THEN A(24)=31 \ S(38)=2 \ S(1)=S(1)-1 \ PRINT "Lampan försvinner!" if((i_S_1D-->38)==1) { (i_A_1D-->24)=31;(i_S_1D-->38)=2;(i_S_1D-->1)=(i_S_1D-->1)-1;print "Lampan försvinner!^";} !! 08342 ON X GOTO 8300,8327,8320,8365,8420,1919 switch(i_X) {1: jump line8300;2: jump line8327;3: jump line8320;4: jump line8365;5: jump line8420;6: jump line1919;} !! 08343 PRINT "HJÄLP: Det finns en sak här i mörkret." .line8343; print "HJÄLP: Det finns en sak här i mörkret.^"; !! 08344 S(2)=S(2)-5 \ GOTO 8330 (i_S_1D-->2)=(i_S_1D-->2)-5;jump line8330; !! 08345 IF A(24)<>1 OR S(38)<>1 THEN 8349 .line8345; if((i_A_1D-->24)~=1 || (i_S_1D-->38)~=1) { jump line8349;} !! 08347 PRINT "Lampan och "; print "Lampan och "; !! 08348 S(38)=2 (i_S_1D-->38)=2; !! 08349 PRINT "Du lyfts uppåt." \ GOTO 8148 .line8349; print "Du lyfts uppåt.^";jump line8148; !! 08350 IF S(1)=9 THEN PRINT "Du kan inte bära fler saker." \ GOTO 8330 .line8350; if((i_S_1D-->1)==9) { print "Du kan inte bära fler saker.^";jump line8330;} !! 08351 PRINT "När du rör saken blir det ljust i gången. Saken är" print "När du rör saken blir det ljust i gången. Saken är "; !! 08352 PRINT "en lampa. På väggen ser du att det står:" print "en lampa. På väggen ser du att det står:^"; !! 08353 S(1)=S(1)+1 \ A(24)=1 \ S(38)=1 (i_S_1D-->1)=(i_S_1D-->1)+1;(i_A_1D-->24)=1;(i_S_1D-->38)=1; !! 08354 GOTO 8333 jump line8333; !! 08363 GOSUB 8290 !WARNING: gosub skipped in line: 08363 GOSUB 8290 .line8363; proc_can_go_any_dir(); !! 08365 Z=40'XXXXX LABYRINTRUM 5 XXXXX .line8365; i_Z=40; !! 08366 PRINT "Du är i en gång med hål." print "Du är i en gång med hål.^"; !! 08367 GOSUB 12200 !WARNING: gosub skipped in line: 08367 GOSUB 12200 proc_parse(2); !! 08368 IF X=0 THEN 8363 if(i_X==0) { jump line8363;} !! 08369 IF S(45)=1 THEN ON X GOTO 8420,8328,8381,14100,8330,8376,8373 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line8420;2: jump line8328;3: jump line8381;4: jump line14100;5: jump line8330;6: jump line8376;7: jump line8373;}} !! 08370 IF S(45)=2 THEN ON X GOTO 8376,8300,8400,8320,8381,8420,8700 if((i_S_1D-->45)==2) { switch(i_X) {1: jump line8376;2: jump line8300;3: jump line8400;4: jump line8320;5: jump line8381;6: jump line8420;7: jump line8700;}} !! 08371 IF S(45)=3 THEN ON X GOTO 8381,8327,8320,8330,8376,8420,8700 if((i_S_1D-->45)==3) { switch(i_X) {1: jump line8381;2: jump line8327;3: jump line8320;4: jump line8330;5: jump line8376;6: jump line8420;7: jump line8700;}} !! 08373 PRINT "TIPS! Gå åt höger." .line8373; print "TIPS! Gå åt höger.^"; !! 08374 S(2)=S(2)-4 (i_S_1D-->2)=(i_S_1D-->2)-4; !! 08375 GOTO 8365 jump line8365; !! 08376 IF A(8)<>1 THEN 8330 .line8376; if((i_A_1D-->8)~=1) { jump line8330;} !! 08377 PRINT "Din trilogi (Sagorna om Härskarringen) försvinner plötsligt." print "Din trilogi (Sagorna om Härskarringen) försvinner plötsligt.^"; !! 08378 A(8)=31 \ S(1)=S(1)-1 (i_A_1D-->8)=31;(i_S_1D-->1)=(i_S_1D-->1)-1; !! 08379 GOTO 8365 jump line8365; !! 08380 GOSUB 8290 !WARNING: gosub skipped in line: 08380 GOSUB 8290 .line8380; proc_can_go_any_dir(); !! 08381 Z=41'XXXXX LABYRINTRUM 6 XXXXX .line8381; i_Z=41; !! 08382 PRINT "Du vindlar i en liten gång." print "Du vindlar i en liten gång.^"; !! 08384 GOSUB 12200 !WARNING: gosub skipped in line: 08384 GOSUB 12200 proc_parse(2); !! 08386 IF X=0 THEN 8380 if(i_X==0) { jump line8380;} !! 08387 IF S(45)=1 THEN ON X GOTO 8365,8000,8300,8400,8420,8320,8391 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line8365;2: jump line8000;3: jump line8300;4: jump line8400;5: jump line8420;6: jump line8320;7: jump line8391;}} !! 08388 IF S(45)=2 THEN ON X GOTO 8000,8300,8400,8365,8420,8330,8392 if((i_S_1D-->45)==2) { switch(i_X) {1: jump line8000;2: jump line8300;3: jump line8400;4: jump line8365;5: jump line8420;6: jump line8330;7: jump line8392;}} !! 08389 IF S(45)=3 THEN ON X GOTO 8420,8365,8000,8400,8300,8330,8392 if((i_S_1D-->45)==3) { switch(i_X) {1: jump line8420;2: jump line8365;3: jump line8000;4: jump line8400;5: jump line8300;6: jump line8330;7: jump line8392;}} !! 08391 S(45)=3 .line8391; (i_S_1D-->45)=3; !! 08392 PRINT "TIPS!! Gå uppåt eller bakåt!" \ S(45)=3 .line8392; print "TIPS!! Gå uppåt eller bakåt!^";(i_S_1D-->45)=3; !! 08393 S(2)=S(2)-4 (i_S_1D-->2)=(i_S_1D-->2)-4; !! 08394 GOTO 8380 jump line8380; !! 08400 Z=42'XXXXX LABYRINTRUM 7 XXXXX .line8400; i_Z=42; !! 08401 PRINT "Du står på kanten till en djup brunn." print "Du står på kanten till en djup brunn.^"; !! 08402 PRINT "Om du hoppar ner kommer du inte upp igen!" print "Om du hoppar ner kommer du inte upp igen!^"; !! 08403 GOSUB 12200 !WARNING: gosub skipped in line: 08403 GOSUB 12200 .line8403; proc_parse(2); !! 08406 IF X=0 THEN 8400 if(i_X==0) { jump line8400;} !! 08407 IF S(45)=1 THEN ON X GOTO 8420,8327,8381,8420,8300,8330,8414 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line8420;2: jump line8327;3: jump line8381;4: jump line8420;5: jump line8300;6: jump line8330;7: jump line8414;}} !! 08408 S(45)=3 (i_S_1D-->45)=3; !! 08409 ON X GOTO 8420,8327,8330,8420,8381,8300,8414 switch(i_X) {1: jump line8420;2: jump line8327;3: jump line8330;4: jump line8420;5: jump line8381;6: jump line8300;7: jump line8414;} !! 08414 PRINT "TIPS!! Chansa på uppåt eller neråt!" .line8414; print "TIPS!! Chansa på uppåt eller neråt!^"; !! 08415 S(2)=S(2)-4 (i_S_1D-->2)=(i_S_1D-->2)-4; !! 08416 GOTO 8403 jump line8403; !! 08419 GOSUB 8290 !WARNING: gosub skipped in line: 08419 GOSUB 8290 .line8419; proc_can_go_any_dir(); !! 08420 Z=52'XXXXX LABYRINTRUM 11 XXXXX .line8420; i_Z=52; !! 08421 PRINT "Lilla du vindlar." print "Lilla du vindlar.^"; !! 08422 IF S(43)=0 THEN 8800 if((i_S_1D-->43)==0) { jump line8800;} !! 08423 GOSUB 12200 !WARNING: gosub skipped in line: 08423 GOSUB 12200 proc_parse(2); !! 08425 IF X=0 OR X>6 THEN 8419 if(i_X==0 || i_X>6) { jump line8419;} !! 08426 IF S(45)=1 THEN ON X GOTO 8071,1929,8381,8000,8300,1500 if((i_S_1D-->45)==1) { switch(i_X) {1: jump line8071;2: jump line1929;3: jump line8381;4: jump line8000;5: jump line8300;6: jump line1500;}} !! 08428 IF S(45)=2 THEN ON X GOTO 8000,8365,1950,8381,1500,8300 if((i_S_1D-->45)==2) { switch(i_X) {1: jump line8000;2: jump line8365;3: jump line1950;4: jump line8381;5: jump line1500;6: jump line8300;}} !! 08430 IF S(45)=3 THEN ON X GOTO 8300,8000,8365,1970,8381,1500 .line8430; if((i_S_1D-->45)==3) { switch(i_X) {1: jump line8300;2: jump line8000;3: jump line8365;4: jump line1970;5: jump line8381;6: jump line1500;}} !! 08440 REM XXXX FOZZIS BERÄTTELSE XXXXX .line8440; !=== XXXX FOZZIS BERÄTTELSE XXXXX !! 08442 PRINT "Fozzi tar dej med in i hans loge och säjer :" print "Fozzi tar dej med in i hans loge och säjer :^"; !! 08443 PRINT " - Om du säjer ett niosiffrigt tal där ingen siffra är över fem" print " - Om du säjer ett niosiffrigt tal där ingen siffra är över fem "; !! 08444 PRINT "så ska jag, Fozzi den rolige, hjälpa Dej med en berättelse." print "så ska jag, Fozzi den rolige, hjälpa Dej med en berättelse.^"; !! 08445 A$=FNI$("Svara SPRINGA eller ett niosiffrigt tal :") .line8445; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara SPRINGA eller ett niosiffrigt tal :"))); !! 08446 IF FNC$(FNL$(A$,5))="SPRIN" THEN 8842 if(decStrCmp(fnc_FNC(fnc_FNL(s_A,5)),decWriteString(main_str-->0,"SPRIN"))==0) { jump line8842;} !! 08447 IF LEN(A$)<>9 THEN 8445 if(StrLen(s_A)~=9) { jump line8445;} !! 08448 GOTO 8445 IF ASCII(FNM$(A$,I))<48 OR ASCII(FNM$(A$,I))>54 FOR I=1 TO 9 for(i_I=1:i_I<=9:i_I++) {if(decAscii(fnc_FNM(s_A,i_I))<48 || decAscii(fnc_FNM(s_A,i_I))>54) { jump line8445; }} !! 08450 X(I)=VAL(MID$(A$,I,1)) FOR I=1 TO 9 for(i_I=1:i_I<=9:i_I++) {(i_X_1D-->(i_I))=decVal(decMidString(main_str-->0,s_A,i_I,1));} !! 08460 PRINT new_line; !! 08463 PRINT "Fozzi skriver upp en berättelse på en lapp som han ger dej." print "Fozzi skriver upp en berättelse på en lapp som han ger dej.^"; !! 08465 PRINT "Du går tillbaka till scenen och berättar." print "Du går tillbaka till scenen och berättar.^"; !! 08470 PRINT new_line; !! 08472 PRINT " - Ett meddelande når ";FNF$(1);" att ";FNF$(2) print " - Ett meddelande når ";PrintString(fnc_FNF(1));print " att ";PrintString(fnc_FNF(2));new_line; !! 08475 PRINT " har släppts ut ur ";FNF$(3);" och kommer för att lägga" print " har släppts ut ur ";PrintString(fnc_FNF(3));print " och kommer för att lägga^"; !! 08480 PRINT " beslag på ";FNF$(4);". Staden befinner sej snart i klorna på" print " beslag på ";PrintString(fnc_FNF(4));print ". Staden befinner sej snart i klorna på^"; !! 08485 PRINT " ";FNF$(5);" och folket sätter sej ner och väntar på " print " ";PrintString(fnc_FNF(5));print " och folket sätter sej ner och väntar på ^"; !! 08487 PRINT " ";FNF$(6);"." print " ";PrintString(fnc_FNF(6));print ".^"; !! 08490 PRINT " Oroliga för att skurkarna tänker ";FNF$(7);" börjar" print " Oroliga för att skurkarna tänker ";PrintString(fnc_FNF(7));print " börjar^"; !! 08495 PRINT " saloonflickorna bli ";FNF$(8);". Skurkarna kommer" print " saloonflickorna bli ";PrintString(fnc_FNF(8));print ". Skurkarna kommer^"; !! 08500 PRINT " men faran avvärjs ";FNF$(9);"." print " men faran avvärjs ";PrintString(fnc_FNF(9));print ".^"; !! 08532 PRINT\PRINT "Publiken jublar men gubbarna på balkongen är bara spydiga." print "^Publiken jublar men gubbarna på balkongen är bara spydiga.^"; !! 08533 GOTO 8907 jump line8907; !! 08700 PRINT "Du kan inte få nå'n hjälp så som du ser ut!"\ D=INT(RND*5)+1 !WARNING: random argument should be adjusted in line: 08700 PRINT "Du kan inte få nå'n hjälp så som du ser ut!"\ D=INT(RND*5)+1 !WARNING: int function skipped in line: 08700 PRINT "Du kan inte få nå'n hjälp så som du ser ut!"\ D=INT(RND*5)+1 .line8700; print "Du kan inte få nå'n hjälp så som du ser ut!^";i_D=random(5); !! 08701 ON D GOTO 8000,8300,8095,8035,8420 switch(i_D) {1: jump line8000;2: jump line8300;3: jump line8095;4: jump line8035;5: jump line8420;} !! 08800 S(43)=1'XXX MUPPET SHOW XXX .line8800; (i_S_1D-->43)=1; !! 08802 IF W$(6)<>"" THEN 8808 if(decStrCmp((s_W_1D-->6)-->0,decWriteString(main_str-->0,""))~=0) { jump line8808;} !! 08804 PRINT "Här sitter björnen Fozzi och frågar:" print "Här sitter björnen Fozzi och frågar:^"; !! 08806 W$(6)=FNI$("Vad heter du ?") \ GOTO 8810 decStrCpy((s_W_1D-->6)-->0,fnc_FNI(decWriteString(main_str-->0,"Vad heter du ?")));jump line8810; !! 08808 PRINT "Björnen Fozzi skyndar förbi dej." .line8808; print "Björnen Fozzi skyndar förbi dej.^"; !! 08810 REM PLATS FÖR SIGNATUR .line8810; !=== PLATS FÖR SIGNATUR !! 08830 PRINT "Någon säjer: Här är THE MUPPET SHOW med kvällens gäst-" print "Någon säjer: Här är THE MUPPET SHOW med kvällens gäst"; !! 08831 PRINT "artist: ";W$(6) print "artist: ";PrintString((s_W_1D-->6)-->0);new_line; !! 08833 PRINT "Ridån går upp och du är på en scen tillsammans med" .line8833; print "Ridån går upp och du är på en scen tillsammans med "; !! 08834 PRINT "grodan Kermit. Dockpubliken applåderar." print "grodan Kermit. Dockpubliken applåderar.^"; !! 08836 A$=FNI$("Svara SPRING eller UPPTRÄD :") \ A$=FNC$(A$) \ PRINT .line8836; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara SPRING eller UPPTRÄD :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08838 IF FNL$(A$,5)="SPRIN" THEN 8842 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRIN"))==0) { jump line8842;} !! 08839 IF FNL$(A$,5)="UPPTR" THEN 8873 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"UPPTR"))==0) { jump line8873;} !! 08840 GOTO 8836 jump line8836; !! 08842 PRINT "Du springer rätt in i ett monster som slukar dej i en enda" .line8842; print "Du springer rätt in i ett monster som slukar dej i en enda "; !! 08843 PRINT "munsbit! Du känner en sprängladdning här!" print "munsbit! Du känner en sprängladdning här!^"; !! 08845 A$=FNI$("Svara ROPA eller SPRÄNG :") \ A$=FNC$(A$) \ PRINT .line8845; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara ROPA eller SPRÄNG :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08846 IF FNL$(A$,4)="ROPA" THEN 8850 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"ROPA"))==0) { jump line8850;} !! 08847 IF FNL$(A$,5)="SPRÄN" THEN 8857 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRÄN"))==0) { jump line8857;} !! 08848 GOTO 8845 jump line8845; !! 08850 PRINT "Du ropar och Kermit hämtar hjälp. Det tar tid." .line8850; print "Du ropar och Kermit hämtar hjälp. Det tar tid.^"; !! 08852 A$=FNI$("Svara VÄNTA eller SPRÄNG :") \ A$=FNC$(A$) \ PRINT .line8852; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara VÄNTA eller SPRÄNG :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08853 IF FNL$(A$,5)="VÄNTA" THEN 8860 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"VÄNTA"))==0) { jump line8860;} !! 08854 IF FNL$(A$,5)="SPRÄN" THEN 8857 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRÄN"))==0) { jump line8857;} !! 08855 GOTO 8852 jump line8852; !! 08857 PRINT "Du och monstret sprängs i bitar! " .line8857; print "Du och monstret sprängs i bitar! ^"; !! 08859 GOTO 9461 jump line9461; !! 08860 PRINT "Du väntar i 30 sekunder!" .line8860; print "Du väntar i 30 sekunder!^"; !! 08861 S=ECHO(1) i_S=decEcho(1); !! 08862 FOR I=1 TO 6 for(i_I=1:i_I<=6:i_I++) { !! 08863 D=SLEEP(5) i_D=decSleep(5); !! 08864 IF D THEN INPUT ""_A$ !WARNING: Skipping INPUT in line: 08864 IF D THEN INPUT ""_A$ if(i_D) {decInputStr("",false,s_A); } !! 08867 NEXT I } !! 08868 S=ECHO(0) i_S=decEcho(0); !! 08870 PRINT "Någon skär upp magen. Du märker att" print "Någon skär upp magen. Du märker att^"; !! 08871 GOTO 8833 jump line8833; !! 08873 PRINT "Kermit frågar dej om du vill sjunga eller berätta en historia." .line8873; print "Kermit frågar dej om du vill sjunga eller berätta en historia.^"; !! 08875 A$=FNI$("Svara SJUNG eller BERÄTTA :") \ A$=FNC$(A$) \ PRINT .line8875; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara SJUNG eller BERÄTTA :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08876 IF FNL$(A$,5)="SJUNG" THEN 8890 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SJUNG"))==0) { jump line8890;} !! 08877 IF FNL$(A$,5)="BERÄT" THEN 8880 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"BERÄT"))==0) { jump line8880;} !! 08878 GOTO 8875 jump line8875; !! 08880 PRINT "Du börjar att berätta men efter första meningen" .line8880; print "Du börjar att berätta men efter första meningen "; !! 08881 PRINT "avbryts du av kraftiga bu-rop. Bara två gubbar pä" print "avbryts du av kraftiga bu-rop. Bara två gubbar pä "; !! 08882 PRINT "läktaren skrattar (åt ditt utseende). Fozzi erbjuder dej hjälp." print "läktaren skrattar (åt ditt utseende). Fozzi erbjuder dej hjälp.^"; !! 08884 A$=FNI$("Svara HJÄLP eller SPRING :") \ A$=FNC$(A$) \ PRINT .line8884; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara HJÄLP eller SPRING :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08885 IF FNL$(A$,5)="SPRIN" THEN 8842 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRIN"))==0) { jump line8842;} !! 08886 IF FNL$(A$,5)="HJÄLP" THEN 8440 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"HJÄLP"))==0) { jump line8440;} !! 08887 GOTO 8884 jump line8884; !! 08890 PRINT "Du börjar sjunga: I'm a poor lonesome cowboy and a" .line8890; print "Du börjar sjunga: I'm a poor lonesome cowboy and a "; !! 08891 PRINT "long way from home..." print "long way from home...^"; !! 08894 PRINT "Publiken jublar men sångarna Wayne & Wanda är arga" print "Publiken jublar men sångarna Wayne & Wanda är arga "; !! 08895 PRINT "på dej för att du tagit deras plats. Dom vill döda dej!" print "på dej för att du tagit deras plats. Dom vill döda dej!^"; !! 08897 A$=FNI$("Svara FRED (med Wayne & Wanda) eller FÖLJ (Kermit) :") .line8897; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara FRED (med Wayne & Wanda) eller FÖLJ (Kermit) :"))); !! 08898 A$=FNC$(A$) \ PRINT decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08899 IF FNL$(A$,4)="FRED" THEN 8920 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FRED"))==0) { jump line8920;} !! 08900 IF FNL$(A$,4)<>"FÖLJ" THEN 8897 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FÖLJ"))~=0) { jump line8897;} !! 08902 D=INT(RND*7)+1 !WARNING: random argument should be adjusted in line: 08902 D=INT(RND*7)+1 !WARNING: int function skipped in line: 08902 D=INT(RND*7)+1 i_D=random(7); !! 08903 IF D>4 THEN 8907 if(i_D>4) { jump line8907;} !! 08904 PRINT "Wayne & Wanda kommer bakifrån och kastar upp dej i luften!" .line8904; print "Wayne & Wanda kommer bakifrån och kastar upp dej i luften!^"; !! 08905 S(43)=0 \ GOTO 8963 (i_S_1D-->43)=0;jump line8963; !! 08907 PRINT "Du följer efter Kermit för att få ett kontrakt." .line8907; print "Du följer efter Kermit för att få ett kontrakt.^"; !! 08910 W$(2)=FNI$("Fozzi säjer: Skriv ett intresse som du har :") decStrCpy((s_W_1D-->2)-->0,fnc_FNI(decWriteString(main_str-->0,"Fozzi säjer: Skriv ett intresse som du har :"))); !! 08912 PRINT "Fozzi tackar för sej och går." \ IF S(1)=9 THEN 9528 print "Fozzi tackar för sej och går.^";if((i_S_1D-->1)==9) { jump line9528;} !! 08913 PRINT "Du får ett skärt kontrakt av Kermit."\PRINT "Det finns en dörr till höger." .line8913; print "Du får ett skärt kontrakt av Kermit.^";print "Det finns en dörr till höger.^"; !! 08914 A(9)=1 \ S(1)=S(1)+1 (i_A_1D-->9)=1;(i_S_1D-->1)=(i_S_1D-->1)+1; !! 08915 A$=FNI$("Svara FÖLJ (Fozzi) eller HÖGER :") \ A$=FNC$(A$) \PRINT .line8915; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara FÖLJ (Fozzi) eller HÖGER :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08916 IF FNL$(A$,4)="FÖLJ" THEN 8943 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FÖLJ"))==0) { jump line8943;} !! 08917 IF FNL$(A$,5)="HÖGER" THEN 8950 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"HÖGER"))==0) { jump line8950;} !! 08918 GOTO 8915 jump line8915; !! 08920 PRINT "Du går fram mot Wayne & Wanda för att sluta fred." .line8920; print "Du går fram mot Wayne & Wanda för att sluta fred.^"; !! 08921 D=INT(RND*20)+1 !WARNING: random argument should be adjusted in line: 08921 D=INT(RND*20)+1 !WARNING: int function skipped in line: 08921 D=INT(RND*20)+1 i_D=random(20); !! 08922 IF D=1 THEN 8904 if(i_D==1) { jump line8904;} !! 08923 PRINT "Du bestämmer att du inte ska sjunga mer så W&W" print "Du bestämmer att du inte ska sjunga mer så W&w "; !! 08924 PRINT "ska kunna behålla jobbet. Fozzi kommer fram och säjer:" print "ska kunna behålla jobbet. Fozzi kommer fram och säjer:^"; !! 08925 W$(2)=FNI$("Skriv ett intresse du har!") decStrCpy((s_W_1D-->2)-->0,fnc_FNI(decWriteString(main_str-->0,"Skriv ett intresse du har!"))); !! 08928 PRINT "Fozzi tackar för sej och går. Det finns en dörr till vänster." print "Fozzi tackar för sej och går. Det finns en dörr till vänster.^"; !! 08929 A$=FNI$("Svara FÖLJ (Fozzi) eller VÄNSTER :") \ A$=FNC$(A$) \ PRINT .line8929; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara FÖLJ (Fozzi) eller VÄNSTER :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08930 IF FNL$(A$,5)="VÄNST" THEN 8950 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"VÄNST"))==0) { jump line8950;} !! 08931 IF FNL$(A$,4)="FÖLJ" THEN 8943 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FÖLJ"))==0) { jump line8943;} !! 08932 GOTO 8929 jump line8929; !! 08943 PRINT "Nu går Fozzi in genom en dörr. Det finns också en dörr framåt." .line8943; print "Nu går Fozzi in genom en dörr. Det finns också en dörr framåt.^"; !! 08944 A$=FNI$("Svara FÖLJ (Fozzi) eller FRAMÅT :") \ A$=FNC$(A$) \ PRINT .line8944; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara FÖLJ (Fozzi) eller FRAMÅT :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08945 IF FNL$(A$,5)="FRAMÅ" THEN 8950 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"FRAMÅ"))==0) { jump line8950;} !! 08946 IF FNL$(A$,4)="FÖLJ" THEN 8970 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FÖLJ"))==0) { jump line8970;} !! 08947 GOTO 8944 jump line8944; !! 08950 PRINT "Du är innanför dörren. Kermit kommer fram och säjer" .line8950; print "Du är innanför dörren. Kermit kommer fram och säjer "; !! 08951 PRINT "att du ska vara med i en diskussion om ";W$(2) print "att du ska vara med i en diskussion om ";PrintString((s_W_1D-->2)-->0);new_line; !! 08953 A$=FNI$("Svara DISKUTERA eller SPRING :") \ A$=FNC$(A$) \ PRINT .line8953; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara DISKUTERA eller SPRING :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08954 IF FNL$(A$,5)="DISKU" THEN 8980 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"DISKU"))==0) { jump line8980;} !! 08955 IF FNL$(A$,5)="SPRIN" THEN 8960 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRIN"))==0) { jump line8960;} !! 08957 GOTO 8953 jump line8953; !! 08960 PRINT "Du springer rätt in i ett monster som slukar grönsaker!" .line8960; print "Du springer rätt in i ett monster som slukar grönsaker!^"; !! 08961 PRINT "Han tar upp dej och kastar dej högt upp i luften." print "Han tar upp dej och kastar dej högt upp i luften.^"; !! 08963 D=INT(RND*5)+1 !WARNING: random argument should be adjusted in line: 08963 D=INT(RND*5)+1 !WARNING: int function skipped in line: 08963 D=INT(RND*5)+1 .line8963; i_D=random(5); !! 08964 ON D GOTO 8327,1500,14100,9145,16000 switch(i_D) {1: jump line8327;2: jump line1500;3: jump line14100;4: jump line9145;5: jump line16000;} !! 08970 PRINT "Du är inne i en tortyrkammare. Dörren gick i lås bakom dej!" .line8970; print "Du är inne i en tortyrkammare. Dörren gick i lås bakom dej!^"; !! 08971 PRINT "Väggarna närmar sej. Enda vägen ut spärras av ett monster!" print "Väggarna närmar sej. Enda vägen ut spärras av ett monster!^"; !! 08973 A$=FNI$("Svara SPRING (ut) eller STANNA :") \ A$=FNC$(A$) \ PRINT .line8973; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara SPRING (ut) eller STANNA :")));decStrCpy(s_A,fnc_FNC(s_A));new_line; !! 08974 IF FNL$(A$,5)="SPRIN" THEN 8960 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPRIN"))==0) { jump line8960;} !! 08975 IF FNL$(A$,5)="STANN" THEN 8977 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"STANN"))==0) { jump line8977;} !! 08976 GOTO 8973 jump line8973; !! 08977 PRINT "Väggarna klämmer ut inälvorna på dej!" .line8977; print "Väggarna klämmer ut inälvorna på dej!^"; !! 08978 GOTO 9461 jump line9461; !! 08980 S(2)=S(2)+30 .line8980; (i_S_1D-->2)=(i_S_1D-->2)+30; !! 08983 PRINT "Kermit inleder: Nu ska vi återigen höja programmets" print "Kermit inleder: Nu ska vi återigen höja programmets "; !! 08984 PRINT "intellektuella nivå. Vi ska idag prata kring ämnet ";W$(2);"." print "intellektuella nivå. Vi ska idag prata kring ämnet ";PrintString((s_W_1D-->2)-->0);print ".^"; !! 08985 PRINT W$(6);" får inleda med en replik. Vad tycker du om ";W$(2);"?" PrintString((s_W_1D-->6)-->0);print " får inleda med en replik. Vad tycker du om ";PrintString((s_W_1D-->2)-->0);print "?^"; !! 08987 A$=FNI$("") decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,""))); !! 08988 PRINT "Kermit: Jag håller fullständigt med dej!" print "Kermit: Jag håller fullständigt med dej!^"; !! 08989 PRINT "Fozzi: Nej helt fel, tvärt om!" print "Fozzi: Nej helt fel, tvärt om!^"; !! 08990 PRINT "Gubbarna: Ut med björnen!" print "Gubbarna: Ut med björnen!^"; !! 08991 PRINT "Fozzi: Det var det värsta!!!!" print "Fozzi: Det var det värsta!!!!^"; !! 08992 PRINT "Gubbarna: Nej dina skämt är värre! HA HA HA ..." print "Gubbarna: Nej dina skämt är värre! HA HA HA ...^"; !! 08993 PRINT "Fozzi: Jag ska minsann..." print "Fozzi: Jag ska minsann...^"; !! 08994 PRINT "Kermit: Öh...Vi får visst avrunda här. Nästa veckas ämne:" print "Kermit: Öh...Vi får visst avrunda här. Nästa veckas ämne:^"; !! 08995 PRINT "-Varför retas folk?" print "-Varför retas folk?^"; !! 08996 PRINT "Vi ses då i: *****THE MUPPET SHOW*****" print "Vi ses då i: *****THE MUPPET SHOW*****^"; !! 08997 GOTO 1500 jump line1500; !! 08999 GOSUB 11000 !WARNING: gosub skipped in line: 08999 GOSUB 11000 .line8999; proc_print_err_msg(); !! 09000 Z=21 \ R$="första"'XXXX HISSRUM 1 XXX Z=21 XXX .line9000; i_Z=21;decStrCpy(s_R,decWriteString(main_str-->0,"första")); !! 09002 GOSUB 9250 !WARNING: gosub skipped in line: 09002 GOSUB 9250 proc_desc_lift_room(); !! 09004 GOSUB 12200 !WARNING: gosub skipped in line: 09004 GOSUB 12200 proc_parse(2); !! 09008 IF X=4 THEN 16000 .line9008; if(i_X==4) { jump line16000;} !! 09010 IF X<>3 THEN 8999 if(i_X~=3) { jump line8999;} !! 09012 GOSUB 9260 !WARNING: gosub skipped in line: 09012 GOSUB 9260 proc_lift_action(); !! 09014 ON X% GOTO 9008,9300,9000 !WARNING: removed float-integer conversion in line: 09014 ON X% GOTO 9008,9300,9000 switch(i_X_) {1: jump line9008;2: jump line9300;3: jump line9000;} !! 09019 GOSUB 11000 !WARNING: gosub skipped in line: 09019 GOSUB 11000 .line9019; proc_print_err_msg(); !! 09020 Z=28 \ R$="åttonde"'XXXX HISSRUM 8 XXX Z=28 XXX .line9020; i_Z=28;decStrCpy(s_R,decWriteString(main_str-->0,"åttonde")); !! 09022 GOSUB 9250 !WARNING: gosub skipped in line: 09022 GOSUB 9250 proc_desc_lift_room(); !! 09024 GOSUB 12200 !WARNING: gosub skipped in line: 09024 GOSUB 12200 proc_parse(2); !! 09026 IF X=4 THEN 41000 .line9026; if(i_X==4) { jump line41000hb;} !! 09028 IF X<>3 THEN 9019 if(i_X~=3) { jump line9019;} !! 09030 GOSUB 9260 !WARNING: gosub skipped in line: 09030 GOSUB 9260 proc_lift_action(); !! 09032 ON X% GOTO 9026,9300,9020 !WARNING: removed float-integer conversion in line: 09032 ON X% GOTO 9026,9300,9020 switch(i_X_) {1: jump line9026;2: jump line9300;3: jump line9020;} !! 09035 Z=22'XXXX HISSRUM 2 XXX Z=22 XXX .line9035; i_Z=22; !! 09037 PRINT "Du befinner dej i andra våningens hissrum. Till höger ser man" print "Du befinner dej i andra våningens hissrum. Till höger ser man "; !! 09039 IF S(40)=2 THEN PRINT "en öppen"; ELSE PRINT "en stängd"; if((i_S_1D-->40)==2) { print "en öppen"; } else {print "en stängd"; } !! 09041 PRINT " hissdörr. I den vänstra väggen finns" print " hissdörr. I den vänstra väggen finns "; !! 09043 PRINT "ett hål till ett trapprum." print "ett hål till ett trapprum.^"; !! 09045 GOSUB 12200 !WARNING: gosub skipped in line: 09045 GOSUB 12200 .line9045; proc_parse(2); !! 09047 IF X=3 THEN 15370 .line9047; if(i_X==3) { jump line15370;} !! 09048 IF X1=1 THEN 9035 if(i_X1==1) { jump line9035;} !! 09051 IF X<>4 THEN 9056 if(i_X~=4) { jump line9056;} !! 09053 GOSUB 9260 !WARNING: gosub skipped in line: 09053 GOSUB 9260 proc_lift_action(); !! 09055 ON X% GOTO 9047,9300,9035 !WARNING: removed float-integer conversion in line: 09055 ON X% GOTO 9047,9300,9035 switch(i_X_) {1: jump line9047;2: jump line9300;3: jump line9035;} !! 09056 GOSUB 11000 !WARNING: gosub skipped in line: 09056 GOSUB 11000 .line9056; proc_print_err_msg(); !! 09058 PRINT "Du är i andra våningens hissrum." print "Du är i andra våningens hissrum.^"; !! 09060 GOTO 9045 jump line9045; !! 09065 Z=23'XXXX HISSRUM 3 XXX Z=23 XXX .line9065; i_Z=23; !! 09066 PRINT "3:e våningens hissrum var visst toaletten." print "3:e våningens hissrum var visst toaletten.^"; !! 09067 PRINT "Du spolas ut på golvet. Till vänster finns" print "Du spolas ut på golvet. Till vänster finns "; !! 09068 PRINT "en dörr men du kan också spola ner dej." print "en dörr men du kan också spola ner dej.^"; !! 09069 GOSUB 12200 !WARNING: gosub skipped in line: 09069 GOSUB 12200 .line9069; proc_parse(2); !! 09070 IF FNL$(A$,3)="SPO" THEN 9075 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"SPO"))==0) { jump line9075;} !! 09071 IF X1=1 THEN PRINT "Som sagt, "; \ GOTO 9065 if(i_X1==1) { print "Som sagt, ";jump line9065;} !! 09072 IF X=3 THEN 8300 if(i_X==3) { jump line8300;} !! 09073 GOSUB 11000 !WARNING: gosub skipped in line: 09073 GOSUB 11000 proc_print_err_msg(); !! 09074 PRINT "Du är i toaletten." \ GOTO 9069 print "Du är i toaletten.^";jump line9069; !! 09075 PRINT "Du befinner dej"; .line9075; print "Du befinner dej"; !! 09076 GOTO 9450 jump line9450; !! 09099 GOSUB 11000 !WARNING: gosub skipped in line: 09099 GOSUB 11000 .line9099; proc_print_err_msg(); !! 09100 Z=27 \ R$="sjunde"'XXXX HISSRUM 7 XXX Z=27 XXX .line9100; i_Z=27;decStrCpy(s_R,decWriteString(main_str-->0,"sjunde")); !! 09102 GOSUB 9250 !WARNING: gosub skipped in line: 09102 GOSUB 9250 proc_desc_lift_room(); !! 09103 GOSUB 12200 !WARNING: gosub skipped in line: 09103 GOSUB 12200 proc_parse(2); !! 09104 IF X=4 THEN 1919 .line9104; if(i_X==4) { jump line1919;} !! 09105 IF X<>3 THEN 9099 if(i_X~=3) { jump line9099;} !! 09106 GOSUB 9260 !WARNING: gosub skipped in line: 09106 GOSUB 9260 proc_lift_action(); !! 09107 ON X% GOTO 9104,9300,9100 !WARNING: removed float-integer conversion in line: 09107 ON X% GOTO 9104,9300,9100 switch(i_X_) {1: jump line9104;2: jump line9300;3: jump line9100;} !! 09144 GOSUB 11000 !WARNING: gosub skipped in line: 09144 GOSUB 11000 .line9144; proc_print_err_msg(); !! 09145 Z=24 \ R$="fjärde"'XXXX HISSRUM 4 XXX Z=24 XXX .line9145; i_Z=24;decStrCpy(s_R,decWriteString(main_str-->0,"fjärde")); !! 09146 GOSUB 9250 !WARNING: gosub skipped in line: 09146 GOSUB 9250 proc_desc_lift_room(); !! 09147 PRINT "Bakom dej anar man en öppning." print "Bakom dej anar man en öppning.^"; !! 09148 GOSUB 12200 !WARNING: gosub skipped in line: 09148 GOSUB 12200 proc_parse(2); !! 09150 IF X=4 THEN 15432 .line9150; if(i_X==4) { jump line15432;} !! 09152 IF X=6 THEN 15300 if(i_X==6) { jump line15300;} !! 09154 IF X<>3 THEN 9144 if(i_X~=3) { jump line9144;} !! 09156 GOSUB 9260 !WARNING: gosub skipped in line: 09156 GOSUB 9260 proc_lift_action(); !! 09158 ON X% GOTO 9150,9300,9145 !WARNING: removed float-integer conversion in line: 09158 ON X% GOTO 9150,9300,9145 switch(i_X_) {1: jump line9150;2: jump line9300;3: jump line9145;} !! 09174 GOSUB 11000 !WARNING: gosub skipped in line: 09174 GOSUB 11000 .line9174; proc_print_err_msg(); !! 09175 Z=26 \ R$="sjätte"'XXXX HISSRUM 6 XXX Z=26 XXX .line9175; i_Z=26;decStrCpy(s_R,decWriteString(main_str-->0,"sjätte")); !! 09177 GOSUB 9250 !WARNING: gosub skipped in line: 09177 GOSUB 9250 proc_desc_lift_room(); !! 09179 GOSUB 12200 !WARNING: gosub skipped in line: 09179 GOSUB 12200 proc_parse(2); !! 09181 IF X=4 THEN 8381 .line9181; if(i_X==4) { jump line8381;} !! 09183 IF X<>3 THEN 9174 if(i_X~=3) { jump line9174;} !! 09185 GOSUB 9260 !WARNING: gosub skipped in line: 09185 GOSUB 9260 proc_lift_action(); !! 09187 ON X% GOTO 9181,9300,9175 !WARNING: removed float-integer conversion in line: 09187 ON X% GOTO 9181,9300,9175 switch(i_X_) {1: jump line9181;2: jump line9300;3: jump line9175;} !! 09189 GOSUB 11000 !WARNING: gosub skipped in line: 09189 GOSUB 11000 .line9189; proc_print_err_msg(); !! 09190 Z=29 \ R$="nionde"'XXXX HISSRUM 9 XXX Z=29 XXX .line9190; i_Z=29;decStrCpy(s_R,decWriteString(main_str-->0,"nionde")); !! 09192 GOSUB 9250 !WARNING: gosub skipped in line: 09192 GOSUB 9250 proc_desc_lift_room(); !! 09194 GOSUB 12200 !WARNING: gosub skipped in line: 09194 GOSUB 12200 proc_parse(2); !! 09196 IF X=4 THEN 35000 .line9196; if(i_X==4) { jump line35000;} !! 09198 IF X<>3 THEN 9189 if(i_X~=3) { jump line9189;} !! 09200 GOSUB 9260 !WARNING: gosub skipped in line: 09200 GOSUB 9260 proc_lift_action(); !! 09202 ON X% GOTO 9196,9300,9190 !WARNING: removed float-integer conversion in line: 09202 ON X% GOTO 9196,9300,9190 switch(i_X_) {1: jump line9196;2: jump line9300;3: jump line9190;} !! 09210 A=A*-1 .line9210; i_A=i_A*-1; !! 09211 PRINT S(39); print (i_S_1D-->39); !! 09212 X=S(39) i_X=(i_S_1D-->39); !! 09213 FOR I=1 TO A for(i_I=1:i_I<=i_A:i_I++) { !! 09214 S=SLEEP(2) i_S=decSleep(2); !! 09215 IF S THEN 9222 if(i_S) { jump line9222;} !! 09216 X=X-1 .line9216; i_X=i_X-1; !! 09217 PRINT " ";X; print " ";print i_X," "; !! 09219 NEXT I } !! 09220 PRINT CHR$(7) ! .line9220; PrintString(decChrString(main_str-->0,7));new_line; .line9220; #ifdef TARGET_ZCODE; @sound_effect 1; #endif; ;new_line; !! 09221 GOTO 9359 jump line9359; !! 09222 INPUT ""_C$ !WARNING: Skipping INPUT in line: 09222 INPUT ""_C$ .line9222; decInputStr("",false,s_C); !! 09223 IF FNL$(C$,1)<>"N" AND FNL$(C$,1)<>"n" THEN 9216 if(decStrCmp(fnc_FNL(s_C,1),decWriteString(main_str-->0,"N"))~=0 && decStrCmp(fnc_FNL(s_C,1),decWriteString(main_str-->1,"n"))~=0) { jump line9216;} !! 09224 S(40)=X .line9224; (i_S_1D-->40)=i_X; !! 09225 PRINT "Hissen stannar och du kastas ur!" print "Hissen stannar och du kastas ur!^"; !! 09226 GOTO 9360 jump line9360; !! 09228 X=S(39) .line9228; i_X=(i_S_1D-->39); !! 09229 PRINT S(39); print (i_S_1D-->39); !! 09230 FOR I=1 TO A for(i_I=1:i_I<=i_A:i_I++) { !! 09231 S=SLEEP(2) i_S=decSleep(2); !! 09232 IF S THEN 9238 if(i_S) { jump line9238;} !! 09233 X=X+1 .line9233; i_X=i_X+1; !! 09234 PRINT " ";X; print " ";print i_X," "; !! 09236 NEXT I } !! 09237 GOTO 9220 jump line9220; !! 09238 INPUT ""_C$ !WARNING: Skipping INPUT in line: 09238 INPUT ""_C$ .line9238; decInputStr("",false,s_C); !! 09239 IF FNL$(C$,1)<>"N" AND FNL$(C$,1)<>"n" THEN 9233 if(decStrCmp(fnc_FNL(s_C,1),decWriteString(main_str-->0,"N"))~=0 && decStrCmp(fnc_FNL(s_C,1),decWriteString(main_str-->1,"n"))~=0) { jump line9233;} !! 09240 GOTO 9224 jump line9224; !! 09300 Z=18 \ S(22)=S(22)+1 'XXX HISSEN XXX .line9300; i_Z=18;(i_S_1D-->22)=(i_S_1D-->22)+1; !! 09301 IF S(40)>0 THEN 9335 ELSE S=SLEEP(2) if((i_S_1D-->40)>0) { jump line9335; } else {i_S=decSleep(2); } !! 09304 IF S(22)/2=INT(S(22)/2) THEN PRINT "Du är i hissen." \ GOTO 9307 !WARNING: int function skipped in line: 09304 IF S(22)/2=INT(S(22)/2) THEN PRINT "Du är i hissen." \ GOTO 9307 if((i_S_1D-->22)%2==0) { print "Du är i hissen.^";jump line9307;} !! 09305 PRINT "Du är i hissen. Här finns tio knappar. Dom nio första är numrerade" .line9305; print "Du är i hissen. Här finns tio knappar. Dom nio första är numrerade "; !! 09306 PRINT "1-9. På den sista står det NÖDSTOPP." print "1-9. På den sista står det NÖDSTOPP.^"; !! 09307 GOSUB 6000 !WARNING: gosub skipped in line: 09307 GOSUB 6000 .line9307; proc_print_objects(); !! 09308 PRINT "Vilken knapp trycker du på ? "; .line9308; print "Vilken knapp trycker du på ? "; !! 09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5 !WARNING: random argument should be adjusted in line: 09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5 !WARNING: int function skipped in line: 09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5 !WARNING: random argument should be adjusted in line: 09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5 !WARNING: int function skipped in line: 09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5 i_E=random(9);i_E1=random(15)+4; !! 09310 IF S(40)=0 OR M3%=1% THEN 9315 ELSE IF SLEEP(8+E1) THEN 9315 !WARNING: removed float-integer conversion in line: 09310 IF S(40)=0 OR M3%=1% THEN 9315 ELSE IF SLEEP(8+E1) THEN 9315 if((i_S_1D-->40)==0 || i_M3_==1) { jump line9315; } else {if(decSleep(8+i_E1)) { jump line9315; }} !! 09311 PRINT \ PRINT "Dörrarna går igen och hissen startar." print "^Dörrarna går igen och hissen startar.^"; !! 09312 IF M2%=1% THEN PRINT #2,W$ \ W$=STR$(E)'&&&&& !WARNING: removed float-integer conversion in line: 09312 IF M2%=1% THEN PRINT #2,W$ \ W$=STR$(E)'&&&&& !WARNING: Skipping IO print# in line: 09312 IF M2%=1% THEN PRINT #2,W$ \ W$=STR$(E)'&&&&& if(i_M2_==1) { decStrCpy(s_W,decStrString(main_str-->0,i_E));} !! 09313 S(40)=E \ PRINT "Hissen går till";S(40);"an." (i_S_1D-->40)=i_E;print "Hissen går till ";print (i_S_1D-->40);print " an.^"; !! 09314 GOTO 9356 jump line9356; !! 09315 A$=FNI$("") \ PRINT .line9315; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));new_line; !! 09316 IF ASCII(A$)>48 AND ASCII(A$)<58 THEN S(40)=VAL(FNL$(A$,1)) \ GOTO 9335 .line9316; if(decAscii(s_A)>48 && decAscii(s_A)<58) { (i_S_1D-->40)=decVal(fnc_FNL(s_A,1));jump line9335;} !! 09318 IF FNL$(A$,1)<>"N" AND FNL$(A$,1)<>"n" THEN GOSUB 12000\GOTO 9330 !WARNING: gosub skipped in line: 09318 IF FNL$(A$,1)<>"N" AND FNL$(A$,1)<>"n" THEN GOSUB 12000\GOTO 9330 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"N"))~=0 && decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"n"))~=0) { proc_parse(1);jump line9330;} !! 09322 PRINT "Skrik inte på hjälp innan det hemska börjar!" print "Skrik inte på hjälp innan det hemska börjar!^"; !! 09323 GOTO 9308 jump line9308; !! 09330 IF ASCII(A$)>48 AND ASCII(A$)<58 THEN 9316 .line9330; if(decAscii(s_A)>48 && decAscii(s_A)<58) { jump line9316;} !! 09331 IF X1=1 THEN 9300 if(i_X1==1) { jump line9300;} !! 09332 GOSUB 11000 \ GOTO 9305 !WARNING: gosub skipped in line: 09332 GOSUB 11000 \ GOTO 9305 proc_print_err_msg();jump line9305; !! 09335 IF S(41)<>1 THEN 9355 .line9335; if((i_S_1D-->41)~=1) { jump line9355;} !! 09337 PRINT FNS$("åker hiss",5) PrintString(fnc_FNS(decWriteString(main_str-->0,"åker hiss"),5));new_line; !! 09338 PRINT "Hissen faller !!" print "Hissen faller !!^"; !! 09339 PRINT "Hissen krossas mot hisschaktets botten." print "Hissen krossas mot hisschaktets botten.^"; !! 09340 S(40)=10 \ GOTO 9461 (i_S_1D-->40)=10;jump line9461; !! 09355 PRINT "Hissen startar." \ S=SLEEP(4) .line9355; print "Hissen startar.^";i_S=decSleep(4); !! 09356 A=S(40)-S(39) .line9356; i_A=(i_S_1D-->40)-(i_S_1D-->39); !! 09357 IF A=0 THEN 9360 if(i_A==0) { jump line9360;} !! 09358 IF A<0 THEN 9210 ELSE 9228 if(i_A<0) { jump line9210; } else {jump line9228; } !! 09359 PRINT "Hissen är framme. Du går ur..."\ IF RND<0.1 THEN S(41)=1 !WARNING: random argument should be adjusted in line: 09359 PRINT "Hissen är framme. Du går ur..."\ IF RND<0.1 THEN S(41)=1 !WARNING: removed float value in line: 09359 PRINT "Hissen är framme. Du går ur..."\ IF RND<0.1 THEN S(41)=1 .line9359; print " Hissen är framme. Du går ur...^";if(random(100)<=10) { (i_S_1D-->41)=1;} !! 09360 ON S(40) GOTO 9000,9035,9065,9145,9075,9175,9100,9020,9190 .line9360; switch((i_S_1D-->40)) {1: jump line9000;2: jump line9035;3: jump line9065;4: jump line9145;5: jump line9075;6: jump line9175;7: jump line9100;8: jump line9020;9: jump line9190;} !! 09361 Z=49'XXX ÖSTRA STRANDEN XXX Z=49 XXXXX .line9361; i_Z=49; !! 09362 PRINT "Du är på östra stranden. Åt norr är det skog." print "Du är på östra stranden. Åt norr är det skog.^"; !! 09364 IF S(35)=0 THEN PRINT "Här ligger en roddbåt." if((i_S_1D-->35)==0) { print "Här ligger en roddbåt.^";} !! 09366 GOSUB 15200 !WARNING: gosub skipped in line: 09366 GOSUB 15200 proc_get_command(0); !! 09368 IF S(35)=0 AND (INSTR(1,A$,"BÅT")>0 OR A$="RO") THEN 9390 if((i_S_1D-->35)==0 && (decInstr(1,s_A,decWriteString(main_str-->0,"BÅT"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"RO"))==0)) { jump line9390;} !! 09370 IF X<>0 THEN ON X GOTO 20000,9424,20070,9374,20200,9374,9372,9374,20085,2107 if(i_X~=0) { switch(i_X) {1: jump line20000;2: jump line9424;3: jump line20070;4: jump line9374;5: jump line20200;6: jump line9374;7: jump line9372;8: jump line9374;9: jump line20085;10: jump line2107;}} !! 09372 GOSUB 11000 \ GOTO 9361 !WARNING: gosub skipped in line: 09372 GOSUB 11000 \ GOTO 9361 .line9372; proc_print_err_msg();jump line9361; !! 09374 PRINT "Du kan väl inte gå på vattnet?" \ GOTO 9361 .line9374; print "Du kan väl inte gå på vattnet?^";jump line9361; !! 09390 Z=78'XXXX I BÅTEN XXXXX Z=78 XXXXX .line9390; i_Z=78; !! 09391 PRINT "Du sitter i båten, mitt i sjön." print "Du sitter i båten, mitt i sjön.^"; !! 09392 GOSUB 15200 \ S(35)=INT(RND*2) !WARNING: gosub skipped in line: 09392 GOSUB 15200 \ S(35)=INT(RND*2) !WARNING: random argument should be adjusted in line: 09392 GOSUB 15200 \ S(35)=INT(RND*2) !WARNING: int function skipped in line: 09392 GOSUB 15200 \ S(35)=INT(RND*2) .line9392; proc_get_command(0);(i_S_1D-->35)=random(2)-1; !! 09393 IF X=1 THEN 9410 if(i_X==1) { jump line9410;} !! 09394 IF X=2 THEN 9416 if(i_X==2) { jump line9416;} !! 09395 IF X=3 THEN S(35)=0 \ GOTO 9361 if(i_X==3) { (i_S_1D-->35)=0;jump line9361;} !! 09396 IF X=4 THEN S(35)=1 \ GOTO 2200 if(i_X==4) { (i_S_1D-->35)=1;jump line2200;} !! 09397 IF X=10 THEN 2107 if(i_X==10) { jump line2107;} !! 09399 GOSUB 11000 !WARNING: gosub skipped in line: 09399 GOSUB 11000 proc_print_err_msg(); !! 09400 PRINT "Skriv söder, norr, öster eller väster." print "Skriv söder, norr, öster eller väster.^"; !! 09401 GOTO 9392 jump line9392; !! 09410 PRINT "Oj, en motorbåt åkte för nära dej." .line9410; print "Oj, en motorbåt åkte för nära dej.^"; !! 09411 PRINT "Din båt går runt och Du svimmar!" print "Din båt går runt och Du svimmar!^"; !! 09412 PRINT new_line; !! 09414 PRINT "När Du vaknar är Du"; print "När Du vaknar är Du"; !! 09415 GOTO 9450 jump line9450; !! 09416 PRINT "Du ror och ror..." .line9416; print "Du ror och ror...^"; !! 09417 PRINT "Plötsligt åker Du in i en vattenvirvel som suger ner " print "Plötsligt åker Du in i en vattenvirvel som suger ner "; !! 09418 PRINT "både Dej och båten." print "både Dej och båten.^"; !! 09419 D=SLEEP(3) \ IF D THEN INPUT ""_A$ !WARNING: Skipping INPUT in line: 09419 D=SLEEP(3) \ IF D THEN INPUT ""_A$ i_D=decSleep(3);if(i_D) {decInputStr("",false,s_A); } !! 09420 PRINT new_line; !! 09421 PRINT "Du flyter upp och ser att" print "Du flyter upp och ser att^"; !! 09422 Z=4\GOSUB7500 !WARNING: gosub skipped in line: 09422 Z=4\GOSUB7500 i_Z=4;proc_force_drop_all(); !! 09423 GOTO 2066 jump line2066; !! 09424 PRINT "Du är på en stenig sjöstrand." .line9424; print "Du är på en stenig sjöstrand.^"; !! 09425 PRINT "Det finns en liten badhytt här."\Z=88 print "Det finns en liten badhytt här.^";i_Z=88; !! 09426 PRINT "Ett staket hindrar dej att gå åt NORDOST,ÖSTER eller SYDOST." .line9426; print "Ett staket hindrar dej att gå åt NORDOST,ÖSTER eller SYDOST.^"; !! 09428 GOSUB 15200 !WARNING: gosub skipped in line: 09428 GOSUB 15200 proc_get_command(0); !! 09429 IF X1=1 THEN 9424 if(i_X1==1) { jump line9424;} !! 09430 IF X=0 THEN 9436 if(i_X==0) { jump line9436;} !! 09431 ON X GOTO 9361,9426,20085,20330,20070,9432,9437,9426,9426,2107 switch(i_X) {1: jump line9361;2: jump line9426;3: jump line20085;4: jump line20330;5: jump line20070;6: jump line9432;7: jump line9437;8: jump line9426;9: jump line9426;10: jump line2107;} !! 09432 PRINT "Kan du gå på vattnet?" .line9432; print "Kan du gå på vattnet?^"; !! 09433 GOTO 9424 jump line9424; !! 09436 IF INSTR(1,A$,"BADHYTT")>0 OR FNL$(A$,5)="ÖPPNA" OR A$="IN" THEN 9439 .line9436; if(decInstr(1,s_A,decWriteString(main_str-->0,"BADHYTT"))>0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"ÖPPNA"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"IN"))==0) { jump line9439;} !! 09437 GOSUB 11000 !WARNING: gosub skipped in line: 09437 GOSUB 11000 .line9437; proc_print_err_msg(); !! 09438 GOTO 9424 jump line9424; !! 09439 PRINT "Du går in i badhytten men golvet ger vika och du faller..." .line9439; print "Du går in i badhytten men golvet ger vika och du faller...^"; !! 09440 GOTO 25000 jump line25000; !! 09450 PRINT " under bryggan." .line9450; print " under bryggan.^"; !! 09451 PRINT "Du ser ett hål rakt fram, men kan inte komma dit." print "Du ser ett hål rakt fram, men kan inte komma dit.^"; !! 09452 IF A(1)<>1 THEN GOTO 9455 if((i_A_1D-->1)~=1) { jump line9455;} !! 09453 A(1)=0 \ S(1)=S(1)-1 (i_A_1D-->1)=0;(i_S_1D-->1)=(i_S_1D-->1)-1; !! 09454 PRINT "OJ! Du tappar diamanten. Den ligger på botten." print "OJ! Du tappar diamanten. Den ligger på botten.^"; !! 09455 IF S(2)<10 THEN 9459 .line9455; if((i_S_1D-->2)<10) { jump line9459;} !! 09456 A$=FNI$("Vill du vara kvar här ?") decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vill du vara kvar här ?"))); !! 09457 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 20005 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"N"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"n"))==0) { jump line20005;} !! 09459 PRINT .line9459; new_line; !! 09460 PRINT "Din luft är slut och du kvävs. Ditt lik flyter upp." print "Din luft är slut och du kvävs. Ditt lik flyter upp.^"; !! 09461 A$=FNI$("Vill du att jag ska återuppliva dej ?") .line9461; decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vill du att jag ska återuppliva dej ?"))); !! 09462 S(46)=S(46)+1 (i_S_1D-->46)=(i_S_1D-->46)+1; !! 09464 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 9484 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"N"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"n"))==0) { jump line9484;} !! 09467 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 9470 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"j"))==0) { jump line9470;} !! 09468 PRINT "JA eller NEJ! Min chans att lyckas minskar... " print "JA eller NEJ! Min chans att lyckas minskar... ^"; !! 09469 S(46)=S(46)+1 \ GOTO 9461 (i_S_1D-->46)=(i_S_1D-->46)+1;jump line9461; !! 09470 PRINT "OK, men skyll inte på mej om något går fe..." .line9470; print "OK, men skyll inte på mej om något går fe...^"; !! 09471 IF S(46)=1 THEN 9479 if((i_S_1D-->46)==1) { jump line9479;} !! 09472 IF S(46)=6 THEN 9483 if((i_S_1D-->46)==6) { jump line9483;} !! 09473 D=INT(RND*10)+1 !WARNING: random argument should be adjusted in line: 09473 D=INT(RND*10)+1 !WARNING: int function skipped in line: 09473 D=INT(RND*10)+1 i_D=random(10); !! 09474 IF D>3 THEN 9479 if(i_D>3) { jump line9479;} !! 09475 PRINT "POFF!!! Ett grönt gasmoln omger dej!" print "POFF!!! Ett grönt gasmoln omger dej!^"; !! 09476 PRINT "OJOJOJ, det gick inte. Du är fortfarande stendöd! Jag" print "OJOJOJ, det gick inte. Du är fortfarande stendöd! Jag "; !! 09477 PRINT "lovar att du ska få en värdig begravning!!" print "lovar att du ska få en värdig begravning!!^"; !! 09478 GOTO 99000 ! jump line99000; proc_end(); !! 09479 PRINT "POFF!!! Ett grönt gasmoln omger dej!!" .line9479; print "POFF!!! Ett grönt gasmoln omger dej!!^"; !! 09480 PRINT "Du lever! När gasen skingrats ser Du att " print "Du lever! När gasen skingrats ser Du att ^"; !! 09482 S(2)=S(2)-5 (i_S_1D-->2)=(i_S_1D-->2)-5; !! 09483 GOTO 36050 .line9483; jump line36050; !! 09484 PRINT "VA? Litar du inte på mig? Senast igår återuppväckte jag" .line9484; print "VA? Litar du inte på mig? Senast igår återuppväckte jag "; !! 09485 PRINT "en DEC-2020 och den fungerade i flera minuter..." print "en DEC-2020 och den fungerade i flera minuter...^"; !! 09486 PRINT new_line; !! 09487 PRINT "Men jag ska inte bråka. Du får som du vill." print "Men jag ska inte bråka. Du får som du vill.^"; !! 09488 GOTO 99000 ! jump line99000; proc_end(); !! 09490 Z=54'XXXXX VIGGOS HEMLIGA RUM 1 XXXXX .line9490; i_Z=54; !! 09491 PRINT "Du är i ett dunkelt, dammtäckt rum." print "Du är i ett dunkelt, dammtäckt rum.^"; !! 09492 PRINT "Dörrar går bakåt, åt höger och framåt." .line9492; print "Dörrar går bakåt, åt höger och framåt.^"; !! 09493 IF S(47)>0 THEN PRINT "Det finns ett hål till vänster." \ GOTO 9496 if((i_S_1D-->47)>0) { print "Det finns ett hål till vänster.^";jump line9496;} !! 09494 PRINT "Bakom ett draperi till vänster kan man ana ett hål." print "Bakom ett draperi till vänster kan man ana ett hål.^"; !! 09496 GOSUB 12200 !WARNING: gosub skipped in line: 09496 GOSUB 12200 .line9496; proc_parse(2); !! 09497 IF X1=1 THEN 9490 if(i_X1==1) { jump line9490;} !! 09500 IF X>0 THEN ON X GOTO 9501,9501,9510,9558,9545,14000,9501 if(i_X>0) { switch(i_X) {1: jump line9501;2: jump line9501;3: jump line9510;4: jump line9558;5: jump line9545;6: jump line14000;7: jump line9501;}} !! 09501 GOSUB 11000 !WARNING: gosub skipped in line: 09501 GOSUB 11000 .line9501; proc_print_err_msg(); !! 09502 PRINT "Du är i ett dunkelt, dammtäckt rum."\GOTO 9496 print "Du är i ett dunkelt, dammtäckt rum.^";jump line9496; !! 09510 Z=55'XXXXX VIGGOS HEMLIGA RUM 2 XXXXX .line9510; i_Z=55; !! 09511 IF S(47)>0 THEN PRINT "Det finns ett hål i väggen." ELSE PRINT "Du är vid draperiet." if((i_S_1D-->47)>0) { print "Det finns ett hål i väggen.^"; } else {print "Du är vid draperiet.^"; } !! 09512 GOSUB 12200 !WARNING: gosub skipped in line: 09512 GOSUB 12200 proc_parse(2); !! 09515 IF X=5 THEN 9525 if(i_X==5) { jump line9525;} !! 09516 IF X=6 THEN 9492 if(i_X==6) { jump line9492;} !! 09517 IF FNL$(A$,5)="KLIPP" AND S(47)=0 THEN 9520 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"KLIPP"))==0 && (i_S_1D-->47)==0) { jump line9520;} !! 09518 IF (FNL$(A$,5)="ÖPPNA" OR FNL$(A$,3)="DRA") AND S(47)=0 THEN 9523 if((decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"ÖPPNA"))==0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->1,"DRA"))==0) && (i_S_1D-->47)==0) { jump line9523;} !! 09519 GOSUB 11000 \ GOTO 9510 !WARNING: gosub skipped in line: 09519 GOSUB 11000 \ GOTO 9510 proc_print_err_msg();jump line9510; !! 09520 IF A(27)=1 THEN 9535 .line9520; if((i_A_1D-->27)==1) { jump line9535;} !! 09521 PRINT "Du har inget att klippa med!" print "Du har inget att klippa med!^"; !! 09522 GOTO 9510 jump line9510; !! 09523 PRINT "Du är för svag för att kunna rubba draperiet." .line9523; print "Du är för svag för att kunna rubba draperiet.^"; !! 09524 GOTO 9510 jump line9510; !! 09525 IF S(47)=1 THEN 8148 .line9525; if((i_S_1D-->47)==1) { jump line8148;} !! 09526 PRINT "Draperiet är i vägen." print "Draperiet är i vägen.^"; !! 09527 GOTO 9510 jump line9510; !! 09528 Z=60'XXXXX MUPPET SHOW DEL 2 XXXXX .line9528; i_Z=60; !! 09529 PRINT "Kermit vill ge dej ett kontrakt, men då måste du släppa" print "Kermit vill ge dej ett kontrakt, men då måste du släppa "; !! 09530 PRINT "något först. (Tänk på att du inte kommer hit igen!!)" print "något först. (Tänk på att du inte kommer hit igen!!)^"; !! 09531 A$=FNI$("Svara SLÄPP eller DÅLIGT :") decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Svara SLÄPP eller DÅLIGT :"))); !! 09532 IF FNC$(FNL$(A$,5))="SLÄPP" THEN GOSUB 12000 !WARNING: gosub skipped in line: 09532 IF FNC$(FNL$(A$,5))="SLÄPP" THEN GOSUB 12000 if(decStrCmp(fnc_FNC(fnc_FNL(s_A,5)),decWriteString(main_str-->0,"SLÄPP"))==0) { proc_parse(1);} !! 09533 IF S<9 THEN 8913 if(i_S<9) { jump line8913;} !! 09534 PRINT "Ok." \ PRINT "Du går genom en dörröppning." \ GOTO 8950 print "Ok.^";print "Du går genom en dörröppning.^";jump line8950; !! 09535 S(47)=1 \ S(2)=S(2)+20 .line9535; (i_S_1D-->47)=1;(i_S_1D-->2)=(i_S_1D-->2)+20; !! 09536 PRINT "Du klipper sönder draperiet. Draperiet försvinner." print "Du klipper sönder draperiet. Draperiet försvinner.^"; !! 09537 GOTO 9510 jump line9510; !! 09545 Z=56'XXXXX VIGGOS HEMLIGA RUM 3 XXXXX .line9545; i_Z=56; !! 09546 PRINT "Du är i en återvändsgränd." print "Du är i en återvändsgränd.^"; !! 09547 IF A(28)=2 THEN PRINT "Det ligger en låst låda här som du inte orkar bära." if((i_A_1D-->28)==2) { print "Det ligger en låst låda här som du inte orkar bära.^";} !! 09548 GOSUB 12200 !WARNING: gosub skipped in line: 09548 GOSUB 12200 proc_parse(2); !! 09550 IF X=6 THEN 9490 if(i_X==6) { jump line9490;} !! 09551 IF FNL$(A$,3)="LÅS" THEN 9553 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"LÅS"))==0) { jump line9553;} !! 09552 GOSUB 11000 \ GOTO 9545 !WARNING: gosub skipped in line: 09552 GOSUB 11000 \ GOTO 9545 proc_print_err_msg();jump line9545; !! 09553 IF A(26)<>1 OR A(28)<>2 THEN PRINT "Det kan du inte." \ GOTO 9545 .line9553; if((i_A_1D-->26)~=1 || (i_A_1D-->28)~=2) { print "Det kan du inte.^";jump line9545;} !! 09554 PRINT "Du låser upp lådan och hittar en slägga. Lådan försvinner." print "Du låser upp lådan och hittar en slägga. Lådan försvinner.^"; !! 09555 A(28)=56 \ GOTO 9545 (i_A_1D-->28)=56;jump line9545; !! 09556 GOSUB 11000 !WARNING: gosub skipped in line: 09556 GOSUB 11000 .line9556; proc_print_err_msg(); !! 09557 PRINT "Du är i höger kammare." \ GOTO 9562 .line9557; print "Du är i höger kammare.^";jump line9562; !! 09558 Z=57'XXXXX VIGGOS HEMLIGA RUM 4 XXXXX .line9558; i_Z=57; !! 09559 PRINT "Du är i höger kammare. En väg går framåt, men på ett" print "Du är i höger kammare. En väg går framåt, men på ett "; !! 09560 PRINT "anslag står det: DU SOM VÅGAR DEJ IN HÄR FÅR " print "anslag står det: DU SOM VÅGAR DEJ IN HÄR FÅR "; !! 09561 PRINT "ANTINGEN EN BELÖNING ELLER OCKSÅ ... DÖDEN" print "ANTINGEN EN BELÖNING ELLER OCKSÅ ... DÖDEN^"; !! 09562 IF A(27)=2 THEN PRINT "Fastskruvad i väggen sitter en glasask med en sax i." .line9562; if((i_A_1D-->27)==2) { print "Fastskruvad i väggen sitter en glasask med en sax i.^";} !! 09563 GOSUB 12200 !WARNING: gosub skipped in line: 09563 GOSUB 12200 proc_parse(2); !! 09564 IF FNL$(A$,3)="SLÅ" OR FNL$(A$,5)="KROSS" THEN 9568 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"SLÅ"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"KROSS"))==0) { jump line9568;} !! 09565 IF X=0 OR X>6 THEN 9556 if(i_X==0 || i_X>6) { jump line9556;} !! 09566 ON X GOTO 9556,9556,9556,9556,9575,9490 switch(i_X) {1: jump line9556;2: jump line9556;3: jump line9556;4: jump line9556;5: jump line9575;6: jump line9490;} !! 09568 IF A(27)<>2 THEN 9556 .line9568; if((i_A_1D-->27)~=2) { jump line9556;} !! 09569 IF A(28)<>1 THEN PRINT "Du har inget att slå med."\ GOTO 9558 if((i_A_1D-->28)~=1) { print "Du har inget att slå med.^";jump line9558;} !! 09570 PRINT "Du krossar glaset. Saxen ramlar ur och asken försvinner i ett moln." print "Du krossar glaset. Saxen ramlar ur och asken försvinner i ett moln.^"; !! 09571 A(27)=57 \ GOTO 9557 (i_A_1D-->27)=57;jump line9557; !! 09575 D=INT(RND*10) !WARNING: random argument should be adjusted in line: 09575 D=INT(RND*10) !WARNING: int function skipped in line: 09575 D=INT(RND*10) .line9575; i_D=random(10)-1; !! 09576 IF D<4 THEN PRINT "Gången mynnar ut i ett hus." \ GOTO 2241 if(i_D<4) { print "Gången mynnar ut i ett hus.^";jump line2241;} !! 09577 PRINT "Du trampar på en sprängladdning och sprängs i luften!" print "Du trampar på en sprängladdning och sprängs i luften!^"; !! 09578 GOTO 9461 jump line9461; !########## HOPPBANK .line14100hb; jump line14100; .line1500hb; jump line1500; .line16500hb; jump line16500; .line1909hb; jump line1909; .line1919hb; jump line1919; .line1929hb; jump line1929; .line1950hb; jump line1950; .line1960hb; jump line1960; .line1970hb; jump line1970; .line2019hb; jump line2019; .line20255hb; jump line20255; .line2033hb; jump line2033; .line2044hb; jump line2044; .line2066hb; jump line2066; .line2075hb; jump line2075; .line2115hb; jump line2115; .line2127hb; jump line2127; .line2150hb; jump line2150; .line2200hb; jump line2200; .line2241hb; jump line2241; .line35000hb; jump line35000; .line36000hb; jump line36000; .line41000hb; jump line41000; .line7556hb; jump line7556; .line8000hb; jump line8000; .line8381hb; jump line8381; .line90000hb; jump line90000; .line9020hb; jump line9020; ! .linehb; jump line; !########## SLUT PÅ HOPPBANK !! 09991 Z=8 \ S(8)=S(8)+1'XXXXX HALLEN XXXXX .line9991; i_Z=8;(i_S_1D-->8)=(i_S_1D-->8)+1; !! 09993 IF S(8)=1 THEN S(2)=S(2)+5 if((i_S_1D-->8)==1) { (i_S_1D-->2)=(i_S_1D-->2)+5;} !! 09995 IF S(8)<3 OR S(8)>7 THEN 10009 ELSE 10000 if((i_S_1D-->8)<3 || (i_S_1D-->8)>7) { jump line10009; } else {jump line10000; } !! 09997 GOSUB 11000 !WARNING: gosub skipped in line: 09997 GOSUB 11000 .line9997; proc_print_err_msg(); !! 10000 PRINT "Du är i hallen." .line10000; print "Du är i hallen.^"; !! 10001 GOSUB 12200 !WARNING: gosub skipped in line: 10001 GOSUB 12200 .line10001; proc_parse(2); !! 10002 IF S1>0 THEN 10001 if(i_S1>0) { jump line10001;} !! 10003 IF X1=1 THEN 10009 .line10003; if(i_X1==1) { jump line10009;} !! 10004 IF X=19 THEN GOSUB 12202 \ GOTO 10003 !WARNING: gosub skipped in line: 10004 IF X=19 THEN GOSUB 12202 \ GOTO 10003 if(i_X==19) { proc_parse(3);jump line10003;} !! 10006 IF X>2 AND X<7 THEN ON X-2 GOTO 15350,1500,15425,10015 if(i_X>2 && i_X<7) { switch(i_X-2) {1: jump line15350;2: jump line1500;3: jump line15425;4: jump line10015;}} !! 10008 GOTO 9997 jump line9997; !! 10009 PRINT "Du är i en hall med tre dörrar. På den vänstra finns en nedåtriktad" .line10009; print "Du är i en hall med tre dörrar. På den vänstra finns en nedåtriktad "; !! 10010 PRINT "pil, på dörren rakt fram finns en pil som pekar uppåt och på dörren" print "pil, på dörren rakt fram finns en pil som pekar uppåt och på dörren "; !! 10011 PRINT "till höger står det atelje. Bakom dej ligger porten ut ur huset." print "till höger står det atelje. Bakom dej ligger porten ut ur huset.^"; !! 10012 IF S(19)=1 THEN PRINT "Ytterporten är öppen." if((i_S_1D-->19)==1) { print "Ytterporten är öppen.^";} !! 10013 IF S(8)>7 THEN S(8)=3 if((i_S_1D-->8)>7) { (i_S_1D-->8)=3;} !! 10014 GOTO 10001 jump line10001; !! 10015 IF S(19)=1 THEN PRINT "Porten stängs bakom dej."\S(19)=0\GOTO 20200 .line10015; if((i_S_1D-->19)==1) { print "Porten stängs bakom dej.^";(i_S_1D-->19)=0;jump line20200;} !! 10016 PRINT "Porten är stängd!" print "Porten är stängd!^"; !! 10017 GOTO 10000 jump line10000; !! 10020 Z=16'XXXXX SKUMGUMMIRUMMET XXXXX .line10020; i_Z=16; !! 10022 PRINT "Du är i Skumgummirummet." print "Du är i Skumgummirummet.^"; !! 10024 IF A(15)=0 THEN PRINT "Det finns ett mystiskt, mörkt fönster i väggen." if((i_A_1D-->15)==0) { print "Det finns ett mystiskt, mörkt fönster i väggen.^";} !! 10025 IF A(15)=0 THEN PRINT "Bakom fönstret anar man ett föremål." if((i_A_1D-->15)==0) { print "Bakom fönstret anar man ett föremål.^";} !! 10026 PRINT "Det finns dörrar framåt och åt vänster." print "Det finns dörrar framåt och åt vänster.^"; !! 10028 PRINT "En gång går neråt." print "En gång går neråt.^"; !! 10030 GOSUB 12200 !WARNING: gosub skipped in line: 10030 GOSUB 12200 .line10030; proc_parse(2); !! 10032 IF X1=1 THEN 10020 if(i_X1==1) { jump line10020;} !! 10034 IF X=0 THEN 10040 if(i_X==0) { jump line10040;} !! 10036 ON X GOTO 10050,25130,25100,10050,21100,25000,10090 switch(i_X) {1: jump line10050;2: jump line25130;3: jump line25100;4: jump line10050;5: jump line21100;6: jump line25000;7: jump line10090;} !! 10040 IF A(15)>0 THEN 10050 .line10040; if((i_A_1D-->15)>0) { jump line10050;} !! 10042 IF FNL$(A$,5)="KROSS" OR FNL$(A$,3)="SLÅ" THEN 10084 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"KROSS"))==0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->1,"SLÅ"))==0) { jump line10084;} !! 10044 IF FNL$(A$,4)="SKÄR" THEN 10060 if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"SKÄR"))==0) { jump line10060;} !! 10046 IF FNL$(A$,5)="ÖPPNA" THEN PRINT "Du kan inte öppna fönstret." \ GOTO 10052 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"ÖPPNA"))==0) { print "Du kan inte öppna fönstret.^";jump line10052;} !! 10050 GOSUB 11000 !WARNING: gosub skipped in line: 10050 GOSUB 11000 .line10050; proc_print_err_msg(); !! 10052 PRINT "Du är i Skumgummirummet." .line10052; print "Du är i Skumgummirummet.^"; !! 10054 GOTO 10030 jump line10030; !! 10060 IF INSTR(1,A$,"DIAMA")>0 THEN 10072 .line10060; if(decInstr(1,s_A,decWriteString(main_str-->0,"DIAMA"))>0) { jump line10072;} !! 10062 IF INSTR(1,A$,"TUNGA")>0 THEN 9075 if(decInstr(1,s_A,decWriteString(main_str-->0,"TUNGA"))>0) { jump line9075;} !! 10064 A$=FNI$("Vad ska du skära med? Din vassa tunga ?") decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vad ska du skära med? Din vassa tunga ?"))); !! 10065 A$=FNC$(A$) decStrCpy(s_A,fnc_FNC(s_A)); !! 10066 IF A$="JA" OR FNL$(A$,5)="TUNGA" THEN 9075 if(decStrCmp(s_A,decWriteString(main_str-->0,"JA"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"TUNGA"))==0) { jump line9075;} !! 10068 IF A$="NEJ" THEN PRINT "Det var ju skönt!" \ GOTO 10052 if(decStrCmp(s_A,decWriteString(main_str-->0,"NEJ"))==0) { print "Det var ju skönt!^";jump line10052;} !! 10070 IF FNL$(A$,5)<>"DIAMA" THEN PRINT "Det går inte!" \ GOTO 10052 if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"DIAMA"))~=0) { print "Det går inte!^";jump line10052;} !! 10072 IF A(1)<>1 THEN PRINT "Du bär väl ingen DIAMANT!"\GOTO 10052 .line10072; if((i_A_1D-->1)~=1) { print "Du bär väl ingen DIAMANT!^";jump line10052;} !! 10074 PRINT "Du skär upp fönstret med diamanten." print "Du skär upp fönstret med diamanten.^"; !! 10076 PRINT "En kofot ramlar ut och slår dej hårt i huvudet." print "En kofot ramlar ut och slår dej hårt i huvudet.^"; !! 10078 PRINT "Du rasar ihop av slaget.";FNS$("sover",10) print "Du rasar ihop av slaget.";PrintString(fnc_FNS(decWriteString(main_str-->0,"sover"),10));new_line; !! 10079 S(2)=S(2)+10\PRINT "När du vaknar är du fortfarande i Skumgummirummet." (i_S_1D-->2)=(i_S_1D-->2)+10;print "När du vaknar är du fortfarande i Skumgummirummet.^"; !! 10080 A(15)=16 \ GOTO 10030 (i_A_1D-->15)=16;jump line10030; !! 10084 IF A(28)<>1 THEN PRINT "Du har inget att slå med." \ GOTO 10052 .line10084; if((i_A_1D-->28)~=1) { print "Du har inget att slå med.^";jump line10052;} !! 10086 PRINT "Du krossar fönstret med släggan. Därbakom finns en kofot." print "Du krossar fönstret med släggan. Därbakom finns en kofot.^"; !! 10087 PRINT "Thorvald springer fram och säjer: - Jag hörde braket! Nu tar jag" print "Thorvald springer fram och säjer: - Jag hörde braket! Nu tar jag "; !! 10088 PRINT "kofoten som betalning för det förstörda fönstret." print "kofoten som betalning för det förstörda fönstret.^"; !! 10089 PRINT "Han tar kofoten och försvinner." \ A(15)=5 \ GOTO 10020 print "Han tar kofoten och försvinner.^";(i_A_1D-->15)=5;jump line10020; !! 10090 IF A(15)>0 THEN 10050 .line10090; if((i_A_1D-->15)>0) { jump line10050;} !! 10092 IF A(1)<>1 THEN PRINT "Försök att hitta något du kan skära upp fönstret med." if((i_A_1D-->1)~=1) { print "Försök att hitta något du kan skära upp fönstret med.^";} !! 10094 IF A(1)=1 THEN PRINT "Skär upp fönstret med din diamant!" if((i_A_1D-->1)==1) { print "Skär upp fönstret med din diamant!^";} !! 10096 S(2)=S(2)-5 \ GOTO 10052 (i_S_1D-->2)=(i_S_1D-->2)-5;jump line10052; !! 13000 Z=58'XXX FARSTUN XXXXX .line13000; i_Z=58; !! 13002 PRINT "Du är i farstun, ett litet rum med en dörr bakom dej" print "Du är i farstun, ett litet rum med en dörr bakom dej "; !! 13003 PRINT "och en stor portal rakt fram." print "och en stor portal rakt fram.^"; !! 13004 GOSUB 12200 !WARNING: gosub skipped in line: 13004 GOSUB 12200 proc_parse(2); !! 13005 IF X1=1 THEN 13000 if(i_X1==1) { jump line13000;} !! 13006 IF X>4 THEN ON X-4 GOTO 13173,7570,13010 if(i_X>4) { switch(i_X-4) {1: jump line13173;2: jump line7570;3: jump line13010;}} !! 13008 GOSUB 11000 !WARNING: gosub skipped in line: 13008 GOSUB 11000 .line13008; proc_print_err_msg(); !! 13009 GOTO 13000 jump line13000; !! 13010 IF S(6)>0 OR A(29)<>Z THEN 13008 .line13010; if((i_S_1D-->6)>0 || (i_A_1D-->29)~=i_Z) { jump line13008;} !! 13012 PRINT "Det finns en sak som kan påverka vakten." print "Det finns en sak som kan påverka vakten.^"; !! 13014 S(2)=S(2)-10 (i_S_1D-->2)=(i_S_1D-->2)-10; !! 13016 GOTO 13000 jump line13000; !! 13172 GOSUB 11000 !WARNING: gosub skipped in line: 13172 GOSUB 11000 .line13172; proc_print_err_msg(); !! 13173 Z=62'XXX PORTEN XXX .line13173; i_Z=62; !! 13175 PRINT "Du står vid en jättelik, utsmyckad port." print "Du står vid en jättelik, utsmyckad port.^"; !! 13176 GOSUB 12200 !WARNING: gosub skipped in line: 13176 GOSUB 12200 proc_parse(2); !! 13177 IF X>5 THEN ON X-5 GOTO 13000,13195 if(i_X>5) { switch(i_X-5) {1: jump line13000;2: jump line13195;}} !! 13178 IF X=5 AND S(7)=1 THEN 13220 if(i_X==5 && (i_S_1D-->7)==1) { jump line13220;} !! 13179 IF X=5 THEN PRINT "Porten är låst." \ GOTO 13173 if(i_X==5) { print "Porten är låst.^";jump line13173;} !! 13180 IF X1=1 THEN 13173 if(i_X1==1) { jump line13173;} !! 13184 IF FNL$(A$,3)<>"LÅS" THEN 13172 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"LÅS"))~=0) { jump line13172;} !! 13186 IF INSTR(1,A$,"UPP")>0 THEN 13200 if(decInstr(1,s_A,decWriteString(main_str-->0,"UPP"))>0) { jump line13200;} !! 13188 IF S(7)=0 THEN PRINT "Porten är redan låst." \ GOTO 13173 if((i_S_1D-->7)==0) { print "Porten är redan låst.^";jump line13173;} !! 13190 PRINT "Det går inte utan nycklar." \ GOTO 13173 print "Det går inte utan nycklar.^";jump line13173; !! 13195 IF S(7)<>0 OR S(26)=1 THEN 13172 .line13195; if((i_S_1D-->7)~=0 || (i_S_1D-->26)==1) { jump line13172;} !! 13196 IF A(26)<>2 THEN PRINT "Vakten orkar låsa upp porten, men han har inga nycklar." if((i_A_1D-->26)~=2) { print "Vakten orkar låsa upp porten, men han har inga nycklar.^";} !! 13197 IF A(26)=2 THEN PRINT "Ta hit vakten och lås upp porten." if((i_A_1D-->26)==2) { print "Ta hit vakten och lås upp porten.^";} !! 13198 S(2)=S(2)-15 \ GOTO 13173 (i_S_1D-->2)=(i_S_1D-->2)-15;jump line13173; !! 13200 IF S(7)=1 THEN PRINT "Porten är redan upplåst." \ GOTO 13173 .line13200; if((i_S_1D-->7)==1) { print "Porten är redan upplåst.^";jump line13173;} !! 13202 IF A(26)=1 THEN PRINT "Du orkar inte vrida om nyckeln själv." \ GOTO 13173 if((i_A_1D-->26)==1) { print "Du orkar inte vrida om nyckeln själv.^";jump line13173;} !! 13204 IF A(29)<>1 OR A(26)<>2 THEN PRINT "Det går inte." \ GOTO 13173 if((i_A_1D-->29)~=1 || (i_A_1D-->26)~=2) { print "Det går inte.^";jump line13173;} !! 13206 PRINT "Vakten låser upp porten." print "Vakten låser upp porten.^"; !! 13208 PRINT "Han tittar på nycklarna ett slag, innan han äter upp dom." print "Han tittar på nycklarna ett slag, innan han äter upp dom.^"; !! 13218 S(7)=1 \ A(26)=0 \ S(2)=S(2)+10 \ GOTO 13173 (i_S_1D-->7)=1;(i_A_1D-->26)=0;(i_S_1D-->2)=(i_S_1D-->2)+10;jump line13173; !! 13220 IF S(26)=1 THEN 13235 ELSE S(26)=1 .line13220; if((i_S_1D-->26)==1) { jump line13235; } else {(i_S_1D-->26)=1; } !! 13222 PRINT "Du har kommit in i matrummet. Här har Stugrådet sammanträde." print "Du har kommit in i matrummet. Här har Stugrådet sammanträde.^"; !! 13223 PRINT "Just nu pratar ordföranden, Thorvald:" print "Just nu pratar ordföranden, Thorvald:^"; !! 13224 GOSUB 700 !WARNING: gosub skipped in line: 13224 GOSUB 700 proc_print_thorvald(0); !! 13225 PRINT " - Vi har samlats till detta krismöte för att diskutera den" print " - Vi har samlats till detta krismöte för att diskutera den^"; !! 13226 PRINT " allvarliga frågan om stugforskarnas kvalitet. Jag, och många" print " allvarliga frågan om stugforskarnas kvalitet. Jag, och många^"; !! 13227 PRINT " med mej, anser att stugforskarnas kvalitet genomgående har" print " med mej, anser att stugforskarnas kvalitet genomgående har^"; !! 13228 PRINT " försämrats." print " försämrats.^"; !! 13229 PRINT "Kimmo:" print "Kimmo:^"; !! 13230 PRINT " - Jag håller med dej. Titta bara på den som kom in nu! Jag" print " - Jag håller med dej. Titta bara på den som kom in nu! Jag^"; !! 13231 PRINT " föreslår att vi fortsätter vårt sammanträde i skattkammaren." print " föreslår att vi fortsätter vårt sammanträde i skattkammaren.^"; !! 13232 PRINT \ PRINT "Hela församlingen reser sej och ger sej iväg." print "^Hela församlingen reser sej och ger sej iväg.^"; !! 13233 PRINT \ PRINT new_line;new_line; !! 13235 Z=59 \ PRINT "Du är i husets matrum. Väggarna är målade i rött och guld." .line13235; i_Z=59;print "Du är i husets matrum. Väggarna är målade i rött och guld.^"; !! 13237 IF S(15)=0 THEN PRINT "En trappa leder uppåt." if((i_S_1D-->15)==0) { print "En trappa leder uppåt.^";} !! 13238 IF S(15)=1 THEN PRINT "En trappa har gått uppåt, men är nu obrukbar." if((i_S_1D-->15)==1) { print "En trappa har gått uppåt, men är nu obrukbar.^";} !! 13241 GOSUB 12200 !WARNING: gosub skipped in line: 13241 GOSUB 12200 proc_parse(2); !! 13244 IF X<>0 THEN ON X GOTO 13247,13245,13245,13245,13245,13173,13245 if(i_X~=0) { switch(i_X) {1: jump line13247;2: jump line13245;3: jump line13245;4: jump line13245;5: jump line13245;6: jump line13173;7: jump line13245;}} !! 13245 GOSUB 11000 !WARNING: gosub skipped in line: 13245 GOSUB 11000 .line13245; proc_print_err_msg(); !! 13246 GOTO 13235 jump line13235; !! 13247 IF S(15)=0 AND NOT A(1)=1 THEN 40000 .line13247; if((i_S_1D-->15)==0 && ~(i_A_1D-->1)==1) { jump line40000;} !! 13248 IF S(15)=1 THEN 13252 if((i_S_1D-->15)==1) { jump line13252;} !! 13249 PRINT "Trappan rasar ihop." print "Trappan rasar ihop.^"; !! 13250 S(15)=1 (i_S_1D-->15)=1; !! 13251 GOTO 13235 jump line13235; !! 13252 PRINT "Trappan är avspärrad av stugas gatukontor." .line13252; print "Trappan är avspärrad av stugas gatukontor.^"; !! 13253 GOTO 13235 jump line13235; !! 14000 Z=64'XXXXX MÖRKA GÅNGEN XXXXX .line14000; i_Z=64; !! 14004 PRINT "Du är i en mörk gång. Framåt är en öppning." print "Du är i en mörk gång. Framåt är en öppning.^"; !! 14008 PRINT "Till vänster skymtar man en grind och till höger en panna." print "Till vänster skymtar man en grind och till höger en panna.^"; !! 14010 PRINT "Det finns ett hål i golvet och en gång går snett bakåt-uppåt." print "Det finns ett hål i golvet och en gång går snett bakåt-uppåt.^"; !! 14012 GOSUB 12200 !WARNING: gosub skipped in line: 14012 GOSUB 12200 .line14012; proc_parse(2); !! 14018 IF X1=1 THEN 14000 if(i_X1==1) { jump line14000;} !! 14020 IF X<>0 THEN ON X GOTO 9490,1909,14030,14100,8000,9490,14022 if(i_X~=0) { switch(i_X) {1: jump line9490;2: jump line1909;3: jump line14030;4: jump line14100;5: jump line8000;6: jump line9490;7: jump line14022;}} !! 14022 GOSUB 11000 !WARNING: gosub skipped in line: 14022 GOSUB 11000 .line14022; proc_print_err_msg(); !! 14024 PRINT "Du är i en mörk gång." \ GOTO 14012 print "Du är i en mörk gång.^";jump line14012; !! 14030 PRINT "Du går genom en grind som går i lås bakom dej." .line14030; print "Du går genom en grind som går i lås bakom dej.^"; !! 14032 GOTO 20040 jump line20040; !! 14034 PRINT "Grinden öppnar sej och du går in." .line14034; print "Grinden öppnar sej och du går in.^"; !! 14036 PRINT "BA NG!! Grinden stängs bakom dej!" print "BA NG!! Grinden stängs bakom dej!^"; !! 14038 GOTO 14000 jump line14000; !! 14099 GOSUB 11000 !WARNING: gosub skipped in line: 14099 GOSUB 11000 .line14099; proc_print_err_msg(); !! 14100 Z=65'XXXXX PANNRUMMET XXXXX .line14100; i_Z=65; !! 14106 PRINT "Du är i Pannrummet, en trång gång går snett uppåt-framåt" print "Du är i Pannrummet, en trång gång går snett uppåt-framåt "; !! 14107 PRINT "och en går åt vänster. Till höger fortsätter Pannrummet." print "och en går åt vänster. Till höger fortsätter Pannrummet.^"; !! 14112 GOSUB 12200 !WARNING: gosub skipped in line: 14112 GOSUB 12200 proc_parse(2); !! 14121 IF X=0 THEN 14099 if(i_X==0) { jump line14099;} !! 14124 ON X GOTO 14139,14099,15050,2008,14139,14099,14099 switch(i_X) {1: jump line14139;2: jump line14099;3: jump line15050;4: jump line2008;5: jump line14139;6: jump line14099;7: jump line14099;} !! 14139 IF A(1)<>1 THEN 14000 .line14139; if((i_A_1D-->1)~=1) { jump line14000;} !! 14142 PRINT "Nå'nting du bär på tar emot. Skriv INVENT och släpp det." print "Nå'nting du bär på tar emot. Skriv INVENT och släpp det.^"; !! 14145 GOTO 14100 jump line14100; !! 14998 GOSUB 11000 !WARNING: gosub skipped in line: 14998 GOSUB 11000 .line14998; proc_print_err_msg(); !! 15000 Z=10 \ S(10)=S(10)+1'XXXXX KÄLLAREN XXXXX .line15000; i_Z=10;(i_S_1D-->10)=(i_S_1D-->10)+1; !! 15004 IF S(10)<3 OR S(10)>7 THEN 15018 if((i_S_1D-->10)<3 || (i_S_1D-->10)>7) { jump line15018;} !! 15006 PRINT "Du är i källaren." print "Du är i källaren.^"; !! 15008 GOSUB 12200 !WARNING: gosub skipped in line: 15008 GOSUB 12200 .line15008; proc_parse(2); !! 15012 IF X1=1 THEN 15018 if(i_X1==1) { jump line15018;} !! 15013 IF X=0 THEN 14998 if(i_X==0) { jump line14998;} !! 15014 ON X GOTO 16000,14998,15300,16500,1500,14998,14998 switch(i_X) {1: jump line16000;2: jump line14998;3: jump line15300;4: jump line16500;5: jump line1500;6: jump line14998;7: jump line14998;} !! 15018 PRINT "Du är i källaren. Ett kallt och rått rum med tre dörrar" .line15018; print "Du är i källaren. Ett kallt och rått rum med tre dörrar "; !! 15020 PRINT "(vänster,höger och framåt) och en gång uppåt." print "(vänster,höger och framåt) och en gång uppåt.^"; !! 15024 IF S(10)>8 THEN S(10)=4 if((i_S_1D-->10)>8) { (i_S_1D-->10)=4;} !! 15026 GOTO 15008 jump line15008; !! 15050 Z=9 \ S(9)=S(9)+1 \ S(45)=2'XXXXX ÅP-RUMMET XXXXX .line15050; i_Z=9;(i_S_1D-->9)=(i_S_1D-->9)+1;(i_S_1D-->45)=2; !! 15056 IF S(9)<3 OR S(9)>7 THEN 15066 if((i_S_1D-->9)<3 || (i_S_1D-->9)>7) { jump line15066;} !! 15058 PRINT "Du är i ÅP-rummet." .line15058; print "Du är i ÅP-rummet.^"; !! 15060 GOSUB 12200 !WARNING: gosub skipped in line: 15060 GOSUB 12200 .line15060; proc_parse(2); !! 15062 IF X<>0 THEN ON X GOTO 15076,15064,15386,14100,1500,15078,15064 if(i_X~=0) { switch(i_X) {1: jump line15076;2: jump line15064;3: jump line15386;4: jump line14100;5: jump line1500;6: jump line15078;7: jump line15064;}} !! 15064 GOSUB 11000 !WARNING: gosub skipped in line: 15064 GOSUB 11000 .line15064; proc_print_err_msg(); !! 15066 IF S(9)>8 THEN S(9)=4 .line15066; if((i_S_1D-->9)>8) { (i_S_1D-->9)=4;} !! 15068 PRINT "Du är i ett stort rum som heter ÅP-rummet." print "Du är i ett stort rum som heter ÅP-rummet.^"; !! 15070 PRINT "Dörrar leder till vänster och höger men" print "Dörrar leder till vänster och höger men "; !! 15072 PRINT "man kan också gå framåt." print "man kan också gå framåt.^"; !! 15074 GOTO 15060 jump line15060; !! 15076 PRINT "Tror du att du kan flyga?" \ GOTO 15058 .line15076; print "Tror du att du kan flyga?^";jump line15058; !! 15078 PRINT "Du kan inte gå bakåt!" \ GOTO 15058 .line15078; print "Du kan inte gå bakåt!^";jump line15058; !! 15299 GOSUB 11000 !WARNING: gosub skipped in line: 15299 GOSUB 11000 .line15299; proc_print_err_msg(); !! 15300 Z=11'XXX Hilbertrummet XXX .line15300; i_Z=11; !! 15302 PRINT "Du är i Hilbertrummet, ett rum med fyra dörrar och hål i taket och golvet." print "Du är i Hilbertrummet, ett rum med fyra dörrar och hål i taket och golvet.^"; !! 15304 IF A(17)=11 THEN PRINT "En stege är uppställd mot hålet i taket." if((i_A_1D-->17)==11) { print "En stege är uppställd mot hålet i taket.^";} !! 15306 GOSUB 12200 !WARNING: gosub skipped in line: 15306 GOSUB 12200 proc_parse(2); !! 15308 IF X=0 OR X>6 THEN 15299 if(i_X==0 || i_X>6) { jump line15299;} !! 15310 ON X GOTO 15312,17000,16000,15000,9145,16500 switch(i_X) {1: jump line15312;2: jump line17000;3: jump line16000;4: jump line15000;5: jump line9145;6: jump line16500;} !! 15312 IF A(17)=11 THEN 25000 .line15312; if((i_A_1D-->17)==11) { jump line25000;} !! 15314 PRINT "Du når inte upp till hålet." \ GOTO 15300 print "Du når inte upp till hålet.^";jump line15300; !! 15349 GOSUB 11000 !WARNING: gosub skipped in line: 15349 GOSUB 11000 .line15349; proc_print_err_msg(); !! 15350 Z=46 'XXX TRAPPRUM 1 XXXXXZ=46 XXX .line15350; i_Z=46; !! 15351 PRINT "Du är i ett rum med två rulltrappor." print "Du är i ett rum med två rulltrappor.^"; !! 15352 PRINT "Det finns en dörr bakom dej." print "Det finns en dörr bakom dej.^"; !! 15354 IF S(17)=1 THEN PRINT "Den nedåtgående rulltrappan är avspärrad av Stugas gatukontor." if((i_S_1D-->17)==1) { print "Den nedåtgående rulltrappan är avspärrad av Stugas gatukontor.^";} !! 15355 IF S(18)=1 THEN PRINT "Den uppåtgående rulltrappan är avspärrad av Stugas satukontor." if((i_S_1D-->18)==1) { print "Den uppåtgående rulltrappan är avspärrad av Stugas satukontor.^";} !! 15356 GOSUB 12200 !WARNING: gosub skipped in line: 15356 GOSUB 12200 proc_parse(2); !! 15357 IF X=6 THEN 9991 if(i_X==6) { jump line9991;} !! 15358 IF X=1 AND S(18)=0 THEN 15370 if(i_X==1 && (i_S_1D-->18)==0) { jump line15370;} !! 15359 IF X=2 AND S(17)=0 THEN 15386 ELSE 15349 if(i_X==2 && (i_S_1D-->17)==0) { jump line15386; } else {jump line15349; } !! 15369 GOSUB 11000 !WARNING: gosub skipped in line: 15369 GOSUB 11000 .line15369; proc_print_err_msg(); !! 15370 Z=47'XXX TRAPPRUM 2 XXX .line15370; i_Z=47; !! 15372 PRINT "Du är i ett rum med en nedåtgående rulltrappa och en dörr åt höger." print "Du är i ett rum med en nedåtgående rulltrappa och en dörr åt höger.^"; !! 15373 IF S(18)=1 THEN PRINT "Rulltrappan är avspärrad av Stugas gatukontor." if((i_S_1D-->18)==1) { print "Rulltrappan är avspärrad av Stugas gatukontor.^";} !! 15374 GOSUB 12200 !WARNING: gosub skipped in line: 15374 GOSUB 12200 proc_parse(2); !! 15375 IF X=4 THEN 9035 if(i_X==4) { jump line9035;} !! 15376 IF A(1)=1 AND X=2 AND S(18)=0 THEN 15382 if((i_A_1D-->1)==1 && i_X==2 && (i_S_1D-->18)==0) { jump line15382;} !! 15377 IF X=2 AND S(18)=0 THEN 15350 ELSE 15369 if(i_X==2 && (i_S_1D-->18)==0) { jump line15350; } else {jump line15369; } !! 15382 PRINT "Just när du går fram mot rulltrappan, stannar den och en" .line15382; print "Just när du går fram mot rulltrappan, stannar den och en "; !! 15383 PRINT "gubbe springer fram och spärrar av den." print "gubbe springer fram och spärrar av den.^"; !! 15384 S(18)=1 \ GOTO 15370 (i_S_1D-->18)=1;jump line15370; !! 15385 GOSUB 11000 !WARNING: gosub skipped in line: 15385 GOSUB 11000 .line15385; proc_print_err_msg(); !! 15386 Z=48'XXX TRAPPRUM 3 XXXXX .line15386; i_Z=48; !! 15388 PRINT "Du är i ett rum med en uppåtgående rulltrappa och en dörr framåt." print "Du är i ett rum med en uppåtgående rulltrappa och en dörr framåt.^"; !! 15390 IF S(17)=1 THEN PRINT "Rulltrappan är avspärrad av Stugas gatukontor." if((i_S_1D-->17)==1) { print "Rulltrappan är avspärrad av Stugas gatukontor.^";} !! 15392 GOSUB 12200 !WARNING: gosub skipped in line: 15392 GOSUB 12200 proc_parse(2); !! 15394 IF X=5 THEN 15050 if(i_X==5) { jump line15050;} !! 15396 IF X<>1 OR S(17)<>0 THEN 15385 ELSE IF A(1)<>1 THEN 15350 if(i_X~=1 || (i_S_1D-->17)~=0) { jump line15385; } else {if((i_A_1D-->1)~=1) { jump line15350; }} !! 15398 PRINT "Just när du går fram mot rulltrappan, stannar den och en" print "Just när du går fram mot rulltrappan, stannar den och en "; !! 15399 PRINT "gubbe springer fram och spärrar av den." print "gubbe springer fram och spärrar av den.^"; !! 15400 S(17)=1 \ GOTO 15386 (i_S_1D-->17)=1;jump line15386; !! 15425 Z=90'XXXXX TRAPPRUM 4 XXXXX .line15425; i_Z=90; !! 15427 PRINT "Dörren öppnar sej och du går in i ett rum" print "Dörren öppnar sej och du går in i ett rum "; !! 15428 PRINT "med två trappor och en dörr bakåt." print "med två trappor och en dörr bakåt.^"; !! 15429 GOSUB 12200 !WARNING: gosub skipped in line: 15429 GOSUB 12200 .line15429; proc_parse(2); !! 15430 IF X>0 THEN ON X GOTO 16000,9145,15431,15431,15431,15434,15438 if(i_X>0) { switch(i_X) {1: jump line16000;2: jump line9145;3: jump line15431;4: jump line15431;5: jump line15431;6: jump line15434;7: jump line15438;}} !! 15431 GOSUB 11000 !WARNING: gosub skipped in line: 15431 GOSUB 11000 .line15431; proc_print_err_msg(); !! 15432 PRINT "Du är i trapprummet." \ Z=90 .line15432; print "Du är i trapprummet.^";i_Z=90; !! 15433 GOTO 15429 jump line15429; !! 15434 IF A(1)<>1 THEN 9991 .line15434; if((i_A_1D-->1)~=1) { jump line9991;} !! 15435 PRINT "Dörren har gått i baklås." print "Dörren har gått i baklås.^"; !! 15436 IF A(26)=1 OR A(26)=90 THEN PRINT "Din nyckel passar inte i låset!" if((i_A_1D-->26)==1 || (i_A_1D-->26)==90) { print "Din nyckel passar inte i låset!^";} !! 15437 GOTO 15432 jump line15432; !! 15438 IF A(1)=1 THEN PRINT "TIPS!! Något du bär hindrar dej att gå bakåt!" \ GOTO 15432 .line15438; if((i_A_1D-->1)==1) { print "TIPS!! Något du bär hindrar dej att gå bakåt!^";jump line15432;} !! 15439 GOTO 15431 jump line15431; !! 16000 Z=12 \ S(12)=S(12)+1'XXXXX VINDEN XXXXX .line16000; i_Z=12;(i_S_1D-->12)=(i_S_1D-->12)+1; !! 16012 IF S(12)>2 AND S(12)<8 THEN PRINT "Du är på vinden." \ GOTO 16055 if((i_S_1D-->12)>2 && (i_S_1D-->12)<8) { print "Du är på vinden.^";jump line16055;} !! 16020 PRINT "Du är på vinden, ett litet skrymsle högst ner i huset." .line16020; print "Du är på vinden, ett litet skrymsle högst ner i huset.^"; !! 16030 PRINT "Härifrån kan man gå överallt." print "Härifrån kan man gå överallt.^"; !! 16032 PRINT "På väggen står det: SESAM" print "På väggen står det: SESAM^"; !! 16040 IF RND<0.5 THEN PRINT "Någon säjer: - Du kom hit klockan ";W$(3);" ";W$(4) !WARNING: random argument should be adjusted in line: 16040 IF RND<0.5 THEN PRINT "Någon säjer: - Du kom hit klockan ";W$(3);" ";W$(4) !WARNING: removed float value in line: 16040 IF RND<0.5 THEN PRINT "Någon säjer: - Du kom hit klockan ";W$(3);" ";W$(4) if(random(100)<=50) { print "Någon säjer: - Du kom hit klockan ";PrintString((s_W_1D-->3)-->0);print " ";PrintString((s_W_1D-->4)-->0);new_line;} !! 16045 IF S(12)>8 THEN S(12)=4 if((i_S_1D-->12)>8) { (i_S_1D-->12)=4;} !! 16055 GOSUB 12200 !WARNING: gosub skipped in line: 16055 GOSUB 12200 .line16055; proc_parse(2); !! 16057 IF X1=1 THEN 16020 if(i_X1==1) { jump line16020;} !! 16058 IF X>0 THEN ON X GOTO 15000,15432,9000,15300,17000,16500,16060 if(i_X>0) { switch(i_X) {1: jump line15000;2: jump line15432;3: jump line9000;4: jump line15300;5: jump line17000;6: jump line16500;7: jump line16060;}} !! 16060 GOSUB 11000 !WARNING: gosub skipped in line: 16060 GOSUB 11000 .line16060; proc_print_err_msg(); !! 16065 PRINT "Du är på vinden." \ GOTO 16055 print "Du är på vinden.^";jump line16055; !! 16500 Z=13 \ S(13)=S(13)+1'XXXXX TOMMA RUMMET XXXXX .line16500; i_Z=13;(i_S_1D-->13)=(i_S_1D-->13)+1; !! 16512 IF S(13)>2 AND S(13)<8 THEN PRINT "Du är i Tomma rummet." \ GOTO 16530 if((i_S_1D-->13)>2 && (i_S_1D-->13)<8) { print "Du är i Tomma rummet.^";jump line16530;} !! 16515 PRINT "Du är i ett tomt rum. Det finns ett hål i taket och en ribbstol" .line16515; print "Du är i ett tomt rum. Det finns ett hål i taket och en ribbstol "; !! 16517 PRINT "som leder dit. Dörrar leder åt höger och åt vänster." print "som leder dit. Dörrar leder åt höger och åt vänster.^"; !! 16525 IF S(13)>8 THEN S(13)=4 if((i_S_1D-->13)>8) { (i_S_1D-->13)=4;} !! 16530 GOSUB 12200 !WARNING: gosub skipped in line: 16530 GOSUB 12200 .line16530; proc_parse(2); !! 16535 IF X1=1 THEN 16515 if(i_X1==1) { jump line16515;} !! 16540 IF X>0 THEN ON X GOTO 16000,16545,15000,15300,16545,16545,16545 if(i_X>0) { switch(i_X) {1: jump line16000;2: jump line16545;3: jump line15000;4: jump line15300;5: jump line16545;6: jump line16545;7: jump line16545;}} !! 16545 GOSUB 11000 !WARNING: gosub skipped in line: 16545 GOSUB 11000 .line16545; proc_print_err_msg(); !! 16550 PRINT "Du är i Tomma rummet." \ GOTO 16530 print "Du är i Tomma rummet.^";jump line16530; !! 17000 Z=14 \ S(14)=S(14)+1'XXXXX UNDERLIGA RUMMET XXXXX .line17000; i_Z=14;(i_S_1D-->14)=(i_S_1D-->14)+1; !! 17005 IF S(14)<3 OR S(14)>8 THEN 17100 if((i_S_1D-->14)<3 || (i_S_1D-->14)>8) { jump line17100;} !! 17010 PRINT "Du är i Underliga rummet." .line17010; print "Du är i Underliga rummet.^"; !! 17020 GOSUB 12200 !WARNING: gosub skipped in line: 17020 GOSUB 12200 .line17020; proc_parse(2); !! 17025 IF X<7 AND X>0 THEN ON X GOTO 17150,17180,17185,17195,17220,17240 if(i_X<7 && i_X>0) { switch(i_X) {1: jump line17150;2: jump line17180;3: jump line17185;4: jump line17195;5: jump line17220;6: jump line17240;}} !! 17031 IF X1=1 THEN 17100 if(i_X1==1) { jump line17100;} !! 17032 GOSUB 11000 !WARNING: gosub skipped in line: 17032 GOSUB 11000 proc_print_err_msg(); !! 17033 GOTO 17010 jump line17010; !! 17100 PRINT "Du är i ett underligt rum. Dimslöjor sveper kring dina fötter" .line17100; print "Du är i ett underligt rum. Dimslöjor sveper kring dina fötter "; !! 17101 PRINT "och du ser gångar i alla riktningar." print "och du ser gångar i alla riktningar.^"; !! 17110 IF S(14)>8 THEN S(14)=4 if((i_S_1D-->14)>8) { (i_S_1D-->14)=4;} !! 17120 GOTO 17020 jump line17020; !! 17150 PRINT "Jag är ledsen, men det tar lång tid att komma fram här." .line17150; print "Jag är ledsen, men det tar lång tid att komma fram här.^"; !! 17155 PRINT FNS$("tar mej fram",15) PrintString(fnc_FNS(decWriteString(main_str-->0,"tar mej fram"),15));new_line; !! 17160 D=INT(RND*6)+1 !WARNING: random argument should be adjusted in line: 17160 D=INT(RND*6)+1 !WARNING: int function skipped in line: 17160 D=INT(RND*6)+1 i_D=random(6); !! 17165 IF D=1 THEN 20040 if(i_D==1) { jump line20040;} !! 17172 IF D=3 THEN 15050 if(i_D==3) { jump line15050;} !! 17175 GOTO 17182 jump line17182; !! 17180 D=INT(RND*4)+1 !WARNING: random argument should be adjusted in line: 17180 D=INT(RND*4)+1 !WARNING: int function skipped in line: 17180 D=INT(RND*4)+1 .line17180; i_D=random(4); !! 17181 IF D=4 THEN 40000 if(i_D==4) { jump line40000;} !! 17182 PRINT "Du har vindlat runt i en trång gång och kommer tillbaka." .line17182; print "Du har vindlat runt i en trång gång och kommer tillbaka.^"; !! 17183 GOTO 17010 jump line17010; !! 17185 D=INT(RND*6)+1 !WARNING: random argument should be adjusted in line: 17185 D=INT(RND*6)+1 !WARNING: int function skipped in line: 17185 D=INT(RND*6)+1 .line17185; i_D=random(6); !! 17186 IF D<3 THEN PRINT "Du har en rutten tomat i handen, men den försvinner." if(i_D<3) { print "Du har en rutten tomat i handen, men den försvinner.^";} !! 17190 IF D=5 THEN IF A(1)<>1 THEN 9991 ELSE 14100 if(i_D==5) { if((i_A_1D-->1)~=1) { jump line9991; } else {jump line14100; }} !! 17191 IF D=6 THEN 14100 if(i_D==6) { jump line14100;} !! 17192 GOTO 17182 jump line17182; !! 17195 D=INT(RND*10)+1 !WARNING: random argument should be adjusted in line: 17195 D=INT(RND*10)+1 !WARNING: int function skipped in line: 17195 D=INT(RND*10)+1 .line17195; i_D=random(10); !! 17197 IF D>5 AND S(2)>50 THEN 18000 if(i_D>5 && (i_S_1D-->2)>50) { jump line18000;} !! 17205 IF D=2 THEN 14100 if(i_D==2) { jump line14100;} !! 17210 IF D=3 THEN 8000 if(i_D==3) { jump line8000;} !! 17215 GOTO 17182 jump line17182; !! 17220 IF S(3)>0 AND S(41)=1 THEN 9035 .line17220; if((i_S_1D-->3)>0 && (i_S_1D-->41)==1) { jump line9035;} !! 17230 IF S(40)=4 THEN 1500 if((i_S_1D-->40)==4) { jump line1500hb;} !! 17235 GOTO 9190 jump line9190; !! 17240 D=INT(RND*10) !WARNING: random argument should be adjusted in line: 17240 D=INT(RND*10) !WARNING: int function skipped in line: 17240 D=INT(RND*10) .line17240; i_D=random(10); !! 17245 IF D=2 THEN 15370 if(i_D==2) { jump line15370;} !! 17250 GOTO 17182 jump line17182; !! 18000 PRINT "Du är i ZZZZ-rummet. Ett stort schackbräde är ritat på golvet." .line18000; print "Du är i ZZZZ-rummet. Ett stort schackbräde är ritat på golvet.^"; !! 18020 IF RND<0.3 OR A(18)<>1 OR S(31)<>1 THEN 18120 !WARNING: random argument should be adjusted in line: 18020 IF RND<0.3 OR A(18)<>1 OR S(31)<>1 THEN 18120 !WARNING: removed float value in line: 18020 IF RND<0.3 OR A(18)<>1 OR S(31)<>1 THEN 18120 if(random(100)<=30 || (i_A_1D-->18)~=1 || (i_S_1D-->31)~=1) { jump line18120;} !! 18030 PRINT "Fozzi kommer fram ur dunklet, utklädd till kung." print "Fozzi kommer fram ur dunklet, utklädd till kung.^"; !! 18080 PRINT "Han ser din brännvinsflaska och säjer:" print "Han ser din brännvinsflaska och säjer:^"; !! 18081 PRINT "- Det är väl synd att gå omkring här med en tom brännvinsflaska." print "- Det är väl synd att gå omkring här med en tom brännvinsflaska.^"; !! 18090 PRINT \ PRINT "Han tar fram en fickplunta ur kostymen och fyller på" print "^Han tar fram en fickplunta ur kostymen och fyller på "; !! 18095 S(31)=0 (i_S_1D-->31)=0; !! 18100 PRINT "din brännvinsflaska." print "din brännvinsflaska.^"; !! 18105 PRINT "Fozzi mumlar något om en faun och knuffar ut dej ur rummet." print "Fozzi mumlar något om en faun och knuffar ut dej ur rummet.^"; !! 18110 ON INT(RND*3)+1 GOTO 40000,1960,1960 !WARNING: random argument should be adjusted in line: 18110 ON INT(RND*3)+1 GOTO 40000,1960,1960 !WARNING: int function skipped in line: 18110 ON INT(RND*3)+1 GOTO 40000,1960,1960 .line18110; switch(random(3)) {1: jump line40000;2: jump line1960;3: jump line1960;} !! 18120 PRINT "Du trampas på tårna av en faun, så du springer ut igen." .line18120; print "Du trampas på tårna av en faun, så du springer ut igen.^"; !! 18125 GOTO 18110 jump line18110; !! 20000 IF S(2)>50 THEN 20005'XXX BRYGGAN XXXXX .line20000; if((i_S_1D-->2)>50) { jump line20005;} !! 20001 PRINT "Du står på en brygga någonstans i Småland. Bakom din solvärmda rygg" print "Du står på en brygga någonstans i Småland. Bakom din solvärmda rygg "; !! 20002 PRINT "åker man vattenskidor. En kyrkklocka (som du inte ser) slår tolv." print "åker man vattenskidor. En kyrkklocka (som du inte ser) slår tolv.^"; !! 20003 PRINT "Du ser ett hus rakt fram." print "Du ser ett hus rakt fram.^"; !! 20004 GOTO 20006 jump line20006; !! 20005 PRINT "Du är på bryggan och ser ett hus rakt fram." .line20005; print "Du är på bryggan och ser ett hus rakt fram.^"; !! 20006 Z=70 .line20006; i_Z=70; !! 20007 GOSUB 15200 !WARNING: gosub skipped in line: 20007 GOSUB 15200 .line20007; proc_get_command(0); !! 20008 IF S1>0 THEN 20007 if(i_S1>0) { jump line20007;} !! 20009 IF X1=1 THEN 20000 if(i_X1==1) { jump line20000;} !! 20010 IF X<>0 THEN ON X GOTO 20030,9361,20200,20013,20020,20013,20011,20013,20070,2107 if(i_X~=0) { switch(i_X) {1: jump line20030;2: jump line9361;3: jump line20200;4: jump line20013;5: jump line20020;6: jump line20013;7: jump line20011;8: jump line20013;9: jump line20070;10: jump line2107;}} !! 20011 GOSUB 11000 !WARNING: gosub skipped in line: 20011 GOSUB 11000 .line20011; proc_print_err_msg(); !! 20012 GOTO 20005 jump line20005; !! 20013 PRINT "Du kan väl inte gå på vattnet?" .line20013; print "Du kan väl inte gå på vattnet?^"; !! 20014 GOTO 20005 jump line20005; !! 20020 Z=71'XXXXX SKOG 1 XXXXX .line20020; i_Z=71; !! 20021 PRINT "Du är i skogen." print "Du är i skogen.^"; !! 20024 GOSUB 15200 !WARNING: gosub skipped in line: 20024 GOSUB 15200 proc_get_command(0); !! 20025 IF X<>0 THEN ON X GOTO 20040,20200,20028,20030,20028,20055,20026,20005,20028 if(i_X~=0) { switch(i_X) {1: jump line20040;2: jump line20200;3: jump line20028;4: jump line20030;5: jump line20028;6: jump line20055;7: jump line20026;8: jump line20005;9: jump line20028;}} !! 20026 GOSUB 11000 !WARNING: gosub skipped in line: 20026 GOSUB 11000 .line20026; proc_print_err_msg(); !! 20027 GOTO 20020 jump line20020; !! 20028 PRINT "Ett staket hindrar dej att gå ditåt." .line20028; print "Ett staket hindrar dej att gå ditåt.^"; !! 20029 GOTO 20020 jump line20020; !! 20030 Z=72'XXXX STRAND 1 XXX Z=72 XXXXX .line20030; i_Z=72; !! 20031 PRINT "Du är på stranden väster om bryggan." print "Du är på stranden väster om bryggan.^"; !! 20032 IF S(53)=1 THEN 20350 ELSE S(53)=S(53)+1 if((i_S_1D-->53)==1) { jump line20350; } else {(i_S_1D-->53)=(i_S_1D-->53)+1; } !! 20033 GOSUB 15200 !WARNING: gosub skipped in line: 20033 GOSUB 15200 .line20033; proc_get_command(0); !! 20034 IF X<>0 THEN ON X GOTO 20055,20000,20020,20037,20040,20037,20035,20037,20200,2107 if(i_X~=0) { switch(i_X) {1: jump line20055;2: jump line20000;3: jump line20020;4: jump line20037;5: jump line20040;6: jump line20037;7: jump line20035;8: jump line20037;9: jump line20200;10: jump line2107;}} !! 20035 GOSUB 11000 !WARNING: gosub skipped in line: 20035 GOSUB 11000 .line20035; proc_print_err_msg(); !! 20036 GOTO 20030 jump line20030; !! 20037 PRINT "Du kan väl inte gå på vattnet?" .line20037; print "Du kan väl inte gå på vattnet?^"; !! 20038 GOTO 20030 jump line20030; !! 20040 Z=73'XXXXX SKOG MED GRIND XXXXX .line20040; i_Z=73; !! 20041 PRINT "Du är i skogen, framför en låst grind." print "Du är i skogen, framför en låst grind.^"; !! 20042 if A(26)=1 THEN PRINT "Dina nycklar passar inte i grinden." .line20042; if((i_A_1D-->26)==1) { print "Dina nycklar passar inte i grinden.^";} !! 20043 GOSUB 15200 !WARNING: gosub skipped in line: 20043 GOSUB 15200 proc_get_command(0); !! 20044 IF A$="IN" THEN PRINT "Grinden är ju låst!"\GOTO 20040 if(decStrCmp(s_A,decWriteString(main_str-->0,"IN"))==0) { print "Grinden är ju låst!^";jump line20040;} !! 20045 IF FNL$(A$,3)="LÅS" THEN IF A(26)=1 THEN 20042 ELSE PRINT "Det går inte!"\GOTO 20040 if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"LÅS"))==0) { if((i_A_1D-->26)==1) { jump line20042; } else {print "Det går inte!^"; jump line20040;}} !! 20046 IF A$="SESAM" THEN 14034 if(decStrCmp(s_A,decWriteString(main_str-->0,"SESAM"))==0) { jump line14034;} !! 20047 IF X<>0 THEN ON X GOTO 20050,20020,20050,20055,20050,20050,20048,20030,20050 if(i_X~=0) { switch(i_X) {1: jump line20050;2: jump line20020;3: jump line20050;4: jump line20055;5: jump line20050;6: jump line20050;7: jump line20048;8: jump line20030;9: jump line20050;}} !! 20048 GOSUB 11000 !WARNING: gosub skipped in line: 20048 GOSUB 11000 .line20048; proc_print_err_msg(); !! 20049 GOTO 20040 jump line20040; !! 20050 PRINT "Ett staket hindrar dej att gå ditåt!" .line20050; print "Ett staket hindrar dej att gå ditåt!^"; !! 20051 GOTO 20040 jump line20040; !! 20054 GOSUB 11000 !WARNING: gosub skipped in line: 20054 GOSUB 11000 .line20054; proc_print_err_msg(); !! 20055 Z=74'XXX STRAND 2 XXXX Z=74 XXXXX .line20055; i_Z=74; !! 20056 PRINT "Du är på stranden nordväst om sjön." print "Du är på stranden nordväst om sjön.^"; !! 20057 GOSUB 15200 !WARNING: gosub skipped in line: 20057 GOSUB 15200 proc_get_command(0); !! 20058 IF X1=1 THEN 20061 if(i_X1==1) { jump line20061;} !! 20059 IF X=0 THEN 20054 if(i_X==0) { jump line20054;} !! 20060 ON X GOTO 20063,20030,20040,20155,20063,20063,20054,20065,20020,2107 switch(i_X) {1: jump line20063;2: jump line20030;3: jump line20040;4: jump line20155;5: jump line20063;6: jump line20063;7: jump line20054;8: jump line20065;9: jump line20020;10: jump line2107;} !! 20061 PRINT "Du är på en strand som fortsätter åt öster. Långt bort i öster" .line20061; print "Du är på en strand som fortsätter åt öster. Långt bort i öster "; !! 20062 PRINT "skymtar man en brygga. Åt norr och söder är det skog." print "skymtar man en brygga. Åt norr och söder är det skog.^"; !! 20063 PRINT "Ett staket hindrar dej att gå åt väster, nordväst eller sydväst." .line20063; print "Ett staket hindrar dej att gå åt väster, nordväst eller sydväst.^"; !! 20064 GOTO 20055 jump line20055; !! 20065 PRINT "Du kan väl inte gå på vattnet?" \ GOTO 20055 .line20065; print "Du kan väl inte gå på vattnet?^";jump line20055; !! 20070 Z=75'XXXXX SKOG 2 XXXXX .line20070; i_Z=75; !! 20071 PRINT "Du är i skogen. Åt väster ser du ett hus." print "Du är i skogen. Åt väster ser du ett hus.^"; !! 20073 GOSUB 15200 !WARNING: gosub skipped in line: 20073 GOSUB 15200 proc_get_command(0); !! 20074 IF X<>0 THEN ON X GOTO 20200,20085,20077,9361,20077,20000,20075,9424,20077 if(i_X~=0) { switch(i_X) {1: jump line20200;2: jump line20085;3: jump line20077;4: jump line9361;5: jump line20077;6: jump line20000;7: jump line20075;8: jump line9424;9: jump line20077;}} !! 20075 GOSUB 11000 !WARNING: gosub skipped in line: 20075 GOSUB 11000 .line20075; proc_print_err_msg(); !! 20076 GOTO 20070 jump line20070; !! 20077 PRINT "Ett staket hindrar dej att gå ditåt." .line20077; print "Ett staket hindrar dej att gå ditåt.^"; !! 20078 GOTO 20070 jump line20070; !! 20085 Z=76'XXXXX SKOG 3 XXXXX .line20085; i_Z=76; !! 20086 PRINT "Du är i skogen." print "Du är i skogen.^"; !! 20088 GOSUB 15200 !WARNING: gosub skipped in line: 20088 GOSUB 15200 proc_get_command(0); !! 20089 IF X<>0 THEN ON X GOTO 20070,20092,20094,9424,20092,9361,20090,20105,20092 if(i_X~=0) { switch(i_X) {1: jump line20070;2: jump line20092;3: jump line20094;4: jump line9424;5: jump line20092;6: jump line9361;7: jump line20090;8: jump line20105;9: jump line20092;}} !! 20090 GOSUB 11000 !WARNING: gosub skipped in line: 20090 GOSUB 11000 .line20090; proc_print_err_msg(); !! 20091 GOTO 20085 jump line20085; !! 20092 PRINT "Ett elektriskt stängsel hindrar dej att gå ditåt." .line20092; print "Ett elektriskt stängsel hindrar dej att gå ditåt.^"; !! 20093 GOTO 20085 jump line20085; !! 20094 PRINT "Du går runt, runt. Efter ett tag märker du att du gått vilse." .line20094; print "Du går runt, runt. Efter ett tag märker du att du gått vilse.^"; !! 20095 PRINT "Du går över en äng och ett högt berg." print "Du går över en äng och ett högt berg.^"; !! 20096 PRINT \ PRINT new_line;new_line; !! 20097 PRINT "Plötsligt hittar du "; print "Plötsligt hittar du "; !! 20098 D=INT(RND*5) !WARNING: random argument should be adjusted in line: 20098 D=INT(RND*5) !WARNING: int function skipped in line: 20098 D=INT(RND*5) i_D=random(5)-1; !! 20099 IF D<4 THEN 20102 if(i_D<4) { jump line20102;} !! 20100 PRINT "en stig som du följer tillbaka." print "en stig som du följer tillbaka.^"; !! 20101 GOTO 20085 jump line20085; !! 20102 PRINT "ett hål som du hoppar ner genom." .line20102; print "ett hål som du hoppar ner genom.^"; !! 20103 PRINT \ GOTO 8000 new_line;jump line8000hb; !! 20105 PRINT "Du kryper igenom ett hål i staketet." .line20105; print "Du kryper igenom ett hål i staketet.^"; !! 20107 Z=77'XXX OVANFÖR RÖVARGÖMSTÄLLET XXX .line20107; i_Z=77; !! 20108 PRINT "Du är i skogen." print "Du är i skogen.^"; !! 20110 IF S(20)<1 THEN PRINT "Det ser ut som något har grävt här tidigare." if((i_S_1D-->20)<1) { print "Det ser ut som något har grävt här tidigare.^";} !! 20112 IF S(20)=1 THEN PRINT "Det finns en grop här." if((i_S_1D-->20)==1) { print "Det finns en grop här.^";} !! 20114 GOSUB 20500 !WARNING: gosub skipped in line: 20114 GOSUB 20500 proc_alt_get_command(); !! 20116 IF X=2 AND S(20)=1 THEN 20143 if(i_X==2 && (i_S_1D-->20)==1) { jump line20143;} !! 20117 IF X1=1 THEN 20107 if(i_X1==1) { jump line20107;} !! 20118 IF X<13 THEN 20085 if(i_X<13) { jump line20085;} !! 20120 IF S(20)<0 THEN S(2)=S(2)+10 if((i_S_1D-->20)<0) { (i_S_1D-->2)=(i_S_1D-->2)+10;} !! 20122 S(20)=1 (i_S_1D-->20)=1; !! 20124 PRINT "Du gräver och gräver...";FNS$("gräver",10) print "Du gräver och gräver...";PrintString(fnc_FNS(decWriteString(main_str-->0,"gräver"),10));new_line; !! 20143 Z=80'XXXX RÖVARGÖMSTÄLLET XXXX .line20143; i_Z=80; !! 20145 PRINT "Du är längst ner i en grop och kan bara gå uppåt." print "Du är längst ner i en grop och kan bara gå uppåt.^"; !! 20147 GOSUB 12200 !WARNING: gosub skipped in line: 20147 GOSUB 12200 proc_parse(2); !! 20149 IF X=1 THEN S(3)=1 \ GOTO 20107 if(i_X==1) { (i_S_1D-->3)=1;jump line20107;} !! 20151 GOSUB 11000 \ GOTO 20143 !WARNING: gosub skipped in line: 20151 GOSUB 11000 \ GOTO 20143 proc_print_err_msg();jump line20143; !! 20155 Z=79 'XXXXX SKOG 4 XXXXX Z=79 XXX .line20155; i_Z=79; !! 20156 PRINT "Du är i skogen, väster om sjön." print "Du är i skogen, väster om sjön.^"; !! 20158 GOSUB 15200 !WARNING: gosub skipped in line: 20158 GOSUB 15200 proc_get_command(0); !! 20161 IF X<>0 THEN ON X GOTO 20197,2115,20055,20165,20197,20197,20162,20180,20195,2107 if(i_X~=0) { switch(i_X) {1: jump line20197;2: jump line2115;3: jump line20055;4: jump line20165;5: jump line20197;6: jump line20197;7: jump line20162;8: jump line20180;9: jump line20195;10: jump line2107;}} !! 20162 GOSUB 11000 !WARNING: gosub skipped in line: 20162 GOSUB 11000 .line20162; proc_print_err_msg(); !! 20163 GOTO 20155 jump line20155; !! 20165 Z=82 'XXXXX SKOG 5 XXXXX Z=82 XXX .line20165; i_Z=82; !! 20166 PRINT "Du är i skogen, sydväst om sjön." print "Du är i skogen, sydväst om sjön.^"; !! 20168 GOSUB 15200 !WARNING: gosub skipped in line: 20168 GOSUB 15200 proc_get_command(0); !! 20172 IF X<>0 THEN ON X GOTO 20178,20180,20155,20240,20178,20178,20173,20255,20176 if(i_X~=0) { switch(i_X) {1: jump line20178;2: jump line20180;3: jump line20155;4: jump line20240;5: jump line20178;6: jump line20178;7: jump line20173;8: jump line20255;9: jump line20176;}} !! 20173 GOSUB 11000 !WARNING: gosub skipped in line: 20173 GOSUB 11000 .line20173; proc_print_err_msg(); !! 20174 GOTO 20165 jump line20165; !! 20176 PRINT "Kan du gå på vattnet?" .line20176; print "Kan du gå på vattnet?^"; !! 20177 GOTO 20165 jump line20165; !! 20178 PRINT "Ett staket hindrar dej att gå ditåt." .line20178; print "Ett staket hindrar dej att gå ditåt.^"; !! 20179 GOTO 20165 jump line20165; !! 20180 Z=66 'XXXXX SKOG 6 XXXXX Z=66 XXX .line20180; i_Z=66; !! 20181 PRINT "Du är söder om sjön. En grotta leder åt ÖSTER." print "Du är söder om sjön. En grotta leder åt ÖSTER.^"; !! 20183 GOSUB 15200 !WARNING: gosub skipped in line: 20183 GOSUB 15200 proc_get_command(0); !! 20187 IF X<>0 THEN ON X GOTO 20165,2075,20191,20255,20155,20240,20188,2200,20191,2107 if(i_X~=0) { switch(i_X) {1: jump line20165;2: jump line2075;3: jump line20191;4: jump line20255;5: jump line20155;6: jump line20240;7: jump line20188;8: jump line2200;9: jump line20191;10: jump line2107;}} !! 20188 GOSUB 11000 !WARNING: gosub skipped in line: 20188 GOSUB 11000 .line20188; proc_print_err_msg(); !! 20189 GOTO 20180 jump line20180; !! 20191 PRINT "Kan du gå på vattnet?" .line20191; print "Kan du gå på vattnet?^"; !! 20192 GOTO 20180 jump line20180; !! 20195 PRINT "Kan du gå på vattnet?" .line20195; print "Kan du gå på vattnet?^"; !! 20196 GOTO 20155 jump line20155; !! 20197 PRINT "Ett staket hindrar dej att gå ditåt." .line20197; print "Ett staket hindrar dej att gå ditåt.^"; !! 20198 GOTO 20155 jump line20155; !! 20199 GOSUB 11000 !WARNING: gosub skipped in line: 20199 GOSUB 11000 .line20199; proc_print_err_msg(); !! 20200 Z=81'XXXXX FRAMFÖR HUSET XXXX Z=81 XXX .line20200; i_Z=81; !! 20202 PRINT "Du står framför husets väldiga port." print "Du står framför husets väldiga port.^"; !! 20204 GOSUB 15200 !WARNING: gosub skipped in line: 20204 GOSUB 15200 .line20204; proc_get_command(0); !! 20206 IF X1=1 THEN 20232 .line20206; if(i_X1==1) { jump line20232;} !! 20208 IF X=19 THEN GOSUB 15202 \ GOTO 20206 !WARNING: gosub skipped in line: 20208 IF X=19 THEN GOSUB 15202 \ GOTO 20206 if(i_X==19) { proc_get_command(1);jump line20206;} !! 20210 IF X=0 THEN 20199 if(i_X==0) { jump line20199;} !! 20212 ON X GOTO 20020,20070,20225,20230,20214,20030,20199,9361,20214 switch(i_X) {1: jump line20020;2: jump line20070;3: jump line20225;4: jump line20230;5: jump line20214;6: jump line20030;7: jump line20199;8: jump line9361;9: jump line20214;} !! 20214 PRINT "Huset är i vägen." \ GOTO 20200 .line20214; print "Huset är i vägen.^";jump line20200; !! 20225 IF S(19)=1 THEN PRINT "Porten stängs bakom dej." \ S(19)=0 \ GOTO 9991 .line20225; if((i_S_1D-->19)==1) { print "Porten stängs bakom dej.^";(i_S_1D-->19)=0;jump line9991;} !! 20226 PRINT "Porten är stängd!" print "Porten är stängd!^"; !! 20227 GOTO 20200 jump line20200; !! 20230 PRINT "En avskyvärd stank driver dej tillbaka!" .line20230; print "En avskyvärd stank driver dej tillbaka!^"; !! 20231 GOTO 20200 jump line20200; !! 20232 PRINT "Du står på en trappa framför ett stort hus. En stor port" .line20232; print "Du står på en trappa framför ett stort hus. En stor port "; !! 20233 PRINT "prydd med ett familjevapen i guld och silver finns bredvid" print "prydd med ett familjevapen i guld och silver finns bredvid "; !! 20234 PRINT "dej. I söder ser du en brygga. Åt väster och öster står" print "dej. I söder ser du en brygga. Åt väster och öster står "; !! 20235 PRINT "skogen tät." print "skogen tät.^"; !! 20239 GOTO 20204 jump line20204; !! 20240 Z=67 'XXXXX SKOG 7 XXXXX Z=67 XXX .line20240; i_Z=67; !! 20241 PRINT "Du är i skogen." print "Du är i skogen.^"; !! 20243 GOSUB 15200 !WARNING: gosub skipped in line: 20243 GOSUB 15200 proc_get_command(0); !! 20247 IF X<>0 THEN ON X GOTO 20251,20255,20165,20251,20251,20251,20248,20251,20180 if(i_X~=0) { switch(i_X) {1: jump line20251;2: jump line20255;3: jump line20165;4: jump line20251;5: jump line20251;6: jump line20251;7: jump line20248;8: jump line20251;9: jump line20180;}} !! 20248 GOSUB 11000 !WARNING: gosub skipped in line: 20248 GOSUB 11000 .line20248; proc_print_err_msg(); !! 20249 GOTO 20240 jump line20240; !! 20251 PRINT "Ett staket hindrar dej att gå ditåt." .line20251; print "Ett staket hindrar dej att gå ditåt.^"; !! 20252 GOTO 20240 jump line20240; !! 20255 Z=68 'XXXXX SKOG 8 XXXXX Z=68 XXX .line20255; i_Z=68; !! 20256 PRINT "Du är i skogen. En grotta leder åt NORDOST." .line20256; print "Du är i skogen. En grotta leder åt NORDOST.^"; !! 20258 GOSUB 15200 !WARNING: gosub skipped in line: 20258 GOSUB 15200 proc_get_command(0); !! 20262 IF X<>0 THEN ON X GOTO 20240,2200,20180,20266,20165,20266,20263,20266,2075 if(i_X~=0) { switch(i_X) {1: jump line20240;2: jump line2200;3: jump line20180;4: jump line20266;5: jump line20165;6: jump line20266;7: jump line20263;8: jump line20266;9: jump line2075;}} !! 20263 GOSUB 11000 !WARNING: gosub skipped in line: 20263 GOSUB 11000 .line20263; proc_print_err_msg(); !! 20264 GOTO 20255 jump line20255; !! 20266 PRINT "Ett staket hindrar dej att gå ditåt." .line20266; print "Ett staket hindrar dej att gå ditåt.^"; !! 20267 GOTO 20256 jump line20256; !! 20270 Z=83 'XXXXX SKOG 9 XXXXX Z=83 XXX .line20270; i_Z=83; !! 20271 PRINT "Du är söder om sjön. En grotta leder åt VÄSTER." print "Du är söder om sjön. En grotta leder åt VÄSTER.^"; !! 20273 GOSUB 15200 !WARNING: gosub skipped in line: 20273 GOSUB 15200 proc_get_command(0); !! 20277 IF X<>0 THEN ON X GOTO 2066,20285,20281,20300,20281,2200,20278,20315,20330,2107 if(i_X~=0) { switch(i_X) {1: jump line2066hb;2: jump line20285;3: jump line20281;4: jump line20300;5: jump line20281;6: jump line2200;7: jump line20278;8: jump line20315;9: jump line20330;10: jump line2107;}} !! 20278 GOSUB 11000 !WARNING: gosub skipped in line: 20278 GOSUB 11000 .line20278; proc_print_err_msg(); !! 20279 GOTO 20270 jump line20270; !! 20281 PRINT "Kan du gå på vattnet?" .line20281; print "Kan du gå på vattnet?^"; !! 20282 GOTO 20270 jump line20270; !! 20285 Z=84 'XXXXX SKOG 10 XXXX Z=84 XXX .line20285; i_Z=84; !! 20286 PRINT "Du är i skogen, sydost om sjön." print "Du är i skogen, sydost om sjön.^"; !! 20288 GOSUB 15200 !WARNING: gosub skipped in line: 20288 GOSUB 15200 proc_get_command(0); !! 20292 IF X<>0 THEN ON X GOTO 20270,20297,20330,20315,20295,20300,20293,20297,20297 if(i_X~=0) { switch(i_X) {1: jump line20270;2: jump line20297;3: jump line20330;4: jump line20315;5: jump line20295;6: jump line20300;7: jump line20293;8: jump line20297;9: jump line20297;}} !! 20293 GOSUB 11000 !WARNING: gosub skipped in line: 20293 GOSUB 11000 .line20293; proc_print_err_msg(); !! 20294 GOTO 20285 jump line20285; !! 20295 PRINT "Kan du gå på vattnet?" .line20295; print "Kan du gå på vattnet?^"; !! 20296 GOTO 20285 jump line20285; !! 20297 PRINT "Ett staket hindrar dej att gå ditåt." .line20297; print "Ett staket hindrar dej att gå ditåt.^"; !! 20298 GOTO 20285 jump line20285; !! 20300 Z=85 'XXXXX SKOG 11 XXXX Z=85 XXX .line20300; i_Z=85; !! 20301 PRINT "Du är i skogen. En grotta leder åt NORDVÄST." print "Du är i skogen. En grotta leder åt NORDVÄST.^"; !! 20303 GOSUB 15200 !WARNING: gosub skipped in line: 20303 GOSUB 15200 proc_get_command(0); !! 20307 IF X<>0 THEN ON X GOTO 2200,20315,20270,20312,2066,20312,20309,20312,20285 if(i_X~=0) { switch(i_X) {1: jump line2200hb;2: jump line20315;3: jump line20270;4: jump line20312;5: jump line2066;6: jump line20312;7: jump line20309;8: jump line20312;9: jump line20285;}} !! 20309 GOSUB 11000 !WARNING: gosub skipped in line: 20309 GOSUB 11000 .line20309; proc_print_err_msg(); !! 20310 GOTO 20300 jump line20300; !! 20312 PRINT "Ett staket hindrar dej att gå ditåt." .line20312; print "Ett staket hindrar dej att gå ditåt.^"; !! 20313 GOTO 20300 jump line20300; !! 20315 Z=86 'XXXXX SKOG 12 XXXX Z=86 XXX .line20315; i_Z=86; !! 20316 PRINT "Du är i skogen." print "Du är i skogen.^"; !! 20318 GOSUB 15200 !WARNING: gosub skipped in line: 20318 GOSUB 15200 proc_get_command(0); !! 20322 IF X<>0 THEN ON X GOTO 20300,20327,20285,20327,20270,20327,20324,20327,20327 if(i_X~=0) { switch(i_X) {1: jump line20300;2: jump line20327;3: jump line20285;4: jump line20327;5: jump line20270;6: jump line20327;7: jump line20324;8: jump line20327;9: jump line20327;}} !! 20324 GOSUB 11000 !WARNING: gosub skipped in line: 20324 GOSUB 11000 .line20324; proc_print_err_msg(); !! 20325 GOTO 20315 jump line20315; !! 20327 PRINT "Ett staket hindrar dej att gå ditåt." .line20327; print "Ett staket hindrar dej att gå ditåt.^"; !! 20328 GOTO 20315 jump line20315; !! 20330 Z=87 'XXXXX SKOG 13 XXXX Z=87 XXX .line20330; i_Z=87; !! 20331 PRINT "Du är i skogen, öster om sjön." print "Du är i skogen, öster om sjön.^"; !! 20333 GOSUB 15200 !WARNING: gosub skipped in line: 20333 GOSUB 15200 proc_get_command(0); !! 20336 IFX<>0 THEN ON X GOTO 20340,20342,9424,20285,20340,20270,20338,20342,20342,2107 if(i_X~=0) { switch(i_X) {1: jump line20340;2: jump line20342;3: jump line9424;4: jump line20285;5: jump line20340;6: jump line20270;7: jump line20338;8: jump line20342;9: jump line20342;10: jump line2107;}} !! 20338 GOSUB 11000 !WARNING: gosub skipped in line: 20338 GOSUB 11000 .line20338; proc_print_err_msg(); !! 20339 GOTO 20330 jump line20330; !! 20340 PRINT "Kan du gå på vattnet?" .line20340; print "Kan du gå på vattnet?^"; !! 20341 GOTO 20330 jump line20330; !! 20342 PRINT "Ett staket hindrar dej att gå ditåt." .line20342; print "Ett staket hindrar dej att gå ditåt.^"; !! 20343 GOTO 20330 jump line20330; !! 20350 S(53)=2 .line20350; (i_S_1D-->53)=2; !! 20352 PRINT "Plötsligt hoppar ett konstigt, blått litet djur fram" print "Plötsligt hoppar ett konstigt, blått litet djur fram "; !! 20354 PRINT "ur skogen och ropar:" print "ur skogen och ropar:^"; !! 20356 PRINT " - Hjälp ! Jag vet inte om jag är en bug eller en feature!" print " - Hjälp ! Jag vet inte om jag är en bug eller en feature!^"; !! 20358 PRINT "Det springer rätt ut i sjön och simmar bort." print "Det springer rätt ut i sjön och simmar bort.^"; !! 20360 PRINT \ GOTO 20033 new_line;jump line20033; !! 21100 Z=30'XXXXX DIMMIGT BERGSRUM XXXXX .line21100; i_Z=30; !! 21120 PRINT "Du är i ett dimmigt bergsrum. Kall rå luft blåser dej i" .line21120; print "Du är i ett dimmigt bergsrum. Kall rå luft blåser dej i "; !! 21122 PRINT "ansiktet. Här finns"; print "ansiktet. Här finns"; !! 21130 IF S(23)=0 THEN PRINT " en garderob." if((i_S_1D-->23)==0) { print " en garderob.^";} !! 21140 IF S(23)=1 THEN PRINT " ett kassaskåp i en garderob." if((i_S_1D-->23)==1) { print " ett kassaskåp i en garderob.^";} !! 21155 PRINT "En gång leder uppåt och nedåt." print "En gång leder uppåt och nedåt.^"; !! 21160 GOSUB 12200 !WARNING: gosub skipped in line: 21160 GOSUB 12200 .line21160; proc_parse(2); !! 21180 IF X1=1 THEN 21120 .line21180; if(i_X1==1) { jump line21120;} !! 21190 IF X=0 OR X>6 THEN 21220 if(i_X==0 || i_X>6) { jump line21220;} !! 21200 ON X GOTO 25000,25130,36000,21230,21230,10020 switch(i_X) {1: jump line25000;2: jump line25130;3: jump line36000;4: jump line21230;5: jump line21230;6: jump line10020;} !! 21220 IF INSTR(1,A$,"KORKSKRUV")>0 THEN 21300 .line21220; if(decInstr(1,s_A,decWriteString(main_str-->0,"KORKSKRUV"))>0) { jump line21300;} !! 21230 GOSUB 11000 !WARNING: gosub skipped in line: 21230 GOSUB 11000 .line21230; proc_print_err_msg(); !! 21240 PRINT "Du är i ett dimmigt bergsrum." .line21240; print "Du är i ett dimmigt bergsrum.^"; !! 21250 GOTO 21160 jump line21160; !! 21300 IF S(23)=1 THEN 21330 .line21300; if((i_S_1D-->23)==1) { jump line21330;} !! 21310 GOTO 21230 jump line21230; !! 21330 PRINT "Kassaskåpet öppnas." .line21330; print "Kassaskåpet öppnas.^"; !! 21340 Z=31 .line21340; i_Z=31; !! 21350 GOSUB 12200 !WARNING: gosub skipped in line: 21350 GOSUB 12200 .line21350; proc_parse(2); !! 21380 IF X>0 AND X<7 THEN 21500 if(i_X>0 && i_X<7) { jump line21500;} !! 21390 IF S(23)=0 OR Z=30 THEN 21240 if((i_S_1D-->23)==0 || i_Z==30) { jump line21240;} !! 21410 GOSUB 11000 !WARNING: gosub skipped in line: 21410 GOSUB 11000 proc_print_err_msg(); !! 21415 PRINT "Kassaskåpet är öppet." print "Kassaskåpet är öppet.^"; !! 21420 GOTO 21350 jump line21350; !! 21500 PRINT "Kassaskåpet stängs." .line21500; print "Kassaskåpet stängs.^"; !! 21510 Z=30 \ GOTO 21180 i_Z=30;jump line21180; !! 25000 Z=15'XXX THORVALDS RUM X .line25000; i_Z=15; !! 25001 PRINT "Du är i Thorvalds rum. Vid väggen står en stor förseglad" print "Du är i Thorvalds rum. Vid väggen står en stor förseglad "; !! 25004 IF A(1)=0 THEN A(1)=15 if((i_A_1D-->1)==0) { (i_A_1D-->1)=15;} !! 25005 PRINT "kista. I taket finns en taklucka och i golvet finns ett hål." print "kista. I taket finns en taklucka och i golvet finns ett hål.^"; !! 25008 IF A(3)=31 THEN PRINT "På väggen står det: KORKSKRUV HJÄLPER TILL MED KASS..." if((i_A_1D-->3)==31) { print "På väggen står det: KORKSKRUV HJÄLPER TILL MED KASS...^";} !! 25010 GOSUB 12200 !WARNING: gosub skipped in line: 25010 GOSUB 12200 .line25010; proc_parse(2); !! 25012 IF X>0 THEN ON X GOTO 25050,15300,25100,10020,40000,21100,25060 if(i_X>0) { switch(i_X) {1: jump line25050;2: jump line15300;3: jump line25100;4: jump line10020;5: jump line40000;6: jump line21100;7: jump line25060;}} !! 25014 IF X1=1 THEN 25000 if(i_X1==1) { jump line25000;} !! 25016 IF INSTR(1,A$,"ÖPPNA")>0 THEN 25045 if(decInstr(1,s_A,decWriteString(main_str-->0,"ÖPPNA"))>0) { jump line25045;} !! 25019 IF INSTR(1,A$,"KISTA")>0 THEN 25035 if(decInstr(1,s_A,decWriteString(main_str-->0,"KISTA"))>0) { jump line25035;} !! 25020 IF INSTR(1,A$,"LÅS UPP KIST")>0 THEN PRINT "Det finns inget lås."\GOTO 25025 if(decInstr(1,s_A,decWriteString(main_str-->0,"LÅS UPP KIST"))>0) { print "Det finns inget lås.^";jump line25025;} !! 25023 GOSUB 11000 !WARNING: gosub skipped in line: 25023 GOSUB 11000 .line25023; proc_print_err_msg(); !! 25025 PRINT "Du är i Thorvalds rum." \ GOTO 25010 .line25025; print "Du är i Thorvalds rum.^";jump line25010; !! 25035 IF A(15)<>1 THEN PRINT "Du kan inte öppna kistan."\GOTO25025 .line25035; if((i_A_1D-->15)~=1) { print "Du kan inte öppna kistan.^";jump line25025;} !! 25036 PRINT "Du bänder upp kistan med din kofot och ser att det ligger en" print "Du bänder upp kistan med din kofot och ser att det ligger en "; !! 25037 PRINT "cykelpump där!" print "cykelpump där!^"; !! 25038 PRINT "Slarvig som du är lyckas du tappa kofoten i kistan när du tar" print "Slarvig som du är lyckas du tappa kofoten i kistan när du tar "; !! 25039 PRINT "pumpen. Kistlocket smäller igen." print "pumpen. Kistlocket smäller igen.^"; !! 25040 A(16)=1 \ A(15)=5 \ GOTO 25000 (i_A_1D-->16)=1;(i_A_1D-->15)=5;jump line25000; !! 25045 IF A$="ÖPPNA" THEN A$=FNI$("Öppna vad") \ A$=FNC$(A$) .line25045; if(decStrCmp(s_A,decWriteString(main_str-->0,"ÖPPNA"))==0) { decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->1,"Öppna vad")));decStrCpy(s_A,fnc_FNC(s_A));} !! 25046 IF INSTR(1,A$,"KIST")>0 THEN 25035 if(decInstr(1,s_A,decWriteString(main_str-->0,"KIST"))>0) { jump line25035;} !! 25047 IF INSTR(1,A$,"TAKLU")=0 AND INSTR(1,A$,"LUCK")=0 THEN 25023 if(decInstr(1,s_A,decWriteString(main_str-->0,"TAKLU"))==0 && decInstr(1,s_A,decWriteString(main_str-->1,"LUCK"))==0) { jump line25023;} !! 25050 IF A(17)<>1 AND A(17)<>Z THEN PRINT "Takluckan sitter för högt!"\GOTO 25000 .line25050; if((i_A_1D-->17)~=1 && (i_A_1D-->17)~=i_Z) { print "Takluckan sitter för högt!^";jump line25000;} !! 25051 PRINT "Du klättrar upp på stegen och öppnar luckan." print "Du klättrar upp på stegen och öppnar luckan.^"; !! 25053 IF A(2)<>0 THEN PRINT "Där finns inget, så du klättrar ner igen."\ GOTO 25000 if((i_A_1D-->2)~=0) { print "Där finns inget, så du klättrar ner igen.^";jump line25000;} !! 25054 PRINT "Det finns en illaluktande gurka här." print "Det finns en illaluktande gurka här.^"; !! 25055 PRINT "Den rasar ned och lägger sej på golvet." print "Den rasar ned och lägger sej på golvet.^"; !! 25056 A(2)=15 \ GOTO 25025 (i_A_1D-->2)=15;jump line25025; !! 25060 IF A(2)>0 THEN 25070 .line25060; if((i_A_1D-->2)>0) { jump line25070;} !! 25062 IF A(17)<>1 AND A(17)<>Z THEN PRINT "Det behövs en stege för att nå upp." if((i_A_1D-->17)~=1 && (i_A_1D-->17)~=i_Z) { print "Det behövs en stege för att nå upp.^";} !! 25064 IF A(17)=1 OR A(17)=Z THEN PRINT "Öppna takluckan!" if((i_A_1D-->17)==1 || (i_A_1D-->17)==i_Z) { print "Öppna takluckan!^";} !! 25066 S(2)=S(2)-5 .line25066; (i_S_1D-->2)=(i_S_1D-->2)-5; !! 25068 GOTO 25025 jump line25025; !! 25070 IF A(15)=5 THEN 25023 .line25070; if((i_A_1D-->15)==5) { jump line25023;} !! 25072 PRINT "Kistan kan bara öppnas med en kofot." print "Kistan kan bara öppnas med en kofot.^"; !! 25074 GOTO 25066 jump line25066; !! 25100 PRINT "Du tittar in i personalköket. Osvald ryter till:" .line25100; print "Du tittar in i personalköket. Osvald ryter till:^"; !! 25102 PRINT "-STICK!!Din eländiga babian!" print "-STICK!!Din eländiga babian!^"; !! 25103 PRINT "Du ser en liten faun som quarkar en praktyl. Faunen säjer:" print "Du ser en liten faun som quarkar en praktyl. Faunen säjer:^"; !! 25104 PRINT "-Vad har du här att göra? Räcker det inte med att folk ränner" print "-Vad har du här att göra? Räcker det inte med att folk ränner "; !! 25105 PRINT "omkring som tokar nere hos mej? Ska dom komma hit också?" print "omkring som tokar nere hos mej? Ska dom komma hit också?^"; !! 25110 PRINT new_line; !! 25115 PRINT "En liten faun dyker upp." print "En liten faun dyker upp.^"; !! 25116 IF RND<0.8 OR S(29)=1 THEN 25130 !WARNING: random argument should be adjusted in line: 25116 IF RND<0.8 OR S(29)=1 THEN 25130 !WARNING: removed float value in line: 25116 IF RND<0.8 OR S(29)=1 THEN 25130 if(random(100)<=80 || (i_S_1D-->29)==1) { jump line25130;} !! 25117 PRINT "Han kastar en kniv mot dej... "; print "Han kastar en kniv mot dej... "; !! 25118 IF RND<0.5 THEN 25121 ELSE PRINT "Den träffar! !" \ Z=15 !WARNING: random argument should be adjusted in line: 25118 IF RND<0.5 THEN 25121 ELSE PRINT "Den träffar! !" \ Z=15 !WARNING: removed float value in line: 25118 IF RND<0.5 THEN 25121 ELSE PRINT "Den träffar! !" \ Z=15 if(random(100)<=50) { jump line25121; } else {print "Den träffar! !^"; i_Z=15; } !! 25119 GOSUB 7500 !WARNING: gosub skipped in line: 25119 GOSUB 7500 proc_force_drop_all(); !! 25120 GOTO 9461 jump line9461; !! 25121 PRINT "Den missar!" \ PRINT "Golvet ger plötsligt vika och du faller." .line25121; print "Den missar!^";print "Golvet ger plötsligt vika och du faller.^"; !! 25122 GOTO 15300 jump line15300; !! 25130 PRINT "Du är i ett mörkt rum." .line25130; print "Du är i ett mörkt rum.^"; !! 25135 Z=96 i_Z=96; !! 25136 GOSUB 12200 !WARNING: gosub skipped in line: 25136 GOSUB 12200 proc_parse(2); !! 25210 IF X=1 THEN 21100 if(i_X==1) { jump line21100;} !! 25212 IF X=6 THEN 10020 if(i_X==6) { jump line10020;} !! 25215 IF X1=1 THEN 25130 if(i_X1==1) { jump line25130;} !! 25220 GOSUB 11000 !WARNING: gosub skipped in line: 25220 GOSUB 11000 proc_print_err_msg(); !! 25230 GOTO 25130 jump line25130; !! 35000 Z=100'XXX TEFELONSTUGAN XXX Z=100 ZZZZZZZZZZ .line35000; i_Z=100; !! 35005 S(27)=S(27)+1 (i_S_1D-->27)=(i_S_1D-->27)+1; !! 35010 IF S(27)>3 AND S(27)<8 THEN 35030 if((i_S_1D-->27)>3 && (i_S_1D-->27)<8) { jump line35030;} !! 35015 PRINT "Du är i en stuga med dörrar bakåt, framåt och åt" .line35015; print "Du är i en stuga med dörrar bakåt, framåt och åt "; !! 35020 PRINT "höger. Högt upp i taket finns ett fönster." print "höger. Högt upp i taket finns ett fönster.^"; !! 35025 GOTO 35035 jump line35035; !! 35030 PRINT "Du är i stugan." .line35030; print "Du är i stugan.^"; !! 35035 IF S(27)=8 THEN S(27)=4 .line35035; if((i_S_1D-->27)==8) { (i_S_1D-->27)=4;} !! 35040 GOSUB 6000 !WARNING: gosub skipped in line: 35040 GOSUB 6000 proc_print_objects(); !! 35045 IF S(27)=1 AND J(100)=1 AND A(25)=100 THEN PRINT "Telefonen ringer." if((i_S_1D-->27)==1 && (i_J_1D-->100)==1 && (i_A_1D-->25)==100) { print "Telefonen ringer.^";} !! 35050 PRINT \ A$=FNI$("") ! new_line;decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,""))); new_line;proc_receive_input(); !! 35052 PRINT \ GOSUB 12000 !WARNING: gosub skipped in line: 35052 PRINT \ GOSUB 12000 new_line;proc_parse(1); !! 35055 IF INSTR(1,A$,"SVAR")>0 THEN 35100 if(decInstr(1,s_A,decWriteString(main_str-->0,"SVAR"))>0) { jump line35100;} !! 35065 IF X1=1 THEN 35015 if(i_X1==1) { jump line35015;} !! 35070 IF X>3 AND X<7 THEN 35085 if(i_X>3 && i_X<7) { jump line35085;} !! 35075 GOSUB 11000 !WARNING: gosub skipped in line: 35075 GOSUB 11000 .line35075; proc_print_err_msg(); !! 35080 GOTO 35030 jump line35030; !! 35085 IF S(27)=1 THEN S(27)=0 .line35085; if((i_S_1D-->27)==1) { (i_S_1D-->27)=0;} !! 35090 ON (X-3) GOTO 7556,9190,35150 switch((i_X-3)) {1: jump line7556hb;2: jump line9190;3: jump line35150;} !! 35100 IF S(27)>1 OR J(100)=0 OR A(25)<>100 THEN 35075 .line35100; if((i_S_1D-->27)>1 || (i_J_1D-->100)==0 || (i_A_1D-->25)~=100) { jump line35075;} !! 35105 S(27)=2 (i_S_1D-->27)=2; !! 35110 PRINT "Du svarar i telefon och hör en röst:" print "Du svarar i telefon och hör en röst:^"; !! 35115 IF W$(6)="" THEN W$(6)=FNI$("- Vad heter du ?") if(decStrCmp((s_W_1D-->6)-->0,decWriteString(main_str-->0,""))==0) { decStrCpy((s_W_1D-->6)-->0,fnc_FNI(decWriteString(main_str-->1,"- Vad heter du ?")));} !! 35120 PRINT "Hej, ";W$(6);" ! Bra att Du också har skaffat en telefon." print "Hej, ";PrintString((s_W_1D-->6)-->0);print " ! Bra att Du också har skaffat en telefon.^"; !! 35122 PRINT "" print "^"; !! 35125 GOTO 35030 jump line35030; !! 35150 IF A(1)=1 THEN PRINT "Dörren är igenbommad av Stugas gatukontor." \ GOTO 35000 .line35150; if((i_A_1D-->1)==1) { print "Dörren är igenbommad av Stugas gatukontor.^";jump line35000;} !! 35155 GOTO 2127 jump line2127hb; !! 36000 Z=61'XXXXX KYRKOGÅRD XXXXX .line36000; i_Z=61; !! 36005 PRINT "Du är på en kyrkogård. Du står vid en gravsten på kanten" print "Du är på en kyrkogård. Du står vid en gravsten på kanten "; !! 36010 PRINT "till en grav. En stig leder framåt och bakåt." print "till en grav. En stig leder framåt och bakåt.^"; !! 36015 GOSUB 12200 !WARNING: gosub skipped in line: 36015 GOSUB 12200 .line36015; proc_parse(2); !! 36020 IF X1=1 THEN 36000 if(i_X1==1) { jump line36000;} !! 36025 IF X=0 OR X>6 THEN 36035 if(i_X==0 || i_X>6) { jump line36035;} !! 36030 ON X GOTO 36035,36050,36035,36035,21100,2150 switch(i_X) {1: jump line36035;2: jump line36050;3: jump line36035;4: jump line36035;5: jump line21100;6: jump line2150;} !! 36035 GOSUB 11000 !WARNING: gosub skipped in line: 36035 GOSUB 11000 .line36035; proc_print_err_msg(); !! 36040 PRINT "Du är på kyrkogården." print "Du är på kyrkogården.^"; !! 36045 GOTO 36015 jump line36015; !! 36050 Z=63'XXXXX GRAVEN XXXXX .line36050; i_Z=63; !! 36055 PRINT "Du är i en grav. Det luktar unket här." print "Du är i en grav. Det luktar unket här.^"; !! 36060 PRINT "Prästen tittar ner. Han ser ut så här:" print "Prästen tittar ner. Han ser ut så här:^"; !! 36065 GOSUB 700 !WARNING: gosub skipped in line: 36065 GOSUB 700 proc_print_thorvald(0); !! 36067 IF S(50)-S(52)>30 AND S(52)>0 THEN S(52)=0 \ A(22)=2 \ A(5)=63 if((i_S_1D-->50)-(i_S_1D-->52)>30 && (i_S_1D-->52)>0) { (i_S_1D-->52)=0;(i_A_1D-->22)=2;(i_A_1D-->5)=63;} !! 36070 GOSUB 12200 !WARNING: gosub skipped in line: 36070 GOSUB 12200 .line36070; proc_parse(2); !! 36075 IF X1=1 THEN 36090 if(i_X1==1) { jump line36090;} !! 36080 IF X=1 THEN 36000 if(i_X==1) { jump line36000;} !! 36085 GOSUB 11000 !WARNING: gosub skipped in line: 36085 GOSUB 11000 proc_print_err_msg(); !! 36090 PRINT "Du är i en grav." .line36090; print "Du är i en grav.^"; !! 36095 GOTO 36070 jump line36070; !! 40000 Z=17'XXXXX OSVALDS RUM XXXXX .line40000; i_Z=17; !! 40015 IF S(5)>4 THEN S(5)=1 ELSE S(5)=S(5)+1 .line40015; if((i_S_1D-->5)>4) { (i_S_1D-->5)=1; } else {(i_S_1D-->5)=(i_S_1D-->5)+1; } !! 40017 IF S(5)=1 THEN 40030 if((i_S_1D-->5)==1) { jump line40030;} !! 40020 PRINT "Du är i Osvalds rum." \ GOTO 40100 .line40020; print "Du är i Osvalds rum.^";jump line40100; !! 40030 PRINT "Du är i Osvalds rum, ett rum med fyra dörrar. På den högra står det" .line40030; print "Du är i Osvalds rum, ett rum med fyra dörrar. På den högra står det "; !! 40031 PRINT "ZZZZ, på den vänstra står det THORVALD och på den rakt fram" print "ZZZZ, på den vänstra står det THORVALD och på den rakt fram "; !! 40032 PRINT "står det GARDEROB." print "står det GARDEROB.^"; !! 40060 IF S(15)=0 AND S(7)=1 THEN PRINT "En trappa går nedåt." if((i_S_1D-->15)==0 && (i_S_1D-->7)==1) { print "En trappa går nedåt.^";} !! 40061 IF S(15)=1 AND S(7)=1 THEN PRINT "Det finns rester av en trappa här." if((i_S_1D-->15)==1 && (i_S_1D-->7)==1) { print "Det finns rester av en trappa här.^";} !! 40100 GOSUB 12200 !WARNING: gosub skipped in line: 40100 GOSUB 12200 .line40100; proc_parse(2); !! 40110 IF X1=1 THEN 40030 if(i_X1==1) { jump line40030;} !! 40115 IF X=0 OR X=7 THEN 40200 if(i_X==0 || i_X==7) { jump line40200;} !! 40120 ON X GOTO 40200,40140,25000,18000,41000,40200 switch(i_X) {1: jump line40200;2: jump line40140;3: jump line25000;4: jump line18000;5: jump line41000;6: jump line40200;} !! 40140 IF S(7)=0 THEN 40200 .line40140; if((i_S_1D-->7)==0) { jump line40200;} !! 40145 IF S(15)<>0 THEN PRINT "Trappan är avspärrad av Stugas gatukontor."\GOTO 40015 if((i_S_1D-->15)~=0) { print "Trappan är avspärrad av Stugas gatukontor.^";jump line40015;} !! 40147 IF A(1)<>1 THEN 13235 if((i_A_1D-->1)~=1) { jump line13235;} !! 40150 PRINT "Trappan rasar ihop." \ S(15)=1 \ GOTO 40015 print "Trappan rasar ihop.^";(i_S_1D-->15)=1;jump line40015; !! 40200 GOSUB 11000 !WARNING: gosub skipped in line: 40200 GOSUB 11000 .line40200; proc_print_err_msg(); !! 40210 GOTO 40020 jump line40020; !! 41000 REM XXX GARDEROBEN XXXXX Z=4 XXXX .line41000; !=== XXX GARDEROBEN XXXXX Z=4 XXXX !! 41005 PRINT "Du är i en mörk garderob." .line41005; print "Du är i en mörk garderob.^"; !! 41010 PRINT "Bakom dej och till vänster finns det dörrar." print "Bakom dej och till vänster finns det dörrar.^"; !! 41030 S(4)=1 \ Z=4 (i_S_1D-->4)=1;i_Z=4; !! 41040 GOSUB 12200 !WARNING: gosub skipped in line: 41040 GOSUB 12200 .line41040; proc_parse(2); !! 41080 IF X1=1 THEN 41005 if(i_X1==1) { jump line41005;} !! 41090 IF X=6 THEN 40000 if(i_X==6) { jump line40000;} !! 41100 IF X=3 THEN 9020 if(i_X==3) { jump line9020hb;} !! 41105 GOSUB 11000 !WARNING: gosub skipped in line: 41105 GOSUB 11000 proc_print_err_msg(); !! 41110 PRINT "Du är i garderoben." print "Du är i garderoben.^"; !! 41120 GOTO 41040 jump line41040; !! 80360 IF Z<20 THEN ON Z-7 GOTO 9991,15050,15000,15300,16000,16500,17000,25000,10020,40000,9300,2044'&&&&& .line80360; if(i_Z<20) { switch(i_Z-7) {1: jump line9991;2: jump line15050;3: jump line15000;4: jump line15300;5: jump line16000;6: jump line16500;7: jump line17000;8: jump line25000;9: jump line10020;10: jump line40000;11: jump line9300;12: jump line2044hb;}} !! 80365 IF Z<31 THEN ON Z-19 GOTO 2115,9000,9035,9065,9145,2075,9175,9100,9020,9190,21100'&&&&& if(i_Z<31) { switch(i_Z-19) {1: jump line2115hb;2: jump line9000;3: jump line9035;4: jump line9065;5: jump line9145;6: jump line2075hb;7: jump line9175;8: jump line9100;9: jump line9020;10: jump line9190;11: jump line21100;}} !! 80370 IF Z<41 THEN ON Z-30 GOTO 21340,7570,2066,1909,7556,8300,8330,8071,8095,8365'&&&&& if(i_Z<41) { switch(i_Z-30) {1: jump line21340;2: jump line7570;3: jump line2066hb;4: jump line1909hb;5: jump line7556;6: jump line8300;7: jump line8330;8: jump line8071;9: jump line8095;10: jump line8365;}} !! 80375 IF Z<51 THEN ON Z-40 GOTO 8381,8400,8000,8020,8035,15350,15370,15386,9361,2200'&&&&& if(i_Z<51) { switch(i_Z-40) {1: jump line8381;2: jump line8400;3: jump line8000;4: jump line8020;5: jump line8035;6: jump line15350;7: jump line15370;8: jump line15386;9: jump line9361;10: jump line2200hb;}} !! 80380 IF Z<61 THEN ON Z-50 GOTO 2241,8420,1500,9490,9510,9545,9558,13000,13235,9528'&&&&& if(i_Z<61) { switch(i_Z-50) {1: jump line2241hb;2: jump line8420;3: jump line1500hb;4: jump line9490;5: jump line9510;6: jump line9545;7: jump line9558;8: jump line13000;9: jump line13235;10: jump line9528;}} !! 80385 IF Z<71 THEN ON Z-60 GOTO 36000,13173,36050,14000,14100,20180,20240,20255,2019,20000'&&&&& if(i_Z<71) { switch(i_Z-60) {1: jump line36000;2: jump line13173;3: jump line36050;4: jump line14000;5: jump line14100;6: jump line20180;7: jump line20240;8: jump line20255;9: jump line2019hb;10: jump line20000;}} !! 80390 IF Z<81 THEN ON Z-70 GOTO 20020,20030,20040,20055,20070,20085,20107,9390,20155,20143'&&&&& if(i_Z<81) { switch(i_Z-70) {1: jump line20020;2: jump line20030;3: jump line20040;4: jump line20055;5: jump line20070;6: jump line20085;7: jump line20107;8: jump line9390;9: jump line20155;10: jump line20143;}} !! 80395 IF Z<91 THEN ON Z-80 GOTO 20200,20165,20270,20285,20300,20315,20330,9424,1929,15432'&&&&& if(i_Z<91) { switch(i_Z-80) {1: jump line20200;2: jump line20165;3: jump line20270;4: jump line20285;5: jump line20300;6: jump line20315;7: jump line20330;8: jump line9424;9: jump line1929hb;10: jump line15432;}} !! 80400 ON Z-90 GOTO 2033,1919,1950,1960,1970,25130,8148,2150,2127,35000'&&&&& switch(i_Z-90) {1: jump line2033hb;2: jump line1919hb;3: jump line1950hb;4: jump line1960hb;5: jump line1970hb;6: jump line25130;7: jump line8148;8: jump line2150hb;9: jump line2127hb;10: jump line35000;} !! 90000 ON ERROR GOTO 97000'XXXXX NU BÖRJAR VI XXXXX !WARNING: Skipping IO ON-ERROR in line: 90000 ON ERROR GOTO 97000'XXXXX NU BÖRJAR VI XXXXX .line90000; ! Hemgjord kod: checkTerp(); print "^^"; proc_version(); print "^"; proc_input_date(s_Date); new_line; proc_input_time(s_Time); !! 90002 W$(3)=TIME$ \ W$(4)=DATE$ decStrCpy((s_W_1D-->3)-->0,decTime(main_str-->0));decStrCpy((s_W_1D-->4)-->0,decDate(main_str-->1)); !! 90003 S(30)=96 (i_S_1D-->30)=96; !! 90004 S(32)=1 \ S(33)=1 \ S(40)=1 (i_S_1D-->32)=1;(i_S_1D-->33)=1;(i_S_1D-->40)=1; !! 90005 MARGIN 80 !WARNING: Skipping MARGIN in line: 90005 MARGIN 80 !! 90050 J(100)=1 \ J(17)=1 \ J(31)=1 (i_J_1D-->100)=1;(i_J_1D-->17)=1;(i_J_1D-->31)=1; !! 90052 J(43)=1 \ J(58)=1 \ J(78)=1 \ J(97)=1 (i_J_1D-->43)=1;(i_J_1D-->58)=1;(i_J_1D-->78)=1;(i_J_1D-->97)=1; !! 90054 W$(1)="Stugrådet: Thorvald, Kimmo Eriksson, Olle Johansson, Viggo Eriksson, DEC-op, Thord Andersson" decStrCpy((s_W_1D-->1)-->0,decWriteString(main_str-->0,"Stugrådet: Thorvald, Kimmo Eriksson, Olle Johansson, Viggo Eriksson, DEC-op, Thord Andersson")); !! 90056 GOSUB 702 !WARNING: gosub skipped in line: 90056 GOSUB 702 proc_print_thorvald(1); !! 90057 W$(5)="004008009010011012013014015016017021022023024025031034035036038040" decStrCpy((s_W_1D-->5)-->0,decWriteString(main_str-->0,"004008009010011012013014015016017021022023024025031034035036038040")); !! 90058 W$(5)=W$(5)+"043044046048052054056058059062069078080089093095096097100" decStrCpy((s_W_1D-->5)-->0,decStrCat((s_W_1D-->5)-->0,decWriteString(main_str-->0,"043044046048052054056058059062069078080089093095096097100"))); !! 90059 S(37)=LEN(W$(5))/3 (i_S_1D-->37)=StrLen((s_W_1D-->5)-->0)/3; !! 90060 S(45)=1 (i_S_1D-->45)=1; !! 90062 S(48)=-1 \ S(20)=-1 (i_S_1D-->48)=-1;(i_S_1D-->20)=-1; !! 90064 X=CRT(1) i_X=decCrt(1); !! 90066 S(2)=50 (i_S_1D-->2)=50; !! 90068 IF FNL$(DATE$,6)="01-APR" THEN A1=1 ELSE A1=0 if(decStrCmp(fnc_FNL(decDate(main_str-->0),6),decWriteString(main_str-->1,"01-APR"))==0) { i_A1=1; } else {i_A1=0; } !! 90070 PRINT "Välkommen till VIOLs stuga!!!!!" print "Välkommen till VIOLs stuga!!!!!^"; !! 90072 PRINT new_line; !! 90090 INPUT "Har du vågat dej in här förut";A$ !WARNING: Skipping INPUT in line: 90090 INPUT "Har du vågat dej in här förut";A$ .line90090; decInputStr("Har du vågat dej in här förut",true,s_A); !! 90091 A$=FNC$(A$) \ PRINT \ PRINT decStrCpy(s_A,fnc_FNC(s_A));new_line;new_line; !! 90094 IF FNL$(A$,1)="J" THEN 90200 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0) { jump line90200;} !! 90096 IF FNL$(A$,1)="N" THEN 90100 if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"N"))==0) { jump line90100;} !! 90098 PRINT "JA eller NEJ!" \ GOTO 90090 print "JA eller NEJ!^";jump line90090; !! 90100 PRINT "Då behövs lite hjälp och instruktioner!" \ PRINT .line90100; print "Då behövs lite hjälp och instruktioner!^^"; !! 90110 GOSUB 91000 !WARNING: gosub skipped in line: 90110 GOSUB 91000 proc_instructions(); !! 90150 PRINT "LYCKA TILL!" print "LYCKA TILL!^"; !! 90153 PRINT new_line; !! 90200 A(0)=30 \ S(0)=53 \ S(24)=6 \ J(0)=100 .line90200; (i_A_1D-->0)=30;(i_S_1D-->0)=53;(i_S_1D-->24)=6;(i_J_1D-->0)=100; !! 90202 FOR I=1 TO 12 for(i_I=1:i_I<=12:i_I++) { !! 90204 READ A$(I,0),A$(I,1),A$(I,2),A$(I,3),A(I) WriteString(((s_A_2D-->(i_I))-->0),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->1),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->2),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->3),data-->data_ptr++);;(i_A_1D-->(i_I))=data-->data_ptr++; !! 90206 NEXT I } !! 90208 FOR I=15 TO A(0) for(i_I=15:i_I<=(i_A_1D-->0):i_I++) { !! 90210 READ A$(I,0),A$(I,1),A$(I,2),A$(I,3),A(I) WriteString(((s_A_2D-->(i_I))-->0),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->1),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->2),data-->data_ptr++);;WriteString(((s_A_2D-->(i_I))-->3),data-->data_ptr++);;(i_A_1D-->(i_I))=data-->data_ptr++; !! 90212 NEXT I } !! 90214 GOTO 20000 jump line20000; !! 90300 DATA "DIAMANT","DIAMA","DIAMA","diamanten",15 !! 90302 DATA "GURKA","GURKA","ILLAL","gurkan",0 !! 90304 DATA "SILVERTACKA","SILVE","TACKA","silvertackan",31 !! 90306 DATA "HILLEBARD","HILLE","JUVEL","hillebarden",2 !! 90308 DATA "DÖDSKALLE","DÖDSK","SKALL","dödskallen",0 !! 90310 DATA "KLOCKA","VÄCKA","KLOCK","klockan",59 !! 90312 DATA "GULDMYNT","GULD","MYNT","guldmynten",0 !! 90314 DATA "TRILOGI","TRILO","SAGAN","trilogin",36 !! 90316 DATA "KONTRAKT","KONTR","SKÄRT","kontraktet",0 !! 90318 DATA "LAGERKRANS","LAGER","KRANS","lagerkransen",53 !! 90320 DATA "PÄRLHALSBAND","PÄRL","HALSB","pärlhalsbandet",0 !! 90322 DATA "FAUNSKO","FAUN","SKO","faunskon",0 !! 90330 DATA "KOFOT","KOFOT","KOFOT","kofoten",0 !! 90332 DATA "CYKELPUMP","CYKEL","PUMP","cykelpumpen",0 !! 90334 DATA "STEGE","STEGE","STEGE","stegen",4 !! 90336 DATA "BRÄNNVINSFLASKA","BRÄNN","BRÄNN","brännvinsflaskan",97 !! 90338 DATA "VATTENFLASKA","VATTENF","VATTENF","vattenflaskan",0 !! 90340 DATA "BOLL","BOLL","BOLL","bollen",8 !! 90342 DATA "SPADE","SPADE","SPADE","spaden",61 !! 90344 DATA "LIK","LIK","LIK","liket",0 !! 90346 DATA "KATALOG","KATAL","TELEFONK","katalogen",0 !! 90348 DATA "LAMPA","LAMPA","LAMPA","lampan",0 !! 90350 DATA "TELEFON","TELEF","TELEF","telefonen",100 !! 90352 DATA "NYCKLAR","NYCKL","NYCKE","nycklarna",54 !! 90354 DATA "SAX","SAX","SAX","saxen",2 !! 90356 DATA "SLÄGGA","SLÄGG","SLÄGG","släggan",2 !! 90357 DATA "VAKT","VAKT","VAKT","vakten",58 !! 90358 DATA "FÖRLÄNGNINGSSLADD","FÖRLÄ","SLADD","förlängningssladden",26 !! 90400 REM Data för Fozzis berättelse ! .line90400; !=== Data för Fozzis berättelse !! 90402 DATA "Dodge City","Boot Hill","en by i Montana","fantomengrottan" !! 90404 DATA "fängelsechefen i Råå","Trondheim" !! 90406 DATA "bröderna Dalton","Sven Olssons kvintett","bröderna Brothers" !! 90408 DATA "Kimmo, den gamle fyllbulten,","Curt Nicolin","Jesse James" !! 90410 DATA "fängelset","San Franciscos hem för tankspridda","sin limosin" !! 90412 DATA "burarna i Bronx Zoo","en labyrint i Småland","riksdagshuset" !! 90414 DATA "fritidsorganet GLAD OCH NAKEN","sheriffen","guldlasten" !! 90416 DATA "några glada flickor","en aktie i Kuben","en illaluktande gurka" !! 90418 DATA "fruktans demoner","ett bankrån","Butch Cassidys hustru" !! 90420 DATA "jultomten","en hjärnskakningsepidemi","kvarterspolisen" !! 90422 DATA "ett bakhåll","ett fel på Malmös TV 2-sändare","en taxi" !! 90424 DATA "att toaletten ska bli ledig","att sheriffen ska göra något","Lucky Luke" !! 90426 DATA "skjuta sönder stan","störa indianerna","varsla om lockout" !! 90428 DATA "väcka guvernören","ta gisslan på Norges ambassad","dra sej tillbaka" !! 90430 DATA "rädda","lätt berusade","måna om sitt utseende","allt färre" !! 90432 DATA "svårflörtade","sömniga" !! 90434 DATA "på ett helt annat ställe","för sent","i grevens tid" !! 90436 DATA "en liten aning för tidigt","samtidigt","inte" ];