;***********************************************
; Menu Eva V 2.6 (14/06/2019)
;
;***********************************************

alias readlang return $readini(Eva\language.ini,n,$$1,$$2)

;#### Fonction retournant alatoirement des raisons de kicks
alias kick_off {
  var %read = $readlang(fr,$$1)
  return $gettok(%read,$rand(1,$numtok(%read,124)),124)
}

Menu Nicklist,channel,query {
  .-
  $iif($network == Discussionner,Eva (v 2.6) - Menu des Geo )
  ..Ajouter / Supprimer une sanction
  ;Kill
  ...$iif($menu == nicklist,Dconnexion d'un user (kill)  ):/msg Eva KILL $$1 $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Dconnexion d'un user (kill)  ):/msg Eva KILL $$?="Entrer le pseudo :" $$?="Entrer la raison :"
  ...-
  ;gline 30s
  ...$iif($menu == nicklist,Ajouter un gline (30s) ):/msg Eva GLINE $$1 30s : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (30s)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 30s : $+ $$?="Entrer la raison :"
  ;gline 1h
  ...$iif($menu == nicklist,Ajouter un gline (1h) ):/msg Eva GLINE $$1 1h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (1h)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 1h : $+ $$?="Entrer la raison :"
  ;gline 4h
  ...$iif($menu == nicklist,Ajouter un gline (4h) ):/msg Eva GLINE $$1 4h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (4h)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 4h : $+ $$?="Entrer la raison :"
  ;gline 12h
  ...$iif($menu == nicklist,Ajouter un gline (12h) ):/msg Eva GLINE $$1 12h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (12h)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 12h : $+ $$?="Entrer la raison :"
  ;gline 1d
  ...$iif($menu == nicklist,Ajouter un gline (1d) ):/msg Eva GLINE $$1 1d : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (1d)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 1d : $+ $$?="Entrer la raison :"
  ;gline 2d
  ...$iif($menu == nicklist,Ajouter un gline (2d) ):/msg Eva GLINE $$1 2d : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline (2d)  ):/msg Eva GLINE $$?="Entrer le pseudo :" 2d : $+ $$?="Entrer la raison :"
  ;UNGLINE
  ...$iif($menu == channel || $menu == query || $menu == nicklist ,Supprimer un gline avec le n  ):/msg Eva UNGLINE $$?="N du gline :"
  ...-
  ;glineident
  ...$iif($menu == nicklist,Ajouter un gline-ident ):/msg Eva GLINEIDENT $$?="Entrer l'ident: (exemple: .ID995478 )" $$?="Entrer la dure en secondes: (exemple: 86400 pour 24h)" : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un gline-ident ):/msg Eva GLINEIDENT $$?="Entrer l'ident: (exemple: .ID995478 )" $$?="Entrer la dure en secondes: (exemple: 86400 pour 24h)" : $+ $$?="Entrer la raison :"
  ;UNGLINEIDENT
  ...$iif($menu == channel || $menu == query || $menu == nicklist ,Supprimer un gline-ident avec le n  ):/msg Eva UNGLINEIDENT $$?="N du gline :"
  ...-
  ;shun 30s
  ...$iif($menu == nicklist,Ajouter un shun (30s) ):/msg Eva SHUN $$1 30s : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un shun (30s)  ):/msg Eva SHUN $$?="Entrer le pseudo :" 30s : $+ $$?="Entrer la raison :"
  ;shun 1h
  ...$iif($menu == nicklist,Ajouter un shun (1h) ):/msg Eva SHUN $$1 1h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un shun (1h)  ):/msg Eva SHUN $$?="Entrer le pseudo :" 1h : $+ $$?="Entrer la raison :"
  ;shun 4h
  ...$iif($menu == nicklist,Ajouter un shun (4h) ):/msg Eva SHUN $$1 4h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un shun (4h)  ):/msg Eva SHUN $$?="Entrer le pseudo :" 4h : $+ $$?="Entrer la raison :"
  ;shun 12h
  ...$iif($menu == nicklist,Ajouter un shun (12h) ):/msg Eva SHUN $$1 12h : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un shun (12h)  ):/msg Eva SHUN $$?="Entrer le pseudo :" 12h : $+ $$?="Entrer la raison :"
  ;shun 1d
  ...$iif($menu == nicklist,Ajouter un shun (1d) ):/msg Eva SHUN $$1 1d : $+ $$?="Entrer la raison"
  ...$iif($menu == channel || $menu == query ,Ajouter un shun (1d)  ):/msg Eva SHUN $$?="Entrer le pseudo :" 1d : $+ $$?="Entrer la raison :"
  ;UNSHUN
  ...$iif($menu == channel || $menu == query || $menu == nicklist ,Supprimer un shun avec le n  ):/msg Eva UNSHUN $$?="N du shun :"
  .-
  ;Ajouter un gline manuel
  .==>  Ajouter un Gline avec motif prdfini <==
  ..$iif($menu == nicklist,Pour du flood ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-flood)
  ..$iif($menu == channel || $menu == query ,Pour du flood ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-flood)

  ..$iif($menu == nicklist,Pour majuscules ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-majuscules)
  ..$iif($menu == channel || $menu == query ,Pour des majuscules ? ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-majuscules)

  ..$iif($menu == nicklist,Gnral - Comportement inadapt):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-general)
  ..$iif($menu == channel || $menu == query ,Gnral - Comportement inadapt):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-general)

  ..$iif($menu == nicklist,Comportement  revoir ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-comportement)
  ..$iif($menu == channel || $menu == query ,Comportement  revoir ?   ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-comportement)

  ..$iif($menu == nicklist,Contournement ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-contournement)
  ..$iif($menu == channel || $menu == query ,Contournement   ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-contournement)

  ..$iif($menu == nicklist,Pour insulte ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-insultes)
  ..$iif($menu == channel || $menu == query ,Pour insulte ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-insultes)

  ..$iif($menu == nicklist,Incitation - Incitation ou demande interdite ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-incitation
  ..$iif($menu == channel || $menu == query ,Incitation - Incitation ou demande interdite ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-incitation)

  ..$iif($menu == nicklist,Sexe 1 - Pas sur YouPorn ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sexe)
  ..$iif($menu == channel || $menu == query ,Sexe 1 - Pas sur YouPorn ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sexe)

  ..$iif($menu == nicklist,Sexe 2 - Pas sur un site porno ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sexe2)
  ..$iif($menu == channel || $menu == query ,Sexe 2 - Pas sur un site porno ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sexe2)

  ..$iif($menu == nicklist,Pour pseudo incorrect ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-pseudo)
  ..$iif($menu == channel || $menu == query ,Pour pseudo incorrect ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-pseudo)

  ..$iif($menu == nicklist,Pour pseudo sexe ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-pseudo-sexe)
  ..$iif($menu == channel || $menu == query ,Pour pseudo sexe ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-pseudo-sexe)

  ..$iif($menu == nicklist,Pour faux sexe ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-faux-sexe)
  ..$iif($menu == channel || $menu == query ,Pour faux sexe ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-faux-sexe)

  ..$iif($menu == nicklist,Pour infos persos en salon ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-infos-persos)
  ..$iif($menu == channel || $menu == query ,Pour infos persos en salon ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-infos-persos)

  ..$iif($menu == nicklist,Pour spam ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-spam)
  ..$iif($menu == channel || $menu == query ,Pour spam ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-spam)

  ..$iif($menu == nicklist,Pour faux profil ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-profil)
  ..$iif($menu == channel || $menu == query ,Pour faux profil ? ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-profil)

  ..$iif($menu == nicklist,Pour clones ?):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-clonage)
  ..$iif($menu == channel || $menu == query ,Pour clones ?):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-clonage)

  ..$iif($menu == nicklist,Pour demande interdite de PV ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-demandepv)
  ..$iif($menu == channel || $menu == query ,Pour demande interdite de PV ?  ):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-demandepv)

  ..$iif($menu == nicklist,Pour sujet interdit ? ):/msg Eva GLINE $$1 $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sujetrefuse)
  ..$iif($menu == channel || $menu == query, Pour sujet interdit ?):/msg Eva GLINE $$?="Entrer le pseudo :" $$?="Entrer le temps : (15s , 1h , 4h , 12h , 1d , 2d)" : $+ $kick_off(c-sujetrefuse)


  .-
  ..Aide :/msg Eva help
  ..$iif($menu == nicklist || $menu == query,Whois $$1 ):/msg Eva WHOIS $$1
  ..$iif($menu == channel ,Whois un utilisateur ):/msg Eva WHOIS $$?="Entrer le pseudo :"
  ..Voir la liste des Geo:/msg Eva LIST
  ..Voir le log des Glines:/msg Eva GLINELIST
  ..Voir le log des Glines d'un geo:/msg Eva GLINELIST $$?="Entrer le pseudo :"
  ..Voir le log des Glines-idents:/msg Eva GLINEIDENTLIST
  ..Voir le log des Kills:/msg Eva KillLIST
  ..Voir le log des Shun:/msg Eva SHUNLIST
  .-
  .Editer le fichier des motifs://run $mircdir $+ /Eva/language.ini
}


