diff --git a/keywords.h b/keywords.h deleted file mode 100644 index c07a66b..0000000 --- a/keywords.h +++ /dev/null @@ -1,59 +0,0 @@ -/* WONBE predefined keyword IDs */ -/* First Created: Nov.3,2000 by Nashiko */ -/* Copyright 2000 (c) by Pie Dey Co.,Ltd. */ - -#define KEYWORD_IF 0x80 -#define KEYWORD_PRINT 0x81 -#define KEYWORD_LOCATE 0x82 -#define KEYWORD_CLS 0x83 -#define KEYWORD_GOTO 0x84 -#define KEYWORD_GOSUB 0x85 -#define KEYWORD_RETURN 0x86 -#define KEYWORD_FOR 0x87 -#define KEYWORD_NEXT 0x88 -#define KEYWORD_END 0x89 -#define KEYWORD_BREAK 0x8a -#define KEYWORD_REM 0x8b -#define KEYWORD_NEW 0x8c -#define KEYWORD_LIST 0x8d -#define KEYWORD_RUN 0x8e -#define KEYWORD_CONT 0x8f -#define KEYWORD_SAVE 0x90 -#define KEYWORD_LOAD 0x91 -#define KEYWORD_MERGE 0x92 -#define KEYWORD_RANDOMIZE 0x93 -#define KEYWORD_EXIT 0x94 -#define KEYWORD_DEBUG 0x95 -#define KEYWORD_WAITVB 0x96 -#define KEYWORD_FILES 0x97 -#define KEYWORD_AND 0xa0 -#define KEYWORD_OR 0xa1 -#define KEYWORD_XOR 0xa2 -#define KEYWORD_NOT 0xb0 -#define KEYWORD_SCAN 0xc0 -#define KEYWORD_WAIT 0xc1 -#define KEYWORD_RND 0xc2 -#define KEYWORD_ABS 0xc3 -#define KEYWORD_TICK 0xc4 -#define KEYWORD_SCAN_A 0xd0 -#define KEYWORD_SCAN_B 0xd1 -#define KEYWORD_SCAN_X1 0xd2 -#define KEYWORD_SCAN_X2 0xd3 -#define KEYWORD_SCAN_X3 0xd4 -#define KEYWORD_SCAN_X4 0xd5 -#define KEYWORD_SCAN_Y1 0xd6 -#define KEYWORD_SCAN_Y2 0xd7 -#define KEYWORD_SCAN_Y3 0xd8 -#define KEYWORD_SCAN_Y4 0xd9 -#define KEYWORD_THEN 0xf0 -#define KEYWORD_CHR 0xf1 -#define KEYWORD_TO 0xf2 -#define KEYWORD_STEP 0xf3 - -#define KEYWORDS_STATEMENT_FROM 0x80 -#define KEYWORDS_STATEMENT_TO 0x97 -#define KEYWORDS_2OP_FROM 0xa0 -#define KEYWORDS_2OP_TO 0xa2 - - -/* end of keywords.h */ diff --git a/makefile b/makefile deleted file mode 100644 index d126588..0000000 --- a/makefile +++ /dev/null @@ -1,23 +0,0 @@ - -# start up routine -C0WW_JAPANESE2=..\common\c0wwjpn2.obj - -C0WW=$(C0WW_JAPANESE2) - -LIBWW=@..\common\libww.rsp - -CFLAGS=-DWW -ms -zPCGROUP -zSDGROUP -zGDGROUP - -all: wonbe.fx - -wonbe.fx: wonbe.bin - mkfent wonbe.cf - -wonbe.bin: wonbe.obj - tlink /m /c $(C0WW) wonbe, wonbe, wonbe, $(LIBWW) - exe2fbin wonbe.exe wonbe.bin - -wonbe.obj: wonbe.c - tcc -c $(CFLAGS) $(DEFINES) -IC:\vshare\ww\dev\WWitch\include wonbe.c - - diff --git a/shoot.wb b/shoot.wb new file mode 100644 index 0000000..677bf16 --- /dev/null +++ b/shoot.wb @@ -0,0 +1,78 @@ +1000 rem シューティング by ワンべぇ +1005 rem Nov.7,2000 by autumn +1010 rem a,b 自機座標 +1020 rem c,d 自ミサイル座標 +1030 rem e,f 敵座標 +1040 rem @(n*2*0),@(n*2+1) 敵ミサイル座標(nは0〜7) +1050 rem g ミサイル生成カウンタ +1060 rem h ミサイル生成タイミングカウンタ +2000 rem 座標の初期化 +2010 a=14:b=16 +2020 c=-1:d=-1 +2030 e=15:f=2 +2040 for i=0 to 7:@(i*2)=-1:@(i*2+1)=-1:next +2050 g=0:h=0 +3000 rem 開始を待つ +3010 cls +3020 locate 3,6:print "PUSH BUTTON TO START" +3030 locate 3,10:print " (NOT START BUTTON)" +3040 z=wait +3050 cls:locate 10,8:print "GO!"; +3060 waitvb 30 +4000 rem 表示を更新 +4010 cls +4020 locate a,b:print "▲"; +4030 locate e,f:print "▼"; +4040 if c>=0 then locate c,d:print "|"; +4050 for i=0 to 7 +4060 if @(i*2)>=0 then locate @(i*2),@(i*2+1):print "*" +4070 next +5000 rem 当たり判定 +5010 if (c=e)and(d=f) then goto 8000 '自ミサイルが命中・勝利 +5020 for i=0 to 7 +5030 if (a=@(i*2))and(b=@(i*2+1)) then goto 9000 '敵ミサイルが命中・敗北 +5040 next +6000 rem 敵移動処理 +6010 r=rnd(2) +6020 if (r=0)and(e<26) then e=e+1 +6030 if (r<>0)and(e>0) then e=e-1 +6100 rem 敵ミサイル移動処理 +6110 for i=0 to 7 +6120 @(i*2+1)=@(i*2+1)+1 +6130 if @(i*2+1)>16 then @(i*2)=-1:@(i*2+1)=-1 +6140 next +6200 rem 敵ミサイル生成処理 +6210 h=h+1 +6220 if h>3 then h=0 +6230 if h<>0 then goto 6300 +6240 @(g*2)=e:@(g*2+1)=f+1 '新しいミサイル +6250 g=g+1:if g>7 then g=0 +6300 rem 自機移動処理 +6310 s=scan +6320 if s and scan_x2 then if a<26 then a=a+1 +6330 if s and scan_x4 then if a>0 then a=a-1 +6400 rem 自ミサイル移動処理 +6410 if c>=0 then d=d-1:if d<0 then c=-1:d=-1 +6500 rem 自ミサイル発射処理 +6510 if s and scan_a then if c<0 then c=a:d=b-1 +6800 waitvb 3 +6900 goto 4000 +8000 rem 勝利 +8010 X=e:Y=f:gosub 10000 +8020 locate 10,10:print "YOU WIN!" +8030 goto 9500 +9000 rem 敗北 +9010 X=a:Y=b:gosub 10000 +9020 locate 10,10:print "YOU LOSE..." +9500 locate 0,12:print "PUSH START BUTTON TO EXIT" +9510 locate 0,13:print " ANOTHER IS AGAIN" +9520 z=wait +9900 goto 2000 +10000 rem 爆発表現 +10010 for i=0 to 9 +10020 locate X,Y:print "+"; +10030 waitvb 10 +10040 locate X,Y:print "×"; +10050 waitvb 10 +10060 next +10090 return diff --git a/wonbe.c b/wonbe.c index abcc174..4c21afb 100644 --- a/wonbe.c +++ b/wonbe.c @@ -18,7 +18,7 @@ #include "win32text.h" #endif -char myVersion[] = "0.01"; +char myVersion[] = "0.02"; #ifdef WW #define MEMMOVE mymemmove @@ -163,7 +163,6 @@ KEYWORDITEM keywords[] = { { KEYWORD_OR,"or" }, { KEYWORD_XOR,"xor" }, { KEYWORD_NOT,"not" }, - { KEYWORD_SCAN,"scan" }, { KEYWORD_WAIT,"wait" }, { KEYWORD_RND,"rnd" }, { KEYWORD_ABS,"abs" }, @@ -178,6 +177,7 @@ KEYWORDITEM keywords[] = { { KEYWORD_SCAN_Y2,"scan_y2" }, { KEYWORD_SCAN_Y3,"scan_y3" }, { KEYWORD_SCAN_Y4,"scan_y4" }, + { KEYWORD_SCAN,"scan" }, /* scanはscna_Xより後になければならない */ { KEYWORD_THEN,"then" }, { KEYWORD_CHR,"chr" }, { KEYWORD_TO,"to" }, diff --git a/wonbe.exe b/wonbe.exe index a89cd1d..d7042a3 100644 Binary files a/wonbe.exe and b/wonbe.exe differ diff --git a/wonbe.fx b/wonbe.fx index 630e012..2b85941 100644 Binary files a/wonbe.fx and b/wonbe.fx differ diff --git a/wonbe.txt b/wonbe.txt index 2a58ec7..81a2017 100644 --- a/wonbe.txt +++ b/wonbe.txt @@ -1,6 +1,6 @@ ワンべぇ: WONBE, WonderWitch BASIC Environment - 暫定マニュアル Ver 0.01 - 2000年11月6日 + 暫定マニュアル Ver 0.02 + 2000年11月7日 株式会社ピーデー 川俣　晶 Copyright 2000 (c) by Pie Dey Co.Ltd. @@ -219,6 +219,10 @@ tick ・自作ソフトの実行手段としてのワンべぇの添付 　自作ソフトを配布するためにwonbe.fxを一緒に渡すことを許可します。アーカイブへの同梱、CD-Rメディアなどへの焼き込み、通信ケーブルによる転送、どれも可です。ただし、ワンべぇの動作に関しては何も保証はできませんので、リスクは自分で負ってください。利用にあたっては、ロイヤリティなどはありませんので、報告も送金も必要ありません。 +●　変更履歴 +2000年11月7日 Ver 0.02 scan_XXが機能しないバグを取った +2000年11月6日 Ver 0.01 最初のバージョン + ●　問い合わせ先 株式会社ピーデー http://www.piedey.co.jp/ 川俣　晶 autumn@piedey.co.jp