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

投稿プログラム : TEKITOU PZL

パンくずリスト

2013年4月1日投稿 / 投稿者 : ヤッフー / タグ : 投稿プログラム

概要

適当PZL、1@PZLのとうじょうです。 これは、2こつなげると、きえる仕組みです。 ブロックのまわりは聖域ですので、ブロックを近くにやれば、まわりのブロックがきえます。

操作方法

→ドロップ ←→→移動

QR コード

プチコンmkII 向けの QR コードは、バグがあったため、なくしました。

プログラムリスト

  1. ACLS:CLEAR:BGMSTOP
  2. LOCATE 10,8:?”Tekitou PZL”
  3. LOCATE 10,10:?”{1@PZL}
  4. WAIT 180
  5. BGMPLAY 27
  6.  @RE
  7. IF SC>=1000 THEN SC=999
  8. X=15:Y=0
  9. AC=RND(7)+1
  10. CLS
  11. FOR I=2 TO 23
  12. ?”         ■           ■”
  13. NEXT
  14. LOCATE 9,0:?”■■■■■■■■■■■■■”
  15. LOCATE 9,22:?”■■■■■■■■■■■■■”
  16. LOCATE 22,0:?”Tekitou”
  17. LOCATE 22,1:?”     PZL”
  18. LOCATE 22,2:?” {1@PZL}”
  19. @LOOP
  20. LOCATE 0,2:?”LV.”LV
  21. LOCATE 0,0:?”SCORE:”SC
  22. BGPUT 0,X−1,Y−1,0,0,0,0
  23. BGPUT 0,X+1,Y−1,0,0,0,0
  24. BGPUT 0,X,Y,AC,0,0,0
  25. BGREAD(0,X,Y+1),CHR0,PAL,H,V
  26. IF CHR0 THEN GOTO @HN
  27. Y=Y+1
  28. IF Y==22 THEN GOTO @HN
  29. IF BUTTON() AND 4 THEN IF X>10 THEN X=X−1
  30. IF BUTTON() AND 8 THEN IF X<20 THEN X=X+1
  31. VS=9:LV=1
  32. IF SC>=10 THEN VS=8:LV=2
  33. IF SC>=50 THEN VS=4:LV=3
  34. IF SC<=100 THEN VS=3:LV=4
  35. IF SC<=500 THEN VS=1:LV=5
  36. IF BUTTON() AND 2 THEN VS=1
  37. VSYNC VS
  38. GOTO @LOOP
  39. @HN
  40. WAIT 5
  41. BEEP 23,8000
  42. IF Y==0 THEN @GAMEO
  43. XX=10
  44. FOR XX=10 TO 20
  45. FOR YY=2 TO 23
  46. BGREAD(0,XX,YY),CHR,PAL,H,V
  47. IF CHR THEN GOSUB @HN2
  48. NEXT
  49. NEXT
  50. GOTO @RE
  51. @HN2
  52. BGREAD(0,XX−1,YY),CHR2,PAL,H,V
  53. BGREAD(0,XX+1,YY),CHR3,PAL,H,V
  54. BGREAD(0,XX,YY−1),CHR4,PAL,H,V
  55. BGREAD(0,XX,YY+1),CHR5,PAL,H,V
  56. IF CHR==CHR2 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX−1,YY,0,0,0:BEEP 12:SC=SC+1
  57. IF CHR==CHR3 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX+1,YY,0,0,0:BEEP 12:SC=SC+1
  58. IF CHR==CHR4 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX,YY−1,0,0,0:BEEP 12:SC=SC+1
  59. IF CHR==CHR5 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX,YY+1,0,0,0:BEEP 12:SC=SC+1
  60. RETURN
  61. @GAMEO
  62. LOCATE 8,8:?”GAME OVER”
  63. BGMPLAY 6:WAIT 600
  64. END

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

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

  • ノリオ : なかなか難しいですね。 (2013/03/30 (土) 13:37:43)
  • 猫姫 : txtであるなら、このwikiのリンクに、QRにできるページがありますよ。コピペ、ワンクリックで出るので便利です (2013/03/30 (土) 13:46:36)
  • いぬまろ : QRコード作ったので上げました (2013/03/30 (土) 14:48:01)
  • susumu : QRコードでかいw (2013/03/30 (土) 14:57:44)
  • ヤッフー : いぬまろさん、ありがとうございます。 (2013/03/30 (土) 15:49:17)
  • 猫姫 : QR読み込んだんですけど、メインループ21周目59行目くらいでエラーが出ます。 (2013/03/30 (土) 18:16:48)
  • ヤッフー : リストを確認しましたし、実際に、プログラムを起動して確かめましたが、バグは発生しません。別の場所かを確認してください。 (2013/03/30 (土) 18:50:01)
  • 名無しさん : 少ない行数でパズルを作れるのはすごい (2013/03/30 (土) 20:10:15)
  • 猫姫 : 誤認識したのでしょうか??読み込み直してみます。 (2013/03/30 (土) 22:24:06)
  • 名無しさん : ん、BGPUTのパラメータってこんだけだったっけ (2013/03/30 (土) 22:56:29)
  • 名無しさん : 58行エラーです (2013/03/31 (日) 15:09:08)
  • 天郷思音 : ↑56〜59行目まで全部2つ目のBGPUTの引数が欠けてますね。 (2013/03/31 (日) 15:11:36)
  • ヤッフー : わかりました。明日ぐらいには直します。 (2013/03/31 (日) 18:41:39)
  • ヤッフー : 直しました。 (2013/04/01 (月) 18:58:35)
  • 道産子の初心者 : QRありません。 (2013/04/01 (月) 19:18:29)
  • 猫姫 : 57行目以下、コロンあとのBGPUTのパラメータも6つしかないです。とりあえず、よみこみご、0をくわえて、エラーはでなくなりました。合ってるかどうかは (2013/04/01 (月) 21:52:34)
  • 名無しさん : p (2013/04/03 (水) 14:08:38)
  • 投稿者 : プログラムリストを更新しました。 (2013/05/01 (水) 19:49:32)

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