HTANoid 用hta编写的一个经典的游戏

html xmlns:v="urn:schemas-microsoft-com:vml" XMLNS:t="urn:schemas-microsoft-com:time">
head>

HTA:APPLICATION
 APPLICATIONNAME="HTAnoid"
 BORDER="thick" | "dialog" | "none"  | "thin"
 BORDERSTYLE="normal" | "complex" | "raised"  | "static"  | "sunken"
 CAPTION="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"
 WINDOWSTATE="normal" | "maximize" | "minimize">

script language=vbscript>
Option explicit
Const C_ScreenW=400
Const C_NbX=12
Const C_NbY=10
Dim Terrain(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 Case UCase(Chr(Window.Event.keyCode))
 Case "P"
  Msgbox "pause"
  'Window.ClearTimeOut
 End Select
End Sub

Sub Document_onClick()
 Playing=True
 'document.title="click " window.event.button
End Sub

Sub Document_onMouseMove()
 RaqX=window.event.clientX-RaqW '.shiftKey .keyCode .ctrlKey .button .altKey
 If RaqX16 Then RaqX=16 'Mur gauche
 If RaqX+RaqW>BordDroit Then RaqX=BordDroit-RaqW
 Raquette.style.Left=RaqX
 If Not Playing Then
  BalleX=RaqX+RaqW/2
  Balle.Style.Left=BalleX
 End If
End Sub

Sub DrawLevel(n)
 Dim k,x,y
 set k=document.getElementById("Raquette")
 For y=0 To C_NbY
  For x=0 To C_NbX
   Terrain(y,x)=0 'Nb de coups restant à porter
  Next
 Next

 Select Case n
 Case 1
  'Bricks
  For y=0 To 5
   For x=0 To 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>"
   Next
  Next
 End Select
 Randomize
 BalleY=400
 DirBX=Int(Rnd()*3)+1
 DirBY=0-(Int(Rnd()*4)+1)
End Sub

Sub Init
 Dim x,y,k
 Window.MoveTo screen.Width/2-200,0
 Window.ReSizeTo C_ScreenW,484
 RaqW=Int(Replace(Raquette.style.width,"pc","")*1.6)

 'Lives Left
 set k=document.getElementById("Raquette")
 'CreateElement + insertAdjacentElement
 For x=0 To 2
  k.insertAdjacentHTML "beforeBegin","v:group style='position:absolute;top=430;left=" 16+x*30 _
    ";width:15pc;height:5pc;'>v:roundrect style='width:100;height:100;' fillcolor=red>v:fill type='gradient'/>/v:roundrect>" _
    "v:rect style='position:relative;left:10;top:2;width:80;height:90' strokecolor=black>v:fill type='gradient' color=#4682b4 focus=0.2 />/v:rect>/v:group>"
 Next

 DrawLevel 1
 Playing=False

 window.setTimeout "Gere",10
End Sub

Sub Gere
 If Playing Then
  'Déplacement de la balle
  If DirBX>0 Then
   If BalleX+DirBX>BordDroit-10 Then DirBX=0-DirBx
  Else
   If BalleX+DirBX16 Then DirBX=0-DirBx
  End If
  If DirBY>0 Then
   If BalleY+DirBY>400 Then DirBY=0-DirBY
  Else
   If BalleY+DirBY50 Then DirBY=0-DirBY
  End If
  BalleX=BalleX+DirBX
  BalleY=BalleY+DirBY
  Balle.Style.Left=BalleX
  Balle.Style.Top=BalleY
 Else
  document.title=Now
 End If
 window.setTimeout "Gere",10
End Sub
/script>
STYLE TYPE="text/css">
!--
 v\:* {behavior:url(#default#VML);}
 t\:* {behavior:url(#default#time2)}

BODY {
  font-family: "Verdana, Arial, Helvetica, sans-serif";
  background-color=#003159;
  color:#0000FF;
  font-size: 8pt;
 }
TABLE,TD {
  border:'0pix groove';
  cursor:W-resize;
 }
.score {
  color:white;
  font-size: 10pt;
 }
-->
/STYLE>

/head>
body topmargin=0 leftmargin=0 rightmargin=0 onload="vbscript:init">
!-- Panel de score -->
CENTER>font size=2 color=red>b>HIGH SCORE/b>/font>br>table cellspacing=0 width=100%>tr>td width=50% align=center>
div id=Score class=score>1234/div>/td>td>div id=HighScore class=score>123400/div>/td>/tr>/table>/CENTER>

!-- terrain -->
table width=100% height=420 cellspacing=0 cellpadding=0>
tr height=14>td colspan=3>
 v:rect style='width:100%;height:15'>
 v:fill type="gradient" color=white color2=darkgray focus=3.3 />
 /v:rect>
/td>/tr>
tr height=100%>td width=15>
 v:rect style='width:15;height:100%' strokecolor="#666666" strokeweight="2pt">
 v:stroke dashstyle="dashdot" />
 v:fill type="gradient" angle="-90" color2=white color=darkgray focus=3.3 />
 /v:rect>
 /td>

 td width=100%>

 v:oval id="balle" style='position:absolute;top=400;width:8;height:6' fillcolor=#009999 strokecolor=#0066FF id=boule>
 v:fill type=gradientradial color2=white focusposition=0.3,0.3  focussize=0.01,0.01 />
 /v:oval>

 v:group id=Raquette style='position:absolute;top=410;width:30pc;height:6pc;'>
 v:roundrect style='width:100;height:100;' fillcolor=red>
  v:fill type='gradient'/>/v:roundrect>
 v:rect style='position:relative;left:10;top:2;width:80;height:90' strokecolor=black>
  v:fill type='gradient' color=#4682b4 focus=0.2 />/v:rect>
 /v:group>

 /td>
 td  align=right>
 v:rect style='width:15;height:100%' strokecolor="#666666" strokeweight="2pt">
 v:stroke dashstyle="dashdot" />
 v:fill type="gradient" angle="-90" color2=white color=darkgray focus=3.3 />
 /v:rect>
 /td>/tr>
/table>

/body>
/html>