JEUX POUR SALON : CASINO BOT

; ======= A METTRE DANS VOS REMOTES =======

on ^1:text:!casino.jouer:#:{ 
  /set %casinosysvaria $rand(1,16)
  if ( %casinosysvaria == 1 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 200 points . | /inc %casinouserpoints $+ $nick 200  } 
  if ( %casinosysvaria == 2 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 50 points . | /inc %casinouserpoints $+ $nick 50  } 
  if ( %casinosysvaria == 3 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 500 points . | /inc %casinouserpoints $+ $nick 500 }  
  if ( %casinosysvaria == 4 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 100 points ! | /inc %casinouserpoints $+ $nick 100  } 
  if ( %casinosysvaria == 5 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner le jackpot soit 1400 points ! |  /inc %casinouserpoints $+ $nick 1400  } 
  if ( %casinosysvaria == 6 ) { /msg $chan 10,2DOMMAGE $nick , tu vien de perdre 200 points ! | /inc %casinouserpoints $+ $nick -200  } 
  if ( %casinosysvaria == 9 ) { /msg $chan 10,2DOMMAGE $nick , tu perd 1 point symbolique ! | /inc %casinouserpoints $+ $nick -1  } 
  if ( %casinosysvaria == 10 ) { /msg $chan 10,2BIEN $nick , tu gagne 1 point symbolique ! | /inc %casinouserpoints $+ $nick 1  } 
  if ( %casinosysvaria == 11 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 300 points ! | /inc %casinouserpoints $+ $nick 300  } 
  if ( %casinosysvaria == 12 ) { /msg $chan 10,2DOMMAGE $nick , tu vien de perdre 300 points ! | /inc %casinouserpoints $+ $nick -300  } 
  if ( %casinosysvaria == 7 ) { /msg $chan 10,2DOMMAGE $nick , tu vien de perdre 100 points ! | /inc %casinouserpoints $+ $nick -100  } 
  if ( %casinosysvaria == 8 ) { /msg $chan 10,2CATASTROPHE $nick , tu vien de perdre tout tes points !!! | /set %casinouserpoints $+ $nick 0 } 
  if ( %casinosysvaria == 13 ) { /msg $chan 10,2DOMMAGE $nick , tu vien de perdre 300 points ! | /inc %casinouserpoints $+ $nick -300  } 
  if ( %casinosysvaria == 14 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 450 points ! |  /inc %casinouserpoints $+ $nick 450  } 
  if ( %casinosysvaria == 15 ) { /msg $chan 10,2PASSE TON TOUR $nick . } 
  if ( %casinosysvaria == 16 ) { /msg $chan 10,2BRAVO $nick , tu vien de gagner 150 points ! | /inc %casinouserpoints $+ $nick 150  } 


}
on ^1:TEXT:!casino.regle:#:{
  /msg $chan 4,8 $+ $nick vient de lancer une commande importante , ralentissement prevu .
  /msg $nick Voici les regles du bot "casino" :
  /msg $nick Ceci est un jeu où le but et fonder son capitalisme !
  /msg $nick Vous devez jouer ( !casino.jouer ) et recolter un maximun de points ,
  /msg $nick Puis pour ne pas risquer de perdre vos gain , ils doivent etre mis dans votre compte epargne ( !casino.epargne )
  /msg $nick L'action de mise en compte epargne va mettre une partie de 1 000 points dans ce compte .
  /msg $nick Avec vos points qu'il soit du compte actuel ou du compte epargne , vous pourez vous offrir des lots !
  /msg $nick Ces lots ne sont pas financier mais sont generalement desider par le controleur du bot .
  /msg $nick Le but de ce jeu est de collecter et de ce fonder un empire capitaliste !
  /msg $nick Pour l'aide taper !casino.aide , pour la liste des achats taper !casino.achatliste
  /msg $nick Bot consut par juki ( juki@noos.fr ) .
}
on ^1:TEXT:!casino.aide:#:{ 
  /msg $chan 4,8 $+ $nick vient de lancer une commande importante , ralentissement prevu .

  /msg $nick Aide du bot $me créer par juki pour rastachat.com ( irc.sboob.net:14333 )
  /msg $nick Ce bot est un bot qui permet d'animer vos salon , mais cela engendre aussi un flood ! 
  /msg $nick Voici les commandes :
  /msg $nick Jouer ( !casino.jouer )
  /msg $nick Liste des achat possible ( !casino.achatliste )
  /msg $nick Vos points ( !casino.compte )
  /msg $nick Vos points et tout vos compte ( !casino.comptetotal )
  /msg $nick Voir le compte d'un autre joueur ( !casino.whois [nom_du_joueur]
  /msg $nick Voir juste le nessesaire , le compte d'un autre joueur ( !casino.petitwhois [nom_du_joueur] )
  /msg $nick Transfert du compte d'epargne vers le compte central ( !casino.eptrans [montant] )
}

