Valley of Death – Dragon 32/64 Basic

Rivista: Micro Adventurer – Numero: 01 – Anno 1983 – Trascrizione: Francesco Fiorentini

Il progetto RetroLiPS non é solo l’occasione per riscoprire macchine poco conosciute e giochi e/o riviste dimenticati ma anche l’occasione per provare emulatori mai utilizzati (personalmente non avevo mai utilizzato XRoar) e familiarizzare con altri dialetti Basic.

Questa volta ho voluto digitare un programma in Basic per il Dragon32/64. Un breve RPG che é sicuramente una piccola gemma che meritava di essere riportata in vita: Valley of Death.

Se volete saperne di piu’ riguardo al Dragon 32/64, potete leggere una breve descrizione nella pagina dedicata su Wikipedia in italiano e una descrizione piú approfondita in quella inglese.

Il listato originale di Valley of Death e’ invece stato pubblicato sulla rivista Micro Adventurer numero 01 di Novembre 1983, edita da Sunshine Books Ltd nel Regno Unito.

Titolo: Valley of Death
Piattaforma: Dragon 32/64
Linguaggio: Basic
Versione originale: ???
Pubblicazione: Micro Adventurer 01 – nov 1983
Anno: 1983
TrascrizioneFrancesco Fiorentini
Anno: 2021
Download: Valley of Death
Note: Emulatore suggerito, XRoar

Scopo del gioco

Valley Of Death consiste nel guidare un personaggio (rappresentato dal simbolo del $) in una piccola valle. Devi aiutarlo a combattere mostri, viaggiare attraverso paludi e foreste, e alla fine portarlo nelle
profondità delle oscure segrete di Darganyon per trovare una chiave. Devi poi correre indietro attraverso i sotterranei, tornare al Palazzo per aprire un forziere e recuperare una pozione magica per curare il tuo Re!

Qui di seguito trovate il codice da copiare sul vostro computer Dragon 32/64.
Il codice é pronto per essere eseguito su un emulatore, consigliamo XRoar.

Per caricare il codice sull’emulatore XRoar:
– salvate il listato in un file .bas
– da File -> Cassette -> Input Tape… scegliete il file .bas
– digitate il comando: CLOAD
– una volta terminato il caricamento, digitate RUN per eseguire il gioco

Chi volesse provare il gioco direttamente puó scaricare il file .bas, (si veda la voce Download).

Istruzioni
All’inizio del gioco dovrete scegliere la classe del vostro personaggio da una lista di 4: Guerriero, Chierico, Barbaro e Mago. La scelta non é fine a se stessa, in quanto in base alla classe avrete a disposizione caratteristiche diverse che influenzeranno le azioni durante il gioco. Dopodiché dovrete dare un nome al vostro personaggio, se non lo farete, verrá automaticamente nominato Mr. X.
A questo punto il gioco comincia e potrete iniziare a vagare per la Valle della Morte in cerca della chiave. Per spostarvi dovete utilizzare i seguenti tasti:

Durante il vostro girovagare vi imbatterete in un numero variabile di mostri, il cui unico scopo é quello di divorarvi. Ad eccezione del Chierico, che puó allontanarsi dai mostri non morti, in tutti gli altri casi dovrete per forza sconfiggere il nemico prima di proseguire nella vostra missione. Per sferrare l’attacco, dovrete premere il pulsante H (hit) in un determinato lasso di tempo quando é il vostro turno di colpire. Attenzione, i mostri sono particolarmente fortunati nello sferrare i colpi. Buona fortuna!!!

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.

