REM 944BASIC '石庭 v1.1'
REM 944さん作のスクラッチカードから
REM 基本アイディアをいただきました

REM 画像の読み込み
SETPAGE 2
BITMAP "F1:\944BASIC\KALVSKT1.BMP",0,0,240,205


*INIT :REM 初期化
W=2 :REM 線の太さ

 FOR I=0 TO 5
  REM 岩のスプライトを定義
  SPRITE I,I,1, 30+I*24,160, I*24,0, 24,24
 NEXT I

 REM 上玉砂利スプライト
 SPRITE 10,10,1, 0,60, 0,24, 240,89
 REM 下玉砂利のスプライト
 SPRITE 20,20,1, 0,60, 0,115, 240,89
 REM 表示
 REFRESH 0,0, 0,0, 240,320

HEADER '[石庭] - 岩を配置(終わったら[決定])'
FOOTER '　'

REM 岩の配置
*LOOP1 SYNC
 REM スプライト番号を取得(0〜5)
 SP=SPSEARCH(PENX,PENY,0,5)

 IF (PEN=2)*(SP>=0) THEN GOSUB *MVSTONE
 IF PADONA THEN GOTO *EXITLOOP1
GOTO *LOOP1

*EXITLOOP1

HEADER '[石庭] - 砂利に模様を描きませう'
FOOTER '([順送り]-模様消去、[決定]-最初から) 中'

*INIT2
SPRITE 10,10,1, 0,60, 0,24, 240,89
REFRESH 0,60, 0,60, 240,122

REM この処理がわかってないのだが・・
REM ｽｸﾗｯﾁｶｰﾄﾞから引き写し
SPRITE 10,10,0,0,0,0,0,0,0

REM ペンで模様を描く
*LOOP2 SYNC
 IF (PEN=2) THEN REFRESH PENX,PENY,PENX,PENY, W,W
 IF PADONA THEN GOTO *INIT
 IF PADONB THEN GOSUB *LINEWIDTH
 IF PADONC THEN GOTO *INIT2
GOTO *LOOP2

REM 岩を移動して画面書き換え
*MVSTONE
 SPRITE SP,SP,1, PENX-12,PENY-12, SP*24,0, 24,24
 REFRESH 0,60, 0,60, 240,124
RETURN

REM 線の太さを変更
*LINEWIDTH
 W=W+1
 IF W>3 THEN W=1
 IF W=1 THEN FOOTER '([順送り]-模様消去、[決定]-最初から) 細'
 IF W=2 THEN FOOTER '([順送り]-模様消去、[決定]-最初から) 中'
 IF W=3 THEN FOOTER '([順送り]-模様消去、[決定]-最初から) 太'
RETURN