Pirates GamePad

More
1 week 6 days ago - 1 week 6 days ago #13 by xXBERTOXx
Pirates GamePad was created by xXBERTOXx
[Addon]
Script=Pirates-GamePad
Version=1.8.0
Author=QuietSilence
Desc=!Pirates Game Pad
For=DragonRyder 
Date=June 26th 2020
;NOTE: mod done with permission from MrUno

menu nicklist {
  Pirates
  .Duel: /say P duel $1
  .Rob: /say P rob $1
  .Status: /say P Status $1
  .Power: /say P Power $1
  .Stamina:/say P Stamina $1
  .Weapon: /say P weapon $1
  .Insult : /say P insult  $1
  .Lockpick : /say P Lockpick  $1
  .Info : /say P Info  $1
  .Charver : /say P Charver $1
}

menu channel {
  !Pirates GamePad: {
    set %pirates.chan $iif(%pirates.chan != $chan,$iif($$input(Change !Pirates channel to $chan $+ ?,y,Pirates Channel is %pirates.chan),$chan,%pirates.chan),$chan)
    if (%pirates.chan == $chan) { dialog $iif(!$dialog(DRDT-PiratesAddon),-mdo,-ev) DRDT-PiratesAddon DRDT-PiratesAddon }
  }
}
dialog DRDT-PiratesAddon {
  title "!Pirates Game Pad v1.0"
  size 675 100 288 156
  option dbu
  tab "Player", 1000, 2 2 284 152
  button "Bored", 18, 180 38 32 10, tab 1000
  button "Awake", 44, 113 78 32 10, tab 1000
  button "Bot", 40, 252 38 32 10, tab 1000
  button "Brig", 218, 146 58 32 10, tab 1000
  button "Weapon", 219, 217 28 32 10, tab 1000
  button "Dig", 19, 76 38 32 10, tab 1000
  button "Fish", 25, 76 28 32 10, tab 1000
  button "Crabbin", 26, 216 112 32 10, tab 1000
  button "Work", 27, 76 58 32 10, tab 1000
  button "Steal", 220, 181 112 32 10, tab 1000
  button "love", 28, 4 122 32 10, tab 1000
  button "hate", 29, 4 132 32 10, tab 1000
  button "legends", 30, 146 48 32 10, tab 1000
  button "scour", 31, 41 112 32 10, tab 1000
  button "Maps", 32, 180 28 32 10, tab 1000
  button "mutiny", 315, 4 142 32 10, tab 1000
  button "Party", 316, 146 112 32 10, tab 1000
  button "Rusty", 402, 180 48 32 10, tab 1000
  button "search", 41, 41 122 32 10, tab 1000
  button "Daily", 13, 113 38 32 10, tab 1000
  button "Goals", 14, 113 48 32 10, tab 1000
  button "Heal", 314, 252 48 32 10, tab 1000
  button "Lockpick", 211, 181 122 32 10, tab 1000
  button "Snatch", 16, 181 132 32 10, tab 1000
  button "Dive", 17, 76 48 32 10, tab 1000
  button "Top", 401, 113 28 32 10, tab 1000
  button "Brandy", 312, 217 58 32 10, tab 1000
  button "Bounties", 54, 217 68 32 10, tab 1000
  button "Mercy", 313, 113 122 32 10, tab 1000
  button "Stamina", 212, 217 38 32 10, tab 1000
  button "Ship Status", 42, 251 112 32 10, tab 1000
  button "Troll", 213, 76 132 32 10, tab 1000
  button "Tasks", 1, 146 28 32 10, tab 1000
  button "Carry", 2, 4 58 32 10, tab 1000
  button "About", 11, 180 58 32 10, tab 1000
  button "Achievement", 12, 147 88 65 10, tab 1000
  button "Rest", 21, 146 122 32 10, tab 1000
  button "capn favor", 22, 251 142 32 10, tab 1000
  button "Scuttlebutt", 24, 216 132 32 10, tab 1000
  button "rig", 8, 4 48 32 10, tab 1000
  button "steer", 9, 41 48 32 10, tab 1000
  button "repair", 7, 41 38 32 10, tab 1000
  button "fix", 5, 41 58 32 10, tab 1000
  button "lookout", 6, 4 38 32 10, tab 1000
  button "cook", 4, 41 28 32 10, tab 1000
  button "Age", 10, 113 58 32 10, tab 1000
  button "clean", 3, 4 28 32 10, tab 1000
  button "swab", 15, 4 68 32 10, tab 1000
  button "Info", 214, 146 38 32 10, tab 1000
  button "Power", 215, 217 48 32 10, tab 1000
  button "Level", 221, 252 28 32 10, tab 1000
  button "Request", 39, 4 112 32 10, tab 1000
  button "Insult", 216, 76 122 32 10, tab 1000
  button "DaveyJones", 217, 76 112 32 10, tab 1000
  text "Players", 500, 76 100 32 10, tab 1000 center
  text "Miscellaneous", 501, 113 100 65 10, tab 1000 center
  text "Lvl 1-5", 502, 4 18 32 10, tab 1000 center
  text "Lvl 6-9", 503, 41 18 32 10, tab 1000 center
  text "Lvl 10+", 504, 76 18 32 10, tab 1000 center
  text "Info", 505, 113 18 99 10, tab 1000 center
  text "Fight", 506, 217 18 67 10, tab 1000 center
  text "Theff", 507, 181 100 32 10, tab 1000 center
  text "Captain", 508, 4 100 32 10, tab 1000 center
  text "Capn Cmds", 509, 251 100 32 10, tab 1000 center
  text "Find", 510, 41 100 32 10, tab 1000 center
  button "Train", 317, 76 68 32 10, tab 1000
  button "Cap Cmd", 318, 251 122 32 10, tab 1000
  button "Aye", 52, 146 132 32 10, tab 1000
  button "Stash", 53, 113 132 32 10, tab 1000
  button "Chest", 46, 113 142 32 10, tab 1000
  button "Relations", 33, 146 68 32 10, tab 1000
  button "WWW", 34, 180 78 32 10, tab 1000
  button "Rum", 561, 252 58 32 10, tab 1000
  button "Wench", 254, 252 68 32 10, tab 1000
  button "Requests", 43, 251 132 32 10, tab 1000
  button "Today", 831, 113 68 32 10, tab 1000
  button "Rep", 830, 180 68 32 10, tab 1000
  button "Duel", 815, 217 78 32 10, tab 1000
  button "Defend", 832, 113 112 32 10, tab 1000
  text "Skills", 20, 216 100 32 10, tab 1000 center
  button "Charver", 179, 76 142 32 10, tab 1000
  button "Gamble 5", 23, 216 122 32 10, tab 1000
  button "Status", 178, 146 78 32 10, tab 1000
  tab "Buy and Sell", 1001
  button "Chest", 45, 112 28 32 10, tab 1001
  text "Fruit", 514, 112 83 66 10, tab 1001 center
  text "Chest Locks", 516, 214 18 32 10, tab 1001 center
  text "Chest Traps", 517, 248 18 32 10, tab 1001 center
  text "Chests", 518, 181 18 32 10, tab 1001 center
  text "Goods", 519, 214 92 32 10, tab 1001 center
  text "Herbs", 520, 146 18 32 10, tab 1001 center
  text "Poisons", 521, 76 83 32 10, tab 1001 center
  button "Bomb", 85, 248 68 32 10, tab 1001
  button "Spike", 86, 248 58 32 10, tab 1001
  button "Poison", 87, 248 48 32 10, tab 1001
  button "Acid", 88, 248 38 32 10, tab 1001
  button "Curse", 89, 248 28 32 10, tab 1001
  button "large", 158, 181 38 32 10, tab 1001
  button "Medium", 157, 181 28 32 10, tab 1001
  button "Guava", 90, 112 122 32 10, tab 1001
  button "Gooseberries", 91, 112 132 34 10, tab 1001
  button "Genips", 92, 112 112 32 10, tab 1001
  button "Chayote", 93, 112 102 32 10, tab 1001
  button "Ugli", 94, 148 132 30 10, tab 1001
  button "Orange", 95, 146 122 32 10, tab 1001
  button "Noni", 96, 146 112 32 10, tab 1001
  button "Star", 97, 146 142 32 10, tab 1001
  button "Soursop", 98, 112 142 32 10, tab 1001
  button "Mameyl", 99, 146 102 32 10, tab 1001
  button "Luxuries", 150, 214 142 32 10, tab 1001
  button "Materials", 146, 214 132 32 10, tab 1001
  button "Sugar", 147, 214 122 32 10, tab 1001
  button "Spice", 148, 214 112 32 10, tab 1001
  button "Food", 149, 214 102 32 10, tab 1001
  button "Anzid", 80, 76 93 32 10, tab 1001
  button "Green", 47, 146 28 32 10, tab 1001
  button "Sell", 56, 112 38 32 10, tab 1001
  button "Sell All", 57, 112 58 32 10, tab 1001
  button "Steel", 154, 214 58 32 10, tab 1001
  button "Brass", 151, 214 48 32 10, tab 1001
  button "Copper", 152, 214 38 32 10, tab 1001
  button "Iron", 153, 214 28 32 10, tab 1001
  button "Disease", 35, 112 93 66 10, tab 1001
  button "Water", 72, 44 93 30 10, tab 1001
  button "Rum", 73, 44 103 30 10, tab 1001
  button "Mead", 74, 44 113 30 10, tab 1001
  button "Wine", 75, 44 123 30 10, tab 1001
  button "Whiskey", 76, 44 133 30 10, tab 1001
  button "Brandy", 77, 44 143 30 10, tab 1001
  text "Tavern", 78, 44 83 30 10, tab 1001 center
  button "LockPick", 55, 214 68 32 10, tab 1001
  button "Goods", 833, 112 48 32 10, tab 1001
  button "Use", 61, 112 68 32 10, tab 1001
  button "Yellow", 49, 146 38 32 10, tab 1001
  button "Red", 51, 146 58 32 10, tab 1001
  button "Brown", 58, 146 48 32 10, tab 1001
  button "Blue", 59, 146 68 32 10, tab 1001
  button "Nightbane", 83, 76 103 32 10, tab 1001
  button "Mosfungus", 79, 76 113 32 10, tab 1001
  button "Furux", 81, 76 123 32 10, tab 1001
  button "Nightmother", 84, 76 133 32 10, tab 1001
  button "Bokor", 82, 76 143 32 10, tab 1001
  button "Plague", 165, 4 68 36 10, tab 1001
  button "Imprisonment", 164, 4 58 36 10, tab 1001
  button "Expel", 163, 4 48 36 10, tab 1001
  button "Shift", 162, 4 78 36 10, tab 1001
  button "Destruction", 160, 4 38 36 10, tab 1001
  button "Decay", 159, 4 28 36 10, tab 1001
  button "Zonbiness", 161, 4 88 36 10, tab 1001
  text "Coin", 170, 44 18 32 10, tab 1001 center
  text "Elixir", 171, 78 18 32 10, tab 1001 center
  button "Ducatoon", 168, 44 28 32 10, tab 1001
  button "Farthing", 169, 44 38 32 10, tab 1001
  button "Denier", 167, 44 48 32 10, tab 1001
  button "Cob", 166, 44 58 32 10, tab 1001
  button "Shadow", 173, 78 28 32 10, tab 1001
  button "Health", 172, 78 38 32 10, tab 1001
  text "Upgrade", 175, 248 92 32 10, tab 1001 center
  button "Gun", 176, 248 102 32 10, tab 1001
  button "Sword", 177, 248 112 32 10, tab 1001
  text "Chest", 174, 112 18 32 10, tab 1001 center
  text "Curse", 36, 4 18 36 10, tab 1001 center
  tab "Captain", 1002
  button "Bonus ", 800, 4 26 32 10, tab 1002
  button "Brig", 801, 4 38 32 10, tab 1002
  button "Command", 802, 4 50 32 10, tab 1002
  button "Demote", 803, 4 62 32 10, tab 1002
  button "Free", 804, 4 74 32 10, tab 1002
  button "Flog", 805, 4 86 32 10, tab 1002
  button "Map", 806, 4 98 32 10, tab 1002
  button "Parlay", 808, 40 26 32 10, tab 1002
  button "plank", 809, 40 38 32 10, tab 1002
  button "Promote", 810, 40 50 32 10, tab 1002
  button "Rum", 811, 40 62 32 10, tab 1002
  button "Rumor", 812, 40 74 32 10, tab 1002
  button "Voucher", 813, 40 86 32 10, tab 1002
  button "Monster", 814, 82 62 32 10, tab 1002
  button "Party", 829, 82 74 32 10, tab 1002
  button "Mass Find", 816, 82 50 32 10, tab 1002
  button "Quest", 817, 82 86 32 10, tab 1002
  button "Rest", 818, 82 98 32 10, tab 1002
  button "Riddle", 819, 118 38 32 10, tab 1002
  button "Share", 820, 118 50 32 10, tab 1002
  button "Special", 821, 118 62 32 10, tab 1002
  button "Rep", 822, 118 26 32 10, tab 1002
  button "Teleport", 823, 118 74 32 10, tab 1002
  button "Request", 824, 162 38 32 10, tab 1002
  button "Favor", 825, 162 26 32 10, tab 1002
  button "Find", 826, 82 38 32 10, tab 1002
  button "Crew Bonus", 827, 82 26 32 10, tab 1002
  button "Stats", 828, 162 50 32 10, tab 1002
  tab "Sail to", 1003
  button "Antigua", 100, 4 30 56 10, tab 1003
  button "Barbados", 101, 4 40 56 10, tab 1003
  button "Bermuda", 102, 4 50 56 10, tab 1003
  button "Campeche", 103, 4 60 56 10, tab 1003
  button "Caracas", 104, 4 70 56 10, tab 1003
  button "Cartagena", 105, 4 80 56 10, tab 1003
  button "Coro", 106, 4 90 56 10, tab 1003
  button "Cumana", 145, 4 110 56 10, tab 1003
  button "Curacao", 107, 4 100 56 10, tab 1003
  button "Eluthera", 108, 4 120 56 10, tab 1003
  button "Florida_Keys", 109, 60 30 56 10, tab 1003
  button "Gibraltar", 110, 60 40 56 10, tab 1003
  button "Gran Grenada", 111, 60 50 56 10, tab 1003
  button "Grand Bahama", 112, 60 60 56 10, tab 1003
  button "Guadeloupe", 113, 60 70 56 10, tab 1003
  button "Havana", 114, 60 80 56 10, tab 1003
  button "Leogane", 115, 60 90 56 10, tab 1003
  button "Maracaibo", 116, 60 100 56 10, tab 1003
  button "Margarita", 117, 60 110 56 10, tab 1003
  button "Martinique", 118, 116 30 56 10, tab 1003
  button "Montserrat", 119, 116 40 56 10, tab 1003
  button "Nassau", 120, 116 50 56 10, tab 1003
  button "Nevis", 121, 116 60 56 10, tab 1003
  button "Nombre de Dios", 122, 116 70 56 10, tab 1003
  button "Panama", 123, 116 80 56 10, tab 1003
  button "Petit Goave", 124, 116 90 56 10, tab 1003
  button "Port-de-Paix", 125, 116 100 56 10, tab 1003
  button "Puerto Bello", 126, 116 110 56 10, tab 1003
  button "Puerto Cabello", 127, 172 30 56 10, tab 1003
  button "Puerto Principe", 128, 172 40 56 10, tab 1003
  button "Rio de la Hacha", 129, 172 50 56 10, tab 1003
  button "San Juan", 130, 172 60 56 10, tab 1003
  button "Santa Catalina", 131, 172 70 56 10, tab 1003
  button "Santa Marta", 132, 172 80 56 10, tab 1003
  button "Santiago", 133, 172 90 56 10, tab 1003
  button "Santiago de La Vega", 134, 172 100 56 10, tab 1003
  button "Santo Domingo", 135, 172 110 56 10, tab 1003
  button "Sint Maarten", 136, 228 30 56 10, tab 1003
  button "St. Augustine", 137, 228 40 56 10, tab 1003
  button "St. Eustatius", 138, 228 50 56 10, tab 1003
  button "St. Kitts", 139, 228 60 56 10, tab 1003
  button "St. Martin", 140, 228 70 56 10, tab 1003
  button "Tortuga", 141, 228 80 56 10, tab 1003
  button "Trinidad", 142, 228 90 56 10, tab 1003
  button "Vera Cruz", 143, 228 100 56 10, tab 1003
  button "Villa Hermosa", 144, 228 110 56 10, tab 1003
  text "Sail to Location", 522, 4 18 280 10, tab 1003 center
  tab "Miscellaneous", 1004
  text "Requests", 437, 4 18 101 8, tab 1004 center
  text "Ports", 454, 108 18 67 8, tab 1004 center
  button "Crew Bonus", 420, 4 28 32 10, tab 1004
  button "Find", 421, 4 40 32 10, tab 1004
  button "Mass Find", 422, 4 52 32 10, tab 1004
  button "Monster", 423, 4 64 32 10, tab 1004
  button "Party", 424, 4 76 32 10, tab 1004
  button "Quest", 425, 4 88 32 10, tab 1004
  button "Rest", 426, 38 28 32 10, tab 1004
  button "Share", 427, 38 40 32 10, tab 1004
  button "Rumor", 428, 38 52 32 10, tab 1004
  button "Bonus", 429, 38 64 32 10, tab 1004
  button "Map", 430, 38 76 32 10, tab 1004
  button "Parlay", 431, 38 88 32 10, tab 1004
  button "Punish", 432, 72 28 32 10, tab 1004
  button "Rum", 433, 72 40 32 10, tab 1004
  button "Voucher", 434, 72 52 32 10, tab 1004
  button "Sail", 435, 72 64 32 10, tab 1004
  button "Doubloons", 438, 4 112 32 10, tab 1004
  button "Ornamental", 439, 4 124 32 10, tab 1004
  button "Power", 440, 4 136 32 10, tab 1004
  button "Random", 441, 40 112 32 10, tab 1004
  button "Stamina", 442, 40 124 32 10, tab 1004
  button "Voucher", 443, 40 136 32 10, tab 1004
  text "Rewards", 444, 4 100 69 8, tab 1004 center
  button "Port", 445, 108 28 32 10, tab 1004
  button "Faction", 446, 108 40 32 10, tab 1004
  button "Closest", 447, 108 52 32 10, tab 1004
  button "Claimed", 448, 108 64 32 10, tab 1004
  button "Status", 449, 142 28 32 10, tab 1004
  button "Today", 450, 142 40 32 10, tab 1004
  button "Unclaimed", 451, 142 52 32 10, tab 1004
  button "Winner", 452, 142 64 32 10, tab 1004
  button "Rep", 453, 108 76 32 10, tab 1004
  button "Charisma", 455, 176 34 32 10, tab 1004
  button "Defense", 456, 210 34 32 10, tab 1004
  button "Fishing", 457, 244 34 32 10, tab 1004
  button "Luck", 458, 176 46 32 10, tab 1004
  button "Meditation", 459, 210 46 32 10, tab 1004
  button "Marksmanship", 460, 176 58 44 10, tab 1004
  button "Thievery", 461, 244 46 32 10, tab 1004
  button "Swordsmanship", 462, 232 58 44 10, tab 1004
  text "Quit", 463, 176 110 101 8, tab 1004 center
  text "Forget", 464, 176 68 101 8, tab 1004 center
  text "Start", 465, 176 26 103 8, tab 1004 center
  text "Skills", 466, 176 18 103 8, tab 1004 center
  button "Charisma", 467, 176 76 32 10, tab 1004
  button "Defense", 468, 210 76 32 10, tab 1004
  button "Fishing", 469, 244 76 32 10, tab 1004
  button "Luck", 470, 176 88 32 10, tab 1004
  button "Meditation", 471, 210 88 32 10, tab 1004
  button "Marksmanship", 472, 176 100 44 10, tab 1004
  button "Thievery", 473, 244 88 32 10, tab 1004
  button "Swordsmanship", 474, 232 100 44 10, tab 1004
  button "Charisma", 475, 176 118 32 10, tab 1004
  button "Defense", 476, 210 118 32 10, tab 1004
  button "Fishing", 477, 244 118 32 10, tab 1004
  button "Luck", 478, 176 130 32 10, tab 1004
  button "Meditation", 479, 210 130 32 10, tab 1004
  button "Marksmanship", 480, 176 142 44 10, tab 1004
  button "Thievery", 481, 244 130 32 10, tab 1004
  button "Swordsmanship", 482, 232 142 44 10, tab 1004
  tab "Ship", 3000
  button "Captain", 700, 4 30 32 10, tab 3000
  button "HP", 701, 4 42 32 10, tab 3000
  button "Near", 705, 4 54 32 10, tab 3000
  button "Ordnance", 706, 4 66 32 10, tab 3000
  button "Players", 707, 42 30 32 10, tab 3000
  button "Ports", 708, 42 42 32 10, tab 3000
  button "Stats", 709, 42 54 32 10, tab 3000
  button "Status", 710, 42 66 32 10, tab 3000
  button "Tasks", 703, 78 54 32 10, tab 3000
  button "Treasure", 702, 78 42 32 10, tab 3000
  button "Upgrades", 704, 78 30 32 10, tab 3000
  button "Insult", 713, 78 78 32 10, tab 3000
  button "Message", 712, 4 78 32 10, tab 3000
  button "Info", 711, 78 66 32 10, tab 3000
  button "Taunt", 714, 42 78 32 10, tab 3000
  text "Ship", 716, 4 18 107 10, tab 3000 center
  tab "Store/Ship Wright", 62
  button "Bribe", 552, 6 67 32 10, tab 62
  button "Sell Gun", 250, 6 37 32 10, tab 62
  button "Sell Sword", 251, 6 47 32 10, tab 62
  button "Buy Sword", 252, 38 47 32 10, tab 62
  button "Buy Gun", 253, 38 37 32 10, tab 62
  button "Spouse", 553, 38 77 32 10, tab 62
  button "Sharpen", 554, 38 27 32 10, tab 62
  button "Youth", 155, 6 77 32 10, tab 62
  button "Parlay", 48, 38 67 32 10, tab 62
  button "Rum", 556, 6 27 32 10, tab 62
  button "Nickname", 50, 70 77 40 10, tab 62
  button "Rename Gun", 37, 70 57 40 10, tab 62
  button "Repair Gun", 558, 70 37 40 10, tab 62
  button "Repair Sword", 559, 70 47 40 10, tab 62
  button "Rename Sword", 38, 70 67 40 10, tab 62
  button "Custom", 60, 38 57 32 10, tab 62
  button "Male", 63, 8 105 32 10, tab 62
  button "Female", 64, 40 105 32 10, tab 62
  button "Undisclosed", 65, 72 105 32 10, tab 62
  button "Native", 66, 40 141 32 10, tab 62
  button "English", 67, 8 131 32 10, tab 62
  button "Jesuit", 68, 72 141 32 10, tab 62
  button "Spanish", 71, 72 131 32 10, tab 62
  button "French", 69, 40 131 32 10, tab 62
  button "Dutch", 70, 8 141 32 10, tab 62
  text "Buy Faction", 511, 4 121 104 10, tab 62 center
  text "Buy Gender", 512, 4 95 104 10, tab 62 center
  button "Lottery", 319, 6 57 32 10, tab 62
  button "BlackPowder", 551, 70 27 40 10, tab 62
  text "Ship Store", 523, 6 17 104 10, tab 62 center
}