Listato:  Valley of Death – Dragon32/64 – Basic


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
10 CLS
70 ST=RND(9)+RND(9)+RND(9):IQ=RND(9)+RND(9)+RND(9)
80 EN=RND(9)+RND(9)+RND(9):ST=ST*5:IQ=IQ*5:EN=EN*6
90 PRINT"1) WARRIOR":PRINT"2) CLERIC":PRINT"3) BARBARIAN"
100 PRINT"4) WIZARD":INPUT"WHICH ONE (1-4)";A
110 IFA<1ORA>4THENCL$="FOOL";IQ=IQ-RND(10)
120 IFA=1THENCL$="WARRIOR":ST=ST+RND(ST):IQ=IQ+RND(10)
130 IFA=2THENCL$="CLERIC":IQ=IQ+RND(10)*2
140 IFA=3THENCL$="BARBARIAN":IQ=IQ-RND(5):ST=ST+RND(ST)
150 IFA=3THENEN=EN+RND(ST)
160 IFA=4THENCL$="WIZARD":IQ=IQ+RND(15)*2:EN=EN+RND(5)
170 INPUT"NAME";NAME$
180 IFNAME$=""THENNAME$="MR. 'X'"
190 CLS
200 PRINTSTRING$(32,175);:FORN=0TO7:PRINTCHR$(175);
210 PRINTSTRING$(30,32);CHR$(175);:NEXT
220 PRINTSTRING$(32,175)
230 A$(1)=CHR$(175)+"#####################/\#######"+CHR$(175)
240 A$(2)=CHR$(175)+"#/\/\########/\/\##/## /\#####"+CHR$(175)
250 A$(3)=CHR$(175)+"p####\####/\/####\/######\/\/k"+CHR$(175)
260 A$(4)=CHR$(175)+"######\/\/"+STRING$(20,32)+CHR$(175)
270 J=RND(5)*32:PRINT@J,A$(1);:PRINTA$(2);:PRINTA$(3);
280 PRINTA$(4);
360 PRINT@352,NAME$;" THE ";CLASS$
370 PRINT@384,"ST:";ST;TAB(10);"IQ:";IQ;TAB(20);"EN:";
380 PRINTEN;:PRINT@416,"TR:";TR;TAB(20);"EX:";EX;
530 GOSUB 2300
2300 A$=INKEY$:IFA$=""THEN2300
2310 IFA$="R"THEND=-33
2320 IFA$="T"THEND=-32
2330 IFA$="Y"THEND=-31
2340 IFA$="F"THEND=-1
2350 IFA$="H"THEND=1
2360 IFA$="C"THEND=31
2370 IFA$="V"THEND=32
2380 IFA$="B"THEND=33
2450 RETURN
30 MAN=1056:Z=16
410 MAN=MAN+J+33
440 POKE MAN,36
560 IFPEEK(MAN+D)=111ORPEEK(MAN+D)=92THENMAN=MAN+D:POKE MAN-D,Z:PATH=1:Z=PEEK(MAN):GOTO660
570 IFPEEK(MAN+D)=11THENMAN=MAN+D:POKEMAN-D,Z:CASTLE=1:Z= PEEK(MAN):GOTO660
580 IFPEEK(MAN+D)=16THENMAN=MAN+D:POKEMAN-D,Z:PL=1:Z=PEEK(MAN):GOTO660
650 IFPEEK(MAN+D)<>175THENMAN=MAN+D:POKEMAN-D,Z:Z=PEEK(MAN)
790 GOTO440
660 IFZ<>11THENCASTLE=0
670 IFZ<>16THENPL=0
680 IFZ<>92ANDZ<>111THENPATH=0
700 PRINT@320," "
710 IFPATH=1THENPRINT@320,"SAFE ON PATH"
720 IFCASTLE=1THENPRINT@320,"SAFE IN KEEP"
750 IFPL=1THENPRINT@320,"SAFE IN PALACE"
390 IF U=1 THEN RETURN
400 U=1
490 GOSUB 360
540 E=E+1:IFE=10THENEN=EN-1:E=0
40 PL=1
500 IFRND(4)=2ANDDEAD=0ANDCASTLE=0ANDPATH=0ANDPL=0THENGOSUB2770
2770 SOUND100,5:SOUND100,6:RESTORE:IFEX<2000ANDTW=0THEN FORN=0TORND(19):READMONSTER$,HITS:NEXT
2780 M=0
2790 IFEX>=2000ORTW=1THENFORN=0TORND(19)+20:READMONSTER$,HITS:NEXT
2810 FORN=1TOLEN(MONSTER$):MID$(MONSTER$,N,1)=CHR$(ASC(MID$(MONSTER$,N,1))+32):IFMID$(MONSTER$,N,1)="@"THENMID$(MONSTER$,N,1)=CHR$(128):NEXT:MONSTER$;
2820 PRINT@320,"YOU HAVE MET A ";MONSTER$;
2830 IFCLASS$="CLERIC"AND(MONSTER$="mummy"ORMONSTER$="wraith"ORMONSTER$="spectre")ANDRND(3)=2THENYZ=1
2840 IFYZ=1THENFORN=0TO2000:NEXT:PRINT@320,"BUT YOU TURN IT AWAY!":FORN=0TO2000:NEXT:PRINT@320," ":EX=EX+H:YZ=0:RETURN
2850 HITS=HITS+RND(INT(HITS/2)):IFHITS<INT(EN/2)THEN2850
2860 H=HITS
2870 FORN=0TO1000:NEXT
2880 PRINT@448,"strike";CHR$(128);"now"
2890 SOUND50,2
2900 A$=INKEY$
2910 PRINT@480,STRING$(28,32);
2920 PRINT@480,"THE MONSTER HAS";HITS;"ENERGY   ";
2930 FORN=0TO300:A$=INKEY$:IFA$<>""THEN2960:ELSENEXT:PRINT@448,"too";CHR$(128);"slow":FORN=0TO2000:NEXT:PRINT@448," ":GOTO2990
2960 IFA$="H"ANDRND(2)=2THENG=RND(EN)+RND(ST)*SD:PRINT@448,"you";CHR$(128);"hit":FORN=0TO2000:NEXT:PRINT@448,G;"DAMAGE!";:FORN=0TO3000:NEXT:YZ=1
2970 IFYZ=1THENYZ=0:PRINT@448," ":HITS=HITS-G:ELSEIFA$="H"THENPRINT@448,"you";CHR$(128);"missed":FORN=0TO2000:NEXT:PRINT@448,STRING$(30,32);:YZ=0
2980 IFG>0THENSOUND150,2:G=0:ELSESOUND200,2
2990 PRINT@480,"THE MONSTER HAS";HITS;"ENERGY   ";
3000 IFHITS<=0THEN3110
3010 SOUND200,2:PRINT@448,"the";CHR$(128);"monster";CHR$(128);"strikes":FORN=0TO2000:NEXT:PRINT@448," "
3020 IFRND(2)=1THENM=RND(HITS):PRINT@448,"and";CHR$(128);"hits";:SOUND10,2:FORN=0TO2000:NEXT:ELSEPRINT@448,"and";CHR$(128);"misses";:SOUND50,2:YZ=1
3030 IFYZ=1THENFORN=0TO2000:NEXT:PRINT@448," ":YZ=0
3040 EN=EN-M
3050 IFM>0THENPRINT@448,"DOING";M;"DAMAGE!";:FORN=0TO2000:NEXT:PRINT@448," "
3060 GOSUB360
3070 M=0
3080 IFEN<=0THEN3770
3100 HITS=HITS-1:EN=EN-1:GOTO2880
3110 PRINT@448," ":PRINT@480,STRING$(31,32);:PRINT@320,"YOU'VE KILLED IT!":FORN=225TO250:SOUNDN,1:NEXT:EX=EX+H:EN=EN+RND(INT(H/2))
3120 FORN=0TO2000:NEXT:PRINT@320," ":IFEN>400THENEN=EN-RND(INT(H/2)):RETURN:ELSERETURN
3200 DATA"BANDIT",20,"BERSERKER",20,"BUGBEAR",60,"CARRION CRAWLER",60,"COCKATRICE",100,"DWARF",20,"DOPPLEGANGER",80,"ELF",20,"FIRE BEETLE",20
3210 DATA"GARGOYLE",80,"GELATINUS CUBE",80,"GIANT ANT",40, "GIANT CENTIPEDE",5,"GIANT RAT",10,"GNOLL",40,"GNOME",10,"GOBLIN",10,"GREY OOZE",60
3220 DATA"HIPPOGRIFF",65,"HOBGOBLIN",15,"BLACK PUDDING",200,"CHIMERA",180,"DJINNI",145,"DRAGON",220,"GIANT",200,"GRIFFON",140,"HYDRA",160
3230 DATA"WEREBEAR",120,"MANTICORE",125,"MINOTAUR",120,"MUMMY",105,"OGRE",120,"OWL BEAR",110,"PURPLE WORM",300
3240 DATA"SPECTRE",120,"TROLL",130,"VAMPIRE",180,"WIGHT",60,"WRAITH",80,"HELL HOUND",140
3770 PRINT@320,"YOU'RE DEAD!":IFK=1THEN3770
3780 PLAY"O1V31T2L4GGL8GGL4B-AAGGF+G":K=1:GOTO3770

Share

2 thoughts on “Valley of Death – Dragon 32/64 Basic

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.