Memoserv en dialog !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 958 fois - Téléchargée 26 fois

Contenu du snippet

Ptdr voila memoserv en dialog :D
Bon c un peu nul car c'est que pour les serveur qui on epona en Fr
Dsl -_-
Pi c pas tres net pour lire les memo ou voir la liste car sa marche sur des timer alors si vous lagger sa peu bugger

Sinon :
Vous pouvez envoyer des memo !
voir la liste des memo dans un list
lire un memo dans un edit
Lire le dernier memo dans un edit
effacer un memo
effacer toute la liste
Quand vous recever un memo sa ouvre le dialog et une @win vous prevenant
Vous pouver configurer le notify pour : " on , off , logon , new "

Voila :)

Source / Exemple :


dialog memo {
  title "Memo Serv !"
  size -1 -1 331 172
  option dbu
  tab "Envoyer un memo !", 1, 0 -3 329 165
  text "Destinataire du memo", 3, 14 25 55 8, tab 1
  edit "", 4, 72 24 50 10, tab 1
  text "Texte du memo", 5, 14 45 56 8, tab 1
  edit "", 6, 72 44 101 104, tab 1 multi hsbar vsbar
  button "Envoyer le Memo :", 11, 73 149 100 12, tab 1 flat
  box "Notes°° ", 36, 7 61 50 28, tab 1
  text "Pour passer une ligne fait ctrl + J", 37, 10 70 44 16, tab 1
  text "", 35, 162 17 113 19, tab 1
  tab "Lire les Memo !", 7
  edit "" , 9, 194 40 132 116, tab 7 multi hsbar vsbar
  text "Texte du Memo que tu as Recu :", 10, 195 33 130 8, tab 7
  button "<-- Mise a jour", 13, 139 52 45 12, tab 7 flat
  text "Lire le memo : ", 14, 140 16 34 8, tab 7
  edit "", 15, 175 15 13 10, tab 7
  button "Le lire !", 16, 197 15 37 10, tab 7 flat
  button "Lire le dernier Memo", 18, 143 68 51 12, tab 7 flat
  text "Liste des Tes Memo !", 19, 8 31 130 8, tab 7
  text "Effacer le Memo :", 38, 5 15 46 8, tab 7
  edit "", 39, 50 15 17 9, tab 7
  button "Effacer la list", 40, 139 85 51 12, tab 7 flat
  button "L'effacer !", 41, 72 14 37 10, tab 7 flat
  list 12, 9 41 129 114, tab 7 size hsbar vsbar
  tab "Autres Option !", 20
  box "Notify !", 26, 6 51 316 84, tab 20
  text "Choisir :", 27, 9 61 26 8, tab 20
  check "On", 28, 44 60 50 10, tab 20 push
  check "Logon", 29, 170 60 50 10, tab 20 push
  check "New", 30, 237 60 50 10, tab 20 push
  check "Off", 42, 107 60 50 10, tab 20 push
  text "On : Vous serez notifiés lorsque vous vous connectez, lorsque vous enlevez /AWAY, et quand ils vous sont envoyés.", 31, 10 76 218 15, tab 20
  text "Logon : Vous serez uniquement notifiés des memos lorsque vous vous connectez ou quand vous enlevez /AWAY", 32, 10 94 219 15, tab 20
  text "new : Vous serez uniquement notifiés des memos lorsqu'ils vous sont envoyés.", 33, 10 112 219 9, tab 20
  text "off : Vous ne recever aucune Notification.", 34, 10 124 220 8, tab 20
  button "Ok !", 2, 140 164 45 7, flat ok
  text "Text quand tu aura un nouveau memo !", 8, 159 0 161 8, center
}

