System d'away automatick

Commenter

Contenu du snippet

Systeme d'away Automatick... programmable sur 10 / 20 ou 30 mn
loader l'addons , puis taper /config
ensuite... :)

Source / Exemple : 


;............A..............System D'Away \/ Auto-AwaY..............C.........
;Commandes - Partir en away /aw raison de l'away
;Commandes - Revenir de l'away ou de l'auto-away /re
;Notice à l'user ki vous HL et log dans la  fenetre @Away.Log
;Notice à l'user qui vous prend en pv et log dans la  fenetre @Away.Log (+fermeture du Pv)
;pour configurer taper /config
;............A..............System D'Away en Alias..............C.........

;Partie Alias

alias aw {
  unset %raison.away | unset %automatick
  set %raison.away $1- | set %automatick off
  away 14Absent:  %raison.away 14à $time
  unset %away | unset %temps
  set %away on | set %temps $ctime
  echo -a $timestamp 2(Away) 14System D'Away (Départ) -> Raison:  %raison.away
  ame [away] %raison.away 
  .timerdecompte off
  nick Off
}
alias re {
  unset %away | set %away off
  echo -a  2- Away - 14System D'Away 1(14Retour1) <- 2Raison:  %raison.away
  unset %raison.away 
  away
  nick me
  if (%temps != $null) { 
    ame [back] après $duration($calc($ctime - %temps)) d'inactivité. 
    unset %temps | unset %automatick
    set %automatick on  
    decompte
    halt 
  }
  else {
    ame [BaCk]
    unset %automatick 
    set %automatick on
    decompte
  }
  halt
}

Alias AutoAway {
  if ($idle > %autoaw) {
    if (%automatick == on) && (%away == off) { 
      unset %temps | set %temps $ctime
      aw [Auto] après $duration(%autoaw) d'inactivité.
    }
  }
}

Alias decompte { 
  if (%autoaw != $null) { .timerdecompte 0 10 AutoAway | halt }
  if (%autoaw == $null) { set %autoaw 1800 | .timerdecompte 0 10 AutoAway | halt  }
}
Alias Désinstal { .unload -rs $script }
Alias instal { 
  echo -a 2- Chargement - 14Chargement en cour...... 
  unset %autoaw | unset %away  | unset %automatick
  set %away off  | set %automatick on
  echo -a 2- Chargement - 14L'auto-Away est configurer par défaut sur 230minutes14 d'inactivité.
  echo -a 2- Chargement - 14Addon Chargé Avec succès!
  echo -a 2- Chargement - 14Taper 4/config 14pour Configurer l'addon.
  echo -a 2- Chargement - 14Taper 4/aw <Raison de l'away> 14pour partir en Away.
  echo -a 2- Chargement - 14Taper 4/re 14pour revenir d'un Away.
  decompte
}

;Partie Remote

on !^*:text:*:#:{
  if ($me isin $1-) && (%away == on) {
    window -k0nze @Away.Log
    echo @Away.Log  $timestamp  2(14 $+ $nick à dit sur $chan  $+ 2) $1-
    notice $nick 14Je Suis Absent pour la Raison :  %raison.away 1(14LoG On1) 
  }
}
on *:text:*:?: {
  if (%away == on) {
    window -k0nze @Away.Log
    echo @Away.Log  $timestamp  2(14 $+ $nick à dit en Pv $+ 2) $1-
    notice $nick 14Je Suis Absent pour la Raison :   %raison.away
    closemsg $nick
  }
  else { halt }
}
on *:connect: {
  set %monpseudo $me
  unset %away
  set %away off
  unset %raison.away
  unset %automatick | set %automatick on
  decompte
}
on *:UNLOAD: {
  .timerdecompte off
  unset %away
  unset %raison.away
  unset %automatick  
  unset %monpseudo
  echo -a 2- Désinstalation - 4Terminée  
}
on *:disconnect: { nick %monpseudo | unset %monpseudo }
on 1:load:/instal 

:popup
menu menubar {
  -
  System Away-Auto-Away
  .ouvrir:/config
  .-
  .Désinstaler:/Désinstal
  -
}

;Partie DialoG

alias config { dialog -m AwaySystem AwaySystem }
dialog AwaySystem {
  title "System Away - Auto - Away System"
  size -1 -1 162 184
  option dbu
  box "Auto-Away ConfiGuRatiOn", 1, 3 1 154 50
  button "Activer", 2, 7 13 37 12
  button "Désactiver", 3, 8 31 37 12
  text "Activer Auto-Away", 4, 51 17 25 8
  text "Désactiver Auto-Away", 5, 50 35 25 8
  box "ConfiGuratiOn Du Temps", 6, 3 53 155 32
  button "10 minutes", 7, 10 63 37 12
  button "20 minutes", 8, 59 63 37 12
  button "30 minutes", 9, 107 63 37 12
  button "Fermer", 10, 4 137 153 12, ok
  button "PartiR en Away", 14, 10 98 43 12
  box "Raison:", 16, 56 96 96 38
  button "ReveniR", 13, 10 121 43 12
  edit "", 15, 59 109 87 16
  box "WebSiTe", 12, 5 153 152 24
  link "www.machinnerie.fr.st", 17, 49 160 68 9
}
on 1:dialog:AwaySystem:sclick:2: {  unset %automatick | unset %away | set %away off | set %automatick on | echo -a 2- Away-System - 14System Auto-Away Activé | .timerdecompte off |  decompte |  halt }
on 1:dialog:AwaySystem:sclick:3: {  unset %automatick | set %automatick off | echo -a 2- Away-System - 14System Auto-Away Désactivé | unset %decompte | .timerdecompte off | halt }
on 1:dialog:AwaySystem:sclick:7: { unset %autoaw | set %autoaw 600 | echo -a 2- InfO - 14AutoAway programé sur 2  $+ $duration(%autoaw) $+   | .timerdecompte off | decompte | halt } 
on 1:dialog:AwaySystem:sclick:8: { unset %autoaw | set %autoaw 1200 | echo -a 2- InfO - 14AutoAway programé sur 2  $+ $duration(%autoaw) $+  | .timerdecompte off | decompte | halt }
on 1:dialog:AwaySystem:sclick:9: { unset %autoaw | set %autoaw 1800 | echo -a 2- InfO - 14AutoAway programé sur 2  $+ $duration(%autoaw) $+   | .timerdecompte off | decompte | halt }
on 1:dialog:AwaySystem:sclick:14: { aw %raison.away | halt }
on 1:dialog:AwaySystem:sclick:17: { run http://www.machinnerie.fr.st }
on 1:dialog:AwaySystem:sclick:13: { re }
on *:dialog:AwaySystem:edit:*:{ if ($did == 15) { /set %raison.away $did(AwaySystem,15) } }
;------------------FIN------------------------
;Tout Simplement...  enjOy !
;Air-Co0leD

Conclusion :


seul détail... il est actif a la connection... (par défaut regler sur 30minutes).

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.