Alguien por ahi me dijo que no se podia jugar en batch.... :rolleyes: :rolleyes:
Pues para esos que hablan mal de Batch...aqui tienen algo xD
Se trata de un Juego simple que creo que ya todos conocen: Snake....
Aunque por ahora no crece ni se alimenta, pero se mueve sola y se choca con las paredes.... ;D ;D
Esto es lo que llevo:
v1.REM A Game like the Snake
REM Coded by :: SmartGenius ::
color 0a
mode
con cols=15 lines=16
:ini
:main
cls
echo  ÚÄÄÄÄÄÄÄÄÄÄ¿
echo  ³%p10%%p11%%p12%%p13%%p14%%p15%%p16%%p17%%p18%%p19%³
echo  ³%p20%%p21%%p22%%p23%%p24%%p25%%p26%%p27%%p28%%p29%³
echo  ³%p30%%p31%%p32%%p33%%p34%%p35%%p36%%p37%%p38%%p39%³
echo  ³%p40%%p41%%p42%%p43%%p44%%p45%%p46%%p47%%p48%%p49%³
echo  ³%p50%%p51%%p52%%p53%%p54%%p55%%p56%%p57%%p58%%p59%³
echo  ³%p60%%p61%%p62%%p63%%p64%%p65%%p66%%p67%%p68%%p69%³
echo  ³%p70%%p71%%p72%%p73%%p74%%p75%%p76%%p77%%p78%%p79%³
echo  ³%p80%%p81%%p82%%p83%%p84%%p85%%p86%%p87%%p88%%p89%³
echo  ³%p90%%p91%%p92%%p93%%p94%%p95%%p96%%p97%%p98%%p99%³
echo  ³%p100%%p101%%p102%%p103%%p104%%p105%%p106%%p107%%p108%%p109%³
echo  ÀÄÄÄÄÄÄÄÄÄÄÙ
:w
choice /c:wasdx /n /s /t:w,1
:a
choice /c:wasdx /n /s /t:a,1
:s
choice /c:wasdx /n /s /t:s,1
:d
choice /c:wasdx /n /s /t:d,1
:down
if %oldpos:~-2,1%==0
(goto :
out) set /a newpos=
%newpos:~-2%+10
:up
if %oldpos:~-1,1%==1
(goto :
out) set /a newpos=
%newpos:~-2%-10
:rigth
if %oldpos:~-1%==9
(goto :
out) set /a newpos=
%newpos:~-2%+1
:left
if %oldpos:~-1%==0
(goto :
out) set /a newpos=
%newpos:~-2%-1
:out
cls
echo   SmartGenius
echo   Corp. 2008
:echodyn
:dyn2
if "
%var1%"=="
%texto%"
set num=0
cls
echo    %var1%
ping -n 0,3 0.0.0.0
> nul
Necesitan del comando CHOICE para que funcione... si no lo tienen pues en internet se consigue facilito... ;D
Algo que se me olvidaba, aunque creo que ya lo habian deducido es los Controles...
W = Arriba
A = Izquierda
S = Abajo
D = Derecha
X = Salir
Un segundo Codigo del Mismo, pero esta vez no se mueve en Reversa ni acelera...
REM A Game like the Snake
REM Coded by :: SmartGenius ::
color 0a
mode
con cols=15 lines=16
:ini
:main
cls
echo  ÚÄÄÄÄÄÄÄÄÄÄ¿
echo  ³%p10%%p11%%p12%%p13%%p14%%p15%%p16%%p17%%p18%%p19%³
echo  ³%p20%%p21%%p22%%p23%%p24%%p25%%p26%%p27%%p28%%p29%³
echo  ³%p30%%p31%%p32%%p33%%p34%%p35%%p36%%p37%%p38%%p39%³
echo  ³%p40%%p41%%p42%%p43%%p44%%p45%%p46%%p47%%p48%%p49%³
echo  ³%p50%%p51%%p52%%p53%%p54%%p55%%p56%%p57%%p58%%p59%³
echo  ³%p60%%p61%%p62%%p63%%p64%%p65%%p66%%p67%%p68%%p69%³
echo  ³%p70%%p71%%p72%%p73%%p74%%p75%%p76%%p77%%p78%%p79%³
echo  ³%p80%%p81%%p82%%p83%%p84%%p85%%p86%%p87%%p88%%p89%³
echo  ³%p90%%p91%%p92%%p93%%p94%%p95%%p96%%p97%%p98%%p99%³
echo  ³%p100%%p101%%p102%%p103%%p104%%p105%%p106%%p107%%p108%%p109%³
echo  ÀÄÄÄÄÄÄÄÄÄÄÙ
:w
choice /c:adxf /n /s /t:f,1
:a
choice /c:wsxf /n /s /t:f,1
:s
choice /c:adxf /n /s /t:f,1
:d
choice /c:wsxf /n /s /t:f,1
:down
if %oldpos:~-2,1%==0
(goto :
out) set /a newpos=
%newpos:~-2%+10
:up
if %oldpos:~-1,1%==1
(goto :
out) set /a newpos=
%newpos:~-2%-10
:rigth
if %oldpos:~-1%==9
(goto :
out) set /a newpos=
%newpos:~-2%+1
:left
if %oldpos:~-1%==0
(goto :
out) set /a newpos=
%newpos:~-2%-1
:out
cls
echo   SmartGenius
echo   Corp. 2008
:echodyn
:dyn2
if "
%var1%"=="
%texto%"
set num=0
cls
echo    %var1%
ping -n 0,3 0.0.0.0
> nul
Necesito ideas, y pues tambien codigo para arreglar algunos errores que tiene y para que haga las demas funciones que necesita para que sea igual al juego original...
Solo me falta hacer que crezca y se alimente.... ;D ;D y ya la tendria mas o menos lista...para Jugar :D
Espero sus comentarios...
Saludos.