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

[coders-irc_Bot]

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~ 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
}

}