Notice messenger \!!!!!!!!!!!!!!!!!!! vous n'en reviendrez pas…

Contenu du snippet

Le voici ENFIN ! Cet utilitaire révolutionnaire, incroyable, le Notice Messenger ! Avec le Notice Messenger vous pourrez vous envoyer des messages, gérer votre liste de messages et votre liste de contacts. Vous pourrez vérifier si un contact est connecté et avec son Notice Messenger juste en cliauqnt sur un bouton, biper le contact, l'inviter etc... Vous pourrez également bloquer un contact de manière qu'il ne puisse plus vous envoyer de messages, vous biper ou vérifier si vous êtes connecté. Avec sa simplicité d'utilisation, son sender très réussi, sa liste de bannis, le Notice Messenger devient l'outil de communication que toute personne qui de respecte devrait avoir.
Maintenant, pour vous laisser profiter de la merveille, je vais vous expliquer comment le configurer pour qu'il fonctionne. Ne vous inquitétez pas, c'est tres facile. Une fois le code chargé dans mIRC, tapez /noticemessenger et il s'ouvre. Allez dans options > configuration, et définissez votre fichier de stockage des messages et le son que vous voulez entendre si l'on vous bipe. Une fois ces paramàtres définis, c'est parti ! Vous êtes pret à recevoir des messages des autres utilisateurs du Notice Messenger et d'envoyer, etc... Profiter pleinement de ce magnifique outil quoi :)
Parlez-en à vos amis, vos proches pour qu'il y ait de plus en plus de monde à avoir ce logiciel.

Source / Exemple :

alias noticemessenger {
  /dialog -md noticemessenger noticemessenger
}

dialog noticemessenger {
  title "Notice messenger"
  size 310 235 279 285
  option dbu
  menu "Fichier", 1
  item "Effacer tous les messages", 4, 1
  item "Liste de contacts", 5, 1
  item "Liste des bannis", 6, 1
  item "Rédiger messages", 15, 1
  item "Quitter", 20, 1
  menu "Options", 18
  item "Configuration", 19, 18
  box "", 10, 0 190 279 75
  list 7, 1 0 276 186, hsbar vsbar size
  text "Je désire...", 8, 3 195 28 6
  button "Effacer le message selectionné", 9, 1 204 276 9
  button "Effacer tous les messages", 11, 1 213 276 9
  button "Voir ma liste des bannis", 12, 1 222 276 9
  button "Voir ma liste de contacts", 13, 1 231 276 9
  button "Quitter Notice Messenger", 14, 1 249 276 9, cancel
  text "Créé par G-FACTION", 3, 63 267 52 6
  link "inutile@yahoo.fr", 16, 174 267 90 13
  text ":)", 17, 139 267 9 6
  button "Rédiger messages", 21, 1 240 276 9
}

