AWAY SYSTÈME ÉVOLUÉ, SIMPLE ET CLAIR :)

alias console {
  dialog -m console console
}

dialog console {
  size -1 -1 160 500
  title "Away Système"
  icon 1,0 0 160 1500,images\bgdock.png,noborder
  button "Partir",2,5 124 60 25,flat
  button "Revenir",3,75 124 60 25,flat, ok
  button "Messagerie(0)",11,5 154 130 25,flat
  text "Raison de l'absence",5,10 4 110 22 8
  edit %awayraison,6,5 19 130 22 15,autohs
  text "Message du répondeur",7,10 44 110 22 8
  edit %repawaymsg,8,5 59 130 22 15,autohs
  text "Ajouter au pseudo",9,10 84 110 22 8
  edit %awaynick,10,5 99 130 22 15,autohs
}

#rep off
on *:open:?: {
  msg $nick 7,0(>>Répondeur d'absence<<) 14[> $+ 10 $+ %repawaymsg $+ 14,0<]
}
#rep end

#msgserv off
on *:text:*:*: {
  if ($me isin $strip($1-)) {
    write textes\messagerie.txt 10,0 $+ $timestamp 4 $+ $nick 10sur 4 $+ $chan 14[> $+ $1- $+ 14,0<]
    did -r away 11
    did -a away 11 Messages( $+ $lines(textes\messagerie.txt) $+ )
  }
}
#msgserv end

on *:dialog:console:sclick:*: {
  if ($did == 11) { messagerievoir }
  if ($did == 2) {
    set %awayraison $did(away,6)
    set %repawaymsg $did(away,8).text
    set %awaynick $did(away,10).text
    set %actunick $me
    set %awaytime $time
    //nick $me $+ %awaynick
    enable #rep | enable #msgserv
    ame 10,0est 7(>>away<<) 10pour la raison suivante 14[>  $+ 1 $+ %awayraison $+ 14,0 <]10 à 14[> $+ 1 %awaytime $+ 14,0<]
    set %awayminutes 0 | timer1 0 60 /inc %awayminutes 1
    set %awayheures 0 | timer11 0 3600 /inc %awayheures 1
    timer111 0 3600 /set %awayminutes 0
    set %awaysecondes 0 | timer1111 0 1 /inc %awaysecondes 1 | timer11111 0 60 /set %awaysecondes 0
  }
  if ($dname == 3) {
    ame 10,0est revenu; la raison de son absence était : 14[>  $+ 1 $+ %awayraison $+ 14,0 <]10. Il est partit pendant 14[> $+ 1 %awayheures $+ h %awayminutes $+ min %awaysecondes $+ sec $+ 14,0 <]
    disable #rep
    disable #msgserv
    unset %awayraison 
    unset %repawaymsg 
    unset %awaynick
    unset %awaybacktime
    unset %awaytime - awaybacktime
    nick %actunick
    unset %actunick
    unset %awayheures
    unset %awayminutes
    unset %awaysecondes
    write -c textes\messagerie.txt
  }
  if ($did == 11) {
    if ($window(@Messages)) { clear @Messages }
    if (!$window(@Messages)) { window @Messages }
    loadbuf @Messages $shortfn(textes\messagerie.txt)
  }
}

on *:dialog:console:init: {
  dll dlls\MDX.dll SetMircVersion $version
  dll dlls\MDX.dll MarkDialog $dname
  dll dlls\MDX.dll SetColor $dname 2,3,5,7,9,11 textbg $rgb(51,153,102)
  dll dlls\MDX.dll SetColor $dname 2,3,5,7,9,11 background $rgb(192,192,192)
}

Télécharger le zip

13 août 2006 13:19:19 :

optimisation du code

13 août 2006 13:20:36 :

re-optimisation, après la vue d'une erreur :p