Ircop scanner simple

Commenter

Contenu du snippet

Alt+R

Source / Exemple : 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;---------IrcOp Scanner par Grais (Espion)-----------;;;;;
;;;;;;--------------Utilisation: /ircop-------------------;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias ircop { if (!$dialog(ircop)) { dialog -m ircop ircop } }
dialog ircop {
  title "Detecteur d'IrcOps EspionScripT       {/ircop}"
  size -1 -1 170 160
  option dbu
  list 1, 8 16 154 50, size
  box "Sur le serveur", 2, 4 2 162 66
  list 3, 8 83 154 50, size
  box "Sur le salon scanné", 4, 4 73 162 66
  combo 5, 16 144 60 50, size drop
  button "&Fermer", 6, 104 144 37 12, ok
}
on *:dialog:ircop:*:*:{
  if ($devent == init) {
    var %i = 1
    while (%i <= $chan(0)) {
      set -u6 %ircopchan %ircopchan $+ , $+ $chan(%i)
      inc %i
    }
    didtok $dname 5 44 %ircopchan
    .enable #ircop
    .who 0 o
  }
  if ($devent == sclick) {
    if ($did == 5) {
      did -r $dname 3
      set -u6 %scir $did(5,ircop).seltext
      .enable #ircop2
      .who 0 o
    }
  }
  if ($devent == dclick) {
    if ($did = 1) || ($did = 3) { query $did(did).seltext }
  }
}
#ircop off
raw 315:*: .disable #ircop | halt
raw 352:*: if (* isin $7) did -a ircop 1 $6 | halt 
#ircop end
#ircop2 off
raw 315:*: .disable #ircop2 | halt
raw 352:*: if (* isin $7) && ($6 ison %scir) did -a ircop 3 $6 | halt
#ircop2 end

Conclusion :


utilisation: /ircop

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 (cs_Grais)