API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 23rd, 2015
222
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 6.93 KB | None | 0 0
raw download clone embed print report
  1. @echo off
  2. title MIERDA
  3. SETLOCAL EnableDelayedExpansion
  4. color F0
  5. for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  6.   set "DEL=%%a"
  7. )
  8. rem Prepare a file "X" with only one dot
  9. <nul > X set /p ".=."
  10. set n=1
  11. set level=5
  12. set experiencia=32
  13. set expreq=64
  14. :Menu
  15. set Flechita=D
  16. set selector%N%=%flechita%
  17. CLS
  18. Echo.
  19. Echo.  #####     #     #  #######  #######  ########
  20. Echo.    #       #     #  #        #        #      #
  21. Echo.    #       #     #  #        #        #      #
  22. Echo.    #       #     #  ####     #        #      #
  23. Echo.    #       #     #  #        #   ###  #      #  
  24. Echo.    #   #   #     #  #        #     #  #      #  
  25. Echo.    #####   #######  #######  #######  ########  
  26. Echo.
  27. Echo.
  28. Echo.   %Selector1% Iniciar partida
  29. Echo.   %Selector2% Tutorial
  30. Echo.   %Selector3% Opciones Graficas
  31. Echo.
  32. Echo.
  33. Echo.    Pulsa Z para seleccionar una de las opciones
  34. CHOICE /C:WSZ /N >nul
  35. if "%errorlevel%"=="1" goto :Arriba
  36. if "%errorlevel%"=="2" goto :Abajo
  37. if "%errorlevel%"=="3" goto :Menu2
  38.  
  39. :Menu2
  40. if "%selector1%"=="D" goto Partida
  41. if "%selector2%"=="D" goto Controles
  42. if "%selector3%"=="D" goto Opciones
  43.  
  44. :Controles
  45. CLS
  46. Echo.
  47. Echo.  W = Arriba
  48. Echo.  A = Izquierda
  49. Echo.  S = Abajo
  50. Echo.  D = Derecha
  51. Echo.
  52. Echo.  $ = Tu
  53. Echo.  # = Pared
  54. Echo.
  55. Echo.   Pulsa Z para volver al menu
  56. Choice /C:Z /N >nul
  57. if "%errorlevel%"=="1" goto :Menu
  58.  
  59. :Opciones
  60. CLS
  61. Echo.
  62. Echo.   Graficos = Ultra
  63. Echo.   Sobmras  = Ultra
  64. Echo.   AA       = Ultra
  65. Echo.   PostProc = Ultra
  66. Echo.   Fisicas  = Ultra
  67. Echo.   Ultra    = Ultra
  68. Echo.
  69. Echo.   Pulsa Z para volver al menu
  70. Choice /C:Z /N >nul
  71. if "%errorlevel%"=="1" goto :Menu
  72.  
  73. :Arriba
  74. set selector%N%=
  75. set /a N=%N%-1
  76. if "%N%"=="0" goto Abajo
  77. goto :Menu
  78.  
  79. :Abajo
  80. set selector%N%=
  81. set /a N=%N%+1
  82. if "%N%"=="4" goto Arriba
  83. goto :Menu
  84.  
  85. :Partida
  86. set P=00
  87. :go
  88. set f%p%=
  89. set /a P=%p%+1
  90. if "%P%"=="100" goto Data
  91. cls
  92. echo Loading %p%
  93. goto go
  94.  
  95. :Data
  96. set X=0
  97. set Y=1
  98. set space1=
  99. set space2=
  100. set space3=
  101. set space4=
  102. set space5=
  103. set number=0
  104. set nofight=0
  105. set vida=
  106. set resta2=
  107. set damage=
  108. set espacio1=          
  109. set espacio2=      
  110. set enemyturn1=0
  111. set daño=
  112. :levelaso
  113. set levelaso=0
  114. set /a vida=(100*%level%)/2
  115.  
  116. :bloquesitos
  117. set f12=#
  118. set f22=#
  119. set f32=#
  120. set f42=#
  121. set f52=#
  122. set f62=#
  123. set f72=#
  124. goto lel
  125. :Collide
  126. cls
  127. if "%G%"=="f12" goto lel
  128. if "%G%"=="f22" goto lel
  129. if "%G%"=="f32" goto lel
  130. if "%G%"=="f42" goto lel
  131. if "%G%"=="f52" goto lel
  132. if "%G%"=="f62" goto lel
  133. if "%G%"=="f72" goto lel
  134. goto %k%
  135.  
  136. :LEL
  137. set personaje=$
  138. set f%Y%%X%=%personaje%
  139. if "%nofight%" GTR "0" set /a number=%number%-1
  140. if "%nofight%" GTR "0" set /a nofight=%nofight%-1
  141. if "%nofight%"=="0" set /a number=%random% %% 5
  142. cls
  143. echo.
  144. echo.
  145. echo.
  146. echo.
  147. echo.
  148. echo.        ############
  149. echo.        #%f10%%f11%%f12%%f13%%f14%%f15%%f16%%f17%%f18%%f19%#
  150. echo.        #%f20%%f21%%f22%%f23%%f24%%f25%%f26%%f27%%f28%%f29%#
  151. echo.        #%f30%%f31%%f32%%f33%%f34%%f35%%f36%%f37%%f38%%f39%#
  152. echo.        #%f40%%f41%%f42%%f43%%f44%%f45%%f46%%f47%%f48%%f49%#
  153. echo.        #%f50%%f51%%f52%%f53%%f54%%f55%%f56%%f57%%f58%%f59%#
  154. echo.        #%f60%%f61%%f62%%f63%%f64%%f65%%f66%%f67%%f68%%f69%#
  155. echo.        #%f70%%f71%%f72%%f73%%f74%%f75%%f76%%f77%%f78%%f79%#
  156. echo.        #%f80%%f81%%f82%%f83%%f84%%f85%%f86%%f87%%f88%%f89%#
  157. echo.        #%f90%%f91%%f92%%f93%%f94%%f95%%f96%%f97%%f98%%f99%%f100%
  158. echo.        ############
  159. echo.
  160. echo.
  161. echo.  Pulsa R para volver al menu
  162. if "%number%"=="4" set NoFight=4
  163. if "%number%"=="4" goto fight
  164. CHOICE /C:WASDRp /N >nul
  165. if "%errorlevel%"=="1" goto :W
  166. if "%errorlevel%"=="2" goto :A
  167. if "%errorlevel%"=="3" goto :S
  168. if "%errorlevel%"=="4" goto :D
  169. if "%errorlevel%"=="5" goto :Menu
  170.  
  171. :fight
  172. color 0F
  173. ping -n 1 -w 500 10.0.0.193 > nul 2>&1
  174. color F0
  175. ping -n 1 -w 500 10.0.0.193 > nul 2>&1
  176. color 0F
  177. ping -n 1 -w 400 10.0.0.193 > nul 2>&1
  178. color F0
  179. ping -n 1 -w 400 10.0.0.193 > nul 2>&1
  180. color 0F
  181. ping -n 1 -w 250 10.0.0.193 > nul 2>&1
  182. color F0
  183. ping -n 1 -w 250 10.0.0.193 > nul 2>&1
  184. color 0F
  185. ping -n 1 -w 40 10.0.0.193 > nul 2>&1
  186. color F0
  187. ping -n 1 -w 40 10.0.0.193 > nul 2>&1
  188. color 0F
  189. ping -n 1 -w 5 10.0.0.193 > nul 2>&1
  190. color F0
  191. set /a enemyturn1=%random% %% 2
  192. set /a vidaenemigo=(100*level)/6
  193. goto :fight2
  194.  
  195. :f2
  196. set /a vidaenemigo=%vidaenemigo%-%daño%
  197. set enemyturn1=1
  198. set daño=
  199. set resta1=
  200. set espacio1=          
  201. set espacio2=      
  202. timeout 1 >nul
  203. goto fight2
  204.  
  205. :enemyturn1
  206. set enemyturn1=2
  207. timeout 1 >nul
  208. set espacio1=      
  209. set resta2=-
  210. set /a damage=%random% %% 20+%level%
  211. goto fight2
  212.  
  213. :enemyturn2
  214. set /a vida=%vida%-%damage%
  215. timeout 1 >nul
  216. set enemyturn1=0
  217. set espacio1=          
  218. set resta2=
  219. set damage=
  220.  
  221. :fight2
  222. cls
  223. if %vida% LEQ 0 goto Derrota
  224. if %vidaenemigo% LEQ 0 goto Victoria
  225. if "%daño%"=="0" set daño=MISS
  226. if "%damage%"=="0" set damage=MISS
  227. echo.
  228. echo.
  229. echo.
  230. echo.
  231. echo.
  232. echo.
  233. echo.
  234. echo.
  235. echo.
  236. echo.
  237. echo.
  238. echo.      %resta2%%damage%           %resta1%%daño%
  239. echo. %espacio2%%personaje%%espacio1%X
  240. echo.      ###############
  241. echo.
  242. echo.        YOU: %vida%HP  %mp%MP
  243. echo.          Enemy: %vidaenemigo%HP
  244. echo.
  245. echo.
  246. echo.    1. Atacar   2.Magia
  247. echo.    3. Objetos  4.Escapar
  248. echo.
  249. echo. %enemyturn1%
  250. if "%enemyturn1%"=="1" goto enemyturn1
  251. if "%enemyturn1%"=="2" goto enemyturn2
  252. if not "%daño%"==" " goto f2
  253. CHOICE /C:1234 /N >nul
  254. if "%errorlevel%"=="1" (
  255. set /a daño=%random% %% 20+%level%
  256. set resta1=-
  257. set espacio1=      
  258. set espacio2=          
  259. goto :fight2 )
  260. if "%errorlevel%"=="2" goto :A
  261. if "%errorlevel%"=="3" goto :S
  262. if "%errorlevel%"=="4" goto :lel
  263.  
  264.  
  265. :W
  266. set /a H=%Y%%X%-10
  267. set G=f%h%
  268. set K=Wl
  269. goto collide
  270. :wl
  271. set f%y%%X%=
  272. set /a Y=%Y%-1
  273. if "%y%"=="0" goto s
  274. goto lel
  275.  
  276. :A
  277. if "f%y%%x%"=="f90" goto lel
  278. set /a H=%Y%%X%-1
  279. set G=f%h%
  280. set K=Al
  281. goto collide
  282. :Al
  283. set f%Y%%X%=
  284. set /a X=%X%-1
  285. if "%x%"=="-1" goto D
  286. goto lel
  287.  
  288. :S
  289. set /a H=%Y%%X%+10
  290. set G=f%h%
  291. set K=sl
  292. goto collide
  293. :sl
  294. set f%Y%%X%=
  295. set /a Y=%Y%+1
  296. if "%y%"=="10" goto w
  297. goto lel
  298.  
  299. :D
  300. if "f%y%%X%"=="f99" goto WIN
  301. set C=%Y%%X%
  302. set /a H=%C%+1
  303. echo %h%
  304. set G=f%h%
  305. set K=Dl
  306. goto collide
  307. :Dl
  308. set f%Y%%X%=
  309. set /a X=%X%+1
  310. if "%X%"=="10" goto a
  311. goto lel
  312.  
  313. :Victoria
  314. Cls
  315. set /a experiencia=%experiencia%+10
  316. :levelup
  317. Cls
  318. echo.
  319. echo.
  320. echo.      ¡Has conseguido 10 de experiencia!
  321. echo.
  322. echo.                     %LevelUp%
  323. echo.       Experiencia:  %experiencia%/%expreq%
  324. echo.
  325. echo.        Nivel: %level%
  326. echo.
  327. echo.
  328. echo.
  329. Echo Pulse cualquier tecla para continuar
  330. set levelup=
  331. PAUSE >nul
  332. if %experiencia% GEQ %expreq% (
  333. set /a level=%level%+1
  334. set /a expreq=%expreq%*2
  335. set levelup=LevelUp
  336. set levelaso=1
  337. goto :levelup
  338. )
  339. if "%levelaso%"=="1" goto Levelaso
  340. goto lel
  341. :Derrota
  342. Cls
  343. echo Pene
  344. pause
  345. :WIN
  346. cls
  347. echo.
  348. echo.    Felisidad! Ganastes weeeey
  349. echo.
  350. echo.    Z para ir al menu
  351. echo.    X para salir
  352. CHOICE /C:ZX /N >nul
  353. if "%errorlevel%"=="1" goto :Menu
  354. if "%errorlevel%"=="2" 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!