Roulette Script/GUI

[radar1213]

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
}