Spy ( espion de salon ) by w4x en dialog ( menu ) et en input ( .spy .log )

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 691 fois - Téléchargée 16 fois

Contenu du snippet

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~ Espion By w4x ~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Commandes Inputs

;Pour lancer le Spy .spy #lesalon pour definir le chan log .chanlog #lesalon
;Obtenir les stats spy .statlog Voir le topic du chan spy .topicspy
;et /spy pour ouvrir le menu :]

alias spy dialog -m spy spy
dialog Spy {
title "- Espion - /Spy"
size -1 -1 108 182
option dbu
box "Salon des logs", 1, 4 92 50 44
box "Salon a Spy", 2, 55 92 50 44
button "Salon des logs", 5, 7 101 44 12
button "Stoper", 6, 7 118 44 12
button "Ajouter", 7, 58 101 44 12
button "Stoper", 8, 58 118 44 12
box "Events Activer/desactiver", 9, 2 3 104 75
button "Fermer", 10, 4 163 33 8, flat ok cancel
button "Tous Stoper", 3, 37 138 37 12
check "Activer Op", 4, 8 13 39 9
box "Espion - /Spy", 12, 2 80 105 96
check "Activer Deop", 16, 8 23 43 8
check "Activer Kick", 17, 8 33 40 7
check "Activer Ban", 23, 8 41 38 7
check "Activer Join", 24, 8 50 39 8
check "Activer Part", 25, 8 58 40 8
check "Activer Mode", 26, 52 12 42 7
check "Activer texte", 27, 52 21 45 8
check "Activer Unban", 29, 52 30 46 8
check "Activer Voice", 34, 52 39 43 8
check "Activer Devoice", 35, 52 48 47 7
check "Activer Quit", 36, 52 57 43 8
text "Auteur: w4x", 13, 71 163 33 8
check "Activer Nick", 14, 8 67 40 8
check "Activer Action", 15, 52 65 45 9
}
on *:Dialog:spy:sclick:*:{
if ($did = 3) { /unset %spr | /unset %logr | unset %chdeops | unset %chops | unset %chquit | unset %chpart | unset %chban | unset %chkick | unset %chvoice | unset %chdevoice | unset %chtext | unset %chaction | echo -a Le Spy à été totalement désactiver. }
if ($did = 5) { /set %logr $$?="Salon des logs" | echo -a Salon des logs : %logr }
if ($did = 6) { unset %logr | echo -a Supression du chan de logs : %logr }
if ($did = 7) { /set %spr $$?="Salon a Espionner" | echo -a Salon à espionner : %spr }
if ($did = 8) { unset %spr | echo -a Supression du chan Spy : %spr }
if ($did(4).state == 1) { set %chops ON }
else { unset %chops }
if ($did(16).state == 1) { set %chdeops ON }
else { unset %chdeops }
if ($did(17).state == 1) { set %chkick ON }
else { unset %chkick }
if ($did(23).state == 1) { set %chban ON }
else { unset %chban }
if ($did(24).state == 1) { set %chjoin ON }
else { unset %chjoin }
if ($did(25).state == 1) { set %chpart ON }
else { unset %chpart }
if ($did(26).state == 1) { set %chmode ON }
else { unset %chmode }
if ($did(27).state == 1) { set %chtext ON }
else { unset %chtext }
if ($did(29).state == 1) { set %chunban ON }
else { unset %chunban }
if ($did(34).state == 1) { set %chvoice ON }
else { unset %chvoice }
if ($did(35).state == 1) { set %chdevoice ON }
else { unset %chdevoice }
if ($did(36).state == 1) { set %chquit ON }
else { unset %chquit }
if ($did(15).state == 1) { set %chaction ON }
else { unset %chaction }
if ($did(14).state == 1) { set %chnick ON }
else { unset %chnick }
}
on 1:DIALOG:spy:init:*: {
if (%chtext == ON) { did -c spy 27 }
if (%chjoin == ON) { did -c spy 24 }
if (%chaction == ON) { did -c spy 15 }
if (%chpart == ON) { did -c spy 25 }
if (%chquit == ON) { did -c spy 36 }
if (%chnick == ON) { did -c spy 14 }
if (%chkick == ON) { did -c spy 17 }
if (%chops == ON) { did -c spy 4 }
if (%chdeops == ON) { did -c spy 16 }
if (%chvoice == ON) { did -c spy 34 }
if (%chdevoice == ON) { did -c spy 35 }
if (%chban == ON) { did -c spy 23 }
if (%chunban == ON) { did -c spy 29 }
if (%chmode == ON) { did -c spy 26 }
}
on *:DEOP:%spr: if (%chdeops == on) { msg %logr 4[1 Deop 4]1 $Nick 4Deop 1(-o)  $opnick $+ . | halt }
on *:OP:%spr: if (%chops == on) { msg %logr 4[1 Op 4]1 $nick 4Op1 (+o) $opnick $+ . | halt }
on *:MODE:%spr: if (%chmode == on) { msg %logr 4[1 Mode 4]1 $nick met le mode4 $1- $+ . | halt }
on *:JOIN:%spr: if (%chjoin == on) { msg %logr 4 [1 Join 4]1 $nick join  $chan 14(4 $address($nick,2) 14) | halt }
on *:PART:%spr: if (%chpart == on) { msg %logr 4[1 Part 4]1 $nick part  $chan 14(4 $Address($nick,2) 14) 1: $1- | halt }
on *:KICk:%spr: if (%chkick == on) { msg %logr 4[1 Kick 4]1 $nick KICK1  $knick 1 $+ $1- | halt }
on *:VOICE:%spr: if (%chvoice == on) { msg %logr 4[1 Voice 4]1 $nick 3voice1 (+v)  $vnick $+ . | halt }
on *:DEVOICE:%spr: if (%chdevoice == on) { msg %logr 4[1 Devoice 4]1 $nick 3devoice1 (-v)  $nick $+ . | halt }
on *:text:*:%spr:{
if (%chtext == on) && ($nick isop $chan) && ($nick !isvo $chan) { msg %logr 4<@1 $+ $nick $+ 4> $1- | halt }
if (%chtext == on) && ($nick !isop $chan) && ($nick isvo $chan) { msg %logr 4<3+1 $+ $nick $+ 4> $1- | halt }
if (%chtext == on) && ($nick isop $chan) && ($nick isvo $chan) { msg %logr 4<@3+1 $+ $nick $+ 4> $1- | halt }
if (%chtext == on) && ($nick !isop $chan) { msg %logr 4<1 $+ $nick $+ 4> $1- | halt }
}
on ^*:NICK: if (%chnick == on) { msg %logr 4<1 $nick 4>1 a changé son nick en :4 $newnick $+ . | halt }
ON *:QUIT: if (%chquit == on) { msg %logr 2 Quit $nick : $1- $+ . | halt }
ON ^*:ACTION:*:%spr: if (%chaction == on) { msg %logr 4»1 $nick 4»1 (6/me1)1. $1- $+ . | halt }
on *:BAN:%spr: if (%chban == on) { msg %logr 4[1 Ban 4]1 $nick 4Ban1 (+b) :4 $banmask $+ . | halt }
on *:UNBAN:%spr: if (%chunban == on) { msg %logr 4[1 Unban 4]1 $nick 4Déban1 (-b) :4 $banmask $+ . | halt }
On *:INPUT:#:{
if (.spy isin $strip($1)) {
set %spr $strip($2) | echo -a Salon a espionné : %spr }
if (.log isin $strip($1)) {
set %logr $strip($2) | echo -a Salon de Log: $strip($2) }
if (.stop isin $strip($1)) {
unset %logr $strip($2) | /unset %spr | unset %chdeops | unset %chops | unset %chquit | unset %chpart | unset %chban | unset %chkick | unset %chvoice | unset %chdevoice | unset %chtext | unset %chaction | echo -a Spy: Stoper }
if (.statspy isin $strip($1)) {
echo -a Salon à espionner: %spr 
echo -a Salon de Log: %logr 
}
if (.topicspy isin $strip($1)) {
timer 1 1 say %logr Topic sur %spr : $chan(%spr).topic
}

}

Source / Exemple :


.

Conclusion :


voila mon spy :') merci de pas rip ! ou de me demander avant sur orange le chan mIRC

A voir également

Ajouter un commentaire Commentaires
une genre relaye ou poupée linkeuse ? perso je ne vois pas l intreret avec les script de nos jours /:
Messages postés
99
Date d'inscription
mardi 22 août 2006
Statut
Membre
Dernière intervention
9 septembre 2014

Javais déja réalisé le script pour un serveur a l'autre, c'Est loin d'etre complex, je le retrouve dans mon HDD je te la poste
Messages postés
8
Date d'inscription
vendredi 1 juin 2007
Statut
Membre
Dernière intervention
6 octobre 2008

le code peut servir comme le precedent qui lui ressemble beaucoup et je reitere mes commentaire a savoir que ca pourrais servir en allant plus loin.rapporter les log de ses d un server a l autre paremetrer des choses qu on veut filtrer ou pouvoir choisir des personne a ignorer dans le spy.ca pourrais etre fort interessant.pouvoir surveiller tous ses salon d un server sur un seul une sorte de reve pour les accro au multi server
Messages postés
217
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
13 février 2012

Corrige un peut tes codes stp. Je trouve l'idée pas mal intéréssante. Pratique pour savoir ce qui c'est passé sur un salon pendant un away.

et essaye de précisé ceci:

;Commandes Inputs

;Pour lancer le Spy .spy #lesalon pour definir le chan log .chanlog #lesalon
;Obtenir les stats spy .statlog Voir le topic du chan spy .topicspy
;et /spy pour ouvrir le menu :]

précise si sa se fait sur le salon, dans le bot ou allieur

Bonne continuation.
Je te met un 5/10 la source ne ma pas l'air fiable
Messages postés
149
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
25 janvier 2011

Rip ou pas?
Quel est l'utilité de ton code? pour voir ce qu'il se passe sur un salon autant se rendre dessus, ça fait moins boulet en tout cas. Pense a améliorer tes codes, j'ai jeté un coup d'oeil aux autres, sa manque vraiment d'originalité, vu le nombre de source du même genre sur le site, on ne peux pas pardonner qu'il y en ai encore de si mal scripter, surtout qu'on répête toujours les mêmes chose. Je note 1 ça ne mérite vraiment pas plus. Essaye de trouver de l'originalité dans tes prochaines source.
De plus regrouppe tes On Dialog (
on *:dialog:....
if $devent == ...
if $devent == ...
Sinon je rejoint ANATOLEI
Afficher les 8 commentaires

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.