Wseensystem v1.0

Télécharger le projet
Commenter

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 / Exemple : 


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
Télécharger le projet

Codes Sources

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