BARMAN

on *:connect: {

  .timer 0 2 /banque
}

on *:join:#bar: {
  if ($address($nick,2) isin %no.voice) {
  }
  Else {
    /mode $chan +v $nick
  }
}

on *:text:register *:?: {
  /write pseudos.txt $nick
  /write pass.txt $2
  /write mask.txt $address($nick,2)
  /write argent.txt 50
  /notice $nick Tu es enregistré avec 50 Francs
}

on *:text:!login * *:?: {
  /set %temp.login $read(pseudos.txt,w,$2)
  if ($readn = 0) {
    /notice $nick Tu n'es pas enregistré
  }
  Else {
    /set %temp.verif.pass $read(pass.txt,$readn)
    if (%temp.verif.pass = $3) {
      /notice $nick Tu es maintenant logué ! Il te reste $read(argent.txt,$readn) Francs
      /write -l $+ $readn mask.txt $address($nick,2)
    }
    Else {
      /notice $nick Mauvais login ou mot de passe
    }
  }
}

on *:text:!coca *:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 10) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 10)
      /set %argent.banque $calc(%banque + 10)
      /msg $chan 2 $+ $me sert un coca bien frais a $2- de la part de $nick
      /notice $nick Prix du coca : 10 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!coca:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 10) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 10)
      /set %argent.banque $calc(%banque + 10)
      /msg $chan 2 $+ $me sert un coca bien frais a $nick
      /notice $nick Prix du coca : 10 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!eau *:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 5) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 5)
      /set %argent.banque $calc(%banque + 5)
      /msg $chan 2 $+ $me sert un verre d'eau a $2- de la part de $nick
      /notice $nick Prix du verre d'eau : 5 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!eau:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 5) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 5)
      /set %argent.banque $calc(%banque + 5)
      /msg $chan 2 $+ $me sert un verre d'eau a $nick
      /notice $nick Prix du verre d'eau : 5 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!vin *:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 15) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 15)
      /set %argent.banque $calc(%banque + 15)
      /msg $chan 2 $+ $me sert une coupe de vin à $2- de la part de $nick
      /notice $nick Prix de la coupe de vin : 15 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!vin:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 15) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 15)
      /set %argent.banque $calc(%banque + 15)
      /msg $chan 2 $+ $me sert une coupe de vin à $nick
      /notice $nick Prix de la coupe de vin : 15 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!chewing-gum:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 1) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 1)
      /set %argent.banque $calc(%banque + 1)
      /msg $chan 2 $+ $me donne un chewing-gum à $nick
      /notice $nick Prix du chewing-gum : 1 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!chewing-gum *:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 1) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 1)
      /set %argent.banque $calc(%banque + 1)
      /msg $chan 2 $+ $me donne un chewing-gum à $2- de la part de $nick
      /notice $nick Prix du chewing-gum : 1 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!pizza:#: {
  /set %banque %argent.banque
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < 20) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent - 20)
      /set %argent.banque $calc(%banque + 20)
      /msg $chan 2 $+ $me sert une bonne pizza à $nick
      /notice $nick Prix de la pizza : 20 Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!pizza *:#: {
  /achat 20 pizza 2 $+ $me sert une bonne pizza à $2- de la part de $nick
}

on *:text:!recharge *:*: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if ($2 > %argent.banque) {
      /notice $nick Il n'y a pas assez d'argent a la banque
    }
    Else {
      /write -l $+ $readn argent.txt $calc(%temp.argent + $2)
      /notice $nick Rechargement terminé, il te reste $read(argent.txt,$readn) Francs
      /set %argent.banque $calc(%argent.banque - $2)
    }
  }
}

on *:text:!argent *:*: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(pseudos.txt,w,$2)
    if ($readn = 0) {
      /notice $nick $2 n'est pas enregistré
    }
    Else {
      /notice $nick $2 possède $read(argent.txt,$readn) Francs
    }
    /set %temp.argent $read(argent.txt,$readn)
  }
}

on *:text:!argent:*: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    /notice $nick Tu possède %temp.argent Francs
  }
}

on *:text:!go:*: {
  /set %temp.mask $address($nick,2)
  /set %temp.ligne $readn
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.jeu11 $read(jeu1.txt)
    /set %temp.jeu12 $read(jeu1.txt)
    /set %temp.jeu13 $read(jeu1.txt)
    /set %jeu1.fin %temp.jeu11 $+ %temp.jeu12 $+ %temp.jeu13
    /set %temp.argent $read(argent.txt,%temp.ligne)
    /msg $chan Résultat pour $nick : %jeu1.fin
    /set %résultat1 10 | 10 | 10
    if (jeu1.fin = %résultat1) {

    }
  }
}

on *:text:!aide:*: {
  /notice $nick Pour s'enregistrer sur le bot fais /msg $me !reg un-mot-de-pass
  /notice $nick Pour te loguer fais /msg $me !login $nick ton-pass
  /notice $nick Bar v1.0 par Pantalaimon <Panta233@hotmail.com>
}

on *:text:!banque:*: {
  /notice $nick Argent disponible à la banque : %argent.banque Francs
}

alias banque {
  /inc %argent.banque
  /write -l1 banque.txt %argent.banque
}

on *:text:!tournee-vin:#: {
  /set %banque %argent.banque
  /unset %tournee.vin
  /set %total.argent $calc($nick($chan,0) * 15)
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < %total.argent) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /set %total.argent $calc($nick($chan,0) * 15)
      /set %total.nick $nick($chan,0)
      /set %deb.total 1
      /write -l $+ $readn argent.txt $calc(%temp.argent - %total.argent)
      /while (%deb.total <= %total.nick) {
        /set %tournee.vin %tournee.vin $+ , $nick($chan,%deb.total)
        /inc %deb.total 1
      }
      /msg $chan 2 $+ $me offre une coupe de vin à %tournee.vin de la part de $nick 
      /set %argent.banque $calc(%banque + %total.argent)
      /notice $nick Prix de la tournée de vin : %total.argent Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!tournee-eau:#: {
  /set %banque %argent.banque
  /unset %tournee.eau
  /set %total.argent $calc($nick($chan,0) * 5)
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < %total.argent) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /set %total.argent $calc($nick($chan,0) * 5)
      /set %total.nick $nick($chan,0)
      /set %deb.total 1
      /write -l $+ $readn argent.txt $calc(%temp.argent - %total.argent)
      /while (%deb.total <= %total.nick) {
        /set %tournee.eau %tournee.eau $+ , $nick($chan,%deb.total)
        /inc %deb.total 1
      }
      /set %argent.banque $calc(%banque + %total.argent)
      /msg $chan 2 $+ $me offre un verre d'eau à %tournee.eau de la part de $nick 
      /notice $nick Prix de la tournée d'eau : %total.argent Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!tournee-coca:#: {
  /set %banque %argent.banque
  /unset %tournee.coca
  /set %total.argent $calc($nick($chan,0) * 10)
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < %total.argent) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /set %total.argent $calc($nick($chan,0) * 10)
      /set %total.nick $nick($chan,0)
      /set %deb.total 1
      /write -l $+ $readn argent.txt $calc(%temp.argent - %total.argent)
      /while (%deb.total <= %total.nick) {
        /set %tournee.coca %tournee.coca $+ , $nick($chan,%deb.total)
        /inc %deb.total 1
      }
      /set %argent.banque $calc(%banque + %total.argent)
      /msg $chan 2 $+ $me offre un verre de coca à %tournee.coca de la part de $nick 
      /notice $nick Prix de la tournée de coca : %total.argent Francs, il te reste $read(argent.txt,$readn) Francs
    }
  }
}

on *:text:!donner * *:*: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    if (%temp.argent < $3) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      /set %temp.donner $read(pseudos.txt,w,$2)
      if ($readn = 0) {
        /notice $nick $2 n'est pas enregistré
      }
      Else {
        /set %temp.mask $read(mask.txt,w,$address($nick,2))
        /write -l $+ $readn argent.txt $calc($read(argent.txt,$readn) - $3)
        /set %temp.pseudo $read(pseudos.txt,w,$2)
        /write -l $+ $readn argent.txt $calc($read(argent.txt,$readn) + $3)
        /notice $nick Vous avez donné $3 Francs a $2
        /notice $2 $nick vous a donnez $3 Francs
      }
    }
  }
}

on *:text:!stats:*: {
  /notice $nick Nombre des personnes inscrites : $lines(pseudos.txt)
  /notice $nick Argent en banque : %argent.banque
  /notice $nick Version : 1.0
}

