elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Invasion Espacial 2.0 en VBScript [VBS + HTA] 100% Notepad!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Invasion Espacial 2.0 en VBScript [VBS + HTA] 100% Notepad!  (Leído 2,009 veces)
JohnConnor

Desconectado Desconectado

Mensajes: 16


Cyberdine Systems


Ver Perfil WWW
Invasion Espacial 2.0 en VBScript [VBS + HTA] 100% Notepad!
« en: 28 Mayo 2014, 05:49 am »

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
  1.  
  2. <HTA:APPLICATION
  3. ID = "SI2"
  4. APPLICATIONNAME="SpaceInvaders2"
  5. BORDER = "Thin"
  6. CAPTION = "Yes"
  7. RESIZE = "No"
  8. ICON = "icono.ico"
  9. SHOWINTASKBAR = "Yes"
  10. SINGLEINSTANCE = "Yes"
  11. SYSMENU = "Yes"
  12. WINDOWSTATE = "Normal"
  13. SCROLL = "No"
  14. SCROLLFLAT = "No"
  15. VERSION = "1.0"
  16. INNERBORDER = "Yes"
  17. SELECTION = "No"
  18. MAXIMIZEBUTTON = "No"
  19. MINIMIZEBUTTON = "Yes"
  20. NAVIGABLE = "Yes"
  21. CONTEXTMENU = "Yes"
  22. BORDERSTYLE = "Normal"></HTA>
  23. <HTML>
  24.      <TITLE>Space Invaders 2.0</TITLE>
  25.  <HEAD>
  26.  </HEAD>
  27.  <BODY BackGround="fondo.png" TopMargin="0" LeftMargin="0">
  28.  <INPUT TYPE="Hidden" ID="TeclaA">
  29.  <INPUT TYPE="Hidden" ID="TeclaW">
  30.  <INPUT TYPE="Hidden" ID="TeclaD">
  31.  <INPUT TYPE="Hidden" ID="TeclaS">
  32.  <INPUT TYPE="Hidden" ID="TeclaEspacio">
  33.  <INPUT TYPE="Hidden" ID="TeclaEnter">
  34.  <INPUT TYPE="Hidden" ID="TeclaEsc">
  35.  <INPUT TYPE="Hidden" ID="EstadoJuego">
  36.  <INPUT TYPE="Hidden" ID="Disparo">
  37.  <DIV ID="Pantalla">PRESS ENTER</DIV>
  38.  <IMG ID="Jugador">
  39.  <IMG ID="OvniUno">
  40.  <IMG ID="OvniDos">
  41.  <IMG ID="OvniTres">
  42.  <IMG ID="OvniCuatro">
  43.  <IMG ID="OvniCinco">
  44.  <IMG ID="MisilUno">
  45.  </BODY>
  46. </HTML>
  47. <SCRIPT LANGUAGE="VBScript">
  48. Sub Window_OnLoad()
  49. REM Creado por JohnConnor
  50. REM Lobos, Buenos Aires - Argentina
  51. REM Martes 28 Mayo 2014
  52. REM CM | Code Makers NO MURIO!
  53. REM www.fb.me/John1Connor
  54. REM john1connor@facebook.com
  55. Self.ResizeTo 800,600
  56. Self.MoveTo ((Screen.Width - 800) / 2), ((Screen.Height - 600) / 2)
  57. Jugador.Src = "ju.png"
  58. Jugador.Style.Width = 50
  59. Jugador.Style.Height = 50
  60. Jugador.Style.Position = "Absolute"
  61. Jugador.Style.Top = 500
  62. Jugador.Style.Left = 750 / 2
  63. TeclaA.Value = "False"
  64. TeclaW.Value = "False"
  65. TeclaD.Value = "False"
  66. TeclaS.Value = "False"
  67. TeclaEspacio.Value = "False"
  68. TeclaEnter.Value = "False"
  69. TeclaEsc.Value = "False"
  70. Pantalla.Style.Position = "Absolute"
  71. Pantalla.Style.Width = 300
  72. Pantalla.Style.Height = 100
  73. Pantalla.Style.Top = 270
  74. Pantalla.Style.Left = 270
  75. Pantalla.Style.Color = "Lime"
  76. Pantalla.Style.FontSize = "30"
  77.  
  78. OvniUno.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
  79. OvniDos.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
  80. OvniTres.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
  81. OvniCuatro.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
  82. OvniCinco.Style.Top = Int((300 - 10 + (Random / 2)) * Rnd + 10)
  83.  
  84. OvniUno.Src = "ovni.gif"
  85. OvniDos.Src = "ovni.gif"
  86. OvniTres.Src = "ovni.gif"
  87. OvniCuatro.Src = "ovni.gif"
  88. OvniCinco.Src = "ovni.gif"
  89.  
  90. MisilUno.Style.Top = 999
  91. MisilUno.Style.Left = 900
  92. MisilUno.Style.Width = cInt(15)
  93. MisilUno.Style.Height = 40
  94. MisilUno.Src = "misil.gif"
  95. MisilUno.Style.zIndex = -2
  96.  
  97. OvniUno.Style.Width = 55
  98. OvniUno.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
  99. OvniDos.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
  100. OvniTres.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
  101. OvniCuatro.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
  102. OvniCinco.Style.Left = Int((100 - 10 + (Random / 2)) * Rnd + 10)
  103. OvniDos.Style.Width = 55
  104. OvniTres.Style.Width = 55
  105. OvniCuatro.Style.Width = 55
  106. OvniCinco.Style.Width = 55
  107. OvniUno.Style.Height = 33
  108. OvniDos.Style.Height = 33
  109. OvniTres.Style.Height = 33
  110. OvniCuatro.Style.Height = 33
  111. OvniCinco.Style.Height = 33
  112. OvniUno.Style.Position = "Absolute"
  113. OvniUno.Title = "Vivo"
  114. OvniDos.Title = "Vivo"
  115. OvniTres.Title = "Vivo"
  116. OvniCuatro.Title = "Vivo"
  117. OvniCinco.Title = "Vivo"
  118.  
  119. OvniDos.Style.Position = "Absolute"
  120. OvniTres.Style.Position = "Absolute"
  121. OvniCuatro.Style.Position = "Absolute"
  122. OvniCinco.Style.Position = "Absolute"
  123. MisilUno.Style.Position = "Absolute"
  124. Disparo.Value = "OFF"
  125.  
  126. EstadoJuego.Value = "NoIniciado"
  127. Tiempo = Window.SetInterval("Ciclo()",0) : ClearInterval Tiempo
  128. End Sub
  129.  
  130. Sub Document_OnKeyPress
  131. IF EstadoJuego.Value = "Iniciado" And Window.Event.KeyCode = "13"  Then
  132. ClearInterval Tiempo
  133. Pausar()
  134. End If
  135.  
  136. If Window.Event.KeyCode = "13" And EstadoJuego.Value = "NoIniciado" Then : Iniciar(): End If
  137. If Window.Event.KeyCode = "27" Then : TeclaEsc.Value = "True" : End If
  138. If Window.Event.KeyCode = "13" Then : TeclaEnter.Value = "True" : End If
  139. If Window.Event.KeyCode = "32" Then : TeclaEspacio.Value = "True" : End If
  140. If Window.Event.KeyCode = "119" Then : TeclaW.Value = "True" : End If
  141. If Window.Event.KeyCode = "115" Then : TeclaS.Value = "True" : End If
  142. If Window.Event.KeyCode = "97" Then : TeclaA.Value = "True" : End If
  143. If Window.Event.KeyCode = "100" Then : TeclaD.Value = "True" : End If
  144. End Sub
  145.  
  146. Sub Document_OnKeyUp
  147. If Window.Event.KeyCode = "27" Then : TeclaEsc.Value = "False" : End If
  148. If Window.Event.KeyCode = "13" Then : TeclaEnter.Value = "False" : End If
  149. If Window.Event.KeyCode = "32" Then : TeclaEspacio.Value = "False" : End If
  150. If Window.Event.KeyCode = "87" Then : TeclaW.Value = "False" : End If
  151. If Window.Event.KeyCode = "83" Then : TeclaS.Value = "False" :  End If
  152. If Window.Event.KeyCode = "65" Then : TeclaA.Value = "False" : End If
  153. If Window.Event.KeyCode = "68" Then : TeclaD.Value = "False" : End If
  154. End Sub
  155.  
  156. Sub Iniciar()
  157. EstadoJuego.Value = "Iniciado" : Tiempo = Window.SetInterval("Ciclo()",1) : Pantalla.InnerHTML = ""
  158. End Sub
  159. Sub Pausar()
  160. EstadoJuego.Value = "Pausado" : ClearInterval Tiempo : Pantalla.InnerHTML = "Paused"
  161. End Sub
  162.  
  163. Sub Ciclo()
  164. If EstadoJuego.Value = "NoIniciado" Then : Msgbox "Error de ejecución" & Chr(13) & "FATAL RUN",16,"ERROR" : Self.Close : End If
  165. If EstadoJuego.Value = "Perdido" Then : Exit Sub : End If
  166. If TeclaW.Value = "True" Then : Call MoverV("-2") : End If
  167. If TeclaS.Value = "True" Then : Call MoverV("+2") : End If
  168. If TeclaA.Value = "True" Then : Call MoverH("-2") : End If
  169. If TeclaD.Value = "True" Then : Call MoverH("+2") : End If
  170. If TeclaEspacio.Value = "True" Then : Call Disparar() : End If
  171. If Disparo.Value = "ON" Then : MisilUno.Style.Top = Limpiar(MisilUno.Style.Top) - (cInt(2)) : End If
  172. If Limpiar(MisilUno.Style.Top) < (0) Then : Disparo.Value = "OFF" : MisilUno.Style.Top = cInt(900) : END IF
  173.  
  174.  
  175. 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
  176. 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
  177. 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
  178. 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
  179. 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
  180.  
  181. 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
  182. OvniUno.Src = "explocion.gif" : OvniUno.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniUno()",1000)
  183. End If
  184. 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
  185. OvniDos.Src = "explocion.gif" : OvniDos.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniDos()",1000)
  186. End If
  187. 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
  188. OvniTres.Src = "explocion.gif" : OvniTres.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniTres()",1000)
  189. End If
  190. 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
  191. OvniCuatro.Src = "explocion.gif" : OvniCuatro.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniCuatro()",1000)
  192. End If
  193. 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
  194. OvniCinco.Src = "explocion.gif" : OvniCinco.Title = "Muerto" : Call RestaurarMisil() : TimeOff = Window.SetTimeOut("ChauOvniCinco()",1000)
  195. End If
  196.  
  197. If OvniUno.Title = "Muerto" And OvniDos.Title = "Muerto" And OvniTres.Title = "Muerto" And OvniCuatro.Title = "Muerto" And OvniCinco.Title = "Muerto" Then
  198. Pantalla.InnerHTML = "GANASTE!"
  199. End If
  200.  
  201. Call IA()
  202. End Sub
  203.  
  204. Sub ChauOvniUno()
  205. OvniUno.Style.Top = 9999
  206. End Sub
  207. Sub ChauOvniDos()
  208. OvniDos.Style.Top = 9999
  209. End Sub
  210. Sub ChauOvniTres()
  211. OvniTres.Style.Top = 9999
  212. End Sub
  213. Sub ChauOvniCuatro()
  214. OvniCuatro.Style.Top = 9999
  215. End Sub
  216. Sub ChauOvniCinco()
  217. OvniCinco.Style.Top = 9999
  218. End Sub
  219.  
  220.  
  221. Sub Perdida()
  222. Jugador.Src = "vacio.png"
  223. End Sub
  224. Sub Perdiste
  225. EstadoJuego.Value = "Perdido" : Jugador.Src = "explocion.gif" : TimeOff = Window.SetTimeOut("Perdida()",1000) : Pantalla.InnerHtml = "GAME OVER! <br> Powered By JohnConnor"
  226. End Sub
  227.  
  228.  
  229. Sub RestaurarMisil()
  230. Disparo.Value = "OFF" : MisilUno.Style.Top = 999
  231. End Sub
  232.  
  233.  
  234. Sub MoverV(nro)
  235. Jugador.Style.Top = cInt(Limpiar(Jugador.Style.Top)) + cInt(nro)
  236. End Sub
  237. Sub MoverH(nro)
  238. Jugador.Style.Left = cInt(Limpiar(Jugador.Style.Left)) + cInt(nro)
  239. End Sub
  240.  
  241. Sub Disparar()
  242. If Disparo.Value = "OFF" Or Limpiar(MisilUno.Style.Top) < (-30) Then
  243. MisilUno.Style.Top = Jugador.Style.Top : MisilUno.Style.Left = Limpiar(Jugador.Style.Left) + 15
  244. Disparo.Value = "ON"
  245. End If
  246. End Sub
  247.  
  248.  
  249. Sub IA()
  250. If OvniUno.Title = "Vivo" Then
  251. If Limpiar(OvniUno.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniUno.Style.Top = Limpiar(OvniUno.Style.Top) - cInt(1) : End If
  252. If Limpiar(OvniUno.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniUno.Style.Top = Limpiar(OvniUno.Style.Top) + cInt(1) : End If
  253. If Limpiar(OvniUno.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniUno.Style.Left = (Limpiar(OvniUno.Style.Left) + cInt(1)) : End If
  254. If Limpiar(OvniUno.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniUno.Style.Left = (Limpiar(OvniUno.Style.Left) - cInt(1)) : End If
  255. End If
  256.  
  257. If OvniDos.Title = "Vivo" Then
  258. If Limpiar(OvniDos.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniDos.Style.Top = Limpiar(OvniDos.Style.Top) - cInt(1) : End If
  259. If Limpiar(OvniDos.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniDos.Style.Top = Limpiar(OvniDos.Style.Top) + cInt(1) : End If
  260. If Limpiar(OvniDos.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniDos.Style.Left = (Limpiar(OvniDos.Style.Left) + cInt(1)) : End If
  261. If Limpiar(OvniDos.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniDos.Style.Left = (Limpiar(OvniDos.Style.Left) - cInt(1)) : End If
  262. End If
  263.  
  264. If OvniTres.Title = "Vivo" Then
  265. If Limpiar(OvniTres.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniTres.Style.Top = Limpiar(OvniTres.Style.Top) - cInt(1) : End If
  266. If Limpiar(OvniTres.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniTres.Style.Top = Limpiar(OvniTres.Style.Top) + cInt(1) : End If
  267. If Limpiar(OvniTres.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniTres.Style.Left = (Limpiar(OvniTres.Style.Left) + cInt(1)) : End If
  268. If Limpiar(OvniTres.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniTres.Style.Left = (Limpiar(OvniTres.Style.Left) - cInt(1)) : End If
  269. End If
  270.  
  271. If OvniCuatro.Title = "Vivo" Then
  272. If Limpiar(OvniCuatro.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniCuatro.Style.Top = Limpiar(OvniCuatro.Style.Top) - cInt(1) : End If
  273. If Limpiar(OvniCuatro.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniCuatro.Style.Top = Limpiar(OvniCuatro.Style.Top) + cInt(1) : End If
  274. If Limpiar(OvniCuatro.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniCuatro.Style.Left = (Limpiar(OvniCuatro.Style.Left) + cInt(1)) : End If
  275. If Limpiar(OvniCuatro.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniCuatro.Style.Left = (Limpiar(OvniCuatro.Style.Left) - cInt(1)) : End If
  276. ENd If
  277.  
  278. If OvniCinco.Title = "Vivo" Then
  279. If Limpiar(OvniCinco.Style.Top) >= Limpiar(Jugador.Style.Top) Then : OvniCinco.Style.Top = Limpiar(OvniCinco.Style.Top) - cInt(1) : End If
  280. If Limpiar(OvniCinco.Style.Top) =< Limpiar(Jugador.Style.Top) Then : OvniCinco.Style.Top = Limpiar(OvniCinco.Style.Top) + cInt(1) : End If
  281. If Limpiar(OvniCinco.Style.Left) =< Limpiar(Jugador.Style.Left) Then : OvniCinco.Style.Left = (Limpiar(OvniCinco.Style.Left) + cInt(1)) : End If
  282. If Limpiar(OvniCinco.Style.Left) >= Limpiar(Jugador.Style.Left) Then : OvniCinco.Style.Left = (Limpiar(OvniCinco.Style.Left) - cInt(1)) : End If
  283. End If
  284.  
  285. End Sub
  286.  
  287.  
  288. Function Limpiar(Objeto)
  289. Limpiar = Replace(Objeto,"px","")
  290. End Function
  291.  
  292. Function Coliciones(PosXUno, AnchoUno, PosYUno, LargoUno,PosXDos, LargoDos, PosYDos, AnchoDos)
  293. 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
  294. Coliciones = "True"
  295. Else
  296. Coliciones = "False"
  297. End If
  298. End Function
  299.  
  300. Function Random()
  301. RandomA = Replace(Time,":","")
  302. RandomB = Replace(RandomA,".","")
  303. RandomC = Replace(RandomB,"pm","")
  304. RandomD = Replace(RandomC,"am","")
  305. Random = Mid(RandomD,4)
  306. End Function
  307.  
  308.  
  309. </SCRIPT>
  310.  


Saludos


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines