CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 07 30 01:48:48

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

AddOns

> BIRTHDAY MIRC MANAGER / GESTION DES ANNIVERSAIRES MIRC

BIRTHDAY MIRC MANAGER / GESTION DES ANNIVERSAIRES MIRC

Information sur la source

Note :

9,00 / 10

Catégorie :AddOns Classé sous :anniversaire, birthday, anniv, mirc Niveau :Débutant Date de création :07/02/2007 Date de mise à jour :05/05/2007 15:02:15 Vu / téléchargé :3 490 / 86

Auteur : galdinx

Ecrire un message privé

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Je sais pas vous mais moi j'oublie souvent de souhaiter un anniversaire, ce qui s'est d'ailleurs une nouvelle fois produit ce week-end. C'est pourquoi j'ai décidé de créer un petit soft pour mIRC qui gère les anniversaires a ma place...

C'est un petit script qui active une dialog ou divers options sont au choix : ajouter un anniv, en supprimer un, visualiser la date d'anniv d'un contact, faire une sauvegarde des anniversaires, restaurer a une date ultérieure (+/- manuellement), réinitialiser ou désactiver le script.

Une fois les dates d'anniversaire saisies, il se fait oublier (sauf si on l'appelle par la touche F11) et se réveille pour vous prévenir qu'un anniversaire va arriver 3 jours avant la date effective, la veille et le jour meme de l'anniversaire ; le script vérifie la présence d'un anniversaire dans les 3 jours a venir au démarage de mIRC ainsi que toutes les 6h de connexion. Vous pouvez bien evidemment faire a tout moment une recherche manuelle par l'interface principale (F11).

Source

;------------------------------------------------------------------------------------------------
; Birthday mIRC Manager version franaise par Galdinx
; galdinx@teepi.net
; http://www.teepi.net
;------------------------------------------------------------------------------------------------
;-------------------------
;;; GESTION DES EVENTS ;;;
;-------------------------
alias F11 { set %nombranniv $hget(anniv,0) | dialog -m anniv anniv }
on 1:start:{ if ((%annivmanager == 1) && (%loadanniv != 1)) {
.hmake -s anniv 1000
.hload anniv datanniv.hash
verifannivauto
.timerverifanniv 0 21600 verifannivauto
}
}
on 1:load:{ set %loadanniv 1 | dialog -m presentanniv presentanniv }
alias -l verifannivauto {
verifanniv3 $left($date,5)
verifanniv1 $left($date,5)
verifanniv0 $left($date,5)
.timerverif 1 3 if (%detectanniv) unset %detectanniv
}
alias -l verifanniv {
set %detectanniv 3
verifanniv3 $left($date,5)
verifanniv1 $left($date,5)
verifanniv0 $left($date,5)
.timerverif 1 3 if (%detectanniv) unset %detectanniv
}
;------------------------------
;;; GESTION DES HASH TABLES ;;;
;------------------------------
alias -l ajoutanniv {
.hinc anniv 0
var %n $hget(anniv,0)
.hadd anniv $calc(3*$eval(%n) - 2) %n
.hadd anniv $calc(3*$eval(%n) - 1) $1
.hadd anniv $calc(3*$eval(%n)) $2
.hsave anniv datanniv.hash
dialog -x anniv anniv
F11
}
alias -l supprimanniv {
if ($?!="Etes-vous sur de vouloir supprimer $replace($hget(anniv,$calc(3*$eval($1) - 1)),_,$chr(32)) de la liste des anniversaires ?" == $true) {
var %n $hget(anniv,0)
.hadd anniv $calc(3*$eval($1) - 1) $hget(anniv,$calc(3*$eval(%n) - 1))
.hadd anniv $calc(3*$eval($1)) $hget(anniv,$calc(3*$eval(%n)))
.hdel anniv $calc(3*$eval(%n) - 2)
.hdel anniv $calc(3*$eval(%n) - 1)
.hdel anniv $calc(3*$eval(%n))
.hdec anniv 0
.hsave anniv datanniv.hash
dialog -x anniv anniv
F11
}
}
alias -l backupanniv {
mkdir c:/anniv
.hsave anniv c:/anniv/archive_anniv_ $+ $eval($replace($date,/,_))
dialog -m backupinfo backupinfo
}
alias -l revisanniv {
.hfree -s anniv
.hmake -s anniv 1000
.hload anniv datanniv.hash
dialog -x revisanniv revisanniv
dialog -x anniv anniv
F11
}
alias -l reinitanniv {
if ($?!="Etes-vous sur de vouloir réinitialiser la liste de vos anniversaires ?" == $true) {
.hfree -s anniv
.hmake -s anniv 1000
.hadd anniv 0 0
dialog -x anniv anniv
F11
}
}
alias -l desactivanniv {
if ($?!="Etes-vous sur de vouloir désactiver Birthday mIRC Manager ?" == $true) {
unset %annivmanager
.hfree -s anniv
.remove datanniv.hash
dialog -x anniv anniv
dialog -m desactivanniv desactivanniv
}
}
alias -l verifanniv0 {
var %p 1
var %n 0
while (%p <= $hget(anniv,0)) {
if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
set %anniv0 %anniv0 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
inc %n
}
inc %p
}
if (%anniv0) set %anniv0 $left(%anniv0,$calc($len($eval(%anniv0)) - 3))
if (%n > 1) dialog -m anniv02 anniv02
elseif (%n == 1) dialog -m anniv01 anniv01
elseif (%n == 0) {
set %detectanniv $calc($eval(%detectanniv) - 1)
if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
}
}
alias -l verifanniv1 {
if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
verifanniv12 %q
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif ($1 == 31/01) verifanniv12 01/02
elseif ($1 == 31/03) verifanniv12 01/04
elseif ($1 == 30/04) verifanniv12 01/05
elseif ($1 == 31/05) verifanniv12 01/06
elseif ($1 == 30/06) verifanniv12 01/07
elseif ($1 == 31/07) verifanniv12 01/08
elseif ($1 == 31/08) verifanniv12 01/09
elseif ($1 == 30/09) verifanniv12 01/10
elseif ($1 == 31/10) verifanniv12 01/11
elseif ($1 == 30/11) verifanniv12 01/12
elseif ($1 == 31/12) verifanniv12 01/01
elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv12 01/03
elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv12 29/02
elseif ($1 == 29/02) verifanniv12 01/03
}
alias -l verifanniv12 {
var %p 1
var %n 0
while (%p <= $hget(anniv,0)) {
if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
set %anniv1 %anniv1 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
inc %n
}
inc %p
}
if (%anniv1) set %anniv1 $left(%anniv1,$calc($len($eval(%anniv1)) - 3))
if (%n > 1) dialog -m anniv12 anniv12
elseif (%n == 1) dialog -m anniv11 anniv11
elseif (%n == 0) {
set %detectanniv $calc($eval(%detectanniv) - 1)
if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
}
}
alias -l verifanniv3 {
if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
verifanniv32 %q
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
verifanniv32 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
verifanniv32 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif ($1 == 31/01) verifanniv32 01/02
elseif ($1 == 31/03) verifanniv32 01/04
elseif ($1 == 30/04) verifanniv32 01/05
elseif ($1 == 31/05) verifanniv32 01/06
elseif ($1 == 30/06) verifanniv32 01/07
elseif ($1 == 31/07) verifanniv32 01/08
elseif ($1 == 31/08) verifanniv32 01/09
elseif ($1 == 30/09) verifanniv32 01/10
elseif ($1 == 31/10) verifanniv32 01/11
elseif ($1 == 30/11) verifanniv32 01/12
elseif ($1 == 31/12) verifanniv32 01/01
elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv32 01/03
elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv32 29/02
elseif ($1 == 29/02) verifanniv32 01/03
}
alias -l verifanniv32 {
if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
verifanniv33 %q
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
verifanniv33 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif ($1 == 31/01) verifanniv33 01/02
elseif ($1 == 31/03) verifanniv33 01/04
elseif ($1 == 30/04) verifanniv33 01/05
elseif ($1 == 31/05) verifanniv33 01/06
elseif ($1 == 30/06) verifanniv33 01/07
elseif ($1 == 31/07) verifanniv33 01/08
elseif ($1 == 31/08) verifanniv33 01/09
elseif ($1 == 30/09) verifanniv33 01/10
elseif ($1 == 31/10) verifanniv33 01/11
elseif ($1 == 30/11) verifanniv33 01/12
elseif ($1 == 31/12) verifanniv33 01/01
elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv33 01/03
elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv33 29/02
elseif ($1 == 29/02) verifanniv33 01/03
}
alias -l verifanniv33 {
if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
verifanniv34 %q
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
verifanniv34 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
verifanniv34 $+($calc($eval($left($1,2)) + 1),$right($1,3))
}
elseif ($1 == 31/01) verifanniv34 01/02
elseif ($1 == 31/03) verifanniv34 01/04
elseif ($1 == 30/04) verifanniv34 01/05
elseif ($1 == 31/05) verifanniv34 01/06
elseif ($1 == 30/06) verifanniv34 01/07
elseif ($1 == 31/07) verifanniv34 01/08
elseif ($1 == 31/08) verifanniv34 01/09
elseif ($1 == 30/09) verifanniv34 01/10
elseif ($1 == 31/10) verifanniv34 01/11
elseif ($1 == 30/11) verifanniv34 01/12
elseif ($1 == 31/12) verifanniv34 01/01
elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv34 01/03
elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv34 29/02
elseif ($1 == 29/02) verifanniv34 01/03
}
alias -l verifanniv34 {
var %p 1
var %n 0
while (%p <= $hget(anniv,0)) {
if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
set %anniv3 %anniv3 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
inc %n
}
inc %p
}
if (%anniv3) set %anniv3 $left(%anniv3,$calc($len($eval(%anniv3)) - 3))
if (%n > 1) dialog -m anniv32 anniv32
elseif (%n == 1) dialog -m anniv31 anniv31
elseif (%n == 0) {
set %detectanniv $calc($eval(%detectanniv) - 1)
if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
}
}
;--------------------------
;;; GESTION DES DIALOGS ;;;
;--------------------------
dialog presentanniv {
title "Gestionnaire des Anniversaires mIRC"
size -1 -1 180 60
option dbu
text "Bienvenue sur le Birthday mIRC Manager version française par Galdinx.",1,0 5 180 100,center
text "Retrouvez-moi sur irc.teepi.net.",2,0 15 180 100,center
text "Pour accéder aux fonctionnalités du script, cliquez désormais sur F11.",3,0 25 180 100,center
button "Continuer",4,67 40 50 10
}
on *:dialog:presentanniv:init:*:{
set %annivmanager 1
.hmake -s anniv 1000
.hsave anniv datanniv.hash
}
on *:dialog:presentanniv:sclick:4:{
.hadd anniv 0 0
.hsave anniv datanniv.hash
unset %loadanniv
dialog -x presentanniv presentanniv
F11
}
dialog anniv {
title "Gestionnaire des Anniversaires mIRC"
size -1 -1 190 300
option dbu
text "Ajouter un anniversaire :", 1, 5 8 100 17
text "Nom :",2, 5 19 50 10
edit "" 3, 22 17 50 10
text "Date :",4, 80 19 30 10
edit "" 5, 98 17 30 10
button "Ajouter", 6, 140 17 45 10
text "Ex :",7, 5 29 30 10
text "Paul",8, 42 29 30 10
text "07/04",9, 105 29 30 10
box "Liste actuelle",10, 45 40 100 153
text "Cliquez pour sélectionner :",11, 48 50 100 100
list 12, 47 60 96 130, extcel
text "Date :", 13, 55 202 30 99
edit "", 14, 80 200 30 10,read autohs
button "Supprimer",15, 130 200 50 10
button "Vérifier maintenant", 16, 65 220 60 10,
button "Back up",17,30 240 50 10
button "Révision",18,110 240 50 10
button "Réinitialiser",19,30 260 50 10
button "Désactiver",20,110 260 50 10
button "Fermer", 21, 75 280 40 10, cancel
}
on *:dialog:anniv:init:*:{
var %p 1
while (%p <= %nombranniv) {
did -a anniv 12 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32))
inc %p
}
unset %nombranniv
}
on *:dialog:anniv:sclick:6:{
if (($len($did(anniv,3)) > 0) && ($len($did(anniv,5)) == 5) && (($regex($did(anniv,5),[0-9][0-9]\/[0][0-9])) || ($regex($did(anniv,5),[0-9][0-9]\/[1][0-2])))) ajoutanniv $replace($did(anniv,3),$chr(32),_) $did(anniv,5)
elseif (($len($did(anniv,3)) > 0) || ($len($did(anniv,5)) > 0)) dialog -m ajoutanniverror ajoutanniverror
}
dialog ajoutanniverror {
title "Erreur"
size -1 -1 100 40
option dbu
text " Veuillez vérifier la syntaxe de l'anniversaire à ajouter s'il vous plaît.",1,5 5 90 100
button "Continuer",2,25 25 50 10,cancel
}
on *:dialog:anniv:sclick:12:{
did -r anniv 14
if ($eval($did(anniv,12).sel) > 0) did -a anniv 14 $hget(anniv,$calc(3*$eval($did(anniv,12).sel)))
}
on *:dialog:anniv:sclick:15:if ($did(anniv,12).sel > 0) supprimanniv $did(anniv,12).sel
on *:dialog:anniv:sclick:16:verifanniv
on *:dialog:anniv:sclick:17:backupanniv
dialog backupinfo {
title "Info Backup"
size -1 -1 140 40
option dbu
text "Une archive de vos anniversaires actuels a été crée dans c:\anniv\ . Conservez là précieusement.",1,5 5 130 100,center
button "Continuer",2,45 25 50 10,cancel
}
on *:dialog:anniv:sclick:18:dialog -m revisanniv revisanniv
dialog revisanniv {
title "Réviser votre liste d'anniversaire"
size -1 -1 170 60
option dbu
text Pour restaurer votre liste d'anniversaires telle qu'elle l'était à une date ultérieure $+ $chr(44) veuillez renommer votre fichier d'archive par "datanniv.hash" $+ $chr(44) puis remplacer la version existente dans le répertoire principal de mIRC (par défaut c:\Program Files\mIRC) par celle ci. Cliquez ensuite sur ok. ,1,5 5 160 100,center
button "OK",2,60 45 50 10
}
on *:dialog:revisanniv:sclick:2:revisanniv
on *:dialog:anniv:sclick:19:reinitanniv
on *:dialog:anniv:sclick:20:desactivanniv
dialog desactivanniv {
title "Au revoir"
size -1 -1 150 40
option dbu
text "Birthday mIRC Manager a été désactivé. Pour le réactiver, veuillez taper /load -rs <adresse de votre fichier>.",1,0 5 150 100,center
button "ok",2,58 25 30 10,cancel
}
dialog anniv01 {
title "ANNIVERSAIRE !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv0) fête son anniversaire aujourd'hui !! ,1,5 8 190 100,center
button "OK",2,75 25 50 10,cancel
}
dialog anniv02 {
title "ANNIVERSAIRE !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv0) fêtent leur anniversaire aujourd'hui !! ,1,5 5 190 100,center
button "OK",2,75 25 50 10,cancel
}
on *:dialog:anniv0?:sclick:2:unset %anniv0
dialog anniv11 {
title "ANNIVERSAIRE DEMAIN !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv1) fête son anniversaire demain !! ,1,5 8 190 100,center
button "OK",2,75 25 50 10,cancel
}
dialog anniv12 {
title "ANNIVERSAIRE DEMAIN !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv1) fêtent leur anniversaire demain !! ,1,5 5 190 100,center
button "OK",2,75 25 50 10,cancel
}
on *:dialog:anniv1?:sclick:2:unset %anniv1
dialog anniv31 {
title "ANNIVERSAIRE DANS 3 JOURS !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv3) fête son anniversaire dans 3 jours !! ,1,5 8 190 100,center
button "OK",2,75 25 50 10,cancel
}
dialog anniv32 {
title "ANNIVERSAIRE DANS 3 JOURS !!"
size -1 -1 200 40
option dbu
text Attention $+ $chr(44) $eval(%anniv3) fêtent leur anniversaire dans 3 jours !! ,1,5 5 190 100,center
button "OK",2,75 25 50 10,cancel
}
on *:dialog:anniv3?:sclick:2:unset %anniv3
dialog noanniv {
title "PAS D'ANNIVERSAIRE !!"
size -1 -1 200 40
option dbu
text Auncun anniversaire trouvé pour aujourd'hui ou demain ou dans 3 jours... ,1,5 8 190 100,center
button "OK",2,75 25 50 10,cancel
}

;------------------------------------------------------------------------------------------------
; Birthday mIRC Manager version franaise par Galdinx
; galdinx@teepi.net
; http://www.teepi.net
;------------------------------------------------------------------------------------------------



;-------------------------
;;; GESTION DES EVENTS ;;;
;-------------------------

alias F11 { set %nombranniv $hget(anniv,0) | dialog -m anniv anniv }

on 1:start:{ if ((%annivmanager == 1) && (%loadanniv != 1)) {
    .hmake -s anniv 1000
    .hload anniv datanniv.hash
    verifannivauto
    .timerverifanniv 0 21600 verifannivauto
  }
}

on 1:load:{ set %loadanniv 1 | dialog -m presentanniv presentanniv }


alias -l verifannivauto {
  verifanniv3 $left($date,5)
  verifanniv1 $left($date,5)
  verifanniv0 $left($date,5)
  .timerverif 1 3 if (%detectanniv) unset %detectanniv
}

alias -l verifanniv {
  set %detectanniv 3
  verifanniv3 $left($date,5)
  verifanniv1 $left($date,5)
  verifanniv0 $left($date,5)
  .timerverif 1 3 if (%detectanniv) unset %detectanniv
}

;------------------------------
;;; GESTION DES HASH TABLES ;;;
;------------------------------

alias -l ajoutanniv {
  .hinc anniv 0
  var %n $hget(anniv,0)
  .hadd anniv $calc(3*$eval(%n) - 2) %n
  .hadd anniv $calc(3*$eval(%n) - 1) $1
  .hadd anniv $calc(3*$eval(%n)) $2
  .hsave anniv datanniv.hash
  dialog -x anniv anniv
  F11
}

alias -l supprimanniv {
  if ($?!="Etes-vous sur de vouloir supprimer $replace($hget(anniv,$calc(3*$eval($1) - 1)),_,$chr(32)) de la liste des anniversaires ?" == $true) {
    var %n $hget(anniv,0)
    .hadd anniv $calc(3*$eval($1) - 1) $hget(anniv,$calc(3*$eval(%n) - 1))
    .hadd anniv $calc(3*$eval($1)) $hget(anniv,$calc(3*$eval(%n)))
    .hdel anniv $calc(3*$eval(%n) - 2)
    .hdel anniv $calc(3*$eval(%n) - 1)
    .hdel anniv $calc(3*$eval(%n))
    .hdec anniv 0
    .hsave anniv datanniv.hash
    dialog -x anniv anniv
    F11
  }
}

alias -l backupanniv {
  mkdir c:/anniv
  .hsave anniv c:/anniv/archive_anniv_ $+ $eval($replace($date,/,_))
  dialog -m backupinfo backupinfo
}

alias -l revisanniv {
  .hfree -s anniv
  .hmake -s anniv 1000
  .hload anniv datanniv.hash
  dialog -x revisanniv revisanniv
  dialog -x anniv anniv
  F11
}

alias -l reinitanniv {
  if ($?!="Etes-vous sur de vouloir réinitialiser la liste de vos anniversaires ?" == $true) {
    .hfree -s anniv
    .hmake -s anniv 1000
    .hadd anniv 0 0
    dialog -x anniv anniv
    F11
  }
}

alias -l desactivanniv {
  if ($?!="Etes-vous sur de vouloir désactiver Birthday mIRC Manager ?" == $true) {
    unset %annivmanager
    .hfree -s anniv
    .remove datanniv.hash
    dialog -x anniv anniv
    dialog -m desactivanniv desactivanniv
  }
}

alias -l verifanniv0 {
  var %p 1
  var %n 0
  while (%p <= $hget(anniv,0)) {
    if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
      set %anniv0 %anniv0 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
      inc %n
    }
    inc %p
  }
  if (%anniv0) set %anniv0 $left(%anniv0,$calc($len($eval(%anniv0)) - 3))
  if (%n > 1) dialog -m anniv02 anniv02
  elseif (%n == 1) dialog -m anniv01 anniv01
  elseif (%n == 0) { 
    set %detectanniv $calc($eval(%detectanniv) - 1)
    if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
  }
}

alias -l verifanniv1 {
  if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
    var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
    if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
    verifanniv12 %q
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
    verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
    verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif ($1 == 31/01) verifanniv12 01/02
  elseif ($1 == 31/03) verifanniv12 01/04
  elseif ($1 == 30/04) verifanniv12 01/05
  elseif ($1 == 31/05) verifanniv12 01/06
  elseif ($1 == 30/06) verifanniv12 01/07
  elseif ($1 == 31/07) verifanniv12 01/08
  elseif ($1 == 31/08) verifanniv12 01/09
  elseif ($1 == 30/09) verifanniv12 01/10
  elseif ($1 == 31/10) verifanniv12 01/11
  elseif ($1 == 30/11) verifanniv12 01/12
  elseif ($1 == 31/12) verifanniv12 01/01
  elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv12 01/03
  elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv12 29/02
  elseif ($1 == 29/02) verifanniv12 01/03
}

alias -l verifanniv12 {
  var %p 1
  var %n 0
  while (%p <= $hget(anniv,0)) {
    if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
      set %anniv1 %anniv1 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
      inc %n
    }
    inc %p
  }
  if (%anniv1) set %anniv1 $left(%anniv1,$calc($len($eval(%anniv1)) - 3))
  if (%n > 1) dialog -m anniv12 anniv12
  elseif (%n == 1) dialog -m anniv11 anniv11
  elseif (%n == 0) { 
    set %detectanniv $calc($eval(%detectanniv) - 1)
    if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
  }
}

