Advertisement
KingOfTurkey38

Custom Enchants By KingOfTurkey38

May 18th, 2019
513
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.75 KB | None | 0 0
  1. Custom Enchants V0.1.2 by KingOfTurkey38 discord: KingOfTurkey38#1377
  2.  
  3. U NEED TO WEAR FULL ARMOR TO MAKE GEARS, SPRINGS, OVERLOAD, AQUATIC, KNIGHT, OBSIDIANSHIELD, HULK, GLOWING AND TANK WORK!
  4.  
  5. Custom Enchants Help:
  6. -------------------------------------------------------------------------------------------------
  7. /ce list ( to see all custom enchants )
  8. /ce config ( to setup custom enchants )
  9. /ce help ( custom enchants help )
  10. /ce about ( infortmation about custom enchants )
  11.  
  12. config:
  13. /ce config enable ( enables custom enchants )
  14. /ce config disable ( disables custom enchants )
  15. /ce config addarea ( adds a area were ce can be used )
  16. /ce config delarea ( delete a area were ce can be used )
  17. /ce config list ( see everything about the config [False = disabled, True = enabled] )
  18. -------------------------------------------------------------------------------------------------
  19.  
  20. Custom Enchants List:
  21. -------------------------------------------------------------------------------------------------
  22. Lifesteal:
  23. A chance to regain health whilst attacking an opponent (sword). level: 1
  24. Gears:
  25. Gives you speed (boots). level: 1-3
  26. Springs:
  27. Gives you jumpboost (boots). level: 1-2
  28. Aquatic:
  29. Gives permanent water breathing (helmet). level: 1
  30. Overload:
  31. Permanent increase in hearts (Chestplate). level: 1-3
  32. Angelic:
  33. This Enchant Gives You Regeneration When near Death (leggings). level: 1
  34. Tank:
  35. This enchant gives you regeneration (Chestplate). level: 1-3
  36. Glowing:
  37. This enchant gives you night vision (Helmet). level: 1
  38. Quickmine:
  39. This enchant gives you haste when mining (Pickaxe). level: 1
  40. Knight:
  41. This enchant gives you resistance (Leggings). level: 1-2
  42. ObsidianShield:
  43. This enchant gives you fire resistance (Leggings). level: 1
  44. Hulk:
  45. This enchant gives you strength (Chestplate). level: 1-3
  46. -------------------------------------------------------------------------------------------------
  47.  
  48. To add custom enchants to a item:
  49. -------------------------------------------------------------------------------------------------
  50. overload: /addlore overload (level)
  51. gears: /addlore gears (level)
  52. springs: /addlore springs (level)
  53. aquatic: /addlore aquatic
  54. angelic: /addlore angelic
  55. lifesteal: /addlore lifesteal
  56. hulk: /addlore hulk (level)
  57. obsidianshield: /addlore obsidianshield
  58. knight: /addlore knight (level)
  59. quickmine: /addlore quickmine
  60. glowing: /addlore glowing
  61. tank: /addlore tank (level)
  62. -------------------------------------------------------------------------------------------------
  63.  
  64. cmd delete data
  65. cmd delete loop
  66. cmd delete ce
  67. cmd delete cebreak
  68. cmd delete cedamage
  69.  
  70. cmd create ce Custom Enchants by KingOfTurkey38
  71. cmd edit ce 1 %prefix% = \"§7[§bCE§7]\"
  72. cmd edit ce 2 %usage% = \"§l§bCustom Enchants By KingOfTurkey38\\n§f-------------------\\n§blist\\nconfig\\nhelp\\nabout\\n§f-------------------\"
  73. cmd edit ce 3 if varset(%args%[1]) = %false% then goto 20
  74. cmd edit ce 4 %c% = %args%[1]
  75. cmd edit ce 5 if %c% = \"list\" then goto 50
  76. cmd edit ce 6 if %c% = \"config\" then goto 80
  77. cmd edit ce 7 if %c% = \"help\" then goto 20
  78. cmd edit ce 8 if %c% = \"about\" then goto 1000
  79. cmd edit ce 20 message %p% %usage%
  80. cmd edit ce 21 exit
  81. cmd edit ce
  82. cmd edit ce 50 %customenchants% = \"§6Lifesteal:\\nA chance to regain health whilst attacking an opponent (sword).\\n§6Gears:\\nGives you speed (boots).\\n§6Springs:\\nGives you jumpboost (boots).\\§6Aquatic:\\n§6Gives permanent water breathing (helmet).\\n§6Overload:\\n§6Permanent increase in hearts (Chestplate).\\n§6Angelic:\\n§6This Enchant Gives You Regeneration When near Death (leggings)\\n§6Quickmine:\\n§6This enchant gives you haste when mining (Pickaxe).\\n§6Tank:\\n§6This enchant gives you regeneration (Chestplate).\\n§6Obsidianshield:\\n§6This enchant gives you fire resistance (leggings).\\nGlowing:\\n§6This enchant gives you night vision (Helmet).\\nHulk:\\nThis enchant gives you strength (Chestplate).\\nKnight:\\nThis enchant gives you resistance (Leggings)\"
  83. cmd edit ce 51 message %p% %customenchants%
  84. cmd edit ce 52 exit
  85. cmd edit ce
  86. cmd edit ce 80 %command% = %args%[2]
  87. cmd edit ce 81 %word% = %args%[3]
  88. cmd edit ce 82 %usagee% = \"§l§bCustom Enchants By KingOfTurkey38 §6CONFIG\\n§f-------------------\\nconfig list (See the current config)\\nconfig enable [NAME] (Enable a custom enchant)\\nconfig disbale [NAME] (Disable a custom enchant)\\nconfig addarea [areaname] add a area were ce's can be used\\nconfig delarea [areaname] delete a area were ce's can be used\\n§f-------------------\"
  89. cmd edit ce 83 if varset(%command%) = %false% then goto 95
  90. cmd edit ce 84 if %command% = \"list\" then goto 100
  91. cmd edit ce 85 if %command% = \"enable\" then goto 120
  92. cmd edit ce 86 if %command% = \"disable\" then goto 140
  93. cmd edit ce 87 if %command% = \"addarea\" then goto 160
  94. cmd edit ce 88 if %command% = \"delarea\" then goto 180
  95. cmd edit ce 95 message %p% %usagee%
  96. cmd edit ce 96 exit
  97.  
  98. cmd edit ce 100 load %ce%
  99. cmd edit ce 101 load %cearena%
  100. cmd edit ce 102 if varset(%cearena%) = %false% then let %cearena% = array(0) - array(0)
  101. cmd edit ce 103 message %p% §bCe Areas: %cearena%
  102. cmd edit ce 105 %list% = %ce%[\"list\"]
  103. cmd edit ce 106 %num% = 0
  104. cmd edit ce 107 if varset(%list%[%num%]) = %false% then exit
  105. cmd edit ce 108 %msg% = %list%[%num%]
  106. cmd edit ce 109 %mes% = %ce%[%msg%]
  107. cmd edit ce 110 message %p% §b%msg%: §6%mes%
  108. cmd edit ce 111 if size(%list%) < %num% then exit
  109. cmd edit ce 112 %num% = %num% + 1
  110. cmd edit ce 113 goto 107
  111.  
  112. cmd edit ce 120 load %ce%
  113. cmd edit ce 121 %word% = lowercase(%word%)
  114. cmd edit ce 122 if %word% notin %ce%[\"list\"] then goto 138
  115. cmd edit ce 123 if %word% in %ce% then %ce%[%word%] = \"true\"
  116. cmd edit ce 124 message %p% §b%prefix% %word% Enabled!
  117. cmd edit ce 125 %ce%[%word%] = \"true\"
  118. cmd edit ce 126 save %ce%
  119. cmd edit ce 137 exit
  120. cmd edit ce 138 message %p% §7%word% is not a custom enchant!
  121. cmd edit ce 139 exit
  122. cmd edit ce
  123. cmd edit ce 140 load %ce%
  124. cmd edit ce 141 %word% = lowercase(%word%)
  125. cmd edit ce 142 if %word% notin %ce%[\"list\"] then goto 148
  126. cmd edit ce 143 if %word% in %ce% then let %ce%[%word%] = \"false\"
  127. cmd edit ce 144 message %p% §b%prefix% %word% Disabled!
  128. cmd edit ce 145 %ce%[%word%] = \"false\"
  129. cmd edit ce 146 save %ce%
  130. cmd edit ce 147 exit
  131. cmd edit ce 148 message %p% §7%word% is not a custom enchant!
  132. cmd edit ce 149 exit
  133.  
  134. cmd edit ce 160 load %cearena%
  135. cmd edit ce 161 if varset(%cearena%) = %false% then %cearena% = array(0) - array(0)
  136. cmd edit ce 162 let %cearena% = %cearena% + %word%
  137. cmd edit ce 163 message %p% %prefix% §7Successfully added %word% to CeArenas!
  138. cmd edit ce 164 save %cearena%
  139. cmd edit ce 165 exit
  140.  
  141. cmd edit ce 180 load %cearena%
  142. cmd edit ce 181 if varset(%cearena%) = %false% then %cearena% = array(0) - array(0)
  143. cmd edit ce 182 if %word% notin %cearena% then goto 190
  144. cmd edit ce 183 %cearena% = %cearena% - %word%
  145. cmd edit ce 184 message %p% %prefix% §7Successfully removed %word% from CeArenas!
  146. cmd edit ce 185 save %cearena%
  147. cmd edit ce 186 exit
  148. cmd edit ce 190 message %p% %prefix% §7%word% is notin CeArenas!
  149. cmd edit ce 191 exit
  150.  
  151. cmd edit ce 1000 message %p% §b§lCustom Enchants By KingOfTurkey38
  152. cmd edit ce 1001 message %p% §f§l-------------------------------------
  153. cmd edit ce 1002 message %p% §b§lDiscord: KingOfTurkey38#1377
  154. cmd edit ce 1003 message %p% §b§lPlease do not edit this code!
  155. cmd edit ce 1004 message %p% §f§l-------------------------------------
  156. cmd edit ce 1005 exit
  157.  
  158. cmd create loop Custom Enchants by KingOfTurkey38
  159. cmd edit loop 1 load %ce%
  160. cmd edit loop 2 %armor% = playerarmor(%p%)
  161. cmd edit loop 3 %helmet% = %armor%[0]
  162. cmd edit loop 4 %chesplate% = %armor%[1]
  163. cmd edit loop 5 %leggings% = %armor%[2]
  164. cmd edit loop 6 %boots% = %armor%[3]
  165. cmd edit loop 10 if varset(%helmet%[\"tags\"]) = %false% then goto 20
  166. cmd edit loop #Aquatic
  167. cmd edit loop 11 if %ce%[\"aquatic\"] = \"false\" then goto 13
  168. cmd edit loop 12 if \"61717561746963\" in %helmet%[\"tags\"] then goto 100
  169. cmd edit loop #Glowing
  170. cmd edit loop 13 if %ce%[\"glowing\"] = \"false\" then goto 20
  171. cmd edit loop 14 if \"676c6f77696e67\" in %helmet%[\"tags\"] then goto 110
  172. cmd edit loop 20 if varset(%chesplate%[\"tags\"]) = %false% then goto 30
  173. cmd edit loop #Overload
  174. cmd edit loop 21 if %ce%[\"overload\"] = \"false\" then goto 23
  175. cmd edit loop 22 if \"6f7665726c6f6164\" in %chesplate%[\"tags\"] then goto 200
  176. cmd edit loop #Tank
  177. cmd edit loop 23 if %ce%[\"tank\"] = \"false\" then goto 25
  178. cmd edit loop 24 if \"74616e6b\" in %chesplate%[\"tags\"] then goto 210
  179. cmd edit loop #Hulk
  180. cmd edit loop 25 if %ce%[\"hulk\"] = \"false\" then goto 30
  181. cmd edit loop 26 if \"68756c6b\" in %chesplate%[\"tags\"] then goto 220
  182. cmd edit loop 30 if varset(%leggings%[\"tags\"]) = %false% then goto 40
  183. cmd edit loop 31 if %ce%[\"obsidianshield\"] = \"false\" then goto 33
  184. cmd edit loop 32 if \"6f6273696469616e736869656c64\" in %leggings%[\"tags\"] then goto 500
  185. cmd edit loop 33 if %ce%[\"knight\"] = \"false\" then goto 40
  186. cmd edit loop 34 if \"6b6e69676874\" in %leggings%[\"tags\"] then goto 510
  187. cmd edit loop 40 if varset(%boots%[\"tags\"]) = %false% then goto 50
  188. cmd edit loop #gears
  189. cmd edit loop 41 if %ce%[\"gears\"] = \"false\" then goto 43
  190. cmd edit loop 42 if \"6765617273\" in %boots%[\"tags\"] then goto 300
  191. cmd edit loop #springs
  192. cmd edit loop 43 if %ce%[\"springs\"] = \"false\" then goto 50
  193. cmd edit loop 44 if \"737072696e6773\" in %boots%[\"tags\"] then goto 400
  194. cmd edit loop 50 sleep 10
  195. cmd edit loop 51 if %p% notin onlineplayers() then exit
  196. cmd edit loop 52 goto 1
  197. cmd edit loop 53 exit
  198. cmd edit loop 100 ascon /effect %p% water_breathing 15 0
  199. cmd edit loop 101 goto 13
  200. cmd edit loop 102 exit
  201.  
  202. cmd edit loop 110 ascon /effect %p% night_vision 15 0
  203. cmd edit loop 111 goto 20
  204. cmd edit loop 112 exit
  205. cmd edit loop #Overload 1
  206. cmd edit loop 200 ascon if \"6f7665726c6f61642031\" in %chesplate%[\"tags\"] then /effect %p% health_boost 15 0
  207. cmd edit loop #Overload 2
  208. cmd edit loop 201 ascon if \"6f7665726c6f61642032\" in %chesplate%[\"tags\"] then /effect %p% health_boost 15 1
  209. cmd edit loop #Overload 3
  210. cmd edit loop 202 ascon if \"6f7665726c6f61642033\" in %chesplate%[\"tags\"] then /effect %p% health_boost 15 2
  211. cmd edit loop 203 goto 23
  212. cmd edit loop 204 exit
  213. cmd edit loop #Tank 1
  214. cmd edit loop 210 ascon if \"74616e6b2031\" in %chesplate%[\"tags\"] then /effect %p% regeneration 15 0
  215. cmd edit loop #Tank 2
  216. cmd edit loop 211 ascon if \"74616e6b2032\" in %chesplate%[\"tags\"] then /effect %p% regeneration 15 1
  217. cmd edit loop #Tank 3
  218. cmd edit loop 212 ascon if \"74616e6b2033\" in %chesplate%[\"tags\"] then /effect %p% regeneration 15 2
  219. cmd edit loop 213 goto 25
  220. cmd edit loop 214 exit
  221. cmd edit loop #Hulk 1
  222. cmd edit loop 220 ascon if \"68756c6b2031\" in %chesplate%[\"tags\"] then /effect %p% strength 15 0
  223. cmd edit loop #Hulk 2
  224. cmd edit loop 221 ascon if \"68756c6b2032\" in %chesplate%[\"tags\"] then /effect %p% strength 15 1
  225. cmd edit loop #Hulk 3
  226. cmd edit loop 222 ascon if \"68756c6b2033\" in %chesplate%[\"tags\"] then /effect %p% strength 15 2
  227. cmd edit loop 223 goto 30
  228. cmd edit loop 224 exit
  229.  
  230. cmd edit loop #Gears 1
  231. cmd edit loop 300 ascon if \"67656172732031\" in %boots%[\"tags\"] then /effect %p% speed 15 0
  232. cmd edit loop #Gears 2
  233. cmd edit loop 301 ascon if \"67656172732032\" in %boots%[\"tags\"] then /effect %p% speed 15 1
  234. cmd edit loop #Gears 3
  235. cmd edit loop 302 ascon if \"67656172732033\" in %boots%[\"tags\"] then /effect %p% speed 15 2
  236. cmd edit loop 303 goto 43
  237. cmd edit loop 304 exit
  238. cmd edit loop #Springs 1
  239. cmd edit loop 400 ascon if \"737072696e67732031\" in %boots%[\"tags\"] then /effect %p% jump_boost 15 0
  240. cmd edit loop #Springs 2
  241. cmd edit loop 401 ascon if \"737072696e67732032\" in %boots%[\"tags\"] then /effect %p% jump_boost 15 1
  242. cmd edit loop 402 goto 50
  243. cmd edit loop 403 exit
  244. cmd edit loop #ObsidianShield
  245. cmd edit loop 500 ascon /effect %p% fire_resistance 15 0
  246. cmd edit loop 501 goto 33
  247. cmd edit loop 502 exit
  248. cmd edit loop #Knight 1
  249. cmd edit loop 510 ascon if \"6b6e696768742031\" in %leggings%[\"tags\"] then /effect %p% resistance 15 0
  250. cmd edit loop #Knight 2
  251. cmd edit loop 511 ascon if \"6b6e696768742032\" in %leggings%[\"tags\"] then /effect %p% resistance 15 1
  252. cmd edit loop 512 goto 40
  253. cmd edit loop 513 exit
  254.  
  255.  
  256. cmd trigger login loop
  257. cmd unregister loop
  258.  
  259.  
  260.  
  261. cmd create data Custom Enchants by KingOfTurkey38
  262. cmd add data load %ce%
  263. cmd add data %ce% = array(0) - array(0)
  264. cmd add data %ce%[\"angelic\"] = \"true\"
  265. cmd add data %ce%[\"gears\"] = \"true\"
  266. cmd add data %ce%[\"overload\"] = \"true\"
  267. cmd add data %ce%[\"springs\"] = \"true\"
  268. cmd add data %ce%[\"lifesteal\"] = \"true\"
  269. cmd add data %ce%[\"aquatic\"] = \"true\"
  270. cmd add data %ce%[\"list\"] = array(\"angelic\", \"gears\", \"overload\", \"springs\", \"lifesteal\", \"aquatic\")
  271. cmd add data save %ce%
  272. cmd add data load %cearena%
  273. cmd add data let %cearnea% = array(0) - array(0)
  274. cmd add data save %cearena%
  275. cmd run data
  276. cmd delete data
  277.  
  278. cmd create cedamage Custom Enchants by KingOfTurkey38
  279. cmd edit cedamage 1 if %args%[5] != \"attack\" then exit
  280. cmd edit cedamage 2 load %cearena%
  281. cmd edit cedamage 3 if varset(%cearena%) = %false% then goto 6
  282. cmd edit cedamage 4 %damager% = %args%[3]
  283. cmd edit cedamage 5 %reciever% = %args%[2]
  284. cmd edit cedamage 6 if areaname(%level%, %x%, %y%, %z%) notin %cearena% then exit
  285. cmd edit cedamage 7 if (%damager% = %p%) or (%damager% notin onlineplayers()) then exit
  286. cmd edit cedamage 8 if (%reciever% notin onlineplayers()) or (%damager% notin onlineplayers()) then exit
  287. cmd edit cedamage 9 %rhand% = playerhand(%reciever%)
  288. cmd edit cedamage 10 %dhand% = playerhand(%damager%)
  289. cmd edit cedamage 11 if varset(%rhand%[\"tags\"]) = %false% then goto 22
  290.  
  291. cmd edit cedamage 22 if varset(%dhand%[\"tags\"]) = %false% then goto 30
  292. cmd edit cedamage 23 %rand% = random(1, 50)
  293. cmd edit cedamage 24 if (%rand% = 5) and ("6c696665737465616c" in %dhand%[\"tags\"]) then goto 200
  294. cmd edit cedamage 30 %rarmor% = playerarmor(%reciever%)
  295. cmd edit cedamage 31 %leggings% = %rarmor%[2]
  296. cmd edit cedamage 32 %tunic% = %rarmor%[1]
  297. cmd edit cedamage 33 %helmet% = %rarmor%[0]
  298. cmd edit cedamage 34 %boots% = %rarmor%[3]
  299. cmd edit cedamage 35 if varset(%leggings%[\"tags\"]) = %false% then exit
  300. cmd edit cedamage 36 %rand% = random(1, 20)
  301. cmd edit cedamage 37 if (%rand% = 5) and (\"616e67656c6963\" in %leggings%[\"tags\"]) then goto 100
  302. cmd edit cedamage 38 exit
  303. cmd edit cedamage
  304. cmd edit cedamage 100 %status% = playerstatus(%reciever%)
  305. cmd edit cedamage 102 if 4 >= %status%[\"health\"] then goto 110
  306. cmd edit cedamage 103 exit
  307. cmd edit cedamage 110 message %reciever% §b§l**ANGELIC**
  308. cmd edit cedamage 111 ascon /effect %reciever% regeneration 10 2
  309. cmd edit cedamage 112 exit
  310.  
  311. cmd delete cedamage 200 %status% = playerstatus(%damager%)
  312. cmd delete cedamage 201 if 18 < %status%[\"health\"] then goto 210
  313. cmd delete cedamage 202 goto 30
  314. cmd edit cedamage 200 %status% = playerstatus(%damager%)
  315. cmd edit cedamage 201 if (%status%[\"health\"] = 20) or (%status%[\"health\"] = 19) or (%status%[\"health\"] = 18) then exit
  316. cmd edit cedamage 210 message %damager% §b§l**LIFESTEAL**
  317. cmd edit cedamage 211 %newhp% = %status%[\"health\"] + 4
  318. cmd edit cedamage 212 treat %damager% %newhp%
  319. cmd edit cedamage 213 goto 30
  320. cmd unregister cedamage
  321. cmd trigger damage cedamage
  322.  
  323. cmd create cebreak Custom Enchants by KingOfTurkey38
  324. cmd edit cebreak 1 load %cearena%
  325. cmd edit cebreak 2 if varset(%cearena%) = %false% then goto 4
  326. cmd edit cebreak 3 if areaname(%level%, %x%, %y%, %z%) notin %cearena% then exit
  327. cmd edit cebreak 4 %hand% = playerhand(%p%)
  328. cmd edit cebreak 5 if varset(%hand%[\"tags\"]) = %false% then exit
  329. cmd edit cebreak 6 load %ce%
  330. cmd edit cebreak 7 if varset(%ce%) = %false% then exit
  331. cmd edit cebreak 8 if %ce%[\"quickmine\"] = \"false\" then exit
  332. cmd edit cebreak 9 ascon if \"717569636b6d696e65\" in %hand%[\"tags\"] then /effect %p% haste 3 0
  333. cmd edit cebreak 10 exit
  334.  
  335. cmd unregister cebreak
  336. cmd trigger break cebreak
  337.  
  338.  
  339. #ADDLORE BY CHINAGIRLNL SHES DISCORD: ChinaGirlNL#5723 ALL CREDITS OF ADDLORE GOES TO HER!
  340.  
  341. cmd create addlore
  342. cmd add addlore %h% = playerhand(%p%)
  343. cmd add addlore if %h%[\"id\"] = 0 then message %p% Hold the item you want to edit
  344. cmd add addlore if %h%[\"id\"] = 0 then exit
  345. cmd add addlore %inv% = playerinventory(%p%)
  346. cmd add addlore %t% = %h%[\"tags\"]
  347. cmd add addlore %slot% = %h%[\"invslot\"]
  348. cmd add addlore %item%[\"id\"] = %h%[\"id\"]
  349. cmd add addlore %item%[\"variant\"] = %h%[\"variant\"]
  350. cmd add addlore %item%[\"count\"] = %h%[\"count\"]
  351. cmd add addlore %item%[\"name\"] = %h%[\"name\"]
  352. cmd add addlore if varset(%args%[1]) = %false% then message %p% Usage: /addlore <content>
  353. cmd add addlore if varset(%args%[1]) = %false% then exit
  354. cmd add addlore %str% = join(%args%[1+], \" \")
  355. cmd add addlore %strl% = size(%str%)
  356. cmd add addlore load %hexadecimal%
  357. cmd add addlore if varset(%hexadecimal%[\"encode\"]) = %false% then %hexadecimal%[\"encode\"] = array(0) - array(0)
  358. cmd add addlore %enc% = %hexadecimal%[\"encode\"]
  359. cmd add addlore %num% = int(0)
  360.  
  361.  
  362. cmd edit addlore 99 #99
  363. cmd add addlore %sub% = substring(%str%, %num%, 1)
  364. cmd add addlore if varset(%enc%[%sub%]) = %false% then message %p% You've either used a wrong character or didn't create the hexadecimal variable. Please, contact the developer (%sub%)
  365. cmd add addlore if varset(%enc%[%sub%]) = %false% then exit
  366. cmd add addlore if varset(%e%) = %true% then %e% = %e% + %enc%[%sub%]
  367. cmd add addlore if varset(%e%) = %false% then %e% = %enc%[%sub%]
  368. cmd add addlore %num% = %num% + 1
  369. cmd add addlore if %num% < %strl% then goto 100
  370. cmd add addlore %l% = size(%e%) / 2
  371. cmd add addlore %pos% = %hexadecimal%[\"position\"]
  372. cmd add addlore if varset(%pos%[%l%]) = %false% then message %p% Too many characters (%l%/159)
  373. cmd add addlore if varset(%pos%[%l%]) = %false% then exit
  374. cmd add addlore %l% = %pos%[%l%]
  375. cmd add addlore if %t% = \"\" then goto 200
  376. cmd add addlore if (\"0a0700646973706c6179\" in %t%) and (\"0904004c6f726508\" in %t%) then goto 300
  377. cmd add addlore if \"0a0700646973706c6179\" in %t% then goto 400
  378. cmd add addlore goto 500
  379.  
  380.  
  381. cmd edit addlore 199 #Empty
  382. cmd add addlore %new% = \"0a00000a0700646973706c61790904004c6f72650801000000\" + %l% + \"00\" + %e% + \"0000\"
  383. cmd add addlore goto 1000
  384. cmd add addlore exit
  385.  
  386.  
  387. cmd edit addlore 299 #With lore
  388. cmd add addlore %asp% = position(%t%, \"0904004c6f726508\") + 16
  389. cmd add addlore %aspr% = %asp% + 2
  390. cmd add addlore %aspe% = size(%t%) - %aspr%
  391. cmd add addlore %sub1% = substring(%t%, 0, %asp%)
  392. cmd add addlore %sub2% = substring(%t%, %aspr%, %aspe%)
  393. cmd add addlore %sub3% = substring(%t%, %asp%, 2)
  394. cmd add addlore %dec% = int(position(%pos%, %sub3%)) + 1
  395. cmd add addlore %hex% = %pos%[%dec%]
  396. cmd add addlore %t% = %sub1% + %hex% + %sub2%
  397. #Expanded index
  398. cmd add addlore %nip% = position(%t%, \"0904004c6f726508\") + 24
  399. cmd add addlore %nipe% = size(%t%) - %nip%
  400. cmd add addlore %sub1% = substring(%t%, 0, %nip%)
  401. cmd add addlore %sub2% = substring(%t%, %nip%, %nipe%)
  402. cmd add addlore %new% = %sub1% + %l% + \"00\" + %e% + %sub2%
  403. cmd add addlore goto 1000
  404.  
  405.  
  406. cmd edit addlore 399 #With name
  407. cmd add addlore %dp% = position(%t%, \"0a0700646973706c6179\") + 20
  408. cmd add addlore %dpe% = size(%t%) - %dp%
  409. cmd add addlore %sub1% = substring(%t%, 0, %dp%)
  410. cmd add addlore %sub2% = substring(%t%, %dp%, %dpe%)
  411. cmd add addlore %new% = %sub1% + \"0904004c6f72650801000000\" + %l% + \"00\" + %e% + %sub2%
  412. cmd add addlore goto 1000
  413.  
  414.  
  415. cmd edit addlore 499 #With tags
  416. cmd add addlore %s% = size(%t%) - 2
  417. cmd add addlore %sub1% = substring(%t%, 0, %s%)
  418. cmd add addlore %new% = %sub1% + \"0a0700646973706c61790904004c6f72650801000000\" + %l% + \"00\" + %e% + \"0000\"
  419. cmd add addlore goto 1000
  420.  
  421.  
  422. cmd edit addlore 999 #End
  423. cmd add addlore %item%[\"tags\"] = %new%
  424. cmd add addlore %inv%[%slot%] = %item%
  425. cmd add addlore carry %p% %inv%
  426. cmd add addlore exit
  427.  
  428.  
  429.  
  430.  
  431. cmd create hexadecimal
  432. cmd add hexadecimal %enci% = array(\" \", \"!\", \"#\", \"$\", \"%\", \"&\", \"'\", \"(\", \")\", \"*\", \"+\", \",\", \"-\", \".\", \"/\")
  433. cmd add hexadecimal %enci% = %enci% + array(\"0\", \"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \":\", \";\", \"<\", \"=\", \">\", \"?\", \"@\")
  434. cmd add hexadecimal %enci% = %enci% + array(\"A\", \"B\", \"C\", \"D\", \"E\", \"F\", \"G\", \"H\", \"I\", \"J\", \"K\", \"L\", \"M\", \"N\", \"O\", \"P\", \"Q\", \"R\", \"S\", \"T\", \"U\", \"V\", \"W\", \"X\", \"Y\", \"Z\", \"[\", \"]\", \"^\", \"_\", \"`\")
  435. cmd add hexadecimal %enci% = %enci% + array(\"a\", \"b\", \"c\", \"d\", \"e\", \"f\", \"g\", \"h\", \"i\", \"j\", \"k\", \"l\", \"m\", \"n\", \"o\", \"p\", \"q\", \"r\", \"s\", \"t\", \"u\", \"v\", \"w\", \"x\", \"y\", \"z\", \"{\", \"|\", \"}\", \"~\", \"§\", \"€\")
  436. cmd add hexadecimal %encv% = array(\"20\", \"21\", \"23\", \"24\", \"25\", \"26\", \"27\", \"28\", \"29\", \"2a\", \"2b\", \"2c\", \"2d\", \"2e\", \"2f\")
  437. cmd add hexadecimal %encv% = %encv% + array(\"30\", \"31\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"38\", \"39\", \"3a\", \"3b\", \"3c\", \"3d\", \"3e\", \"3f\", \"40\")
  438. cmd add hexadecimal %encv% = %encv% + array(\"41\", \"42\", \"43\", \"44\", \"45\", \"46\", \"47\", \"48\", \"49\", \"4a\", \"4b\", \"4c\", \"4d\", \"4e\", \"4f\", \"50\", \"51\", \"52\", \"53\", \"54\", \"55\", \"56\", \"57\", \"58\", \"59\", \"5a\", \"5b\", \"5d\", \"5e\", \"5f\", \"60\")
  439. cmd add hexadecimal %encv% = %encv% + array(\"61\", \"62\", \"63\", \"64\", \"65\", \"66\", \"67\", \"68\", \"69\", \"6a\", \"6b\", \"6c\", \"6d\", \"6e\", \"6f\", \"70\", \"71\", \"72\", \"73\", \"74\", \"75\", \"76\", \"77\", \"78\", \"79\", \"7a\", \"7b\", \"7c\", \"7d\", \"7e\", \"c2a7\", \"e282ac\")
  440. cmd add hexadecimal %num% = int(0)
  441. cmd add hexadecimal %l% = size(%enci%)
  442. cmd add hexadecimal %ind% = %enci%[%num%]
  443. cmd add hexadecimal %val% = %encv%[%num%]
  444. cmd add hexadecimal %encode%[%ind%] = %val%
  445. cmd add hexadecimal %decode%[%val%] = %ind%
  446. cmd add hexadecimal %num% = %num% + 1
  447. cmd add hexadecimal if %num% != %l% then goto 11
  448. cmd add hexadecimal %hexadecimal%[\"encode\"] = %encode%
  449. cmd add hexadecimal %hexadecimal%[\"decode\"] = %decode%
  450. cmd add hexadecimal #Position 0-159
  451. cmd add hexadecimal %hexadecimal%[\"position\"] = array(\"00\", \"01\", \"02\", \"03\", \"04\", \"05\", \"06\", \"07\", \"08\", \"09\", \"0a\", \"0b\", \"0c\", \"0d\", \"0e\", \"0f\", \"01\", \"02\", \"03\", \"04\", \"05\", \"06\", \"07\", \"08\", \"09\", \"10\", \"11\", \"12\", \"13\", \"14\", \"15\", \"16\", \"17\", \"18\", \"19\", \"1a\", \"1b\", \"1c\", \"1d\", \"1e\", \"1f\")
  452. cmd add hexadecimal %hexadecimal%[\"position\"] = %hexadecimal%[\"position\"] + array(\"20\", \"21\", \"22\", \"23\", \"24\", \"25\", \"26\", \"27\", \"28\", \"29\", \"2a\", \"2b\", \"2c\", \"2d\", \"2e\", \"2f\", \"30\", \"31\", \"32\", \"33\", \"34\", \"35\", \"36\", \"37\", \"38\", \"39\", \"3a\", \"3b\", \"3c\", \"3d\", \"3e\", \"3f\")
  453. cmd add hexadecimal %hexadecimal%[\"position\"] = %hexadecimal%[\"position\"] + array(\"40\", \"41\", \"42\", \"43\", \"44\", \"45\", \"46\", \"47\", \"48\", \"49\", \"4a\", \"4b\", \"4c\", \"4d\", \"4e\", \"4f\", \"50\", \"51\", \"52\", \"53\", \"54\", \"55\", \"56\", \"57\", \"58\", \"59\", \"5a\", \"5b\", \"5c\", \"5d\", \"5e\", \"5f\")
  454. cmd add hexadecimal %hexadecimal%[\"position\"] = %hexadecimal%[\"position\"] + array(\"60\", \"61\", \"62\", \"63\", \"64\", \"65\", \"66\", \"67\", \"68\", \"69\", \"6a\", \"6b\", \"6c\", \"6d\", \"6e\", \"6f\", \"70\", \"71\", \"72\", \"73\", \"74\", \"75\", \"76\", \"77\", \"78\", \"79\", \"7a\", \"7b\", \"7c\", \"7d\", \"7e\", \"7f\")
  455. cmd add hexadecimal %hexadecimal%[\"position\"] = %hexadecimal%[\"position\"] + array(\"80\", \"81\", \"82\", \"83\", \"84\", \"85\", \"86\", \"87\", \"88\", \"89\", \"8a\", \"8b\", \"8c\", \"8d\", \"8e\", \"8f\", \"90\", \"91\", \"92\", \"93\", \"94\", \"95\", \"96\", \"97\", \"98\", \"99\", \"9a\", \"9b\", \"9c\", \"9d\", \"9e\", \"9f\")
  456. cmd add hexadecimal save %hexadecimal%
  457. cmd run hexadecimal
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement