Here is an update to the !Pirates-GamePad Script:
Quote:
[Addon]
Script=Pirates-GamePad
Version=1.2
Author=DR DevTeam
Desc=!Pirates Game Pad
For=DragonRyder v13.5
Date=May 29th 2019
;NOTE: !UNO mod done with permission
;[Mon. Apr. 23 2007 2:41pm] <Ryu> you mind if i mod it to make it so it will do cd
;[Mon. Apr. 23 2007 2:41pm] <lurk3r> np, do what yer like lol
;
;My son introduced me to QuietSilence, whom took my modified !UNO to !Pirates
;and fixed it and turned it into a very AWESOME dialog GamePad for !Pirates
;Hope you don't mind me bragging on your scripting skills QuietSilence

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 100 100 284 154
option dbu
tab "Player", 1000, 0 2 283 151
button "bored", 18, 111 68 32 10, tab 1000
button "Awake", 44, 111 112 32 10, tab 1000
button "bot", 40, 214 38 32 10, tab 1000
button "brig", 219, 144 58 32 10, tab 1000
button "weapon", 220, 181 28 32 10, tab 1000
button "dig", 19, 74 38 32 10, tab 1000
button "fish", 25, 74 28 32 10, tab 1000
button "crabbin", 26, 74 68 32 10, tab 1000
button "work", 27, 74 58 32 10, tab 1000
button "steal", 221, 250 28 32 10, tab 1000
button "love", 28, 2 122 32 10, tab 1000
button "hate", 29, 2 132 32 10, tab 1000
button "legends", 30, 144 48 32 10, tab 1000
button "Lottery", 319, 144 122 32 10, tab 1000
button "scour", 31, 39 112 32 10, tab 1000
button "maps", 32, 111 58 32 10, tab 1000
button "mutiny", 315, 2 142 32 10, tab 1000
button "Party", 316, 144 112 32 10, tab 1000
button "rusty", 402, 144 68 32 10, tab 1000
button "search", 41, 39 122 32 10, tab 1000
button "daily", 13, 111 38 32 10, tab 1000
button "goals", 14, 111 48 32 10, tab 1000
button "heal", 314, 214 48 32 10, tab 1000
button "lockpick", 211, 250 38 32 10, tab 1000
button "snatch", 16, 250 48 32 10, tab 1000
button "dive", 17, 74 48 32 10, tab 1000
button "top", 401, 111 28 32 10, tab 1000
button "tavern", 312, 181 58 32 10, tab 1000
button "Mercy", 313, 111 122 32 10, tab 1000
button "stamina", 212, 181 38 32 10, tab 1000
button "ship status", 42, 217 112 32 10, tab 1000
button "Troll", 213, 74 132 32 10, tab 1000
button "Tasks", 1, 144 28 32 10, tab 1000
button "Carry", 2, 2 58 32 10, tab 1000
button "About", 11, 144 78 32 10, tab 1000
button "Achievement", 12, 111 88 65 10, tab 1000
button "captain", 21, 250 142 32 10, tab 1000
button "capn favor", 22, 250 132 32 10, tab 1000
button "capn rep", 23, 250 122 32 10, tab 1000
button "capn stats", 24, 250 112 32 10, tab 1000
button "rig", 8, 2 48 32 10, tab 1000
button "steer", 9, 39 48 32 10, tab 1000
button "repair", 7, 39 38 32 10, tab 1000
button "fix", 5, 39 58 32 10, tab 1000
button "lookout", 6, 2 38 32 10, tab 1000
button "cook", 4, 39 28 32 10, tab 1000
button "Age", 10, 111 78 32 10, tab 1000
button "clean", 3, 2 28 32 10, tab 1000
button "swab", 15, 2 68 32 10, tab 1000
button "Info", 214, 144 38 32 10, tab 1000
button "Power", 215, 181 48 32 10, tab 1000
button "Level", 216, 214 28 32 10, tab 1000
button "Request", 39, 2 112 32 10, tab 1000
button "Insult", 217, 74 122 32 10, tab 1000
button "Davy Jones", 218, 74 112 32 10, tab 1000
text "Players", 500, 74 100 32 10, tab 1000 center
text "Miscellaneous", 501, 111 100 65 10, tab 1000 center
text "Lvl 1-5", 502, 2 18 32 10, tab 1000 center
text "Lvl 5-6", 503, 39 18 32 10, tab 1000 center
text "Lvl 10+", 504, 74 18 32 10, tab 1000 center
text "Info", 505, 111 18 65 10, tab 1000 center
text "Fight", 506, 181 18 65 10, tab 1000 center
text "Theff", 507, 250 18 32 10, tab 1000 center
text "Captain", 508, 2 100 32 10, tab 1000 center
text "Quick Captain Commands", 509, 217 100 65 10, tab 1000 center
text "Find", 510, 39 100 32 10, tab 1000 center
button "Train", 317, 74 78 32 10, tab 1000
button "Cap Cmd", 318, 217 122 32 10, tab 1000
button "Aye", 52, 144 132 32 10, tab 1000
button "Stash", 53, 111 132 32 10, tab 1000
button "Chest", 46, 111 142 32 10, tab 1000
button "Use", 61, 144 142 32 10, tab 1000

