Away encore un !!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 910 fois - Téléchargée 29 fois

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

Ajouter un commentaire Commentaires
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

Oula, c'est vieux tout cela... Je ne pourrais pas t'aider, désolé. mais regarde dans mes sources, j'ai fait un autre system d'away si je me souviens :) Et puis, tu peux en trouver plein sur le net...
Messages postés
248
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
11 février 2013

Bj all,
chez moi marche pas bug a gogo impossible de taper un raccourci rapide style /abs ou !abs ne marche pas en texte rapide bouton partir revenir merde souvent aussi case check se coche seule sans raison dommage car je kifffff se système away.
a oui pourquoi faut rajouter un dossier nomer $readini script\config\away.ini ? y a pas moyent de le faire auto ou dans la racine du script ? ou de réparrer cette super source merci

Cordialement Stéphane
Messages postés
43
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
14 août 2005

lol ce que dis oblivion c'es tvrai quan on reflechi !!
bonne source
Messages postés
261
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
12 janvier 2010

Bha pour une fois, je suis pas de ton avis G-FACTION :/
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

C vrai j'aurai pu faire un truc de ce genre :

alias AW {
if ( $away == $false ) {
set %nickaway $me
away je suis absent .
nick nicK-AW
}
else {
away | nick %nickaway | unset %nickaway
}
}
alias awayetat {
if ( $away == $false ) { return s'absenté }
if ( $away == $true ) { return revenir }
}

menu nicklist {
$awayetat :/AW
}

meme encore plus simple , ms bon voilà j'avais envie de faire un truc ac des dialog ...
Afficher les 11 commentaires

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.