on ^1:TEXT:!casino.compte:#:{ 
  /msg $chan 4,1 $+ $nick a : %casinouserpoints [ $+ [ $nick ] ] point(s)
  /msg $chan 4,1Compte epargne : %casinouserepargne [ $+ [ $nick ] ] point(s) 
}
on ^1:TEXT:!casino.comptetotal:#:{ 
  /msg $chan 4,8 $+ $nick vient de lancer une commande importante , ralentissement prevu .

  /notice $nick $nick a : %casinouserpoints [ $+ [ $nick ] ] point(s) . 
  /notice $nick Compte epargne : %casinouserepargne [ $+ [ $nick ] ] point(s)
  /notice $nick Meuf : %casinouserahmeuf [ $+ [ $nick ] ] Mec : %casinouserahmec [ $+ [ $nick ] ] 
  /notice $nick Hôtel(s) : %casinouserahhotel [ $+ [ $nick ] ]
  /notice $nick Villa : %casinouserahvilla [ $+ [ $nick ] ]
  /notice $nick Boîte(s) de nuit : %casinouserahboite [ $+ [ $nick ] ]
  /notice $nick DJ' : %casinouserahdj [ $+ [ $nick ] ]
  /notice $nick Jet : %casinouserahjet [ $+ [ $nick ] ]
  /notice $nick Paquebo : %casinouserahpaquebo [ $+ [ $nick ] ]
  /notice $nick Limousine(s) : %casinouserahlimousine [ $+ [ $nick ] ]
  /notice $nick Île(s) : %casinouserahile [ $+ [ $nick ] ]  
  /notice $nick Casino : %casinouserahcasino [ $+ [ $nick ] ]
  /notice $nick Accee hop obtenu : %casinouserahaxxhop [ $+ [ $nick ] ]  Voice : %casinouserahaxxvoice [ $+ [ $nick ] ]
  /notice $nick Garde(s) du coprs : %casinouserahads [ $+ [ $nick ] ]
}
on ^1:TEXT:!casino.whois*:#:{ 
  /msg $chan 4,8 $+ $nick vient de lancer une commande importante , ralentissement prevu .

  /notice $nick $2 a : %casinouserpoints [ $+ [ $2 ] ] point(s) . 
  /notice $nick Compte epargne : %casinouserepargne [ $+ [ $2 ] ] point(s)
  /notice $nick Meuf : %casinouserahmeuf [ $+ [ $2 ] ] Mec : %casinouserahmec [ $+ [ $2 ] ] 
  /notice $nick Hôtel(s) : %casinouserahhotel [ $+ [ $2 ] ]
  /notice $nick Villa : %casinouserahvilla [ $+ [ $2 ] ]
  /notice $nick Boîte(s) de nuit : %casinouserahboite [ $+ [ $2 ] ]
  /notice $nick DJ' : %casinouserahdj [ $+ [ $2 ] ]
  /notice $nick Jet : %casinouserahjet [ $+ [ $2 ] ]
  /notice $nick Paquebo : %casinouserahpaquebo [ $+ [ $2 ] ]
  /notice $nick Limousine(s) : %casinouserahlimousine [ $+ [ $2 ] ]
  /notice $nick Île(s) : %casinouserahile [ $+ [ $2 ] ]
  /notice $nick Casino : %casinouserahcasino [ $+ [ $2 ] ]
  /notice $nick Accee hop obtenu : %casinouserahaxxhop [ $+ [ $2 ] ]  Voice : %casinouserahaxxvoice [ $+ [ $2 ] ]
  /notice $nick Garde(s) du coprs : %casinouserahads [ $+ [ $2 ] ]
}
on ^1:TEXT:!casino.petitwhois*:#:{ 
  /msg $chan 8,2 $+ $2 a : %casinouserpoints [ $+ [ $2 ] ] point(s) 
  /msg $chan 8,2Compte epargne : %casinouserepargne [ $+ [ $2 ] ] point(s)
}

