Accueil > > > DETECTEUR DE NICK
DETECTEUR DE NICK
Information sur la source
Description
Bon c est un ptit remote vite fait pour trouver un nick qui contient le mot que vous choisissez de rechercher !
Double cliquez sur un pseudo et un query s ouvrira !
Pratique pour les chans ou il y a beaucoup de monde !
En dialogue
Source
- menu menubar,channel {
- Recherche de nicks:/rechdenick
- }
-
- dialog nicksdeschans {
- title "Recherche Nicks"
- size -1 -1 200 210
- option dbu
-
- button "Fermer", 01, 10 190 180 12, cancel
-
- box "", 98, 30 30 140 20
- text %j, 95, 50 38 20 12
- text "Personnes sont présentes sur le chan", 57, 60 38 130 12
-
- box "Nick présent sur le chan", 72, 10 55 90 110
- list 02, 15 65 80 100, vsbar sort
-
- box "Reponses de votre recherche", 73, 100 55 90 110
- list 03, 105 65 80 100, vsbar sort
-
- text "Veuillez patienter pour que l'affichage des pseudos se fasse !", 94, 10 175 180 8, center
-
- edit "Inscrivez ici la partie du pseudo à rechercher", 04, 10 10 120 12, autohs
- button "Rechercher", 05, 140 10 50 12
- }
-
- alias nicksdeschans {
- write -c pseudochan.txt
- set %j $nick(%chan,0)
- var %i = 1
- :loop
- if (%i <= %j) {
- write -a pseudochan.txt $nick(%chan,%i)
- inc %i
- goto loop
- }
- else { return }
- }
-
- alias rechdenick { set %chan $chan | nicksdeschans | timer 1 2 dialog -rm nicksdeschans nicksdeschans }
-
- on *:dialog:nicksdeschans:init:00:{
- timer 1 4 loadbuf -ro nicksdeschans 02 pseudochan.txt
- }
-
- on *:dialog:nicksdeschans:dclick:*:{
- if ( $did == 02 ) {
- /query $did(02).seltext
- }
- if ( $did == 03 ) {
- /query $did(03).seltext
-
- }
- }
-
- on *:dialog:nicksdeschans:sclick:*:{
- if ( $did == 05 ) {
- did -r nicksdeschans 03
- set %nickachercher $did(04)
- var %k = 1
- :loop
- if (%k <= %j) {
- if ( $read(pseudochan.txt,w, * $+ %nickachercher $+ *) == $null ) {
- nicksdeschans
- }
- else {
- set %nicktrouver. [ $+ [ %k ] ] $read(pseudochan.txt,w, * $+ %nickachercher $+ *)
- did -a nicksdeschans 03 %nicktrouver. [ $+ [ %k ] ]
- write -ds $+ %nicktrouver. [ $+ [ %k ] ] pseudochan.txt
- inc %k
- goto loop
- }
- }
- }
- else {
- nicksdeschans
- }
- }
menu menubar,channel {
Recherche de nicks:/rechdenick
}
dialog nicksdeschans {
title "Recherche Nicks"
size -1 -1 200 210
option dbu
button "Fermer", 01, 10 190 180 12, cancel
box "", 98, 30 30 140 20
text %j, 95, 50 38 20 12
text "Personnes sont présentes sur le chan", 57, 60 38 130 12
box "Nick présent sur le chan", 72, 10 55 90 110
list 02, 15 65 80 100, vsbar sort
box "Reponses de votre recherche", 73, 100 55 90 110
list 03, 105 65 80 100, vsbar sort
text "Veuillez patienter pour que l'affichage des pseudos se fasse !", 94, 10 175 180 8, center
edit "Inscrivez ici la partie du pseudo à rechercher", 04, 10 10 120 12, autohs
button "Rechercher", 05, 140 10 50 12
}
alias nicksdeschans {
write -c pseudochan.txt
set %j $nick(%chan,0)
var %i = 1
:loop
if (%i <= %j) {
write -a pseudochan.txt $nick(%chan,%i)
inc %i
goto loop
}
else { return }
}
alias rechdenick { set %chan $chan | nicksdeschans | timer 1 2 dialog -rm nicksdeschans nicksdeschans }
on *:dialog:nicksdeschans:init:00:{
timer 1 4 loadbuf -ro nicksdeschans 02 pseudochan.txt
}
on *:dialog:nicksdeschans:dclick:*:{
if ( $did == 02 ) {
/query $did(02).seltext
}
if ( $did == 03 ) {
/query $did(03).seltext
}
}
on *:dialog:nicksdeschans:sclick:*:{
if ( $did == 05 ) {
did -r nicksdeschans 03
set %nickachercher $did(04)
var %k = 1
:loop
if (%k <= %j) {
if ( $read(pseudochan.txt,w, * $+ %nickachercher $+ *) == $null ) {
nicksdeschans
}
else {
set %nicktrouver. [ $+ [ %k ] ] $read(pseudochan.txt,w, * $+ %nickachercher $+ *)
did -a nicksdeschans 03 %nicktrouver. [ $+ [ %k ] ]
write -ds $+ %nicktrouver. [ $+ [ %k ] ] pseudochan.txt
inc %k
goto loop
}
}
}
else {
nicksdeschans
}
}
Conclusion
Je ne pense pas qu il y ai deja un code de ce genre sur ce site alors je le met !
Voila :)
Dite moi cke vous en pensez
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|