;-------------------<  Merlin  >---------------------;
; Filename..: Merlin.mrc [ [LJF]-MirC ]              ;
; Release...: v1.0                                  ;
; Author....: IsHnOuG                                ;
; Date......: Juin 01, 2002                          ; 
; E-mail....: ishnoug@hotmail.com                    ;
;                                                    ;
; Commandes.:                                        ;
; Charger...: F5                                     ;
; charger2..: /dialog -mro merlin merlin             ;
;----------------------------------------------------;

; Merci de ne pas utiliser les commandes HIDE et
; UNLOAD sur le clic droit du magicien ...
; Sinon vous allez rencontre des erreurs de scripts.
; Utilisez plutot les commandes du panneau de Merlin

; Vous devrez changer deux ligne dans les ON CHANNEL
; pour y entrer le nom de votre canal
; ceci est pour eviter tout flood de merlin
; sur le ON:JOIN et ON:PART

;#######################################
;###       Copyright a IsHnOuG       ###
;###       Cree le 01/06/2002        ###
;###         Pour [LJF]-MirC         ###
;#######################################

dialog merlin {
  title "Merlin votre serviteur "
  size -1 -1 150 200
  icon $mircdirmerlin\\merlin.ico
  option dbu
  tab "    Configuration    ",1,2 2 150 185
  box "..:: Commande pour Merlin ::..",2, 4 20 144 55,tab 1
  Button "Activer Merlin",3, 10 35 65 15,tab 1
  Button "Desactiver Merlin",4, 77 35 65 15,tab 1
  Button "Afficher",5, 10 53 65 11,tab 1
  Button "Masquer",6, 77 53 65 11,tab 1
  tab "    Animations   ",8,2 2 150 185
  box "..:: Animations de Merlin ::..",9, 4 20 144 165,tab 8
  Button "Rester sur place",10, 10 30 60 10,tab 8
  Button "Cligner des yeux",11, 80 30 60 10,tab 8
  Button "Idle 1",12, 10 42 60 10,tab 8
  Button "Idle 2",13, 80 42 60 10,tab 8
  Button "Idle 3",14, 10 54 60 10,tab 8
  Button "Idle 4",15, 80 54 60 10,tab 8
  Button "Idle 5",16, 10 66 60 10,tab 8
  Button "Te Saluer",17, 80 66 60 10,tab 8
  Button "Lever les mains",18, 10 78 60 10,tab 8
  Button "Baisser la main",19, 80 78 60 10,tab 8
  Button "Main a gauche",20, 10 90 60 10,tab 8
  Button "Bailler",21, 80 90 60 10,tab 8
  Button "A l'ecoute",22, 10 102 60 10,tab 8
  Button "Explique",23, 80 102 60 10,tab 8
  Button "Pensif",24, 10 114 60 10,tab 8
  Button "Boule de crystal",25, 80 114 60 10,tab 8
  Button "En accord",26, 10 126 60 10,tab 8
  Button "Au revoir",27, 80 126 60 10,tab 8
  Button "oreilles bouchee",28, 10 138 60 10,tab 8
  Button "Tape ecran",29, 80 138 60 10,tab 8
  Button "Surpris",30, 10 150 60 10,tab 8
  Button "Applaudit",31, 80 150 60 10,tab 8
  Button "Lecture",32, 10 162 60 10,tab 8
  Button "Annonce",33, 80 162 60 10,tab 8
  Button "Ecrit",34, 10 174 60 10,tab 8
  Button "Suggestion",35, 80 174 60 10,tab 8
  Button "&fermer",400, 5 189 140 10,ok
  box "..:: Le Script ::..",300, 4 80 144 36,tab 1
  Button "Aides",301, 10 90 65 11,tab 1
  Button "Donner l'heure",302, 80 90 65 24,tab 1
  Button "Desinstaller",303, 10 103 65 11,tab 1
  box "..:: Breve Description ::..",330, 4 118 144 66,tab 1
  Text "Merlin est un compagnon fort serviable, il vous tiendra au courant de ce qu'il se passe sur les canaux, sur les modes qui peuvent vous etre attribué, et bien d'autres choses. Il vous indiquera quand quelqu'un demandera à vous parler en privée, quand vous serez deconnecté, ainsi que la durée de votre uptime. Il peut aussi et vous donner l'heure, et bien d'autre choses sont a decouvrir tout au long de votre utilisation de Merlin",304, 8 127 138 60,tab 1
  tab "    A propo de   ",200,2 2 150 185
  box "..:: Il est pas beau ce magicien ? ::..",201, 5 19 144 130,tab 200
  Icon 202, 8 22 138 130, $mircdirmerlin\\merlin.jpg, 0,tab 200
  box "..:: Createur ::..",203, 5 150 144 35,tab 200
  Text "Crée le 01/06/02 par IsHnOuG ", 204, 42 160 144 7,tab 200 
  Text "Mon addresse Email est", 205, 51 167 144 7,tab 200 
  link "ishnoug@hotmail.com", 206, 53 174 144 7,tab 200 
}

;#############
;### TAB 1 ###
;#############

ON *:DIALOG:merlin:sclick:3: { /gload Merlin | /Gshow Merlin | set %Merlin.exist 1 | .gtalk Merlin Ho maitre, enfin vous revoila, il faisait bien sombre  }
ON *:DIALOG:merlin:sclick:4: { /GUnload Merlin | unset %Merlin.exist }
ON *:DIALOG:merlin:sclick:5: { /GShow Merlin | set %merlin.exist 1 }
ON *:DIALOG:merlin:sclick:6: { /GHide Merlin | unset %Merlin.exist }
ON *:DIALOG:merlin:sclick:206: { run mailto:ishnoug@hotmail.com }

;##############
;###  TAB 2 ###
;##############

ON *:DIALOG:merlin:sclick:12: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 1 }
}
ON *:DIALOG:merlin:sclick:13: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 2 } 
}
ON *:DIALOG:merlin:sclick:14: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 3 } 
}
ON *:DIALOG:merlin:sclick:15: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 4 }
}
ON *:DIALOG:merlin:sclick:16: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 5 } 
}
ON *:DIALOG:merlin:sclick:17: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 9 }
}
ON *:DIALOG:merlin:sclick:18: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 11 }
}
ON *:DIALOG:merlin:sclick:19: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 12 }
}
ON *:DIALOG:merlin:sclick:20: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 13 }
}
ON *:DIALOG:merlin:sclick:21: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 10 }
}
ON *:DIALOG:merlin:sclick:22: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 18 }
}
ON *:DIALOG:merlin:sclick:23: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 22 }
}
ON *:DIALOG:merlin:sclick:24: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 24 }
}
ON *:DIALOG:merlin:sclick:25: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 25 }
}
ON *:DIALOG:merlin:sclick:26: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 26 } 
}
ON *:DIALOG:merlin:sclick:27: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 27 }
}
ON *:DIALOG:merlin:sclick:28: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 32 }
}
ON *:DIALOG:merlin:sclick:29: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 33 }
}
ON *:DIALOG:merlin:sclick:30: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 36 }
}
ON *:DIALOG:merlin:sclick:31: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 37 }
}
ON *:DIALOG:merlin:sclick:32: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 38 }
}
ON *:DIALOG:merlin:sclick:33: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 39 }
}
ON *:DIALOG:merlin:sclick:34: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 43 }
}
ON *:DIALOG:merlin:sclick:35: { If (%Merlin.exist == 1) { 
  /GPlay Merlin 47 }
}

;##################
;###  LE RESTE  ###
;##################

ON *:DIALOG:merlin:sclick:301: { /aidemer }
ON *:DIALOG:merlin:sclick:302: { /Gplay Merlin 39 | .gtalk Merlin Maitre, nous sommes le $DateFR($ctime) }
ON *:DIALOG:merlin:sclick:303: { /unload -rs $script }

;####################   ####################
;###   ON MODES   #########    DISCOURS  ###
;####################   ####################

on 1:VOICE:#: { if ($me == $vnick) && (%Merlin.exist == 1) { 
    /GPlay Merlin 37 | /GTalk -k Merlin Maitre, $nick vous a voicé sur $chan 
  }
}
on 1:DEVOICE:#: { if ($me == $vnick) && (%Merlin.exist == 1) {
    /GPlay Merlin 36 | .gtalk Merlin Maitre, $nick vous a devoice de $chan 
  }
}
on 1:KICK:#: { if ($knick === $me) && (%Merlin.exist == 1) {
    /GPlay Merlin 36 | .gtalk Merlin Maitre, vous avez été kicker de $chan !!! 
  }
}
on 1:OP:#: { if ($me == $opnick) && (%Merlin.exist == 1) { 
    /GPlay Merlin 45 | .gtalk Merlin Maitre, vous avez été Op sur $chan par $nick !!! 
  }
}
on 1:BAN:#: { if ($me == $opnick) && (%Merlin.exist == 1) { 
    /GPlay Merlin 45 | .gtalk Merlin Maitre, $nick vous a banni de $chan !!! 
  }
}
on *:DEOP:#: { if ($opnick == $me) && (%Merlin.exist == 1) {
    /GPlay Merlin 36 | .gtalk Merlin Maitre, vous avez été Deopé de $chan par $nick !!!
  }
}

;####################
;###  ON SERVER   ###
;####################

on 1:DISCONNECT: { if (%merlin.exist == 1) {
    /GPlay Merlin 27 | .gtalk Merlin Vous avais été deconnecté à $time , sous le nom $nick
  }
}
on 1:EXIT: {
  set %Merlin.exist 0
  /timermerlin_uptime off
  /timermerlin_date off
  /timermerci off
}
}
on 1:CONNECT: { if (%merlin.exist == 1) {
  .gtalk Merlin Connexion telepathique etabli à $time
  set %tagadanick $me
}
on 1:START: {
  /gload Merlin
  /GShow Merlin 
  /timermerlin_uptime 0 2700 .gtalk Merlin Maitre, je suis debout depuis $duration($calc($ticks / 1000)) | /GPlay Merlin 10
  /timermerlin_date 0 10800 .gtalk Merlin Maitre, nous sommes le $DateFR($ctime)
  set %Merlin.exist 1
}

;####################   ####################
;###   ON CTCP    #########     ET DCC   ###
;####################   ####################

on 1:GETFAIL:*.*:{ if (%merlin.exist == 1) {
    /GPlay Merlin 36 | .gtalk Merlin Maitre, je n'ai pas réussi à recevoir le fichier $filename de $nick 
  }
}
on 1:FILERCVD:*.*:{ if (%merlin.exist == 1) {
    /GPlay Merlin 22 | .gtalk Merlin Maitre, le transfer de $filename est terminé 
  }
}
on 1:FILESENT:*.*:{ if (%merlin.exist == 1) {
    /GPlay Merlin 22 | .gtalk Merlin Maitre, j'ai reussi a envoyé $filename à $nick 
  }
}
CTCP *:version:*:{ if (%merlin.exist == 1) {
    /GPlay Merlin 18 | .gtalk Merlin Maitre, $nick a demande a voir votre version
    halt
  }
}

;####################
;### ON CHANNELS  ###
;####################

on *:JOIN:#TON_CANAL: { IF ($Nick == $me) && (%Merlin.exist == 1) { 
  .gtalk Merlin Bienvenue Maitre, heureux de vous revoir | /GPlay Merlin 9 | /GPlay Merlin 11 }
  Else { IF ($Nick != $me) && (%Merlin.exist == 1) {
      .gtalk Merlin Maitre, $nick est arrive sur $chan
    }
  }
}
on *:PART:#TON_CANAL: { IF ($Nick != $me) && (%Merlin.exist == 1) { 
    /GPlay Merlin 27 | .gtalk Merlin Maitre, $nick a quitté $chan 
  }
}
on *:INVITE:#:{ if (%merlin.exist == 1) {
    /GPlay Merlin 53 | .gtalk Merlin Maitre, $nick vous invite a venir sur $chan 
  }
}
on *:TOPIC:#:{ if (%merlin.exist == 1) {
    /GPlay Merlin 42 | .gtalk Merlin Maitre, $nick a changé le topic de $chan 
  }
}
on 1:NOTIFY:{ if (%merlin.exist == 1) {
    /GPlay Merlin 39 | .gtalk Merlin Maitre, $nick est connecté
  }
}
ON 1:NICK: { if ($nick == $me) {
    set %tagadanick $newnick
  }
}

;####################
;###   ON TEXTE   ###
;####################

on *:text:*%tagadanick*:#: { IF ($Nick != $me) && (%merlin.exist == 1) {
    /GPlay Merlin 38 | .gtalk Merlin Maitre, $nick a cite vote nom sur $chan 
  }
}
on *:text:!merlin:#: { IF ($Nick != $me) && (%merlin.exist == 1) {
    /notice $nick 8,5 Merlin est disponible sur 15,5http://perso.wanadoo.fr/ljf-download/addon/merlin.exe
    /GPlay Merlin 45 | .gtalk Merlin Maitre, $nick a demandé ou me trouver
  }
}
on *:text:*:?: { if (%merlin.exist == 1) {
    /GPlay Merlin 33 | .gtalk Merlin Maitre, $nick souhaiterait s'entretenir avec vous en privée 
  }
}
on *:TEXT:*http*:*:{ If (%Merlin.exist == 1 ) {
    /write url.txt ( $+ $time $+ ) - ( $+ $date $+ ) < $+ $nick $+ > $1-
    If (http isin $1) { .gtalk Merlin Maitre,  [ URL Détécté : $1 ]  Appuyer sur F4 pour y aller | set %autoWeb $1 }
    ElseIf (http isin $2) { .gtalk Merlin Maitre,  [ URL Détécté : $2 ]  Appuyer sur F4 pour y aller | set %autoWeb $2 }
    ElseIf (http isin $3) { .gtalk Merlin Maitre,  [ URL Détécté : $3 ]  Appuyer sur F4 pour y aller | set %autoWeb $3 }
    ElseIf (http isin $4) { .gtalk Merlin Maitre,  [ URL Détécté : $4 ]  Appuyer sur F4 pour y aller | set %autoWeb $4 }
    ElseIf (http isin $5) { .gtalk Merlin Maitre,  [ URL Détécté : $5 ]  Appuyer sur F4 pour y aller | set %autoWeb $5 }
    ElseIf (http isin $6) { .gtalk Merlin Maitre,  [ URL Détécté : $6 ]  Appuyer sur F4 pour y aller | set %autoWeb $6 }
    ElseIf (http isin $7) { .gtalk Merlin Maitre,  [ URL Détécté : $7 ]  Appuyer sur F4 pour y aller | set %autoWeb $7 }
    ElseIf (http isin $8) { .gtalk Merlin Maitre,  [ URL Détécté : $8 ]  Appuyer sur F4 pour y aller | set %autoWeb $8 }
    ElseIf (http isin $9) { .gtalk Merlin Maitre,  [ URL Détécté : $9 ]  Appuyer sur F4 pour y aller | set %autoWeb $9 }
    ElseIf (http isin $10) { .gtalk Merlin Maitre,  [ URL Détécté : $10 ]  Appuyer sur F4 pour y aller | set %autoWeb $10 }
    ElseIf (http isin $11) { .gtalk Merlin Maitre,  [ URL Détécté : $11 ]  Appuyer sur F4 pour y aller | set %autoWeb $11 }
    ElseIf (http isin $12) { .gtalk Merlin Maitre,  [ URL Détécté : $12 ]  Appuyer sur F4 pour y aller | set %autoWeb $12 }
    ElseIf (http isin $13) { .gtalk Merlin Maitre,  [ URL Détécté : $13 ]  Appuyer sur F4 pour y aller | set %autoWeb $13 }
    ElseIf (http isin $14) { .gtalk Merlin Maitre,  [ URL Détécté : $14 ]  Appuyer sur F4 pour y aller | set %autoWeb $14 }
    ElseIf (http isin $15) { .gtalk Merlin Maitre,  [ URL Détécté : $15 ]  Appuyer sur F4 pour y aller | set %autoWeb $15 }
    ElseIf (http isin $16) { .gtalk Merlin Maitre,  [ URL Détécté : $16 ]  Appuyer sur F4 pour y aller | set %autoWeb $16 }
    ElseIf (http isin $17) { .gtalk Merlin Maitre,  [ URL Détécté : $17 ]  Appuyer sur F4 pour y aller | set %autoWeb $17 }
  }
  Else halt
}
on *:TEXT:*www*:*:{ If (%Merlin.exist == 1 ) {
    /write url.txt ( $+ $time $+ ) - ( $+ $date $+ ) < $+ $nick $+ > $1-
    If (www isin $1) { .gtalk Merlin Maitre,  [ URL Détécté : $1 ]  Appuyer sur F4 pour y aller | set %autoWeb $1 }
    ElseIf (www isin $2) { .gtalk Merlin Maitre,  [ URL Détécté : $2 ]  Appuyer sur F4 pour y aller | set %autoWeb $2 }
    ElseIf (www isin $3) { .gtalk Merlin Maitre,  [ URL Détécté : $3 ]  Appuyer sur F4 pour y aller | set %autoWeb $3 }
    ElseIf (www isin $4) { .gtalk Merlin Maitre,  [ URL Détécté : $4 ]  Appuyer sur F4 pour y aller | set %autoWeb $4 }
    ElseIf (www isin $5) { .gtalk Merlin Maitre,  [ URL Détécté : $5 ]  Appuyer sur F4 pour y aller | set %autoWeb $5 }
    ElseIf (www isin $6) { .gtalk Merlin Maitre,  [ URL Détécté : $6 ]  Appuyer sur F4 pour y aller | set %autoWeb $6 }
    ElseIf (www isin $7) { .gtalk Merlin Maitre,  [ URL Détécté : $7 ]  Appuyer sur F4 pour y aller | set %autoWeb $7 }
    ElseIf (www isin $8) { .gtalk Merlin Maitre,  [ URL Détécté : $8 ]  Appuyer sur F4 pour y aller | set %autoWeb $8 }
    ElseIf (www isin $9) { .gtalk Merlin Maitre,  [ URL Détécté : $9 ]  Appuyer sur F4 pour y aller | set %autoWeb $9 }
    ElseIf (www isin $10) { .gtalk Merlin Maitre,  [ URL Détécté : $10 ]  Appuyer sur F4 pour y aller | set %autoWeb $10 }
    ElseIf (www isin $11) { .gtalk Merlin Maitre,  [ URL Détécté : $11 ]  Appuyer sur F4 pour y aller | set %autoWeb $11 }
    ElseIf (www isin $12) { .gtalk Merlin Maitre,  [ URL Détécté : $12 ]  Appuyer sur F4 pour y aller | set %autoWeb $12 }
    ElseIf (www isin $13) { .gtalk Merlin Maitre,  [ URL Détécté : $13 ]  Appuyer sur F4 pour y aller | set %autoWeb $13 }
    ElseIf (www isin $14) { .gtalk Merlin Maitre,  [ URL Détécté : $14 ]  Appuyer sur F4 pour y aller | set %autoWeb $14 }
    ElseIf (www isin $15) { .gtalk Merlin Maitre,  [ URL Détécté : $15 ]  Appuyer sur F4 pour y aller | set %autoWeb $15 }
    ElseIf (www isin $16) { .gtalk Merlin Maitre,  [ URL Détécté : $16 ]  Appuyer sur F4 pour y aller | set %autoWeb $16 }
    ElseIf (www isin $17) { .gtalk Merlin Maitre,  [ URL Détécté : $17 ]  Appuyer sur F4 pour y aller | set %autoWeb $17 }
  }
  Else halt
}

;########################
;###    FIN DES ON    ###
;########################

;########################
;###       RAWS       ###
;########################


raw 305:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, vous n'êtes plus marqué comme étant absent(e) | halt 
  }
}
raw 306:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, vous avez été marqué comme étant absent(e) *** | halt 
  }
}
raw 333:#:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, le topic de $2 a été défini par $3 | halt
  }
}
raw 401:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, pseudo ou nom de canal inexistant: $2 | halt 
  }
}
raw 402:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, serveur inexistant: $2 | halt
  }
}
raw 403:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, canal inexistant: $2 | halt 
  }
}
raw 404:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, vous ne pouvez pas envoyer de message sur le canal $2 | halt 
  }
}
raw 405:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, vous ne pouvez pas joindre de canal supplémentaire (maximum déjà atteint) | halt 
  }
}
raw 412:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, pas de texte à envoyer | halt
  }
}
raw 422:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, je n'ai trouvé aucun message du jour ... | halt 
  }
}
raw 431:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, comment dois je vous appeler ? | halt 
  }
}
raw 432:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, je ne comprends pas votre nom ... essayez sans vos caracteres incomprehensible | halt 
  }
}
raw 433:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, ce nom appartient deja a une personne | halt 
  }
}
raw 461:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, veuillez preciez l'action que je dois faire ( parametre insufisant ) | halt 
  }
}
raw 464:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, j'ai du mal a identifier .. (mot de passe erroné) | halt 
  }
}
raw 465:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, vous etes banni de cette region telepathique | halt 
  }
}
raw 467:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, il existe deja un mot de passe pour $2 | halt 
  }
}
raw 468:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, seul les serveurs peuvent changer ce mode | halt 
  }
}
raw 471:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, le canal $2 est complet, réessayez plus tard | halt 
  }
}
raw 472:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, mode inconnu: $2 | halt 
  }
}
raw 473:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, le canal $2 n'est accessible que sur invitation | halt 
  }
}
raw 474:*:{ If (%Merlin.exist ==1 ) {
    .gtalk Merlin Maitre, l'accès au canal $2 vous est refusé, vous en avez été banni(e) | halt 
  }
}
raw 501:*:{ If (%Merlin.exist == 1 ) {
    .gtalk Merlin Maitre, je ne reconnais pas cet ordre | halt 
  }
}

