2014年4月24日投稿 / 投稿者 : スルメ / タグ : 投稿プログラム mkII専用 QRコード 非実用ツール
P○4のホーム画面をちょっと再現
ここまでやったらやる気なくした
うまくやったら、P○4もどきになりそう。
プチコンmkII 向けの QR コードです。
- ’P○4モト゛キ
- ’コレウマクヤレハ゛OSモト゛キニナルカモネー
- ACLS:CLEAR
- GCLS 4
- DIM B$(100),R$(100)
- BREPEAT 2,30,2
- BREPEAT 3,30,2
- @1
- READ A
- IF A<=−1 THEN @2
- READ C,B$(CNT1),R$(CNT1)
- SPSET CNT1,A,C,0,0,0
- SPOFS CNT1,128+(CNT1*16),128
- CNT1=CNT1+1
- GOTO @1
- @2
- LCS=−1
- FM=6
- GOTO @3
- @4
- FOR I=0 TO CNT1−1
- IF I<CS THEN X=128−((CS−I)*16)
- IF I>CS THEN X=(128+16)+((I−CS)*16)
- IF I==CS THEN X=128:SPSCALE I,200,FM ELSE SPSCALE I,100,FM
- SPOFS I,X−16,96−8,FM
- NEXT
- RETURN
- @3
- TTT$=MID$(TIME$,0,5)
- IF !(VAL(MID$(TIME$,7,1))%2) THEN TTT$=MID$(TTT$,0,2)+” ”+MID$(TTT$,3,2)
- LOCATE 32−5,0:?TTT$;
- LOCATE 18,15:?LEFT$(B$(CS)+” ”*32,15);
- ’LOCATE 18,16:?LEFT$(R$(CS)+” ”*32,15);
- LOCATE 0,0:?”P○4 モト゛キ”;
- CS=CS+(SGN(BUTTON(1) AND 8)−SGN(BUTTON(1) AND 4))
- IF CS<0 THEN CS=0
- IF CS>=CNT1 THEN CS=CNT1−1
- IF LCS!=CS THEN GOSUB @4:LCS=CS
- VSYNC 1
- GOTO @3
- @DT
- DATA 13,3,マネーマネー!,
- DATA 36,3,コッイーン!,
- DATA 42,3,アッチッチ!,
- DATA 81,2,ウォリャアアア!,
- DATA 131,5,アオオニ,
- DATA −1
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.103 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:13 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30