Commandes eva en dialog

Commenter

Contenu du snippet

Voila les commandes des services eva. Vous pouvez le configurer pour tout les server si le nom du bot du service eva change.

Source / Exemple : 


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
}

Conclusion :


pour l'ouvrir : /eva

Pour L'utiliser :
Texte de la Première ligne : Recherche Rapide
Voir la Commande : Affiche la commande en echo
Double click sur une commande : Envois la commande au bot
Fermer : Ferme le dialog

Veuillez me signaler tout bug (il n'y en as pas de recenser) ou toute amélioration.

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