Invasion Espacial 2.0 en VBScript [VBS + HTA] 100% Notepad!

Iniciado por JohnConnor, 28 Mayo 2014, 05:49 AM

0 Miembros y 1 Visitante están viendo este tema.

JohnConnor

Buenas. Hoy aburrido tome una idea antigua en mi cabeza con los restos de un intento de juego y quedo esto:



No le puse sonido y es muy simple. tambien es un regalo para mi hermana menor.
les dejo el codido..

Código (vb) [Seleccionar]


<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>



Saludos