WSEENSYSTEM V1.0

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
}