mIRC Home    About    Download    Register    News    Help

Print Thread
!Pirates Game Pad #265567
31/05/19 12:14 PM
31/05/19 12:14 PM
Joined: Aug 2006
Posts: 36
OH, USA
D
DragonRyder Offline OP
Ameglian cow
DragonRyder  Offline OP
Ameglian cow
D

Joined: Aug 2006
Posts: 36
OH, USA
Not sure where I am going wrong:

Quote:

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


Re: !Pirates Game Pad [Re: DragonRyder] #265568
31/05/19 03:59 PM
31/05/19 03:59 PM
Joined: Jan 2004
Posts: 1,158
maroon Offline
Hoopy frood
maroon  Offline
Hoopy frood

Joined: Jan 2004
Posts: 1,158
It would help if you'd say what's being done wrong, or not being done that should be.

Assuming it worked correctly before you mod'ed it, what parts did you change? And do you still have the original version which you can incrementally mod until it starts messing up?

But at a glance this looks wrong:

else {
%pirates.play = $iif($right($did,2) < 11,$right($did,1),$gettok($right($did,1),32))
%pirates.play = $+(%pirates.play)
}

The 1st command has wrong syntax, as $gettok should have 3 parameters. And hopefully you're planning on tokenizing more than just the right-most 1 character.

And the 2nd one is a do-nothing command that takes the existing variable and sets it to the same value.

Re: !Pirates Game Pad [Re: DragonRyder] #265569
31/05/19 07:02 PM
31/05/19 07:02 PM
Joined: May 2019
Posts: 4
Q
QuietSilence Offline
Self-satisified door
QuietSilence  Offline
Self-satisified door
Q

Joined: May 2019
Posts: 4
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
}

Re: !Pirates Game Pad [Re: QuietSilence] #265571
01/06/19 03:53 PM
01/06/19 03:53 PM
Joined: May 2019
Posts: 4
Q
QuietSilence Offline
Self-satisified door
QuietSilence  Offline
Self-satisified door
Q

Joined: May 2019
Posts: 4
worked on it some more. now need to study up on doing dropdown boxs for it. everything works now but need to make some changes for multi option for some commands
never did figure out what that else statment on bottom was for so deleated it

my first attempt at doing dialogs so any help or info is appreciated

questions
how do you fill in items for a dropdown?
is there away to pull a nick from nicklist to the script/dialog ?
ie click on a nick to highlight it and have that nick be used to fill in an argument in a statement?
im useing the $? box to fill in nicks ATM but would like to not have to type. I know i could use menu nicklist but was loking to do it all from a dialog

Originally Posted By: QuietSilence

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


Re: !Pirates Game Pad [Re: maroon] #265578
02/06/19 05:16 PM
02/06/19 05:16 PM
Joined: Aug 2006
Posts: 36
OH, USA
D
DragonRyder Offline OP
Ameglian cow
DragonRyder  Offline OP
Ameglian cow
D

Joined: Aug 2006
Posts: 36
OH, USA
here is the original script designed for !UNO
Quote:

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



the problem is in the dialog if you load it, I was only getting the top line and bottom line to work and everything in the middle either only did p or nothing at all.

Last edited by DragonRyder; 02/06/19 05:17 PM.
Re: !Pirates Game Pad [Re: DragonRyder] #265579
02/06/19 05:19 PM
02/06/19 05:19 PM
Joined: Aug 2006
Posts: 36
OH, USA
D
DragonRyder Offline OP
Ameglian cow
DragonRyder  Offline OP
Ameglian cow
D

Joined: Aug 2006
Posts: 36
OH, USA
the Uno scrip[t works just as it is designed to, it is the !Pirates one I am having issues with and going to look over QuiteSilence edit and see how it goes.

Re: !Pirates Game Pad [Re: QuietSilence] #265580
02/06/19 05:20 PM
02/06/19 05:20 PM
Joined: Aug 2006
Posts: 36
OH, USA
D
DragonRyder Offline OP
Ameglian cow
DragonRyder  Offline OP
Ameglian cow
D

Joined: Aug 2006
Posts: 36
OH, USA
that is what i am also trying to do, it would save me so much time.

Re: !Pirates Game Pad [Re: DragonRyder] #265581
02/06/19 05:43 PM
02/06/19 05:43 PM
Joined: May 2019
Posts: 4
Q
QuietSilence Offline
Self-satisified door
QuietSilence  Offline
Self-satisified door
Q

Joined: May 2019
Posts: 4
i added some more all the sail to port stuff ill set it all in a tab after its all working and tested


Originally Posted By: DragonRyder

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


Re: !Pirates Game Pad [Re: QuietSilence] #265582
02/06/19 05:58 PM
02/06/19 05:58 PM
Joined: May 2019
Posts: 4
Q
QuietSilence Offline
Self-satisified door
QuietSilence  Offline
Self-satisified door
Q

Joined: May 2019
Posts: 4
so i pasted the newer version for DR to play with smile
the prob you where having before was the gettoken was using wrong dialog id
ie
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
}
as you can see i had to add a %pirates.did = $did - 210
to get the id to change to the token number
it was looking for token 211 instead of token 1

any way the sail portion of the new dialog is eventualy going to be a tab

but its hard to edit ina tab so i just left it on the main screen till i get all the commands set up thinkin there will ba a tab for store / tavern commands 1 for captain commands
and maybe 1 for shipwright may be 1 for fighting that will have a drop down for ship names

do you know how to add items to a combo box?
also do you know a way to pull nicks in to the script by just highlighting then in the nick list ?

ie highlight a nick in nick list and press the duel buton and have it fill in the nick after the p duel

this has been a blast learning dialogs thanx for the opportunity smile

Re: !Pirates Game Pad [Re: QuietSilence] #265593
05/06/19 02:25 AM
05/06/19 02:25 AM
Joined: Aug 2006
Posts: 36
OH, USA
D
DragonRyder Offline OP
Ameglian cow
DragonRyder  Offline OP
Ameglian cow
D

Joined: Aug 2006
Posts: 36
OH, USA
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
}