tab "Buy and Sell", 1001

button "BlackPowder", 551, 66 28 40 10, tab 1001
button "Bribe", 552, 2 68 32 10, tab 1001
button "Sell Gun", 250, 2 38 32 10, tab 1001
button "Sell Sword", 251, 2 48 32 10, tab 1001
button "Buy Sword", 252, 34 48 32 10, tab 1001
button "Buy Gun", 253, 34 38 32 10, tab 1001
button "Spouse", 553, 34 78 32 10, tab 1001
button "Sharpen", 554, 34 28 32 10, tab 1001
button "Youth", 155, 2 78 32 10, tab 1001
button "Parlay", 48, 34 68 32 10, tab 1001
button "Rum", 556, 2 28 32 10, tab 1001
button "Nickname", 50, 66 78 40 10, tab 1001
button "Chest", 45, 112 28 32 20, tab 1001
button "Rename Gun", 37, 66 58 40 10, tab 1001
button "Repair Gun", 558, 66 38 40 10, tab 1001
button "Repair Sword", 559, 66 48 40 10, tab 1001
button "Rename Sword", 38, 66 68 40 10, tab 1001
button "Custom", 60, 34 58 32 10, tab 1001


button "Male", 63, 6 106 32 10, tab 1001
button "Female", 64, 38 106 32 10, tab 1001
button "Undisclosed",65 , 70 106 32 10, tab 1001

button "Native", 66, 38 142 32 10, tab 1001
button "English", 67, 6 132 32 10, tab 1001
button "Jesuit", 68, 70 142 32 10, tab 1001
button "Spanish", 71, 70 132 32 10, tab 1001
button "French", 69, 38 132 32 10, tab 1001
button "Dutch", 70, 6 142 32 10, tab 1001

text "Buy Faction", 511, 2 122 104 10, tab 1001 center
text "Buy Gender", 512, 2 96 104 10, tab 1001 center
text "Market", 513, 112 18 170 10, tab 1001 center
text "Fruit", 514, 112 92 100 10, tab 1001 center
text "Chest Locks", 516, 248 28 32 10, tab 1001 center
text "Chest Traps", 517, 248 92 32 10, tab 1001 center
text "Chests", 518, 180 28 32 10, tab 1001 center
text "Goods", 519, 214 92 32 10, tab 1001 center
text "Herbs", 520, 214 28 32 10, tab 1001 center
text "Poisons", 521, 146 28 32 10, tab 1001 center
text "Ship Store", 523, 2 18 104 10, tab 1001 center

button "Bomb", 85, 248 142 32 10, tab 1001
button "Spike", 86, 248 132 32 10, tab 1001
button "Poison", 87, 248 122 32 10, tab 1001
button "Acid", 88, 248 112 32 10, tab 1001
button "Curse", 89, 248 102 32 10, tab 1001

button "large", 83, 180 48 32 10, tab 1001
button "Medium", 84, 180 38 32 10, tab 1001

button "Guava", 90, 112 124 32 10, tab 1001
button "Gooseberries", 91, 112 134 36 10, tab 1001
button "Genips", 92, 112 114 32 10, tab 1001
button "Chayote", 93, 112 104 32 10, tab 1001
button "Ugli", 94, 180 124 32 10, tab 1001
button "Orange", 95, 146 124 32 10, tab 1001
button "Noni", 96, 146 114 32 10, tab 1001
button "Star", 97, 180 114 32 10, tab 1001
button "Soursop", 98, 180 104 32 10, tab 1001
button "Mameyl", 99, 146 104 32 10, tab 1001

button "Luxuries", 145, 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, 146 38 32 10, tab 1001

button "Green", 47, 214 38 32 10, tab 1001

button "Sell Item", 56, 112 48 32 20, tab 1001
button "Sell All", 57, 112 68 32 20, tab 1001

button "d", 150, 248 68 32 10, tab 1001
button "c", 151, 248 58 32 10, tab 1001
button "b", 152, 248 48 32 10, tab 1001
button "a", 153, 248 38 32 10, tab 1001