alias actualiser {
  did -a noticemessenger 7 $read(%liste,1)
  did -a noticemessenger 7 $read(%liste,2)
  did -a noticemessenger 7 $read(%liste,3)
  did -a noticemessenger 7 $read(%liste,4)
  did -a noticemessenger 7 $read(%liste,5)
  did -a noticemessenger 7 $read(%liste,6)
  did -a noticemessenger 7 $read(%liste,7)
  did -a noticemessenger 7 $read(%liste,8)
  did -a noticemessenger 7 $read(%liste,9)
  did -a noticemessenger 7 $read(%liste,10)
  did -a noticemessenger 7 $read(%liste,11)
  did -a noticemessenger 7 $read(%liste,12)
  did -a noticemessenger 7 $read(%liste,13)
  did -a noticemessenger 7 $read(%liste,14)
  did -a noticemessenger 7 $read(%liste,15)
  did -a noticemessenger 7 $read(%liste,16)
  did -a noticemessenger 7 $read(%liste,17)
  did -a noticemessenger 7 $read(%liste,18)
  did -a noticemessenger 7 $read(%liste,19)
  did -a noticemessenger 7 $read(%liste,20)
  did -a noticemessenger 7 $read(%liste,21)
  did -a noticemessenger 7 $read(%liste,22)
  did -a noticemessenger 7 $read(%liste,23)
  did -a noticemessenger 7 $read(%liste,24)
  did -a noticemessenger 7 $read(%liste,25)
  did -a noticemessenger 7 $read(%liste,26)
  did -a noticemessenger 7 $read(%liste,27)
  did -a noticemessenger 7 $read(%liste,28)
  did -a noticemessenger 7 $read(%liste,29)
  did -a noticemessenger 7 $read(%liste,30)
  did -a noticemessenger 7 $read(%liste,31)
  did -a noticemessenger 7 $read(%liste,32)
  did -a noticemessenger 7 $read(%liste,33)
  did -a noticemessenger 7 $read(%liste,34)
  did -a noticemessenger 7 $read(%liste,35)
  did -a noticemessenger 7 $read(%liste,36)
  did -a noticemessenger 7 $read(%liste,37)
  did -a noticemessenger 7 $read(%liste,38)
  did -a noticemessenger 7 $read(%liste,39)
  did -a noticemessenger 7 $read(%liste,40)
  did -a noticemessenger 7 $read(%liste,41)
  did -a noticemessenger 7 $read(%liste,42)
  did -a noticemessenger 7 $read(%liste,43)
  did -a noticemessenger 7 $read(%liste,44)
  did -a noticemessenger 7 $read(%liste,45)
  did -a noticemessenger 7 $read(%liste,46)
  did -a noticemessenger 7 $read(%liste,47)
  did -a noticemessenger 7 $read(%liste,48)
  did -a noticemessenger 7 $read(%liste,49)
  did -a noticemessenger 7 $read(%liste,50)
  did -a noticemessenger 7 $read(%liste,51)
  did -a noticemessenger 7 $read(%liste,52)
  did -a noticemessenger 7 $read(%liste,53)
  did -a noticemessenger 7 $read(%liste,54)
  did -a noticemessenger 7 $read(%liste,55)
  did -a noticemessenger 7 $read(%liste,56)
  did -a noticemessenger 7 $read(%liste,57)
  did -a noticemessenger 7 $read(%liste,58)
  did -a noticemessenger 7 $read(%liste,59)
  did -a noticemessenger 7 $read(%liste,60)
  did -a noticemessenger 7 $read(%liste,61)
  did -a noticemessenger 7 $read(%liste,62)
  did -a noticemessenger 7 $read(%liste,63)
  did -a noticemessenger 7 $read(%liste,64)
  did -a noticemessenger 7 $read(%liste,65)
  did -a noticemessenger 7 $read(%liste,66)
  did -a noticemessenger 7 $read(%liste,67)
  did -a noticemessenger 7 $read(%liste,68)
  did -a noticemessenger 7 $read(%liste,69)
  did -a noticemessenger 7 $read(%liste,70)
  did -a noticemessenger 7 $read(%liste,71)
  did -a noticemessenger 7 $read(%liste,72)
  did -a noticemessenger 7 $read(%liste,73)
  did -a noticemessenger 7 $read(%liste,74)
  did -a noticemessenger 7 $read(%liste,75)
  did -a noticemessenger 7 $read(%liste,76)
  did -a noticemessenger 7 $read(%liste,77)
  did -a noticemessenger 7 $read(%liste,78)
  did -a noticemessenger 7 $read(%liste,79)
  did -a noticemessenger 7 $read(%liste,80)
  did -a noticemessenger 7 $read(%liste,81)
  did -a noticemessenger 7 $read(%liste,82)
  did -a noticemessenger 7 $read(%liste,83)
  did -a noticemessenger 7 $read(%liste,84)
  did -a noticemessenger 7 $read(%liste,85)
  did -a noticemessenger 7 $read(%liste,86)
  did -a noticemessenger 7 $read(%liste,87)
  did -a noticemessenger 7 $read(%liste,88)
  did -a noticemessenger 7 $read(%liste,89)
  did -a noticemessenger 7 $read(%liste,90)
  did -a noticemessenger 7 $read(%liste,91)
  did -a noticemessenger 7 $read(%liste,92)
  did -a noticemessenger 7 $read(%liste,93)
  did -a noticemessenger 7 $read(%liste,94)
  did -a noticemessenger 7 $read(%liste,95)
  did -a noticemessenger 7 $read(%liste,96)
  did -a noticemessenger 7 $read(%liste,97)
  did -a noticemessenger 7 $read(%liste,98)
  did -a noticemessenger 7 $read(%liste,99)
  did -a noticemessenger 7 $read(%liste,100)
}

alias bannedlist {
  //echo $dialog(noticemsgrbanned,noticemsgrbanned,-4)
}

alias contactlist {
  //echo $dialog(noticemsgrcontacts,noticemsgrcontacts,-4)
}

alias msgrconfig {
  //echo $dialog(noticemsgrconfig,noticemsgrconfig,-4)
}

alias redigmsg {
  //echo $dialog(noticemsgrredig,noticemsgrredig,-4)
}

on *:dialog:noticemessenger:init:0:{
  did -a noticemessenger 7 $read(%liste,1)
  did -a noticemessenger 7 $read(%liste,2)
  did -a noticemessenger 7 $read(%liste,3)
  did -a noticemessenger 7 $read(%liste,4)
  did -a noticemessenger 7 $read(%liste,5)
  did -a noticemessenger 7 $read(%liste,6)
  did -a noticemessenger 7 $read(%liste,7)
  did -a noticemessenger 7 $read(%liste,8)
  did -a noticemessenger 7 $read(%liste,9)
  did -a noticemessenger 7 $read(%liste,10)
  did -a noticemessenger 7 $read(%liste,11)
  did -a noticemessenger 7 $read(%liste,12)
  did -a noticemessenger 7 $read(%liste,13)
  did -a noticemessenger 7 $read(%liste,14)
  did -a noticemessenger 7 $read(%liste,15)
  did -a noticemessenger 7 $read(%liste,16)
  did -a noticemessenger 7 $read(%liste,17)
  did -a noticemessenger 7 $read(%liste,18)
  did -a noticemessenger 7 $read(%liste,19)
  did -a noticemessenger 7 $read(%liste,20)
  did -a noticemessenger 7 $read(%liste,21)
  did -a noticemessenger 7 $read(%liste,22)
  did -a noticemessenger 7 $read(%liste,23)
  did -a noticemessenger 7 $read(%liste,24)
  did -a noticemessenger 7 $read(%liste,25)
  did -a noticemessenger 7 $read(%liste,26)
  did -a noticemessenger 7 $read(%liste,27)
  did -a noticemessenger 7 $read(%liste,28)
  did -a noticemessenger 7 $read(%liste,29)
  did -a noticemessenger 7 $read(%liste,30)
  did -a noticemessenger 7 $read(%liste,31)
  did -a noticemessenger 7 $read(%liste,32)
  did -a noticemessenger 7 $read(%liste,33)
  did -a noticemessenger 7 $read(%liste,34)
  did -a noticemessenger 7 $read(%liste,35)
  did -a noticemessenger 7 $read(%liste,36)
  did -a noticemessenger 7 $read(%liste,37)
  did -a noticemessenger 7 $read(%liste,38)
  did -a noticemessenger 7 $read(%liste,39)
  did -a noticemessenger 7 $read(%liste,40)
  did -a noticemessenger 7 $read(%liste,41)
  did -a noticemessenger 7 $read(%liste,42)
  did -a noticemessenger 7 $read(%liste,43)
  did -a noticemessenger 7 $read(%liste,44)
  did -a noticemessenger 7 $read(%liste,45)
  did -a noticemessenger 7 $read(%liste,46)
  did -a noticemessenger 7 $read(%liste,47)
  did -a noticemessenger 7 $read(%liste,48)
  did -a noticemessenger 7 $read(%liste,49)
  did -a noticemessenger 7 $read(%liste,50)
  did -a noticemessenger 7 $read(%liste,51)
  did -a noticemessenger 7 $read(%liste,52)
  did -a noticemessenger 7 $read(%liste,53)
  did -a noticemessenger 7 $read(%liste,54)
  did -a noticemessenger 7 $read(%liste,55)
  did -a noticemessenger 7 $read(%liste,56)
  did -a noticemessenger 7 $read(%liste,57)
  did -a noticemessenger 7 $read(%liste,58)
  did -a noticemessenger 7 $read(%liste,59)
  did -a noticemessenger 7 $read(%liste,60)
  did -a noticemessenger 7 $read(%liste,61)
  did -a noticemessenger 7 $read(%liste,62)
  did -a noticemessenger 7 $read(%liste,63)
  did -a noticemessenger 7 $read(%liste,64)
  did -a noticemessenger 7 $read(%liste,65)
  did -a noticemessenger 7 $read(%liste,66)
  did -a noticemessenger 7 $read(%liste,67)
  did -a noticemessenger 7 $read(%liste,68)
  did -a noticemessenger 7 $read(%liste,69)
  did -a noticemessenger 7 $read(%liste,70)
  did -a noticemessenger 7 $read(%liste,71)
  did -a noticemessenger 7 $read(%liste,72)
  did -a noticemessenger 7 $read(%liste,73)
  did -a noticemessenger 7 $read(%liste,74)
  did -a noticemessenger 7 $read(%liste,75)
  did -a noticemessenger 7 $read(%liste,76)
  did -a noticemessenger 7 $read(%liste,77)
  did -a noticemessenger 7 $read(%liste,78)
  did -a noticemessenger 7 $read(%liste,79)
  did -a noticemessenger 7 $read(%liste,80)
  did -a noticemessenger 7 $read(%liste,81)
  did -a noticemessenger 7 $read(%liste,82)
  did -a noticemessenger 7 $read(%liste,83)
  did -a noticemessenger 7 $read(%liste,84)
  did -a noticemessenger 7 $read(%liste,85)
  did -a noticemessenger 7 $read(%liste,86)
  did -a noticemessenger 7 $read(%liste,87)
  did -a noticemessenger 7 $read(%liste,88)
  did -a noticemessenger 7 $read(%liste,89)
  did -a noticemessenger 7 $read(%liste,90)
  did -a noticemessenger 7 $read(%liste,91)
  did -a noticemessenger 7 $read(%liste,92)
  did -a noticemessenger 7 $read(%liste,93)
  did -a noticemessenger 7 $read(%liste,94)
  did -a noticemessenger 7 $read(%liste,95)
  did -a noticemessenger 7 $read(%liste,96)
  did -a noticemessenger 7 $read(%liste,97)
  did -a noticemessenger 7 $read(%liste,98)
  did -a noticemessenger 7 $read(%liste,99)
  did -a noticemessenger 7 $read(%liste,100)
  did -z noticemessenger 7
  /did -a noticemessenger 7 $read(%liste)
}

