【コムサイト PC88 COMSIGHT TecnoSoft ②】
発売元 テクノソフト ttp://www.tecnosoft.com/
画像 ttp://refugee2005.sakura.ne.jp/library/1987/COM01.gif
タンクの動きをプログラミングして戦わせるシミュレーションゲーム
コムサイトをまったり語りましょう（関連ゲームもＯＫ）
熱いバトルも大歓迎です
BPLソース貼りの場所としても活用ください
元祖はアップルの＊＊というゲームらしい（CoreWars？）
R.C. ロボットコンストラクション（X68）
ttp://www.electricsheep.co.jp/rc.shtml
マリオネットハンドラー（ＤＣ）
ttp://www.ni.bekkoame.ne.jp/jet_ryo/robo/game/marionettehandler.htm
地球防衛軍（PC98）
ttp://randy3.hp.infoseek.co.jp/retro/doc/farside.shtml
カルネージハート（PS2）
ttp://www.artdink.co.jp/japanese/title/chez/
MULTIPLY29
ttp://hp.vector.co.jp/authors/VA012411/chapter-10.html#MULTIPLY29
GUN-TACTYX
ttp://gameprog.it/hosted/guntactyx/
関連 ヘルツォーク
ttp://yasai.2ch.sc/game/kako/979/979398739.html
自動で対戦させるゲーム。
フィールドの広さは16ｘ16ブロック（1ブロック＝1マス分）
1ブロックは更に細かい座標であるセクターに分けられる。（1ブロック8セクター）
移動などはブロック単位、ミサイル攻撃の座標指定などはセクター単位で行われる。
ダメージが100になるか、エネルギーを使い果たすか、プログラムが終了したら負け。
初期エネルギーは30000
攻撃方法はBeamとMissileの2種類
攻撃が命中するとまずシールドがダメージを受け、
シールドが無くなるとダメージが蓄積していく。
シールドは時間経過で自動回復するが、エネルギー消費が激しくなる。
ビームは真正面に攻撃を行う。
ミサイルは指定座標に攻撃できるが、攻撃範囲は前方45度未満の範囲に限られる。
BASIC風の言語で行番号の後に命令文を書く。
使用可能な変数：A～Z、A0～W9
（A～Wまで後ろに0～9を付け配列変数として扱える）
XYZはインデックスレジスタとして使用可能
（『X=0:A(X)=1』と『A0=1』は同じ動作をする）
命令毎に動作クロックが設定されており、
命令を実行する毎にゲーム内時間が経過していく。
命令の後ろに実行値を指定するタイプの命令は、
数値が0の場合、クロックを消費しない。
またIF文などはクロックを消費するが、
論理演算をするだけではクロックは消費されない。
そのため高速で無駄なく動作するプログラムにするには、
論理演算を組み合わせ、動作させたいときは必要な数値、
動作させたくない場合は0になるように組んでいくことになる。
サーチ命令。 命令の後ろに索敵する範囲をセクター単位で指定する。
指定範囲は1～64 指定範囲を超えると（-1や65など）
イリーガルファンクションコールエラーになる。
※フィールドは15x15なので『SEARCH 64』（8マス）の場合、
必ず敵か壁を見つけることができる。
サーチした情報は以下のレジスタに格納される。（セクター単位）
@X ：X座標
@Y ：Y座標
@R ：自タンクと敵タンクとの距離
@D ：敵タンクの向き
敵を見つけた場合は敵、敵が見つからなかった場合は壁の座標が格納される。
敵も壁も見つからなかった場合は0
タンクの方向は0～63。自タンクと敵タンクが同じ方向（↑）を向いているときは0。
←16、↓32、→48。 旋回中はその間の数値となる。
指定数値毎に16エネルギー消費する。
＠EE ：敵タンクの残エネルギー 30000～0
＠ES ：敵タンクの現在のシールド値 0～100
＠ED ：敵タンクの受けているダメージ量 0～100
参照できるのはサーチで確認した直後の数値なので注意が必要。
またサーチに関係なく自タンクの情報は常に確認できる。
@ME ：自タンクのエネルギー
@MS ：自タンクのシールド
@MD ：自タンクのダメージ
@Rレジスタは敵を索敵出来たかどうかの判断基準に使うことができる。
（敵を見つけられなかったとき、@R=0）
１乙
使用エネルギー量を指定する。
真正面にビームを発射し、敵タンクに命中した場合ダメージを与える。
使用エネルギー量が多くなれば与えるダメージも増す。
バグなのか仕様なのかは不明だが、
特定の値の場合ダメージが大きいことが確認されている。
※BEAMコマンドに限らず値を変数で指定した場合、
変数の内容が0の場合、何もせず消費クロックも0になる。
値は数値でも変数でも指定可能。
攻撃範囲は前方45度以内。
範囲外の場合、ミサイルは発射されない。
また、座標として指定可能な数値は0～64までで、
エネルギーは0～30000まで指定可能。
指定範囲を超えた場合エラーとなる。
指定座標に対し、ミサイルで攻撃する。
ミサイルは着弾までに時間がかかり、飛翔速度は1クロックに2セクター進む。
（タンクの移動速度の2倍）
敵タンクが自タンクの1マス前（0,8）にいる場合、
その前後3セクターまで命中する。
（X座標-3～+3、Y座標5～11）
BEAMは特定数値のみだが、MISSILEは一定値以上のエネルギーを
消費することで、一撃で敵タンクを撃破可能である。
正の値のときは右、負の値のときは左に旋回する。
0の時は旋回せず、クロックも消費しない。
旋回が完了するまで、次の命令は実行されない。
非常に隙が大きい行動なので、相手攻撃範囲での旋回は避けた方が懸命。
正の値の時は前進、負の値のときは後退する。
指定可能な数値は-15～15まで。
指定数値分のブロックを移動する。
0の場合、移動は行われず、クロックも消費しない。
移動中のタンクは、1クロックに1セクター進む。
一旦移動を開始したら、移動終了するまで次の命令は実行されない。
壁や敵タンクに衝突した場合、ダメージを負うので注意が必要。
FORWARD 前進
BACK 後退
RIGHT 右90度旋回
LEFT 左90度旋回
数値の指定などはなく、命令単体で機能する。
必ず指定行動を行い、クロックも消費される。
ただし、これらの命令に関しては強いタンクを作ろうとする場合、
全く使用されないと思われる。
同様にIF THEN ELSE、GOSUB RETURNなどの制御命令も使用可能ではあるが、
意図的に使用を避けられることになる。（それだけで無駄にクロックを消費するため）
IF文などを使わずに処理を分岐させる方法についても後ほど解説したいと思う。
GOTO ＜行番号＞ 1クロック
指定した行番号へ飛ぶ。
プログラムループを作るため、プログラム末尾に
GOTOが1回使用されるだけの形を目指すことになるのではないかと思われる。
文字を表示する。 デバッグ時に便利。
バトル中には全く役に立たない命令なので、確認後は
消してしまうか、コメントアウトする。
使用例：
10 PRINT "X="X，"Y="Y など
自タンクが思ったように動作しない場合、変数の値を表示させることで
問題のある部分を探すのに役立つ。
TROFF
トレースオフ。
プログラム実行中、リスト表示が流れないようにする。
PRINTで表示した内容が読み取り安くなる。
基本的にデバッグ時以外には不要なコマンド。
（PRINTと共に使い、戦闘中にAAやメッセージを表示させたり……してどうする）
LIST
プログラムリストを表示する。
LIST ＜行番号＞-＜行番号＞ ：指定行を表示
LIST -＜行番号＞ ：行番号までを表示
LIST ＜行番号＞- ：行番号から表示
RUN
仮想モードでプログラムを実行する。
仮想モード実行中はスペースキーで1クロック毎の動作をコマ送りで確認できる。
実行中もESCでポーズをかけ、F1のメニュー操作から
敵タンクのダミーの位置を変更したりできる。
RENUM
行番号を整理する。
行番号を振りなおしたいときに。
※
ちなみにプログラムは4096バイト（半角文字4096文字分）以内で組む必要がある。
しかしながら、行番号はその制限に含まれない。
行番号を1刻みで小さくしても容量を稼ぐことはできない。
ABS（＜数値、変数、式＞） ：絶対値（正負関係なく、正の値にする）
SGN（＜数値、変数、式＞） ：符号（正ならば1、負ならば-1、0なら0を返す）
例：
X=ABS（5-8）
Xの値は-3ではなく、3になる。
X=SGN（@R)
@Rの値が0ならば0、それ以外は1になる。
（@Rは負の値をとらない為）
『（）』カッコでくくった中の比較演算子が正しい場合-1、正しくない場合0になります。
使用例：
10 X=（@Y>=3）
@Yが3以上のとき、Xは-1。
@Yが3未満のとき、Xは0になります。
比較演算子やAND、OR、NOTといった論理演算子については、検索すれば
色々な解説が見つかると思うのでひとまずは簡単に説明を終えます。
使用例：
10 X=3
20 X=(（X+2）AND 3)
Xの値は1になる。（2進数で5は1001、3は0011、論理積は0001になる）
図解 @X@Yの値（自は上を向いている）
圏内の時 相対的な敵座標
囗囗囗囗囗壁
囗敵囗囗囗壁
囗囗囗囗囗壁
囗囗囗囗囗壁
囗囗囗自囗壁
壁壁壁壁壁壁
@X=-16 @Y=24
圏外の時 近い側の壁までの距離（つまり絶対座標がわかる）
壁壁壁壁壁壁 囗囗囗囗囗壁
壁囗囗囗囗囗 囗囗囗囗囗壁
壁囗囗囗囗囗 囗囗囗囗囗壁
壁囗囗囗囗囗 囗囗自囗囗壁
壁囗囗自囗囗 囗囗囗囗囗壁
壁囗囗囗囗囗 壁壁壁壁壁壁
@X=-24 @Y=32 @X=24 @Y=-16
敵の向きと@Dの関係
囗囗囗囗囗囗囗囗囗
囗_0囗16囗32囗48囗
囗↑囗←囗↓囗→囗
囗囗囗囗囗囗囗囗囗
囗囗囗囗自囗囗囗囗
10 SEARCH 64
20 Q=-(@R=0):R=-(Q=0)
30 S1=ABS(@X):S2=ABS(@Y)
40 S3=SGN(@X):S4=SGN(@Y)
50 B=(S1=0)*(S4>0)*R
60 BEAM B
70 X=-(S2>S1)*@X-(S2<=S1)*(S2-1)*S3
80 Y=S2
90 M=100*((S2-S1)>-8)*(S4>0)*R
100 MISSILE X,Y,M
110 T=-S3*(S1>@Y)*R+S3*(S4>0)*Q
120 TURN T
130 V=-(@Y>16)*R-(T=0)*Q
140 MOVE V
150 GOTO 10
10 SEARCH 64
最大範囲でサーチします。 敵か壁のどちらかは発見できます。
20 Q=-(@R=0):R=-(Q=0)
敵が見つかった場合と、見つからなかった場合で行動を変化させる為に使います。
@R=0のときはサーチ範囲に敵はいなかったので、探してうろつくことにします。
30 S1=ABS(@X):S2=ABS(@Y)
40 S3=SGN(@X):S4=SGN(@Y)
サーチ結果で得たX座標とY座標の絶対値と符号を用意します。
50 B=(S1=0)*(S4>0)*R
60 BEAM B
ビーム攻撃をします。
（S1=0) ←サーチ対象がが真正面か真後ろの時には-1
(S4>0) ←サーチ対象が前方だった場合には-1
R ←サーチ範囲に敵がいた場合1、いないときは0になります。
全てを満たした場合、前方にビーム攻撃を行います。
つまり、サーチの結果、真正面に敵タンクを発見したらビームを発射します。
どれか一つでも満たさない場合は0になり何もしません。
（この場合、使用エネルギーはたったの1なので、威力の期待はできません）
70 X=-(S2>S1)*@X-(S2<=S1)*(S2-1)*S3
80 Y=S2
90 M=100*((S2-S1)>-8)*(S4>0)*R
100 MISSILE X,Y,M
ミサイル攻撃します。
-(S2>S1)*@X Y座標の方が大きい場合、45度に納まるのでX座標はそのままです
-(S2<=S1)*(S2-1)*S3 前方45度に収まらないとき、X座標の指定をY座標-1にします。
Y座標は正の値で指定しておきます。
サーチした対象が前方にあり、前方45度よりもやや広い程度の
範囲内で敵タンクを確認していれば攻撃します。
110 T=-S3*(S1>@Y)*R+S3*(S4>0)*Q
120 TURN T
確認したY座標よりもX座標の絶対値が大きいとき敵方向に旋回します。
敵を見つけていなくて前方に壁があるとき、側面の壁のない方を向きます。
130 V=-(@Y>16)*R-(T=0)*Q
140 MOVE V
敵がいて確認したY座標が16よりも大きい場合、前進します。
敵がいなかった場合、旋回しなかった時に前進します。
150 GOTO 10
10行目まで戻って繰り返し処理を行います。
このように論理式の組み合わせで、自分が行動させたい時には必要な数値、
行動させたくない条件で0になるように掛け算や足し算で組み合わせていきます。
勝つためにどうするか、勝利条件について考えてみる。
エネルギーが切れたら負け
①無駄なエネルギーは使わない
シールド強度を下げ、燃費を良くする。
無駄撃ちで消耗しない。
敵との距離に合わせサーチ範囲を限定し、消費を抑える。
②相手にエネルギーを使わせる
ミサイルを命中させ、エネルギー消費を増大させる。
ダメージが100になったら負け
①敵の攻撃を喰らわない工夫
一箇所に長く留まらない
攻撃範囲から逃げる
②先に倒す
命中させる工夫
必中の条件なら一気にトドメをさす。
③壁にぶつからない
移動制御の工夫
プログラムが終了したり、エラーになったら負け
⇒エラー原因になる部分は修正する
これが全てではないかもしれませんが、自分はこんな風に考えてます。
※Tecno-Softが用意してくれたサブルーチンの2番煎じ。
※SEARCHコマンド直後に使ってください。
※A,B,C,D0-D2 レジスタを使用します。
※d2に旋回終了までのクロック、Cに旋回終了後の向きが入ります
※動作保障はしません。使う時は自己責任でお願いします（＾＾；
100 D0=@D ;敵の向き
110 A=(@D/16*16) ;0～15=0、16～31=16、32～47=32、48～63=48
120 A=-(A<>D0)*64 ;敵が旋回中（旋回中のハンパな角度）だったら索敵範囲指定
130 SEARCH A ;再サーチ（旋回してないなら再サーチしない）
140 D1=@D ;再サーチ後の敵の向き
150 A=(@D/16*16)
160 A=(A<>D1) ;旋回終了しているかどうか
160 B=(D0-D1)*A ;旋回方向計算
170 A=D1-(15*(B>0)) ;旋回方向に合わせて補正。
;半時計回りなら+15。
;余りを切捨てるので時計回りはそのままでOK。
180 C=-(A/16*16)*(A<64) ;旋回終了後の方向。補正後64を超えたら0に。
190 D2=(C*B)-(D1*B) ;旋回終了までのクロック数計算（回転終了なら0）
長々と失礼いたしました。
解らないことなどあれば、気軽に質問してください。
わかる範囲でお答えします。
コムサイト関連の雑談も歓迎です。
88スレから情報引継ぎ
当時テクノソフトがＢＢＳを開いていて専用通信ソフトがあった
対戦コンテストが開かれた
1 MOVE 15:TURN 1:GOTO 1 の逃げるだけマシンは結構勝つ
１定の値の奇数ビームは破壊力大の裏技があった
案外厄介な相手です。
サーチすら行わないため、敵を探して攻撃するタイプのタンクは
エネルギー消費の差で負けてしまう可能性があるのです。
最初から用意されているタンクに対する勝率もなかなか良く、
敵からの攻撃があるまで動かないGargoileに対して相性が悪いくらいです。
（正面を塞がれてそのまま撃破されるパターンも相手がMinkyのときに確認）
余談ですが、自分のタンクは最速で逃げ回るタンクの対抗策として
偏差射撃を行って命中数を稼いでいるので勝てます。
実はその分だけ普通のタンクに対しては無駄な攻撃行動を取っているので、
敵のタイプを判断して無駄撃ちを減らせないか模索中だったりします。
（個人的にはエラー発生で自爆というところも大好きです）
今まで解説してきた論理式を組み合わせるプログラムは、
極限の1クロックが致命的になる状況を避け、相手よりも
手数を出すことで有利なることを目的としたテクニックです。
ですが、必須ではありません。
遠距離ではその分だけ余計にエネルギーを
消費してしまいがちという欠点もあります。
ただでさえ敷居の高いゲームですので、IF文で1クロック消費しても
それが致命的な遅れに繋がらなければ良いと思います。
具体的には敵との距離が近く攻撃を受ける可能性がある状況を
優先して処理し、次の行動になるよう不要な処理を飛ばしたり、
旋回で長く留まった後はすぐにその場を離れるよう移動もセットで
組み込むなどすると良いかもしれません。
（IF文などで判断するタイミングを旋回後に入れないようにする）
お疲れ様ですｗ
Apple2の元祖ゲームはMuse SoftwareのRobot Warだと思います
因みにMuse Software社は恐らく現在全盛ののfps系ゲームの元祖である
キャッスルウルフェンシュタインを開発した会社でもあります
なるほど、そうでしたか。
ありがとうございます（＾＾
ttp://en.wikipedia.org/wiki/RobotWar
まるでウイルスを作っているようで
>>25のサンプルプログラムを算術演算から論理演算に置き換えてみた
10 SEARCH 64
20 Q=@R=0:R=NOT Q
30 S1=ABS(@X):S2=ABS(@Y)
40 S3=SGN(@X):S4=SGN(@Y)
50 B=1 AND R AND S1=0 AND S4>0
60 BEAM B
70 X=@X AND S2>S1 OR S3*(S2-1)AND S2<=S1
80 Y=S2
90 M=100 AND R AND S2+8>S1 AND S4>0
100 MISSILE X,Y,M
110 T=S3 AND S1>@Y AND R OR -S3 AND S4>0 AND Q
120 TURN T
130 V=1 AND(@Y>16 AND R OR T=0 AND Q)
140 MOVE V
150 GOTO 10
人によってはこのほうが理解しやすいかもしれない
ちなみに元のソースより9バイト余分に消費します
ポイントは、
数式 AND 論理式 AND 論理式 AND …
という形で、論理式が真なら数式の値、偽なら0になります
メモリ残量が気になるほどになってくれば、
元のソースのように算術式を利用することになるでしょう
これは盲点でした。
確かにその方が理解しやすそうですね。
自分も最初はANDやORを使って記述していたものが、
いつしか算術演算子で記述する方が楽で
それがすっかり定着してしまっていたようです。
しかも戦闘時はマルチスレッド（2ソース）の実行で3D表示。なかなか凄い。
レーザーは１クロックで全部、ミサイルはタンク速ｘ２、一升移動は８、回転は１６クロックだったと思う。
相手当たり判定は中心から+3まで
ビームは１クロック消費で即相手に当たる 距離は関係ない
１クロックエネルギー消費量=DL（デェフェンスレベル）+2
シールドは１クロック１回復
１クロックシールド回復エネルギー消費量=DL*3+37
壁や敵にぶつかったときのシールドダメージ=(16-DL)*2+34
CIRC 円状均等
MASH 前後楕円状
SIEVA 前方扇状
AGLEX 前後左右突出
VOA 斜め四方突出
HOGS 前後突出
ZAR 左右突出
WEITZ 後方扇状
２０年の謎は解き放たれた
ファイル
PandoraBox
Secrecy
SubRoutine
PASSWORD:""
1 PandoraBox "" なし
Good ____
2 Secrecy "luck"
Next hint ﾊﾟﾝﾄﾞﾗ ﾉ ﾊｺ ﾆ ｻｲｺﾞ ﾆ ﾉｺｻﾚﾀ ﾓﾉ
3 SubRoutine "hope"
X68000と書いてあるのは間違いかと。
ttp://www.suruga-ya.jp/pics/boxart_m/126000766m.jpg
駿河屋でのパケ。
10 SEARCH 64
20 IF @R=0 THEN GOSUB 90
30 IF @Y>=ABS(@X) THEN GOTO 50
40 TURN @X:GOTO 10
50 IF @Y>0 THEN MISSILE @X,@Y,100 ELSE TURN @X:GOTO 100
60 IF @X=0 THEN BEAM 573:GOTO 100
70 IF @Y>=16 THEN FORWARD
80 GOTO 10
90 '
100 IF @Y>0 TURN -@X ELSE MOVE 1
110 SEARCH 64
120 IF @R=0 THEN goto 100
130 RETURN
10行目 サーチ
20行目 敵タンクがいなければ、90行からの索敵ルーチンを実行
30行目 X座標よりもY座標の方が大きければ50行目へ
40行目 攻撃できないので敵方向へ旋回して10行目へ戻る
50行目 ミサイル攻撃
60行目 ビーム攻撃
70行目 敵が遠ければ接近
80行目 ループ先頭に戻る
90行目
100行目 前方に壁確認⇒壁のない側へ旋回、壁が無ければ前進
110行目 サーチ
120行目 敵がいなければ100行目から繰り返す
130行目 敵がいたので処理を終えて戻る
ちなみにすっきりしている割に無駄な部分は残っていますし、
COMのタンクに勝つためには工夫が必要です。
あくまで最低限の動作をさせるための参考として。
方眼紙に自タンクの△を書いて、前後左右1ブロック分の幅で線を引く。
自タンクを中心に斜め45度のラインを引く。
前方2～4ブロックの辺り、この辺りまでバリバリ攻撃したいと思うところで横に線を引く。
線で区切った場所に敵がどういう向きでいたら
どんな風に自分のタンクが動いて欲しいかを考える。
そうすると、どういった条件の時にどんな風に動く命令を書けばいいか
どんな命令が欠けているのかが解りやすい。
DL 01で消費6、DLが1上がるごとに2上昇していき、DL 16で消費36。
DL+2で正しかったわ。
「自分のタンクに勝ったら5千円！」と賞金を出したことがあった。
それでも対戦者は現れなかった。
そんなゲーム。
昔のゲーム誌（LogInだったかな）で広告を見た覚えがあるんだけど、
あれって本当に販売されたの？
知ってる人いたら教えて欲しいです。
少なくとも上位10位に入った人には送られたはず
うーん、大会参加できなかったのが悔やまれるなぁ。
どんなタンクだったのか気になる。
というか、対戦させてみたかったな。
面倒なので投げたけど。
昔考えたのは、後ろを敵に向けてBackで突撃するタンクとか。
敵の脇をすり抜けるのが狙いだけど、真後ろに入られると致命的なので、
その対策が思いつかなくて結局ボツになっちゃった。
8種のタンクは個性的で良いな。
もっと多くの同好の士がこのスレを見つけてくれるといいなぁ
そういう人が20年以上経った今でもアンテナ張ってはいないと思うんだよね。
とあるブログの記事に対して、3年後にレス付いたりしているし。
「○○みたいなときは処理させたいんだけど良い方法ない？」とか。
対戦申し込みも歓迎。
Skydart-2
・危険地帯に踏み込まない
・無駄なサーチをカット
・回避を大きく
他色々修正
http://www1.axfc.net/uploader/Sc/so/332626
DLキーワード: comsight
以前アップされたTYPE-0, Skydartと一緒にいれておいた。
楽しみです。
前と比べてかなり完成度上がってるねー。
対応するのに苦労しそうだわ。
これ自体はプログラムじゃないしプロテクトもかかっていないから
アップしてもいい気がするけど売り物だったのならまずい気もする
そのあたりの判断はお任せします。
良かったら>>60のタンクと戦わせてみてどういう結果なのか、
試して結果報告してもらえたら嬉しいです。
まずはTYPE-0 vs 大会タンク
戦績はTYPE-0から見てのもの
大会同様10戦で、表記は「勝ち数」ハイフン「負け数」
下記の01～10は大会順位、その右はタンクの名前
Y1,Y2は運営側が用意した予選用タンク
01 RYU-4.1 5-5
02 GUYVER-3 6-4
03 HALBERD 10-0
04 TZJSD3G 2 9-1
05 RYU-4.2 8-2
06 D.A.R.K 7-3
07 T.BUSTER 9-1
08 GREAT BOW 7-3
09 Gabu HA 9-1
10 Gabu RO 10-0
Y1 Dragon2 8-2
Y2 Excel-2197 9-1
ちなみにM88の全力駆動で動かしたので試合内容は見てない
ただ時々TYPE-0が自爆することがあった気がする
おぉ、ありがたい。
結構良い感じで戦えていることが解っただけでも満足。（＾＾
ご指摘の通り、うｐした時点でTYPE-0はバグが残っていました。
プログラムを整理して、別タンクを一から組み直しているところです。
01 RYU-4.1 10-0
02 GUYVER-3 9-1
03 HALBERD 9-1
04 TZJSD3G 2 9-1
05 RYU-4.2 8-2
06 D.A.R.K 10-0
07 T.BUSTER 8-2
08 GREAT BOW 9-1
09 Gabu HA 10-0
10 Gabu RO 10-0
Y1 Dragon2 10-0
Y2 Excel-2197 10-0
01 RYU-4.1 10-0
02 GUYVER-3 10-0
03 HALBERD 9-1
04 TZJSD3G 2 7-3
05 RYU-4.2 10-0
06 D.A.R.K 9-1
07 T.BUSTER 7-3
08 GREAT BOW 10-0
09 Gabu HA 10-0
10 Gabu RO 10-0
Y1 Dragon2 10-0
Y2 Excel-2197 8-2
修正前より負けが増えたみたい
ただし1ヶ月間限定
http://www1.axfc.net/uploader/Sc/so/333737
DLキーワード: comsight
zipパス: ゲーム名（英大文字）+大会開催年西暦4桁
ソース見られるタンクもあるよ
高いFD送るのもったいないとか、そも強いタンク作れなくて、そのまま。
あと、通信用のBBSもあったらしいが、モデムなんて持って無かったよ。
まず注意として、エネルギーの値が偶数の場合、威力が著しく減少する。多分バグだろう。
32の倍数のときが最も弱くなり、次いで16の倍数、8の倍数、4の倍数、2の倍数の順で
少しずつ威力が上がるが、奇数の場合とは比較にならないほど弱い。
よって、以降はエネルギーの値が奇数であることを前提とする。
まずはじめに、ビームのエネルギーに関係なく、ビームがあたっただけで、
無条件で一定量のシールドが失われる。計算式は、
(16-ディフェンスレベル)*2+α
となっている。αはタンクタイプと被弾方向によって変わる。
SIEVAの正面は5、側面は26、背面は50だった。
さらに、ビームのエネルギーが32増えるごとにシールドを削る量が1増える。
これはディフェンスレベルには影響されない。
例えば、ディフェンスレベル16のSIEVAを正面から攻撃する時、
シールド100を吹き飛ばすのに必要なエネルギーは、
95*32+1=3041 （+1は奇数にするための補正）
となる。5は無条件で削れるので残り95を削るだけのエネルギーで良い。
ビームのエネルギーが160増えるごとにダメージが1増える。
これもディフェンスレベルには影響されない。
シールド0の状態からダメージ100を与えるのに必要なエネルギーは
(100-@ED)*160+1 （+1は奇数にするための補正）
となる。よって、全く被弾していないディフェンスレベル16のSIEVAを
正面から一撃で撃破するのに必要なエネルギーは、
95*32+100*160+1=19041 （+1は奇数にするための補正）
となり、以前指摘された値と一致する。
昔、ダメージの入り方は調べたんだけどシールドの削れ方がよくわからなかった。
改めて調べてみてすっきりした。
自分はMISSILE偏重で、BEAMは詳しく検証していませんでした。
新しいタンクを組む為に色々試行錯誤しているんですが、
工夫する余地はあっても容量が厳しくなってきて、プログラムを整理中だったり。
●距離表(@R)
64 64 66 68 72 75 80 85 91
56 57 58 61 64 69 74 79
48 49 51 54 58 62 68
40 41 43 47 51 57
32 33 36 40 45
24 25 29 34
16 18 23
08 11
△
@R ≒ SQR(@X*@X+@Y*@Y)
小数点以下の端数は切り捨てか四捨五入かは未確認
シールドの削れ方の法則がわかったので、
相手のタンクタイプとディフェンスレベルを推定できないかなーとか妄想してる。
できてもメリット少なそうだけどね。
耐久力1削る為に80必要で、100ダメージの為に8000エネルギー必要。
合計8800エネルギーでシールド16のSIEVAを倒せたと思う。
SQR使えたのか……orz
今は手元にマニュアルがないから色々見落としてるなぁ。
実家にある筈なんだけど、どこにやったか解らんのよね。
T.BUSTERと自分の古いタンクには負けるようになった。（TT
他人が作ったタンクのソースを眺めるのにどうぞ
（自分は開発にも使うけど）
Peggy/PeggyPad用 COMSIGHT BPL キーワード色分け定義ファイル
http://www1.axfc.net/uploader/Sc/so/334973.zip
Peggyを知らない人のために説明すると、
Windows用のプログラミング用途のエディタで、
Peggyは有料だがPeggyPadは無料
ダウンロードは↓から
http://www.anchorsystems.jp/anchor/ashp/peggy/pegindex.html
(1) ac_comsight.kwd を C:\Program Files\Anchor\share フォルダに放り込む
（インストール場所を変えた場合は適宜読み替えて）
(2) BPLソースのテキストファイルを用意して、拡張子を comsight にする
(3) Peggy/PeggyPad で (2) のファイルを開く
メニューの「ツール」→「オプション」から「表示色」タブを選択して
次のように設定しよう
数値定数…青色
識別子/変数/関数/ラベル…茶色
CPUインストラクション…赤色、太字にする（色の中のチェックボックスをオンにする）
CPUレジスタ…色はそのままで太字にする
組み込み関数…色はそのままで太字にする
気に入らなかったら自分の好みで変更してくれ
あるある
天敵ができないようにするのが結構大変なんだよね
（かなりローテクだが、たぶんこれしかない）
(1) X88000 で COMSIGHT を起動する
(2) X88000メニューの「システム」→「パラレルポート」で「PC-PR201」を選択する
(3) X88000メニューの「システム」→「パラレルポート」→「デバイスの設定」で、用紙サイズを「15インチ連続紙」にする
(4) CREATE でタンク作成モードに入る
(5) LLIST を実行する
(6) X88000メニューの「システム」→「パラレルポート」→「デバイスの設定」でページ番号を選択した後、「コピー」ボタンを押す
(7) 「テキスト抽出」を選択して「OK」を押す
(8) メモ帳なりエディタなりを開いて、貼り付けする
(9) ページ数分 (6)～(8) を繰り返す
(10) 用紙幅を超える行は改行されてしまうので、目視で修正する
2回目以降のLLISTを実行する前には、「システム」→「パラレルポート」→「デバイスの設定」で
「用紙削除」ボタンを押して、全ページを削除しておくこと。
さもないと、以前のページの後に追加されてしまう。
あと、残念ながらX88000ではタンクの開発はできない。
プログラムの入力だけならできるが、実行するとエラーになって自爆してしまう。
一撃で倒そうとするとその通りなんだけど、
エネルギー1のミサイルを連続で当ててもダメージが入る仕組みが
よくわからなくてね
うん、確かに。
・ミサイルのダメージはDLにのみ影響される。タンクのタイプと被弾方向は全く関係ない
・壁に衝突した時のシールド減少量は、VOA, ZAR, WEITZが最も少なく、SIEVA, AGLEX, HOGSが最も多い
・壁に衝突した時のシールド減少量は、全タイプで前面と背面で差がない
・敵に衝突した時のシールド減少量は、SIEVA, WEITZ以外は壁の時と同じ。SIEVAとWEITZのみ背面のときが違う
・壁や敵に衝突した時のシールド減少量は、DLが1増えるごとに2減る
横からぶつけられるケースもあるけどデバッグ画面ではできないので検証してない
この結果は想像していたのと違ってかなりショックだった
実際の戦闘でも本当にこの通りなのか、また今度試してみる
へー取り出せるのか。
あとクリップボードペースト機能があれば入力もできるな。
>>91
1発目でシールド剥がれてる時に2発目あたるからでは？
＞横からぶつけられるケースもあるけどデバッグ画面ではできないので検証してない
敵に横からぶつけて敵のダメージ見ればいいんでは？
>敵に横からぶつけて敵のダメージ見ればいいんでは？
その手があったか。やってみたんで前後とあわせて結果を貼っとく。
敵に衝突した時のシールド減少（DL=16の場合）
タイプ 前 後 横
----------------
CIRC___ 18 18 18
MASH_ 22 22 14
SIEVA_ 34 04 18
AGLEX 34 34 34
VOA___ 04 04 04
HOGS_ 34 34 04
ZAR____ 04 04 34
WEITZ_ 04 34 18
タイプ 前 後
-------------
CIRC___ 18 18
MASH_ 22 22
SIEVA_ 34 34
AGLEX 34 34
VOA___ 04 04
HOGS_ 34 34
ZAR____ 04 04
WEITZ_ 04 04
(1) シールド減少量の計算方法
基本シールド減少量=80-(ディフェンスレベル-1)×2
シールド減少ボーナス=ミサイルのエネルギー÷16（端数切捨て）
最終シールド減少量=基本シールド減少量+シールド減少ボーナス
例1）ディフェンスレベル6のタンクにエネルギー160のミサイルが命中した場合
基本シールド減少量=80-(6-1)*2=70
シールド減少ボーナス=160/16=10
最終シールド減少量=70+10=80
例2）ディフェンスレベル1のタンクにエネルギー1のミサイルが命中した場合
（よくあるパターン）
基本シールド減少量=80-(1-1)*2=80
シールド減少ボーナス=1/16=0.0625 切り捨てて0
最終シールド減少量=80+0=80
シールド補正値=シールド残量+(ディフェンスレベル-1)×2
ダメージ吸収量=シールド補正値÷5（端数切り上げ）
基本ダメージ=16-ダメージ吸収量（下限は0）
シールド突破エネルギー=(シールド残量-基本シールド減少量)×16（下限は0）
ダメージボーナス=(ミサイルのエネルギー-シールド突破エネルギー)÷80（端数切捨て、下限は0）
最終ダメージ=基本ダメージ+ダメージボーナス
例1）ディフェンスレベル16、シールド残量60のタンクにエネルギー1000のミサイルが命中した場合
シールド補正値=60+(16-1)*2=90
ダメージ吸収量=90/5=18
基本ダメージ=16-18=-2 下限が0なので0
基本シールド減少量=80-(16-1)*2=50
シールド突破エネルギー=(60-50)*16=160
ダメージボーナス=(1000-160)/80=10.5 切り捨てて10
最終ダメージ=0+10=10
例2）ディフェンスレベル1、シールド残量23のタンクにエネルギー1のミサイルが命中した場合
（よくあるパターン）
シールド補正値=23+(1-1)*2=23
ダメージ吸収量=23/5=4.6 切り上げて5
基本ダメージ=16-5=11
基本シールド減少量=80-(1-1)*2=80
シールド突破エネルギー=(23-80)*16 下限が0なので0
ダメージボーナス=(1-0)/80=0.0125 切り捨てて0
最終ダメージ=11+0=11
こっちのMAエミュはテキストペーストが使える模様。
コムスンが動くかどうかは試してないけど。
100～のスレッドの続きを読む