Twitch Points & Sound for Svarlheim v3.0

on *:TEXT:!commandes:#: { msg $chan Bonjour $nick , les commandes disponibles se trouvent dans la description de la chaine Kappa ! }
on *:TEXT:!free:#: { msg $chan Free, c'est nul, c'est cher et ça coupe tout le temps Kappa ! }
on *:TEXT:!donate:#: { msg $chan Les dons me font extrêmement plaisir et sont une source de support énorme. Si tu souhaites donner clique ici : https://www.twitchalerts.com/donate/svarlheim }
on *:TEXT:!mods:#: { msg $chan Les modérateurs sont : Thib18coc, Leogo, Valentin, Lucas et moi-même Kappa }
on *:TEXT:!regles:#: { msg $chan $nick => Les règles du quizz sont les suivantes : Une question est posée, vous avez une minute pour y répondre. L'orthographe compte (sauf majuscules. Certaines quetions sont troll Kappa ! Le quizz s'arrête au bout de 20 questions. Have fun et bon courage PogChamp ! }
on *:text:!svarlies:#: { msg # $nick dispose de $readini(Points.ini,$+(#,.,$nick),Points) Svarlies ! }

on $*:text:/!svarlies (add)/Si:#:{
  if ($nick isop #) {
    if ($0 < 3) { msg # Il manque des paramètres : utilise !svarlies <add> <user> [number] | return }
    writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
    { msg $chan $3 dispose désormais de $readini(Points.ini,$+(#,.,$3),Points) Svarlies. }
  }
  else { msg $chan Dommage, tu n'es pas encore modérateur, un jour peut-être Kappa. }
}

on $*:text:/!svarlies (remove)/Si:#:{
  if ($nick isop #) {
    if ($0 < 3) { msg # Il manque des paramètres : utilise !svarlies <remove> <user> [number] | return }
    writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
    { msg $chan $3 dispose désormais de $readini(Points.ini,$+(#,.,$3),Points) Svarlies. }
  }
  else { msg $chan Dommage, tu n'es pas encore modérateur, un jour peut-être Kappa. }
}

on !*:part:#: { $+(.timerpoints.,#,.,$nick) off }
on !*:join:#: {
  $+(.timerpoints.,#,.,$nick) 0 60 add.pts $+(#,.,$nick)
  add.pts $+(#,.,$nick)
}

alias add.pts {
  if (!$1) { return }
  var %f = $mircdirpoints.ini
  var %p = $readini(%f,$1,Points)
  writeini -n $qt(%f) $1 Points $calc(%p + 10)
}

on *:text:!topsvarlies*:#: {
  if ($1 != !topsvarlies) return

  if ($0 == 1) { var %nbLoop = 5 }
  elseif ($0 == 2) {
    if ($2 isnum) {
      if ($2 > 0 && $2 <= 10) {
        var %nbLoop = $2
      }
      else {
        msg $chan Wrong parameters.  Number must be between 1 and 10
        return
      }
    }
    else {
      msg $chan Wrong parameters.  Use !toppoints [number]
      return
    }
  }
  else {
    msg $chan Wrong parameters.  Use !toppoints [number]
    return
  }

  var %i = 1
  var %j = 1
  var %channelLength = $calc($calc($len(#) + 1) * -1)
  var %done = 0

  while (%i <= %nbLoop) {
    var %max [ $+ [ %i ] ] 0
    var %name [ $+ [ %i ] ] unknown
    inc %i
  }

  while (%j <= $ini(Points.ini,0)) {
    var %section $ini(Points.ini,%j)
    var %points = $readini(Points.ini,%section,Points)
    var %fullname = $right(%section, %channelLength)

    if ($count(%fullname, nightbot) == 0 && $count(%fullname, xanbot) == 0 && $count(%fullname, twitchranks) == 0 && $count(%fullname, moobot) == 0) {
      var %x = %nbLoop

      while (%x >= 1) {
        if (%points > %max [ $+ [ %x ] ] && %done == 0) {
          var %y = 1
          var %z = 2

          while (%y <= %x) {
            if (%y < %x) {
              var %temp = %max [ $+ [ %z ] ]
              var %temp2 = %name [ $+ [ %z ] ]
              SET %max [ $+ [ %y ] ] %temp
              SET %name [ $+ [ %y ] ] %temp2
            }
            else {
              SET %max [ $+ [ %y ] ] %points
              SET %name [ $+ [ %y ] ] %fullname
            }

            inc %y
            inc %z
          }
          %done = 1
        }
        dec %x
      }
    }
    %done = 0
    inc %j
  }

  var %string = Top %nbLoop svarlies :
  var %i = 1

  while (%nbLoop >= 1) {
    %string = %string $+ $+($chr(32),%i,$chr(46),$chr(32)) %name [ $+ [ %nbLoop ] ] $+($chr(32)) %max [ $+ [ %nbLoop ] ] svarlies. ||
    dec %nbLoop
    inc %i
  }
  msg $chan %string
}

on *:text:!startuptime:#: {
  msg # Chrono démarré
  set -e %uptime. [ $+ [ # ] ] $ctime
}

on *:text:!uptime:#: { msg # En ligne depuis $duration($calc($ctime - %uptime. [ $+ [ # ] ] )) }
on *:text:!stopuptime:#: {
  msg # Fin du chrono. Durée du stream aujourd'hui :  $duration($calc($ctime - %uptime. [ $+ [ # ] ] ))
  unset %uptime. [ $+ [ # ] ]
}

ON !*:TEXT:*:#: {
  tokenize 32 $strip($1-)
  if ($1 == !sound) {
    if $($+(%,floodsound.,$nick),2) { return }
    set -eu30 %floodsound. $+ $nick On
    var %fp = $mircdirpoints.ini
    var %nc = $chan $+ . $+ $nick
    var %p = $readini(%fp,%nc,Points)
    if (!%p) { .msg $chan Désolé  $+ $nick $+  mais tu n'as pas assez de Svarlies, il t'en faut 100 Kappa | return }
    if (%p < 80) { .msg $chan Désolé  $+ $nick $+  tu dois avoir au moins 100 Svarlies pour jouer un son | return }
    if (!$2) { .msg $chan Essaye encore  $+ $nick $+  , il faut le nom du son que tu veux après la commande ! De plus jouer un son coûte 100 svarlies ! | return }
    var %dir = C:\Users\Valentin\Desktop\Streaming\Sons
    if (!$isdir(%dir)) { .msg $chan ( $+ $nick $+ ): Error, The $qt(%dir) direction does NOT exist! | return }
    var %f = %dir $+ \ $+ $2 $+ .mp3
    if (!$isfile(%f)) { .msg $chan  $+ $nick $+  ,le fichier $qt($2) n'existe pas | return }
    .splay -p $qt(%f)
    writeini -n $qt(%fp) %nc Points $calc(%p - 100)
    .msg $chan Tu viens de perdre 100 Svarlies,  $+ $nick $+  . Patience, le son arrive Kappa . Tu pourras réessayer dans 30 secondes
  }
  if ($1 == !soundtotal) {
    var %dir = C:\Users\Valentin\Desktop\Streaming\Sons
    if (!$isdir(%dir)) { .msg $chan ( $+ $nick $+ ): Error, The $qt(%dir) direction does NOT exist! | return }
    var %t = $findfile(%dir,*.mp3,0)
    if (%t) { .msg $chan ( $+ $nick $+ ): There is NOT any sound file on the $qt(%dir) direction! }
    elseif (%t) { .msg $chan ( $+ $nick $+ ): Il y a %t sons disponibles. }
  }
  if ($1 == !soundlist) {
    var %dir = C:\Users\Valentin\Desktop\Streaming\Sons
    if (!$isdir(%dir)) { .msg $chan ( $+ $nick $+ ): Error, The $qt(%dir) direction does NOT exist! | return }
    var %t = $findfile(%dir,*.mp3,0)
    var %i = 1
    while (%i <= %t) {
      var %s = $findfile(%dir,*.mp3,%i)
      if (%s) {
        var %sf = $nopath(%s)
        var %sf = $remove(%sf,.mp3)
        var %list = $addtok(%list,%sf,32)
      }
      inc %i
    }
    if (%list) { .msg $chan  $+ $nick $+  , les sons disponibles sont :  %list }
    elseif (!%list) { .msg $chan ( $+ $nick $+ ): There is NOT any sound file on the $qt(%dir) direction! }
  }
  if ($1 == !review) {
    var %f = $mircdirpoints.ini
    var %nc = $chan $+ . $+ $nick
    var %p = $readini(%f,%nc,Points)
    if (!%p) { .msg $chan Désolé  $+ $nick $+  mais tu n'as pas assez de Svarlies. Il t'en faut 200 Kappa | return }
    if (%p < 200) { .msg $chan Désolé  $+ $nick $+  tu n'as pas assez de Svarlies. Il t'en faut 200 Kappa | return }
    writeini -n $qt(%f) %nc Points $calc(%p - 200)
    .msg $chan Vous venez de payer 200 Svarlies. Merci d'indiquer votre $chr(35) de clan et votre pseudo afin que je puisse faire la review PogChamp
  }
  if ($1 == !trade) {
    var %f = $mircdirpoints.ini
    if (!$2) { .msg $chan ( $+ $nick $+ ): Error, Please specify a nickname that you want to give points! | return }
    if (!$3) { .msg $chan ( $+ $nick $+ ): Error, Please specify the points that you want to give to the $qt($2) nickname! | return }
    if (!$isdigit($3)) { .msg $chan ( $+ $nick $+ ): Error, Please specify an digital number! | return }
    if ($3 !isnum) { .msg $chan ( $+ $nick $+ ): Error, Please only numbers on points and vaild too! | return }
    var %nc = $chan $+ . $+ $nick
    var %p = $readini(%f,n,%nc,Points)
    if (!%p) { .msg $chan ( $+ $nick $+ ): Error, You have NOT any points earned yet! | return }
    var %ncn = $chan $+ . $+ $2
    var %pp = $readini(%f,n,%ncn,Points)
    if (%p < $3) { .msg $chan ( $+ $nick $+ ): Error, You have NOT these points $qt($3) to trade! | return }
    writeini -n $qt(%f) %nc Points $calc(%p - $3)
    writeini -n $qt(%f) %ncn Points $calc(%pp + $3)
    .msg $chan ( $+ $nick $+ ): Your $qt($3) points from your %p points have been traded to $qt($2) nickname.
  }
}

alias isdigit {
  if (!$1) { return 0 }
  if ($regex($1,^\d+$)) { return 1 }
  else { return 0 }
}