Forums Scripts & Popups !Pirates Game Pad

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