;Whois Eva 
on ^*:notice:*:*:{
  if ( ( $nick == Eva  && $1 == [whois ) && $2 == 001] || $2 == 002] || $2 == 003] || $2 == 004] || $2 == 005] || $2 == 006] || $2 == 007] || $2 == 008] ) {

    if ( $2 == 001] ) {
      if (*|???H?? iswm $7) {
        echo -at 1Dbut du whois de Eva pour 12 $+ $7
      }
      else if (*|???F?? iswm $7) {
        echo -at 1Dbut du whois de Eva pour 13 $+ $7
      }
      else {
        echo -at 1Dbut du whois de Eva pour $3-
      }
    }

    if ( $2 == 005] ) {
      if ( $4 == $server ) {
        echo -at 1Connect sur $4-
      }
      else if ( $6 == * ) {
        echo -at 1Ident: $4
        echo -at 1RealName: $7-
        echo -at 1Host crypt: *@ $+ $5
      }
      else {
        if ( $4 == :is && $6 == modes ) {
          echo -at 1Modes: $7-
        }
        else if ( $4 == :is && $5 == connecting ) {
          echo -at 1Host dcrypt: $7
          echo -at 1IP dcrypt: $8

        }
        else if ( $left($4,2) == :# ) {
          echo -at 1Prsent dans les salons $4-
        }
        else {
          echo -at $4-
        }
      }
    }

    if ( $2 == 003] ) {
      echo -at $3-
    }
    if ( $2 == 004] ) {
      echo -at $3-
    }
    if ( $2 == 006] ) {
      ; echo -at $3-
    }

    if ( $2 == 008] ) {
      echo -at 1 $+ $3-
    }

    if ($window(@WhoisEva).state == $null) { window -kn @WhoisEva } 
    echo 1 @WhoisEva $date $timestamp $3-
    var %date = $asctime(dd-mm-yy) 
    ;write $mircdir $+ EvaLogs\ $+ %date $+ .log.txt $date $timestamp $3-

    halt
  }

} 

