+- Abandoned-IRC (https://www.abandoned-irc.net)
+-- Forum: Abandoned-IRC (https://www.abandoned-irc.net/forumdisplay.php?fid=4)
+--- Forum: Scripting (https://www.abandoned-irc.net/forumdisplay.php?fid=11)
+--- Thread: Roulette Script/GUI (/showthread.php?tid=15)
Roulette Script/GUI - radar1213 - 11-26-2022
Roulette GUI for easier gameplay. Made for mIRC/AdiIRC (Windows Clients). Simply place the code either by loading the file or inserting/saving into remotes then right click in #ZW-Lounge to see the Roulette GUI addon. Once open, you can click to play. There are Roulette Sounds available, however not needed to play. If interested in sounds, place the sounds in your clients sound folder. Thats it! NJoy! (ty TheMorgue for your work on this)
Sounds - https://files.fm/u/e2hhsjgyp
For Roulette GUI - Download file here or copy code below
Code:
menu channel {
Roulette GUI: {
set %roulette.chan $iif(%roulette.chan != $chan,$iif($$input(Change Roulette channel to $chan $+ ?,y,Roulette Channel is %roulette.chan),$chan,%roulette.chan), $chan)
if (%roulette.chan == $chan) { dialog $iif(!$dialog(dlgRoulette),-mdo,-ev) dlgRoulette dlgRoulette }
}
}
on *:dialog:dlgRoulette:init:*:{
dialog -t $dname $dialog($dname).title now playing in %roulette.chan
}
alias -l DialogOpen {
if ($dialog($1) == $1 ) { /dialog -x $1 }
else { dialog $iif($dialog($1),-v,-m ) $1- }
}
;menu channel {
; $iif($dialog(dlgRoulette),Close,Open) Roulette Table:/DialogOpen dlgRoulette dlgRoulette
;}
dialog dlgRoulette {
title "Roulette Table"
size -1 -1 221 133
option dbu
button "1", 1, 17 57 13 19
button "2", 2, 17 36 13 19
button "6", 4, 32 16 13 19
button "5", 5, 32 36 13 19
button "9", 7, 47 16 13 19
button "8", 8, 47 36 13 19
button "12", 10, 62 16 13 19
button "11", 11, 62 36 13 19
button "15", 13, 77 16 13 19
button "14", 14, 77 36 13 19
button "18", 16, 92 16 13 19
button "17", 17, 92 36 13 19
button "21", 19, 107 16 13 19
button "20", 20, 107 36 13 19
button "24", 22, 122 16 13 19
button "23", 23, 122 36 13 19
button "27", 25, 136 16 13 19
button "26", 26, 136 36 13 19
button "30", 28, 150 16 13 19
button "29", 29, 150 36 13 19
button "33", 31, 164 16 13 19
button "32", 32, 164 36 13 19
button "36", 34, 179 16 13 19
button "35", 35, 179 36 13 19
button "0", 37, 4 17 12 58
button "Line1", 38, 17 3 28 12
button "Line2", 39, 32 76 27 12
button "Line3", 40, 48 3 27 12
button "Line4", 41, 62 76 27 12
button "Line5", 42, 78 3 27 12
button "Line6", 43, 93 76 27 12
button "Line7", 44, 107 3 27 12
button "Line8", 45, 122 76 27 12
button "Line9", 46, 136 3 27 12
button "Line10", 47, 150 76 27 12
button "Line11", 48, 164 3 27 12
button "Row3", 49, 195 15 19 20
button "Row2", 50, 195 35 19 20
button "Row1", 51, 195 56 19 20
button "Less", 52, 18 89 87 12
button "More", 53, 108 89 84 12
button "Doz1", 54, 30 102 42 12
button "Doz2", 55, 83 102 43 12
button "Doz3", 56, 137 102 43 12
button "Black", 58, 106 118 37 12
button "Red", 59, 69 118 37 12
button "Even", 60, 18 118 37 12
button "Odd", 61, 155 118 37 12
edit %Cr.Amount, 62, 194 89 23 10, result %Cr.Amount
text "Amount", 63, 193 79 27 8
button "3", 3, 17 16 13 19
button "4", 6, 32 57 13 19
button "7", 9, 47 57 13 19
button "10", 12, 62 57 13 19
button "13", 15, 77 57 13 19
button "16", 18, 92 57 13 19
button "19", 21, 107 57 13 19
button "22", 24, 122 57 13 19
button "25", 27, 136 57 13 19
button "28", 30, 150 57 13 19
button "31", 33, 164 57 13 19
button "34", 36, 179 57 13 19
check "Sound", 57, 186 104 32 10
}
on *:dialog:dlgRoulette:init: { /did -ra dlgRoulette 62 %Cr.Amount }
on *:dialog:dlgRoulette:sclick:1-61: {
/msg %roulette.chan !rbet $did($did).text $did(62).text
/set -u50 %CR.BetS On
}
on *:TEXT:*game are now*:%roulette.chan:{
if (%CR.BetS == $null) || ($nick != radar) { /halt }
%s = $strip($1-)
if (%CR.BetS == On) && ( bets isin %s ) { /splay $mircdirSounds\RouletteTableSoundEffect.mp3 }
}
on *:TEXT:*WINNERS*:%roulette.chan:{
if (%CR.BetS == $null) || ($nick != radar) { /halt }
if (%CR.BetS == On) /splay $mircdirSounds\YouWon.mp3
}
on *:TEXT:*won at*:%roulette.chan:{
if (%CR.BetS == $null) || ($nick != radar) { /halt }
/splay $mircdirSounds\YouLost.mp3
}