Systeme away

ketamin Messages postés 10 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 25 mai 2004 - 3 avril 2004 à 18:52
15061988 Messages postés 2 Date d'inscription dimanche 21 décembre 2003 Statut Membre Dernière intervention 20 mai 2004 - 20 mai 2004 à 23:21
voila j aimerais avoir un menue deroulent ds mon systeme away pour choisir un pseudo parmit une liste je vous met le script deja fait au dessou

ps je debut donc j ai po reussi a fair se ke je cherhce c pour sa ke je suis la

voila merci a celui ki m aidera

dialog away {
title "System d'absence Canna-Script"
size -1 -1 250 200
button "Fermer", 1, 10 10 70 25, cancel
text " Pseudo :", 2, 10 45 68 15
edit "", 3, 83 43 157 22, autohs limit 30
text "Raison :", 4, 10 70 40 15
edit "", 5, 60 67 180 22, autohs
check "Afficher votre message d'absence", 6, 10 95 178 15
radio "Sur tous les canaux", 7, 10 120 110 15
radio "Sur la fenêtre active", 8, 10 145 120 15
button "S'Absenter", 9, 90 165 70 25, Ok
}

On *:DIALOG:away:init:0:{
did -c away 6
did -c away 8
did -ra away 3 $me $+ |Oqp
did -ra away 5 Je suis Oqp
unset %OCS.away [ $+ [ * ] ]
set %OCS.away.affichemsg on
}

On *:DIALOG:away:sclick:6:{
if (%OCS.away.affichemsg == off) {
did -e away 7,8
did -c away 6,8
set %OCS.away.affichemsg on
halt
}
if (%OCS.away.affichemsg == on) {
did -bu away 7,8
did -u away 6
set %OCS.away.affichemsg off
}
}

On *:DIALOG:away:sclick:7:/set %OCS.away.amsg on

On *:DIALOG:away:edit:3:{
did -e away 9
if ($did(3) == $null) did -b away 9
}

On *:DIALOG:away:sclick:9:{
set %OCS.away on
set %OCS.away.nick $me
set %OCS.away.raison $did(5)
if ($did(5) == $null) set %OCS.away.raison (Aucune)
if (%OCS.away.affichemsg == on) {
if (%OCS.away.amsg == on) { ame 3«8«4« 2 Je m'absente 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1 | goto fin } if ($active Status Window) && ($chan(1) $null) goto fin
if ($active == Status Window) { describe $chan(1) 3«8«4« 2 Je m'absente 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1 | goto fin }
msg $active 3«8«4« 2 Je m'absente 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1
:fin
}
nick $did(3)
.away %OCS.away.raison
}

alias aways dialog -m away away
alias backs {
if (%OCS.away != on) halt
if (%OCS.away.affichemsg == on) {
if (%OCS.away.amsg == on) { ame 3«8«4« 2 Je suis de retour 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1 | goto fin } if ($active Status Window) && ($chan(1) $null) goto fin
if ($active == Status Window) { describe $chan(1) 3«8«4« 2 Je suis de retour 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1 | goto fin }
msg $active 3«8«4« 2 Je suis de retour 4»8»3» 4Raison1 : 1>>> %OCS.away.raison <<<1
:fin
}
nick %OCS.away.nick
.away
unset %OCS.away [ $+ [ * ] ]
}

1 réponse

15061988 Messages postés 2 Date d'inscription dimanche 21 décembre 2003 Statut Membre Dernière intervention 20 mai 2004
20 mai 2004 à 23:21
slt
Ben je sait pas trop mais deja sur mon mirc tout plante texte ... sa m'alerte dc deja ta quelque petit pb les syteme away je connais pas trop mais sa m'alerte dc ta quelque p'tit pbs.
et pr les renseignement c'est #scripteur ou #aide ( #scripteur n'est pas sur tout les serveurs )

bon ben voila
bonne continuation
0
Rejoignez-nous