alias -l verifanniv3 {
  if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
    var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
    if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
    verifanniv32 %q
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
    verifanniv32 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
    verifanniv32 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif ($1 == 31/01) verifanniv32 01/02
  elseif ($1 == 31/03) verifanniv32 01/04
  elseif ($1 == 30/04) verifanniv32 01/05
  elseif ($1 == 31/05) verifanniv32 01/06
  elseif ($1 == 30/06) verifanniv32 01/07
  elseif ($1 == 31/07) verifanniv32 01/08
  elseif ($1 == 31/08) verifanniv32 01/09
  elseif ($1 == 30/09) verifanniv32 01/10
  elseif ($1 == 31/10) verifanniv32 01/11
  elseif ($1 == 30/11) verifanniv32 01/12
  elseif ($1 == 31/12) verifanniv32 01/01
  elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv32 01/03
  elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv32 29/02
  elseif ($1 == 29/02) verifanniv32 01/03
}

alias -l verifanniv32 {
  if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
    var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
    if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
    verifanniv33 %q
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
    verifanniv12 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
    verifanniv33 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif ($1 == 31/01) verifanniv33 01/02
  elseif ($1 == 31/03) verifanniv33 01/04
  elseif ($1 == 30/04) verifanniv33 01/05
  elseif ($1 == 31/05) verifanniv33 01/06
  elseif ($1 == 30/06) verifanniv33 01/07
  elseif ($1 == 31/07) verifanniv33 01/08
  elseif ($1 == 31/08) verifanniv33 01/09
  elseif ($1 == 30/09) verifanniv33 01/10
  elseif ($1 == 31/10) verifanniv33 01/11
  elseif ($1 == 30/11) verifanniv33 01/12
  elseif ($1 == 31/12) verifanniv33 01/01
  elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv33 01/03
  elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv33 29/02
  elseif ($1 == 29/02) verifanniv33 01/03
}


alias -l verifanniv33 {
  if (($left($1,2) >= 1) && ($left($1,2) < 28)) {
    var %q $+($calc($eval($left($1,2)) + 1),$right($1,3))
    if ($len($eval(%q)) == 4) var %q = 0 $+ $eval(%q)
    verifanniv34 %q
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 31) && (($eval($right($1,2)) == 1) || ($eval($right($1,2)) == 3) || ($eval($right($1,2)) == 5) || ($eval($right($1,2)) == 7) || ($eval($right($1,2)) == 8) || ($eval($right($1,2)) == 10) || ($eval($right($1,2)) == 12))) {
    verifanniv34 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif (($left($1,2) >= 28) && ($left($1,2) < 30) && (($eval($right($1,2)) == 4) || ($eval($right($1,2)) == 6) || ($eval($right($1,2)) == 9) || ($eval($right($1,2)) == 11))) {
    verifanniv34 $+($calc($eval($left($1,2)) + 1),$right($1,3))
  }
  elseif ($1 == 31/01) verifanniv34 01/02
  elseif ($1 == 31/03) verifanniv34 01/04
  elseif ($1 == 30/04) verifanniv34 01/05
  elseif ($1 == 31/05) verifanniv34 01/06
  elseif ($1 == 30/06) verifanniv34 01/07
  elseif ($1 == 31/07) verifanniv34 01/08
  elseif ($1 == 31/08) verifanniv34 01/09
  elseif ($1 == 30/09) verifanniv34 01/10
  elseif ($1 == 31/10) verifanniv34 01/11
  elseif ($1 == 30/11) verifanniv34 01/12
  elseif ($1 == 31/12) verifanniv34 01/01
  elseif (($1 == 28/02) && (4 \\ $right($date,4))) verifanniv34 01/03
  elseif (($1 == 28/02) && (4 // $right($date,4))) verifanniv34 29/02
  elseif ($1 == 29/02) verifanniv34 01/03
}

alias -l verifanniv34 {
  var %p 1
  var %n 0
  while (%p <= $hget(anniv,0)) {
    if ($hget(anniv,$calc(3*$eval(%p))) == $1) {
      set %anniv3 %anniv3 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32)) et
      inc %n
    }
    inc %p
  }
  if (%anniv3) set %anniv3 $left(%anniv3,$calc($len($eval(%anniv3)) - 3))
  if (%n > 1) dialog -m anniv32 anniv32
  elseif (%n == 1) dialog -m anniv31 anniv31
  elseif (%n == 0) { 
    set %detectanniv $calc($eval(%detectanniv) - 1)
    if (%detectanniv == 0) { unset %detectanniv | dialog -m noanniv noanniv }
  }
}


;--------------------------
;;; GESTION DES DIALOGS ;;;
;--------------------------

dialog presentanniv {
  title "Gestionnaire des Anniversaires mIRC"
  size -1 -1 180 60
  option dbu
  text "Bienvenue sur le Birthday mIRC Manager version française par Galdinx.",1,0 5 180 100,center
  text "Retrouvez-moi sur irc.teepi.net.",2,0 15 180 100,center
  text "Pour accéder aux fonctionnalités du script, cliquez désormais sur F11.",3,0 25 180 100,center
  button "Continuer",4,67 40 50 10
}

on *:dialog:presentanniv:init:*:{
  set %annivmanager 1
  .hmake -s anniv 1000
  .hsave anniv datanniv.hash
}

on *:dialog:presentanniv:sclick:4:{
  .hadd anniv 0 0
  .hsave anniv datanniv.hash
  unset %loadanniv
  dialog -x presentanniv presentanniv
  F11
}


dialog anniv {
  title "Gestionnaire des Anniversaires mIRC"
  size -1 -1 190 300
  option dbu
  text "Ajouter un anniversaire :", 1, 5 8 100 17
  text "Nom :",2, 5 19 50 10
  edit "" 3, 22 17 50 10
  text "Date :",4, 80 19 30 10
  edit "" 5, 98 17 30 10
  button "Ajouter", 6, 140 17 45 10
  text "Ex :",7, 5 29 30 10
  text "Paul",8, 42 29 30 10
  text "07/04",9, 105 29 30 10
  box "Liste actuelle",10, 45 40 100 153
  text "Cliquez pour sélectionner :",11, 48 50 100 100
  list 12, 47 60 96 130, extcel
  text "Date :", 13, 55 202 30 99
  edit "", 14, 80 200 30 10,read autohs
  button "Supprimer",15, 130 200 50 10
  button "Vérifier maintenant", 16, 65 220 60 10,
  button "Back up",17,30 240 50 10
  button "Révision",18,110 240 50 10
  button "Réinitialiser",19,30 260 50 10
  button "Désactiver",20,110 260 50 10
  button "Fermer", 21, 75 280 40 10, cancel
}

on *:dialog:anniv:init:*:{
  var %p 1
  while (%p <= %nombranniv) {
    did -a anniv 12 $replace($hget(anniv,$calc(3*$eval(%p) - 1)),_,$chr(32))
    inc %p
  }
  unset %nombranniv
}

on *:dialog:anniv:sclick:6:{
  if (($len($did(anniv,3)) > 0) && ($len($did(anniv,5)) == 5) && (($regex($did(anniv,5),[0-9][0-9]\/[0][0-9])) || ($regex($did(anniv,5),[0-9][0-9]\/[1][0-2])))) ajoutanniv $replace($did(anniv,3),$chr(32),_) $did(anniv,5)
  elseif (($len($did(anniv,3)) > 0) || ($len($did(anniv,5)) > 0)) dialog -m ajoutanniverror ajoutanniverror 
}

dialog ajoutanniverror {
  title "Erreur"
  size -1 -1 100 40
  option dbu
  text "      Veuillez vérifier la syntaxe de l'anniversaire à ajouter s'il vous plaît.",1,5 5 90 100
  button "Continuer",2,25 25 50 10,cancel
}

on *:dialog:anniv:sclick:12:{
  did -r anniv 14
  if ($eval($did(anniv,12).sel) > 0) did -a anniv 14 $hget(anniv,$calc(3*$eval($did(anniv,12).sel)))
}

on *:dialog:anniv:sclick:15:if ($did(anniv,12).sel > 0) supprimanniv $did(anniv,12).sel

on *:dialog:anniv:sclick:16:verifanniv

on *:dialog:anniv:sclick:17:backupanniv

dialog backupinfo {
  title "Info Backup"
  size -1 -1 140 40
  option dbu
  text "Une archive de vos anniversaires actuels a été crée dans c:\anniv\ . Conservez là précieusement.",1,5 5 130 100,center
  button "Continuer",2,45 25 50 10,cancel
}

on *:dialog:anniv:sclick:18:dialog -m revisanniv revisanniv

dialog revisanniv {
  title "Réviser votre liste d'anniversaire"
  size -1 -1 170 60
  option dbu
  text Pour restaurer votre liste d'anniversaires telle qu'elle l'était à une date ultérieure $+ $chr(44) veuillez renommer votre fichier d'archive par "datanniv.hash" $+ $chr(44) puis remplacer la version existente dans le répertoire principal de mIRC (par défaut c:\Program Files\mIRC) par celle ci. Cliquez ensuite sur ok. ,1,5 5 160 100,center
  button "OK",2,60 45 50 10
}

on *:dialog:revisanniv:sclick:2:revisanniv

on *:dialog:anniv:sclick:19:reinitanniv

on *:dialog:anniv:sclick:20:desactivanniv

dialog desactivanniv {
  title "Au revoir"
  size -1 -1 150 40
  option dbu
  text "Birthday mIRC Manager a été désactivé. Pour le réactiver, veuillez taper /load -rs <adresse de votre fichier>.",1,0 5 150 100,center
  button "ok",2,58 25 30 10,cancel
}

dialog anniv01 {
  title "ANNIVERSAIRE !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv0) fête son anniversaire aujourd'hui !! ,1,5 8 190 100,center
  button "OK",2,75 25 50 10,cancel
}

dialog anniv02 {
  title "ANNIVERSAIRE !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv0) fêtent leur anniversaire aujourd'hui !! ,1,5 5 190 100,center
  button "OK",2,75 25 50 10,cancel
}

on *:dialog:anniv0?:sclick:2:unset %anniv0 

dialog anniv11 {
  title "ANNIVERSAIRE DEMAIN !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv1) fête son anniversaire demain !! ,1,5 8 190 100,center
  button "OK",2,75 25 50 10,cancel
}

dialog anniv12 {
  title "ANNIVERSAIRE DEMAIN !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv1) fêtent leur anniversaire demain !! ,1,5 5 190 100,center
  button "OK",2,75 25 50 10,cancel
}

on *:dialog:anniv1?:sclick:2:unset %anniv1 

dialog anniv31 {
  title "ANNIVERSAIRE DANS 3 JOURS !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv3) fête son anniversaire dans 3 jours !! ,1,5 8 190 100,center
  button "OK",2,75 25 50 10,cancel
}

