プチコンまとめWiki (初代/mkII)

Toukou/5ubtraction の変更点

パンくずリスト


#title(投稿プログラム : 5ubtraction)
#contents
/////////////////////////////////
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
// ・投稿年月日は、このページを投稿しようとしている今日の日付を入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に整理する際に使用されます。
// ・投稿者名は「名無しさん」のままにしておくと、匿名投稿として扱われます。
// ・また、適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。

2012年03月04日投稿
/ 投稿者 : 名無しさん
/ &tag(投稿プログラム,ゲーム,パズルゲーム);

/////////////////////////////////
// ここに概要とか書きます。** や *** で始まる行は子見出しとなります。
// [#英数字] はページ内リンクに使用されるアンカーですが、
// 書かなかったり、消したりしてもかまいません。
// ない場合、自動でランダムな文字列が再付与されます。

* 概要 [#Summary]
学生時代にポケコンで作ったのをプチコン用に拡張、移植しました。

** 遊び方 [#Komidashi1]
タッチしたパネルと上下左右のパネルがタッチされたパネルの数だけ引かれます。

引かれた結果が0の時はそのまま消え、マイナスになった時は5が加算されます。
 タッチしたパネルが3で隣に4と3と2があった場合、
 4のパネルは4-3=1で1に、
 3のパネルは3-3=0で0になり消滅、
 2のパネルは2-3=-1、マイナスなので5を加算して-1+5=4で4になります。
なるべく少ない手数で全てのパネルを消してください。

Xボタンで同じパネル配置でやり直し、Rボタンで新たなパネル配置になります。

あ、タイトル画面は用意していません。
//こういった子見出しの内容は適当に変えていいですよ。(「遊び方」「苦労した点」「参考にしたもの」「入力上の注意」など)

/////////////////////////////////

* スクリーンショット・動画 [#ScreenShots]
動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 画像を添付したら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////

* プログラムリスト [#List]
#basic{{
CLS:CLEAR:SPPAGE 1:GPAGE 1
SPCLR
PNLTYPE"OFF"
GCLS &H9D
DIM P(11,11),S(11,11)
FOR I=0 TO 5
READ C(I)
NEXT
DATA 0,13,7,3,4,9

FOR J=1 TO 9
FOR I=1 TO 9
SPSET J*10+I,71,0,0,0,2
SPOFS J*10+I,61+I*12,29+J*12
NEXT
NEXT

@INIT
IF RE THEN @RETRY
FOR J=1 TO 9
FOR I=1 TO 9
S(I,J)=RND(6)
NEXT
NEXT

@RETRY
RE=0:TE=0
PNLSTR 12,2,"NOW "+STR$(TE)+" テ "
PNLSTR 7,21,"X=RETRY  R=SHUFFLE"
FOR J=1 TO 9
FOR I=1 TO 9
P(I,J)=S(I,J)
IF P(I,J)==0 THEN SPCHR J*10+I,71,0,0,0,2
IF P(I,J) THEN SPCHR J*10+I,48+P(I,J),C(P(I,J)),0,0,2
NEXT
NEXT

@LOOP
IF BUTTON() AND 64 THEN RE=1:GOTO @INIT
IF BUTTON() AND 512 THEN @INIT
OTS=TS:TS=TCHST
TT=TS AND NOT OTS
TX=(TCHX-62)/12 OR 0
TY=(TCHY-30)/12 OR 0
IF TX<0 OR 9<TX THEN TX=0
IF TY<0 OR 9<TY THEN TY=0
IF TT!=0 AND TX!=0 AND TY!=0 THEN GOSUB @TCH
REST=0
FOR J=1 TO 9
FOR I=1 TO 9
IF P(I,J) THEN REST=1
NEXT
NEXT
IF REST==0 THEN @CLR
VSYNC 1
GOTO @LOOP

@TCH
IF P(TX,TY)==0 THEN RETURN
DX=0:DY=-1
FOR I=0 TO 3
WX=TX+DX:WY=TY+DY
IF P(WX,WY)==0 THEN @SKP
P(WX,WY)=P(WX,WY)-P(TX,TY)
IF P(WX,WY)<0 THEN P(WX,WY)=P(WX,WY)+5
IF P(WX,WY)==0 THEN SPCHR WY*10+WX,71,0,0,0,2
IF P(WX,WY) THEN SPCHR WY*10+WX,48+P(WX,WY),C(P(WX,WY)),0,0,2
@SKP
WK=DX:DX=-DY:DY=WK
NEXT
P(TX,TY)=0
SPCHR TY*10+TX,71,0,0,0,2
BEEP 9
TE=TE+1
PNLSTR 12,2,"NOW "+STR$(TE)+" テ "
RETURN

@CLR
BGMPLAY 5
@CL
IF BUTTON() AND 64 THEN RE=1:GOTO @INIT
IF BUTTON() AND 512 THEN @INIT
GOTO @CL
}}

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''わぁぃ@'' : 100行以下だ。入れてみよう。 (&new{2012/03/04 (日) 22:42:11};)
- ''名無しさん'' : うぽつ( ^_^)/ (&new{2012/03/04 (日) 22:46:40};)
- ''orirakkusu'' : うぽつ〜 (&new{2012/03/05 (月) 12:42:10};)
- ''名無しさん'' : いいね (&new{2012/03/16 (金) 08:08:32};)
- ''マリオ師匠'' : QRくれぃ (&new{2012/05/18 (金) 17:21:47};)
- ''名無しさん'' : PCなら プログラムをコピー→リンク集→Petit editor →貼りつけ→QRコード変換で出来るぞ (&new{2012/05/18 (金) 23:57:33};)
- ''爆弾'' : ↑  でも 83. GOTO @CL とかでるよ 消すのがめんどい・・・・・・・・・・・・・・・・・・・・・・・・・・・・ (&new{2012/06/19 (火) 17:30:31};)
- ''名無しさん'' : ↑Macだからか、行番号は表示されませんでしたよ。 (&new{2012/06/19 (火) 17:49:11};)
- ''進'' : Macでも表示されるし、編集のとっからやれば番号は出ない。だがやらない方が良いかも (&new{2013/02/21 (木) 16:30:19};)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.005 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30