2011年07月21日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム QRコード 初代対応
ポケモン立体図鑑で読み取れるARマーカーを入力すると、
ARシールやフォトシールを集めるのに役立ちます。
タッチペンで簡単入力。
変数Sの値を変更することでサイズを変更できます。
動作しているところを撮影した写真や動画があれば貼り付けてください。
上の写真はツタージャのARマーカーです。
プチコンmkII 向けの QR コードです。
- ’ホ゜ケモン ARマーカーヒョウシ゛フ゜ロク゛ラム
- @START
- PNLTYPE ”OFF”
- ’−−−ショキカ
- GPAGE 1
- CLEAR:GCLS 4
- S=80:T=0:C=1
- COLSET ”GRP”,1,”FFFFFF”
- COLSET ”GRP”,2,”111111”
- COLSET ”GRP”,3,”000000”
- COLSET ”GRP”,4,”FFFF99”
- ’−−−
- PX=255/2−S+S/6:W=255/2
- PY=191/2−S+S/6:H=191/2
- PS=S/3:WL=S/3:K=W−S:N=H−S
- GBOX W−S,H−S,W+S,H+S,2
- FOR I=1 TO 6
- GLINE K,N+WL*I,W+S,N+WL*I,2
- GLINE K+WL*I,N,K+WL*I,H+S,2
- NEXT
- FOR I=0 TO 5 :’1=シロ
- FOR J=0 TO 5 :’3=クロ
- READ C:CS$=CS$+STR$(C)
- GPAINT PX+PS*J,PY+PS*I,C
- NEXT
- NEXT
- @CL
- DATA 3,3,3,3,3,3
- DATA 3,3,3,3,3,3
- DATA 3,3,3,3,3,3
- DATA 3,3,3,3,3,3
- DATA 3,3,3,3,3,3
- DATA 3,3,3,3,3,3
- @LOOP
- TC=GSPOIT(TCHX,TCHY)
- IF TCHST==1 AND TC==1 THEN GPAINT TCHX,TCHY,3:TC2=TC
- IF TCHST==1 AND TC==3 THEN GPAINT TCHX,TCHY,1:TC2=TC
- IF TCHST==1 THEN GOSUB @T
- VSYNC 1
- GOTO @LOOP
- @T
- IF TCHST==0 THEN RETURN
- GOTO @T
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.179 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:56 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30