Quien dijo q no se puede pintar en batch? BatchPaint 1.3 - Hacketico En Accion

AutorTema: Quien dijo q no se puede pintar en batch? BatchPaint 1.3  (Leído 618 veces)

DAMA$ GRATI$

  • Novato

  • Desconectado
  • *

  • 51
  • Karma:
    +0/-1
  • Sexo
    Masculino

    Masculino
  • Texto personal
    %100 NEGRO CUMBIERO
Quien dijo q no se puede pintar en batch? BatchPaint 1.3
« : 18 de diciembre de 2009, 01:42:48 am »
esta es la version 1.3 del BatchPaint hecha Shadow, SmartGenius, 3D1, Nax, la posteo pq es muy interesante este code

Código: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
@Echo Off
@Mode Con cols=80 lines=25
Setlocal Enabledelayedexpansion

::{ A Program by S.C.O.T 2009   }::
::{ Script Coders Oriented Team }::
::{ SmartGenius & 3D1           }::
::{ Thanks to:                  }::
::{ Nax                 }::
::{ Shadow              }::
::{                             }::

Call:PropetiesDefault
:Main
Cls
Echo. ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÂÄ¿
Echo. ³ Batch Paint v 1.3 - SCOT Team 2009          ³Nuevo ³Abrir ³Guardar³    ³X³
Echo. ÃÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÁÄ´
Echo. ³Colores³ ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ³
Echo. ³ÚÄÂÄÂÄ¿³ º                                                              º ³
Echo. ³³Û³Û³Û³³ º                                                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                                                              º ³
Echo. ³³Û³Û³Û³³ º                                                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                                                              º ³
Echo. ³³Û³Û³Û³³ º                                                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                                                              º ³
Echo. ³³Û³Û³Û³³ º                                                              º ³
Echo. ³ÃÄÅÄÅÄ´³ º                                                              º ³
Echo. ³³Û³Û³Û³³ º                                                              º ³
Echo. ³ÀÄÁÄÁÄÙ³ º                                                              º ³
Echo. ÃÄÄÄÄÄÄÄ´ º                                                              º ³
Echo. ³Pincel ³ º                                                              º ³
Echo. ³       ³ º                                                              º ³
Echo. ³° ± ² Û³ º                                                              º ³
Echo. ÃÄÄÄÄÄÄÄ´ º                                                              º ³
Echo. ³Borra #³ º                                                              º ³
Echo. ³       ³ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ³
Echo. ÀÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
(Echo.EB800:326 "Û" 11
Echo.EB800:32A "Û" 22
Echo.EB800:32E "Û" 33
Echo.EB800:466 "Û" 44
Echo.EB800:46A "Û" 55
Echo.EB800:46E "Û" 66
Echo.EB800:5A6 "Û" 77
Echo.EB800:5AA "Û" 88
Echo.EB800:5AE "Û" 99
Echo.EB800:6E6 "Û" AA
Echo.EB800:6EA "Û" BB
Echo.EB800:6EE "Û" CC
Echo.EB800:826 "Û" DD
Echo.EB800:82A "Û" EE
Echo.EB800:82E "Û" FF
Echo.Q)|Debug >nul
:Draw
Call:Mouse
title BatchPaint 1.2 - !Hexa! X:!X! Y:!Y!
If !Hexa! EQU 326 ( Set Color=11 )
If !Hexa! EQU 32A ( Call:Color 02 )
If !Hexa! EQU 32E ( Call:Color 03 )
If !Hexa! EQU 466 ( Call:Color 04 )
If !Hexa! EQU 46A ( Call:Color 05 )
If !Hexa! EQU 46E ( Call:Color 06 )
If !Hexa! EQU 5A6 ( Call:Color 07 )
If !Hexa! EQU 5AA ( Call:Color 08 )
If !Hexa! EQU 5AE ( Call:Color 09 )
If !Hexa! EQU 6E6 ( Call:Color 0A )
If !Hexa! EQU 6EA ( Call:Color 0B )
If !Hexa! EQU 6EE ( Call:Color 0C )
If !Hexa! EQU 826 ( Call:Color 0D )
If !Hexa! EQU 82A ( Call:Color 0E )
If !Hexa! EQU 82E ( Call:Color 0F )
If !Hexa! EQU 136 (
Del /Q /A Mouse.dat >nul 2>&1
Del /Q /A TmpData.txt >nul 2>&1
Exit
)
If !Hexa! EQU B44 ( Set Pincel=°)
If !Hexa! EQU B48 ( Set Pincel=±)
If !Hexa! EQU B4C ( Set Pincel=²)
If !Hexa! EQU B50 ( Set Pincel=Û)
If !Hexa! EQU C90 ( Set Pincel=Û&Set Color=00)
If !X! GEQ 62 (
If !Y! GEQ 1 (
If !X! LEQ 68 (
If !Y! LEQ 2 (
Set X=0
Set Y=0
Set Hexa=0
Goto:SaveToFile
))))
If !X! GEQ 55 (
If !Y! GEQ 1 (
If !X! LEQ 60 (
If !Y! LEQ 2 (
Set X=0
Set Y=0
Set Hexa=0
Call:OpenFile
))))
If !X! GEQ 48 (
If !Y! GEQ 1 (
If !X! LEQ 53 (
If !Y! LEQ 2 (
Start Cmd /c %0
Exit /b 0
))))
If !X! GEQ 12 (
If !Y! GEQ 4 (
If !X! LEQ 73 (
If !Y! LEQ 20 (
(Echo.EB800:%hexa% "%Pincel%" %Color%&Echo.Q)|Debug >nul
Echo.EB800:%hexa% "%Pincel%" %Color%>>TmpData.txt
))))
Goto:Draw