on *:dialog:noticemessenger:menu:4: {
  /remove %liste
  /did -a noticemessenger 7 $read(%liste)
  /did -r noticemessenger 7
  /actualiser
}

on *:dialog:noticemessenger:menu:5: { /contactlist }

on *:dialog:noticemessenger:menu:6: { /bannedlist }

on *:dialog:noticemessenger:menu:15: { /redigmsg }

on *:dialog:noticemessenger:menu:19: { /msgrconfig }

on *:dialog:noticemessenger:sclick:9: {
  write $+(-dl,$did(noticemessenger,7).sel) %liste
  did -di noticemessenger 7 $did(noticemessenger,7).sel
}

on *:dialog:noticemessenger:sclick:11: {
  /remove %liste
  /did -a noticemessenger 7 $read(%liste)
  /did -r noticemessenger 7
  /actualiser
}

on *:dialog:noticemessenger:sclick:12: { /bannedlist }

on *:dialog:noticemessenger:sclick:13: { /contactlist }

on *:dialog:noticemessenger:sclick:21: { /redigmsg }

dialog noticemsgrbanned {
  title "Notice Messenger : Liste des bannis"
  size 177 106 292 80
  option dbu
  text "Liste des bannis (personnes que ne pourront pas vous envoyer de messages)", 1, 4 3 186 7
  edit "", 2, 4 13 283 40, multi read return vsbar
  button "OK", 3, 121 58 37 11, cancel
  button "Ajouter", 4, 33 58 49 11
  button "Supprimer", 5, 196 58 49 11
  text "Par G-FACTION", 6, 27 72 42 6
  text ":)", 7, 130 72 16 6
  link "inutile@yahoo.fr", 8, 186 72 96 13
}

on *:dialog:noticemsgrbanned:init:0:{
  /did -a noticemsgrbanned 2 %bannis
}

on *:dialog:noticemsgrbanned:sclick:4: {
  set %bannis $addtok(%bannis,$$?="Qui rajouter ?",32)
  /did -r noticemsgrbanned 2
  /did -a noticemsgrbanned 2 %bannis
}