on ^1:text:!casino.achatliste:#:{
  /msg $chan 4,8 $+ $nick vient de lancer une commande importante , ralentissement prevu .

  /msg $nick Ce casino vous permez d'echanger vos points contre des objets ou des accees sur ce salon ! 
  /msg $nick Voici la liste des objets et acces : 
  /msg $nick 1 000 points : Mec ( !casino.achatmec ) 
  /msg $nick 1 000 points : Meuf ( !casino.achatmeuf )
  /msg $nick 4 000 points : DJ' ( !casino.achatdj )
  /msg $nick 5 000 points : Garde du corps ( !casino.achatads )
  /msg $nick 7 000 points : Limousine ( !casino.achatlimousine )
  /msg $nick 18 000 points : Villa ( !casino.achatvilla )
  /msg $nick 18 000 points : Hôtel ( !casino.achathotel )
  /msg $nick 20 000 points : Jet privé ( !casino.achatjet )
  /msg $nick 30 000 points : Paquebo ( !casino.achatpaquebo )
  /msg $nick 35 000 points : Boîte de nuit ( !casino.achatboite )
  /msg $nick 40 000 points : île ( !casino.achatile )
  /msg $nick 40 000 points : 1 7,8Goz8,7point1,0 ( !casino.achatgozpoint )
  /msg $nick 51 000 points : Casino ( !casino.achatcasino )
  /msg $nick 140 000 points : Accee voice de 14 jours sur ce salon ( !casino.achataxxvoice )
  /msg $nick 200 000 points : Accee halfop de 7 jours sur ce salon ( !casino.achataxxhop ) 
  /msg $nick Mais vous pouvez aussi stoquer votre argent sur un compte epargne par trache de 1 000 points ( !casino.epargne )
}


on ^1:text:!casino.epargne:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 1000 ) { /notice $nick Vous venez de mettre sur votre compte epagne la somme de 1 000 points . | /inc %casinouserepargne $+ $nick 1000 | /inc %casinouserpoints $+ $nick -1000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 999 ) { /notice $nick Vous n'avez pas assez de point ( 1 000 minimum )  }
}
on ^1:text:!casino.achatmeuf:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 1000 ) { /notice $nick Vous venez de vous offrir du plaisir , mais cela vous coûte 1 000 points . | /inc %casinouserahmeuf $+ $nick 1 | /inc %casinouserpoints $+ $nick -1000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 999 ) { /notice $nick Vous n'avez pas assez de point ( 1 000 minimum )  }
}
on ^1:text:!casino.achatmec:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 1000 ) { /notice $nick Vous venez de vous offrir du plaisir , mais cela vous coûte 1 000 points . | /inc %casinouserahmec $+ $nick 1 | /inc %casinouserpoints $+ $nick -1000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 999 ) { /notice $nick Vous n'avez pas assez de point ( 1 000 minimum )  }
}
on ^1:text:!casino.achatgozpoint:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 40000 ) { /msg $chan 14,1 $+ $nick Vient de s'offrir 1 7,8Goz8,7point | /msg jeuxbot !gozpoint.addpoint_ $+ %mdpgoz $nick | /inc %casinouserpoints $+ $nick -40000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 39999 ) { /notice $nick Vous n'avez pas assez de point ( 40 000 minimum )  }
}

on ^1:text:!casino.achathotel:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 18000 ) { /notice $nick Vous venez de vous offrir un hôtel, cela vous à tout de meme coûtez 18 000 points . | /inc %casinouserahhotel $+ $nick 1 | /inc %casinouserpoints $+ $nick -18000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 17999 ) { /notice $nick Vous n'avez pas assez de point ( 18 000 minimum )  }
}
on ^1:text:!casino.achatlimousine:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 7000 ) { /notice $nick Vous venez de vous offrir une splendide limousine ! cela vous à coûtez 7 000 points . | /inc %casinouserahlimousine $+ $nick 1 | /inc %casinouserpoints $+ $nick -7000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 6999 ) { /notice $nick Vous n'avez pas assez de point ( 7 000 minimum )  }
}
on ^1:text:!casino.achatile:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 40000 ) { /notice $nick Vous venez de vous offrir une île paradisiaque ! cela vous à coûtez 40 000 points . | /inc %casinouserahile $+ $nick 1 | /inc %casinouserpoints $+ $nick -40000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 39999 ) { /notice $nick Vous n'avez pas assez de point ( 40 000 minimum )  }
}
on ^1:text:!casino.achatjet:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 20000 ) { /notice $nick Vous venez de vous offrir un jet privé ( falcon ) ! cela vous à coûtez 20 000 points . | /inc %casinouserahjet $+ $nick 1 | /inc %casinouserpoints $+ $nick -20000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 19999 ) { /notice $nick Vous n'avez pas assez de point ( 20 000 minimum )  }
}
on ^1:text:!casino.achatpaquebo:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 30000 ) { /notice $nick Vous venez de vous offrir un magnifique paquebo ! cela vous à coûtez 30 000 points . | /inc %casinouserahpaquebo $+ $nick 1 | /inc %casinouserpoints $+ $nick -30000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 29999 ) { /notice $nick Vous n'avez pas assez de point ( 30 000 minimum )  }
}
on ^1:text:!casino.achatads:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 5000 ) { /notice $nick Vous venez de vous offrir les services d'un garde du corps , cela vous à coûtez 5 000 points . | /inc %casinouserahads $+ $nick 1 | /inc %casinouserpoints $+ $nick -5000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 4999 ) { /notice $nick Vous n'avez pas assez de point ( 5 000 minimum )  }
}
on ^1:text:!casino.achatdj:#:{ 
  if ( %casinouserahboite [ $+ [ $nick ] ] >= 1 ) {
    if ( %casinouserpoints [ $+ [ $nick ] ] >= 4000 ) { /notice $nick Vous venez de vous offrir les services d'un trés grand DJ' , cela vous à coûtez 4 000 points . | /inc %casinouserahdj $+ $nick 1 | /inc %casinouserpoints $+ $nick -4000 | /halt  }
    if ( %casinouserpoints [ $+ [ $nick ] ] <= 3999 ) { /notice $nick Vous n'avez pas assez de point ( 4 000 minimum )  }
  }
  else { /notice $nick Vous devez deja achter une boîte de nuit pour pouvoir s'offrir un DJ' ! }
}

