on ^*:text:*:*:{
  if ($strip($1) == !alta) {
    if ($readini(juegos.ini,juegos,$nick)) {
      msg $chan Ya estas dado de alta,12 $nick $+ ! Teclea:12 !tragaperras 
    }
    else {
      msg $chan Te has dado de alta,12 $nick $+ ! Teclea:12 !tragaperras 
      writeini juegos.ini juegos $nick 10000
    }
  }
  if ($strip($1) == !tragaperras) {
    if ($readini(juegos.ini,juegos,$nick)) {
      var %winlost = $r(1,2)
      var %tragaperras = $r(1,10) + $r(1,10) + $r(1,10)
      var %multiplicador 200
      if (%winlost == 1) {
        msg $chan -12 $nick Tira de la palanca %tragaperras = ( $calc(%tragaperras) )
        msg $chan 3Premio!!12 $nick Ganas ( 12 $+ $calc((%tragaperras) * %multiplicador) )!!!
        writeini juegos.ini juegos $nick $calc($readini(juegos.ini,juegos,$nick) + $calc((%tragaperras) * %multiplicador))
      }
      else {
        msg $chan -12 $nick Tira de la palanca %tragaperras = ( $calc(%tragaperras) )
        msg $chan 4Ohhh!!12 $nick Pierdes ( 12 $+ $calc((%tragaperras) * %multiplicador) )
        writeini juegos.ini juegos $nick $calc($readini(juegos.ini,juegos,$nick) - $calc((%tragaperras) * %multiplicador))
      }
    }
    else {
      msg $chan No estas dado de alta,12 $nick $+ ! Teclea:12 !alta 
    }
  }
  if ($strip($1) == !baja) {
    remini juegos.ini juegos $nick
    msg $chan Te has dado de baja,12 $nick $+ !
  }
  if ($strip($1) == !bote) {
    %info_bote = $readini(juegos.ini,juegos,$nick)
    if (%info_bote != $null) {
      msg $chan Bote de12 $nick $+ : $gettok(%info_bote,1,32)
    }
    else {
      msg $chan No estas dando de alta,12 $nick $+ !
    }
  }
}