on *:dialog:memo:sclick:30:{ did -ar memo 35 Notify : News | msg memoserv set notify news | did -u memo 42,29,28 }
on *:dialog:memo:sclick:29:{ did -ar memo 35 Notify : Logon | msg memoserv set notify logon | did -u memo 42,28,30 }
on *:dialog:memo:sclick:42:{ did -ar memo 35 Notify : Off | msg memoserv set notify off | did -u memo 28,29,30 }
on *:dialog:memo:sclick:28:{ did -ar memo 35 Notify : On | msg memoserv set notify on | did -u memo 42,29,30 }
on *:dialog:memo:edit:25: { set %memlimit $did(memo,25) }
on *:dialog:memo:edit:39: { set %nbdel $did(memo,39) }
on *:dialog:memo:edit:15: { set %nblire $did(memo,15) }
on *:dialog:memo:edit:39: { set %nbdel $did(memo,39) }
on *:dialog:memo:edit:4: { set %destinataire $did(memo,4) }
on *:dialog:memo:edit:6: { set %message $did(memo,6) }
on *:dialog:memo:sclick:11: {
  if ( %destinataire == $null ) { did -ar memo 35 ATTENTION : Dsl Mais tu as oublier de remplir le champ : Destinataire du memo ! | halt }
  if ( %message == $null ) { did -ar memo 35 ATTENTION : Dsl mais tu nas marquer aucun message ! | halt }
  else { /memoserv send %destinataire %message | did -ar memo 35 Le Memo a bien etait envoyer a : %destinataire | unset %message | unset %destinataire }
}
on *:dialog:memo:sclick:16: {
  if (%nblire == $null ) { did -ar memo 8 ATTENTION : Dsl mais tu oublier de remplir le champ de texte }
  else { enable #memolast | timerlast 1 10 disable #memolast | /memoserv read %nblire }
}

on *:dialog:memo:sclick:41: {
  if (%nbdel == $null ) { did -ar memo 8 ATTENTION : Dsl mais tu oublier de remplir le champ de texte }
  else { /memoserv del %nbdel | did -ar memo 8 Le memo numero : %nbdel a etait supprimmer ! }
}
on *:dialog:memo:sclick:18: { enable #memolast | timerlast 1 10 disable #memolast | /memoserv read last }
on *:dialog:memo:sclick:13: { enable #memolist | timerlist 1 15 disable #memolist | /memoserv list }
on *:dialog:memo:sclick:40: { did -ar memo 8 INFO : Tu vien d'efface la liste de tes memo. | /memoserv del all }

on *:notice:Vous avez un nouv*:*:{
  if ( $nick == MemoServ ) { 
    timerfenmemo 1 1 window -o +a  @Memo tahoma 15
  timerecrimemo 1 1 /aline -p @Memo 4ATTENTION : Tu vien d'avoir un nouveau memo va vite voir le memo ! }
  timermemo 1 2 /dialog -m memo memo
  timerecmemo 1 2 did -ar memo 8 Attention INFO : Tu vien d'avoir un Nouveau Memo !! Va vite regarder !! 
}

#memolast off
on *:notice:Memo*:*:{
  if ( $nick == MemoServ ) { set %expediteur $4 | set %nummemo $2 | set %date $5 $6 $7 $8 $9 }
}
on *:notice:*:*:{
  if ( $nick == MemoServ ) && ($1 != Memo) && ($1- != Vous n'avez pas de memos. ) && ($3- != n'existe pas!) { set %msgexpediteur $1- | writeini memolast.ini memo MemoServ Memo num : %nummemo de %expediteur le %date : %msgexpediteur | did -ar memo 9 $readini memolast.ini memo MemoServ | unset %expediteur | unset %date | unset %msgexpediteur | unset %nummemo } 
  if ( $nick == MemoServ ) && ($1 == Vous) && ($5 == memos.) { did -ar memo 9 Vous n'avez pas de memo ! }
  if ( $nick == MemoServ ) && ($3- == n'existe pas!) { did -ar memo 9 ce memo n'exste pas }
}

#memolast end

#memolist off
on *:notice:*:*:{
  if ($nick == MemoServ ) && ($1 != Num Ex) && ($1 != Memos pour) { 
    var %textcorec1 = $1-
    var %lollol = 1
    while %lollol <= $numtok($readini memolist.ini Liste Memo,44) {
      var %temp1 = $gettok($readini memolist.ini Liste Memo,%lollol,44)
      inc %lollol
    }
    if ( $readini memolist.ini liste memo != $null ) { writeini memolist.ini Liste memo $readini memolist.ini Liste memo $+ %textcorec1 $+ , }
    else { writeini memolist.ini Liste memo %textcorec1 $+ ,  }
  }
  listinit
  timerlistmemo 1 10  remini memolist.ini Liste memo
} 
#memolist end

alias listinit {
  var %lollol = 1
  did -r memo 12
  while %lollol <= $numtok($readini memolist.ini Liste Memo,44) {
    var %temp1 = $gettok($readini memolist.ini Liste Memo,%lollol,44)
    did -a memo 12 $tab(%temp1)
    inc %lollol
  }
}

alias tab {
  if (!$1) return $chr(9) | var %t,%w = 1
  while ($($+($,%w),4)) { %t = $instok(%t,$($+($,%w),4),0,9) | inc %w }
  return %t
}

Conclusion :


Voila merci de vos comment. :D

A voir également

Ajouter un commentaire

Commentaires

heschal
Messages postés
9
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
31 mars 2004

pas mal ...
Remarque j'aimerais bien tenter de lui rajouter quelques pti truc.
-Interface animer
-Sur 2 dialogues
-Avec un menu"item"

( Biensur si je fais ca il auras dans le menu " Abouts" (a propos en francais)
Code ( celui qui la fais )
Je rip pas vraiment :/ Moi je fais rien sens l'accord de celui qui la fais.
cetic
Messages postés
4
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
13 février 2004
1
ici aussi :p

Irc.shivanet.org:6667

ou http://Chat.Shivanet.org

:p
GFACTION
Messages postés
199
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 avril 2005

irc.flash-web.org:6667 aussi :)
jujuquatre
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

irc.jeuxvideo.com:6667 si :)
nitro120
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

ya personne ka epona en fr :/

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.