API tools faq
paste
LoveAbleElf

pirates

LoveAbleElf
Aug 3rd, 2020
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 31.19 KB | None | 0 0
raw download clone embed print report
  1. [Addon]
  2. Script=Pirates-GamePad
  3. Version=1.9.3
  4. Author=QuietSilence
  5. Desc=!Pirates Game Pad
  6. For=DragonRyder
  7. Date=June 26th 2020
  8. ;NOTE: mod done with permission from MrUno
  9.  
  10. menu nicklist {
  11. Pirates
  12. .Duel: /say P duel $1
  13. .Rob: /say P rob $1
  14. .Status: /say P Status $1
  15. .Power: /say P Power $1
  16. .Stamina:/say P Stamina $1
  17. .Weapon: /say P weapon $1
  18. .Insult : /say P insult $1
  19. .Lockpick : /say P Lockpick $1
  20. .Info : /say P Info $1
  21. .Charver : /say P Charver $1
  22. }
  23.  
  24. menu channel {
  25. !Pirates GamePad: {
  26. set %pirates.chan $iif(%pirates.chan != $chan,$iif($$input(Change !Pirates channel to $chan $+ ?,y,Pirates Channel is %pirates.chan),$chan,%pirates.chan),$chan)
  27. if (%pirates.chan == $chan) { dialog $iif(!$dialog(DRDT-PiratesAddon),-mdo,-ev) DRDT-PiratesAddon DRDT-PiratesAddon }
  28. }
  29. }
  30.  
  31. ;----------------------------------------------------------------------------------------------------------
  32.  
  33. dialog DRDT-PiratesAddon {
  34. title "!Pirates Game Pad v1.0"
  35. size 725 0 288 155
  36. option dbu
  37. icon pirates.ico, 1
  38. tab "Player", 1000, 2 1 284 152
  39. button "Bored", 18, 180 37 32 10, tab 1000
  40. button "Awake", 44, 113 77 32 10, tab 1000
  41. button "Bot", 40, 252 37 32 10, tab 1000
  42. button "Brig", 218, 146 57 32 10, tab 1000
  43. button "Weapon", 219, 217 27 32 10, tab 1000
  44. button "Dig", 19, 76 37 32 10, tab 1000
  45. button "Fish", 25, 76 27 32 10, tab 1000
  46. button "Crabbin", 26, 216 111 32 10, tab 1000
  47. button "Work", 27, 76 57 32 10, tab 1000
  48. button "Steal", 220, 181 111 32 10, tab 1000
  49. button "love", 28, 4 121 32 10, tab 1000
  50. button "Hate", 29, 4 131 32 10, tab 1000
  51. button "legends", 30, 146 47 32 10, tab 1000
  52. button "Scour", 31, 41 111 32 10, tab 1000
  53. button "Maps", 32, 180 27 32 10, tab 1000
  54. button "Mutiny", 315, 4 141 32 10, tab 1000
  55. button "Party", 316, 146 111 32 10, tab 1000
  56. button "Rusty", 402, 180 47 32 10, tab 1000
  57. button "Search", 41, 41 121 32 10, tab 1000
  58. button "Daily", 13, 113 37 32 10, tab 1000
  59. button "Goals", 14, 113 47 32 10, tab 1000
  60. button "Heal", 314, 252 47 32 10, tab 1000
  61. button "Lockpick", 211, 181 121 32 10, tab 1000
  62. button "Snatch", 16, 181 131 32 10, tab 1000
  63. button "Dive", 17, 76 47 32 10, tab 1000
  64. button "Top", 401, 113 27 32 10, tab 1000
  65. button "Brandy", 312, 217 57 32 10, tab 1000
  66. button "Bounties", 54, 217 67 32 10, tab 1000
  67. button "Mercy", 313, 113 121 32 10, tab 1000
  68. button "Stamina", 212, 217 37 32 10, tab 1000
  69. button "Ship Status", 42, 251 111 32 10, tab 1000
  70. button "Troll", 213, 76 131 32 10, tab 1000
  71. button "Tasks", 1, 146 27 32 10, tab 1000
  72. button "Carry", 2, 4 57 32 10, tab 1000
  73. button "About", 11, 180 57 32 10, tab 1000
  74. button "Achievement", 12, 147 87 65 10, tab 1000
  75. button "Rest", 21, 146 121 32 10, tab 1000
  76. button "Capn Favor", 22, 251 141 32 10, tab 1000
  77. button "Scuttlebutt", 24, 216 131 32 10, tab 1000
  78. button "Rig", 8, 4 47 32 10, tab 1000
  79. button "Steer", 9, 41 47 32 10, tab 1000
  80. button "Repair", 7, 41 37 32 10, tab 1000
  81. button "Fix", 5, 41 57 32 10, tab 1000
  82. button "lookout", 6, 4 37 32 10, tab 1000
  83. button "Cook", 4, 41 27 32 10, tab 1000
  84. button "Age", 10, 113 57 32 10, tab 1000
  85. button "Clean", 3, 4 27 32 10, tab 1000
  86. button "Swab", 15, 4 67 32 10, tab 1000
  87. button "Info", 214, 146 37 32 10, tab 1000
  88. button "Power", 215, 217 47 32 10, tab 1000
  89. button "Level", 221, 252 27 32 10, tab 1000
  90. button "Request", 39, 4 111 32 10, tab 1000
  91. button "Insult", 216, 76 121 32 10, tab 1000
  92. button "DaveyJones", 217, 76 111 32 10, tab 1000
  93. text "Players", 500, 76 99 32 10, tab 1000 center
  94. text "Miscellaneous", 501, 113 99 65 10, tab 1000 center
  95. text "Lvl 1-5", 502, 4 17 32 10, tab 1000 center
  96. text "Lvl 6-9", 503, 41 17 32 10, tab 1000 center
  97. text "Lvl 10+", 504, 76 17 32 10, tab 1000 center
  98. text "Info", 505, 113 17 99 10, tab 1000 center
  99. text "Fight", 506, 217 17 67 10, tab 1000 center
  100. text "Theff", 507, 181 99 32 10, tab 1000 center
  101. text "Captain", 508, 4 99 32 10, tab 1000 center
  102. text "Capn Cmds", 509, 251 99 32 10, tab 1000 center
  103. text "Find", 510, 41 99 32 10, tab 1000 center
  104. button "Train", 317, 76 67 32 10, tab 1000
  105. button "Cap Cmd", 318, 251 121 32 10, tab 1000
  106. button "Aye", 52, 146 131 32 10, tab 1000
  107. button "Chest", 46, 113 131 32 10, tab 1000
  108. button "Relations", 33, 146 67 32 10, tab 1000
  109. button "WWW", 34, 180 77 32 10, tab 1000
  110. button "Rum", 561, 252 57 32 10, tab 1000
  111. button "Wench", 254, 252 67 32 10, tab 1000
  112. button "Requests", 43, 251 131 32 10, tab 1000
  113. button "Today", 831, 113 67 32 10, tab 1000
  114. button "Rep", 830, 180 67 32 10, tab 1000
  115. button "Duel", 815, 217 77 32 10, tab 1000
  116. button "Defend", 832, 113 111 32 10, tab 1000
  117. text "Skills", 20, 216 99 32 10, tab 1000 center
  118. button "Charver", 179, 76 141 32 10, tab 1000
  119. button "Gamble 5", 23, 216 121 32 10, tab 1000
  120. button "Status", 178, 146 77 32 10, tab 1000
  121. button "Fight !", 101, 252 77 32 10, tab 1000
  122. tab "Buy and Sell", 1001
  123. button "Chest", 45, 180 101 32 10, tab 1001
  124. text "Fruit", 515, 76 82 66 10, tab 1001 center
  125. text "Chest Locks", 516, 214 17 32 10, tab 1001 center
  126. text "Chest Traps", 517, 248 17 32 10, tab 1001 center
  127. text "Chests", 518, 181 17 32 10, tab 1001 center
  128. text "Goods", 519, 214 91 32 10, tab 1001 center
  129. button "Herbs", 520, 112 17 32 10, tab 1001
  130. button "Poisons", 521, 146 17 32 10, tab 1001
  131. text "Tavern", 522, 44 82 30 10, tab 1001 center
  132. button "Coin", 523, 44 17 32 10, tab 1001
  133. button "Elixir", 524, 78 17 32 10, tab 1001
  134. button "Curse", 525, 4 17 36 10, tab 1001
  135. text "Upgrade", 527, 248 91 32 10, tab 1001 center
  136. text "Chest", 526, 180 91 32 10, tab 1001 center
  137. button "Bomb", 85, 248 67 32 10, tab 1001
  138. button "Spike", 86, 248 57 32 10, tab 1001
  139. button "Poison", 87, 248 47 32 10, tab 1001
  140. button "Acid", 88, 248 37 32 10, tab 1001
  141. button "Curse", 89, 248 27 32 10, tab 1001
  142. button "large", 158, 181 37 32 10, tab 1001
  143. button "Medium", 157, 181 27 32 10, tab 1001
  144. button "Guava", 90, 76 122 32 10, tab 1001
  145. button "Gooseberries", 91, 76 132 34 10, tab 1001
  146. button "Genips", 92, 76 112 32 10, tab 1001
  147. button "Chayote", 93, 76 102 32 10, tab 1001
  148. button "Ugli", 94, 112 132 30 10, tab 1001
  149. button "Orange", 95, 110 122 32 10, tab 1001
  150. button "Noni", 96, 110 112 32 10, tab 1001
  151. button "Star", 97, 110 142 32 10, tab 1001
  152. button "Soursop", 98, 76 142 32 10, tab 1001
  153. button "Mameyl", 99, 110 102 32 10, tab 1001
  154. button "Luxuries", 150, 214 141 32 10, tab 1001
  155. button "Materials", 146, 214 131 32 10, tab 1001
  156. button "Sugar", 147, 214 121 32 10, tab 1001
  157. button "Spice", 148, 214 111 32 10, tab 1001
  158. button "Food", 149, 214 101 32 10, tab 1001
  159. button "Anzid", 80, 146 27 32 10, tab 1001
  160. button "Green", 47, 112 27 32 10, tab 1001
  161. button "Sell", 56, 180 111 32 10, tab 1001
  162. button "Sell All", 57, 180 131 32 10, tab 1001
  163. button "Steel", 154, 214 57 32 10, tab 1001
  164. button "Brass", 151, 214 47 32 10, tab 1001
  165. button "Copper", 152, 214 37 32 10, tab 1001
  166. button "Iron", 153, 214 27 32 10, tab 1001
  167. button "Disease", 35, 76 92 66 10, tab 1001
  168. button "Water", 72, 44 92 30 10, tab 1001
  169. button "Rum", 73, 44 102 30 10, tab 1001
  170. button "Mead", 74, 44 112 30 10, tab 1001
  171. button "Wine", 75, 44 122 30 10, tab 1001
  172. button "Whiskey", 76, 44 132 30 10, tab 1001
  173. button "Brandy", 77, 44 142 30 10, tab 1001
  174. button "LockPick", 55, 214 67 32 10, tab 1001
  175. button "Goods", 833, 180 121 32 10, tab 1001
  176. button "Use", 61, 180 141 32 10, tab 1001
  177. button "Yellow", 49, 112 37 32 10, tab 1001
  178. button "Red", 51, 112 57 32 10, tab 1001
  179. button "Brown", 48, 112 47 32 10, tab 1001
  180. button "Blue", 50, 112 67 32 10, tab 1001
  181. button "Nightbane", 83, 146 37 32 10, tab 1001
  182. button "Mosfungus", 79, 146 47 32 10, tab 1001
  183. button "Furux", 81, 146 57 32 10, tab 1001
  184. button "Nightmother", 84, 146 67 32 10, tab 1001
  185. button "Bokor", 82, 146 77 32 10, tab 1001
  186. button "Plague", 165, 4 67 36 10, tab 1001
  187. button "Imprisonment", 164, 4 57 36 10, tab 1001
  188. button "Expel", 163, 4 47 36 10, tab 1001
  189. button "Shift", 162, 4 77 36 10, tab 1001
  190. button "Destruction", 160, 4 37 36 10, tab 1001
  191. button "Decay", 159, 4 27 36 10, tab 1001
  192. button "Zonbiness", 161, 4 87 36 10, tab 1001
  193. button "Ducatoon", 168, 44 27 32 10, tab 1001
  194. button "Farthing", 169, 44 37 32 10, tab 1001
  195. button "Denier", 167, 44 47 32 10, tab 1001
  196. button "Cob", 166, 44 57 32 10, tab 1001
  197. button "Shadow", 173, 78 27 32 10, tab 1001
  198. button "Health", 172, 78 37 32 10, tab 1001
  199. button "Gun", 176, 248 101 32 10, tab 1001
  200. button "Sword", 177, 248 111 32 10, tab 1001
  201. link "Market Items", 116, 59 71 34 8, tab 1001
  202. tab "Captain", 1002
  203. button "Bonus ", 800, 4 25 32 10, tab 1002
  204. button "Brig", 801, 4 37 32 10, tab 1002
  205. button "Command", 802, 162 25 32 10, tab 1002
  206. button "Demote", 803, 4 49 32 10, tab 1002
  207. button "Free", 804, 4 61 32 10, tab 1002
  208. button "Flog", 805, 4 73 32 10, tab 1002
  209. button "Map", 806, 4 85 32 10, tab 1002
  210. button "Parlay", 808, 40 25 32 10, tab 1002
  211. button "Plank", 809, 40 37 32 10, tab 1002
  212. button "Promote", 810, 40 49 32 10, tab 1002
  213. button "Rum", 811, 40 61 32 10, tab 1002
  214. button "Rumor", 812, 40 73 32 10, tab 1002
  215. button "Voucher", 813, 40 85 32 10, tab 1002
  216. button "Monster", 814, 82 61 32 10, tab 1002
  217. button "Party", 829, 82 73 32 10, tab 1002
  218. button "Mass Find", 816, 82 49 32 10, tab 1002
  219. button "Quest", 817, 82 85 32 10, tab 1002
  220. button "Rest", 818, 118 25 32 10, tab 1002
  221. button "Riddle", 819, 118 37 32 10, tab 1002
  222. button "Share", 820, 118 49 32 10, tab 1002
  223. button "Special", 821, 118 61 32 10, tab 1002
  224. button "Rep", 822, 162 61 32 10, tab 1002
  225. button "Teleport", 823, 118 73 32 10, tab 1002
  226. button "Request", 824, 162 37 32 10, tab 1002
  227. button "Favor", 825, 162 73 32 10, tab 1002
  228. button "Find", 826, 82 37 32 10, tab 1002
  229. button "Crew Bonus", 827, 82 25 32 10, tab 1002
  230. button "Stats", 828, 162 49 32 10, tab 1002
  231. button "Sail To", 59, 101 123 32 10, tab 1002
  232. button "Confirm", 36, 137 123 32 10, tab 1002
  233. link "Map", 78, 102 137 12 10, tab 1002
  234. tab "Miscellaneous", 1004
  235. text "Requests", 437, 4 17 101 8, tab 1004 center
  236. text "Ports", 454, 108 17 67 8, tab 1004 center
  237. button "Crew Bonus", 420, 4 27 32 10, tab 1004
  238. button "Find", 421, 4 39 32 10, tab 1004
  239. button "Mass Find", 422, 4 51 32 10, tab 1004
  240. button "Monster", 423, 4 63 32 10, tab 1004
  241. button "Party", 424, 4 75 32 10, tab 1004
  242. button "Quest", 425, 4 87 32 10, tab 1004
  243. button "Rest", 426, 38 27 32 10, tab 1004
  244. button "Share", 427, 38 39 32 10, tab 1004
  245. button "Rumor", 428, 38 51 32 10, tab 1004
  246. button "Bonus", 429, 38 63 32 10, tab 1004
  247. button "Map", 430, 38 75 32 10, tab 1004
  248. button "Parlay", 431, 38 87 32 10, tab 1004
  249. button "Punish", 432, 72 27 32 10, tab 1004
  250. button "Rum", 433, 72 39 32 10, tab 1004
  251. button "Voucher", 434, 72 51 32 10, tab 1004
  252. button "Sail", 435, 72 63 32 10, tab 1004
  253. button "Doubloons", 438, 4 111 32 10, tab 1004
  254. button "Ornamental", 439, 4 123 32 10, tab 1004
  255. button "Power", 440, 4 135 32 10, tab 1004
  256. button "Random", 441, 40 111 32 10, tab 1004
  257. button "Stamina", 442, 40 123 32 10, tab 1004
  258. button "Voucher", 443, 40 135 32 10, tab 1004
  259. text "Rewards", 444, 4 99 69 8, tab 1004 center
  260. button "Port", 445, 108 27 32 10, tab 1004
  261. button "Faction", 446, 108 39 32 10, tab 1004
  262. button "Closest", 447, 108 51 32 10, tab 1004
  263. button "Claimed", 448, 108 63 32 10, tab 1004
  264. button "Status", 449, 142 27 32 10, tab 1004
  265. button "Today", 450, 142 39 32 10, tab 1004
  266. button "Unclaimed", 451, 142 51 32 10, tab 1004
  267. button "Winner", 452, 142 63 32 10, tab 1004
  268. button "Rep", 453, 108 85 32 10, tab 1004
  269. button "Charisma", 455, 176 33 32 10, tab 1004
  270. button "Defense", 456, 210 33 32 10, tab 1004
  271. button "Fishing", 457, 244 33 32 10, tab 1004
  272. button "Luck", 458, 176 45 32 10, tab 1004
  273. button "Meditation", 459, 210 45 32 10, tab 1004
  274. button "Marksmanship", 460, 176 57 44 10, tab 1004
  275. button "Thievery", 461, 244 45 32 10, tab 1004
  276. button "Swordsmanship", 462, 232 57 44 10, tab 1004
  277. text "Quit", 463, 176 109 101 8, tab 1004 center
  278. text "Forget", 464, 176 67 101 8, tab 1004 center
  279. text "Start", 465, 176 25 103 8, tab 1004 center
  280. text "Skills", 466, 176 17 103 8, tab 1004 center
  281. button "Charisma", 467, 176 75 32 10, tab 1004
  282. button "Defense", 468, 210 75 32 10, tab 1004
  283. button "Fishing", 469, 244 75 32 10, tab 1004
  284. button "Luck", 470, 176 87 32 10, tab 1004
  285. button "Meditation", 471, 210 87 32 10, tab 1004
  286. button "Marksmanship", 472, 176 99 44 10, tab 1004
  287. button "Thievery", 473, 244 87 32 10, tab 1004
  288. button "Swordsmanship", 474, 232 99 44 10, tab 1004
  289. button "Charisma", 475, 176 117 32 10, tab 1004
  290. button "Defense", 476, 210 117 32 10, tab 1004
  291. button "Fishing", 477, 244 117 32 10, tab 1004
  292. button "Luck", 478, 176 129 32 10, tab 1004
  293. button "Meditation", 479, 210 129 32 10, tab 1004
  294. button "Marksmanship", 480, 176 141 44 10, tab 1004
  295. button "Thievery", 481, 244 129 32 10, tab 1004
  296. button "Swordsmanship", 482, 232 141 44 10, tab 1004
  297. button "Ports", 100, 142 74 32 10, tab 1004
  298. button "Port Info", 53, 108 74 32 10, tab 1004
  299. tab "Ship/Wright", 3000
  300. button "Captain", 700, 4 29 32 10, tab 3000
  301. button "HP", 701, 4 41 32 10, tab 3000
  302. button "Near", 705, 4 53 32 10, tab 3000
  303. button "Ordnance", 706, 4 65 32 10, tab 3000
  304. button "Players", 707, 42 29 32 10, tab 3000
  305. button "Ports", 708, 42 41 32 10, tab 3000
  306. button "Stats", 709, 42 53 32 10, tab 3000
  307. button "Status", 710, 42 65 32 10, tab 3000
  308. button "Tasks", 703, 78 53 32 10, tab 3000
  309. button "Treasure", 702, 78 41 32 10, tab 3000
  310. button "Upgrades", 704, 78 29 32 10, tab 3000
  311. button "Insult", 713, 78 77 32 10, tab 3000
  312. button "Message", 712, 4 77 32 10, tab 3000
  313. button "Info", 711, 78 65 32 10, tab 3000
  314. button "Taunt", 714, 42 77 32 10, tab 3000
  315. text "Ship", 716, 4 17 107 10, tab 3000 center
  316. button "Repair", 102, 114 41 32 10, tab 3000
  317. button "Cannon", 103, 114 77 32 10, tab 3000
  318. button "Grease", 104, 114 65 32 10, tab 3000
  319. button "Clean", 105, 114 53 32 10, tab 3000
  320. button "Exploding", 106, 149 41 32 10, tab 3000
  321. button "Canister", 107, 149 53 32 10, tab 3000
  322. button "Chain", 108, 149 65 32 10, tab 3000
  323. button "Teleport Stone", 109, 235 65 48 10, tab 3000
  324. button "Harpoon", 110, 184 65 48 10, tab 3000
  325. button "Cotton Sails", 111, 184 53 48 10, tab 3000
  326. button "Copper Plating", 112, 235 41 48 10, tab 3000
  327. button "Fine-Grain Powder", 113, 235 53 48 10, tab 3000
  328. button "Bronze Cannons", 114, 184 41 48 10, tab 3000
  329. text "Ship Wright", 120, 114 17 169 10, tab 3000 center
  330. text "Shot", 117, 149 29 32 10, tab 3000 center
  331. text "Upgrades", 118, 183 29 100 10, tab 3000 center
  332. text "Basic", 119, 114 29 32 10, tab 3000 center
  333. link "UpGrades", 115, 219 77 24 9, tab 3000
  334. tab "Store", 62
  335. button "Bribe", 552, 6 66 32 10, tab 62
  336. button "Sell Gun", 250, 6 36 32 10, tab 62
  337. button "Sell Sword", 251, 6 46 32 10, tab 62
  338. button "Buy Sword", 252, 38 46 32 10, tab 62
  339. button "Buy Gun", 253, 38 36 32 10, tab 62
  340. button "Spouse", 553, 38 76 32 10, tab 62
  341. button "Sharpen", 554, 38 26 32 10, tab 62
  342. button "Youth", 155, 6 76 32 10, tab 62
  343. button "Parlay", 156, 38 66 32 10, tab 62
  344. button "Rum", 556, 6 26 32 10, tab 62
  345. button "Nickname", 58, 70 76 40 10, tab 62
  346. button "Rename Gun", 37, 70 56 40 10, tab 62
  347. button "Repair Gun", 558, 70 36 40 10, tab 62
  348. button "Repair Sword", 559, 70 46 40 10, tab 62
  349. button "Rename Sword", 38, 70 66 40 10, tab 62
  350. button "Custom", 60, 38 56 32 10, tab 62
  351. button "Male", 63, 8 104 32 10, tab 62
  352. button "Female", 64, 40 104 32 10, tab 62
  353. button "Undisclosed", 65, 72 104 32 10, tab 62
  354. button "Native", 66, 40 140 32 10, tab 62
  355. button "English", 67, 8 130 32 10, tab 62
  356. button "Jesuit", 68, 72 140 32 10, tab 62
  357. button "Spanish", 71, 72 130 32 10, tab 62
  358. button "French", 69, 40 130 32 10, tab 62
  359. button "Dutch", 70, 8 140 32 10, tab 62
  360. text "Buy Faction", 511, 4 120 104 10, tab 62 center
  361. text "Buy Gender", 512, 4 94 104 10, tab 62 center
  362. button "Lottery", 319, 6 56 32 10, tab 62
  363. button "BlackPowder", 551, 70 26 40 10, tab 62
  364. text "Ship Store", 528, 6 16 104 10, tab 62 center
  365. }
  366.  
  367.  
  368. on *:dialog:DRDT-PiratesAddon:init:*:{
  369. var %pirates.play
  370. dialog -t $dname $dialog($dname).title Now playing in %pirates.chan
  371. }
  372. on *:dialog:DRDT-PiratesAddon:sclick:1-61,63-116,146-169,172-173,176-179,211-221,250-254,311-320,401-402,420-435,438-463,466-482,520-525,550-561,700-714,800-834:{
  373.  
  374. if ($did isnum 1-35) {
  375. %pirates.len = $len($did($did))
  376. %pirates.play = P $left($did($did),%pirates.len)
  377. }
  378. elseif ($did isnum 36) {
  379. %pirates.len = $len($did($did))
  380. %pirates.play = P Sail %QS.port
  381. }
  382.  
  383. elseif ($did isnum 39-46) {
  384. %pirates.len = $len($did($did))
  385. %pirates.play = P $left($did($did),%pirates.len)
  386. }
  387.  
  388. elseif ($did isnum 37-38) {
  389. %pirates.len = $len($did($did))
  390. %pirates.play = P store buy $left($did($did),%pirates.len) $?="enter Name:"
  391. }
  392. elseif ($did isnum 47-51) {
  393. %pirates.len = $len($did($did))
  394. %pirates.play = P Market Buy Herb $left($did($did),%pirates.len)
  395. }
  396.  
  397. elseif ($did isnum 52) {
  398. %pirates.play = P Aye
  399. }
  400.  
  401. elseif ($did isnum 53) {
  402. %pirates.play = p port info $dialog(Ports,Ports)
  403. }
  404.  
  405. elseif ($did isnum 54) {
  406. %pirates.play = P Bounties
  407. }
  408.  
  409. elseif ($did isnum 55) {
  410. %pirates.play = P Market Buy Lockpick
  411. }
  412.  
  413. elseif ($did isnum 56) {
  414. %pirates.play = P Market Sell $?="enter Item Number:"
  415. }
  416. elseif ($did isnum 57) {
  417. %pirates.len = $len($did($did))
  418. %pirates.play = P Market Sell All Ornamental Aye
  419. }
  420. elseif ($did isnum 58) {
  421. %pirates.len = $len($did($did))
  422. %pirates.play = P Store Buy Nickname change
  423. }
  424. elseif ($did isnum 59) {
  425. %pirates.len = $len($did($did))
  426. %pirates.play = P sail $dialog(Ports,Ports)
  427. }
  428.  
  429. elseif ($did isnum 60) {
  430. %pirates.len = $len($did($did))
  431. %pirates.play = p store buy custom $?="enter gun or sword:" $?="enter color:"
  432. }
  433. elseif ($did isnum 61) {
  434. %pirates.play = P Use $?="enter Item Number:"
  435. }
  436. elseif ($did isnum 63-65) {
  437. %pirates.len = $len($did($did))
  438. %pirates.play = P store buy gender $left($did($did),%pirates.len)
  439. }
  440.  
  441. elseif ($did isnum 66-71) {
  442. %pirates.len = $len($did($did))
  443. %pirates.play = P Store Buy Faction $left($did($did),%pirates.len)
  444. }
  445. elseif ($did isnum 72-77) {
  446. %pirates.len = $len($did($did))
  447. %pirates.play = p Tavern $left($did($did),%pirates.len)
  448. }
  449. elseif ($did isnum 78) {
  450. /url -an http://beastly.square7.ch/pirates/map/
  451. /halt
  452. }
  453. elseif ($did isnum 79-84) {
  454. %pirates.len = $len($did($did))
  455. %pirates.play = P Market Buy Poison $left($did($did),%pirates.len)
  456. }
  457. elseif ($did isnum 85-89) {
  458. %pirates.len = $len($did($did))
  459. %pirates.play = P Market buy Chest Traps $left($did($did),%pirates.len)
  460. }
  461. elseif ($did isnum 90-99) {
  462. %pirates.len = $len($did($did))
  463. %pirates.play = P Market buy Fruit $left($did($did),%pirates.len)
  464. }
  465. elseif ($did isnum 100) {
  466. %pirates.len = $len($did($did))
  467. %pirates.play = P port $dialog(Ports,Ports)
  468. }
  469. elseif ($did isnum 101) {
  470. /Fight
  471. /halt
  472. }
  473. elseif ($did isnum 102-105) {
  474. %pirates.len = $len($did($did))
  475. %pirates.play = P SW Buy $left($did($did),%pirates.len)
  476. }
  477. elseif ($did isnum 106-108) {
  478. %pirates.len = $len($did($did))
  479. %pirates.play = P SW Buy $left($did($did),%pirates.len) shot
  480. }
  481. elseif ($did isnum 109-114) {
  482. %pirates.len = $len($did($did))
  483. %pirates.play = P SW Buy $left($did($did),%pirates.len)
  484. }
  485. elseif ($did isnum 115) {
  486. /url -an https://mruno.org/Pirates/ship.html
  487. /halt
  488. }
  489. elseif ($did isnum 116) {
  490. /url -an https://mruno.org/Pirates/apprentice.html
  491. /halt
  492. }
  493.  
  494. elseif ($did isnum 146-150) {
  495. %pirates.len = $len($did($did))
  496. %pirates.play = P Market Buy Goods $left($did($did),%pirates.len)
  497. }
  498.  
  499. elseif ($did isnum 151-154) {
  500. %pirates.len = $len($did($did))
  501. %pirates.play = P Market Buy Chest Lock $left($did($did),%pirates.len)
  502. }
  503. elseif ($did isnum 155-156) {
  504. %pirates.play = P Store Buy $left($did($did),%pirates.len)
  505. }
  506. elseif ($did isnum 157-158) {
  507. %pirates.len = $len($did($did))
  508. %pirates.play = P Market buy Chests $left($did($did),%pirates.len)
  509. }
  510. elseif ($did isnum 159-164) {
  511. %pirates.len = $len($did($did))
  512. %pirates.play = P Market Buy Curse $left($did($did),%pirates.len)
  513. }
  514. elseif ($did isnum 165-169) {
  515. %pirates.len = $len($did($did))
  516. %pirates.play = P Market Buy coin $left($did($did),%pirates.len)
  517. }
  518. elseif ($did isnum 172-173) {
  519. %pirates.len = $len($did($did))
  520. %pirates.play = P Market Buy Elixir $left($did($did),%pirates.len)
  521. }
  522. elseif ($did isnum 176-177) {
  523. %pirates.len = $len($did($did))
  524. %pirates.play = P Market Upgrade $left($did($did),%pirates.len)
  525. }
  526.  
  527. elseif ($did isnum 178-179) {
  528. %pirates.len = $len($did($did))
  529. %pirates.play = P $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  530. }
  531. elseif ($did isnum 211-220) {
  532. %pirates.play = P lockpick|P stamina|P troll|P Info|P Power|P Insult|P DaveyJones|P brig|P weapon|P rob
  533. %pirates.name = $snick(%pirates.chan,1)
  534. %pirates.did = $did - 210
  535. %pirates.play = $gettok(%pirates.play,%pirates.did,124)
  536. %pirates.play = %pirates.play %pirates.name
  537. }
  538. elseif ($did isnum 221) {
  539. %pirates.len = $len($did($did))
  540. %pirates.play = P $left($did($did),%pirates.len)
  541. }
  542.  
  543.  
  544. elseif ($did isnum 250-253) {
  545. %pirates.len = $len($did($did))
  546. %pirates.play = P store $left($did($did),%pirates.len) Aye
  547. }
  548. elseif ($did isnum 254) {
  549. %pirates.len = $len($did($did))
  550. %pirates.play = P $left($did($did),%pirates.len) Aye
  551. }
  552.  
  553. elseif ($did isnum 312-320) {
  554. %pirates.play = P tavern brandy|P mercy|P heal aye|P mutiny aye|P party aye|P skill train|P Capn Cmd|P Store Buy Lottery Auto 1|P Wench Aye
  555. %pirates.did = $did - 311
  556. %pirates.play = $gettok(%pirates.play,%pirates.did,124)
  557. }
  558. elseif ($did isnum 401-402) {
  559. %pirates.play = P top|P rusty
  560. %pirates.var = $?="blank for top 5 $crlf 2 for top 6-10 $crlf 3 for top 11-15 ect.:"
  561. %pirates.did = $did - 400
  562. %pirates.play = $gettok(%pirates.play,%pirates.did,124)
  563. %pirates.play = %pirates.play %pirates.var
  564. }
  565. elseif ($did isnum 420-428) {
  566. %pirates.len = $len($did($did))
  567. %pirates.play = P Request $left($did($did),%pirates.len)
  568. }
  569. elseif ($did isnum 428-434) {
  570. %pirates.len = $len($did($did))
  571. %pirates.play = P Request $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  572. }
  573. elseif ($did isnum 435) {
  574. %pirates.len = $len($did($did))
  575. %pirates.play = P Request sail $left($did($did),%pirates.len) $?="Enter city name or cell:"
  576. }
  577. if ($did isnum 438-443) {
  578. %pirates.len = $len($did($did))
  579. %pirates.play = P Rewards $left($did($did),%pirates.len) Aye
  580. }
  581. elseif ($did isnum 445-453) {
  582. %pirates.len = $len($did($did))
  583. %pirates.play = P Port $left($did($did),%pirates.len)
  584. }
  585. elseif ($did isnum 455-462) {
  586. %pirates.len = $len($did($did))
  587. %pirates.play = P Skill Start $left($did($did),%pirates.len)
  588. }
  589. elseif ($did isnum 467-474) {
  590. %pirates.len = $len($did($did))
  591. %pirates.play = P Skill Forget $left($did($did),%pirates.len) $?="Are you shure you want to Forget this Skill $crlf If so Enter skill name If not Cancel :"
  592. }
  593. elseif ($did isnum 475-482) {
  594. %pirates.len = $len($did($did))
  595. %pirates.play = P Skill Quit $left($did($did),%pirates.len)
  596. }
  597. elseif ($did isnum 520-525) {
  598. %pirates.len = $len($did($did))
  599. %pirates.play = P Market $left($did($did),%pirates.len)
  600. }
  601.  
  602. elseif ($did isnum 550-561) {
  603. %pirates.len = $len($did($did))
  604. %pirates.play = P store buy $left($did($did),%pirates.len) Aye
  605. }
  606.  
  607. elseif ($did isnum 700-710) {
  608.  
  609. %pirates.len = $len($did($did))
  610. %pirates.play = P ship $left($did($did),%pirates.len) $dialog(Ships,Ships)
  611. }
  612. elseif ($did isnum 711) {
  613. %pirates.play = P Ship Info $dialog(Ships,Ships)
  614. }
  615. elseif ($did isnum 712) {
  616. %pirates.play = P Ship Message $dialog(Ships,Ships) $+ : $?="Enter mesage:"
  617. }
  618. elseif ($did isnum 713-714) {
  619. %pirates.play = P Ship Taunt $dialog(Ships,Ships)
  620. }
  621. elseif ($did isnum 800-814) {
  622. %pirates.len = $len($did($did))
  623. %pirates.play = P Captain $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  624. }
  625. elseif ($did isnum 815) {
  626. %pirates.len = $len($did($did))
  627. %pirates.play = P Duel $snick(%pirates.chan,1)
  628.  
  629. }
  630.  
  631.  
  632. elseif ($did isnum 816-829) {
  633. %pirates.len = $len($did($did))
  634. %pirates.play = P Captain $left($did($did),%pirates.len)
  635. }
  636. elseif ($did isnum 830-834) {
  637. %pirates.len = $len($did($did))
  638. %pirates.play = P $left($did($did),%pirates.len)
  639. }
  640.  
  641.  
  642. msg %pirates.chan %pirates.play
  643. }
  644.  
  645. ;----------------------------------------------------------------------------------------------------------
  646.  
  647. alias Ships dialog - $+ $iif($dialog(Ships),v,m) Ships Ships
  648.  
  649. dialog -l Ships {
  650. title "Ships"
  651. size 0 0 79 111
  652. option dbu
  653. icon pirates.ico, 1
  654. combo 10, 2 11 75 86, result sort
  655. text "Curent Ship", 4, 2 2 75 8, center
  656. button "OK", 1, 2 97 37 12, ok
  657. button "Cancel", 2, 40 97 37 12, cancel
  658. }
  659.  
  660. ON *:DIALOG:Ships:init:*: {
  661. did -a $dname 10 The Wandering Soul
  662. did -a $dname 10 HMS Interceptor
  663. did -a $dname 10 Mousey McMouseface
  664. did -a $dname 10 Dark Sails
  665. did -a $dname 10 The robothive
  666. did -a $dname 10 Twisted Mystic
  667. did -a $dname 10 The Golden Hind
  668. did -a $dname 10 The Elite
  669. did -a $dname 10 The Revenge
  670. did -a $dname 10 Ztvland Raiders
  671. did -a $dname 10 Rising Sun
  672. }
  673.  
  674. ON *:DIALOG:Ships:sclick:*:{
  675. if ($did isnum 10) {
  676. set %QS.Ship $did($dname,10).text
  677. /return
  678. }
  679.  
  680. elseif ($did isnum 5) {
  681. set %QS.Pirate $did($dname,7).text
  682. %pirates.play = P Duel %QS.Pirate %QS.Ship
  683. }
  684.  
  685. elseif ($did isnum 6,) {
  686. set %QS.Pirate $did($dname,7).text
  687. %pirates.play = P Power %QS.Pirate %QS.Ship
  688. }
  689.  
  690. elseif ($did isnum 9) {
  691. %pirates.play = P Duel $snick(%pirates.chan,1)
  692. }
  693.  
  694. elseif ($did isnum 12) {
  695. %pirates.play = P Power $snick(%pirates.chan,1)
  696. }
  697. elseif ($did isnum 16) {
  698. %pirates.play = P Rob %QS.Pirate %QS.Ship
  699. }
  700.  
  701. elseif ($did isnum 17) {
  702. %pirates.play = P DJ %QS.Pirate %QS.Ship
  703. }
  704.  
  705. elseif ($did isnum 18) {
  706. %pirates.play = P DJ $snick(%pirates.chan,1)
  707. }
  708.  
  709. elseif ($did isnum 19) {
  710. %pirates.play = P Rob $snick(%pirates.chan,1)
  711. }
  712.  
  713. else {
  714. /return
  715. /halt
  716. }
  717.  
  718. msg %pirates.chan %pirates.play
  719.  
  720. }
  721.  
  722. ;----------------------------------------------------------------------------------------------------------
  723.  
  724. alias Ports dialog - $+ $iif($dialog(Ports),v,m) Ports Ports
  725.  
  726. dialog -l Ports {
  727. title "Ports"
  728. size 525 0 79 240
  729. option dbu
  730. icon pirates.ico, 1
  731. combo 1, 2 15 75 215, result sort
  732. button "OK", 3, 2 226 37 12, ok
  733. button "Cancel", 2, 40 226 37 12, cancel
  734. text "Ports", 4, 2 2 75 11, center
  735. }
  736.  
  737. ON *:DIALOG:Ports:init:*: {
  738. did -a $dname 1 Antigua
  739. did -a $dname 1 Barbados
  740. did -a $dname 1 Bermuda
  741. did -a $dname 1 Campeche
  742. did -a $dname 1 Caracas
  743. did -a $dname 1 Cartagena
  744. did -a $dname 1 Coro
  745. did -a $dname 1 Cumana
  746. did -a $dname 1 Curacao
  747. did -a $dname 1 Eluthera
  748. did -a $dname 1 Florida Keys
  749. did -a $dname 1 Gibraltar
  750. did -a $dname 1 Gran Grenada
  751. did -a $dname 1 Grand Bahama
  752. did -a $dname 1 Guadeloupe
  753. did -a $dname 1 Havana
  754. did -a $dname 1 Leogane
  755. did -a $dname 1 Maracaibo
  756. did -a $dname 1 Margarita
  757. did -a $dname 1 Martinique
  758. did -a $dname 1 Montserrat
  759. did -a $dname 1 Nassau
  760. did -a $dname 1 Nevis
  761. did -a $dname 1 Nombre de dios
  762. did -a $dname 1 Panama
  763. did -a $dname 1 Petit Goave
  764. did -a $dname 1 Port-de-Paix
  765. did -a $dname 1 Puerto Bello
  766. did -a $dname 1 Puerto Cabello
  767. did -a $dname 1 Puerto Principe
  768. did -a $dname 1 Rio de la Hacha
  769. did -a $dname 1 San Juan
  770. did -a $dname 1 Santa Catalina
  771. did -a $dname 1 Santa Marta
  772. did -a $dname 1 Santiago de La Vega
  773. did -a $dname 1 Santiago
  774. did -a $dname 1 Santo Domingo
  775. did -a $dname 1 Sint Maarten
  776. did -a $dname 1 St. Augustine
  777. did -a $dname 1 St. Eustatius
  778. did -a $dname 1 St. Kitts
  779. did -a $dname 1 St. Martin
  780. did -a $dname 1 Tortuga
  781. did -a $dname 1 Trinidad
  782. did -a $dname 1 Vera Cruz
  783. did -a $dname 1 Villa Hermosa
  784. }
  785.  
  786. ON *:DIALOG:Ports:sclick:*:{
  787. if ($did isnum 1) {
  788. set %QS.port $did($dname,1).text
  789. /return
  790. }
  791.  
  792. }
  793.  
  794. ;----------------------------------------------------------------------------------------------------------
  795.  
  796. alias Fight dialog - $+ $iif($dialog(Fight),v,m) Fight Fight
  797.  
  798. dialog -l Fight {
  799. title "Fight"
  800. size 0 0 163 73
  801. option dbu
  802. icon pirates.ico, 1
  803. button "Duel Port", 5, 122 29 37 12
  804. button "Power Port", 6, 84 29 37 12
  805. edit %QS.Pirate, 7, 84 17 75 10
  806. button "Duel Ship", 9, 41 16 37 12
  807. button "Power Ship", 12, 3 16 37 12
  808. text "Port Ship Curent Pirate", 13, 84 5 75 10, center
  809. text "Our Ship High-lighted Nick", 14, 3 5 75 10, center
  810. box "", 3, 82 0 80 58
  811. box "", 15, 1 0 80 43
  812. button "Rob Port", 16, 84 44 37 12
  813. button "DJ Port ", 17, 122 44 37 12
  814. button "Rob Ship", 18, 3 29 37 12
  815. button "DJ Ship", 19, 41 29 37 12
  816. button "Level", 1, 3 44 37 12
  817. button "Rum Tavern", 2, 41 59 37 12
  818. button "Rum Ship", 4, 3 59 37 12
  819. button "Wench", 8, 41 44 37 12
  820. button "Sharpen", 10, 83 59 37 12
  821. button "Black Powder", 11, 122 59 37 12
  822. }
  823.  
  824.  
  825. ON *:DIALOG:Fight:sclick:*:{
  826.  
  827. if ($did isnum 1) {
  828. set %QS.Pirate $did($dname,7).text
  829. %pirates.play = P Level
  830. }
  831. elseif ($did isnum 2) {
  832. set %QS.Pirate $did($dname,7).text
  833. %pirates.play = P Tavern Rum
  834. }
  835. elseif ($did isnum 4) {
  836. set %QS.Pirate $did($dname,7).text
  837. %pirates.play = P Store Rum
  838. }
  839. elseif ($did isnum 8) {
  840. set %QS.Pirate $did($dname,7).text
  841. %pirates.play = P Wench Aye
  842. }
  843. elseif ($did isnum 10) {
  844. set %QS.Pirate $did($dname,7).text
  845. %pirates.play = P Store Sharpen
  846. }
  847. elseif ($did isnum 11) {
  848. set %QS.Pirate $did($dname,7).text
  849. %pirates.play = P Store Black Powder
  850. }
  851. elseif ($did isnum 5,) {
  852. set %QS.Pirate $did($dname,7).text
  853. %pirates.play = P Duel %QS.Pirate $dialog(Ships,Ships)
  854. }
  855.  
  856. elseif ($did isnum 6,) {
  857. set %QS.Pirate $did($dname,7).text
  858. %pirates.play = P Power %QS.Pirate $dialog(Ships,Ships)
  859. }
  860.  
  861. elseif ($did isnum 9) {
  862. %pirates.play = P Duel $snick(%pirates.chan,1)
  863. }
  864.  
  865. elseif ($did isnum 12) {
  866. %pirates.play = P Power $snick(%pirates.chan,1)
  867. }
  868. elseif ($did isnum 16) {
  869. set %QS.Pirate $did($dname,7).text
  870. %pirates.play = P Rob %QS.Pirate $dialog(Ships,Ships)
  871. }
  872.  
  873. elseif ($did isnum 17) {
  874. set %QS.Pirate $did($dname,7).text
  875. %pirates.play = P DJ %QS.Pirate $dialog(Ships,Ships)
  876. }
  877.  
  878. elseif ($did isnum 18) {
  879. %pirates.play = P Rob $snick(%pirates.chan,1)
  880. }
  881.  
  882. elseif ($did isnum 19) {
  883. %pirates.play = P DJ $snick(%pirates.chan,1)
  884. }
  885.  
  886. else {
  887. /return
  888. /halt
  889. }
  890.  
  891. msg %pirates.chan %pirates.play
  892.  
  893. }
  894.  
Add Comment
Please, Sign In to add comment
Public Pastes
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!