Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 013 fois - Téléchargée 29 fois
;Lorsque quelqu'un tape !blackjack sur un canal ou en privé avec vous ;Cela vérifi si la variable %blackjack. [ $+ [ $nick ] ] est nulle, ou si elle est égal à oui ou à non ;Si elle est nulle, elle se changeras en "non" pour que le joueur puisse jouer ;Si elle est égal à oui, c'est parce que le joueur a déjà commencé une partie de blackjack ;Et finallement, si elle est égal à non, la variable se changeras en "oui" et la partie de blackjack débutera à ce moment on *:text:!blackjack*:*:{ if (%blackjack. [ $+ [ $nick ] ] == $null) { set %blackjack. [ $+ [ $nick ] ] non } if (%blackjack. [ $+ [ $nick ] ] == oui) { notice $nick tu est déjà entrain de jouer au blackjack! } if (%blackjack. [ $+ [ $nick ] ] == non) { if ($2 > 0) { if ($2 < 1001) { if (%score. [ $+ [ $nick ] ] == $null) { set %score. [ $+ [ $nick ] ] 0 } set %cartenumero. [ $+ [ $nick ] ] 0 set %gage. [ $+ [ $nick ] ] $2 set %blackjack. [ $+ [ $nick ] ] oui set %carte1. [ $+ [ $nick ] ] $rand(1,10) set %carte2. [ $+ [ $nick ] ] $rand(1,11) set %carte3. [ $+ [ $nick ] ] $rand(1,11) set %carte4. [ $+ [ $nick ] ] $rand(1,11) set %result1. [ $+ [ $nick ] ] $calc( %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] ) set %result2. [ $+ [ $nick ] ] $calc( %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] + %carte3. [ $+ [ $nick ] ] ) set %result3. [ $+ [ $nick ] ] $calc( %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] + %carte3. [ $+ [ $nick ] ] + %carte4. [ $+ [ $nick ] ] ) set %carte6. [ $+ [ $nick ] ] $rand(1,11) set %carte7. [ $+ [ $nick ] ] $rand(1,11) set %result5. [ $+ [ $nick ] ] $calc( %carte6. [ $+ [ $nick ] ] + %carte7. [ $+ [ $nick ] ] ) timerclosebj. [ $+ [ $nick ] ] 1 120 set %blackjack. [ $+ [ $nick ] ] non msg $nick tu a en main deux carte. %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] = %result1. [ $+ [ $nick ] ] (tappe !carte pour avoir une carte et !stop pour arrêter) msg $nick voici une des cartes de l'ordinateur. %carte6. [ $+ [ $nick ] ] + |?| = ? } } } } ;Lorsque quelqu'un tape !carte sur un canal ou en privé avec vous ;Cela vérifi si, premièrement, la variable %blackjack. [ $+ [ $nick ] ] est égal à oui ;Ensuite, si elle est égal à oui, cela vérifiras si la variable %cartenumero. [ $+ [ $nick ] ] égal a 0,1 ou 2 ;Si celle-ci est égal à 0 , le joueur à droit à deux autres cartes ;Si celle-ci est égal à 1 , le joueur à droit à une dernière carte ;Tandis que si elle est égal à 2, ceci mettra fin à la partie et déterminera qui est le vainqueur ;A l'opposer, si la variable égal à non, ceci va tout simplement ignorer le joueur jusqu'a ce qu'il tape !blackjack <mise> on *:text:!carte:*:{ if (%blackjack. [ $+ [ $nick ] ] == non) { halt } if (%blackjack. [ $+ [ $nick ] ] == oui) { timerclosebj. [ $+ [ $nick ] ] off timerclosebj. [ $+ [ $nick ] ] 1 120 set %blackjack. [ $+ [ $nick ] ] non inc %cartenumero. [ $+ [ $nick ] ] if (%cartenumero. [ $+ [ $nick ] ] == 1) { if (%result2. [ $+ [ $nick ] ] > 21) { msg $nick perdu: vous avez obtenu %result2. [ $+ [ $nick ] ] $+ , ce qui dépasse 21, dommage. (- %gage. [ $+ [ $nick ] ] pts) | dec %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non | halt } msg $nick tu a en main trois carte. %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] + %carte3. [ $+ [ $nick ] ] = %result2. [ $+ [ $nick ] ] (il te reste encore une carte) | halt } } if (%cartenumero. [ $+ [ $nick ] ] == 2) { if (%result3. [ $+ [ $nick ] ] > 21) { msg $nick perdu: vous avez obtenu %result3. [ $+ [ $nick ] ] $+ , ce qui dépassé 21, dommage. (- %gage. [ $+ [ $nick ] ] pts) | dec %score. [ $+ [ $nick ] ] %gage | set %blackjack. [ $+ [ $nick ] ] non | halt } msg $nick tu a en main quatre carte. %carte1. [ $+ [ $nick ] ] + %carte2. [ $+ [ $nick ] ] + %carte3. [ $+ [ $nick ] ] + %carte4. [ $+ [ $nick ] ] = %result3. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%result3. [ $+ [ $nick ] ] == 21) { if (%result5. [ $+ [ $nick ] ] != 21) { msg $nick blackjack: tu gagne cette manche avec 21 (+ $+ $calc( %gage. [ $+ [ $nick ] ] *3) pts) | inc %score. [ $+ [ $nick ] ] $calc( %gage. [ $+ [ $nick ] ] *3) | set %blackjack. [ $+ [ $nick ] ] non | halt } } if (%result5. [ $+ [ $nick ] ] > 21) { msg $nick gagné: l'ordinateur à dépassé 21, tu gagne donc (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage | set %blackjack. [ $+ [ $nick ] ] non | halt } if (%result3. [ $+ [ $nick ] ] > %result5. [ $+ [ $nick ] ]) { msg $nick tu a obtenu %result3. [ $+ [ $nick ] ] avec 4 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | msg $nick gagné: tu gagne cette manche avec %result3. [ $+ [ $nick ] ] (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%result3. [ $+ [ $nick ] ] < %result5. [ $+ [ $nick ] ]) { msg $nick tu a obtenu %result3. [ $+ [ $nick ] ] avec 4 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | msg $nick perdu: tu perd cette manche avec %result3. [ $+ [ $nick ] ] (- %gage. [ $+ [ $nick ] ] pts) | dec %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%result3. [ $+ [ $nick ] ] == %result5. [ $+ [ $nick ] ]) { msg $nick tu a obtenu %result3. [ $+ [ $nick ] ] avec 4 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | msg $nick nul: cette manche est nulle, tu reprend donc tes points sans les perdres | set %blackjack. [ $+ [ $nick ] ] non } } ;Lorsque quelque tape !stop sur un canal ou en privé avec vous, c'est un peu du même principe qu'avez !carte ;Cela vérifi si, premièrement, la variable %blackjack. [ $+ [ $nick ] ] est égal à oui ;Ensuite, si elle est égal à oui, cela vérifiras si la variable %cartenumero. [ $+ [ $nick ] ] égal a 0,1 ou 2 ;Tandis que si elle est égal à 2, ceci mettra fin à la partie et déterminera qui est le vainqueur ;A l'opposer, si la variable égal à non, ceci va tout simplement ignorer le joueur jusqu'a ce qu'il tape !blackjack <mise> ;Et évidement, lorsque le joueur tape !stop la variable %blackjack. [ $+ [ $nick ] ] se met en "non" et sa recommence avec !blackjack <mise> on *:text:!stop:*:{ if (%blackjack. [ $+ [ $nick ] ] == oui) { timerclosebj. [ $+ [ $nick ] ] off timerclosebj. [ $+ [ $nick ] ] 1 120 set %blackjack. [ $+ [ $nick ] ] non if (%blackjack. [ $+ [ $nick ] ] == oui) { timerclosebj. [ $+ [ $nick ] ] off if (%cartenumero. [ $+ [ $nick ] ] == 0) { msg $nick tu a obtenu %result1. [ $+ [ $nick ] ] avec 2 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%cartenumero. [ $+ [ $nick ] ] == 1) { msg $nick tu a obtenu %result2. [ $+ [ $nick ] ] avec 3 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%cartenumero. [ $+ [ $nick ] ] == 2) { msg $nick tu a obtenu %result3. [ $+ [ $nick ] ] avec 4 carte et l'ordinateur a obtenu %result5. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } } if (%cartenumero. [ $+ [ $nick ] ] == 0) { if (%result1. [ $+ [ $nick ] ] == 21) { if (%result5. [ $+ [ $nick ] ] != 21) { msg $nick blackjack: tu gagne cette manche avec 21 (+ $+ $calc( %gage. [ $+ [ $nick ] ] *3) pts) | inc %score. [ $+ [ $nick ] ] $calc( %gage. [ $+ [ $nick ] ] *3) | set %blackjack. [ $+ [ $nick ] ] non | halt } } if (%result5. [ $+ [ $nick ] ] > 21) { msg $nick gagné: l'ordinateur à dépassé 21, tu gagne donc (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage | set %blackjack. [ $+ [ $nick ] ] non | halt } if (%result1. [ $+ [ $nick ] ] < %result5. [ $+ [ $nick ] ]) { msg $nick perdu: tu perd cette manche avec %result1. [ $+ [ $nick ] ] (- %gage. [ $+ [ $nick ] ] pts) | dec %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non | halt } if (%result1. [ $+ [ $nick ] ] > %result5. [ $+ [ $nick ] ]) { msg $nick gagné: tu gagne cette manche avec %result1. [ $+ [ $nick ] ] (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non | halt } } if (%cartenumero. [ $+ [ $nick ] ] == 1) { if (%result2. [ $+ [ $nick ] ] == 21) { if (%result5. [ $+ [ $nick ] ] != 21) { msg $nick blackjack: tu gagne cette manche avec 21 (+ $+ $calc( %gage. [ $+ [ $nick ] ] *3) pts) | inc %score. [ $+ [ $nick ] ] $calc( %gage. [ $+ [ $nick ] ] *3) | set %blackjack. [ $+ [ $nick ] ] non | halt } } } if (%result5. [ $+ [ $nick ] ] > 21) { msg $nick gagné: l'ordinateur à dépassé 21, tu gagne donc (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage | set %blackjack. [ $+ [ $nick ] ] non | halt } if (%result2. [ $+ [ $nick ] ] < %result5. [ $+ [ $nick ] ]) { msg $nick perdu: tu perd cette manche avec %result2. [ $+ [ $nick ] ] (- %gage. [ $+ [ $nick ] ] pts) | dec %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%result2. [ $+ [ $nick ] ] > %result5. [ $+ [ $nick ] ]) { msg $nick gagné: tu gagne cette manche avec %result2. [ $+ [ $nick ] ] (+ %gage. [ $+ [ $nick ] ] pts) | inc %score. [ $+ [ $nick ] ] %gage. [ $+ [ $nick ] ] | set %blackjack. [ $+ [ $nick ] ] non } if (%result2. [ $+ [ $nick ] ] == %result5. [ $+ [ $nick ] ]) { msg $nick nul: cette manche est nulle, tu reprend donc tes points sans les perdres | set %blackjack. [ $+ [ $nick ] ] non } } } ;Et finallement, si quelqu'un tape !score ou !score <nick> en privé ou sur un canal avec vous ;Si le texte est égal à "!score" tout court. Ceci vérifira si d'abord vous avec un score, si vous en avez un, il vous le dira, et si vous en avez pas il vous diras que votre score est présentement nul ;Si le texte est égal à "!score pseudo" . Ceci vérifira si d'abord pseudo a un score, si il en a un, il vous le dira, et si il en a pas, il dira que pseudo n'a pas de score. C'est aussi simple que cela :) on *:text:!score*:*:{ if ($2 != $null) { if (%score. [ $+ [ $2 ] ] == $null) { set %score. [ $+ [ $2 ] ] 0 | notice $nick blackjack: $2 n'a présentement aucun point(s) } else { notice $nick blackjack: $2 a présentement %score. [ $+ [ $2 ] ] points } } if ($2 == $null) { if (%score. [ $+ [ $nick ] ] == $null) { set %score. [ $+ [ $nick ] ] 0 | notice $nick blackjack: tu n'as présentement aucun point(s) } else { notice $nick blackjack: tu as présentement %score. [ $+ [ $nick ] ] points } } }
19 juin 2009 à 17:34
j'aurai souhaiter utiliser ce logiciel mais je ne sais pas comment mi prendre,j'ai fais une copie dans le presse papier mais je n'arrive pas à le lancer...
Merci d'avance pour votre aide et bonne continuation.ciao
2 juin 2005 à 12:51
on *:text:!score*:?:{
if ($2 != $null) {
if (%score. [ $+ [ $2 ] ] == $null) { .set %score. [ $+ [ $2 ] ] 0 | .notice $nick $2 n'a pas encore de score définitif }
else { .notice $nick le score de $2 est de %score. [ $+ [ $2 ] ] }
}
if ($2 == $null) {
if (%score. [ $+ [ $nick ] ] == $null) { .set %score. [ $+ [ $nick ] ] 0 | .notice $nick tu n'a pas encore de score définitif }
else { .notice $nick ton score est de %score. [ $+ [ $nick ] ] }
}
}
Tu verifie 2 fois la meme chose tu peux optimiser :
on *:text:!score*:?:{
if ($2) {
if (!%score. $+ $2) { set %score. $+ $2 0 | .notice $nick $2 n'a pas encore de score définitif }
else { .notice $nick le score de $2 est de %score. $+ $2 }
}
else {
if (!%score. $+ $nick) { set %score. $+ $nick 0 | .notice $nick tu n'a pas encore de score définitif }
else { notice $nick ton score est de %score. $+ $nick }
}
}
J'trouve ca mieux perso :)
1 juin 2005 à 21:22
1 juin 2005 à 19:46
Deuxièmement, tu te compliques la vie :) Regarde par exemple ca :
if ($2 > 0) {
if ($2 < 1001) {
Tu pourrais ne pas ouvrir tant de conditions sinon tu risques de ne plus t'y retrouver après... Quelle solution adopter ? Tout simplement, utilise le "halt" :)
Genre :
"if ($nick != pwet) { msg $nick Tu n'es pas pwet | halt }
ici, le code continue si le $nick == pwet
etc etc"
Donc sers-toi du halt, ca sera plus propre.
Aussi, regroupe tes évènements TEXT et pour le reste, ca me semble pas trop mal pour un début
Bonne continuation !
Giustino, Admin VegaGames
1 juin 2005 à 12:53
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.