Autor Tema: [Batch Game] Block Breaker (Arkanoid) - by SmartGenius  (Leído 185 veces)

SmartGenius

  • Moderador
  • Mensajes: 62
  • Corp. 2010
    • Ver Perfil
[Batch Game] Block Breaker (Arkanoid) - by SmartGenius
« : agosto 12, 2010, 12:09:08 pm »
[Batch Game] Block Breaker ( Arkanoid / BRIX) - by SmartGenius


Descargar: http://smart.code-makers.net/BatchGames/BlockBreakerv1BySmartgenius.zip

Creo que este juego ya lo conocen, es un clasico en el cual mueven una plataforma con una pelota y el objetivo es hacerla rebotar y que vaya agarrando puntos o bloques, la imagen lo dice todo :D

He hecho dos versiones, una en Batch usando CHOICE.COM y el sistema de coordenadas, y el otro es el mismo juego pero agregando el comando COLOUS para que el juego salga a color y sin parpadeos de pantalla.

Manejan la tabla con las teclas A (Izquierda) D (Derecha) W (Lanzar / Acelerar pelota ) y con X salen del juego.

Codigo version normal:
[code]@Echo off
@title BlockBreaker v 1
@mode con cols=28 lines=24

:: Batch Game - BlockBreaker v 1
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

If not exist "choice.com" (Goto :NoKey)

:Load
Call :Logo
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=1"
Set /a "RBound=%LimX%-1"
Set /a "BBound=%LimY%-3"
Set NLevels=1

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set X%%aY%%b= ))
Set Ball=O
Set Bound=


SmartGenius

  • Moderador
  • Mensajes: 62
  • Corp. 2010
    • Ver Perfil
[Batch Game] Block Breaker (Arkanoid) - by SmartGenius
« Respuesta #1 : agosto 12, 2010, 12:09:37 pm »

Y aqui el codigo de la version colorida del juego ;)

[code]@Echo off
@title BlockBreaker v 1
@mode con cols=28 lines=24

:: Batch Game - BlockBreaker v 1 Colored Version
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

If not exist "choice.com" (Goto :NoKey)

:Load
Call :Logo
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=1"
Set /a "RBound=%LimX%-1"
Set /a "BBound=%LimY%-3"
Set NLevels=1

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b=[0] "))
Set "Ball=[9]O"
Set "Bound=[5]$219"
Set "Line=[6]$219"
Set "Lost=[2]$176"
Set "Point=[12]*"

:Levels
Set /a L+=1
Call :Level%L%
Call :Graphic
Set P%L%=%Movs%
If "%LOS%"=="True" Goto :Lost
If "%WIN%"=="True" Goto :Win
If "%NXL%"=="True" Goto :End
If "%L%"=="%NLevels%" Goto :Win
ping -n 1 0.0.0.0 >nul
Goto :Init

:Graphic
Call :Clear
Cls
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Echo.
Echo.  BlockBreaker v 1 by Smart
Echo.
Echo.   Lives:%Lives%    Points:%Points%
Echo.   


[D-m-K]

  • Administrador
  • Mensajes: 229
  • [-.|.-]
    • MSN Messenger - d4rk.m0nk3y@hotmail.com
    • Ver Perfil
    • Red Informatica Colombiana
    • Email
Re: [Batch Game] Block Breaker (Arkanoid) - by SmartGenius
« Respuesta #2 : agosto 12, 2010, 11:00:35 pm »
:o este con el juego del buscaminas y el paint, es el code mas agresivo que he visto....
:: Todas las grandes cosas que se disfrutan son el producto de las pequeñas cosas que se logran ::

Phicar

  • :P
  • Administrador
  • Mensajes: 283
  • (1+sqrt(5))/2
    • MSN Messenger - diego_villahacker@hotmail.com
    • Ver Perfil
    • Phicar's Blog
    • Email
Re: [Batch Game] Block Breaker (Arkanoid) - by SmartGenius
« Respuesta #3 : agosto 13, 2010, 01:15:35 am »
Eres una sensacion...a nadie se le habia ocurrido esas proesas xDDD...
:)

my.opera.com/phicar

SmartGenius

  • Moderador
  • Mensajes: 62
  • Corp. 2010
    • Ver Perfil
Re: [Batch Game] Block Breaker (Arkanoid) - by SmartGenius
« Respuesta #4 : agosto 13, 2010, 02:04:21 pm »
El paint lo hicimos en equipo, lo demas si es creatividad mia ;)

Este juego lo tenia pensado desde hace mas de un a