2012年11月4日投稿
/ 投稿者:天郷思音(わぁぃ@)
/ タグ : 投稿プログラム 勉強 QRコード mkII専用
上皿てんびんで遊ぶだけのプログラムです。 基本的な分銅だけではつまらないのでいくつかおもりを追加しています。
1 | 2 | 3 | 5 | |
---|---|---|---|---|
白 | 100mg | 200mg | 300mg | 500mg |
黄 | 1g | 2g | 3g | 5g |
橙 | 10g | 20g | 30g | 50g |
赤 | 100g | 200g | 300g | 500g |
白 | 書いてある数字*0.1g |
---|---|
黄 | 書いてある数字g |
橙 | 書いてある数字*10g |
赤 | 書いてある数字*100g |
まじめに定義したものが2つしかないです。すみません。
文字 | 名前 | 質量 |
---|---|---|
A | DSi | 214g |
B | 54gの銅が酸化したもの | 67.5g |
C | ??? | ランダム |
D | ??? | ランダム |
E | --- | 0g(空きデータ) |
- ′ウワサ゛ラテンヒ゛ン v1.1Л
- ′by ShionЛ
- Л
- ACLSЛ
- VISIBLE 1,1,0,0,1,1Л
- PNLTYPE ”OFF”Л
- SPPAGE 1Л
- BGPAGE 1Л
- LOAD ”BGF0:SBFT_J01”,0Л
- GPAGE 1Л
- Л
- CLEARЛ
- DIM N$(25),W(25),F(25)Л
- Q=1Л
- Л
- FOR I=0 TO 3Л
- FOR J=0 TO 4Л
- N=I*5+J+5Л
- READ W(N),C,PЛ
- IF W(N)<1 THEN N$(N)=STR$(FLOOR(W(N)*1000+0.5))+”mgノオモリ” ELSE N$(N)=STR$(W(N))+”gノオモリ”Л
- SPSET N,C,P,0,0,1Л
- SPHOME N,8,8Л
- SPOFS N,J*16+16,128+I*16Л
- NEXTЛ
- NEXTЛ
- Л
- GOSUB @T1Л
- Л
- FOR I=0 TO 4Л
- READ N$(I),W(I)Л
- IF N$(I)==”???” THEN W(I)=RND(1024)/2+1Л
- SPSET I,16+I,0,0,0,1Л
- SPHOME I,8,8Л
- SPOFS I,128+I*16,128Л
- NEXTЛ
- Л
- LY=100:RY=100Л
- Л
- @MAINLOOPЛ
- GCLS 254Л
- GFILL 0,112,255,191,255Л
- TT=TCHTIME:TX=TCHX:TY=TCHYЛ
- IF TT THEN GOSUB @ITEMMOVE ELSE S=−1Л
- GOSUB @TENBINЛ
- GOSUB @ITEMDOWNЛ
- VSYNC 1Л
- GOTO @MAINLOOPЛ
- Л
- @ITEMMOVEЛ
- IF TT>1 THEN @SELECTSKIPЛ
- S=−1Л
- FOR I=0 TO 24Л
- SPREAD(I),X,YЛ
- IF ABS(TX−X)<8 AND ABS(TY−Y)<8 THEN S=I:I=24Л
- NEXTЛ
- @SELECTSKIPЛ
- IF S<0 THEN RETURNЛ
- SPOFS S,TX,TYЛ
- PNLSTR 1,23,N$(S)+CHR$(0)*16Л
- RETURNЛ
- Л
- @ITEMDOWNЛ
- FOR I=0 TO 24Л
- IF I−S THEN SPREAD(I),X,Y:IF Y<112 AND !F(I) THEN Y=Y+1:SPOFS I,X,YЛ
- NEXTЛ
- RETURNЛ
- Л
- @TENBINЛ
- LW=0:RW=0Л
- FOR I=0 TO 24Л
- F(I)=0Л
- SPREAD(I),X,YЛ
- IF ABS(40−X)<24 AND ABS(Y−LY)<2 THEN F(I)=1:LW=LW+W(I)Л
- IF ABS(216−X)<24 AND ABS(Y−RY)<2 THEN F(I)=2:RW=RW+W(I)Л
- NEXTЛ
- Л
- @T1Л
- GCOLOR 14Л
- A=FLOOR((LW−RW)*Q)Л
- IF ABS(A)>12 THEN A=12*SGN(A)Л
- IF LY<100+A THEN LY=LY+1Л
- IF LY>100+A THEN LY=LY−1:J=1:GOSUB @THЛ
- IF RY<100−A THEN RY=RY+1Л
- IF RY>100−A THEN RY=RY−1:J=2:GOSUB @THЛ
- GLINE 32,LY,224,RYЛ
- GLINE 32,LY+4,224,RY+4Л
- GFILL 16,LY−4,64,LY+4,11Л
- GFILL 192,RY−4,240,RY+4,11Л
- GPAINT 128,102Л
- GPSET 128,100,0Л
- GPSET 128,104,0Л
- GLINE 120,96,136,96Л
- GLINE 136,96,144,128Л
- GLINE 144,128,112,128Л
- GLINE 112,128,120,96Л
- GPAINT 128,97Л
- GPAINT 128,112Л
- GPAINT 128,111Л
- RETURNЛ
- Л
- @THЛ
- FOR I=0 TO 24Л
- IF F(I)==J THEN SPREAD(I),X,Y:SPOFS I,X,Y−2Л
- NEXTЛ
- RETURNЛ
- Л
- ′オモリノ テ゛−タЛ
- DATA 0.1,49,0Л
- DATA 0.1,49,0Л
- DATA 0.2,50,0Л
- DATA 0.3,51,0Л
- DATA 0.5,53,0Л
- DATA 1,49,3Л
- DATA 1,49,3Л
- DATA 2,50,3Л
- DATA 3,51,3Л
- DATA 5,53,3Л
- DATA 10,49,7Л
- DATA 10,49,7Л
- DATA 20,50,7Л
- DATA 30,51,7Л
- DATA 50,53,7Л
- DATA 100,49,13Л
- DATA 100,49,13Л
- DATA 200,50,13Л
- DATA 300,51,13Л
- DATA 500,53,13Л
- Л
- DATA ”DSi”,214Л
- DATA ”54gノト゛ウカ゛サンカシタモノ”,67.5Л
- DATA ”???”,0Л
- DATA ”???”,0Л
- DATA ”−−−”,0Л
- Л
プチコンmkII向けのQRコードです。
この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板かOFコーナーをご利用ください。)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.137 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:06 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30