on *:dialog:DRDT-PiratesAddon:init:*:{
  var %pirates.play
  dialog -t $dname $dialog($dname).title Now playing in %pirates.chan
}
on *:dialog:DRDT-PiratesAddon:sclick:1-47,52-57,61,63-77,79-179,211-221,250-254,311-320,401-402,411-413,420-482,550-561,700-714,800-834: {

  if ($did isnum 1-46) {
    %pirates.len = $len($did($did))
    %pirates.play = P $left($did($did),%pirates.len)
  }
  elseif ($did isnum 47) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Herb $left($did($did),%pirates.len)
  }

  elseif ($did isnum 52) {
    %pirates.play = P Aye
  }

  elseif ($did isnum 53) {
    %pirates.play = P Stash
  }

  elseif ($did isnum 54) {
    %pirates.play = P Bounties
  }

  elseif ($did isnum 55) {
    %pirates.play = P Market Buy Lockpick
  }

  elseif ($did isnum 56) {
    %pirates.play = P Market Sell $?="enter Item Number:"
  }
  if ($did isnum 57) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Sell All Ornamental Aye
  }
  elseif ($did isnum 61) {
    %pirates.play = P Use $?="enter Item Number:"
  }
  elseif ($did isnum 63-65) {
    %pirates.len = $len($did($did))
    %pirates.play = P store buy gender $left($did($did),%pirates.len)
  }

  elseif ($did isnum 66-71) {
    %pirates.len = $len($did($did))
    %pirates.play = P Store Buy Faction $left($did($did),%pirates.len)
  }
  elseif ($did isnum 72-77) {
    %pirates.len = $len($did($did))
    %pirates.play = p Tavern $left($did($did),%pirates.len)
  }

  if ($did isnum 79-84) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Poison $left($did($did),%pirates.len)
  }
  elseif ($did isnum 85-89) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market buy Chest Traps $left($did($did),%pirates.len)
  }
  elseif ($did isnum 90-99) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market buy Fruit $left($did($did),%pirates.len)
  }
  elseif ($did isnum 100-145) {
    %pirates.len = $len($did($did))
    %pirates.play = P sail $left($did($did),%pirates.len)
  }
  if ($did isnum 146-150) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Goods $left($did($did),%pirates.len)
  }

  if ($did isnum 151-154) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Chest Lock $left($did($did),%pirates.len)
  }
  elseif ($did isnum 155) {
    %pirates.play = P Store Buy Youth
  }
  elseif ($did isnum 157-158) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market buy Chests $left($did($did),%pirates.len)
  }
  if ($did isnum 159-164) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Curse $left($did($did),%pirates.len)
  }
  if ($did isnum 165-169) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy coin $left($did($did),%pirates.len)
  }
  if ($did isnum 172-173) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Elixir $left($did($did),%pirates.len)
  }
  if ($did isnum 166-169) {
    %pirates.len = $len($did($did))
    %pirates.play = P Market Buy Upgrade $left($did($did),%pirates.len)
  }
  if ($did isnum 178-179) {
    %pirates.len = $len($did($did))
    %pirates.play = P $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  }
  elseif ($did isnum 211-220) {
    %pirates.play = P lockpick|P stamina|P troll|P Info|P Power|P Insult|P DaveyJones|P brig|P weapon|P rob
    %pirates.name = $snick(%pirates.chan,1)
    %pirates.did = $did - 210
    %pirates.play = $gettok(%pirates.play,%pirates.did,124)
    %pirates.play = %pirates.play %pirates.name
  }
  if ($did isnum 221) {
    %pirates.len = $len($did($did))
    %pirates.play = P $left($did($did),%pirates.len)
  }


  if ($did isnum 250-253) {
    %pirates.len = $len($did($did))
    %pirates.play = P store $left($did($did),%pirates.len) Aye
  }
  if ($did isnum 254) {
    %pirates.len = $len($did($did))
    %pirates.play = P $left($did($did),%pirates.len) Aye
  }

  elseif ($did isnum 312-320) {
    %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
    %pirates.did = $did - 311
    %pirates.play = $gettok(%pirates.play,%pirates.did,124)
  }
  elseif ($did isnum 401-402) {
    %pirates.play = P top|P rusty
    %pirates.var = $?="blank for top 5 $crlf 2 for top 6-10 $crlf 3 for top 11-15 ect.:"
    %pirates.did = $did - 400
    %pirates.play = $gettok(%pirates.play,%pirates.did,124)
    %pirates.play = %pirates.play %pirates.var
  }
  if ($did isnum 420-428) {
    %pirates.len = $len($did($did))
    %pirates.play = P Request $left($did($did),%pirates.len)
  }
  if ($did isnum 428-434) {
    %pirates.len = $len($did($did))
    %pirates.play = P Request $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  }
  if ($did isnum 435) {
    %pirates.len = $len($did($did))
    %pirates.play = P Request sail $left($did($did),%pirates.len) $?="Enter city name or cell:"
  }
  if ($did isnum 438-443) {
    %pirates.len = $len($did($did))
    %pirates.play = P Rewards $left($did($did),%pirates.len) Aye
  }
  if ($did isnum 445-453) {
    %pirates.len = $len($did($did))
    %pirates.play = P Port $left($did($did),%pirates.len)
  }
  if ($did isnum 455-462) {
    %pirates.len = $len($did($did))
    %pirates.play = P Skill Start $left($did($did),%pirates.len)
  }
  if ($did isnum 467-474) {
    %pirates.len = $len($did($did))
    %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 :"
  }
  if ($did isnum 475-482) {
    %pirates.len = $len($did($did))
    %pirates.play = P Skill Quit $left($did($did),%pirates.len)
  }

  elseif ($did isnum 550-561) {
    %pirates.len = $len($did($did))
    %pirates.play = P store buy $left($did($did),%pirates.len) Aye
  }

  elseif ($did isnum 700-710) {

    %pirates.len = $len($did($did))
    %pirates.play = P ship $left($did($did),%pirates.len) $dialog(Ships,Ships)
  }
  elseif ($did isnum 711) {
    %pirates.play = P Ship Info $dialog(Ships,Ships)
  }
  elseif ($did isnum 712) {
    %pirates.play = P Ship Message $dialog(Ships,Ships) $+ : $?="Enter mesage:"
  }
  elseif ($did isnum 713-714) {
    /ships
    %pirates.play = P Ship Taunt $dialog(Ships,Ships)
  }
  elseif ($did isnum 800-814) {
    %pirates.len = $len($did($did))
    %pirates.play = P Captain $left($did($did),%pirates.len) $snick(%pirates.chan,1)
  }
  elseif ($did isnum 815) {
    /ships
    /halt
  }


  elseif ($did isnum 816-829) {
    %pirates.len = $len($did($did))
    %pirates.play = P Captain $left($did($did),%pirates.len)
  }
  elseif ($did isnum 830-834) {
    %pirates.len = $len($did($did))
    %pirates.play = P $left($did($did),%pirates.len)
  }


  msg %pirates.chan %pirates.play
}

