2012年11月19日投稿
/ 投稿者:天郷思音(わぁぃ@)
/ タグ : 投稿プログラム ゲーム QRコード mkII専用
ラジコン飛行機を飛ばして遊ぶプログラムです。
なお、АБФは速度によって効きが変わります。
ですが、↑↓は速度に関係なく一定の効きになります。(ただし微調整用。特に、加速は速度が1〜63の範囲でないと失効してしまいます。)
また、自然減速もあります。特に旋回時はより減速してしまいます。
プチコンmkII向けのQRコードです。
補正がかかって読み込めない場合は、画像をクリックすると等倍サイズのQRコードがご覧になれますのでぜひご利用ください。
- ACLS:CLEARЛ
- BGFILL 1,0,0,63,63,32,8,0,0Л
- C$=”5”*16+”6”*4+”7”*8+”6”*4+”5”*16+”4”*4+”3”*8+”4”*4Л
- FOR I=0 TO 63Л
- A=(VAL(MID$(C$,I,1))−5)/2Л
- X=X+AЛ
- BGPUT 1,7+X,I,2+I%2*13,0,0,0Л
- BGPUT 1,24+X,I,2+I%2*13,0,0,0Л
- BGFILL 1,8+X,I,23+X,I,13,0,0,0Л
- NEXTЛ
- SPSET 0,176,11,0,0,1Л
- SPHOME 0,8,8Л
- SPOFS 0,128,96Л
- SPSCALE 0,200Л
- MAX=180Л
- ANG=90Л
- BGOFS 1,−X,−YЛ
- @LЛ
- BTN=BUTTON()Л
- ANG=ANG+SGN(BTN AND 8)−SGN(BTN AND 4)Л
- IF BTN AND 128 THEN IF SPD<FLOOR(MAX/2) THEN BTN=BTN OR 16Л
- IF BTN AND 128 THEN IF SPD>FLOOR(MAX/2) THEN BTN=BTN OR 32Л
- SPD=SPD+(BTN AND 1)/32Л
- SPD=SPD+SGN(BTN AND 16)*((MAX−SPD+16)/(MAX))Л
- SPD=SPD+SGN(BTN AND 64)*((MAX−SPD−32)/(MAX))Л
- SPD=SPD−(BTN AND 2)/64Л
- SPD=(SPD*(1−(BTN AND 32)/8192−SGN(BTN AND 12)/1024))*0.9997Л
- BEEP 1,SPD*32Л
- IF SPD>MAX THEN SPD=MAXЛ
- IF ABS(SPD)<0.5 THEN SPD=0Л
- IF ANG<0 THEN ANG=ANG+360Л
- IF ANG>360 THEN ANG=ANG−360Л
- X=X+COS(RAD(ANG))*(SPD/32)Л
- Y=Y+SIN(RAD(ANG))*(SPD/32)Л
- BGOFS 1,−X,−YЛ
- SPANGLE 0,ANGЛ
- LOCATE 0,0:PRINT ”SPEED:”;FLOOR(SPD+0.5);CHR$(0)Л
- VSYNC 1Л
- GOTO @LЛ
この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板かOFコーナーもあります。)
- BEEP 1,SPD*32,SGN(SPD)*127Л
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.131 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:01 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30