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

投稿プログラム : 5ubtraction

パンくずリスト

2012年03月04日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム パズルゲーム

概要

学生時代にポケコンで作ったのをプチコン用に拡張、移植しました。

遊び方

タッチしたパネルと上下左右のパネルがタッチされたパネルの数だけ引かれます。

引かれた結果が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ボタンで新たなパネル配置になります。

あ、タイトル画面は用意していません。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

プログラムリスト

  1. CLS:CLEAR:SPPAGE 1:GPAGE 1
  2. SPCLR
  3. PNLTYPE”OFF”
  4. GCLS &H9D
  5. DIM P(11,11),S(11,11)
  6. FOR I=0 TO 5
  7. READ C(I)
  8. NEXT
  9. DATA 0,13,7,3,4,9
  10. FOR J=1 TO 9
  11. FOR I=1 TO 9
  12. SPSET J*10+I,71,0,0,0,2
  13. SPOFS J*10+I,61+I*12,29+J*12
  14. NEXT
  15. NEXT
  16. @INIT
  17. IF RE THEN @RETRY
  18. FOR J=1 TO 9
  19. FOR I=1 TO 9
  20. S(I,J)=RND(6)
  21. NEXT
  22. NEXT
  23. @RETRY
  24. RE=0:TE=0
  25. PNLSTR 12,2,”NOW ”+STR$(TE)+” テ ”
  26. PNLSTR 7,21,”X=RETRY  R=SHUFFLE”
  27. FOR J=1 TO 9
  28. FOR I=1 TO 9
  29. P(I,J)=S(I,J)
  30. IF P(I,J)==0 THEN SPCHR J*10+I,71,0,0,0,2
  31. IF P(I,J) THEN SPCHR J*10+I,48+P(I,J),C(P(I,J)),0,0,2
  32. NEXT
  33. NEXT
  34. @LOOP
  35. IF BUTTON() AND 64 THEN RE=1:GOTO @INIT
  36. IF BUTTON() AND 512 THEN @INIT
  37. OTS=TS:TS=TCHST
  38. TT=TS AND NOT OTS
  39. TX=(TCHX−62)/12 OR 0
  40. TY=(TCHY−30)/12 OR 0
  41. IF TX<0 OR 9<TX THEN TX=0
  42. IF TY<0 OR 9<TY THEN TY=0
  43. IF TT!=0 AND TX!=0 AND TY!=0 THEN GOSUB @TCH
  44. REST=0
  45. FOR J=1 TO 9
  46. FOR I=1 TO 9
  47. IF P(I,J) THEN REST=1
  48. NEXT
  49. NEXT
  50. IF REST==0 THEN @CLR
  51. VSYNC 1
  52. GOTO @LOOP
  53. @TCH
  54. IF P(TX,TY)==0 THEN RETURN
  55. DX=0:DY=−1
  56. FOR I=0 TO 3
  57. WX=TX+DX:WY=TY+DY
  58. IF P(WX,WY)==0 THEN @SKP
  59. P(WX,WY)=P(WX,WY)−P(TX,TY)
  60. IF P(WX,WY)<0 THEN P(WX,WY)=P(WX,WY)+5
  61. IF P(WX,WY)==0 THEN SPCHR WY*10+WX,71,0,0,0,2
  62. IF P(WX,WY) THEN SPCHR WY*10+WX,48+P(WX,WY),C(P(WX,WY)),0,0,2
  63. @SKP
  64. WK=DX:DX=−DY:DY=WK
  65. NEXT
  66. P(TX,TY)=0
  67. SPCHR TY*10+TX,71,0,0,0,2
  68. BEEP 9
  69. TE=TE+1
  70. PNLSTR 12,2,”NOW ”+STR$(TE)+” テ ”
  71. RETURN
  72. @CLR
  73. BGMPLAY 5
  74. @CL
  75. IF BUTTON() AND 64 THEN RE=1:GOTO @INIT
  76. IF BUTTON() AND 512 THEN @INIT
  77. GOTO @CL

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • わぁぃ@ : 100行以下だ。入れてみよう。 (2012/03/04 (日) 22:42:11)
  • 名無しさん : うぽつ( ^_^)/ (2012/03/04 (日) 22:46:40)
  • orirakkusu : うぽつ〜 (2012/03/05 (月) 12:42:10)
  • 名無しさん : いいね (2012/03/16 (金) 08:08:32)
  • マリオ師匠 : QRくれぃ (2012/05/18 (金) 17:21:47)
  • 名無しさん : PCなら プログラムをコピー→リンク集→Petit editor →貼りつけ→QRコード変換で出来るぞ (2012/05/18 (金) 23:57:33)
  • 爆弾 : ↑  でも 83. GOTO @CL とかでるよ 消すのがめんどい・・・・・・・・・・・・・・・・・・・・・・・・・・・・ (2012/06/19 (火) 17:30:31)
  • 名無しさん : ↑Macだからか、行番号は表示されませんでしたよ。 (2012/06/19 (火) 17:49:11)
  • : Macでも表示されるし、編集のとっからやれば番号は出ない。だがやらない方が良いかも (2013/02/21 (木) 16:30:19)

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