on *:dialog:noticemsgrbanned:sclick:5: {
  set %bantemp $$?="Qui supprimer ?"
  if ($istok(%bannis,%bantemp,32)) {
    set %bannis $deltok(%bannis,$findtok(%bannis,%bantemp,1,32),32)
    /did -r noticemsgrbanned 2
    /did -a noticemsgrbanned 2 %bannis
  }
  else $input(%bantemp n'est pas dans la liste des bannis,308,Warning)
  halt
}

dialog noticemsgrconfig {
  title "Notice Messenger : Configuration"
  size 438 317 194 78
  option dbu
  text "Définissez le fichier de stockage des messages", 1, 7 4 115 6
  text "Définissez votre son de Bip", 2, 9 39 69 6
  edit "", 3, 9 19 178 10, multi return
  edit "", 4, 9 54 178 10, multi return
  button "...", 5, 132 4 13 11
  button "...", 6, 132 39 13 11
  button "OK", 7, 78 66 37 11, ok
}

on *:dialog:noticemsgrconfig:init:0:{
  if (%liste == $null) {
    set %first on
    /did -a noticemsgrconfig 3 Définir...
    /did -a noticemsgrconfig 4 Définir...
  }
  else /did -a noticemsgrconfig 3 %liste
  /did -a noticemsgrconfig 4 %son
}

on *:dialog:noticemsgrconfig:sclick:5: {
  /did -r noticemsgrconfig 3
  set %liste $sfile(dir,Choisissez votre fichier de stockage des messages,OK)
  /did -a noticemsgrconfig 3 %liste
}

on *:dialog:noticemsgrconfig:sclick:6: {
  /did -r noticemsgrconfig 4
  set %son $sfile(dir,Choisissez votre fichier sonore de Bip,OK)
  /did -a noticemsgrconfig 4 %son
}

dialog noticemsgrcontacts {
  title "Notice Messenger : Liste de contacts"
  size 177 106 281 176
  option dbu
  list 1, 115 3 165 150, vsbar size
  box "Connecté ?", 2, 1 0 112 43
  button "Vérifier", 3, 9 10 99 11
  box "Je désire...", 4, 1 41 112 57
  button "Biper cette personne", 5, 9 49 99 11
  button "Inviter cette personne", 6, 9 67 99 11
  button "Bloquer cette personne", 7, 9 84 99 11
  box "", 8, 1 97 112 55
  button "Ajouter un contact", 9, 9 112 99 11
  button "Supprimer un contact", 10, 9 132 99 12
  text "Statut :", 11, 9 28 19 6
  text "", 12, 31 28 75 6
  button "Fermer", 13, 120 156 37 11, cancel
  text "Par G-FACTION", 14, 24 168 42 6
  text ":)", 15, 132 169 13 6
  link "inutile@yahoo.fr", 16, 199 168 90 13
}

alias actualisercontacts {
  did -a noticemsgrcontacts 1 $read(contacts.txt,1)
  did -a noticemsgrcontacts 1 $read(contacts.txt,2)
  did -a noticemsgrcontacts 1 $read(contacts.txt,3)
  did -a noticemsgrcontacts 1 $read(contacts.txt,4)
  did -a noticemsgrcontacts 1 $read(contacts.txt,5)
  did -a noticemsgrcontacts 1 $read(contacts.txt,6)
  did -a noticemsgrcontacts 1 $read(contacts.txt,7)
  did -a noticemsgrcontacts 1 $read(contacts.txt,8)
  did -a noticemsgrcontacts 1 $read(contacts.txt,9)
  did -a noticemsgrcontacts 1 $read(contacts.txt,10)
  did -a noticemsgrcontacts 1 $read(contacts.txt,11)
  did -a noticemsgrcontacts 1 $read(contacts.txt,12)
  did -a noticemsgrcontacts 1 $read(contacts.txt,13)
  did -a noticemsgrcontacts 1 $read(contacts.txt,14)
  did -a noticemsgrcontacts 1 $read(contacts.txt,15)
  did -a noticemsgrcontacts 1 $read(contacts.txt,16)
  did -a noticemsgrcontacts 1 $read(contacts.txt,17)
  did -a noticemsgrcontacts 1 $read(contacts.txt,18)
  did -a noticemsgrcontacts 1 $read(contacts.txt,19)
  did -a noticemsgrcontacts 1 $read(contacts.txt,20)
  did -a noticemsgrcontacts 1 $read(contacts.txt,21)
  did -a noticemsgrcontacts 1 $read(contacts.txt,22)
  did -a noticemsgrcontacts 1 $read(contacts.txt,23)
  did -a noticemsgrcontacts 1 $read(contacts.txt,24)
  did -a noticemsgrcontacts 1 $read(contacts.txt,25)
  did -a noticemsgrcontacts 1 $read(contacts.txt,26)
  did -a noticemsgrcontacts 1 $read(contacts.txt,27)
  did -a noticemsgrcontacts 1 $read(contacts.txt,28)
  did -a noticemsgrcontacts 1 $read(contacts.txt,29)
  did -a noticemsgrcontacts 1 $read(contacts.txt,30)
  did -a noticemsgrcontacts 1 $read(contacts.txt,31)
  did -a noticemsgrcontacts 1 $read(contacts.txt,32)
  did -a noticemsgrcontacts 1 $read(contacts.txt,33)
  did -a noticemsgrcontacts 1 $read(contacts.txt,34)
  did -a noticemsgrcontacts 1 $read(contacts.txt,35)
  did -a noticemsgrcontacts 1 $read(contacts.txt,36)
  did -a noticemsgrcontacts 1 $read(contacts.txt,37)
  did -a noticemsgrcontacts 1 $read(contacts.txt,38)
  did -a noticemsgrcontacts 1 $read(contacts.txt,39)
  did -a noticemsgrcontacts 1 $read(contacts.txt,40)
  did -a noticemsgrcontacts 1 $read(contacts.txt,41)
  did -a noticemsgrcontacts 1 $read(contacts.txt,42)
  did -a noticemsgrcontacts 1 $read(contacts.txt,43)
  did -a noticemsgrcontacts 1 $read(contacts.txt,44)
  did -a noticemsgrcontacts 1 $read(contacts.txt,45)
  did -a noticemsgrcontacts 1 $read(contacts.txt,46)
  did -a noticemsgrcontacts 1 $read(contacts.txt,47)
  did -a noticemsgrcontacts 1 $read(contacts.txt,48)
  did -a noticemsgrcontacts 1 $read(contacts.txt,49)
  did -a noticemsgrcontacts 1 $read(contacts.txt,50)
  did -a noticemsgrcontacts 1 $read(contacts.txt,51)
  did -a noticemsgrcontacts 1 $read(contacts.txt,52)
  did -a noticemsgrcontacts 1 $read(contacts.txt,53)
  did -a noticemsgrcontacts 1 $read(contacts.txt,54)
  did -a noticemsgrcontacts 1 $read(contacts.txt,55)
  did -a noticemsgrcontacts 1 $read(contacts.txt,56)
  did -a noticemsgrcontacts 1 $read(contacts.txt,57)
  did -a noticemsgrcontacts 1 $read(contacts.txt,58)
  did -a noticemsgrcontacts 1 $read(contacts.txt,59)
  did -a noticemsgrcontacts 1 $read(contacts.txt,60)
  did -a noticemsgrcontacts 1 $read(contacts.txt,61)
  did -a noticemsgrcontacts 1 $read(contacts.txt,62)
  did -a noticemsgrcontacts 1 $read(contacts.txt,63)
  did -a noticemsgrcontacts 1 $read(contacts.txt,64)
  did -a noticemsgrcontacts 1 $read(contacts.txt,65)
  did -a noticemsgrcontacts 1 $read(contacts.txt,66)
  did -a noticemsgrcontacts 1 $read(contacts.txt,67)
  did -a noticemsgrcontacts 1 $read(contacts.txt,68)
  did -a noticemsgrcontacts 1 $read(contacts.txt,69)
  did -a noticemsgrcontacts 1 $read(contacts.txt,70)
  did -a noticemsgrcontacts 1 $read(contacts.txt,71)
  did -a noticemsgrcontacts 1 $read(contacts.txt,72)
  did -a noticemsgrcontacts 1 $read(contacts.txt,73)
  did -a noticemsgrcontacts 1 $read(contacts.txt,74)
  did -a noticemsgrcontacts 1 $read(contacts.txt,75)
  did -a noticemsgrcontacts 1 $read(contacts.txt,76)
  did -a noticemsgrcontacts 1 $read(contacts.txt,77)
  did -a noticemsgrcontacts 1 $read(contacts.txt,78)
  did -a noticemsgrcontacts 1 $read(contacts.txt,79)
  did -a noticemsgrcontacts 1 $read(contacts.txt,80)
  did -a noticemsgrcontacts 1 $read(contacts.txt,81)
  did -a noticemsgrcontacts 1 $read(contacts.txt,82)
  did -a noticemsgrcontacts 1 $read(contacts.txt,83)
  did -a noticemsgrcontacts 1 $read(contacts.txt,84)
  did -a noticemsgrcontacts 1 $read(contacts.txt,85)
  did -a noticemsgrcontacts 1 $read(contacts.txt,86)
  did -a noticemsgrcontacts 1 $read(contacts.txt,87)
  did -a noticemsgrcontacts 1 $read(contacts.txt,88)
  did -a noticemsgrcontacts 1 $read(contacts.txt,89)
  did -a noticemsgrcontacts 1 $read(contacts.txt,90)
  did -a noticemsgrcontacts 1 $read(contacts.txt,91)
  did -a noticemsgrcontacts 1 $read(contacts.txt,92)
  did -a noticemsgrcontacts 1 $read(contacts.txt,93)
  did -a noticemsgrcontacts 1 $read(contacts.txt,94)
  did -a noticemsgrcontacts 1 $read(contacts.txt,95)
  did -a noticemsgrcontacts 1 $read(contacts.txt,96)
  did -a noticemsgrcontacts 1 $read(contacts.txt,97)
  did -a noticemsgrcontacts 1 $read(contacts.txt,98)
  did -a noticemsgrcontacts 1 $read(contacts.txt,99)
  did -a noticemsgrcontacts 1 $read(contacts.txt,100)
  did -a noticemsgrcontacts 12 Je ne fais rien actuellement
}

on *:dialog:noticemsgrcontacts:init:0:{
  did -z noticemsgrcontacts 1
  /actualisercontacts
}

on *:dialog:noticemsgrcontacts:sclick:3: {
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel)
  /isconnected
}