dialog anniv32 {
  title "ANNIVERSAIRE DANS 3 JOURS !!"
  size -1 -1 200 40
  option dbu
  text Attention $+ $chr(44) $eval(%anniv3) fêtent leur anniversaire dans 3 jours !! ,1,5 5 190 100,center
  button "OK",2,75 25 50 10,cancel
}

on *:dialog:anniv3?:sclick:2:unset %anniv3 


dialog noanniv {
  title "PAS D'ANNIVERSAIRE !!"
  size -1 -1 200 40
  option dbu
  text Auncun anniversaire trouvé pour aujourd'hui ou demain ou dans 3 jours... ,1,5 8 190 100,center
  button "OK",2,75 25 50 10,cancel
}

Conclusion

Pas de commentaire, le script est simple, il se comprend aisément sans.
Pas de bugs connus, cela gère les années bissextiles et tout (en revanche si vous en trouvez prévenez moi vite)
Pas d'évolution prévue tant que pas de commentaires sur son fonctionnement.
Pour les (rares) utilisateurs du Teepi-Script, pour le serveur irc.teepi.net, un executable adapté au Teepi-Script est en ligne : http://teepi.net/l/ts

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

anniv.mrc 16 312 octets

Télécharger le zip

Historique

07 février 2007 09:18:50 :: La j'ai juste changer d'éditeur de texte pour éviter toutes ces lignes sautées inutilement.
08 février 2007 20:25:02 :: Code source ajouté en fichier join
08 février 2007 20:54:06 :: ajout d'un screen-shot + correction petite faute d'orthographe
08 février 2007 20:57:54 :: je sais pas pourquoi mis ca n'a pas marché au coup précédent donc je réajoute le screen-shot
05 mai 2007 14:04:20 :: correction d'un bug minime
05 mai 2007 15:02:16 :: correction du bug précédent dans le zip

Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

DARKPROJECT - SCRIPT MIRC par Artwerks

LECTEUR DE RSS par ouroumov

