Espion en echo et sur salon have fun

Commenter

Contenu du snippet

Voila c'est ma 2eme version de mon spy bon c'est pas du top en socket etc ba voila je pose sa pour les boulets ou autres :]

Source / Exemple : 


;##################
;#Scripting: Espion(Spy).              
;#
;#Auteur: /* devorZ */              
;#
;#Année: 2008               
;#
;#Ouverture : /Espion    
;#
;##################

alias espion dialog -m spy spy 
dialog Spy {
  title "- Espion - /Espion"
  size -1 -1 107 63
  option dbu
  button "Fermer", 10, 3 51 101 11, flat ok cancel
  text "Salon Log :", 1, 3 2 27 8
  text "Salon a Espioner :", 2, 55 2 44 8
  edit "", 3, 3 10 50 10
  edit "", 5, 55 10 50 10
  text "Afficher :", 6, 3 23 25 7
  check "", 7, 32 22 6 10
  check "", 8, 69 22 7 10
  button "Stoper Espion", 12, 3 41 101 9, flat
  button "Espioner !", 4, 3 32 101 9, flat
  text "Salon log", 9, 40 23 25 8
  text "Echo", 11, 77 23 13 8
}
on *:Dialog:spy:*:*:{
  if ($devent == sclick) {
    if ($did = 4) { set %state on | echo -a Espion Activer ( Spy ) }
    if ($did = 12) { unset %state  | echo -a Espion Desactiver ( Spy ) }
    if ($did(7).state == 1) { set %espion.salon ON | unset %espion.echo }
    else { unset %echo.salon }
    if ($did(8).state == 1) { set %Espion.echo ON | unset %espion.salon }
    else { unset %espion.echo }
  }
  Elseif ($devent == init) {
    if (%espion.salon == ON) { did -c spy 7 }
    if (%espion.echo == ON) { did -c spy 8 }
    if %logr { did -a spy 3 %logr }
    if %spr { did -a spy 5 %spr }
  }
  Elseif ($devent == edit) {
    if ($did = 3) { set %logr $did(3) }
    if ($did = 5) { set %spr $did(5) }
  }
}
on *:Join:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 10Join14 )1 14 » $+ $nick $+ 14»  $chan 14(2 $+ $Address($nick,2) $+ 14) $nick(#,0) Users | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 10Join14 )1 14 » $+ $nick $+ 14»  $chan 14(2 $+ $Address($nick,2) $+ 14) $nick(#,0) Users | halt }
}
on *:PART:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 5Part14 )1 14 » $+ $nick $+ 14»  de  $chan 14(2 $+ $Address($nick,2) $+ 14) $+ 14(1 $+ $1- $+ 14)1 $nick(#,0) User | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 5Part14 )1 14 » $+ $nick $+ 14»  de  $chan 14(2 $+ $Address($nick,2) $+ 14) $+ 14(1 $+ $1- $+ 14)1 $nick(#,0) User | halt }
}
on *:KICk:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 4Kick14 ) 14 » $+ $nick $+ 14» 4KICK  4 $knick (  $+  $1- $+ ) | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 4Kick14 ) 14 » $+ $nick $+ 14» 4KICK 4 $knick (  $+  $1- $+ ) | halt }
}
on *:text:*:%spr:{
  if (%state == on) && (%espion.salon == on) && ($nick isop $chan) && ($nick !isvo $chan) { msg %logr 14( Spy 14)  14»4@ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick !isop $chan) && ($nick isvo $chan) { msg %logr 14( Spy 14) 14»3+ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick isop $chan) && ($nick isvo $chan) { msg %logr 14( Spy 14) 14»4@3+ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick !isop $chan) { msg %logr 14( Spy 14) 14»1 $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick isop $chan) && ($nick !isvo $chan) { echo -a 14( Spy 14)  14»4@ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick !isop $chan) && ($nick isvo $chan) { echo -a 14( Spy 14) 14»3+ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick isop $chan) && ($nick isvo $chan) { echo -a 14( Spy 14) 14»4@3+ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick !isop $chan) { echo -a 14( Spy 14) 14»1 $+ $nick $+ 14» $1- | halt }
}
on ^1:NICK:{
  if (%state == on) && (%espion.salon == on) { msg %logr  14(1 7Nick 14)14 » $+ $nick $+ 14» à changer de Pseudo en : $newnick $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a  14(1 7Nick 14)14 » $+ $nick $+ 14» à changer de Pseudo en : $newnick $+ . | halt }
}
ON ^1:QUIT:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14( 2Quit 14) » $+ $nick $+ 14» $1- $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14( 2Quit 14) » $+ $nick $+ 14» $1- $+ . | halt }
}
ON ^*:ACTION:*:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 6Action 14)1 4 14» $+ $nick $+ 14» 6/me $1- $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 6Action 14)1 4 14» $+ $nick $+ 14» 6/me $1- $+ . | halt }
}
ON ^*:RAWMODE:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 12Mode14 )1  $nick 1met le mode $replacecs( $1,+b,+b,-b,-b,+v,3+v3,-v,3-v,+o,4+o4,-o,4-o12,+h,12+h12,-h,12-h3,v,3v4,o,4o,b,b12,h,12h)   $replace($2-,$me, $+ $me $+ 1) | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 12Mode14 )1  $nick 1met le mode $replacecs( $1,+b,+b,-b,-b,+v,3+v3,-v,3-v,+o,4+o4,-o,4-o12,+h,12+h12,-h,12-h3,v,3v4,o,4o,b,b12,h,12h)   $replace($2-,$me, $+ $me $+ 1) | halt }
}

Conclusion :


.

A voir également

S'inscrire maintenant

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.

Du même auteur (devorZ)