begin process at 2010 02 09 16:03:02
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > CHERCHES !!

CHERCHES !!


 Information sur la source

Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :jeu, cherche Niveau :Débutant Date de création :10/12/2006 Date de mise à jour :10/12/2006 19:18:12 Vu :2 014

Auteur : etienne256

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Ce jeu est simple !
Vous tapez !cherches pseudo
La personne qui a cette remote join un salon qui est sur chan.txt
( Vous pouvez modifier cette liste en tapant /run chan.txt )
Le but, les deux joueurs doivent whois ( /whois la-personne )
Regardez ou es-ce qu'elle se trouve, et trouver le salon intrus
Une fois trouvé, ils doivents le joindre :)
Le premier arrivé à gagné....

Source

  • On *:LOAD:{ write chan.txt | write chan.txt #Ici | write chan.txt #heho | write chan.txt #hihanhihanwrite | write chan.txt #Pipi | write chan.txt #Caca | write chan.txt #Popo | write chan.txt #Trouves-moi | write chan.txt #Lol | write chan.txt #Mes-amis | write chan.txt #Popopipi | write chan.txt #Moi | write chan.txt #Lui | write chan.txt #Il | write chan.txt #Elle | write chan.txt # $+ $+($rand(0,9999)) | write chan.txt #Clodo | write chan.txt #Humour | write chan.txt #Ptdr | write chan.txt #Eclm | write chan.txt #Trouves_moi | write chan.txt #Viens | write chan.txt #Ordinateur | write chan.txt #Ecran | write chan.txt #Enceinte | write chan.txt #Maison | write chan.txt #WebCam | write chan.txt #Cherches | write chan.txt #Cherches_moi | write chan.txt #Lampe | write chan.txt #Lampes
  • }
  • alias stop.cherches { disable #chan.decouvre | part %chan.decouvre | unset %chan* | unset %nick* }
  • alias cherches { set %chan.decouvre $read(chan.txt) | join %chan.decouvre | enable #chan.decouvre }
  • on $*:text:/^(\!(stop-cherches|cherches(-point)?))/i:#:{
  • if (($nick == %nick1) || ($nick == %nick2)) && ($chan == %chan.game) && ($regml(1) == !stop-cherches) { msg %chan.game 9Le jeu est arrété par $nick ! | stop.cherches }
  • elseif ($regml(1) == !cherches) && ($2 ison $chan) {
  • set %chan.game $chan | set %nick1 $nick | set %nick2 $2
  • msg %chan.game 9Bonjour à %nick1 et %nick2
  • msg %chan.game 9Tout d'abord, il faut que vous fassiez un whois sur moi ( /whois $me ) et vous chercher le salon INTRUS et que vous le joignez facile non ?
  • msg %chan.game 9Go !! | cherches
  • }
  • elseif ($regml(1) == !cherches-point) {
  • if ($read(cherchespoints.txt,w,* $+ $2 $+ *)) { msg # $2 a : $v1 point(s) }
  • else { notice $nick Désolé mais $2 n'est pas dans la liste des scores ! }
  • }
  • }
  • #chan.decouvre off
  • On *:join:*:{
  • if (($nick == %nick1) || ($nick == %nick2)) {
  • var %nckproc = $nick
  • msg %chan.game 9Trop tard ! %nckproc a découvert le salon :s | msg %chan.game 9Il a donc gagné cette partie !
  • mode %chan.game +v %nckproc | msg %chan.decouvre 9Bravo %nckproc tu as découvert le salon :) Tu as gagnée le jeu
  • if (!$read(cherchespoints.txt,w,* $+ %nckproc $+ *)) {
  • var %calc.point = $r(1,10) | msg %chan.decouvre 9Tu as gagnée %calc.point points !
  • msg %chan.game 9 $+ %nckproc a gagnée %calc.point points
  • write cherchespoints.txt %nckproc %calc.point | msg %chan.game 9La partie est terminée :) | stop.cherches
  • }
  • else {
  • var %calc.pointget = $gettok($read(cherchespoint.txt,w,%nckproc), 2, 32)
  • var %calc.point = $r(1,10) | var %calc.point.total = $calc(%calc.point + %calc.pointget) | var %linematch = $readn
  • msg %chan.decouvre 9Tu as gagnée %calc.point aujourd'hui + %calc.pointget tes anciens points = Tu as donc %calc.point.total au total !
  • msg %chan.game 9 $+ %nckproc à gagné %calc.point aujourd'hui + %calc.pointget ses anciens points = Il a donc %calc.point.total au total !
  • write $+(-dl,%linematch) cherchespoints.txt | write cherchespoints.txt %nckproc %calc.point.total | msg %chan.game 9La partie est terminée :) | stop.cherches
  • }
  • }
  • }
  • #chan.decouvre end
