Memoserv en dialog !

Commenter

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

S'inscrire maintenant

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.

Du même auteur (jujuquatre)