Ce jeu n'est pas terminé. Le but était simplement de vous montrer que vous pouvez faire des choses graphiques sans avoir à utiliser des images externes.
Si vous souhaitez développer ce jeu, veuillez soumettre vos mises à jour.
Nom du fichier: htanoid.hta
Exigence: c'est-à-dire 6?
Auteur: Jean-Luc Antoine
Soumis: 17/05/2002
Catégorie: Autre
:
:
代码如下:
<html xmlns: v = "urn: schémas-microsoft-com: vml" xmlns: t = "urn: schémas-microsoft-com: time">
<adal>
<HTA: application
ApplicationName = "htanoid"
Border = "épais" | "Dialog" | "Aucun" | "mince"
Borderstyle = "normal" | "complexe" | "surélevé" | "statique" | "creux"
Légende = "oui" contextMenu = "Oui"
Id = "ohta" alert (ohta.applicationName);
Innerborder = "oui" maximiserbutton = "oui" minimiserbutton = "Oui"
Navigable = "no" scroll = "no" scrollflat = "non"
Sélection = "oui" showintaskbar = "oui" singleinstance = "non"
Sysmenu = "oui" version = "0,5"
Fenêtre = "normal" | "Maximiser" | "minimiser">
<Script Language = VBScript>
Option explicite
Const c_screenw = 400
Const c_nbx = 12
Const c_nby = 10
Terrain Dim (10,12)
Dim Raqx, Raqw, Playing, Ballex, Balley
Dim dirbx, dirby'direction Balle x, y
Borddoit sombre
Borddroit = c_screenw-32
Sub document_onkeypress ()
Sélectionnez Case UCase (Chr (Window.Event.KeyCode))
Cas "p"
Msgbox "pause"
'Window.cleartimeout
Fin de sélection
Sub-Sub
Sub document_onclick ()
Jouer = vrai
'document.title = "click" & window.event.button
Sub-Sub
Sous-document_onmousmove ()
Raqx = window.event.clientx-raqw'.shiftkey .KeyCode .Ctrlkey .Button .altkey
Si raqx <16 alors raqx = 16'mur Gauche
Si raqx + raqw> borddroit alors raqx = borddroit-raqw
Raaquette.style.left = raqx
Si je ne joue pas alors
Ballex = raqx + raqw / 2
Balle.style.left = Ballex
Terminer si
Sub-Sub
Sub-Drawlevel (n)
Dim k, x, y
set k = document.getElementByid ("raaque")
Pour y = 0 à c_nby
Pour x = 0 à c_nbx
Terrain (y, x) = 0'nb de coups restant à Porter
Suivant
Suivant
Sélectionnez le cas N
Cas 1
'Bricks
Pour y = 0 à 5
Pour x = 0 à c_nbx
k.insertadjacenthtml "avantbegin", "<table style = 'position: absolu; top =" & 102 + 14 * y & "; Left =" & 16 + 27 * x _
& "; largeur = 25; hauteur = 10; ' bgcolor = "& array (" Silver "," Red "," Yellow "," Blue "," Magenta "," LightGreen ") (Y) &"> <tr> <Td> </td> </tr> </lobe> "
Suivant
Suivant
Fin de sélection
Randomiser
Balley = 400
Dirbx = int (rnd () * 3) +1
Dirby = 0- (int (rnd () * 4) +1)
Sub-Sub
Subit
Dim x, y, k