on ^1:text:!casino.achatboite:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 35000 ) { /notice $nick Vous venez de vous offrir une boîte de nuit à Ibiza , cela vous à coûtez 35 000 points . | /inc %casinouserahboite $+ $nick 1 | /inc %casinouserpoints $+ $nick -35000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 34999 ) { /notice $nick Vous n'avez pas assez de point ( 35 000 minimum )  }
}
on ^1:text:!casino.achatvilla:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 18000 ) { /notice $nick Vous venez de vous offrir une villa en face de l'ocean , cela vous à coûtez 18 000 points . | /inc %casinouserahvilla $+ $nick 1 | /inc %casinouserpoints $+ $nick -18000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 17999 ) { /notice $nick Vous n'avez pas assez de point ( 18 000 minimum )  }
}

on ^1:text:!casino.achatcasino:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 51000 ) { /msg $chan $nick C'EST OFFERT UN CASINO ! | /inc %casinouserahcasino $+ $nick 1 | /inc %casinouserpoints $+ $nick -51000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 50999 ) { /notice $nick Vous n'avez pas assez de point ( 51 000 minimum )  }
}
on ^1:text:!casino.eptrans*:#:{ 
  if ( %casinouserepargne [ $+ [ $nick ] ] >= $2 ) { /notice $nick Transfert du compte epargne au compte central effectué pour $2 points | /inc %casinouserepargne $+ $nick - $+ $2 | /inc %casinouserpoints $+ $nick $2 | /halt  }
  if ( %casinouserepargne [ $+ [ $nick ] ] <= $2 ) { /notice $nick Vous ne pouvez pas tranferer plus que vous en avez !  }
}
on ^1:text:!casino.achataxxhop:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 200000 ) { /msg $chan $nick C'EST OFFERT UN ACCEE HALFOP SUR CE SALON ! | /msg $chan Les admins de ce salon vont etre prevenu de l'ajout de cette accee valable pour 1 semaine ( voir plus ) | /inc %casinouserahaxxhop $+ $nick 1 | /inc %casinouserpoints $+ $nick -200000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 199999 ) { /notice $nick Vous n'avez pas assez de point ( 200 000 minimum )  }
}
on ^1:text:!casino.achataxxvoice:#:{ 
  if ( %casinouserpoints [ $+ [ $nick ] ] >= 140000 ) { /msg $chan $nick C'EST OFFERT UN ACCEE VOICE SUR CE SALON ! | /msg $chan Les admins de ce salon vont etre prevenu de l'ajout de cette accee valable pour 2 semaine ( voir plus ) | /inc %casinouserahaxxvoice $+ $nick 1 | /inc %casinouserpoints $+ $nick -140000 | /halt  }
  if ( %casinouserpoints [ $+ [ $nick ] ] <= 139999 ) { /notice $nick Vous n'avez pas assez de point ( 140 000 minimum )  }
}

on *:text:$(!casino.ctrl.addpoints_ $+ %casinocontrmdp $+ *):?:{
  /msg $nick $3 point(s) ont été ajouter au joueur $2 .
  /inc %casinouserepargne $+ $2 $3
}
on *:text:$(!casino.ctrl.droppoints_ $+ %casinocontrmdp $+ *):?:{
  /msg $nick $3 point(s) ont été enlever au joueur $2 .
  /inc %casinouserepargne $+ $2 - $+ $3
}



; ======= A METTRE DANS VOS POP UPS / CHANNEL ou SALON =======


Casino bot by juki (juki@noos.fr) :/halt
-
Controleur acces
.Changer mdp:/set %casinocontrmdp $$?="Nouveau mot de passe du controleur"
.mdp actuel ( %casinocontrmdp ):/halt