tab "Captain", 1002
tab "Sail to", 1003
button "Antigua", 100, 2 30 56 10, tab 1003
button "Barbados", 101, 2 40 56 10, tab 1003
button "Bermuda", 102, 2 50 56 10, tab 1003
button "Campeche", 103, 2 60 56 10, tab 1003
button "Caracas", 104, 2 70 56 10, tab 1003
button "Cartagena", 105, 2 80 56 10, tab 1003
button "CoroCumana", 106, 2 90 56 10, tab 1003
button "Curacao", 107, 2 100 56 10, tab 1003
button "Eluthera", 108, 2 110 56 10, tab 1003
button "Florida_Keys", 109, 58 30 56 10, tab 1003
button "Gibraltar", 110, 58 40 56 10, tab 1003
button "Gran_Grenada", 111, 58 50 56 10, tab 1003
button "Grand_Bahama", 112, 58 60 56 10, tab 1003
button "Guadeloupe", 113, 58 70 56 10, tab 1003
button "Havana", 114, 58 80 56 10, tab 1003
button "Leogane", 115, 58 90 56 10, tab 1003
button "Maracaibo", 116, 58 100 56 10, tab 1003
button "Margarita", 117, 58 110 56 10, tab 1003
button "Martinique", 118, 114 30 56 10, tab 1003
button "Montserrat", 119, 114 40 56 10, tab 1003
button "Nassau", 120, 114 50 56 10, tab 1003
button "Nevis", 121, 114 60 56 10, tab 1003
button "Nombre_de_Dios", 122, 114 70 56 10, tab 1003
button "Panama", 123, 114 80 56 10, tab 1003
button "Petit_Goave", 124, 114 90 56 10, tab 1003
button "Port-de-Paix", 125, 114 100 56 10, tab 1003
button "Puerto_Bello", 126, 114 110 56 10, tab 1003
button "Puerto_Cabello", 127, 170 30 56 10, tab 1003
button "Puerto_Principe", 128, 170 40 56 10, tab 1003
button "Rio_de_la_Hacha", 129, 170 50 56 10, tab 1003
button "San_Juan", 130, 170 60 56 10, tab 1003
button "Santa_Catalina", 131, 170 70 56 10, tab 1003
button "Santa_Marta", 132, 170 80 56 10, tab 1003
button "Santiago", 133, 170 90 56 10, tab 1003
button "Santiago_de_La_Vega", 134, 170 100 56 10, tab 1003
button "Santo_Domingo", 135, 170 110 56 10, tab 1003
button "Sint_Maarten", 136, 226 30 56 10, tab 1003
button "St. Augustine", 137, 226 40 56 10, tab 1003
button "St. Eustatius", 138, 226 50 56 10, tab 1003
button "St. Kitts", 139, 226 60 56 10, tab 1003
button "St. Martin", 140, 226 70 56 10, tab 1003
button "Tortuga", 141, 226 80 56 10, tab 1003
button "Trinidad", 142, 226 90 56 10, tab 1003
button "Vera_Cruz", 143, 226 100 56 10, tab 1003
button "Villa_Hermosa", 144, 226 110 56 10, tab 1003
text "Sail to Location", 522, 2 18 280 10, tab 1003 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,56-57,63-65,66-71,80,83-144,150-153,211-221,250-253,311-319,401-402,411-413,550-560: {

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

if ($did isnum 56) {
%pirates.len = $len($did($did))
%pirates.play = p Market Sell Item $?="enter Item Number:"
}
if ($did isnum 57) {
%pirates.len = $len($did($did))
%pirates.play = P Market Sell All Ornamental Aye
}
if ($did isnum 80) {
%pirates.len = $len($did($did))
%pirates.play = P Market Buy Poison $left($did($did),%pirates.len)
}


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 Market buy Faction $left($did($did),%pirates.len)
}

elseif ($did isnum 83-84) {
%pirates.len = $len($did($did))
%pirates.play = p Market buy Chests $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-144) {
%pirates.len = $len($did($did))
%pirates.play = p sail $left($did($did),%pirates.len)
}
if ($did isnum 150-153) {
%pirates.len = $len($did($did))
%pirates.play = p Market Sell Chest Lock $left($did($did),%pirates.len)
}
elseif ($did isnum 211-221) {
%pirates.play = p lockpick|p stamina|p troll|p Info|p Power|p Level|p Insult|p Davy Jones|p brig|p weapon|p rob
%pirates.name = $?="enter pirate name $crlf or blank for your self:"
%pirates.did = $did - 210
%pirates.play = $gettok(%pirates.play,%pirates.did,124)
%pirates.play = %pirates.play %pirates.name
}
if ($did isnum 250-253) {
%pirates.len = $len($did($did))
%pirates.play = p Market $left($did($did),%pirates.len) 250-253Aye
}

elseif ($did isnum 312-319) {
%pirates.play = p tavern rum|p mercy aye|p heal aye|p mutiny aye|p party aye|p skill train|p Capn Cmd|P Store Buy Lottery Auto 10
%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
}
elseif ($did isnum 550-560) {
%pirates.len = $len($did($did))
%pirates.play = p store buy $left($did($did),%pirates.len) Aye
}


msg %pirates.chan %pirates.play
}