On *:LOAD:{ write chan.txt | write chan.txt #Ici | write chan.txt #heho | write chan.txt #hihanhihanwrite | write chan.txt #Pipi | write chan.txt #Caca | write chan.txt #Popo | write chan.txt #Trouves-moi | write chan.txt #Lol | write chan.txt #Mes-amis | write chan.txt #Popopipi | write chan.txt #Moi | write chan.txt #Lui | write chan.txt #Il | write chan.txt #Elle | write chan.txt # $+ $+($rand(0,9999)) | write chan.txt #Clodo | write chan.txt #Humour | write chan.txt #Ptdr | write chan.txt #Eclm | write chan.txt #Trouves_moi | write chan.txt #Viens | write chan.txt #Ordinateur | write chan.txt #Ecran | write chan.txt #Enceinte | write chan.txt #Maison | write chan.txt #WebCam | write chan.txt #Cherches | write chan.txt #Cherches_moi | write chan.txt #Lampe | write chan.txt #Lampes
}
alias stop.cherches { disable #chan.decouvre | part %chan.decouvre | unset %chan* | unset %nick* }
alias cherches { set %chan.decouvre $read(chan.txt) | join %chan.decouvre | enable #chan.decouvre }
on $*:text:/^(\!(stop-cherches|cherches(-point)?))/i:#:{
  if (($nick == %nick1) || ($nick == %nick2)) && ($chan == %chan.game) && ($regml(1) == !stop-cherches)  { msg %chan.game 9Le jeu est arrété par $nick ! | stop.cherches }
  elseif ($regml(1) == !cherches) && ($2 ison $chan) {
    set %chan.game $chan | set %nick1 $nick | set %nick2 $2
    msg %chan.game 9Bonjour à %nick1 et %nick2
    msg %chan.game 9Tout d'abord, il faut que vous fassiez un whois sur moi ( /whois $me ) et vous chercher le salon INTRUS et que vous le joignez facile non ?
    msg %chan.game 9Go !! | cherches
  }
  elseif ($regml(1) == !cherches-point) {
    if ($read(cherchespoints.txt,w,* $+ $2 $+ *)) { msg # $2 a : $v1 point(s) }
    else { notice $nick Désolé mais $2 n'est pas dans la liste des scores ! }
  }
}
#chan.decouvre off
On *:join:*:{
  if (($nick == %nick1) || ($nick == %nick2)) {
    var %nckproc = $nick
    msg %chan.game 9Trop tard ! %nckproc a découvert le salon :s | msg %chan.game 9Il a donc gagné cette partie !
    mode %chan.game +v %nckproc | msg %chan.decouvre 9Bravo %nckproc tu as découvert le salon :) Tu as gagnée le jeu
    if (!$read(cherchespoints.txt,w,* $+ %nckproc $+ *)) {
      var %calc.point = $r(1,10) | msg %chan.decouvre 9Tu as gagnée %calc.point points !
      msg %chan.game 9 $+ %nckproc a gagnée %calc.point points
      write cherchespoints.txt %nckproc %calc.point | msg %chan.game 9La partie est terminée :) | stop.cherches
    }
    else {
      var %calc.pointget = $gettok($read(cherchespoint.txt,w,%nckproc), 2, 32)
      var %calc.point = $r(1,10) | var %calc.point.total = $calc(%calc.point + %calc.pointget) | var %linematch = $readn
      msg %chan.decouvre 9Tu as gagnée %calc.point aujourd'hui + %calc.pointget tes anciens points = Tu as donc %calc.point.total au total !
      msg %chan.game 9 $+ %nckproc à gagné %calc.point aujourd'hui + %calc.pointget ses anciens points = Il a donc %calc.point.total au total !
      write $+(-dl,%linematch) cherchespoints.txt | write cherchespoints.txt %nckproc %calc.point.total | msg %chan.game 9La partie est terminée :) | stop.cherches
    }
  }
}
#chan.decouvre end

 Conclusion

Le problème c'est qu'il y a un beug ça c'est dommage, c'est du niveau des points....


 Historique