on *:dialog:noticemsgrcontacts:sclick:5: {
  /ctcp $read(contacts.txt,$did(noticemsgrcontacts,1).sel) [bip]
  //echo $input($read(contacts.txt,$did(noticemsgrcontacts,1).sel) a été bipé si il est online et possède Notice Messenger,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:6: {
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel)
  /invite %user $$?="Sur quel canal ? (ne pas oublier le #)"
  //echo $input(%user a été invité si il est online et possède Notice Messenger,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:7: {
  set %bannis $addtok(%bannis,$read(contacts.txt,$did(noticemsgrcontacts,1).sel),32)
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel
  //echo $input(%user est désormais banni il ne pourra plus voir si vous êtes online et ne pourra plus vous envoyer de messages ni vous biper,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:9: {
  /write contacts.txt $$?="Qui ajouter ?"
  /did -r noticemsgrcontacts 1
  /actualisercontacts
}

on *:dialog:noticemsgrcontacts:sclick:10: {
  write $+(-dl,$did(noticemsgrcontacts,1).sel) contacts.txt
  did -di noticemsgrcontacts 1 $did(noticemsgrcontacts,1).sel
}

dialog noticemsgrredig {
  title "Notice Messenger : Rédiger un message"
  size 445 218 225 84
  option dbu
  edit "", 1, 4 16 216 12, limit 1000 multi return autohs
  edit "", 2, 48 36 16 10, multi read return
  text "Lettres inscrites :", 3, 4 40 40 6
  text "/1000", 4, 68 40 16 6
  text "Lettres restantes avant impossiblilité d'écrire :", 5, 92 40 108 6
  edit "", 6, 204 36 16 10, multi read return
  text "Message", 7, 4 4 24 6
  combo 8, 36 56 100 44, drop edit size
  text "Envoyer à", 9, 4 60 28 6
  button "Envoyer", 10, 156 56 48 11
  button "&Hide", 11, 0 0 0 0, hide Ok
}

