I maked a AllInOne Snippet.

I Hope u like it!

For the Commands: .commands

Credits:
Made by: Purcell
Special Thanks to: [DX] For help with the Slto Machine!

Thanks

on *:load:{
  .write AllInOne.txt 0
}

on *:connect:{ 
  var %x 1 
  var %y $read(AllInOne.txt,0) 
  while %x <= %y { 
    hload -si $gettok($read(AllInOne.txt,%x),1,32) AllInOne.ini $gettok($read(AllInOne.txt,%x),1,32) 
    inc %x 
  } 
} 

on *:text:.register*:#AllInOne:{
  if !$2 || $2 !isalnum || $3 !isalnum {
    .notice $nick 14 Say: 4 .register $nick
  }
  if $gettok($read(AllInOne.txt,w,$2),2,32) !== $null {
    .msg # 4 That name has been taken!
    halt
  }
  else { 
    hmake $nick
    hadd $nick name $2
    hadd $nick cash 750
    hsave -i $nick AllInOne.ini $hget($nick,name)
    write -l1 AllInOne.txt $calc($read(AllInOne.txt,-1) + 1)
    write AllInOne.txt $nick $2
    .msg # 14 Welcome to AllInOne, 4 $2 $+($chr(40),$nick,$chr(41))
    .msg # 14 Created by 4 Purcell!
    stats
  }
}

on *:text:.mug:#AllInOne:{
  if !$hget($nick) {
    .notice $nick 14 Say: 4 .register $nick
    halt
  }
  else {
    if !$hfind($nick,mugging) {
      var %x $rand(100,300)
      var %cash $calc($hget($nick,cash) + %x)
      hadd $nick cash %cash
      hadd -z $nick mugging 60
      .msg # 14 Yea! 4 $hget($nick,name) 14 has 4 $+($chr(36),$bytes(%x,b),.) 14 stolen! 
      .notice $nick 14 Total Cash: 4 $+($chr(36),$bytes($hget($nick,cash),b))
    }
    else {
      .notice $nick 5 Waiting Time:
      .notice $nick 14 Mugging: 5 $+($duration($hget($nick,mugging),3),.) | halt
    }
  }
}

on *:TEXT:.slot*:#AllInOne:{
  if !$hget($nick) {
    .notice $nick 14 Say: 4 .register $nick | halt
  }
  if ($1- == .slot) { /notice $nick 14 Say: 4 .slot 5 <money>
  }
  else {
    if $2 isnum {
      if $hget($nick,cash) >= $2 {
        hadd $nick cash $calc($hget($nick,cash) - $2)
        var %1 = $rand(1,9)
        var %2 = $rand(1,9)
        var %3 = $rand(1,9)
        msg $chan 1,14 $getSign(%1) -- $getSign(%2) -- $getSign(%3)
        if (%1 == %2) && (%1 == %3) { /msg $chan 4 $nick 14 has won 5 $calc($2 * 5)) | hadd $nick cash $calc($hget($nick,cash) + ($2 * 5)) 
          if (%1 == %2) || (%2 == %3) { /msg $chan 4 $nick 14 has won 5 $calc($2 * 3)) | hadd $nick cash $calc($hget($nick,cash) + ($2 * 3))
          }
        }
      }    
    }
  }  
}

alias -l getSign {
  if ($1 == 1) { return apple }
  if ($1 == 2) { return banana }
  if ($1 == 3) { return cherie }
  if ($1 == 4) { return coin }
  if ($1 == 5) { return circle }
  if ($1 == 6) { return triangle }
  if ($1 == 7) { return 1 }
  if ($1 == 8) { return 2 }
  if ($1 == 9) { return 3 }
} }

on *:text:.stats:#AllInOne:{
  if !$hget($nick) {
    .notice $nick 14 Say: 4 .register $nick
    halt
  }
  else {
    stats
  }
}

alias stats {
  .notice $nick 4 [ 14 Cash: 4 $+($chr(36),$bytes($hget($nick,cash),b),])
} }

on *:TEXT:.NumberGame*:#allinone:{ inc %scriptcount |
  if ($1- == .NumberGame) { /notice $nick 14 Say: 4 .NumberGame 5 <Number> <Bet>
  }
  else {
    if !$hget($nick) {
      .notice $nick 14 Say: 4 .register $nick
      halt
    }
    else {
      if (($2 > 0) && ($2 <= 10)) {
        /set %number [ $+ [ $chan ] ] $rand(1,10)
        if $hget($nick,cash) >= $3 {
          hadd $nick cash $calc($hget($nick,cash) - $3)
          if ($2 == %number [ $+ [ $chan ] ]) { 
            var %cash $calc($3 * 7)
            hadd $nick cash $calc($hget($nick,cash) + %cash)
            /msg # 14 The number was 5 $2 $+ . 4 $nick 14 has won: 4 $ $+ %cash | unset %number [ $+ [ $chan ] ]
          }
          else {
            if ($2 < %number [ $+ [ $chan ] ]) || ($2 > %number [ $+ [ $chan ] ]) {
            /msg # 4 $nick, 14 The number was 5 %number#AllInOne  $+ . 4 You Lose! | unset %number [ $+ [ $chan ] ] }
          }
          else { /notice $nick 14 You don't got: 5 $ $+ $3 !
          }
        }
      }
    } 
  }  
}

on *:TEXT:.roulette*:#AllInOne:{
  if ($1- == .roulette) { /notice $nick 14 Say: 4 .roulette <Number> <Bet> | halt
  }
  else {
    if !$hget($nick) {
      .notice $nick 14 Say: 4 .register $nick
      halt
    }
    else {
      if (($2 > 0) && ($2 <= 35)) {
        /set %roulette [ $+ [ $chan ] ] $rand(1,36)
        if $hget($nick,cash) >= $3 {
          hadd $nick cash $calc($hget($nick,cash) - $3)
          if ($2 == %roulette [ $+ [ $chan ] ]) { 
            var %cashe $calc($3 * 35)
            hadd $nick cash $calc($hget($nick,cash) + %cashe)
            /msg # 14 The number was 5 $2 $+ . 4 $nick 14 has won: 4 $ $+ %cashe 14 | unset %roulette [ $+ [ $chan ] ]
          } 
          else {
            if ($2 < %roulette [ $+ [ $chan ] ]) || ($2 > %roulette [ $+ [ $chan ] ]) {
            /notice $nick 14 The number was 5 %roulette#AllInOne  $+ . 4 You Lose! | unset %roulette [ $+ [ $chan ] ] }
          }
          else { /notice $nick 14 You don't got: 5 $ $+ $3 !
          }
        }
      }
    }
  }
}

on *:TEXT:.help:#AllInOne:{
  /notice $nick 14 Say: 4 .help 5 NumberGame 14 or 4 .help 5 Roulette
} }

on *:TEXT:.help NumberGame:#AllInOne:{
  /notice $nick 5,5....................1,5NumberGame5,5....................
  /notice $nick 14 - You choose a number of 1 to 10. Then you an amount. If you have guessed the good number, recover you uses itself 7x. Differently is you yourself money lost.
  /notice $nick 14 Say: 4 .NumberGame 5 <number> <Bet>
} }

on *:TEXT:.help Roulette:#AllInOne:{
  /notice $nick 5,5....................1,5Roulette5,5....................
  /notice $nick 14 - You choose a number of 1 to 35.
  /notice $nick 14 Say: 4 .roulette 5 <Number> <Bet>
} }

on *:TEXT:.commands:#AllInOne:{
  /notice $nick 5 .Help
  /notice $nick 5 .Mug
  /notice $nick 5 .Stats
} }