scan_XX took a bug that does not work
Version 0.02 - from wonbe002.lzh
This commit is contained in:
Kawamata Akira
Godzil
parent
7179e632c5
commit
ee82c35364
59
keywords.h
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 */
|
|
||||||
23
makefile
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
shoot.wb
Normal file
78
shoot.wb
Normal file
@ -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
|
||||||
4
wonbe.c
4
wonbe.c
@ -18,7 +18,7 @@
|
|||||||
#include "win32text.h"
|
#include "win32text.h"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
char myVersion[] = "0.01";
|
char myVersion[] = "0.02";
|
||||||
|
|
||||||
#ifdef WW
|
#ifdef WW
|
||||||
#define MEMMOVE mymemmove
|
#define MEMMOVE mymemmove
|
||||||
@ -163,7 +163,6 @@ KEYWORDITEM keywords[] = {
|
|||||||
{ KEYWORD_OR,"or" },
|
{ KEYWORD_OR,"or" },
|
||||||
{ KEYWORD_XOR,"xor" },
|
{ KEYWORD_XOR,"xor" },
|
||||||
{ KEYWORD_NOT,"not" },
|
{ KEYWORD_NOT,"not" },
|
||||||
{ KEYWORD_SCAN,"scan" },
|
|
||||||
{ KEYWORD_WAIT,"wait" },
|
{ KEYWORD_WAIT,"wait" },
|
||||||
{ KEYWORD_RND,"rnd" },
|
{ KEYWORD_RND,"rnd" },
|
||||||
{ KEYWORD_ABS,"abs" },
|
{ KEYWORD_ABS,"abs" },
|
||||||
@ -178,6 +177,7 @@ KEYWORDITEM keywords[] = {
|
|||||||
{ KEYWORD_SCAN_Y2,"scan_y2" },
|
{ KEYWORD_SCAN_Y2,"scan_y2" },
|
||||||
{ KEYWORD_SCAN_Y3,"scan_y3" },
|
{ KEYWORD_SCAN_Y3,"scan_y3" },
|
||||||
{ KEYWORD_SCAN_Y4,"scan_y4" },
|
{ KEYWORD_SCAN_Y4,"scan_y4" },
|
||||||
|
{ KEYWORD_SCAN,"scan" }, /* scanはscna_Xより後になければならない */
|
||||||
{ KEYWORD_THEN,"then" },
|
{ KEYWORD_THEN,"then" },
|
||||||
{ KEYWORD_CHR,"chr" },
|
{ KEYWORD_CHR,"chr" },
|
||||||
{ KEYWORD_TO,"to" },
|
{ KEYWORD_TO,"to" },
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
ワンべぇ: WONBE, WonderWitch BASIC Environment
|
ワンべぇ: WONBE, WonderWitch BASIC Environment
|
||||||
暫定マニュアル Ver 0.01
|
暫定マニュアル Ver 0.02
|
||||||
2000年11月6日
|
2000年11月7日
|
||||||
株式会社ピーデー
|
株式会社ピーデー
|
||||||
川俣 晶
|
川俣 晶
|
||||||
Copyright 2000 (c) by Pie Dey Co.Ltd.
|
Copyright 2000 (c) by Pie Dey Co.Ltd.
|
||||||
@ -219,6 +219,10 @@ tick
|
|||||||
・自作ソフトの実行手段としてのワンべぇの添付
|
・自作ソフトの実行手段としてのワンべぇの添付
|
||||||
自作ソフトを配布するためにwonbe.fxを一緒に渡すことを許可します。アーカイブへの同梱、CD-Rメディアなどへの焼き込み、通信ケーブルによる転送、どれも可です。ただし、ワンべぇの動作に関しては何も保証はできませんので、リスクは自分で負ってください。利用にあたっては、ロイヤリティなどはありませんので、報告も送金も必要ありません。
|
自作ソフトを配布するためにwonbe.fxを一緒に渡すことを許可します。アーカイブへの同梱、CD-Rメディアなどへの焼き込み、通信ケーブルによる転送、どれも可です。ただし、ワンべぇの動作に関しては何も保証はできませんので、リスクは自分で負ってください。利用にあたっては、ロイヤリティなどはありませんので、報告も送金も必要ありません。
|
||||||
|
|
||||||
|
● 変更履歴
|
||||||
|
2000年11月7日 Ver 0.02 scan_XXが機能しないバグを取った
|
||||||
|
2000年11月6日 Ver 0.01 最初のバージョン
|
||||||
|
|
||||||
● 問い合わせ先
|
● 問い合わせ先
|
||||||
株式会社ピーデー http://www.piedey.co.jp/
|
株式会社ピーデー http://www.piedey.co.jp/
|
||||||
川俣 晶 autumn@piedey.co.jp
|
川俣 晶 autumn@piedey.co.jp
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user