Accueil > > > COMMANDES EVA EN DIALOG
COMMANDES EVA EN DIALOG
Information sur la source
Description
Voila les commandes des services eva. Vous pouvez le configurer pour tout les server si le nom du bot du service eva change.
Source
- 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
- }
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.
Historique
- 23 janvier 2007 06:54:54 :
- Correction d'une petite (grosse) erreur de ma part ce qui faisait que les commandes était décaler par rapport aux boutons. J'en suis désoler.
- 10 février 2007 18:15:10 :
- ajout d'un screenshot
- 09 juin 2007 14:44:51 :
- Amélioration
- 28 juin 2007 15:11:12 :
- ajout d'un screenshot
- 13 septembre 2010 01:09:17 :
- première modification de l'init du dialog rendant le code plus leger.
- 13 septembre 2010 12:01:14 :
- Correction d'un bug (décalage des commandes par rapport au combo)
Ajout de l'unset de la variable lors de l'Unload
Amélioration de la partie commande
Légère Optimisation
Allegement du code
- 13 septembre 2010 12:08:10 :
- Petit oublis
- 13 septembre 2010 14:13:24 :
- Mise A Jour Importante
-Ajout de Htable (Merci Wims)
-Set de la Variable "%eva" dès le Load (plus besoin de rentrer soit même le /set
-Modification du dialog
-Optimisation du Code
-Réparation de Bugs mineurs
-Allègement du code
-Regroupement des On Dialogs
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Text dialog [ par koko ]
J'aimerais savoir comment mettre dans un text d'un dialog un texte ou une variable... mercihttp://www.forumscvh.be.tf-]CVH[-@|_p]-[@
j'ai un blem avec un dialog [ par Djo21 ]
Bonjour tout le monde.Alors voila mon problem, j'ai fait une fenetre dialog pour un systeme d'auto join mais quand "j'appelle" ma fenetre, pour qu'ell
Prog Dialog DL [ par TroXsA ]
Salut allvous savez ou je peut trouver des progs pour faire des dialog en francais, si sa existe biensur :pj'ai le prog Dialog Studio il est bien je d
Dialog prog ! [ par TroXsA ]
Salut allvous savez ou je peut trouver des progs pour faire des dialog en francais, si sa existe biensur :pj'ai le prog Dialog Studio il est bien je d
Tuto ?? Dialog VF !!! [ par TroXsA ]
Qui connais un site mortelement bien expliquer pour faire des dialog et les actions sur un check, bouton, radio ext ....Google G trouver mais pas en f
Dialog Fonction check ? help [ par TroXsA ]
salut allvoila G besoin d'un ti coup de main pour faire un bout de script je vous laisse looker le script et j'esplique plus bas----------------------
Help problème Dialog !!!! [ par Ziboo ]
Voilà je joue a counter strike et je fais des train et il faut a chaque fois que je donne l'IP de notre server avec le pass.Bon voilà mon scriptServeu
/DID avec $nick comment faire ? [ par TroXsA ]
salut all :pj'ai besoin d'un coup de main sur un dialogsa fait deux jour que je me tire les cheveux, oui il m'en reste pas beaucoup ;)bon mon probleme
Rafraichir un dialog [ par Ziboo ]
Voilà je fais mon lecteur MP3G un bouton CHOISIR pour demander ou est le MP:button "Choisir", 6, 185 3 37 12if ( $did == 6 ) { /set %chemin $sfile(C:
Dialog mIRC [ par wbr ]
Bonjour, je voudrais savoir comment faire pour sauvegarder les valeurs de ce dialog dans des variables et comment cocher des options par défaut pour c
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|