Forums Scripts & Popups !Pirates Game Pad

[Addon]
Script=Pirates-GamePad
Version=1.0
Author=DR DevTeam
Desc=!Pirates Game Pad
For=DragonRyder v13.5
Date=May 29th 2019
;NOTE: 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

menu channel {
!Pirates GamePad: {
set %pirates.chan $iif(%pirates.chan != $chan,$iif($$input(Change !Pirates channel to $chan $+ ?,y,Uno Channel is %pirates.chan),$chan,%pirates.chan),$chan)
if (%pirates.chan == $chan) { dialog $iif(!$dialog(DRDT-PiratesAddon),-md,-ev) DRDT-PiratesAddon DRDT-PiratesAddon }
}
}

dialog DRDT-PiratesAddon {
title "!Pirates Game Pad v1.0"
size -1 -1 274 96
option dbu
button "bored", 101, 21 17 30 12
button "awake", 103, 53 17 30 12
button "bot", 105, 85 17 30 12
button "brig", 107, 117 17 30 12
button "weapon", 109, 149 17 30 12
button "dig", 201, 21 33 30 12
button "fish", 203, 53 33 30 12
button "crabbin", 205, 85 33 30 12
button "work", 207, 117 33 30 12
button "steal", 209, 149 33 30 12
button "love", 301, 21 49 30 12
button "hate", 303, 53 49 30 12
button "legends", 305, 85 49 30 12
button "Lottery", 307, 117 49 30 12
button "scour", 309, 149 49 30 12
button "maps", 401, 21 65 30 12
button "mutiny", 403, 53 65 30 12
button "Party", 405, 85 65 30 12
button "rusty", 407, 117 65 30 12
button "search", 409, 149 65 30 12
text "Arrr....", 100, 1 19 19 8, center
text "Matey!", 200, 1 35 19 8, center
text "Ship", 300, 1 51 19 8, center
text "Ahoy!", 400, 1 67 19 8, center
button "daily", 111, 181 17 29 12
button "goals", 112, 211 17 29 12
button "heal", 113, 241 17 29 12
button "lockpick", 211, 181 33 29 12
button "snatch", 212, 211 33 29 12
button "dive", 213, 241 33 29 12
button "top", 311, 181 49 29 12
button "tavern", 312, 211 49 29 12
button "mercy", 313, 241 49 29 12
button "stamina", 411, 181 65 29 12
button "ship", 412, 211 65 29 12
button "troll", 413, 241 65 29 12
button "tasks", 1, 2 2 33 10
button "carry", 2, 37 2 32 10
button "about", 11, 21 81 44 12
button "achievement", 12, 67 81 44 12
text "!Pirates", 20, 115 83 25 8, center
button "captain", 21, 147 82 30 10
button "capn favor", 22, 178 82 30 10
button "capn rep", 23, 209 82 30 10
button "capn stats", 24, 240 82 30 10
button "rig", 8, 215 2 26 10
button "steer", 9, 243 2 26 10
button "repair", 7, 187 2 26 10
button "fix", 5, 128 2 26 10
button "lookout", 6, 156 2 26 10
button "cook", 4, 100 2 26 10
button "Age", 10, 2 81 17 12
button "clean", 3, 72 2 26 10
}
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-10,11-12,21-24,111-113,211-213,311-313,411-413: {
if ($did isnum 1-12) {
%pirates.play = p tasks|p carry|p clean|p cook|p fix|p lookout|p repair|p rig|p steer|p age|about|achievement
%pirates.play = $gettok(%pirates.play,$did,124)
}
elseif ($did isnum 111-113) {
%pirates.play = p daily|p goals|p heal aye
%pirates.play = $gettok(%pirates.play,$did,12)
}
elseif ($did isnum 211-213) {
%pirates.play = p lockpick $$?="enter pirate name:"|p snatch|p dive
%pirates.play = $gettok(%pirates.play,$did,12)
}
elseif ($did isnum 311-313) {
%pirates.play = p top|p tavern brandy|p mercy aye
%pirates.play = $gettok(%pirates.play,$did,12)
}
elseif ($did isnum 411-413) {
%pirates.play = p stamina|p ship|p troll $$?="enter pirate name:"
%pirates.play = $gettok(%pirates.play,$did,12)
}
elseif ($did isnum 21-24) {
%pirates.len = $len($did($did))
%pirates.play = p $left($did($did),%pirates.len)
}
else {
%pirates.play = $iif($right($did,2) < 11,$right($did,1),$gettok($right($did,1),32))
%pirates.play = $+(%pirates.play)
}
if ($did isnum 11-12) || ($did > 100) {
%pirates.play = $+(p,$chr(32),%pirates.play)
}
msg %pirates.chan %pirates.play
}

[Addon]
Script=Pirates-GamePad
Version=1.0
Author=DR DevTeam
Desc=!Pirates Game Pad
For=DragonRyder v13.5
Date=May 29th 2019
;NOTE: 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

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 276 140
option dbu
button "bored", 18, 107 52 32 10
button "awake", 103, 107 94 32 10
button "bot", 40, 208 22 32 10
button "brig", 219, 140 42 32 10
button "weapon", 220, 175 12 32 10
button "dig", 19, 72 22 32 10
button "fish", 25, 72 12 32 10
button "crabbin", 26, 72 52 32 10
button "work", 27, 72 42 32 10
button "steal", 221, 243 12 32 10
button "love", 28, 2 106 32 10
button "hate", 29, 2 116 32 10
button "legends", 30, 140 32 32 10
button "Lottery", 43, 140 104 32 10
button "scour", 31, 37 96 32 10
button "maps", 32, 107 42 32 10
button "mutiny", 315, 2 126 32 10
button "Party", 316, 140 94 32 10
button "rusty", 402, 140 52 32 10
button "search", 41, 37 106 32 10
button "daily", 13, 107 22 32 10
button "goals", 14, 107 32 32 10
button "heal", 314, 175 52 32 10
button "lockpick", 211, 243 22 32 10
button "snatch", 16, 243 32 32 10
button "dive", 17, 72 32 32 10
button "top", 401, 107 12 32 10
button "tavern", 312, 175 42 32 10
button "mercy", 313, 107 104 32 10
button "stamina", 212, 175 22 32 10
button "ship", 42, 210 96 32 10
button "troll", 213, 72 116 32 10
button "tasks", 1, 140 12 32 10
button "carry", 2, 2 42 32 10
button "about", 11, 140 62 32 10
button "achievement", 12, 107 72 65 10
button "captain", 21, 243 126 32 10
button "capn favor", 22, 243 116 32 10
button "capn rep", 23, 243 106 32 10
button "capn stats", 24, 243 96 32 10
button "rig", 8, 2 32 32 10
button "steer", 9, 37 32 32 10
button "repair", 7, 37 22 32 10
button "fix", 5, 37 42 32 10
button "lookout", 6, 2 22 32 10
button "cook", 4, 37 12 32 10
button "Age", 10, 107 62 32 10
button "clean", 3, 2 12 32 10
button "swab", 15, 2 52 32 10
button "Info", 214, 140 22 32 10
button "Power", 215, 175 32 32 10
button "Level", 216, 208 12 32 10
button "Request", 39, 2 96 32 10
button "Insult", 217, 72 106 32 10
button "Davy Jones", 218, 72 96 32 10
text "Players", 500, 72 84 32 10, center
text "miscellaneous", 501, 107 84 65 10, center
text "Lvl 1-5", 502, 2 2 32 10, center
text "Lvl 5-6", 503, 37 2 32 10, center
text "Lvl 10+", 504, 72 2 32 10, center
text "Info", 505, 107 2 65 10, center
text "Fight", 506, 175 2 65 10, center
text "Theff", 507, 243 2 32 10, center
text "Lvl 1-5", 508, 2 84 32 10, center
text "Captain Commands", 509, 210 84 65 10, center
text "Find", 510, 37 84 32 10, 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-43,211-221,311-316,401-402,411-413: {

if ($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
}
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 312-316) {
%pirates.play = p tavern rum|p mercy aye|p heal aye|p mutiny aye|p party aye
%pirates.did = $did - 311
%pirates.play = $gettok(%pirates.play,%pirates.did,124)
}
elseif ($did isnum 1-43) {
%pirates.len = $len($did($did))
%pirates.play = p $left($did($did),%pirates.len)
}
msg %pirates.chan %pirates.play
}

[Addon]
Script=UNO-GamePad
Version=13.2
Author=DR DevTeam
Desc=!UNO Game Pad
For=DragonRyder v11.0
Date=February 29th 2012
;NOTE: 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

menu channel {
!UNO GamePad: {
set %uno.chan $iif(%uno.chan != $chan,$iif($$input(Change Uno channel to $chan $+ ?,y,Uno Channel is %uno.chan),$chan,%uno.chan),$chan)
if (%uno.chan == $chan) { dialog $iif(!$dialog(DRDT-UnoAddon),-md,-ev) DRDT-UnoAddon DRDT-UnoAddon }
}
}

dialog DRDT-UnoAddon {
title "!UNO Game Pad"
size -1 -1 274 96
option dbu
button "Y 1", 101, 21 17 15 12
button "Y 2", 102, 37 17 15 12
button "Y 3", 103, 53 17 15 12
button "Y 4", 104, 69 17 15 12
button "Y 5", 105, 85 17 15 12
button "Y 6", 106, 101 17 15 12
button "Y 7", 107, 117 17 15 12
button "Y 8", 108, 133 17 15 12
button "Y 9", 109, 149 17 15 12
button "Y 0", 110, 165 17 15 12
button "R 1", 201, 21 33 15 12
button "R 2", 202, 37 33 15 12
button "R 3", 203, 53 33 15 12
button "R 4", 204, 69 33 15 12
button "R 5", 205, 85 33 15 12
button "R 6", 206, 101 33 15 12
button "R 7", 207, 117 33 15 12
button "R 8", 208, 133 33 15 12
button "R 9", 209, 149 33 15 12
button "R 0", 210, 165 33 15 12
button "B 1", 301, 21 49 15 12
button "B 2", 302, 37 49 15 12
button "B 3", 303, 53 49 15 12
button "B 4", 304, 69 49 15 12
button "B 5", 305, 85 49 15 12
button "B 6", 306, 101 49 15 12
button "B 7", 307, 117 49 15 12
button "B 8", 308, 133 49 15 12
button "B 9", 309, 149 49 15 12
button "B 0", 310, 165 49 15 12
button "G 1", 401, 21 65 15 12
button "G 2", 402, 37 65 15 12
button "G 3", 403, 53 65 15 12
button "G 4", 404, 69 65 15 12
button "G 5", 405, 85 65 15 12
button "G 6", 406, 101 65 15 12
button "G 7", 407, 117 65 15 12
button "G 8", 408, 133 65 15 12
button "G 9", 409, 149 65 15 12
button "G 0", 410, 165 65 15 12
text "Yellow", 100, 1 19 19 8, center
text "Red", 200, 1 35 19 8, center
text "Blue", 300, 1 51 19 8, center
text "Green", 400, 1 67 19 8, center
button "Draw Two", 111, 181 17 29 12
button "Skip", 112, 211 17 29 12
button "Reverse", 113, 241 17 29 12
button "Draw Two", 211, 181 33 29 12
button "Skip", 212, 211 33 29 12
button "Reverse", 213, 241 33 29 12
button "Draw Two", 311, 181 49 29 12
button "Skip", 312, 211 49 29 12
button "Reverse", 313, 241 49 29 12
button "Draw Two", 411, 181 65 29 12
button "Skip", 412, 211 65 29 12
button "Reverse", 413, 241 65 29 12
button "Draw", 1, 2 2 33 10
button "Pass", 2, 37 2 32 10
button "Wild", 11, 21 81 44 12
button "Wild Draw Four", 12, 67 81 44 12
text "Color", 20, 121 83 25 8, center
button "Yellow", 21, 147 82 30 10
button "Red", 22, 178 82 30 10
button "Blue", 23, 209 82 30 10
button "Green", 24, 240 82 30 10
button "Join", 8, 215 2 26 10
button "!GG!", 9, 243 2 26 10
button "Start", 7, 187 2 26 10
button "Count", 5, 128 2 26 10
button "Order", 6, 156 2 26 10
button "Cards", 4, 100 2 26 10
button "Stop", 10, 2 81 17 12, ok
button "TopCard", 3, 72 2 26 10
}
on *:dialog:DRDT-UnoAddon:init:*:{
var %uno.play, %uno.color
dialog -t $dname $dialog($dname).title Now playing in %uno.chan
}
on *:dialog:DRDT-UnoAddon:sclick:1-10,11-12,21-24,101-113,201-213,301-313,401-413: {
if ($did isnum 1-12) {
%uno.play = dr|pa|cd|cards|count|order|!uno|jo| 8,1!4G12o9o8d 4G12a9m8e 4O12f 9U8N4O9! 11:8-9)|!stop|w|wdf
%uno.play = $gettok(%uno.play,$did,124)
}
elseif ($did isnum 21-24) {
%uno.play = co $left($did($did),1)
}
else {
%uno.color = $gettok(y r b g,$int($calc($did / 100)),32)
%uno.play = $iif($right($did,2) < 11,$right($did,1),$gettok(dt s r,$right($did,1),32))
%uno.play = $+(%uno.color,%uno.play)
}
if ($did isnum 11-12) || ($did > 100) {
%uno.play = $+(pl,$chr(32),%uno.play)
}
msg %uno.chan %uno.play
}

[Addon]
Script=Pirates-GamePad
Version=1.0
Author=DR DevTeam
Desc=!Pirates Game Pad
For=DragonRyder v13.5
Date=May 29th 2019
;NOTE: 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

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 242
option dbu
button "bored", 18, 111 52 32 10
button "awake", 44, 107 96 32 10
button "bot", 40, 214 22 32 10
button "brig", 219, 144 42 32 10
button "weapon", 220, 181 12 32 10
button "dig", 19, 74 22 32 10
button "fish", 25, 74 12 32 10
button "crabbin", 26, 74 52 32 10
button "work", 27, 74 42 32 10
button "steal", 221, 250 12 32 10
button "love", 28, 2 106 32 10
button "hate", 29, 2 116 32 10
button "legends", 30, 144 32 32 10
button "Lottery", 43, 140 106 32 10
button "scour", 31, 37 96 32 10
button "maps", 32, 111 42 32 10
button "mutiny", 315, 2 126 32 10
button "Party", 316, 140 96 32 10
button "rusty", 402, 144 52 32 10
button "search", 41, 37 106 32 10
button "daily", 13, 111 22 32 10
button "goals", 14, 111 32 32 10
button "heal", 314, 181 52 32 10
button "lockpick", 211, 250 22 32 10
button "snatch", 16, 250 32 32 10
button "dive", 17, 74 32 32 10
button "top", 401, 111 12 32 10
button "tavern", 312, 181 42 32 10
button "mercy", 313, 107 106 32 10
button "stamina", 212, 181 22 32 10
button "ship", 42, 217 98 32 10
button "Troll", 213, 72 116 32 10
button "Tasks", 1, 144 12 32 10
button "Carry", 2, 2 42 32 10
button "About", 11, 144 62 32 10
button "Achievement", 12, 111 72 65 10
button "captain", 21, 250 128 32 10
button "capn favor", 22, 250 118 32 10
button "capn rep", 23, 250 108 32 10
button "capn stats", 24, 250 98 32 10
button "rig", 8, 2 32 32 10
button "steer", 9, 39 32 32 10
button "repair", 7, 39 22 32 10
button "fix", 5, 39 42 32 10
button "lookout", 6, 2 22 32 10
button "cook", 4, 39 12 32 10
button "Age", 10, 111 62 32 10
button "clean", 3, 2 12 32 10
button "swab", 15, 2 52 32 10
button "Info", 214, 144 22 32 10
button "Power", 215, 181 32 32 10
button "Level", 216, 214 12 32 10
button "Request", 39, 2 96 32 10
button "Insult", 217, 72 106 32 10
button "Davy Jones", 218, 72 96 32 10
button "Antigua", 100, 2 150 56 10
button "Barbados", 101, 2 160 56 10
button "Bermuda", 102, 2 170 56 10
button "Campeche", 103, 2 180 56 10
button "Caracas", 104, 2 190 56 10
button "Cartagena", 105, 2 200 56 10
button "CoroCumana", 106, 2 210 56 10
button "Curacao", 107, 2 220 56 10
button "Eluthera", 108, 2 230 56 10
button "Florida_Keys", 109, 58 150 56 10
button "Gibraltar", 110, 58 160 56 10
button "Gran_Grenada", 111, 58 170 56 10
button "Grand_Bahama", 112, 58 180 56 10
button "Guadeloupe", 113, 58 190 56 10
button "Havana", 114, 58 200 56 10
button "Leogane", 115, 58 210 56 10
button "Maracaibo", 116, 58 220 56 10
button "Margarita", 117, 58 230 56 10
button "Martinique", 118, 114 150 56 10
button "Montserrat", 119, 114 160 56 10
button "Nassau", 120, 114 170 56 10
button "Nevis", 121, 114 180 56 10
button "Nombre_de_Dios", 122, 114 190 56 10
button "Panama", 123, 114 200 56 10
button "Petit_Goave", 124, 114 210 56 10
button "Port-de-Paix", 125, 114 220 56 10
button "Puerto_Bello", 126, 114 230 56 10
button "Puerto_Cabello", 127, 170 150 56 10
button "Puerto_Principe", 128, 170 160 56 10
button "Rio_de_la_Hacha", 129, 170 170 56 10
button "San_Juan", 130, 170 180 56 10
button "Santa_Catalina", 131, 170 190 56 10
button "Santa_Marta", 132, 170 200 56 10
button "Santiago", 133, 170 210 56 10
button "Santiago_de_La_Vega", 134, 170 220 56 10
button "Santo_Domingo", 135, 170 230 56 10
button "Sint_Maarten", 136, 226 150 56 10
button "St_Augustine", 137, 226 160 56 10
button "St_Eustatius", 138, 226 170 56 10
button "St_Kitts", 139, 226 180 56 10
button "St_Martin", 140, 226 190 56 10
button "Tortuga", 141, 226 200 56 10
button "Trinidad", 142, 226 210 56 10
button "Vera_Cruz", 143, 226 220 56 10
button "Villa_Hermosa", 144, 226 230 56 10
text "Players", 500, 72 84 32 10, center
text "Miscellaneous", 501, 107 84 65 10, center
text "Lvl 1-5", 502, 2 2 32 10, center
text "Lvl 5-6", 503, 39 2 32 10, center
text "Lvl 10+", 504, 74 2 32 10, center
text "Info", 505, 111 2 65 10, center
text "Fight", 506, 181 2 65 10, center
text "Theff", 507, 250 2 32 10, center
text "Captain", 508, 2 84 32 10, center
text "Captain Commands", 509, 217 86 65 10, center
text "Find", 510, 37 84 32 10, center
text "Sail to Location", 20, 2 140 280 8, 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-43,100-144,211-221,311-316,401-402,411-413: {

if ($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
}
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 312-316) {
%pirates.play = p tavern rum|p mercy aye|p heal aye|p mutiny aye|p party aye
%pirates.did = $did - 311
%pirates.play = $gettok(%pirates.play,%pirates.did,124)
}
elseif ($did isnum 1-43) {
%pirates.len = $len($did($did))
%pirates.play = p $left($did($did),%pirates.len)
}
elseif ($did isnum 100-144) {
%pirates.len = $len($did($did))
%pirates.play = p sail $left($did($did),%pirates.len)
}

msg %pirates.chan %pirates.play
}

[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
}