2015年1月24日土曜日

EDF蟻カウンタ

EDFミッション3にて黒蟻が噛み付きと酸の二種類が居るので数える事にしました。
既存のカウンタをDLするのすら面倒だったので蟻専用誰得カウンタを自作。

ちなみに高速連打しても反応しきれないのは仕様。
テキストボックスをひたすら+1するだけなので数え間違えた時に直接値を修正できる。
エラー処理はしていないので文字などを入力すると確実にこけるのも仕様。

以下をメモ帳に張って、htaの拡張子で保存するだけ。



<html lang="ja-JP">
<HEAD><title>蟻カウンタ</title>
<HTA:APPLICATION SCROLL= "no">
<SCRIPT Language="VBScript">
Sub Window_onLoad:window.resizeTo 250,150:end sub
sub cl1():co1.value=co1.value+1:end sub
sub cl2():co2.value=co2.value+1:end sub
sub r():co1.value=0:co2.value=0:end sub
</SCRIPT>
</HEAD><body>
<input type="text" name="co1" size="10" value="0">
<input type="button" value="噛み付き蟻" onClick="cl1()" />
<br><br>
<input type="text" name="co2" size="10" value="0">
<input type="button" value="酸蟻" onClick="cl2()" /><br>
<input type="button" value="リセット" onClick="r()" />
</body>
</html>

0 件のコメント:

コメントを投稿