mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-29 08:55:10 +00:00
basic: add mystery
This commit is contained in:
parent
e37873de3b
commit
b0c3736813
@ -24,9 +24,9 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||||||
FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
|
FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
|
||||||
HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
|
HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
|
||||||
PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
|
PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
|
||||||
OOZE.BAS HORIZ_STAR.BAS SECRET_COLLECT.BAS PLANET.BAS PLANET_GR.BAS \
|
OOZE.BAS HORIZ_STAR.BAS PLANET.BAS SECRET_COLLECT.BAS PLANET_GR.BAS \
|
||||||
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
|
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
|
||||||
TARGET.BAS ELITE.BAS
|
TARGET.BAS ELITE.BAS MYSTERY.BAS
|
||||||
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
|
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
|
||||||
# cp empty.dsk appleiibot.dsk
|
# cp empty.dsk appleiibot.dsk
|
||||||
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||||
@ -138,6 +138,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||||||
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS3.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS3.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A TARGET.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A TARGET.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A ELITE.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A ELITE.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A MYSTERY.BAS
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
@ -774,6 +775,11 @@ TARGET.BAS: target.bas
|
|||||||
ELITE.BAS: elite.bas
|
ELITE.BAS: elite.bas
|
||||||
$(TOKENIZE) < elite.bas > ELITE.BAS
|
$(TOKENIZE) < elite.bas > ELITE.BAS
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
MYSTERY.BAS: mystery.bas
|
||||||
|
$(TOKENIZE) < mystery.bas > MYSTERY.BAS
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
|
@ -1,6 +1,15 @@
|
|||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
||||||
|
//#define LINE_VALUE 279
|
||||||
|
//#define STOP_VALUE 0
|
||||||
|
//#define MODE_VALUE 3
|
||||||
|
|
||||||
|
#define LINE_VALUE 3
|
||||||
|
#define STOP_VALUE 6
|
||||||
|
#define MODE_VALUE 9
|
||||||
|
|
||||||
|
|
||||||
static int debug=1;
|
static int debug=1;
|
||||||
|
|
||||||
/* if div=3 */
|
/* if div=3 */
|
||||||
@ -45,7 +54,7 @@ int main(int argc, char **argv) {
|
|||||||
sscanf(buffer,"%d %d %d %d %d",
|
sscanf(buffer,"%d %d %d %d %d",
|
||||||
&a1,&a2,&a3,&a4,&a5);
|
&a1,&a2,&a3,&a4,&a5);
|
||||||
if (debug) fprintf(stderr,"%d %d %d %d %d\n",a1,a2,a3,a4,a5);
|
if (debug) fprintf(stderr,"%d %d %d %d %d\n",a1,a2,a3,a4,a5);
|
||||||
if (a1==279) {
|
if (a1==LINE_VALUE) {
|
||||||
output[out_ptr]=((a1-xadjust)/div)+add;
|
output[out_ptr]=((a1-xadjust)/div)+add;
|
||||||
output[out_ptr+1]=((a2-xadjust)/div)+add;
|
output[out_ptr+1]=((a2-xadjust)/div)+add;
|
||||||
output[out_ptr+2]=((a3-xadjust)/div)+add;
|
output[out_ptr+2]=((a3-xadjust)/div)+add;
|
||||||
@ -53,11 +62,11 @@ int main(int argc, char **argv) {
|
|||||||
output[out_ptr+4]=((a5-xadjust)/div)+add;
|
output[out_ptr+4]=((a5-xadjust)/div)+add;
|
||||||
out_ptr+=5;
|
out_ptr+=5;
|
||||||
}
|
}
|
||||||
else if (a1==3) {
|
else if (a1==MODE_VALUE) {
|
||||||
output[out_ptr]=((a1-xadjust)/div)+add;
|
output[out_ptr]=((a1-xadjust)/div)+add;
|
||||||
out_ptr+=1;
|
out_ptr+=1;
|
||||||
}
|
}
|
||||||
else if (a1==0) {
|
else if (a1==STOP_VALUE) {
|
||||||
output[out_ptr]=((a1-xadjust)/div)+add;
|
output[out_ptr]=((a1-xadjust)/div)+add;
|
||||||
out_ptr+=1;
|
out_ptr+=1;
|
||||||
break;
|
break;
|
||||||
|
4
basic/appleiibot/mystery.bas
Normal file
4
basic/appleiibot/mystery.bas
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
1HGR:DEFFNP(X)=3*PEEK(2080+I+X)-99:REM"!!~!~T!T!!"&!&L1Q1$+!"1Q`Q`$1$"Y!`$z,zT"1LSLhT"R$R616"1<`<R6"R<RL"=DHDFGHIHMGN?N>J@H=D"HDLEMGMHKJHJHIJIJFGE
|
||||||
|
2IFFNP(0)=3THENHPLOTFNP(1),FNP(2):I=I+3
|
||||||
|
3HPLOTTOFNP(0),FNP(1):I=I+2:IFI<108GOTO2
|
||||||
|
4?"YOU ARE IN THE KITCHEN",,"THERE IS A REFRIGERATOR
|
39
basic/appleiibot/mystery.points
Normal file
39
basic/appleiibot/mystery.points
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
3 0 0 279 0 # outline
|
||||||
|
279 153
|
||||||
|
0 153
|
||||||
|
0 0
|
||||||
|
3 15 0 15 129 # refrig
|
||||||
|
48 144
|
||||||
|
48 9
|
||||||
|
30 0
|
||||||
|
3 48 144 189 144
|
||||||
|
189 9
|
||||||
|
48 9
|
||||||
|
3 168 0 189 9
|
||||||
|
267 33
|
||||||
|
267 153
|
||||||
|
3 48 129 150 129
|
||||||
|
213 153
|
||||||
|
3 147 9 147 63
|
||||||
|
48 63
|
||||||
|
3 48 81 189 81
|
||||||
|
147 63
|
||||||
|
3 147 81 147 129
|
||||||
|
3 84 105 117 105 # pitcher
|
||||||
|
111 114
|
||||||
|
117 120
|
||||||
|
117 132
|
||||||
|
114 135
|
||||||
|
90 135
|
||||||
|
87 123
|
||||||
|
93 117
|
||||||
|
84 105
|
||||||
|
3 117 105 129 108 # handle
|
||||||
|
132 114
|
||||||
|
132 117
|
||||||
|
126 123
|
||||||
|
117 123
|
||||||
|
117 120
|
||||||
|
123 120
|
||||||
|
123 111
|
||||||
|
114 108
|
Loading…
Reference in New Issue
Block a user