Away encore un !!!

Commenter

Contenu du snippet

bon je c yen a deja pl1 ms bon voila g com mem envi de mettre ma source pr avoir qlq avi .....

Source / Exemple : 


dialog away {
  title "away  by aBd0ulaX"
  size -1 -1 200 142
  option dbu
  button "~~---o?0O@° .:(ok):. °@O0?o---~~",1,4 130 192 8,ok

  box "delfaut" ,2,4 4 92 44
  text "nick away :",3,8 12 28 8
  edit "",4,36 10 56 10
  text "raison :",5,8 26 20 8
  button "edit" ,6,61 24 30 8 
  edit "" ,7,8 34 84 10,read

  box "auto-away",8,104 4 92 44
  text "temps :",9,108 12 20 8
  edit "",10,135 10 15 10
  text "min",11,151 12 10 8
  check "activer",12,165 12 25 8
  text "message d'auto-away :",13,108 26 56 8
  button "edit",14,166 25 25 8
  edit "" ,15,108 35 84 10,read

  box "away rapide",16,4 52 192 52
  text "nom :",17,8 58 15 8
  text "nick :",18,45 58 15 8
  text "raison :",19,85 58 20 8
  edit "",20,8 66 35 10
  edit "",21,43 66 42 10
  edit "",22,85 66 107 10

  edit "",23,8 78 35 10
  edit "",24,43 78 42 10
  edit "",25,85 78 107 10

  edit "",26,8 90 35 10
  edit "",27,43 90 42 10
  edit "",28,85 90 107 10

  box "log away",29,4 106 95 20
  check "activer",30,8 114 26 8
  button "voir",31,36 112 25 10
  button "effacer",32,64 112 30 10

  button "",33, 138 108 58 18

  box "retour",34 ,103 106 30 20
  check "auto",35,107 114 25 8

}

on *:dialog:away:init:0:{
  did -a away 7 $readini away.ini delfaut raison
  did -a away 4 $readini away.ini delfaut nick
  did -a away 10 $calc( $tpsaway / 60 )
  did -a away 15 $readini away.ini auto-away message

  if ( %autoaway == on ) { did -c away 12 }

  did -a away 20 $readini away.ini away-rapide1 nom 
  did -a away 21 $readini away.ini away-rapide1 nick 
  did -a away 22 $readini away.ini away-rapide1 raison 

  did -a away 23 $readini away.ini away-rapide2 nom 
  did -a away 24 $readini away.ini away-rapide2 nick 
  did -a away 25 $readini away.ini away-rapide2 raison

  did -a away 26 $readini away.ini away-rapide3 nom 
  did -a away 27 $readini away.ini away-rapide3 nick 
  did -a away 28 $readini away.ini away-rapide3 raison

  if ( %logaway == on ) { did -c away 30 }

  did -a away 33 $awayetat

  if ( %retouraway == on ) { did -c away 35 }
}

on *:dialog:away:sclick:35:{
  if ( %retouraway != off ) { set %retouraway on }
  else { set %retouraway off }
}
on *:input:*:if ( $away == $true ) && ( %retouraway == on ) { awaystart }

alias tpsaway { return $readini away.ini auto-away temps }

on *:dialog:away:edit:4:writeini away.ini delfaut nick $did(away,4)
on *:dialog:away:sclick:6:writeini away.ini delfaut raison $$?="entrer la raison du away par défaut" | did -r away 7 | did -a away 7 $readini away.ini delfaut raison

on *:dialog:away:edit:10:writeini away.ini auto-away temps $calc( $did(away,10) * 60 )
on *:dialog:away:sclick:12:{
  if ( %autoaway != off ) { set %autoaway on | .timeraway 0 60 tempsaway }
  else { set %autoaway off | .timeraway off }
}
on *:dialog:away:sclick:14:writeini away.ini auto-away message $$?="entrer le message d'auto-away" | did -r away 15 | did -a away 15 $readini away.ini auto-away message

