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