;***********************************************
; Fin de Eva
;***********************************************

;***********************************************
; Suite Eva pour Administrateurs - Version 1.2 (13/06/2019)
; by Discussionner
;***********************************************
Menu Nicklist,channel,query {
  .-
  $iif($network == Discussionner && o isin $usermode,Eva Administator (v 1.2) - Menu des Administrateurs )
  .Ajouter un Geo:/msg Eva ADD $$?="Entrer le pseudo :"
  .Supprimer un Geo:/msg Eva DEL $$?="Entrer le pseudo :"
  .Voir la liste des Geo:/msg Eva LIST
  .-
  .BLACKLIST (Autogline  la connexion)
  ..ADD [user@ip] [raison] - Ajouter une blackliste:/msg Eva BLACKLIST ADD $$?="Entrer le user@ip :" $$?="Entrer la raison :"
  ..DEL [user@ip] - Supprimer une blackliste:/msg Eva BLACKLIST DEL $$?="Entrer le user@ip :"
  ..LIST - Voir la liste:/msg Eva BLACKLIST LIST
  .GLINENICK (Autogline  la connexion)
  ..ADD [mask-nick] [dure-du-gline] - Surveiller une connexion:/msg Eva GLINENICK ADD $$?="Entrer le mask-nick :" $$?="Entrer la dure du gline :"
  ..DEL [mask-nick] - Supprimer un nick:/msg Eva GLINENICK DEL $$?="Entrer le pseudo :"
  ..LIST - Voir la liste:/msg Eva GLINENICK LIST
  .USERFORBID (Autogline  la connexion)
  ..ADD - Surveiller une connexion:/msg Eva USERFORBID ADD $$?="Tapez un ident/username  surveiller - (Pour aucun tapez ce caractre: * )" $$?="Tapez une IP  surveiller - (Pour aucun tapez ce caractre: * )" $$?="Tapez un age minimum  ordonner pour cette connexion - (Pour aucun tapez ce caractre: * )" $$?="Tapez un age maximum  ordonner pour cette connexion - (Pour aucun tapez ce caractre: * )" $$?="Tapez un sexe interdit (sex-forbid) pour cette connexion entre H ou F - (Pour aucun tapez ce caractre: * )"

  ..DEL [id] - Supprimer un id:/msg Eva USERFORBID DEL $$?="ID  supprimer :"
  ..LIST - Voir la liste:/msg Eva USERFORBID LIST
  .-
  .Aide:/msg Eva HELP
}
;***********************************************
; Fin de Eva pour les administrateurs
;***********************************************