API tools faq
paste
Advertisement
SmartGenius

Batch Paint v 2

SmartGenius
Jul 6th, 2012
3,638
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.09 KB | None | 0 0
raw download clone embed print report
  1. @Echo Off
  2. @Mode Con Cols=80 Lines=25
  3. Setlocal Enabledelayedexpansion
  4.  
  5. ::{ A Program by S.C.O.T 2010 }::
  6. ::{ Script Coders Oriented Team }::
  7. ::{ SmartGenius & 3D1 }::
  8.  
  9. Call:PropertiesDefault
  10.  
  11. :Main
  12. Cls
  13. Echo. ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍ»
  14. Echo. º º Salir X º
  15. Echo. º ºÄÄÄÄÄÄÄÄĺ
  16. Echo. º ºÄÄÄÄÄÄÄÄĺ
  17. Echo. º º _______ º
  18. Echo. º ºÄÄÄÄÄÄÄÄĺ
  19. Echo. º º _______ º
  20. Echo. º ºÄÄÄÄÄÄÄÄĺ
  21. Echo. º º ______ º
  22. Echo. º ºÄÄÄÄÄÄÄÄĺ
  23. Echo. º º _____  º
  24. Echo. º ºÄÄÄÄÄÄÄÄĺ
  25. Echo. º º º
  26. Echo. º º º
  27. Echo. º º º
  28. Echo. º º º
  29. Echo. º º S C O T º
  30. Echo. º º º
  31. Echo. ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ T E A M º
  32. Echo. º Pinceles ³ ÚÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄÂÄ¿ º º
  33. Echo. º ³ ³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³Û³ º 2 0 1 0 º
  34. Echo. º ° ± ² Û # ³ ÀÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÁÄÙ SmartGenius©º º
  35. Echo. ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍͼ
  36. If Not Defined DispText Call :OemText
  37. (Echo.EB800:CA0 "Û" F0
  38. Echo.EB800:CA4 "Û" F1
  39. Echo.EB800:CA8 "Û" F2
  40. Echo.EB800:CAC "Û" F3
  41. Echo.EB800:CB0 "Û" F4
  42. Echo.EB800:CB4 "Û" F5
  43. Echo.EB800:CB8 "Û" F6
  44. Echo.EB800:CBC "Û" F7
  45. Echo.EB800:CC0 "Û" F8
  46. Echo.EB800:CC4 "Û" F9
  47. Echo.EB800:CC8 "Û" FA
  48. Echo.EB800:CCC "Û" FB
  49. Echo.EB800:CD0 "Û" FC
  50. Echo.EB800:CD4 "Û" FD
  51. Echo.EB800:CD8 "Û" FE
  52. Echo.EB800:CDC "Û" FF
  53. Echo.Q)|Debug >nul
  54.  
  55. :Draw
  56. Call:Mouse
  57. title Batch Paint 2 - !Hexa! X:!X! Y:!Y!
  58. If !Hexa! EQU CA0 ( Set Color=00 )
  59. If !Hexa! EQU CA4 ( Call:Color=11 )
  60. If !Hexa! EQU CA8 ( Call:Color 02 )
  61. If !Hexa! EQU CAC ( Call:Color 03 )
  62. If !Hexa! EQU CB0 ( Call:Color 04 )
  63. If !Hexa! EQU CB4 ( Call:Color 05 )
  64. If !Hexa! EQU CB8 ( Call:Color 06 )
  65. If !Hexa! EQU CBC ( Call:Color 07 )
  66. If !Hexa! EQU CC0 ( Call:Color 08 )
  67. If !Hexa! EQU CC4 ( Call:Color 09 )
  68. If !Hexa! EQU CC8 ( Call:Color 0A )
  69. If !Hexa! EQU CCC ( Call:Color 0B )
  70. If !Hexa! EQU CD0 ( Call:Color 0C )
  71. If !Hexa! EQU CD4 ( Call:Color 0D )
  72. If !Hexa! EQU CD8 ( Call:Color 0E )
  73. If !Hexa! EQU CDC ( Call:Color 0F )
  74. If !Hexa! EQU 138 (
  75. Del /Q /A Mouse.dat >nul 2>&1
  76. Del /Q /A TmpData.txt >nul 2>&1
  77. Exit
  78. )
  79. If !Hexa! EQU D26 ( Set Pincel=°)
  80. If !Hexa! EQU D2A ( Set Pincel=±)
  81. If !Hexa! EQU D2E ( Set Pincel=²)
  82. If !Hexa! EQU D32 ( Set Pincel=Û)
  83. If !Hexa! EQU D36 ( Set Pincel=#&Set Color=00)
  84. ::New File
  85. If !X! GEQ 69 (
  86. If !Y! GEQ 3 (
  87. If !X! LEQ 77 (
  88. If !Y! LEQ 4 (
  89. Start "" /I /SEPARATE %0
  90. Exit
  91. ))))
  92. ::Open a File
  93. If !X! GEQ 69 (
  94. If !Y! GEQ 5 (
  95. If !X! LEQ 77 (
  96. If !Y! LEQ 6 (
  97. Set X=0
  98. Set Y=0
  99. Set Hexa=0
  100. Call:OpenFile
  101. ))))
  102. ::Save File
  103. If !X! GEQ 69 (
  104. If !Y! GEQ 7 (
  105. If !X! LEQ 77 (
  106. If !Y! LEQ 8 (
  107. Set X=0
  108. Set Y=0
  109. Set Hexa=0
  110. Goto:SaveToFile
  111. ))))
  112. If !X! GEQ 69 (
  113. If !Y! GEQ 9 (
  114. If !X! LEQ 77 (
  115. If !Y! LEQ 10 (
  116. Set X=0
  117. Set Y=0
  118. Set Hexa=0
  119. Call:Help
  120. ))))
  121. ::Draw area
  122. If !X! GEQ 2 (
  123. If !Y! GEQ 1 (
  124. If !X! LEQ 67 (
  125. If !Y! LEQ 17 (
  126. (Echo.EB800:%hexa% "%Pincel%" %Color%&Echo.Q)|Debug >nul
  127. Echo.EB800:%hexa% "%Pincel%" %Color%>>TmpData.txt
  128. ))))
  129. Goto:Draw
  130.  
  131. :PropertiesDefault
  132. title Loading...
  133. Echo. Please wait
  134. Set "Pincel=Û"
  135. Set "Color=0F"
  136. Del /Q /A TmpData.Txt>nul 2>&1
  137. Echo.>TmpData.txt
  138. Set "O=PJFUOLBINRP9TUS745"
  139. Set "Sv1=9mjXojYxbfokxEXoZkxSXfqoxyx7"
  140. Set "Sv2=P9TOxOjXrx7545"
  141. For %%a in (Sv1,Sv2) do (Call :Key.A %%a)
  142. title %Sv1:~13% - by %Sv2%
  143. Goto :Eof
  144.  
  145. :OemText
  146. Call :Key.A O
  147. (Echo.EB800:12C "%O:~10,1%"0a "a"0a "l"0a "i"0a "r"0a "Û"00 "X"0c
  148. Echo.EB800:30C "%O:~7,1%"0d "u"0d "e"0d "v"0d "o"0d "Û"00 ""0c
  149. Echo.EB800:44C "%O:~2,1%"0d "b"0d "r"0d "i"0d "r"0d "Û"00 ""0c
  150. Echo.EB800:58C "%O:~5,1%"0d "u"0d "a"0d "r"0d "d"0d "a"0d "r"0d
  151. Echo.EB800:6CC "%O:~2,1%"0d "y"0d "u"0d "d"0d "a"0d
  152. Echo.EB800:BE6 "%O:~14,1%"0c "i"0c "n"0c "c"0c "e"0c "l"0c "e"0c "s"0c
  153. Echo.EB800:A8C "%O:~0,1%" 0A "Û" 00 "%O:~11,1%" 0A "Û" 00 "%O:~12,1%" 0A "Û" 00 "%O:~4,1%" 0A
  154. Echo.EB800:BCC "%O:~4,1%" 0A "Û" 00 "%O:~6,1%" 0A "Û" 00 "%O:~2,1%" 0A "Û" 00 "%O:~1,1%" 0A
  155. Echo.EB800:D0C "%O:~-3,1%" 0A "Û" 00 "%O:~-1%" 0A "Û" 00 "%O:~-2,1%" 0A "Û" 00 "%O:~-1%" 0A
  156. Echo.Q)|Debug >nul
  157. Set "DispText=%Random%"
  158. Goto:Eof
  159.  
  160. :Color
  161. Set Color=%1
  162. Goto:Eof
  163.  
  164. :Mouse
  165. If Not Exist Mouse.dat (
  166. 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
  167. For %%! in (.g116 .q) do (Echo%%!>> mouse.dat)
  168. )
  169. For /f "tokens=6-8 delims== " %%a in ('Debug ^< mouse.dat ^| Find /I "X"') do (
  170. Set /a "X=0x%%a","Y=0x%%c"
  171. Set /a "G=!Y! * 160 + (!X! + 1 - 1) * 2
  172. Call:Hex !G!
  173. )
  174. Goto :Eof
  175.  
  176. :Hex
  177. ::by SmartGenius
  178. Set "Decimal=%1"
  179. Cmd /cexit /b %Decimal%
  180. Set "Hexa=!=ExitCode:~5!
  181. Goto :Eof
  182.  
  183. :Help
  184. Set "Target=koos*]]itmt ZtYj,rXhjmp qjo]itmzr"
  185. Call :Key.A Target
  186. Set "Target=%Target:x=%"
  187. Start "" %Target%
  188. Goto :Eof
  189.  
  190. :OpenFile
  191. Set /p O_File="Archivo a Abrir:\>"
  192. Find "Batch Paint" %O_File% >nul 2>&1
  193. If Not "%Errorlevel%"=="0" (
  194. msg * El Archivo Seleccionado no es un Dibujo de Batch Paint
  195. ) else (
  196. Echo.|Call %O_File%
  197. For /f "tokens=2 Skip=2 delims=." %%f in ('Find "EB800" %O_File%') do (
  198. Echo.%%f>>TmpData.txt
  199. ))
  200. Goto :Eof
  201.  
  202. :Key.A
  203. If not defined %1 Goto:Eof
  204. Set "c="
  205. Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
  206. :Key.B
  207. Set "chr=!%1:~,1!"
  208. For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  209. set /a "x=%%l^5"
  210. call set "c=!c!%%d:~!x!,1%%"
  211. )
  212. Set "%1=!%1:~1!"
  213. If defined %1 goto:Key.B
  214. Set "%1=!c!"
  215. Goto :Eof
  216.  
  217. :SaveToFile
  218. Title Guardando Espere...
  219. Set /p File="Guardar Como:\>"
  220. (
  221. Echo.@Echo Off
  222. Echo.Title %File% - Batch Paint
  223. Echo.::%Sv1%
  224. Echo.::%Sv2%
  225. Echo.(
  226. )>SaveFinal.txt
  227. For /f "Tokens=1,*" %%A in (TmpData.txt) do (
  228. Find /i "Echo.%%A" SaveFinal.txt >nul||Echo.Echo.%%A %%B>>SaveFinal.txt
  229. Title Guardando Espere... [Guardando Cambios %%A]
  230. )
  231. Echo.Echo.Q >>SaveFinal.txt
  232. (Echo.^)^|Debug ^>nul 2^>^&1 &Echo.Pause^>nul&Echo.Goto :Eof)>>SaveFinal.txt
  233. Title Guardando Espere... [Renombrar Archivo]
  234. If ["%File%"] NEQ [""] (
  235. Ren "SaveFinal.txt" "!File!.bat" >nul 2>&1
  236. ) ELSE (
  237. Ren "SaveFinal.txt" "DRAW_Image%Random%.bat" >nul 2>&1
  238. )
  239. Title Ok!! - Se ha Terminado de Guardar el Archivo...
  240. Ping -n 2 LocalHost>nul 2>&1
  241. Start "" /I /SEPARATE %0
  242. Exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!