COMMANDES EVA EN DIALOG

ON 1:LOAD:{ 
  echo -a Le chargement des commandes eva a réussi.
  set %eva $$?="Entrez Le nom du bot"
  hmake table 1000
  hashi
}
ON 1:UNLOAD:{ 
  echo -a Tu as bien enlevé les commandes eva.
  unset %eva 
  hfree table
}
on *:start:{
  hmake table 1000
  hload table eva.dou
}
on *:exit:{
  hsave -o table eva.dou
}
alias -l ut return ----- Niveau $1 -----
alias Eva { dialog -m eva eva }
alias -l ad { return hadd table }
alias hashi {
  $ad 2 Pseudo
  $ad 4 Mot de passe
  $ad 6 Nom de la commande
  $ad 7 Pseudo
  $ad 12 Pseudo
  $ad 14 Salon.Pseudo
  $ad 15 Salon
  $ad 16 Salon
  $ad 17 Salon
  $ad 18 Salon.Pseudo
  $ad 19 Salon
  $ad 20 Salon.Pseudo
  $ad 21 Salon
  $ad 22 Salon.Pseudo
  $ad 23 Salon
  $ad 24 Salon.Pseudo
  $ad 25 Salon
  $ad 26 Salon.Pseudo
  $ad 27 Salon
  $ad 28 Pseudo.Motif
  $ad 30 Message
  $ad 31 Salon.Pseudo
  $ad 32 Salon
  $ad 33 Salon.Pseudo
  $ad 35 Salon.Pseudo.Motif
  $ad 36 Salon
  $ad 37 Salon.Pseudo.Motif
  $ad 38 Salon
  $ad 39 Pseudo.Motif
  $ad 40 Pseudo.Motif
  $ad 42 Salon.Mode(s)
  $ad 43 Nouveau Mot de Pass
  $ad 44 Salon.Pseudo.Motif
  $ad 45 Salon.Pseudo
  $ad 46 Salon
  $ad 47 Salon.Pseudo
  $ad 48 Salon
  $ad 49 Salon.Pseudo
  $ad 50 Salon
  $ad 51 Topic
  $ad 52 Mask
  $ad 53 ident@host
  $ad 54 Salon.Pseudo
  $ad 55 Salon
  $ad 56 Message
  $ad 58 Salon
  $ad 59 Salon
  $ad 65 Salon
  $ad 69 Salon
  $ad 72 Notice
  $ad 73 Salon
  $ad 75 Salon.Message
  $ad 78 Salon.Pseudo
  $ad 79 Pseudo Actuelle.Nouveau Pseudo
  $ad 80 Salon.Pseudo
  $ad 82 Salon
  $ad 84 Mot de Passe.Level
  $ad 85 Salon
  $ad 86 Version
  $ad 87 Hostname
  $ad 88 Ident
  $ad 89 Pseudo
  $ad 90 Realname
  $ad 91 Salon
  $ad 92 Mask
  $ad 94 Salon
  $ad 103 Pseudo
  $ad 104 Salon
  $ad 105 Version
  $ad 106 Hostname
  $ad 107 Ident
  $ad 108 Pseudo
  $ad 109 Realname
  $ad 110 Salon
  $ad 111 Mask
  $ad 115 Pseudo.Nouveau Mot de Pass
  $ad 116 Pseudo.Nouveau Level
}
dialog EVA {
  title "Commandes EVA"
  size -1 -1 288 242
  option pixels
  box "Commandes EVA", 4, 6 43 280 190
  combo 1, 12 66 266 160, size vsbar
  button "Fermer", 2, 155 11 130 25
  button "Voir la Commande", 3, 6 11 130 25
}
on 1:dialog:eva:*:*: {
  if $devent == init {
    hashi
    didtok $dname 1 63 $ut(UTILISATEUR) ?ACCESS?COPYRIGHT?AUTH?DEAUTH?HELP?SEEN?SHOWCOMMANDS? $ut(HELPEUR) ?MAP?OPERS?WHOIS
    didtok $dname 1 63 $ut(GEOFRONT) ?BAN?CLEARALLMODES?CLEARBANS?CLEARMODES?DEHALFOP?DEHALFOPALL?DEOP?DEOPALL?DEOWNER?DEOWNERALL?DEPROTECT?DEPROTECTALL?DEVOICE?DEVOICEALL?GLINE?GLINELIST?GLOBOPS
    didtok $dname 1 63 HALFOP?HALFOPALL?INVITE?INVITEME?KICK?KICKALL?KICKBAN?KICKBANALL?KILL?KLINE?KLINELIST?MODE?NEWPASS?NICKBAN?OP?OPALL?OWNER?OWNERALL?PROTECT?PREOTECTALL?TOPIC
    didtok $dname 1 63 UNBAN?UNGLINE?VOICE?VOICEALL?WALLOPS? $ut(IRCOP) ?CHANGELINE?CHANKILL?CHANLIST?CLEARCLOSE?CLEARGLINE?CLEARKLINE?CLIENTLIST?CLOSE?CLOSELIST?HOSTLIST?IDENTLIST
    didtok $dname 1 63 JOIN?LIST?NICKLIST?NOTICE?PART?REALLIST?SAY?SECULIST?STATUS?SVSJOIN?SVSNICK?SVSPART?TRUSTLIST?UNCLOSE? $ut(ADMIN) ?ADDACESS?ADDCHAN?ADDCLIENT?ADDHOST?ADDIDENT
    didtok $dname 1 63 ADDNICK?ADDREAL?ADDSECU?ADDTRUST?BACKUP?CHANLOG?CLIENT ON?CLIENT OFF?CLONE ON?CLONE OFF?CONSOLE 0?CONSOLE 1?CONSOLE 2?CONSOLE 3?DELACCESS?DELCHAN?DELCLIENT
    didtok $dname 1 63 DELHOST?DELIDENT?DELNICK?DELREAL?DELSECU?DELTRUST?DIE?MAXLOGIN ON?MAXLOGIN OFF?MODACCESS PASS?MODACCESS LEVEL?PROTECTION 0?PROTECTION 1?PROTECTION 2?PROTECTION 3
    didtok $dname 1 63 PROTECTION 4?RESTART?SECU ON?SECU OFF
  }
  if $devent == sclick {
    if $did == 3 { echo - a $did(1).seltext $cmdhash($did(1).sel) }
    if $did == 2 { dialog -x $dname $dname }
  }
  if $devent == dclick {
    if $did == 1 { msg %eva $did(1).seltext $cmdhash($did(1).sel) }
  }
}
alias -l cmdhash {
  var %i = $1 ,%r = $hget(table,%i) ,%a 1
  if %i == 1 || %i == 9 || %i == 13 || %i == 57 || %i == 83 { halt }
  tokenize 32 %r
  var %b = $numtok($1,46)
  while (%a <= %b) {
    var %d $token($1-,%a,46)
    var %ff = %ff $$?="Entre le %d "
    inc %a
  }
  var %f = %ff
  return %f
}