menu nicklist,channel,status {
  Play Slots!:SlotM
}
alias SlotM dialog -m SlotM SlotM
dialog SlotM {
  title "Slot Machine"
  option dbu
  size -1 -1 100 83
  text "Combinations", 1, 1 1 99 8, center
  scroll "", 3, 1 10 10 17, range 1 9
  icon 4, 15 55 35 35, 5.bmp, noborder, actual
  icon 5, 32 55 35 35, 5.bmp, noborder, actual
  icon 6, 49 55 35 35, 5.bmp, noborder, actual
  icon 7, -31 1 135 35, combination1.bmp, noborder, actual
  button "Pull!", 8, 1 30 20 10
  text "Money:", 9, 25 31 20 10
  edit "", 10, 44 30 55 9, right
  text "2x Bet" 11, 70 15 30 10
  radio "5", 12, 9 48 15 10
  radio "10", 13, 27 48 20 10
  radio "25", 14, 49 48 20 10
  radio "50", 15, 71 48 20 10
  box "Bet?", 16, 2 40 90 23
}
alias check_win {
  set %1 $1
  set %2 $2
  set %3 $3
  if ($count($1-3,1) >= 2) {
    if ($count($1-,1) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 2) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,2) >= 2) {
    if ($count($1-,2) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 3) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,3) >= 2) {
    if ($count($1-,3) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 4) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,4) >= 2) {
    if ($count($1-,4) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 5) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,5) >= 2) {
    if ($count($1-,5) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 6) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,6) >= 2) {
    if ($count($1-,6) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 7) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,7) >= 2) {
    if ($count($1-,7) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 8) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
  if ($count($1-3,8) >= 2) {
    if ($count($1-,8) == 3) { writeini slots.ini russellreal 1 $calc((%bet * 9) + $readini(slots.ini,russellreal,1)) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
    else { writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) + %bet) | did -ra $4 10 $chr($asc($)) $+ $readini(slots.ini,russellreal,1) }
  }
}
alias spin {
  var %11 = $1, %22 = $2, %33 = $3
  .timergo1 1 $rand(7,10) halt
  while ($timer(go1).secs >= 1) {
    if ($timer(go1).secs > 3) {
      if (%11 == 8) { var %11 = 1 }
      else { inc %11 1 }
      if (%22 == 8) { var %22 = 1 }
      else { inc %22 1 }
      if (%33 == 8) { var %33 = 1 }
      else { inc %33 1 }
      did -g $4 4 %11 $+ .bmp
      did -g $4 5 %22 $+ .bmp
      did -g $4 6 %33 $+ .bmp
    }
    if ($timer(go1).secs < 4) {
      if ($timer(go1).secs <= 2) {
        if (%33 == 8) { var %33 = 1 }
        else { inc %33 1 }
        did -g $4 6 %33 $+ .bmp
      }
      else {
        if (%22 == 8) { var %22 = 1 }
        else { inc %22 1 }
        if (%33 == 8) { var %33 = 1 }
        else { inc %33 1 }
        did -g $4 5 %22 $+ .bmp
        did -g $4 6 %33 $+ .bmp
      }
    }
  }
  check_win %11 %22 %33 $4
}
on *:DIALOG:SlotM:*:*:{
  if ($devent == init) { set %1 5 | set %2 5 | set %3 5 | did -c $dname 3 1 | did -ra $dname 10 $chr($asc($)) $+ $readini(Slots.ini,RussellReal,1) 
    if (!$readini(slots.ini,russellreal,1)) { writeini slots.ini russellreal 1 100 } 
    did -c $dname 12
    set %bet 5
  }
  if ($devent == scroll) { did -g $dname 7 combination $+ $did($dname,3).sel $+ .bmp | did -ra $dname 11 $iif($did($dname,3).sel == 9,1x,$+($calc($did($dname,3).sel + 1),x Bet)) }
  if ($devent == sclick) {
    if ($did == 12) { set %bet 5 }
    if ($did == 13) { set %bet 10 }
    if ($did == 14) { set %bet 25 }
    if ($did == 15) { set %bet 50 }
    if ($did == 8) {
      did -ra $dname 10 $chr($asc($)) $+ $calc($readini(slots.ini,russellreal,1) - %bet)
      writeini slots.ini russellreal 1 $calc($readini(slots.ini,russellreal,1) - %bet)
      spin %1 %2 %3 $dname
    }
  }
}