Este juego no está terminado. El propósito era mostrarle que puede hacer algunas cosas gráficas sin tener que usar imágenes externas.
Si desea desarrollar este juego, envíe sus actualizaciones.
Nombre del archivo: htanoid.hta
Requisito: ¿IE 6?
Autor: Jean-Luc Antoine
Enviado: 17/05/2002
Categoría: Otro
效果图 :
实现代码 :
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: time">
<Evista>
<HTA: aplicación
ApplicationName = "Htanoid"
Borde = "grueso" | "Diálogo" | "Ninguno" | "delgado"
BorderStyle = "Normal" | "complejo" | "elevado" | "estático" | "hundido"
Subtítulos = "Sí" contextMenu = "Sí"
Id = "ohta" alerta (ohta.applicationName);
InnerBorDer = "YES" MaximizeButton = "Sí" MinimizeButton = "Sí"
Navegable = "no" scroll = "no" scrollflat = "no"
Selección = "sí" showInTaskBar = "YES" SingleInStance = "No"
Sysmenu = "YES" Versión = "0.5"
WindowState = "Normal" | "Maximizar" | "Minimizar">
<Script Language = VBScript>
Opción explícita
Const c_screenw = 400
Const c_nbx = 12
Const c_nby = 10
Terreno Dim (10,12)
Dim Raqx, Raqw, Playing, Ballex, Balley
Dim Dirbx, Dirby'Direction Balle X, Y
Dim Borddroit
Borddroit = C_ScreenW-32
Sub document_onkeypress ()
Seleccione Case UCase (chr (window.event.keycode))
Caso "P"
Msgbox "pausa"
'Window.CleartimeOut
Final seleccionar
Final
Sub document_onClick ()
Jugando = verdadero
'Document.title = "Haga clic" y Window.event.Button
Final
Sub document_onmouseMove ()
Raqx = window.event.clientx-raqw'.hiftkey .keycode .ctrlkey .button .altkey
Si raqx <16 entonces raqx = 16'mur gauche
Si raqx+raqw> borddroit entonces raqx = borddroit-raqw
Raquette.style.left = raqx
Si no no juega entonces
Ballex = RAQX+RAQW/2
Balle.style.Ltft = Ballex
Final si
Final
Subtlevelvel (n)
Dim K, X, Y
establecer k = document.getElementById ("Raquette")
Para y = 0 a c_nby
Para x = 0 a c_nbx
Terreno (y, x) = 0'nb de golpe de estado
Próximo
Próximo
Seleccionar el caso n
Caso 1
'Ladrillos
Para y = 0 a 5
Para x = 0 a c_nbx
k.insertadjacenthtml "BeforeBegin", "<table style = 'posición: absoluto; top =" & 102+14*y & "; izquierda =" & 16+27*x _
& "; ancho = 25; altura = 10; ' bgcolor = "& array (" plateado "," rojo "," amarillo "," azul "," magenta "," lightgreen ") (y) y"> <tr> <td> </td> </tr> </table> "
Próximo
Próximo
Final seleccionar
Aleatorizar
Balley = 400
Dirbx = int (rnd ()*3) +1
Dirby = 0- (int (rnd ()*4) +1)
Final
Subit
Dim X, Y, K