10 décembre 2006 19:18:12 :
Il y avait des problèmes, j'avais mis sans faire exprès : "|write" au lieu de "| write" :)

 Sources du même auteur

HELP TO IRC - AIDE SUR LE IRC
PFC ( PIERRE, FEUILLE, CISEAU )

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LAZER (JEU EN PICWIN) par Zova
Source avec Zip Source avec une capture PACMAN ONLINE - 4 JOUEURS par wims
Source avec Zip Source avec une capture BELOTE (MULTIJOUEURS) EN PICWIN par RCA ArKanis
SOLVEUR DE SUDOKU par MaX_62
TUEUR - JEU par isko

Commentaires et avis

Commentaire de atlantisfr le 11/12/2006 07:10:35

Le jeu est assé original. Si tu veux fair une liste de salon sans toujours avoir les mêmes salons une while avec des rands de 0,9 avec a,z et aussi bien A,Z. Pour que ce soit des salosn existant, pourquoi pas whois une personne au hasard et si il y a mon de 10 salons, whois une autre personne au hasard.

Commentaire de ZeroOo le 11/12/2006 20:17:17

Yep, plutôt que d'utiliser une quantité de .write absoluement énorme, utilise le File Handling (qui va accélérer tout ça).

De même, tu peux faire :

var %a, %b, %c etc. Plutôt que de faire

var
var
...

Et il est inutile de mettre des accolades quand tu n'as qu'une commande a effectuer après une condition.

Par exemple if (conditon) commande

Bonne continuation

Commentaire de PaDa le 12/12/2006 12:08:24

C'est mal codé, et illisible..

Commentaire de Bestdoud le 12/12/2006 18:26:02

SAlut
Pourquoi mettre des | partout? Ca va plus vite lors de l'exécution ? J'en suis pas sur.
Aa tu codé directement comme ça ou tu as modifié après histoire d'avoir moins de lignes?

Commentaire de etienne256 le 14/12/2006 08:16:35

En faite... j'ai mis le code et rajouté les write...
Pour vous évitez de créer le fichier.txt
Etc...
Et je vous en remercie c'est mon 1er jeu celui là....
Allez voir PFC ( Pierre feuille ciseau )
C'est mon second !

Commentaire de hunter38 le 26/05/2007 13:16:29

PaDa:"C'est mal codé, et illisible.. "

euh oué la je suis d'accord avec toi c pas tré reussi...
mais c pas mal au niveau originalité.je le note 4

Commentaire de XyLOng le 22/03/2008 17:09:21 10/10

Pamal
Truc Original ta bien fai !!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

cherche help sur les /com object [ par RysS ] Je cherche une aide concrete ( en fr de préférence ) ou un tutorial ou les deux sur les /com object ( command epour acceder a des programme )RysS [ A je cherche une fonction auto reponse [ par rikyu ] salut je cherche une fonction Je voudrais que l'orsqu'un utilisateur tape un mot ou une commande précise je réponde automatiquement Mais il faudrait q je cherche un client iRC linux qui comprenne lirc scripting [ par serialkinder ] Ou je peux trouver ça pliz ? ### sk1ll 0wn j00r f@ce ### Cherche helpers [ par jhd ] Je cherche une ou deux personne ayant un certain nivo en scripting pour faire un script a plusieurs. Personnelement je maitrise assez mdx et les sock cherche script [ par spootnik2 ] bonjour je suis op sur un salon et je cherche un script complet au nivaeu avertissement; un scanners de clonnes automatiques merci Je Cherche Tutoriel pour couleur svp [ par T0x1K ] Voila , c est assé urgent donc... cherche un script qui capture des mots définis dans un channel [ par wxcvbnz ] salut je cherche un scrpit qui puisse enregistrer des mots clefs, exemeple: j'ai besoin d'enregistrer tous les messages contenants le mot "bonjour" su Citations [ par Naixn ] Salut à vous ! Moi je suis plus un habitué de Flashkod, mais bon, conaissant la communauté, je m'adresse ici, car je pense (et j'espere) obtenir une r jeu pour bot ? maillon faible ? [ par MeF ] voilou j'ai déjà eu l'occasion de jouer sur irc au maillon faible.Yavait des sons qui accompagnaient le jeu, c'étaient bien sympathique, avec de nombr Cherche Aliase pour voir sa config PC [ par DglingO ] Bah comme le dit le titre du sujet, je chercher les commandes a mettre ds les aliases pour pouvoir montrer ma config PC aux autres ausr un chanel, je


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,576 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales