Accueil > > > WSEENSYSTEM V1.0
WSEENSYSTEM V1.0
Information sur la source
Description
Salut
C’est un seen system pour bot multi chan donc gère chaque chan a part, détecte les changements de pseudo et sa présence sur le serveur ou pas
Si vous tapez !seen <pseudo> dans un chan
Vous aurez
- L’entrée du pseudo au chan là où la demande a été effectuée
Exp : si tu tape !seen dans #chan1 il vérifie l’entré rien que dans #chan1 même si il l’a vu entré dans d’autres chans
- La sortie du pseudo du chan là où la demande a été effectuée
Exp : si tu tape !seen dans #chan1 il vérifie la sortie rien que dans #chan1 même si il l’a vu sorti d’autres chans
Part
Quit avec msg
Quit erreur
Kick par un pseudo avec raison
- Si le pseudo a été changé il te dit qu’il a été changé et devenu il te propose de faire !seen <nouveau_pseudo>
- Au cas de présence du pseudo sur le chan
Il te dit qu’il a été vu depuis tel temps, si c’était une entrée ou un changement de pseudo et qu’il est présent
- Au cas d’absence du pseudo du chan
Il te dit l’entrée et la sortie et il te signale si le pseudo est connecté au serveur ou pas
Exp : le pseudo est entré ce jour et temps et sorti le jour et temps mais il est connecté actuellement au serveur
Un dialog qui te permet de choisir le mode d’envoi de donnée si c’est par msg chan, PV, ou notice nick
un check pour activé l'envoi d'une notice a chaque pseudo entrant ou pas
Source
- menu * {
- -
- Wseen System V1.0
- .Configurer:wseen
- .Désinstaller:dwseen
- }
- alias wseen {
- if (!$dialog(wseensystem)) dialog -ma wseensystem wseensystem
- }
- alias introwseen {
- if (!$dialog(introwseen)) dialog -mo introwseen introwseen
- }
- alias dwseen {
- if (!$dialog(dwseen)) dialog -ma dwseen dwseen
- }
- dialog wseensystem {
- title "WorldDMT Seen System"
- size -1 -1 250 70
- option dbu
- combo 1, 202 20 42 10, drop
- check Status OFF, 2, 222 2 36 9, left
- text Clic ici ->, 3, 199 3 23 8, left disable
- box Mode d'envoie, 4, 183 12 64 22
- text Mode, 5, 188 22 13 8, left
- text WorldDMT Script, 6, 46 6 40 8, left disable
- text ~V1.0~, 7, 157 13 20 7, center disable
- box , 8, 42 1 50 15
- text WorldDMT Seen System, 9, 97 13 60 8, left disable
- box , 10, 87 8 95 15
- text ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~, 11, 96 3 100 7, left disable
- edit , 12, 42 24 70 10, center disable
- box , 13, 93 1 105 8
- icon 14, 2 1 39 60 , wseensystem/logo.gif,0, noborder large
- text ~~~~~~~~~~, 15, 44 16 50 7, left disable
- list 16, 42 35 205 31, size disable
- check Notice nick en entrant, 17, 115 25 60 8
- button Fermer, 18, 3 55 37 10, ok
- }
- dialog dwseen {
- title Désinstaller Wseen System
- size -1 -1 150 40
- option dbu
- box ATTENTION!!, 19, 1 2 148 37
- text Cette action supprime l’addon Wseen System V1.0 voulez-vous désinstallé Wseen System ?, 20, 12 9 125 24, Center
- button Oui, 22, 45 25 30 12, ok
- button Non, 23, 75 25 30 12, cancel
- }
- dialog introwseen {
- title WorldDMT Wseen System V1.0
- size -1 -1 170 100
- option dbu
- list 24, 0 0 170 100, size disable
- }
- on *:dialog:introwseen:*:*: {
- if ($devent == init) {
- loadbuf -o $dname 24 wseensystem/intro
- }
- if ($devent == close) {
- wseen
- }
- }
- on *:dialog:dwseen:sclick:22: {
- unset %mode %X %wseen %nn %msg %C %D
- echo -ae - Désinstallation de l'Addon terminé avec succes
- echo -ae - merci d'avoir utilisé Wseen System V1.0
- echo -ae - WorldDMT
- unload -rs wseensystem/wseen
- }
- on *:dialog:wseensystem:*:*:{
- if ($devent == sclick) {
- if ($did == 17) {
- if ($did(17).state) {
- set %nn 1
- did -r $dname 16
- did -ra $dname 12 Info Notice en entrant
- loadbuf -o $dname 16 wseensystem/noticenickonjoin
- }
- else {
- unset %nn
- did -r $dname 16
- did -ra $dname 12 Info Wseen System mode
- if (%mode == 1) loadbuf -o $dname 16 wseensystem/noticenick
- elseif (%mode == 2) loadbuf -o $dname 16 wseensystem/msgchan
- elseif (%mode == 3) loadbuf -o $dname 16 wseensystem/msgnick
- }
- }
- if ($did == 2) {
- if ($did(2).state) {
- set %wseen 1
- did -ra $dname 2 Status ON
- }
- else {
- unset %wseen
- did -ra $dname 2 Status OFF
- }
- }
- if ($did == 1) {
- set %mode $did(1).sel
- if ($did(1).sel == 1) {
- set %msg /notice
- set %X 2
- did -r $dname 16
- did -ra $dname 12 Info Wseen System mode
- loadbuf -o $dname 16 wseensystem/noticenick
- }
- elseif ($did(1).sel == 2) {
- set %msg /msg
- set %X 1
- did -r $dname 16
- did -ra $dname 12 Info Wseen System mode
- loadbuf -o $dname 16 wseensystem/msgchan
- }
- elseif ($did(1).sel == 3) {
- set %msg /msg
- set %X 2
- did -r $dname 16
- did -ra $dname 12 Info Wseen System mode
- loadbuf -o $dname 16 wseensystem/msgnick
- }
- }
- }
- if ($devent == init) {
- if (%nn) did -c $dname 17
- if (%wseen) { did -c $dname 2 | did -ra $dname 2 Status ON }
- if (%mode == 1) loadbuf -o $dname 16 wseensystem/noticenick
- elseif (%mode == 2) loadbuf -o $dname 16 wseensystem/msgchan
- elseif (%mode == 3) loadbuf -o $dname 16 wseensystem/msgnick
- did -ra $dname 12 Info Wseen System mode
- did -a $dname 1 Notice nick
- did -a $dname 1 Msg chan
- did -a $dname 1 Msg nick
- did -c $dname 1 $iif(%mode,$ifmatch,0)
- }
- }
- on !*:join:#:{
- if (%nn) notice $nick Bienvenu4 $nick tapez 2!seen <pseudo> pour avoir des infos sur un pseudo que vous cherchez
- if ($hget($nick,$(OUT $+ #))) hdel -w $nick $(OUT $+ #)
- if ($hget($nick,$(OUT $+ Q))) hdel -w $nick $(OUT $+ Q)
- if ($hget($nick,$(OUT $+ N))) hdel -w $nick $(OUT $+ N)
- if ($hget($nick,$(IN $+ N))) hdel -w $nick $(IN $+ N)
- hadd -m $nick $(IN $+ #) 14,0[Resultat Wseen]4,0 $nick 1,0a été vu sur7,0 $chan 1,0depuis sa derniere entrée le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
- }
- on !*:part:#:hadd -m $nick $(OUT $+ #) 1,0il est sorti de7,0 $chan 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
- on !*:quit:hadd -m $nick $(OUT $+ Q) 1,0il a quitté le serveur le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. [ msg ]4,0 $1-
- on !*:nick:{
- if ($hget($newnick,$(OUT $+ N))) hdel -w $newnick $(OUT $+ N)
- if ($hget($nick,$(IN $+ N))) hdel -w $nick $(IN $+ N)
- hadd -m $nick $(OUT $+ N) 14,0[Resultat Wseen]4,0 $nick 1,0etait devenu4,0 $newnick 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. essaye 2,0[ !seen $newnick ]
- hadd -m $newnick $(IN $+ N) 14,0[Resultat Wseen]4,0 $newnick 1,0a été vu sur7,0 $chan 1,0depuis qu'il a changer de pseudo de4,0 $nick 1,0à4,0 $newnick 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
- }
- on !*:kick:#:hadd -m $knick $(OUT $+ #) 1,0il a été kick de7,0 $chan 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. par2,0 $nick 1,0[ raison ]4,0 $1-
- on *:text:!seen*:#:{
- if (%wseen) {
- if (%X == 1) set %D #
- if (%X == 2) set %D $nick
- if ($2 == $nick) { %msg %D 1,0ouvre tes yeux $nick tu fais2,0 !seen 1,0sur toi meme ou quoi?! :/ | return }
- if ($2 == $me) { %msg %D 1,0me voici :) | return }
- if ($2 ison #) {
- if ($hget($2,$(IN $+ N))) {
- %msg %D $hget($2,$(IN $+ N)) 1,0et il est actuelement sur7,0 #
- return
- }
- if ($hget($2,$(IN $+ #))) {
- %msg %D $hget($2,$(IN $+ #))) 1,0et il est actuelement sur7,0 #
- }
- else %msg %D 14,0[Resultat Wseen]1,0 je ne l'ai pas vu entré mais il est actuelement sur le chan
- ignore -u2 *!*@*
- return
- }
- else if ($hget($2,$(IN $+ N))) {
- %msg %D $hget($2,$(IN $+ N))
- }
- if ($hget($2,$(IN $+ #))) {
- %msg %D $hget($2,$(IN $+ #))
- }
- else if (!$hget($2,$(IN $+ N))) %msg %D 14,0[Resultat Wseen]1,0 je ne l'ai pas vu entrer sur7,0 #
- if ($hget($2,$(OUT $+ #))) {
- %msg %D $hget($2,$(OUT $+ #))
- }
- else if ($hget($2,$(OUT $+ N))) {
- %msg %D $hget($2,$(OUT $+ N))
- }
- if ($hget($2,$(OUT $+ Q))) %msg %D $hget($2,$(OUT $+ Q))
- ignore -u2 *!*@*
- ison $2
- set -u4 %C %D
- return
- }
- }
- raw 303:*: if (($2) && (%C)) %msg %C 1,0mais le pseudo4,0 $2 1,0est actuelement connecté au serveur
- on *:load: {
- introwseen
- }
menu * {
-
Wseen System V1.0
.Configurer:wseen
.Désinstaller:dwseen
}
alias wseen {
if (!$dialog(wseensystem)) dialog -ma wseensystem wseensystem
}
alias introwseen {
if (!$dialog(introwseen)) dialog -mo introwseen introwseen
}
alias dwseen {
if (!$dialog(dwseen)) dialog -ma dwseen dwseen
}
dialog wseensystem {
title "WorldDMT Seen System"
size -1 -1 250 70
option dbu
combo 1, 202 20 42 10, drop
check Status OFF, 2, 222 2 36 9, left
text Clic ici ->, 3, 199 3 23 8, left disable
box Mode d'envoie, 4, 183 12 64 22
text Mode, 5, 188 22 13 8, left
text WorldDMT Script, 6, 46 6 40 8, left disable
text ~V1.0~, 7, 157 13 20 7, center disable
box , 8, 42 1 50 15
text WorldDMT Seen System, 9, 97 13 60 8, left disable
box , 10, 87 8 95 15
text ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~, 11, 96 3 100 7, left disable
edit , 12, 42 24 70 10, center disable
box , 13, 93 1 105 8
icon 14, 2 1 39 60 , wseensystem/logo.gif,0, noborder large
text ~~~~~~~~~~, 15, 44 16 50 7, left disable
list 16, 42 35 205 31, size disable
check Notice nick en entrant, 17, 115 25 60 8
button Fermer, 18, 3 55 37 10, ok
}
dialog dwseen {
title Désinstaller Wseen System
size -1 -1 150 40
option dbu
box ATTENTION!!, 19, 1 2 148 37
text Cette action supprime l’addon Wseen System V1.0 voulez-vous désinstallé Wseen System ?, 20, 12 9 125 24, Center
button Oui, 22, 45 25 30 12, ok
button Non, 23, 75 25 30 12, cancel
}
dialog introwseen {
title WorldDMT Wseen System V1.0
size -1 -1 170 100
option dbu
list 24, 0 0 170 100, size disable
}
on *:dialog:introwseen:*:*: {
if ($devent == init) {
loadbuf -o $dname 24 wseensystem/intro
}
if ($devent == close) {
wseen
}
}
on *:dialog:dwseen:sclick:22: {
unset %mode %X %wseen %nn %msg %C %D
echo -ae - Désinstallation de l'Addon terminé avec succes
echo -ae - merci d'avoir utilisé Wseen System V1.0
echo -ae - WorldDMT
unload -rs wseensystem/wseen
}
on *:dialog:wseensystem:*:*:{
if ($devent == sclick) {
if ($did == 17) {
if ($did(17).state) {
set %nn 1
did -r $dname 16
did -ra $dname 12 Info Notice en entrant
loadbuf -o $dname 16 wseensystem/noticenickonjoin
}
else {
unset %nn
did -r $dname 16
did -ra $dname 12 Info Wseen System mode
if (%mode == 1) loadbuf -o $dname 16 wseensystem/noticenick
elseif (%mode == 2) loadbuf -o $dname 16 wseensystem/msgchan
elseif (%mode == 3) loadbuf -o $dname 16 wseensystem/msgnick
}
}
if ($did == 2) {
if ($did(2).state) {
set %wseen 1
did -ra $dname 2 Status ON
}
else {
unset %wseen
did -ra $dname 2 Status OFF
}
}
if ($did == 1) {
set %mode $did(1).sel
if ($did(1).sel == 1) {
set %msg /notice
set %X 2
did -r $dname 16
did -ra $dname 12 Info Wseen System mode
loadbuf -o $dname 16 wseensystem/noticenick
}
elseif ($did(1).sel == 2) {
set %msg /msg
set %X 1
did -r $dname 16
did -ra $dname 12 Info Wseen System mode
loadbuf -o $dname 16 wseensystem/msgchan
}
elseif ($did(1).sel == 3) {
set %msg /msg
set %X 2
did -r $dname 16
did -ra $dname 12 Info Wseen System mode
loadbuf -o $dname 16 wseensystem/msgnick
}
}
}
if ($devent == init) {
if (%nn) did -c $dname 17
if (%wseen) { did -c $dname 2 | did -ra $dname 2 Status ON }
if (%mode == 1) loadbuf -o $dname 16 wseensystem/noticenick
elseif (%mode == 2) loadbuf -o $dname 16 wseensystem/msgchan
elseif (%mode == 3) loadbuf -o $dname 16 wseensystem/msgnick
did -ra $dname 12 Info Wseen System mode
did -a $dname 1 Notice nick
did -a $dname 1 Msg chan
did -a $dname 1 Msg nick
did -c $dname 1 $iif(%mode,$ifmatch,0)
}
}
on !*:join:#:{
if (%nn) notice $nick Bienvenu4 $nick tapez 2!seen <pseudo> pour avoir des infos sur un pseudo que vous cherchez
if ($hget($nick,$(OUT $+ #))) hdel -w $nick $(OUT $+ #)
if ($hget($nick,$(OUT $+ Q))) hdel -w $nick $(OUT $+ Q)
if ($hget($nick,$(OUT $+ N))) hdel -w $nick $(OUT $+ N)
if ($hget($nick,$(IN $+ N))) hdel -w $nick $(IN $+ N)
hadd -m $nick $(IN $+ #) 14,0[Resultat Wseen]4,0 $nick 1,0a été vu sur7,0 $chan 1,0depuis sa derniere entrée le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
}
on !*:part:#:hadd -m $nick $(OUT $+ #) 1,0il est sorti de7,0 $chan 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
on !*:quit:hadd -m $nick $(OUT $+ Q) 1,0il a quitté le serveur le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. [ msg ]4,0 $1-
on !*:nick:{
if ($hget($newnick,$(OUT $+ N))) hdel -w $newnick $(OUT $+ N)
if ($hget($nick,$(IN $+ N))) hdel -w $nick $(IN $+ N)
hadd -m $nick $(OUT $+ N) 14,0[Resultat Wseen]4,0 $nick 1,0etait devenu4,0 $newnick 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. essaye 2,0[ !seen $newnick ]
hadd -m $newnick $(IN $+ N) 14,0[Resultat Wseen]4,0 $newnick 1,0a été vu sur7,0 $chan 1,0depuis qu'il a changer de pseudo de4,0 $nick 1,0à4,0 $newnick 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec.
}
on !*:kick:#:hadd -m $knick $(OUT $+ #) 1,0il a été kick de7,0 $chan 1,0le $date à $time(HH) $+ h $time(mm) $+ min. et $time(ss) $+ sec. par2,0 $nick 1,0[ raison ]4,0 $1-
on *:text:!seen*:#:{
if (%wseen) {
if (%X == 1) set %D #
if (%X == 2) set %D $nick
if ($2 == $nick) { %msg %D 1,0ouvre tes yeux $nick tu fais2,0 !seen 1,0sur toi meme ou quoi?! :/ | return }
if ($2 == $me) { %msg %D 1,0me voici :) | return }
if ($2 ison #) {
if ($hget($2,$(IN $+ N))) {
%msg %D $hget($2,$(IN $+ N)) 1,0et il est actuelement sur7,0 #
return
}
if ($hget($2,$(IN $+ #))) {
%msg %D $hget($2,$(IN $+ #))) 1,0et il est actuelement sur7,0 #
}
else %msg %D 14,0[Resultat Wseen]1,0 je ne l'ai pas vu entré mais il est actuelement sur le chan
ignore -u2 *!*@*
return
}
else if ($hget($2,$(IN $+ N))) {
%msg %D $hget($2,$(IN $+ N))
}
if ($hget($2,$(IN $+ #))) {
%msg %D $hget($2,$(IN $+ #))
}
else if (!$hget($2,$(IN $+ N))) %msg %D 14,0[Resultat Wseen]1,0 je ne l'ai pas vu entrer sur7,0 #
if ($hget($2,$(OUT $+ #))) {
%msg %D $hget($2,$(OUT $+ #))
}
else if ($hget($2,$(OUT $+ N))) {
%msg %D $hget($2,$(OUT $+ N))
}
if ($hget($2,$(OUT $+ Q))) %msg %D $hget($2,$(OUT $+ Q))
ignore -u2 *!*@*
ison $2
set -u4 %C %D
return
}
}
raw 303:*: if (($2) && (%C)) %msg %C 1,0mais le pseudo4,0 $2 1,0est actuelement connecté au serveur
on *:load: {
introwseen
}
Conclusion
Vous avez un dossier qui contient tout ce qu’il faut pour l’addon
Téléchargez le zip, mettez le dossier dans votre script IRC ensuite tapez dans votre mIRC /load -rs wseensystem/wseen
NB : "wseensystem/wseen" sans .txt ou .mrc ou autre comme c’est écrit donc copiez et collez c'est mieux :)
merci
Historique
- 17 juillet 2008 16:47:30 :
- j'avais oublié la notice dans la description
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Eggdrop > Seen [ par fabienfsf ]
Bonjour,J'ai installé mon eggdrop sur mon shell et il a bien join les channels qui faut mais le poblème est au "!seen" le !seen fonctionne q
|
Derniers Blogs
COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
RE : COULEUR TEXTRE : COULEUR TEXT par WorldDMT
Cliquez pour lire la suite par WorldDMT
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|