Este jogo não acabou. O objetivo era apenas mostrar que você pode fazer algumas coisas gráficas sem precisar usar imagens externas.
Se você deseja desenvolver este jogo, envie suas atualizações.
Nome do arquivo: htanoid.hta
Requisito: ou seja, 6?
Autor: Jean-Luc Antoine
Enviado: 17/05/2002
Categoria: Outro
效果图
实现代码
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: time">
<head>
<HTA: Aplicação
ApplicationName = "Htanóide"
Border = "Gross" | "Diálogo" | "Nenhum" | "afinar"
BordersTyle = "Normal" | "Complexo" | "Criado" | "estático" | "afundado"
Legenda = "sim" contextmenu = "sim"
Id = "Ohta" Alert (Ohta.ApplicationName);
INNERBORDER = "Sim" MaximizeButton = "Sim" MinimizeButton = "Sim"
Navegável = "não" scroll = "no" scrollflat = "não"
Selection = "Sim" ShowIssaskbar = "Sim" SingleInstance = "Não"
Sysmenu = "sim" versão = "0,5"
Windowstate = "Normal" | "Maximize" | "Minimize">
<idioma de script = vBScript>
Opção explícita
Const c_screenw = 400
Const c_nbx = 12
Const c_nby = 10
Terreno escuro (10,12)
Dim Raqx, Raqw, tocando, Ballex, Balley
Dim Dirbx, Dirby'direction Balle x, y
Dim Borddroit
Borddroit = c_screenw-32
Sub -document_onkeypress ()
Selecione o caso ucase (chr (window.event.keycode)))
Caso "p"
Msgbox "pausa"
'Window.cleartimeout
Final Selecione
Final sub
Sub -documental_onClick ()
Tocando = verdadeiro
'Document.title = "Clique" & Window.Event.Button
Final sub
Sub -document_onmouseMove ()
Raqx = window.event.clientx-raqw'.shiftKey .keycode .ctrlkey .button .altkey
Se raqx <16 então raqx = 16'mur gauche
Se raqx+raqw> borddroit então raqx = borddroit-raqw
Raquette.style.left = raqx
Se não estiver jogando então
Ballex = raqx+raqw/2
Balle.style.left = Ballex
Final se
Final sub
Sub Drawlevel (n)
Dim k, x, y
set k = document.getElementById ("Raquette")
Para y = 0 a c_nby
Para x = 0 a c_nbx
Terreno (y, x) = 0'nb de golpes restante à Porter
Próximo
Próximo
Selecione o caso n
Caso 1
'Tijolos
Para y = 0 a 5
Para x = 0 a c_nbx
k.Insertadjacenthtml "Antes deBegin", "<tabela style = 'posição: absoluto; top =" & 102+14*y & "; esquerd =" & 16+27*x _
& "; largura = 25; altura = 10; ' bgcolor = "& Array (" prata "," vermelho "," amarelo "," azul "," magenta "," Lightgreen ") (y) &"> <tr> <td> </td> </tr> </tabela ""
Próximo
Próximo
Final Selecione
Randomizar
Balley = 400
Dirbx = int (rnd ()*3) +1
Dirby = 0- (int (rnd ()*4) +1)
Final sub
Sub init
Dim x, y, k