alias Ships dialog - $+ $iif($dialog(Ships),v,m) Ships Ships

dialog -l Ships {
  title "Ships"
  size -1 -1 163 117
  option dbu
  combo 10, 3 15 75 86, result sort
  button "OK", 1, 3 101 37 12, ok
  button "Cancel", 2, 41 101 37 12, cancel
  text "Curent Ship", 4, 3 6 75 8, center
  button "Port Duel", 5, 121 41 37 12
  button "Port Power", 6, 83 41 37 12
  edit %QS.Pirate, 7, 83 15 75 10
  text "Curent Pirate", 8, 83 6 75 8, center
  button "Ship duel", 9, 121 88 37 12
  button "Ship Power", 12, 83 88 37 12
  text "Port Ship Curent Pirate", 13, 83 29 75 10, center
  text "Our Ship High-lighted Nick", 14, 84 77 75 10, center
  box "", 3, 81 1 80 70
  box "", 11, 1 1 79 114
  box "", 15, 81 71 80 44
  button "Port Rob ", 16, 83 54 37 12
  button "Port DJ", 17, 121 54 37 12
  button "Ship Rob", 18, 83 101 37 12
  button "Ship DJ", 19, 121 101 37 12
}

ON *:DIALOG:Ships:init:*: {
  did -a $dname 10 The Wandering Soul
  did -a $dname 10 HMS Interceptor
  did -a $dname 10 Mousey McMouseface
  did -a $dname 10 Dark Sails
  did -a $dname 10 The robothive
  did -a $dname 10 Twisted Mystic
  did -a $dname 10 The Golden Hind
  did -a $dname 10 The Elite
  did -a $dname 10 The Revenge
} 

ON *:DIALOG:Ships:sclick:*:{
  if ($did isnum 10) {
    set %QS.Ship $did($dname,10).text
    /return
  }

  elseif ($did isnum 5) {
    set %QS.Pirate $did($dname,7).text
    %pirates.play = P Duel %QS.Pirate %QS.Ship
  }

  elseif ($did isnum 6,) {
    set %QS.Pirate $did($dname,7).text
    %pirates.play = P Power %QS.Pirate %QS.Ship 
  }

  elseif ($did isnum 9) {
    %pirates.play = P Duel $snick(%pirates.chan,1)
  }

  elseif ($did isnum 12) {
    %pirates.play = P Power $snick(%pirates.chan,1)
  }
  elseif ($did isnum 16) {
    %pirates.play = P Rob %QS.Pirate %QS.Ship 
  }

  elseif ($did isnum 17) {
    %pirates.play = P DJ %QS.Pirate %QS.Ship 
  }

  elseif ($did isnum 18) {
    %pirates.play = P DJ $snick(%pirates.chan,1)
  }

  elseif ($did isnum 19) {
    %pirates.play = P Rob $snick(%pirates.chan,1)
  }

  elseif ($did isnum 2) {
    /halt
  }

  else {
    /return
    /halt  
  }

  msg %pirates.chan %pirates.play


}

Source: filebin.net/a60thzr0yjxbfaxd/DRDT-Pirate...1.8.0.mrc?t=hg0dy0cr
Last edit: 1 week 6 days ago by xXBERTOXx.
The following user(s) said Thank You: lurk3r

Please Log in or Create an account to join the conversation.

Time to create page: 0.274 seconds
Powered by Kunena Forum