<HTA:APPLICATION
ID = "SI2"
APPLICATIONNAME="SpaceInvaders2"
BORDER = "Thin"
CAPTION = "Yes"
RESIZE = "No"
ICON = "icono.ico"
SHOWINTASKBAR = "Yes"
SINGLEINSTANCE = "Yes"
SYSMENU = "Yes"
WINDOWSTATE = "Normal"
SCROLL = "No"
SCROLLFLAT = "No"
VERSION = "1.0"
INNERBORDER = "Yes"
SELECTION = "No"
MAXIMIZEBUTTON = "No"
MINIMIZEBUTTON = "Yes"
NAVIGABLE = "Yes"
CONTEXTMENU = "Yes"
BORDERSTYLE = "Normal"></HTA>
<HTML>
<TITLE>Space Invaders 2.0</TITLE>
<HEAD>
</HEAD>
<BODY BackGround="fondo.png" TopMargin="0" LeftMargin="0">
<INPUT TYPE="Hidden" ID="TeclaA">
<INPUT TYPE="Hidden" ID="TeclaW">
<INPUT TYPE="Hidden" ID="TeclaD">
<INPUT TYPE="Hidden" ID="TeclaS">
<INPUT TYPE="Hidden" ID="TeclaEspacio">
<INPUT TYPE="Hidden" ID="TeclaEnter">
<INPUT TYPE="Hidden" ID="TeclaEsc">
<INPUT TYPE="Hidden" ID="EstadoJuego">
<INPUT TYPE="Hidden" ID="Disparo">
<DIV ID="Pantalla">PRESS ENTER</DIV>
<IMG ID="Jugador">
<IMG ID="OvniUno">
<IMG ID="OvniDos">
<IMG ID="OvniTres">
<IMG ID="OvniCuatro">
<IMG ID="OvniCinco">
<IMG ID="MisilUno">
</BODY>
</HTML>
<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad()
REM Creado por JohnConnor
REM Lobos, Buenos Aires - Argentina
REM Martes 28 Mayo 2014
REM CM | Code Makers NO MURIO!
REM www.fb.me/John1Connor
REM john1connor@facebook.com
Self.ResizeTo 800,600
Self.MoveTo ((Screen.Width - 800) / 2), ((Screen.Height - 600) / 2)
Jugador.Src = "ju.png"
Jugador.Style.Width = 50
Jugador.Style.Height = 50
Jugador.Style.Position = "Absolute"
Jugador.Style.Top = 500
Jugador.Style.Left = 750 / 2
TeclaA.Value = "False"
TeclaW.Value = "False"
TeclaD.Value = "False"
TeclaS.Value = "False"
TeclaEspacio.Value = "False"
TeclaEnter.Value = "False"
TeclaEsc.Value = "False"
Pantalla.Style.Position = "Absolute"
Pantalla.Style.Width = 300
Pantalla.Style.Height = 100
Pantalla.Style.Top = 270
Pantalla.Style.Left = 270
Pantalla.Style.Color = "Lime"
Pantalla.Style.FontSize = "30"
OvniUno.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
OvniDos.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
OvniTres.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
OvniCuatro.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
OvniCinco.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
OvniUno.Src = "ovni.gif"
OvniDos.Src = "ovni.gif"
OvniTres.Src = "ovni.gif"
OvniCuatro.Src = "ovni.gif"
OvniCinco.Src = "ovni.gif"
MisilUno.Style.Top = 999
MisilUno.Style.Left = 900
MisilUno.Style.Width = cInt(15)
MisilUno.Style.Height = 40
MisilUno.Src = "misil.gif"
MisilUno.Style.zIndex = -2
OvniUno.Style.Width = 55
OvniUno.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
OvniDos.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
OvniTres.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
OvniCuatro.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
OvniCinco.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
OvniDos.Style.Width = 55
OvniTres.Style.Width = 55
OvniCuatro.Style.Width = 55
OvniCinco.Style.Width = 55
OvniUno.Style.Height = 33
OvniDos.Style.Height = 33
OvniTres.Style.Height = 33
OvniCuatro.Style.Height = 33
OvniCinco.Style.Height = 33
OvniUno.Style.Position = "Absolute"
OvniUno.Title = "Vivo"
OvniDos.Title = "Vivo"
OvniTres.Title = "Vivo"
OvniCuatro.Title = "Vivo"
OvniCinco.Title = "Vivo"
OvniDos.Style.Position = "Absolute"
OvniTres.Style.Position = "Absolute"
OvniCuatro.Style.Position = "Absolute"
OvniCinco.Style.Position = "Absolute"
MisilUno.Style.Position = "Absolute"
Disparo.Value = "OFF"
EstadoJuego.Value = "NoIniciado"
Tiempo = Window.SetInterval("Ciclo()",0) : ClearInterval Tiempo
End Sub
Sub Document_OnKeyPress
IF EstadoJuego.Value = "Iniciado" And Window.Event.KeyCode = "13" Then
ClearInterval Tiempo
Pausar()
End If
If Window.Event.KeyCode = "13" And EstadoJuego.Value = "NoIniciado" Then : Iniciar(): End If
If Window.Event.KeyCode = "27" Then : TeclaEsc.Value = "True" : End If
If Window.Event.KeyCode = "13" Then : TeclaEnter.Value = "True" : End If
If Window.Event.KeyCode = "32" Then : TeclaEspacio.Value = "True" : End If
If Window.Event.KeyCode = "119" Then : TeclaW.Value = "True" : End If
If Window.Event.KeyCode = "115" Then : TeclaS.Value = "True" : End If
If Window.Event.KeyCode = "97" Then : TeclaA.Value = "True" : End If
If Window.Event.KeyCode = "100" Then : TeclaD.Value = "True" : End If
End Sub
Sub Document_OnKeyUp
If Window.Event.KeyCode = "27" Then : TeclaEsc.Value = "False" : End If
If Window.Event.KeyCode = "13" Then : TeclaEnter.Value = "False" : End If
If Window.Event.KeyCode = "32" Then : TeclaEspacio.Value = "False" : End If
If Window.Event.KeyCode = "87" Then : TeclaW.Value = "False" : End If
If Window.Event.KeyCode = "83" Then : TeclaS.Value = "False" : End If
If Window.Event.KeyCode = "65" Then : TeclaA.Value = "False" : End If
If Window.Event.KeyCode = "68" Then : TeclaD.Value = "False" : End If
End Sub
Sub Iniciar()
EstadoJuego.Value = "Iniciado" : Tiempo = Window.SetInterval("Ciclo()",1) : Pantalla.InnerHTML = ""
End Sub
Sub Pausar()
EstadoJuego.Value = "Pausado" : ClearInterval Tiempo : Pantalla.InnerHTML = "Paused"
End Sub
Sub Ciclo()
If EstadoJuego.Value = "NoIniciado" Then : Msgbox "Error de ejecución" & Chr(13) & "FATAL RUN",16,"ERROR" : Self.Close : End If
If EstadoJuego.Value = "Perdido" Then : Exit Sub : End If
If TeclaW.Value = "True" Then : Call MoverV("-2") : End If
If TeclaS.Value = "True" Then : Call MoverV("+2") : End If
If TeclaA.Value = "True" Then : Call MoverH("-2") : End If
If TeclaD.Value = "True" Then : Call MoverH("+2") : End If
If TeclaEspacio.Value = "True" Then : Call Disparar() : End If
If Disparo.Value = "ON" Then : MisilUno.Style.Top = Limpiar(MisilUno.Style.Top) - (cInt(2)) : End If
If Limpiar(MisilUno.Style.Top) < (0) Then : Disparo.Value = "OFF" : MisilUno.Style.Top = cInt(900) : END IF
If OvniUno.Title = "Vivo" And Coliciones(Limpiar(Jugador.Style.Left), Limpiar(Jugador.Style.WIdth) - 10, Limpiar(Jugador.Style.Top), Limpiar(Jugador.Style.Height) - 10,Limpiar(OvniUno.Style.Left), Limpiar(OvniUno.Style.Height) - 10, Limpiar(OvniUno.Style.Top), Limpiar(OvniUno.Style.WIdth) - 10) = "True" Then : Call Perdiste() : End If
If OvniDos.Title = "Vivo" And Coliciones(Limpiar(Jugador.Style.Left), Limpiar(Jugador.Style.WIdth) - 10, Limpiar(Jugador.Style.Top), Limpiar(Jugador.Style.Height) - 10,Limpiar(OvniDos.Style.Left), Limpiar(OvniDos.Style.Height) - 10, Limpiar(OvniDos.Style.Top), Limpiar(OvniDos.Style.WIdth) - 10) = "True" Then : Call Perdiste() : End If
If OvniTres.Title = "Vivo" And Coliciones(Limpiar(Jugador.Style.Left), Limpiar(Jugador.Style.WIdth) - 10, Limpiar(Jugador.Style.Top), Limpiar(Jugador.Style.Height) - 10,Limpiar(OvniTres.Style.Left), Limpiar(OvniTres.Style.Height) - 10, Limpiar(OvniTres.Style.Top), Limpiar(OvniTres.Style.WIdth) - 10) = "True" Then : Call Perdiste() : End If
If OvniCuatro.Title = "Vivo" And Coliciones(Limpiar(Jugador.Style.Left), Limpiar(Jugador.Style.WIdth) - 10, Limpiar(Jugador.Style.Top), Limpiar(Jugador.Style.Height) - 10,Limpiar(OvniCuatro.Style.Left), Limpiar(OvniCuatro.Style.Height) - 10, Limpiar(OvniCuatro.Style.Top), Limpiar(OvniCuatro.Style.WIdth) - 10) = "True" Then : Call Perdiste() : End If
If OvniCinco.Title = "Vivo" And Coliciones(Limpiar(Jugador.Style.Left), Limpiar(Jugador.Style.WIdth) - 10, Limpiar(Jugador.Style.Top), Limpiar(Jugador.Style.Height) - 10,Limpiar(OvniCinco.Style.Left), Limpiar(OvniCinco.Style.Height) - 10, Limpiar(OvniCinco.Style.Top), Limpiar(OvniCinco.Style.WIdth) - 10) = "True" Then : Call Perdiste() : End If
If Coliciones(Limpiar(MisilUno.Style.Left), Limpiar(MisilUno.Style.Width) , Limpiar(MisilUno.Style.Top), Limpiar(MisilUno.Style.Height), Limpiar(OvniUno.Style.Left), Limpiar(OvniUno.Style.Height), Limpiar(OvniUno.Style.Top), Limpiar(OvniUno.Style.Width)) = "True" Then
OvniUno.Src = "explocion.gif" : OvniUno.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniUno()",1000)
End If
If Coliciones(Limpiar(MisilUno.Style.Left), Limpiar(MisilUno.Style.Width) , Limpiar(MisilUno.Style.Top), Limpiar(MisilUno.Style.Height), Limpiar(OvniDos.Style.Left), Limpiar(OvniDos.Style.Height), Limpiar(OvniDos.Style.Top), Limpiar(OvniDos.Style.Width)) = "True" Then
OvniDos.Src = "explocion.gif" : OvniDos.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniDos()",1000)
End If
If Coliciones(Limpiar(MisilUno.Style.Left), Limpiar(MisilUno.Style.Width) , Limpiar(MisilUno.Style.Top), Limpiar(MisilUno.Style.Height), Limpiar(OvniTres.Style.Left), Limpiar(OvniTres.Style.Height), Limpiar(OvniTres.Style.Top), Limpiar(OvniTres.Style.Width)) = "True" Then
OvniTres.Src = "explocion.gif" : OvniTres.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniTres()",1000)
End If
If Coliciones(Limpiar(MisilUno.Style.Left), Limpiar(MisilUno.Style.Width) , Limpiar(MisilUno.Style.Top), Limpiar(MisilUno.Style.Height), Limpiar(OvniCuatro.Style.Left), Limpiar(OvniCuatro.Style.Height), Limpiar(OvniCuatro.Style.Top), Limpiar(OvniCuatro.Style.Width)) = "True" Then
OvniCuatro.Src = "explocion.gif" : OvniCuatro.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniCuatro()",1000)
End If
If Coliciones(Limpiar(MisilUno.Style.Left), Limpiar(MisilUno.Style.Width) , Limpiar(MisilUno.Style.Top), Limpiar(MisilUno.Style.Height), Limpiar(OvniCinco.Style.Left), Limpiar(OvniCinco.Style.Height), Limpiar(OvniCinco.Style.Top), Limpiar(OvniCinco.Style.Width)) = "True" Then
OvniCinco.Src = "explocion.gif" : OvniCinco.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniCinco()",1000)
End If
If OvniUno.Title = "Muerto" And OvniDos.Title = "Muerto" And OvniTres.Title = "Muerto" And OvniCuatro.Title = "Muerto" And OvniCinco.Title = "Muerto" Then
Pantalla.InnerHTML = "GANASTE!"
End If
Call IA()
End Sub
Sub ChauOvniUno()
OvniUno.Style.Top = 9999
End Sub
Sub ChauOvniDos()
OvniDos.Style.Top = 9999
End Sub
Sub ChauOvniTres()
OvniTres.Style.Top = 9999
End Sub
Sub ChauOvniCuatro()
OvniCuatro.Style.Top = 9999
End Sub
Sub ChauOvniCinco()
OvniCinco.Style.Top = 9999
End Sub
Sub Perdida()
Jugador.Src = "vacio.png"
End Sub
Sub Perdiste
EstadoJuego.Value = "Perdido" : Jugador.Src = "explocion.gif" : TimeOff = Window.SetTimeOut("Perdida()",1000) : Pantalla.InnerHtml = "GAME OVER! <br> Powered By JohnConnor"
End Sub
Sub RestaurarMisil()
Disparo.Value = "OFF" : MisilUno.Style.Top = 999
End Sub
Sub MoverV(nro)
Jugador.Style.Top = cInt(Limpiar(Jugador.Style.Top)) + cInt(nro)
End Sub
Sub MoverH(nro)
Jugador.Style.Left = cInt(Limpiar(Jugador.Style.Left)) + cInt(nro)
End Sub
Sub Disparar()
If Disparo.Value = "OFF" Or Limpiar(MisilUno.Style.Top) < (-30) Then
MisilUno.Style.Top = Jugador.Style.Top : MisilUno.Style.Left = Limpiar(Jugador.Style.Left) + 15
Disparo.Value = "ON"
End If
End Sub
Sub IA()
If OvniUno.Title = "Vivo" Then
If Limpiar(OvniUno.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniUno.Style.Top = Limpiar(OvniUno.Style.Top) - cInt(1) : End If
If Limpiar(OvniUno.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniUno.Style.Top = Limpiar(OvniUno.Style.Top) + cInt(1) : End If
If Limpiar(OvniUno.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniUno.Style.Left = (Limpiar(OvniUno.Style.Left) + cInt(1)) : End If
If Limpiar(OvniUno.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniUno.Style.Left = (Limpiar(OvniUno.Style.Left) - cInt(1)) : End If
End If
If OvniDos.Title = "Vivo" Then
If Limpiar(OvniDos.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniDos.Style.Top = Limpiar(OvniDos.Style.Top) - cInt(1) : End If
If Limpiar(OvniDos.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniDos.Style.Top = Limpiar(OvniDos.Style.Top) + cInt(1) : End If
If Limpiar(OvniDos.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniDos.Style.Left = (Limpiar(OvniDos.Style.Left) + cInt(1)) : End If
If Limpiar(OvniDos.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniDos.Style.Left = (Limpiar(OvniDos.Style.Left) - cInt(1)) : End If
End If
If OvniTres.Title = "Vivo" Then
If Limpiar(OvniTres.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniTres.Style.Top = Limpiar(OvniTres.Style.Top) - cInt(1) : End If
If Limpiar(OvniTres.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniTres.Style.Top = Limpiar(OvniTres.Style.Top) + cInt(1) : End If
If Limpiar(OvniTres.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniTres.Style.Left = (Limpiar(OvniTres.Style.Left) + cInt(1)) : End If
If Limpiar(OvniTres.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniTres.Style.Left = (Limpiar(OvniTres.Style.Left) - cInt(1)) : End If
End If
If OvniCuatro.Title = "Vivo" Then
If Limpiar(OvniCuatro.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniCuatro.Style.Top = Limpiar(OvniCuatro.Style.Top) - cInt(1) : End If
If Limpiar(OvniCuatro.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniCuatro.Style.Top = Limpiar(OvniCuatro.Style.Top) + cInt(1) : End If
If Limpiar(OvniCuatro.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniCuatro.Style.Left = (Limpiar(OvniCuatro.Style.Left) + cInt(1)) : End If
If Limpiar(OvniCuatro.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniCuatro.Style.Left = (Limpiar(OvniCuatro.Style.Left) - cInt(1)) : End If
ENd If
If OvniCinco.Title = "Vivo" Then
If Limpiar(OvniCinco.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniCinco.Style.Top = Limpiar(OvniCinco.Style.Top) - cInt(1) : End If
If Limpiar(OvniCinco.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniCinco.Style.Top = Limpiar(OvniCinco.Style.Top) + cInt(1) : End If
If Limpiar(OvniCinco.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniCinco.Style.Left = (Limpiar(OvniCinco.Style.Left) + cInt(1)) : End If
If Limpiar(OvniCinco.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniCinco.Style.Left = (Limpiar(OvniCinco.Style.Left) - cInt(1)) : End If
End If
End Sub
Function Limpiar(Objeto)
Limpiar = Replace(Objeto,"px","")
End Function
Function Coliciones(PosXUno, AnchoUno, PosYUno, LargoUno,PosXDos, LargoDos, PosYDos, AnchoDos)
If (CInt(PosXUno) + CInt(AnchoUno)) >= (CInt(PosXDos)) And (CInt(PosXUno)) < (CInt(PosXDos) + CInt(AnchoDos)) And (CInt(PosYUno) + CInt(LargoUno)) > (CInt(PosYDos)) And (CInt(PosYUno)) < (CInt(PosYDos) + CInt(AnchoDos)) Then
Coliciones = "True"
Else
Coliciones = "False"
End If
End Function
Function Random()
RandomA = Replace(Time,":","")
RandomB = Replace(RandomA,".","")
RandomC = Replace(RandomB,"pm","")
RandomD = Replace(RandomC,"am","")
Random = Mid(RandomD,4)
End Function
</SCRIPT>