Browse Source

scan_XX took a bug that does not work

Version 0.02 - from wonbe002.lzh
Kawamata Akira 23 years ago
parent
commit
ee82c35364
7 changed files with 86 additions and 86 deletions
  1. 0 59
      keywords.h
  2. 0 23
      makefile
  3. 78 0
      shoot.wb
  4. 2 2
      wonbe.c
  5. BIN
      wonbe.exe
  6. BIN
      wonbe.fx
  7. 6 2
      wonbe.txt

+ 0 - 59
keywords.h

@@ -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 */

+ 0 - 23
makefile

@@ -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
-
-

+ 78 - 0
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

+ 2 - 2
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" },

BIN
wonbe.exe


BIN
wonbe.fx


+ 6 - 2
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