このゲームは終了していません。目的は、外部写真を使用することなくグラフィカルなことをすることができることを示すことでした。
このゲームを開発したい場合は、更新を送信してください。
ファイル名：htanoid.hta
要件：すなわち6？
著者：Jean-Luc Antoine
提出：2002年5月17日
カテゴリ：その他
效果图：
实现代码：
代码如下：
<html xmlns：v = "urn：schemas-microsoft-com：vml" xmlns： "urn：schemas-microsoft-com：time">
<head>
<HTA：アプリケーション
applicationName = "htanoid"
border = "厚い" | 「ダイアログ」| 「なし」| "薄い"
BORDERSTYLE = "NORMAL" | 「複雑」| 「育てられた」| 「静的」| 「沈没」
キャプション= "yes" contextmenu = "yes"
id = "ohta" alert（ohta.applicationname）;
innerborder = "yes" maximizebutton = "yes" minimizebutton = "yes"
navigable = "no" scroll = "no" scrollflat = "no"
selection = "yes" showintaskbar = "yes" singleinstance = "no"
sysmenu = "yes" version = "0.5"
window -state = "normal" | 「最大化」| 「最小化」>
<スクリプト言語= vbscript>
オプションは明示的です
const c_screenw = 400
const c_nbx = 12
const c_nby = 10
薄暗い地形（10,12）
Dim Raqx、Raqw、Playing、Ballex、Balley
Dim Dirbx、Dirby'direction Balle X、Y
Dim Borddroit
borddroit = c_screenw-32
sub document_onkeypress（）
select caseucase（chr（window.event.keycode））
ケース「P」
msgbox "Pause"
'window.cleartimeout
[選択]を終了します
End Sub
sub document_onclick（）
プレイ= true
'document.title = "click"＆window.event.button
End Sub
sub document_onmousemove（）
raqx = window.event.clientx-raqw'.shiftkey .keycode .ctrlkey .button .altkey
Raqx <16の場合、Raqx = 16'mur Gauche
Raqx+raqw> borddroitの場合、raqx = borddroit-raqw
raquette.style.left = raqx
プレイしていない場合
ballex = raqx+raqw/2
balle.style.left = ballex
ifを終了します
End Sub
サブドローレベル（n）
Dim K、X、Y
k = document.getElementbyid（ "raquette"）を設定します
y = 0からc_nbyの場合
x = 0からc_nbxの場合
地形（y、x）= 0'nb de coups restantàporter
次
次
ケースnを選択します
ケース1
'レンガ
y = 0〜5の場合
x = 0からc_nbxの場合
k.insertadjacenthtml "beforebegin"、 "<table style = 'position：absolute; top ="＆102+14*y＆ "; left ="＆16+27*x _
＆ "; width = 25; height = 10; ' bgcolor = "＆array（" silver "、" red "、" yellow "、" blue "、" magenta "、" lightgreen "）（y）＆"> <tr> <td> </td> </tr> </table> "
次
次
[選択]を終了します
ランダム化
Balley = 400
dirbx = int（rnd（）*3）+1
dirby = 0-（int（rnd（）*4）+1）
End Sub
サブinit
DIM X、Y、k