GC Ping Test

@ECHO OFF
mode con: lines=20
ECHO Ping de GC (Chile, Argentina y Brasil) by Kepler
ECHO =============================================================
ECHO Espera mientras carga los resultados...
:top
color 07
TITLE Ping de GC (Chile, Argentina y Brasil) by Kepler
:pads
CALL:pingtest1 168.195.130.10
CALL:pingtest2 test.gamersclub.es
CALL:pingtest3 teste.gamersclub.com.br
CLS
ECHO Ping de GC (Chile, Argentina y Brasil) by Kepler
ECHO =============================================================
ECHO - Chile                                                 %ms1%
ECHO.
ECHO - Argentina                                             %ms5%
ECHO.
ECHO - Brasil                                                %ms9%
ECHO.
ECHO =============================================================
ECHO Refrescando automaticamente el ping
GOTO top

:pingtest1
SET ms1=ERROR
FOR /F "tokens=4 delims==" %%i IN ('ping.exe -n 1 %1 ^| FIND "ms"') DO SET ms1=%%i
GOTO:EOF

:pingtest2
SET ms5=ERROR
FOR /F "tokens=4 delims==" %%i IN ('ping.exe -n 1 %1 ^| FIND "ms"') DO SET ms5=%%i
GOTO:EOF

:pingtest3
SET ms9=ERROR
FOR /F "tokens=4 delims==" %%i IN ('ping.exe -n 1 %1 ^| FIND "ms"') DO SET ms9=%%i
GOTO:EOF