Roulette GUI

More
6 months 4 weeks ago - 6 months 4 weeks ago #9 by TheMorgue
Roulette GUI was created by TheMorgue
A very basic roulette table for #Zombie-Lounge
If wanted, the attached Sound Files goto $mircdir and will create \sounds\[sound].mp3



Roulette-GUI.mrc
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 "Line 7", 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 "Row1", 49, 195 15 19 20
  button "Row2", 50, 195 35 19 20
  button "Row3", 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 "Ammount", 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", 64, 186 104 32 10
}

on *:dialog:dlgRoulette:init: { /did -ra dlgRoulette 62 %Cr.Amount }
on *:dialog:dlgRoulette:sclick:1-61: {
  /msg #Zombie-lounge !rbet $did($did).text $did(62).text
  /set -u50 %CR.BetS On
}
on *:TEXT:*:#Zombie-Lounge:{
  if (%CR.BetS == $null) || ($nick != radar) { /halt } 
  %s = $strip($1-)
  if (%CR.BetS == On) && ( *All bets for the* iswm %s ) { /splay $mircdirSounds\rBetSpin.mp3 | halt }
  if (*WINNERS* iswm %s) && (* $me * iswm %s) { /splay $mircdirSounds\YouWon.mp3 | halt }
  if (%CR.BetS == On) && (*Nobody won at* iswm %s) { /splay $mircdirSounds\YouLost.mp3 | halt }
}
Attachments:
Last edit: 6 months 4 weeks ago by TheMorgue.
The following user(s) said Thank You: xXBERTOXx

Please Log in or Create an account to join the conversation.

More
1 month 3 weeks ago #18 by radar1213
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
}
The following user(s) said Thank You: TheMorgue

Please Log in or Create an account to join the conversation.

Time to create page: 0.620 seconds
Powered by Kunena Forum