;########################
;###      DIVERS      ###
;########################

on *:LOAD: {
  echo -a -------------------------------------------------------------------------------
  //echo -a  la version de votre agent est $agentver
  If ($agentver > 0) {
    echo -a -------------------------------------------------------------------------------
    echo -a Votre version de l'agent est suffisante pour que Merlin fonctionne
    echo -a suite de l'installation
    /gload Merlin | set %Merlin.exist 1 | /GShow Merlin | /alias /F5 /dialog -m-r-o merlin merlin
    .gtalk Merlin Enchante de vous rencontrer maitre $me , je fairais de mon mieux pour vous servir. | /GPlay Merlin 9
    /timermerci 30 86400 .gtalk Merlin Je vous remercie de me garder depuis tout ce temps
    /dialog -m merlin merlin
    echo -a -------------------------------------------------------------------------------
    echo -a Pour ouvrir le panneau de merlin tappez 8/Merlin
    echo -a ou appuyez sur 8 F5
    echo -a -------------------------------------------------------------------------------
    echo -a Installation termine avec Succes, Merci d'essayer Merlin
    echo -a -------------------------------------------------------------------------------
  }
  Else {
    echo -a -------------------------------------------------------------------------------
    echo -a Votre version de l'agent n'est pas suffisante pour une execution de Merlin.
    echo -a Merci de bien vouloir l'installer ou de patcher votre agent
    echo -a Vous trouverez les partch necessaire sur 
    echo -a http://www.microsoft.com/msagent/
    echo -a -------------------------------------------------------------------------------
    /unload -rs $script
  }
}

on *:UNLOAD: {
  /timermerlin_uptime off
  /timermerlin_date off
  /timermerci off
  /GUnload Merlin
  unset %Merlin.exist
  echo -a 8-------------------------------------------------------------------------------
  echo -a 8Merlin14 desinstallé avec Succes ! Merci de l'avoir essayer
  echo -a 8-------------------------------------------------------------------------------
}

;########################
;###      ALIAS       ###
;######################## 

alias aidemer {
  echo -a 5,5*************************************************
  echo -a 8,5Cree par 15,5IsHnOuG5,5************************************
  echo -a 8,5Pour ouvrir le panneau de merlin tappez 15,5/Merlin5,5************** 
  echo -a 8,5ou appuyez sur 15,5 F55,5***********************************
  echo -a 5,5*************************************************
  echo -a 8,5 Merci de ne pas utiliser les commandes HIDE et5,5************* 
  echo -a 8,5 UNLOAD sur le clic droit du magicien ...5,5******************* 
  echo -a 8,5 Sinon vous allez rencontre des erreurs de scripts.5,5************
  echo -a 8,5 Utilisez plutot les commandes du panneau de Merlin5,5********** 
  echo -a 5,5*************************************************
}
alias merlin {
  /dialog -m merlin merlin
}

alias DateFR {
  var %fr
  %fr = $1-
  if (%fr == $null) {
    return (inconnu)
    halt
  }
  %fr = $asctime(%fr, dddd dd mmmm yyyy à HH:nn:ss)
  %fr = $replace(%fr, Monday, Lundi)
  %fr = $replace(%fr, Tuesday, Mardi)
  %fr = $replace(%fr, Wednesday, Mercredi)
  %fr = $replace(%fr, Thursday, Jeudi)
  %fr = $replace(%fr, Friday, Vendredi)
  %fr = $replace(%fr, Saturday, Samedi)
  %fr = $replace(%fr, Sunday, Dimanche)
  %fr = $replace(%fr, January, Janvier)
  %fr = $replace(%fr, February, Février)
  %fr = $replace(%fr, March, Mars)
  %fr = $replace(%fr, April, Avril)
  %fr = $replace(%fr, May, Mai)
  %fr = $replace(%fr, June, Juin)
  %fr = $replace(%fr, July, Juillet)
  %fr = $replace(%fr, August, Août)
  %fr = $replace(%fr, September, Septembre)
  %fr = $replace(%fr, October, Octobre)
  %fr = $replace(%fr, November, Novembre)
  %fr = $replace(%fr, December, Décembre)
  return %fr
}


;########################
;###    END OF FILE   ###
;########################
