Seems like everyone has a roulette game now so i thought i'd join in the fun there is a 4 in 10 chance to win and it logs everone that plays in a dat file and keeps track of kicks, points, and longest bans. Alittle different aproch to a old time game. if you have any problems i'm on irc.icq.com in #Newbies

On *:Load: {
  set %drr.ban 1
  hmake DRRScores 100
  if ($isfile(DRRScores.dat)) { hload DRRScores DRRScores.dat }
}
On *:Start: {
  hmake DRRScores 100
  if ($isfile(DRRScores.dat)) { hload DRRScores DRRScores.dat }
}
On *:Exit: {
  if ($hget(DRRScores)) { hsave -o DRRScores DRRScores.dat }
}
On *:Unload: {
  unset %drr.ban
}
#dr.roulette off
on *:text:*:#: {
  If (-roulette == $1) || (-roulette isin $1-) {
    If ($me isop $chan) || ($me ishop $chan) {
      var %drr.roulette# $r(1,10)
      If (%drr.ban == 1) { goto bansets }
      Else { goto porp }
      :bansets
      var %drr.ban.num $r(1,5)
      If (%drr.ban.num == 1) { set %dr.ban.ban 300 | goto porp }
      Elseif (%drr.ban.num == 2) { set %drr.ban.ban 600 | goto porp }
      Elseif (%drr.ban.num == 3) { set %drr.ban.ban 900 | goto porp }
      Elseif (%drr.ban.num == 4) { set %drr.ban.ban 1200 | goto prop }
      Elseif (%drr.ban.num == 5) { set %drr.ban.ban 1500 | goto prop }
      :porp
      If (%drr.roulette# < 5) {
        msg $chan Congrats $nick you just gained 1 point
        If ($hget(DRRScores,$remove($address($nick,2),*!*@))) {
          var %dr.scores $hget(DRRScores,$remove($address($nick,2),*!*@))
          tokenize 32 %dr.scores
          var %drr.points $2
          var %drr.kicks $3
          var %drr.longestban $4
          inc %drr.points
          hadd DRRScores $remove($address($nick,2),*!*@) porp %drr.points %drr.kicks %drr.longestban
          haltdef
        }
        Else {
          hadd DRRScores $remove($address($nick,2),*!*@) porp 1 0 0
          unset %drr.ban.num
          haltdef
        }
      }
      Else {
        If (%drr.ban == 1) {
          If ($hget(DRRScores,$remove($address($nick,2),*!*@))) {
            var %dr.scores $hget(DRRScores,$remove($address($nick,2),*!*@))
            tokenize 32 %dr.scores
            var %drr.points $2
            var %drr.kicks $3
            var %drr.longestban $4
            inc %drr.kicks
            %drr.longestban = $iif(%drr.longestban < %drr.ban.ban,%drr.ban.ban,%drr.longestban)
            hadd DRRScores $remove($address($nick,2),*!*@) porp %drr.points %drr.kicks %drr.longestban
            kick $chan $nick You lost! You have Lost ( $+ %drr.kicks $+ ) times and now banned for $duration(%drr.ban.ban)
            mode $chan +b $address($knick,2)
            .timer.drr. $+ $knick $+ .return 1 %drr.ban.ban /mode $chan -b $address($knick,2)
            unset %drr.ban.num
            haltdef
          }
          Else {
            hadd DRRScores $remove($address($nick,2),*!*@) porp 0 1 %drr.ban.ban
            kick $chan $nick You lost! You have Lost ( $+ 1 $+ ) time and now banned for $duration(%drr.ban.ban)
            mode $chan +b $address($knick,2)
            .timer.drr. $+ $knick $+ .return 1 %drr.ban.ban /mode $chan -b $address($knick,2)
            unset %drr.ban.num
            haltdef
          }
        }
        Else {
          If ($hget(DRRScores,$remove($address($nick,2),*!*@))) {
            var %dr.scores $hget(DRRScores,$remove($address($nick,2),*!*@))
            tokenize 32 %dr.scores
            var %drr.points $2
            var %drr.kicks $3
            var %drr.longestban $4
            inc %drr.kicks
            %drr.longestban = $iif(%drr.longestban < %drr.ban.ban,%drr.ban.ban,%drr.longestban)
            hadd DRRScores $remove($address($nick,2),*!*@) porp %drr.points %drr.kicks %drr.longestban
            kick $chan $nick You lost! You have Lost ( $+ %drr.kicks $+ ) times. Come back when your ready to play again.
            unset %drr.ban.num
            haltdef
          }
          Else {
            hadd DRRScores $remove($address($nick,2),*!*@) porp 0 1 0
            kick $chan $nick You lost! You have Lost ( $+ 1 $+ ) time. Come back when your ready to play again.
            unset %drr.ban.num
            haltdef
          }
        }
      }
    }
    Else { msg $chan This game can not be played unless i am oped }
  }
  Elseif (-myscores == $1) || (-myscores isin $1-) {
    If ($hget(DRRScores,$remove($address($nick,2),*!*@))) {
      var %drr.scoredata $hget(DRRScores,$remove($address($nick,2),*!*@))
      tokenize 32 %drr.scoredata
      msg $chan ( $+ $nick $+ ) your scores are: Points: ( $+ $2 $+ ) Kicks: ( $+ $3 $+ ) Longest Ban: ( $+ $4 $+ )
    }
    Else {
      msg $chan ( $+ $nick $+ ) you have yet to play the game.
    }
  }
}
#dr.roulette end
menu channel,nicklist,menubar {
  -
  Darth Reven Roulette 
  .On/Off ( $group(#dr.roulette) ) {
    If ($group(#dr.roulette) == off) {
      If ($hget(DRRScores)) { 
        .enable #dr.roulette
      }
      Else {
        hmake DRRScores 100
        .enable #dr.roulette
      }
    }
    else { 
      .disable #dr.roulette 
    }
  }
  .Ban Mode ( $iif(%drr.ban == 1,on,off) ) { If (%drr.ban == 2) { set %drr.ban 1 } | else { set %drr.ban 2 } }
  -
}