alias actucontactsredig {
  did -a noticemsgrredig 8 $read(contacts.txt,1)
  did -a noticemsgrredig 8 $read(contacts.txt,2)
  did -a noticemsgrredig 8 $read(contacts.txt,3)
  did -a noticemsgrredig 8 $read(contacts.txt,4)
  did -a noticemsgrredig 8 $read(contacts.txt,5)
  did -a noticemsgrredig 8 $read(contacts.txt,6)
  did -a noticemsgrredig 8 $read(contacts.txt,7)
  did -a noticemsgrredig 8 $read(contacts.txt,8)
  did -a noticemsgrredig 8 $read(contacts.txt,9)
  did -a noticemsgrredig 8 $read(contacts.txt,10)
  did -a noticemsgrredig 8 $read(contacts.txt,11)
  did -a noticemsgrredig 8 $read(contacts.txt,12)
  did -a noticemsgrredig 8 $read(contacts.txt,13)
  did -a noticemsgrredig 8 $read(contacts.txt,14)
  did -a noticemsgrredig 8 $read(contacts.txt,15)
  did -a noticemsgrredig 8 $read(contacts.txt,16)
  did -a noticemsgrredig 8 $read(contacts.txt,17)
  did -a noticemsgrredig 8 $read(contacts.txt,18)
  did -a noticemsgrredig 8 $read(contacts.txt,19)
  did -a noticemsgrredig 8 $read(contacts.txt,20)
  did -a noticemsgrredig 8 $read(contacts.txt,21)
  did -a noticemsgrredig 8 $read(contacts.txt,22)
  did -a noticemsgrredig 8 $read(contacts.txt,23)
  did -a noticemsgrredig 8 $read(contacts.txt,24)
  did -a noticemsgrredig 8 $read(contacts.txt,25)
  did -a noticemsgrredig 8 $read(contacts.txt,26)
  did -a noticemsgrredig 8 $read(contacts.txt,27)
  did -a noticemsgrredig 8 $read(contacts.txt,28)
  did -a noticemsgrredig 8 $read(contacts.txt,29)
  did -a noticemsgrredig 8 $read(contacts.txt,30)
  did -a noticemsgrredig 8 $read(contacts.txt,31)
  did -a noticemsgrredig 8 $read(contacts.txt,32)
  did -a noticemsgrredig 8 $read(contacts.txt,33)
  did -a noticemsgrredig 8 $read(contacts.txt,34)
  did -a noticemsgrredig 8 $read(contacts.txt,35)
  did -a noticemsgrredig 8 $read(contacts.txt,36)
  did -a noticemsgrredig 8 $read(contacts.txt,37)
  did -a noticemsgrredig 8 $read(contacts.txt,38)
  did -a noticemsgrredig 8 $read(contacts.txt,39)
  did -a noticemsgrredig 8 $read(contacts.txt,40)
  did -a noticemsgrredig 8 $read(contacts.txt,41)
  did -a noticemsgrredig 8 $read(contacts.txt,42)
  did -a noticemsgrredig 8 $read(contacts.txt,43)
  did -a noticemsgrredig 8 $read(contacts.txt,44)
  did -a noticemsgrredig 8 $read(contacts.txt,45)
  did -a noticemsgrredig 8 $read(contacts.txt,46)
  did -a noticemsgrredig 8 $read(contacts.txt,47)
  did -a noticemsgrredig 8 $read(contacts.txt,48)
  did -a noticemsgrredig 8 $read(contacts.txt,49)
  did -a noticemsgrredig 8 $read(contacts.txt,50)
  did -a noticemsgrredig 8 $read(contacts.txt,51)
  did -a noticemsgrredig 8 $read(contacts.txt,52)
  did -a noticemsgrredig 8 $read(contacts.txt,53)
  did -a noticemsgrredig 8 $read(contacts.txt,54)
  did -a noticemsgrredig 8 $read(contacts.txt,55)
  did -a noticemsgrredig 8 $read(contacts.txt,56)
  did -a noticemsgrredig 8 $read(contacts.txt,57)
  did -a noticemsgrredig 8 $read(contacts.txt,58)
  did -a noticemsgrredig 8 $read(contacts.txt,59)
  did -a noticemsgrredig 8 $read(contacts.txt,60)
  did -a noticemsgrredig 8 $read(contacts.txt,61)
  did -a noticemsgrredig 8 $read(contacts.txt,62)
  did -a noticemsgrredig 8 $read(contacts.txt,63)
  did -a noticemsgrredig 8 $read(contacts.txt,64)
  did -a noticemsgrredig 8 $read(contacts.txt,65)
  did -a noticemsgrredig 8 $read(contacts.txt,66)
  did -a noticemsgrredig 8 $read(contacts.txt,67)
  did -a noticemsgrredig 8 $read(contacts.txt,68)
  did -a noticemsgrredig 8 $read(contacts.txt,69)
  did -a noticemsgrredig 8 $read(contacts.txt,70)
  did -a noticemsgrredig 8 $read(contacts.txt,71)
  did -a noticemsgrredig 8 $read(contacts.txt,72)
  did -a noticemsgrredig 8 $read(contacts.txt,73)
  did -a noticemsgrredig 8 $read(contacts.txt,74)
  did -a noticemsgrredig 8 $read(contacts.txt,75)
  did -a noticemsgrredig 8 $read(contacts.txt,76)
  did -a noticemsgrredig 8 $read(contacts.txt,77)
  did -a noticemsgrredig 8 $read(contacts.txt,78)
  did -a noticemsgrredig 8 $read(contacts.txt,79)
  did -a noticemsgrredig 8 $read(contacts.txt,80)
  did -a noticemsgrredig 8 $read(contacts.txt,81)
  did -a noticemsgrredig 8 $read(contacts.txt,82)
  did -a noticemsgrredig 8 $read(contacts.txt,83)
  did -a noticemsgrredig 8 $read(contacts.txt,84)
  did -a noticemsgrredig 8 $read(contacts.txt,85)
  did -a noticemsgrredig 8 $read(contacts.txt,86)
  did -a noticemsgrredig 8 $read(contacts.txt,87)
  did -a noticemsgrredig 8 $read(contacts.txt,88)
  did -a noticemsgrredig 8 $read(contacts.txt,89)
  did -a noticemsgrredig 8 $read(contacts.txt,90)
  did -a noticemsgrredig 8 $read(contacts.txt,91)
  did -a noticemsgrredig 8 $read(contacts.txt,92)
  did -a noticemsgrredig 8 $read(contacts.txt,93)
  did -a noticemsgrredig 8 $read(contacts.txt,94)
  did -a noticemsgrredig 8 $read(contacts.txt,95)
  did -a noticemsgrredig 8 $read(contacts.txt,96)
  did -a noticemsgrredig 8 $read(contacts.txt,97)
  did -a noticemsgrredig 8 $read(contacts.txt,98)
  did -a noticemsgrredig 8 $read(contacts.txt,99)
  did -a noticemsgrredig 8 $read(contacts.txt,100)
}

