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

投稿プログラム : 王将パズル

パンくずリスト

2011年3月27日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム パズルゲーム QRコード 初代対応

概要

王将を外に出す木製のパズルゲーム

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

ousyou.jpg

QR コード

プチコンmkII 向けの QR コードです。

Screenshot_2.png

プログラムリスト

2011/03/27 (日) 22:24:27 47行1行削除 2011/04/14 (木) 00:15:23 コメント3つ目までの間違い訂正

  1. CLEAR:GPAGE 1:GCLS:CLS
  2. PNLTYPE ”OFF”
  3. DIM AKI(6,7)
  4. DIM X(11),Y(11),SX(11),SY(11)
  5. DIM DX(11),DY(11)
  6. DATA 2,1,2,2
  7. DATA 1,1,1,2
  8. DATA 4,1,1,2
  9. DATA 1,3,1,1
  10. DATA 2,3,1,1
  11. DATA 3,3,1,1
  12. DATA 4,3,1,1
  13. DATA 1,4,2,1
  14. DATA 3,4,2,1
  15. DATA 1,5,1,1
  16. DATA 4,5,1,1
  17. FOR I=0 TO 10
  18.  READ X(I),Y(I),SX(I),SY(I)
  19.  DX(I)=20+X(I)*36
  20.  DY(I)=−30+Y(I)*36
  21.  I0=I:C0=6:X0=DX(I):Y0=DY(I)
  22.  GOSUB @BOX
  23. NEXT I
  24. FOR I=0 TO 5
  25.  FOR J=0 TO 6
  26.   AKI(I,J)=0
  27.  NEXT J
  28. NEXT I
  29. AKI(2,5)=1
  30. AKI(3,5)=1
  31. TCH_X=0:TCH_Y=0
  32. IDX=−1
  33. MODE=0
  34. GBOX 55,5,200,186,2
  35. GLINE 92,186,164,186,0
  36. @MAIN
  37.  ON MODE GOTO @L0,@L1,@L2
  38.  @L0
  39.   IF TCHST==FALSE GOTO @L9
  40.   GOSUB @TCHCHK
  41.   IF IDX!=−1 THEN MODE=1
  42.   GOTO @L9
  43.  @L1
  44.   TDX=TCHX−TCH_X
  45.   TDY=TCHY−TCH_Y
  46.   AX=ABS(TDX):AY=ABS(TDY)
  47.   IF TCHST==TRUE AND AX<4 AND AY<4 GOTO @L9
  48.   IF AX>=4 OR AY>=4 GOTO @L101
  49.    MODE=0:GOTO @L9
  50.   @L101
  51.   IF AX>AY GOTO @L102
  52.   I=1:IF TDY<0 THEN I=−1
  53.   TDX=0:TDY=I
  54.   GOTO @L103
  55.   @L102
  56.   I=1:IF TDX<0 THEN I=−1
  57.   TDX=I:TDY=0
  58.   @L103
  59.   GOSUB @MOVABLE
  60.   IF I==TRUE GOTO @L104
  61.   MODE=0:GOTO @L9
  62.   @L104
  63.   VX=TDX*9:VY=TDY*9
  64.   MC=4
  65.   GOSUB @MOVEBOX
  66.   MC=MC−1
  67.   MODE=2:GOTO @L9
  68.  @L2
  69.   GOSUB @MOVEBOX
  70.   MC=MC−1
  71.   IF MC>0 GOTO @L9
  72.   FOR I=0 TO SX(IDX)−1
  73.    FOR J=0 TO SY(IDX)−1
  74.     AKI(X(IDX)+I,Y(IDX)+J)=1
  75.    NEXT J
  76.   NEXT I
  77.   X(IDX)=(DX(IDX)−20)/36
  78.   Y(IDX)=(DY(IDX)+30)/36
  79.   FOR I=0 TO SX(IDX)−1
  80.    FOR J=0 TO SY(IDX)−1
  81.     AKI(X(IDX)+I,Y(IDX)+J)=0
  82.    NEXT J
  83.   NEXT I
  84.   MODE=0:GOTO @L9
  85.  @L9
  86.   VSYNC 1
  87.   GOTO @MAIN
  88. @BOX
  89.  X1=X0+SX(I0)*36−1
  90.  Y1=Y0+SY(I0)*36−1
  91.  GBOX X0+1,Y0+1,X1−1,Y1−1,C0
  92.  RETURN
  93. @MOVEBOX
  94.  I0=IDX
  95.  DNX=DX(I0)+VX
  96.  DNY=DY(I0)+VY
  97.  C0=0:X0=DX(I0):Y0=DY(I0)
  98.  GOSUB @BOX
  99.  C0=6:X0=DNX:Y0=DNY
  100.  GOSUB @BOX
  101.  DX(I0)=DNX
  102.  DY(I0)=DNY
  103.  RETURN
  104. @TCHCHK
  105.  IDX=−1
  106.  I=0
  107.  @TCHCHK0
  108.   IF TCHX<DX(I) GOTO @TCHCHK1
  109.   IF TCHX>DX(I)+SX(I)*36 GOTO @TCHCHK1
  110.   IF TCHY<DY(I) GOTO @TCHCHK1
  111.   IF TCHY>DY(I)+SY(I)*36 GOTO @TCHCHK1
  112.   IDX=I
  113.   TCH_X=TCHX
  114.   TCH_Y=TCHY
  115.   GOTO @TCHCHK2
  116.   @TCHCHK1
  117.   I=I+1
  118.   IF I<11 GOTO @TCHCHK0
  119.  @TCHCHK2
  120.  RETURN
  121. @MOVABLE
  122.  IF IDX==0 AND X(0)==2 AND Y(0)==4 AND TDY==1 GOTO @GOAL
  123.  I=TRUE
  124.  J=IDX
  125.  IF TDY==0 GOTO @MOVABLE0
  126.  FOR X0=0 TO SX(J)−1
  127.   Y1=Y(J)
  128.   IF TDY>0 THEN Y1=Y(J)+SY(J)−1
  129.   IF AKI(X(J)+X0,Y1+TDY)==0 THEN I=FALSE
  130.  NEXT
  131.  @MOVABLE0
  132.  IF TDX==0 GOTO @MOVABLE1
  133.  FOR Y0=0 TO SY(J)−1
  134.   X1=X(J)
  135.   IF TDX>0 THEN X1=X(J)+SX(J)−1
  136.   IF AKI(X1+TDX, Y(J)+Y0)==0 THEN I=FALSE
  137.  NEXT
  138.  @MOVABLE1
  139.  RETURN
  140. @GOAL
  141.  PRINT ”GOAL!”
  142.  END

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

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

  • 名無しさん : まだちゃんと見てませんが、「RETUEN」はきっと打ち間違いですね (2011/03/30 (水) 01:25:51)
  • 名無しさん : あ・・・。短いからとリスト打ってみたけど間違ってましたか。やっぱり写真が一番だなぁ (2011/03/30 (水) 04:30:13)
  • 名無しさん : 77行目は"AKI(X(IDX)+I, Y(IDX)+J)=1"の間違いだと思います (2011/04/03 (日) 17:11:01)
  • 名無しさん : 結構ムズイ (2012/04/08 (日) 21:34:07)
  • 名無しさん : むずいなあ (2012/04/17 (火) 17:20:30)
  • ロジウム : 別名 箱入り娘 (2012/04/17 (火) 22:24:50)
  • a : 楽勝 ファイブレインっていうアニメでこれの最強版があった (2012/04/18 (水) 22:42:36)
  • a : とけるわけない様なほどのものwww (2012/04/18 (水) 22:43:09)
  • 名無しさん : パズルタイムの始まりだ! (2012/06/04 (月) 19:26:49)
  • 名無しさん : 今週のふぁいぶれに出てきたリンクスライダーを作った人はいないの? (2012/06/04 (月) 19:29:58)
  • 名無しさん : ↑↑↑http://twitpic.com/9ko7si (2012/06/04 (月) 21:03:01)
  • : 何があったのww (2012/06/14 (木) 22:42:44)
  • 道産子の初心者 : 無理!!!!!!!!!!!!!!!!!!!!!!!!!!! (2012/10/16 (火) 16:23:35)
  • 名無しさん : レイトンにこんな問題あったな。解けなかったが (2013/03/17 (日) 16:48:57)
  • かずえもん : むずいぃぃぃぃぃぃぃぃぃぃぃぃ! (2013/09/10 (火) 16:37:28)
  • ねじ : 暫く悩んで遊べそうです。 (2013/11/03 (日) 18:19:46)

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