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

投稿プログラム : ラジコン飛行機プログラム

2012年11月19日投稿 / 投稿者:天郷思音(わぁぃ@) / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

ラジコン飛行機を飛ばして遊ぶプログラムです。

遊び方

  • А:加速(強)
  • Б:減速
  • Ф:加速(弱)
  • Х:定速飛行(最高速度の半分の速度)
  • :加速(微)
  • :減速(微)
  • :左旋回
  • :右旋回

なお、АБФは速度によって効きが変わります。
ですが、↑↓は速度に関係なく一定の効きになります。(ただし微調整用。特に、加速は速度が1〜63の範囲でないと失効してしまいます。)
また、自然減速もあります。特に旋回時はより減速してしまいます。

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

PRG_FLI_SS0.png

QRコード

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

PRG:FLI
PRG_FLI_QR0.png

補正がかかって読み込めない場合は、画像をクリックすると等倍サイズのQRコードがご覧になれますのでぜひご利用ください。

プログラムリスト

  1. ACLS:CLEARЛ
  2. BGFILL 1,0,0,63,63,32,8,0,0Л
  3. C$=”5”*16+”6”*4+”7”*8+”6”*4+”5”*16+”4”*4+”3”*8+”4”*4Л
  4. FOR I=0 TO 63Л
  5. A=(VAL(MID$(C$,I,1))−5)/2Л
  6. X=X+AЛ
  7. BGPUT 1,7+X,I,2+I%2*13,0,0,0Л
  8. BGPUT 1,24+X,I,2+I%2*13,0,0,0Л
  9. BGFILL 1,8+X,I,23+X,I,13,0,0,0Л
  10. NEXTЛ
  11. SPSET 0,176,11,0,0,1Л
  12. SPHOME 0,8,8Л
  13. SPOFS 0,128,96Л
  14. SPSCALE 0,200Л
  15. MAX=180Л
  16. ANG=90Л
  17. BGOFS 1,−X,−YЛ
  18. @LЛ
  19. BTN=BUTTON()Л
  20. ANG=ANG+SGN(BTN AND 8)−SGN(BTN AND 4)Л
  21. IF BTN AND 128 THEN IF SPD<FLOOR(MAX/2) THEN BTN=BTN OR 16Л
  22. IF BTN AND 128 THEN IF SPD>FLOOR(MAX/2) THEN BTN=BTN OR 32Л
  23. SPD=SPD+(BTN AND 1)/32Л
  24. SPD=SPD+SGN(BTN AND 16)*((MAX−SPD+16)/(MAX))Л
  25. SPD=SPD+SGN(BTN AND 64)*((MAX−SPD−32)/(MAX))Л
  26. SPD=SPD−(BTN AND 2)/64Л
  27. SPD=(SPD*(1−(BTN AND 32)/8192−SGN(BTN AND 12)/1024))*0.9997Л
  28. BEEP 1,SPD*32Л
  29. IF SPD>MAX THEN SPD=MAXЛ
  30. IF ABS(SPD)<0.5 THEN SPD=0Л
  31. IF ANG<0 THEN ANG=ANG+360Л
  32. IF ANG>360 THEN ANG=ANG−360Л
  33. X=X+COS(RAD(ANG))*(SPD/32)Л
  34. Y=Y+SIN(RAD(ANG))*(SPD/32)Л
  35. BGOFS 1,−X,−YЛ
  36. SPANGLE 0,ANGЛ
  37. LOCATE 0,0:PRINT ”SPEED:”;FLOOR(SPD+0.5);CHR$(0)Л
  38. VSYNC 1Л
  39. GOTO @LЛ

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

この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板OFコーナーもあります。)

  • ベルック : 題名が「かな文字合成ツール」になってますよ (2012/11/19 (月) 18:39:35)
  • 天郷思音 : 直しました。 (2012/11/19 (月) 18:40:32)
  • : PTC_PLCつかって書いたの? (2012/11/19 (月) 21:44:14)
    • 天郷思音 : そのとおりです。 (2012/11/20 (火) 16:40:45)
  • 名無しさん : これを1画面化してみよう (2012/11/19 (月) 21:47:35)
    • 天郷思音 : 加減速の操作をシンプルにして、コース描画をコロンで圧縮すればできそう。 (2012/11/20 (火) 16:40:45)
      • 天郷思音 : できました。テクニックはこちらを参考にどうぞ。 (2012/11/20 (火) 16:40:45)
  • なおや : おもしろいですね。これで、敵なだも、出たら、面白いですね (2012/11/23 (金) 12:31:13)
  • 天郷思音 : コンピュータの敵も用意するか (2012/11/23 (金) 16:03:48)
  • はうむめ : ごーーーーーって言いっぱなし (2012/11/25 (日) 13:52:29)
  • 天郷思音 : 自機の音ですね。音階は速度に比例してます。 (2012/11/25 (日) 15:39:09)
  • 天郷思音 : 止まっても鳴り止まないのへ飛びっぱなしだからです。高度のパラメータを設定するのがおっくうだったもので。 (2012/11/25 (日) 15:40:32)
  • 名無しさん : 高低はスプライトの拡大縮小で何とかなりそう。これで離陸と着陸を表現できればかなりシミュレーションぽくなると思う。 (2012/11/25 (日) 16:16:25)
  • ウイング : 乗る人目線で運転も楽しそう (2012/11/25 (日) 16:23:23)
  • 名無しさん : 飛行機操縦シミュレーションか・・・。おもしろそうだけど3Dが難しそう (2012/11/25 (日) 16:29:14)
  • いずれ人類の支配者 : これかべに触れるとガンッガンッてぶつかって跳ね返ったらおもろそう。 (2012/11/25 (日) 22:41:33)
    • 天郷思音 : わざとBG0面を未使用にしていたのは、そういう用途を想定してるからだったりします。 (2012/11/26 (月) 15:49:17)
  • リョウゴン : 音、どうにかならんの? (2012/11/26 (月) 10:27:25)
  • 天郷思音 : 以下のように書き変えると、停止中に音が止まります。 (2012/11/26 (月) 15:44:48)
  1. BEEP 1,SPD*32,SGN(SPD)*127Л
  • : zzzzzzzzzzzzzzzz (2013/05/31 (金) 21:40:23)
  • ぺっこ : 前後左右だけではなく、上下もいれたらいいと思います。 (2013/07/30 (火) 00:36:23)
  • 名無しさん : 左右行き続けると・・・? (2013/12/27 (金) 19:41:35)

表示モード : [ スマホ・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