on *:dialog:noticemsgrredig:init:0:{
  did -z noticemsgrredig 8
  did -c noticemsgrredig 8 1
  /actucontactsredig
}

on *:dialog:noticemsgrredig:edit:1: {
  /did -r noticemsgrredig 2
  /did -a noticemsgrredig 2 $len($did(noticemsgrredig,1))
  /did -r noticemsgrredig 6
  /did -a noticemsgrredig 6 $calc(400 - $did(noticemsgrredig,2))
}

on *:dialog:noticemsgrredig:sclick:10: {
  set %usersend $did(noticemsgrredig,8)
  /notice %usersend [noticemessenger] $did(noticemsgrredig,1)
  $input(Un message vient d'être envoyé à %usersend $+ . Cependant si %usersend n'était pas connecté au moment ou vous avez envoyé ce message il ne le recevra pas.,308,Warning)
}

ctcp ^*:*[isconnected]*:*: {
  if ($istok(%bannis,$nick,32)) {
    halt
  }
  else /ctcp $nick [connected]
}

ctcp ^*:*[connected]*:*: {
  set %connectedtemp on
}

alias isconnected {
  /ctcp %user [isconnected]
  /did -a noticemsgrcontacts 12 Je suis en train de vérifier...
  /timer1 1 5 /isco2
}

alias isco2 {
  if (%connectedtemp == on) {
    //echo $input(%user est connecté !,308,Warning)
    set %connectedtemp off
    /did -a noticemsgrcontacts 12 Je ne fais rien actuellement
    halt
  }
  else //echo $input(%user n'est pas connecté ou n'a pas de Notice Messenger !,308,Warning)
  /did -a noticemsgrcontacts 12 Je ne fais rien actuellement
  halt
}

ctcp ^*:*[bip]*:*: {
  if ($istok(%bannis,$nick,32)) {
    halt
  }
  else  //echo 4,8 $+ $nick vous bippe !
  /splay %son
}

on 1:notice:[noticemessenger]*:*:{
  if ($istok(%bannis,$nick,32)) {
    /halt
  }
  else set %lastnotice $1-
  /write %liste Message de $nick : $1-
}

Conclusion :

Voila, essayez-le vous ne serez pas décus.
Et, une derniere chose, si vous pouvez me dire ce que vous pensez de ma création, ca serait sympa :)

++

××× G-FACTION ×××

A voir également

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.