Away & auto away version 1.2

Commenter

Contenu du snippet

Script simple mais utile.

Source / Exemple : 


Alias away { dialog -m away away }

dialog away {
  title "Away systeme"
  size -1 -1 168 135
  option dbu
  button "Occuper", 2, 4 3 37 12, flat
  button "Mange", 3, 45 3 37 12, flat
  button "Television", 4, 86 3 37 12, flat
  button "Away", 5, 4 21 37 12, flat
  button "Mails", 6, 45 21 37 12, flat
  button "Fume", 7, 86 21 37 12, flat
  button "Dort", 8, 4 40 37 12, flat
  button "CS 1.6", 9, 45 40 37 12, flat
  button "MP3", 10, 86 40 37 12, flat
  button "Telephone", 11, 127 3 37 12, flat
  button "WebCam", 12, 127 21 37 12, flat
  button "Zone|net", 13,  127 40 37 12, flat
  button "F E R M E T U R E", 18, 4 89 160 12,ok ,flat
  button "R E V E N I R", 19, 4 73 160 12, flat
  button "A U T R E   R A I S O N", 20, 4 57 160 12, flat
  box "Auto Away" 21, 4 105 160 25
  check "Activée" 22, 20 115 30 10
  text "Au bout d'une heure d'inactivité, vous serez en auto away" 23, 50 111 110 25, center 

}

on *:dialog:away:sclick:2 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis occupé(e) | set %away Je suis occupé(e) | ame 12 part en Away pour la raison :4 %away | nick $me $+ [OQP] }
}
on *:dialog:away:sclick:3 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je mange | set %away Je mange | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Mange] }
}
on *:dialog:away:sclick:4 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis devant la television | set %away Je suis devant la tele | ame 12 part en Away pour la raison :4 %away | nick $me $+ [TV] }
}
on *:dialog:away:sclick:5 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis away | set %away Je suis away | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Away] }
}
on *:dialog:away:sclick:6 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je lis mes mails | set %away Je regarde mes mails | ame 12 part en Away à $time pour la raison :4 %away | nick $me $+ [Mail] }
}
on *:dialog:away:sclick:7 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je fume une clope | set %away Je fume un clope | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Fume] }
}
on *:dialog:away:sclick:8 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je dors | set %away Je dors | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Dort] }
}
on *:dialog:away:sclick:9 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis sur CS 1.6. | set %away Je suis sur CS 1.6 | ame 12 part en Away pour la raison :4 %away | nick $me $+ [CS|1-6] }
}
on *:dialog:away:sclick:10 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 J'ecoute des MP3's. | set %away j'ecoute des MP3's | ame 12 part en Away pour la raison :4 %away | nick $me $+ [MP3] }
}
on *:dialog:away:sclick:11 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis au telephone. | set %away Je suis au telephone | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Tel] }
}
on *:dialog:away:sclick:12 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je suis en train de faire une cam. | set %away Je suis en train de faire une cam | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Visio] }
}
on *:dialog:away:sclick:13 {
  if (%awayblok == off) { set %awayblok on | set %autoaway 0 | /.timeraway* off | set %depart $time(h) heures $time(n) minutes | set %away.txt 12[AWAY]14 Je zone sur le net | set %away Je zone sur le net | ame 12 part en Away pour la raison :4 %away | nick $me $+ [Zone|net] }
}
on *:dialog:away:sclick:20 { 
  if (%awayblok == off) {
    set %away  $$?="Entre Ta Raison :"  
    set %raison $$?="Entre un sufix (exemple = OQP)  :" 
    ame 12 part en Away pour la raison (4 %away 12) 
    nick $me $+ %raison 
    set %depart $time(h) heures $time(n) minutes 
    set %away.txt 12[AWAY]14 %away
    set %awayautre on
    set %autoaway 0
    set %awayblok on
  }
}
on *:dialog:away:sclick:19 { 
  ame 12 est de retour, la raison de son away était (4 %away 12) il(elle) etait parti à (4 %depart 12)
  /unset %away
  /unset %depart
  /unset %away.txt
  /nick %me
  set %awayblok off
  set %awayautre off
}
on *:dialog:away:sclick:18:{
  if ( %awayblok == off ) {
    if ( %awayautre == off ) {
      set %autoaway = $did(22).state
      if ( %autoaway == 1 ) {
        inc %temps
        if (%temps == 1) {
          /.timeraway 1 3600 autoaway | set %temps 0 | set %away.txt 12[AUTO-AWAY]14
          /.timeraway2 1 3600 ame 12part en 4Auto-Away 12apres4 1 12heure d'inactivitée.
          /.timeraway3 1 3600 nick $me $+ [Auto`aw]
          /.timeraway4 1 3600 set %autoaway 0 
        }
      }  
      else { 
        /.timeraway* off
        unset %away.txt
      }
    } 
    if ( %awayblok = on ) {
      set %autoaway 0
    }
  }
}

on *:dialog:away:init:*:{
  if ( %autoaway == 1 ) did -c away 22
}
on 1:input:*: { 
  if ( %autoaway == 1 ) {
    /.timeraway* off
    /.timeraway 1 3600 autoaway | set %temps 0
    /.timeraway2 1 3600 ame 12part en 4Auto-Away 12apres4 1 12heure d'inactivitée.
    /.timeraway3 1 3600 nick $me $+ [Auto`aw]
    /.timeraway4 1 3600 set %autoaway 0 
  }
}
alias autoaway { dialog -m autoaway autoaway }
dialog autoaway {
  title "Auto Away"
  size -1 -1 100 100
  button "Revenir" 1, 1 50 98 48,flat ,ok
  text "Revenir de l'auto away" 2, 10 10 80 40,center
  box "" 3, 2 0 97 48 
}
on *:dialog:autoaway:sclick:1:{
  nick %me
  ame 12 est de retour, la raison de son away était (4 Auto away 12)
  unset %away.txt
}

Conclusion :


@+ IntoX

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 (giovani54)