:PropetiesDefault
Set Pincel=Û
Set Color=0F
Del /Q /A TmpData.Txt>nul 2>&1
Echo.>TmpData.txt
title BatchPaint 1.2
Goto:Eof

:Color
Set Color=%1
Goto:Eof

:Mouse
Echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3>mouse.dat
For %%! in (.g116 .q) do (Echo%%!>> mouse.dat)
For /f "tokens=6-8 delims== " %%a in ('Debug ^< mouse.dat ^| Find /I "X"') do (
Set /a "X=0x%%a"
Set /a "Y=0x%%c"
Set /a "G=!Y! * 160 + (!X! + 1 - 1) * 2
call:d2h !G!
)
Goto :Eof

:d2h
:: Decimal2Hexadecimal
:: Author: lShadowl
set hstr=0123456789ABCDEF&& set int=%1&& set last=
:loop
set/a ths=%int%%%16
call set last=%%hstr:~%ths%,1%%%last%
if /i %int% geq 16 (set /A int=%int%/16
) else (Set Hexa=%last%&& goto:eof)
goto:loop


:OpenFile
Set /p O_File="    Archivo a Abrir:\>"
Find "Batch Paint" %O_File% >nul 2>&1
If Not "%Errorlevel%"=="0" (
msg * El Archivo Seleccionado no es un Dibujo de Batch Paint
) else (
Echo.|Call %O_File%
For /f "tokens=2 Skip=2 delims=." %%f in ('Find "EB800" %O_File%') do (
Echo.%%f>>TmpData.txt
))
Goto :Eof

