Эта игра не закончена. Цель состояла в том, чтобы просто показать вам, что вы можете сделать несколько графических вещей, не используя внешние изображения.
Если вы хотите разработать эту игру, отправьте свои обновления.
Имя файла: htanoid.hta
Требование: т.е. 6?
Автор: Жан-Люк Антуан
Представлено: 17/05/2002
Категория: Другое
效果图 ：
实现代码 ：
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: time">
<голова>
<HTA: Приложение
ApplicationName = "htanoid"
Граница = "толстый" | "Диалог" | "Нет" | "тонкий"
BordersTyle = "Нормальный" | "Комплекс" | "Поднял" | "Статический" | "Затонут"
Подпись = "Да" contextmenu = "Да"
ID = "OHTA" оповещение (OHTA.ApplicationName);
Innerborder = "Да" максимизировать, что "да" минимизируется, но "да"
Навигал = "нет" scroll = "no" scrollflat = "Нет"
Selection = "yes" showintaskbar = "yes" singleinstance = "Нет"
Sysmenu = "Да" версия = "0,5"
Windowstate = "Нормальный" | «Максимизируйте» | "минимизировать">
<script language = vbscript>
Опция явная
Const c_screenw = 400
Const c_nbx = 12
Const c_nby = 10
Тусклый местность (10,12)
Dim Raqx, Raqw, игра, Ballex, Balley
Dim Dirbx, Dirby' -Riection Balle X, y
Dim Borddroit
Borddroit = c_screenw-32
Sub Document_onkeypress ()
Выберите Case Ucase (chr (window.event.keycode))
Дело "p"
Msgbox "пауза"
'Window.cleartimeout
Конец выбора
Конец суб
Sub document_onclick ()
Игра = правда
'document.title = "click" & window.event.button
Конец суб
Sub Document_onmouseMove ()
Raqx = window.event.clientx-raqw'.shiftkey .keycode .ctrlkey .button .altkey
Если raqx <16, то raqx = 16'mur gauche
Если raqx+raqw> borddroit then raqx = borddroit-raqw
Raquette.style.left = raqx
Если не играть, тогда
Ballex = raqx+raqw/2
Balle.style.left = Ballex
Конец, если
Конец суб
Sub Drawlevel (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 "перед Begin", "<table style = 'position: absolute; top =" & 102+14*y & "; Lever =" & 16+27*x _
& "; ширина = 25; высота = 10; ' bgcolor = "& array (" silver "," red "," желтый "," синий "," magenta "," lightgreen ") (y) &"> <tr> <td> </td> </tr> </table> "
Следующий
Следующий
Конец выбора
Рандомизировать
Balley = 400
Dirbx = int (rnd ()*3) +1
Dirby = 0- (int (rnd ()*4) +1)
Конец суб
Субподобный
Dim x, y, k