Système d'away avec chans d'affichage configurables

Commenter

Contenu du snippet

hello,

suite à de fréquents soucis rencontrés par tout script sur des systèmes d'away s'affichant sur tous les chans je vous mets ici un petit away qui lui passe en /msg sur des chans que vous définirez -10 chans sont possibles-.
Celui-ci passe dans une double-fenètre : une pour le système d'away et l'autre pour les 10 chans :

[code]
dialog awaysys {
title "Away Système"
size -1 -1 200 100
option dbu

tab "Away System", 100, 2 2 200 100 group
text "Raison :", 1, 30 20 100 20, style center, tab 100
text "Nick Away :", 2, 30 50 100 20, style center, tab 100
button "Partir", 3, 20 90 30 10, tab 100
button "Retour", 4, 80 90 30 10, cancel, tab 100
button "Annuler", 5, 140 90 30 10, cancel, tab 100
edit "", 6, 30 30 130 10, autohs, tab 100
edit "", 7, 30 60 130 10, autohs, tab 100

tab "Chans d'Away", 200, 2 2 200 100, group
text "Chan Away", 8, 5 19 65 10, style center, tab 200
text "Chan Away", 9, 130 19 65 10, style center, tab 200
edit %chanaway1, 10, 5 30 65 10, tab 200
edit %chanaway2, 11, 130 30 65 10, tab 200
edit %chanaway3, 12, 5 41 65 10, tab 200
edit %chanaway4, 13, 130 41 65 10, tab 200
edit %chanaway5, 14, 5 52 65 10, tab 200
edit %chanaway6, 15, 130 52 65 10, tab 200
edit %chanaway7, 16, 5 63 65 10, tab 200
edit %chanaway8, 17, 130 63 65 10, tab 200
edit %chanaway9, 18, 5 74 65 10, tab 200
edit %chanaway10, 19, 130 74 65 10, tab 200
button "Valider", 20, 75 90 50 10, ok, tab 200

button "Quitter", 1000, 75 110 50 10, multiok
}

on *:dialog:awaysys:*:*:{
if ($devent == edit) {
if ($did == 6) set %away.niko $did(6)
elseif ($did == 7) set %nick.niko $did(7)
elseif ($did == 10) set %chanaway1 $did(10).text
elseif ($did == 11) set %chanaway2 $did(11).text
elseif ($did == 12) set %chanaway3 $did(12).text
elseif ($did == 13) set %chanaway4 $did(13).text
elseif ($did == 14) set %chanaway5 $did(14).text
elseif ($did == 15) set %chanaway6 $did(15).text
elseif ($did == 16) set %chanaway7 $did(16).text
elseif ($did == 17) set %chanaway8 $did(17).text
elseif ($did == 18) set %chanaway9 $did(18).text
elseif ($did == 19) set %chanaway10 $did(19).text
}
if ($devent == sclick) {
if ($did == 3) {
set %nicknormal $me
away %away.niko
/nick %nick.niko
msg %chanaway1 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway2 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway3 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway4 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway5 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway6 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway7 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway8 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway9 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway10 se met en away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
away %away.niko
/nick %nick.niko
}
if ($did == 4) {
msg %chanaway1 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway2 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway3 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway4 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway5 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway6 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway7 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway8 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway9 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
msg %chanaway10 revient de son away pour 3- 7Raison: 10 %away.niko  3- 7 Depuis: 10 $time 
away
/nick %nicknormal
}
if ($did == 5) {
unset %away.niko
unset %nick.niko
}
if ($did == 20) { echo -a 13 $+ ?8infos validées pour les 4chans d'away13? }
}
}
/code

copiez/collez ce code dans une nouvelle remote et copiez le code suivant dans les aliases

[code]/F5 /dialog -m awaysys awaysys/code

bien sur si vous avez déjà une fonction définie sur la touche F5 changez celle-ci par une autre disponible ;)

petit rappel quand à l'utilisation du système d'away :

Allez déjà dans la partie "Chans d'Away" et mettez les noms des chans puis cliquez sur "Valider", vous aurez un echo qui vous dira que ceux-ci sont validés.

Ensuite fenètre "Away System" remplissez les deux chans "raison d'away" et "pseudo d'away" puis cliquez sur partir, à votre retour cliquez sur revenir, une fois votre pseudo revenu à la normale cliquez sur annuler ce qui aura pour effet de supprimer les variables devenues inutiles. Il va sans dire que la double-fenètre away doit rester ouverte tout le temps où vous êtes away, celle ci se fermera en appuyant sur "annuler".

bisouxxx all 8)

Conclusion :


pour tout report de bug ou correction http://maitre.zen.free.fr

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.