:SaveToFile
Title Guardando Espere...
Set /p File="     Guardar Como:\>"
Echo.>Save.txt
For /f "Tokens=*" %%S in ('Type TmpData.txt') do (
Echo.%%S>SaveText.txt
Copy /B SaveText.txt + Save.txt SaveF.txt >nul 2>&1
Del /Q /A Save.txt>nul 2>&1
Ren SaveF.txt Save.txt >nul 2>&1
Title Guardando Espere... [Ordenando Archivo %%S]
)
Del /Q /A SaveText.txt>nul 2>&1
(
Echo.@Echo Off
Echo.::Created With Batch Paint
Echo.::SCOT Team 2009
Echo.(
)>SaveFinal.txt
For /f "Tokens=1,*" %%A in ('Type Save.txt') do (
Find /i "Echo.%%A" SaveFinal.txt >nul||Echo.Echo.%%A %%B>>SaveFinal.txt
Title Guardando Espere... [Guardando Cambios %%A]
)
Echo.Echo.Q >>SaveFinal.txt
(Echo.^)^|Debug ^>nul 2^>^&1 &Echo.Pause^>nul&Echo.Goto :Eof)>>SaveFinal.txt
Del /Q /A Save.txt >nul 2>&1
Title Guardando Espere... [Renombrar Archivo]
If ["%File%"] NEQ [""] (
Ren "SaveFinal.txt" "!File!.bat" >nul 2>&1
) ELSE (
Ren "SaveFinal.txt" "DRAW_Image%Random%.bat" >nul 2>&1
)
Title Ok!! - Se ha Terminado de Guardar el Archivo...
Ping -n 2 LocalHost>nul 2>&1
Start Cmd /c %0
Exit /b 0
« Última Modificación: 18 de diciembre de 2009, 05:55:36 pm por DAMA$ GRATI$ »


CUMBIA VILLERA...PARA VOS WUACHIN!!!

CUMBIERITOS ESTUDIANTES
CUMBIERITOS ESTUDIANTES YO TENGO LA CLASE
SOY INTELIGENCIA
Y ADEMAS TENGO LA BASE
Y MUCHOS DICEN QUE VIVEN
Y QUE YO MORIRE
QUE MIRA A LEZCANO NO ESTA MAS EN LA TV
SI TRATAN DE PARARME NO ME PUEDEN VENCER
SI LLAMAN A LA POLICIA LE VAMOS A RESPOND

Alfasixela

  • Administrador
  • User Heroe

  • Desconectado
  • *****

  • 1699
  • Karma:
  • País: mx
  • +65/-0
  • Sexo
    Masculino

    Masculino
Re: Quien dijo q no se puede pintar en batch? BatchPaint 1.3
« Respuesta #1 : 18 de diciembre de 2009, 01:47:29 am »
 (0 quien lo hubiera imaginado, esta interesante. Ya probe el code y esta interesante esta version de Paint.bat

Gracias ok
Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

DAMA$ GRATI$

  • Novato

  • Desconectado
  • *

  • 51
  • Karma:
    +0/-1
  • Sexo
    Masculino

    Masculino
  • Texto personal
    %100 NEGRO CUMBIERO
Re: Quien dijo q no se puede pintar en batch? BatchPaint 1.3
« Respuesta #2 : 18 de diciembre de 2009, 01:53:46 am »
esto es una de las tantas cosas de 3D1 6 SmartGenius, postearia tambien juegos, barras de cargas, etc etc pero nose si me dejan, aunke pongo los credits los estaria cagando y no lo  voi a hacer pero cualkier code pidanmelo por MP
CUMBIA VILLERA...PARA VOS WUACHIN!!!

CUMBIERITOS ESTUDIANTES
CUMBIERITOS ESTUDIANTES YO TENGO LA CLASE
SOY INTELIGENCIA
Y ADEMAS TENGO LA BASE
Y MUCHOS DICEN QUE VIVEN
Y QUE YO MORIRE
QUE MIRA A LEZCANO NO ESTA MAS EN LA TV
SI TRATAN DE PARARME NO ME PUEDEN VENCER
SI LLAMAN A LA POLICIA LE VAMOS A RESPOND

cronos426

  • User Full Colaborador

  • Desconectado
  • ***

  • 194
  • Karma:
  • País: 00
  • +1/-0
  • Sexo
    Masculino

    Masculino
  • Texto personal
    Por un mundo Verde...!!! Reciclemos
Re: Quien dijo q no se puede pintar en batch? BatchPaint 1.3
« Respuesta #3 : 18 de diciembre de 2009, 03:16:14 pm »
Muy bueno,  ok
Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

ponchale

  • Novato

  • Desconectado
  • *

  • 9
  • Karma:
    +0/-0
Re: Quien dijo q no se puede pintar en batch? BatchPaint 1.3
« Respuesta #4 : 10 de febrero de 2010, 04:08:24 pm »
que mentira este code es de smartgenius el creador de esto es un lammer

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico