worked on this a bit today still needs some work on a few commands renumbered a lot of the dialog box ids
[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", 18, 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", 19, 21 33 30 12
button "fish", 25, 53 33 30 12
button "crabbin", 26, 85 33 30 12
button "work", 27, 117 33 30 12
button "steal", 209, 149 33 30 12
button "love", 28, 21 49 30 12
button "hate", 29, 53 49 30 12
button "legends", 30, 85 49 30 12
button "Lottery", 307, 117 49 30 12
button "scour", 31, 149 49 30 12
button "maps", 32, 21 65 30 12
button "mutiny", 403, 53 65 30 12
button "Party", 405, 85 65 30 12
button "rusty", 402, 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", 13, 181 17 29 12
button "goals", 14, 211 17 29 12
button "heal", 314, 241 17 29 12
button "lockpick", 211, 181 33 29 12
button "snatch", 16, 211 33 29 12
button "dive", 17, 241 33 29 12
button "top", 401, 181 49 29 12
button "tavern", 312, 211 49 29 12
button "mercy", 313, 241 49 29 12
button "stamina", 212, 181 65 29 12
button "ship", 412, 211 65 29 12
button "troll", 213, 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, 128 2 26 10
button "steer", 9, 243 2 26 10
button "repair", 7, 187 2 26 10
button "fix", 5, 215 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-32,211-213,311-314,401-402,411-413: {
if ($did isnum 211-213) {
%pirates.play = p lockpick|p stamina|p troll
%pirates.name = $$?="enter pirate name:"
%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-314) {
%pirates.play = p tavern brandy|p mercy aye|p heal aye
%pirates.did = $did - 311
%pirates.play = $gettok(%pirates.play,%pirates.did,124)
}
elseif ($did isnum 1-32) {
%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)
}
msg %pirates.chan %pirates.play
}
