Un repondeur tout simple
Contenu du snippet
Comme le titre l'indique, c'est un repondeur tout simple, mais qui marche bien :)
Je l'ai fait avec un ami il y a quelques mois deja :)
N'hésitez pas a commenter !
Je l'ai fait avec un ami il y a quelques mois deja :)
N'hésitez pas a commenter !
Source / Exemple :
;repondeur
on *:open:?:{
if %répondeur == On && %txtrép != $null {
if %premlettremaj == OK {
msg $nick %décosouligné $+ %décogras $+ %décodegauche $+ %décogras $+ %décosouligné $+ %souligné2 $+ %gras2 $+ $+ %clrpremlet $+ $+ %clrdufond $+ $upper($mid(%txtrép,1,1)) $+ %gras2 $+ %souligné2 $+ %souligné $+ %gras $+ $+ %clrdutxt $+ $+ %clrdufond $+ $replace($mid(%txtrép,2),(pseudo),$nick) $+ %gras $+ %souligné $+ 01,00 $+ %décosouligné $+ %décogras $+ %décodedroite $+ %décogras $+ %décosouligné
}
else {
msg $nick %décosouligné $+ %décogras $+ %décodegauche $+ %décogras $+ %décosouligné $+ %souligné2 $+ %gras2 $+ $+ %clrpremlet $+ $+ %clrdufond $mid(%txtrép,1,1)) $+ %gras2 $+ %souligné2 $+ %souligné $+ %gras $+ $+ %clrdutxt $+ $+ %clrdufond $+ $replace($mid(%txtrép,2),(pseudo),$nick) $+ %gras $+ %souligné $+ 01,00 $+ %décosouligné $+ %décogras $+ %décodedroite $+ %décogras $+ %décosouligné
}
}
}
alias répondeur { if ($dialog(répondeur) = $null ) dialog -m répondeur répondeur }
menu channel {
. »»» Configurer Répondeur «««:répondeur
}
menu query {
Répondeur:répondeur
}
dialog répondeur {
title "Option du Répondeur"
size -1 -1 300 100
option dbu
box "Editer son propre répondeur",1,5 5 290 80, result
check "Répondeur activé",2,10 20 70 10
text "Si tu veut que le nom de ton interlocuteur apparaisse dans ton répondeur, tape (pseudo). (pseudo) sera automatiquement remplacé par son pseudo ",4,10 35 200 20
text "Rentrez ici votre phrase de réponse quand quelqu'un voudra vous parler en privé:",5,10 60 200 10
edit "",6, 10 70 270 10,autohs
button "Valider",99,135 88 30 10,ok
}
on *:dialog:répondeur:init:0:{
if %check.rép.2 == Yes { did -u répondeur 2 }
else { did -c répondeur 2 }
if $did(2).state == 0 { did -m répondeur 6 }
if $did(2).state == 1 { did -n répondeur 6 }
did -a répondeur 6 %txtrép
}
on *:dialog:répondeur:sclick:*:{
if $did(2).state == 0 { did -m répondeur 6 | set %check.rép.2 Yes | unset %répondeur }
if $did(2).state == 1 { did -n répondeur 6 | unset %check.rép.2 | set %répondeur On }
}
on *:dialog:répondeur:edit:6:{
set %txtrép $did(6)
}
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.