on *:text:!enregistrés:*: {
  /notice $nick Les personnes enregistrées sont :
  /play -n $nick pseudos.txt
}

alias achat {
  if ($address($nick,2) isin %banned) {
    /notice ànick Impossible de faire cette commande : Tu es banni
  }
  Else {
    /set %banque %argent.banque
    /set %temp.mask $address($nick,2)
    /set %temp.boisson $read(mask.txt,w,%temp.mask)
    if ($readn = 0) {
      /notice $nick Tu n'as pas d'access ou tu n'es pas logué
    }
    Else {
      /set %temp.argent $read(argent.txt,$readn)
      if (%temp.argent < $$1) {
        /notice $nick Tu n'as pas assez d'argent :(
      }
      Else {
        /write -l $+ $readn argent.txt $calc(%temp.argent - $$1)
        /set %argent.banque $calc(%banque + $$1)
        /msg $chan $$3-
        /notice $nick Prix $$2 : $$1  Francs, il te reste $read(argent.txt,$readn) Francs
      }
    }
  }
}

on *:text:!vodka:#: {
  /achat 20 vodka 2 $+ $me sert un verre bien rempli de vodka à $nick
}

on *:text:!vodka *:#: {
  /achat 20 vodka 2 $+ $me sert un verre bien rempli de vodka à $2- de la part de $nick
}

on *:deop:#bar: {
  if ($opnick = $me) {
    /z op $chan
  }
}

on *:text:!dv * *:#: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    /set %temp.argent2 $readn
    if (%temp.argent < $3) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      if ($3 = 0) {
        /notice $nick Tu vas aller loin avec 0 Francs ;)
      }
      Else {
        /set %argent.banque $calc(%banque + $3)
        /write -l $+ $readn argent.txt $calc(%temp.argent - $3)
        /set %temp.donner $read(pseudos.txt,w,$2)
        /mode $chan -v $2
        .timer 1 $3 /mode $chan +v $2
        /set %no.voice %no.voice $address($2,2)
        .timer 1 $3 /set %no.voice $remove(%no.voice,$address($2,2))
        /msg $chan 2 $+ $me devoice $2 pendant $3 secondes
        /notice $nick Prix devoice : $3 Francs, il te reste $read(argent.txt,%temp.argent2) Francs
      }
    }
  }
}

on *:text:!chance *:#: {
  /set %temp.mask $address($nick,2)
  /set %temp.boisson $read(mask.txt,w,%temp.mask)
  if ($readn = 0) {
    /notice $nick Tu n'as pas d'access ou tu n'es pas logué
  }
  Else {
    /set %temp.argent $read(argent.txt,$readn)
    /set %temp.argent2 $readn
    if (%temp.argent < $2) {
      /notice $nick Tu n'as pas assez d'argent :(
    }
    Else {
      if ($3 = 0) {
        /notice $nick Tu vas aller loin avec 0 Francs ;)
      }
      Else {
        if ($2 isalnum) {
          /set %temp.num $rand(1,2)
          if (%temp.num = 1) {
            /msg $chan Bien joué $nick ! Tu gagnes $calc($2 * 3) Francs !!
            /write -l $+ $readn argent.txt $calc(%temp.argent + $calc($2 * 3))
          }
          Else {
            /msg $chan Dommage $nick ! Tu perds $calc($2 * 3) Francs
            /write -l $+ $readn argent.txt $calc(%temp.argent - $calc($2 * 3))
            /set %argent.casino $calc(%argent.casino + $calc($2 * 3))
          }
        }
        Else {
          /notice $nick Des chiffres seulement :)
        }
      }
    }
  }
}

on *:text:!commandes:*: {
  /msg $nick Boissons :
  /msg $nick !eau un_pseudo
  /msg $nick !coca un_pseudo
  /msg $nick !vin un_pseudo
  /msg $nick Nourriture :
  /msg $nick !chewing-gum un_pseudo
  /msg $nick !pizza un_pseudo
  /msg $nick Tournées :
  /msg $nick !tournee-eau
  /msg $nick !tournee-coca
  /msg $nick !tournee-vin
  /msg $nick Trucs méchants :
  /msg $nick !dv un_pseudo Temps/argent (Exemple: !dv Pantalaimon 100 devoicera Pantalaimon pendant 100 secondes (Il ne pourra plus parler sur le salon) et vous coutera 100 Francs)
}