NITR0`SCRIPT par juju3737

MÉLANGEUR DE MOT par Kentix

SIMPLE QUIZZ par Kentix

Commentaires et avis

Commentaire de sokotanic le 07/02/2007 10:29:21

bonjour
ton script est genial, je demande si il a un tutorial pour les nuls comme moi , pour apprendre le script mirc , merci.

Commentaire de Tek Hi le 08/02/2007 19:58:25

Salut, j'ai trouver non pas un bug mais plutôt des fautes de frappe quand on lance pour la première fois ton addon, j'ai fais un screen :

http://img443.imageshack.us/img443/2228/sanstitrezm2.jpg

Commentaire de galdinx le 08/02/2007 20:29:55

Tek Hi,
Effectivement, on m'a signalé les fautes d'orthographes ; pour l'explication j'ai fait un copier coller malheureux sous linux (que je ne maitrise pas ptres bien) et qui m'a supprimé tous les accents ; j'ai cependant corrigé ce bug depuis aussi bien dans la source que dans le fichier join.

Sokotanic,
Je n'ai que l'aide de mirc (fournie avec le logiciel) pour faire mes scripts, après on apprend en s'entrainant. Je n'ai pas de tutoriaux à te fournir.

Commentaire de Tek Hi le 08/02/2007 21:39:16

Sokotanic il existe un tuto intégralement en Français, tapes dans Google
"La bible du mIRC par dunkelzahn" tu va trouver facilement ;)
(Si je ne met pas de lien c'est pour ne pas faire de pub)

Commentaire de wims le 09/02/2007 20:58:37

Sauf que en donnant le lien, tu vas l'aider plutot que faire de la pub : http://www.scriptsdb.org/comments.php?id=779

Commentaire de MJ92 le 23/02/2007 22:00:06

Ce script est pas mal en dialog. C'est toujours mieux qu'aucun dialog et de le configurer en On Start. Enfin chacun ses goûts.
Par contre, ce que je trouve dommage c'est de mobiliser une touche F pour le code, un simple alias aurait suffit. (Je pense à ceux qui ont des raccourcis pour kick, message ou changement de pseudo avec les touches F).

Bonne continuation,

Commentaire de wims le 28/02/2007 03:43:15

Je viens de voir dans le code des trucs comme :
.hfree -s anniv
.hmake -s anniv 1000

Faudrait m'expliquer comment on peut arriver a écrire ce genre de code car le . est la pour accomplir une commande silencieuse ( pas de message de retour pour une erreur ou autre ) et la commande -s permet d'afficher un echo dans la fenetre active de ce que l'on viens de faire.Le point annule le -s.

Commentaire de galdinx le 28/02/2007 12:16:37

WIMS : L'habitude de mettre un -s pour voir le resultat quand je programme et le point pour supprimer cette action lorsque mon programme est fini.

MJ92 : Pour la touche f11, il suffit de changer l'alias (ce qui prend environ 30s avec la commande remplacer) ;
Je suis par ailleur coscripteur du Teepi-Script qui n'utilisait pas la touche f11 ; c'est pour ca que mon choix s'est porte vers elle...

Commentaire de MJ92 le 28/02/2007 13:41:57

Oui je sais Galdinx qu'il faut changer uniquement la commande :|
Mais si tu donnes une source pour qu'on la modifie, autant la faire nous-même ;)

Commentaire de wims le 28/02/2007 20:21:56

"WIMS : L'habitude de mettre un -s pour voir le resultat quand je programme"

ça je veux bien et c'est bien mais "le point pour supprimer cette action lorsque mon programme est fini."

Je l'ai dis dans l'ancien post, le point sert a effectuer un action silencieuse, cad que aucun msg de retour ne sera montré s'il y en a du genre les msg par default de mirc, il me semble que la commande /echo est aussi affecté

Tu croyais que le point servait a quoi ?

Commentaire de galdinx le 01/03/2007 12:12:25

MJ92 : le script est fonctionnel donc je l'ai mis en ligne, apres si la touche f11 te gene il ne faut pas le modifier mais seulement l'adapter a ton script :p

WIMS : je sais tres bien a quoi sert le point mais je l'ai mis machinalement a la fin du script en meme temps que je le mets sur mes timer et autres commandes qui affichent ; effectivement il eut été plus propre de simplement enlever les -s mais comme je te l'ai dit j'ai fait ca machinalement...

Commentaire de wims le 01/03/2007 22:30:50

ok :) disons que machinalement, quand je met des -s je les enlève ainsi que les echos ;)

Commentaire de MJ92 le 08/03/2007 12:27:26

Lol ouais, j'adapte les sources à ma façon, mais bon, c'était pas pour moi, je parlais pour beaucoup de personnes, rien de plus Galdinx :p et j'ai dit que c'était pas mal deja :) "Ce script est pas mal en dialog. C'est toujours mieux qu'aucun dialog et de le configurer en On Start. Enfin chacun ses goûts."

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Adresse ip sous mirc [ par cuba1393 ] Bonjour a tousVoila mon probleme:je desire recupérer l'adresse ip des personnes présentes sur le chan et l'écrire dans un fichier avec le nickje pense Help : commande pour que mIRC n'interprète pas les variables [ par grmbl ] Je cherche un moyen pour que quand je fasse un echo $2 (par exemple) ça affiche $2 au lieu du param... Le coup du $chr(36) ça marche pas parce qu'aprè téléchargement de fichier sur un site via mirc [ par CyberPunk2020 ] Voila je désire transferer les fichiers se trouvant sur un site par mirc et sans confirmation (puisque je la gere déjà) est-ce que quelqu'un sait comm Question [ par KhronoS ] Salut,J'aimerais savoir si il existe un addon pour la configuration de mirc, ce que je veux dire : ( Dans mirc : juste avant "File" ya une icon en for theme mirc [ par KhronoS ] Salut,Est-ce que quelqu'un saurait où trouver un aide en francais pour les themes de mirc.. surtout les codes de couleurs, mais finalement un aide com autovoice sous mirc [ par speeder ] Soriez-vous comment faire un auto voice sous mirc a partir du moment ou un user a entré un certain nombre de lignes, mots, ou phrase svp ?? OH?mIRC me parle..ki me parle? [ par YoSkATeR ] tien aufait il parai kon peu faire parler notre chere mIRC et oui ouide plus g deja vu mon pc me parler kan g utilisé "sub7"mais seulement g pas testé Ki me Parle????...mon mIRC?? fuck da shit mdrr [ par YoSkATeR ] tien aufait il parai kon peu faire parler notre chere mIRC et oui ouide plus g deja vu mon pc me parler kan g utilisé "sub7"mais seulement g pas testé icone de la toolbar [ par MecModeKiller ] Salutje débute alors si jpose d kestion con fo pa m'en vouloirjvoudré savoir la dll et la commande kil fo pour changé lé icone de la toolbar d'un mirc Design [ par MecModeKiller ] Salutje cherche un truc qui pouré faire de mon script un script vrément diférent d otre mirc ki se ressemble tous vrément troil y oré pa une dll ou un

Nos sponsors

Derniers Blogs

[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey

VIVE LES MOCKS ET LES POCOS par vLabz

[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson

DéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONS par Pi-R

IPHONE VERSUS WP7 CODING par Nicolas

Forum

RE : NOUVEAU SERVEUR IRC CHERCHE IRCOPS par ptifou123

RE : BOT DE SCRABBLE SUR IRC par FloAvril

BESOIN D'AIDE SVP par bux945

RE : BOT DE SCRABBLE SUR IRC par RubenxD

UNREAL ANOPE LINK DOCUMENTATION SERVER TCHAT par snip74

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Modifications site institutionnel EZ Publish - republication
Budget : 2 000€
URGENT Conversion adresse coordonn?es GPS Excel
Budget : 500€
Realisations videos publicite Commerces France
Budget : 200 000€

Logiciels

Academy System (12.0.2.0)
ACADEMY SYSTEM (12.0.2.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft iPod Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPOD VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Xilisoft iPod Vidéo Convertisseur est un outil puissant de conversion d'iPod, facile à utiliser. ...

Cliquez pour télécharger Xilisoft iPod Vidéo Convertisseur 6
Xilisoft iPhone Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPHONE VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Xilisoft iPhone Vidéo Convertisseur est le meilleur logiciel de conversion iPhone qui peut facile...

Cliquez pour télécharger Xilisoft iPhone Vidéo Convertisseur 6
Xilisoft iPad Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPAD VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Il s'agit d'un logiciel polyvalent pour convertir les formats vidéo/audio populaires en formats p...

Cliquez pour télécharger Xilisoft iPad Vidéo Convertisseur 6
Xilisoft HD Vidéo Convertisseur 6 (6.0.3.0421)
XILISOFT HD VIDéO CONVERTISSEUR 6 (6.0.3.0421)

Xilisoft HD Vidéo Convertisseur est un outil professionnel de conversion HDTV, conçu pour transfo...

Cliquez pour télécharger Xilisoft HD Vidéo Convertisseur 6