Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-03 12:31:32 +00:00
Code Issues Projects Releases Wiki Activity

basic: add mystery

Browse Source
This commit is contained in:
Vince Weaver 2022-09-09 18:34:51 -04:00
parent e37873de3b
commit b0c3736813
4 changed files with 63 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basic/appleiibot/Makefile
View File

@ -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 \
HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.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 \
TARGET.BAS ELITE.BAS
TARGET.BAS ELITE.BAS MYSTERY.BAS
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(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 TARGET.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
$(TOKENIZE) < elite.bas > ELITE.BAS
####
MYSTERY.BAS: mystery.bas
$(TOKENIZE) < mystery.bas > MYSTERY.BAS
####

15
basic/appleiibot/make_points.c
View File

@ -1,6 +1,15 @@
#include <stdio.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;
/* if div=3 */
@ -45,7 +54,7 @@ int main(int argc, char **argv) {
sscanf(buffer,"%d %d %d %d %d",
&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+1]=((a2-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;
out_ptr+=5;
}
else if (a1==3) {
else if (a1==MODE_VALUE) {
output[out_ptr]=((a1-xadjust)/div)+add;
out_ptr+=1;
}
else if (a1==0) {
else if (a1==STOP_VALUE) {
output[out_ptr]=((a1-xadjust)/div)+add;
out_ptr+=1;
break;

4
basic/appleiibot/mystery.bas Normal file
View 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
View 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