on *:dialog:away:edit:20:writeini away.ini away-rapide1 nom $did(away,20)
on *:dialog:away:edit:21:writeini away.ini away-rapide1 nick $did(away,21)
on *:dialog:away:edit:22:writeini away.ini away-rapide1 raison $did(away,22)

on *:dialog:away:edit:23:writeini away.ini away-rapide2 nom $did(away,23)
on *:dialog:away:edit:24:writeini away.ini away-rapide2 nick $did(away,24)
on *:dialog:away:edit:25:writeini away.ini away-rapide2 raison $did(away,25)

on *:dialog:away:edit:26:writeini away.ini away-rapide3 nom $did(away,26)
on *:dialog:away:edit:27:writeini away.ini away-rapide3 nick $did(away,27)
on *:dialog:away:edit:28:writeini away.ini away-rapide3 raison $did(away,28)

on *:dialog:away:sclick:30:{
  if ( %logaway != off ) { set %logaway on }
  else { set %logaway off }
}
on *:dialog:away:sclick:31:run logaway.txt
on *:dialog:away:sclick:32:remove logaway.txt

on *:text:*:?:{ 
  if ( $away == $true ) {
    if ( $1 == message ) { write logaway.txt $date $time < $nick > : $2- | msg $nick 9Your message is logged . 7Thanks you ... }
    else { 
      msg $nick 12Sorry but4 %nickaway 12is away :15 %raisonaway
      if ( %logaway == on ) { msg $nick 7You can write him in the log => type : 9message 13your_message }
    }
  }
}

on *:dialog:away:sclick:33:awaystart | did -a away 33 $awayetat

menu menubar {
$awayetat :/awaystart
away ==>> 
. $readini script\config\away.ini away-rapide1 nom :/set %nickaway $me | away $readini script\config\away.ini away-rapide1 raison | nick $readini script\config\away.ini away-rapide1 nick | set %raisonaway $readini script\config\away.ini away-rapide1 raison
. $readini script\config\away.ini away-rapide2 nom :/set %nickaway $me | away $readini script\config\away.ini away-rapide2 raison | nick $readini script\config\away.ini away-rapide2 nick | set %raisonaway $readini script\config\away.ini away-rapide2 raison
. $readini script\config\away.ini away-rapide3 nom :/set %nickaway $me | away $readini script\config\away.ini away-rapide3 raison | nick $readini script\config\away.ini away-rapide3 nick | set %raisonaway $readini script\config\away.ini away-rapide3 raison
.autre... :/set %nickaway $me | set %raisonaway $$?="entrer la raison de votre away :" | away %raisonaway | nick $readini script\config\away.ini delfaut nick
.-
.config :/dialog -dm away away
.-
.ouvrir log :/run logaway.txt
.effacer log :/remove logaway.txt
} 

alias awayetat {
  if ( $away == $false ) { return s'absenté }
  if ( $away == $true ) { return revenir }
}

alias awaystart {
  if ( $away == $false ) { awaydelfaut }
  else { 
    away | nick %nickaway | unset %nickaway | unset %raisonaway
    if ( %autoaway == on ) { .timeraway 0 60 tempsaway }
  }
}

alias awaydelfaut {
  set %nickaway $me
  away $readini away.ini delfaut raison
  nick $readini away.ini delfaut nick
  set %raisonaway $readini script\config\away.ini delfaut raison
}
alias tempsaway {
  if ( $idle >= $readini away.ini auto-away temps ) {
    set %nickaway $me
    away $readini away.ini auto-away message
    nick $readini away.ini delfaut nick
    set %raisonaway $readini away.ini auto-away message
  }
  if ( $away == $true ) { .timeraway off }
}

;============
;pour Mr Oblivion 
;============   

alias AW { awaystart }

Conclusion :


ouai , les paramettres sont sauvegardé ds un fichier ini ( g ésité entre un ini ou des variable ms g opté pr un ini ) ; ce que vs pouvez faire c de sauvegarder ce script ds un fichier ini ce appelé away.ini comm ca yora moin de bordel ds votre répertoir mirc .

have fun

by abdoulax

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