begin process at 2010 07 30 01:28:14
  Trouver un code source :
 
dans
 
Accueil > Forum > 

IRC

 > 

Divers

 > 

Débutant(e)

 > 

aide a finir mon code away combo


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

aide a finir mon code away combo

samedi 13 mars 2010 à 21:59:35 | aide a finir mon code away combo

snip74

Bonjour,
j'aimerai un coup de pouce pour finir mon une système away en combo

alias Coul { if !$dialog(away) { dialog -m away away } | else { dialog -x away } }

dialog away {
title "Barre away"
size -1 -1 70 12
option dbu

combo 7, 2 0 65 60, size drop

}
on 1:dialog:away:*:*: {
if $devent == init {
didtok -i $dname 4 44 Autre Motif..,Oqp,abs,Revenir etc...
}
if $devent == sclick {
if ($did(7).seltext == Autre Motif..) { /away $?="Entrer le message away :" | /ame $chr(91) $+ $! $+ $chr(93) | /tnick $me $+ $chr(91) $+ $?="pseudo d'absence ex: abs; oqp; etc... :"$! $+ $chr(93) }
if ($did(7).seltext == oqp) { /away /ame $chr(91) $+ oqp $+ $chr(93) | /tnick $me $+ $chr(91) $+ oqp $+ $chr(93) }
if ($did(7).seltext == abs) { /away /ame $chr(91) $+ abs $+ $chr(93) | /tnick $me $+ $chr(91) $+ abs $+ $chr(93) }
if ($did(7).seltext == Revenir) { /away | /nick $readini mirc.ini mirc nick | /ame $chr(91) $+ $?="Entrer le message de retour :"$! $+ $chr(93) }
}
}

j'aimerai ajouter une notice lorsque une personne me Hl que sa lui envoie une notice du style
on *:text:*:#:if ($me isin $1-) /notice $nick Je suis oQp ?
Ou on *:text:*:#:if ($me isin $1-) /notice $nick Je suis Abs ?
etc... pour X raison.
et si je suis en mode away que je ne puisse pas sélectionner un autre mode d'absence pour ne pas me retrouve avec un pseudo dans se style Test-Oqp-abs etc..
et sans vouloir abusé, dans ma conbo rajouter un système auto away après X seconde ou minute sans parler sur un salon ou sur le server

Cordialement Stéphane
dimanche 14 mars 2010 à 22:24:26 | Re : aide a finir mon code away combo

MoiMdr

Réponse acceptée !
salut snip74,

alors déja ton code pense que c'est une erreur de recopiage mais ton id de didtok est pas le bon 4 devient 7 ,

pour le reste tu peut faire comme ceci :

dialog away {
title "Barre away"
size -1 -1 70 12
option dbu

combo 7, 2 0 65 60, size drop


}
on 1:dialog:away:*:*: {
if $devent == init {
didtok -i $dname 7 44 Autre Motif,Oqp,abs
;did -a $dname 8 Revenir
did -c $dname 7 1
;did -c $dname 8 1
}
if $devent == sclick {
if ($did(7).seltext == Autre Motif) {
echo 4 -s autre motif
did -r $dname 7
did -i $dname 7 1 Revenir

}
if ($did(7).seltext == oqp) {
echo 4 -s oqp
did -r $dname 7
did -i $dname 7 1 Revenir
}

if ($did(7).seltext == abs) {
echo 4 -s abs
did -r $dname 7
did -i $dname 7 1 Revenir
}

if ($did(7).seltext == Revenir) {
echo 4 -s revenu
didtok -i $dname 7 44 Autre Motif,Oqp,abs
}
}
}

biensure tu remet les actions que tu veux faire

par contre pour remtre le revenir sur la combo je n'ai aps encore la solution car si tu fais le did -c $dname 7 1 dans tes lignes d'absences ca exécutera aussi revenir, ce qui serrait balo MDR

sinon le did -r efface tous ce que tu as dans la liste combo
le did -i $dname 7 1 Revenir insert le mot Revenir a la ligne 1

j'espère que tu pourras un peut avancer avec ca ;)
Et si qulqu'un peut aider pour mettre revenir sur le boutton combo et bien son astuce serrait la bienvenue ;)

dimanche 14 mars 2010 à 22:34:01 | Re : aide a finir mon code away combo

snip74

Réponse acceptée !
moimdr Loooooool Re coucou ma biche XD,
oui pour le on 1:dialog:away:*:*: {
if $devent == init {
didtok -i $dname 4 44 Autre Motif..,Oqp,abs,Revenir etc... une erreur de code car le mien en original et a 179 ligne et acouplet avec d'autre bouton qui non rien avoir avec ma combo donc j'ai mis le code de base et oublier de changer le 4 en 7 :$
aprés je pense qu'il y a deux souci mais je suis pas sur tu a un souci ici

;did -a $dname 8 Revenir
did -c $dname 7 1
;did -c $dname 8 1

et ici

if ($did(7).seltext == Revenir) {
echo 4 -s revenu
didtok -i $dname 7 44 Autre Motif,Oqp,abs
}


mais comme je suis pas sur té envoyer mon code complet pour que tu puisse regardé si c'est moi qui a mal compris ou c'est bien 2 petites erreur de chifrage ;)


Cordialement Stéphane
dimanche 14 mars 2010 à 22:51:29 | Re : aide a finir mon code away combo

MoiMdr

Réponse acceptée !
re ;)

oui le :

;did -a $dname 8 Revenir
did -c $dname 7 1
;did -c $dname 8 1

j'avais commencé en voulant fair deux combo avec la revenir qui remplcait l'autre mais j'ai changé de méthode en cour de chemin MDRRRRR

et oui le :

if ($did(7).seltext == Revenir) {
echo 4 -s revenu
didtok -i $dname 7 44 Autre Motif,Oqp,abs
}

il manque un did -r $dname 7 a mettre juste avant le didtok évidement :))

en gros tes ligne de code serront dans ce style:

elseif ($did(7).seltext == oqp) {
/away /ame $chr(91) $+ oqp $+ $chr(93) | /tnick $me $+ $chr(91) $+ oqp $+ $chr(93)
did -r $dname 7
did -i $dname 7 1 Revenir
}
voila j'espère que ca peut t'aider un peut en tous cas ;)
dimanche 14 mars 2010 à 22:59:58 | Re : aide a finir mon code away combo

snip74

re oui sa m'aide mais trouve pas comment envoyer la notice sur un Hl :D quand on et away XD

Cordialement Stéphane
mardi 16 mars 2010 à 10:34:31 | Re : aide a finir mon code away combo

snip74

Bonjour,
Bon bah j'arrive a la fin de mon système mais me reste quand même a trouvé 2 petits truc

1) Comment mettre le nom de mon Combo
2) Comment lui ajouter un système d'auto away
exemple :
if ($did(7).seltext == Auto away) { /away $?="combien de minute pour l'auto-Away :" | /ame $?="Motif D'absence :" | /tnick $me $+ $chr(91) $+ $?="Quelle pseudo d'absence ex: abs;etc. :"$! $+ $chr(93) }

Cordialement Stéphane
jeudi 1 avril 2010 à 01:08:13 | Re : aide a finir mon code away combo

WorldDMT

salut
n'importe quoi!!! en bref voilà le code
dsl j'ai pas le temp pour une expliqation a toi de tester et voir si ça te convient

Code ActionScript :
alias coul dialog $iif($dialog(away),-v,-m away) away
dialog away {
  title Barre away
  size -1 -1 70 12
  option dbu
  combo 1, 2 0 65 60, size drop
}
on *:dialog:away:*:*:{
  if ($devent == init) didtok $dname 1 44 Autre Motif..,Oqp,abs
  elseif $devent == sclick {
    if $istok(oqp|abs|Autre Motif..,$did(1).seltext,124) {
      var %x $iif($did(1).seltext == Autre Motif..,$?="Entrer le message away :",$v1)
      away %x
      ame $chr(91) $+ $iif($!,%x,away) $+ $chr(93)
      did -a $dname 1 Revenir
      tnick $me $+ $chr(91) $+ $iif($!,$?="pseudo d'absence ex: abs; oqp; etc... :",$iif(%x,$v1,away)) $+ $chr(93)
    }
    else {
      away
      nick $anick
      did -d $dname 1 4
      ame $chr(91) $+ $$?="Entrer le message de retour :"$! $+ $chr(93)
    }
  }
}
jeudi 1 avril 2010 à 11:25:19 | Re : aide a finir mon code away combo

snip74

Bonjour WorldDMT
merci encor ppour toi aide précieux :p
Mais voila aprés avoir fait le test avec ton combo sa mais des trucs po logique :p.
voici l'exeple :
[11:11] * bad [away]
[11:11] 1[4Nick1]14 bad 05a pris le pseudo4 bad[Oqp]
[11:11] * bad[Oqp] [away]
[11:11] 1[4Nick1]14 bad[Oqp] 05a pris le pseudo4 bad[Oqp][abs]
[11:11] * bad[Oqp][abs] [away]
[11:11] 1[4Nick1]14 bad[Oqp][abs] 05a pris le pseudo4 bad[Oqp][abs][abs]
[11:11] * bad[Oqp][abs][abs] [dg]

Le combo en lui même fonction.
Le souci reste qu'il ne bloque les autres absence voir >>bad[Oqp][abs]<<
y a plusieur revenir, plus aucun motif quand je vais prendre le pseudo OQP ou ABS etc... :/
et je recherché juste le systeme avec un timer et son alias ou autre vue que je c pas se que c'est pour quand je selection auto away sa me dise déclacher le auto away dans moi je rentre les minutes style 10 et que dans 10 mn sa me mais en auto away si je ne parler pas :
if ($did(7).seltext == Auto away) { timer /away $?="combien de minute pour l'auto-Away :" | /ame $?="Motif D'absence :" | /tnick $me $+ $chr(91) $+ $?="Quelle pseudo d'absence ex: abs;etc. :"$! $+ $chr(93) }


et en suite lui donner un nom au combo car la case quand on l'ouvre et vide sa fait un carre blanc faut cliquer dessus pour savoir a quoi sa sert :)



Codialement Stéphane
jeudi 1 avril 2010 à 11:29:10 | Re : aide a finir mon code away combo

snip74

re a oui j'ai oublier

Je mais une partie du code ou j'en suis certe c'est pas jolie mais bon me manque juste a trouvé le auto away et le nom du combo

on *:dialog:pseudo-passe:*:*: {
if $devent == init {
dll dlls/mdx.dll SetMircVersion $version
dll dlls/mdx.dll MarkDialog $dname
dll dlls/mdx.dll SetDialog $dname bgcolor $rgb(211,211,211)
dll dlls/mdx.dll SetColor 3 background $rgb(211,211,211)
dll dlls/mdx.dll SetColor 3 textbg $rgb(211,211,211)
didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Revenir
}
elseif $devent == sclick {
if $did == 1 { nick %nick $did(2) }
elseif ($did == 4) {
var %nickpass $?*="Entrez ici votre mot de passe"
if %nickpass { ns identify %nickpass }
}
elseif ($did == 5) {
.lance_multicrit
}
elseif ($did == 6) { /list }
elseif ($did(7).seltext == Autre Motif..) { /away $?="Entrer le message away :" | /ame $chr(91) $+ $! $+ $chr(93) | /tnick $me $+ $chr(91) $+ $?="pseudo d'absence ex: abs; oqp; etc... :"$! $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == oqp) { /away 6Je 7suis4 [12oQp4]12 je 1reviens 3bientot 4(2Bippez 13si 2besoin4)2... | /ame 6Je 7suis 5OQP1, 12je 1reviens 3bientot 4(2Bippez 13si 2besoin4)2... | /tnick $me $+ $chr(91) $+ oqp $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Abs) { /away 4Je suis Absent tout simplement | /ame 4Je suis Absent tout simplement | /tnick $me $+ $chr(91) $+ Abs $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Pala) { /away 12désoler je suis actuellement pas la!! pour cause de 3[ 4Paperasse 3] | /ame 12désoler je suis actuellement pas la!! pour cause de 3[ 4Paperasse 3] | /tnick $me $+ $chr(91) $+ Pala $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Clope) { /away 6Je 7file 5m'en 12grillé une tite13, 12à 1Toute 4^12¸4^ :shit: | /ame 6Je 7file 5m'en 12grillé une tite13, 12à 1Toute 4^12¸4^ :shit: | /tnick $me $+ $chr(91) $+ Clope $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Mange) { /away 13À 4Table 2^3^ :d | /ame 13À 4Table 2^3^ :d | /tnick $me $+ $chr(91) $+ Miam $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Zedore) { /away 6Bon 7aller 5jvé 3dodoter :z 4^^ 13Bonne 1nuit 4a 10Tous 2sur 12I4R3C12.Tchat-Fusion.org :) | /ame 6Bon 7aller 5jvé 3dodoter :z 4^^ 13Bonne 1nuit 4a 10Tous 2sur 12I4R3C12.Tchat-Fusion.org :) | /tnick $me $+ $chr(91) $+ Zedore $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Taff) { /away 12l'escavage exsiste encore 4sisi 12la preuve j'vai aller bossé 12@+ 3tard :)) | /ame 12l'escavage exsiste encore 4sisi 12la preuve j'vai aller bossé 12@+ 3tard :)) | /tnick $me $+ $chr(91) $+ Taff $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == WC) { /away 4Urgence 12S'impose | /ame 4Urgence 12S'impose | /tnick $me $+ $chr(91) $+ Wc $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Dvd) { /away 12Je mate un 4Film | /ame 12Je mate un 4Film | /tnick $me $+ $chr(91) $+ Dvd $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Café) { /away 6C'est 7l'heure11!11! 5de 4la 12pause 10café :d :cafe: 3à 13Toute 4^12¸4^ | /ame 6C'est 7l'heure11!11! 5de 4la 12pause 10café :d :cafe: 3à 13Toute 4^12¸4^ | /tnick $me $+ $chr(91) $+ Cafe $+ $chr(93) | did -r $dname 7 | did -i $dname 7 1 Revenir }
elseif ($did(7).seltext == Revenir) { /away | /nick $readini mirc.ini mirc nick | /ame 10® 2/13/6/ 4^12¸4^ 7(2De 12retour7) | did -r $dname 7 | didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Revenir
}
elseif ($did == 8) {
var %affiche_page = $html_page(@Photo_Membres)
}
elseif ($did == 9) {
var %affiche_page = $html_page(@Le_Site)
}
else { halt }
}
elseif $devent == edit {
did -a $dname 2 %nick
}
}

Cordialement Stephane

ps: au fait mes excuse pour mais faute plus haut lol j'ai re lut y a na plus que bab lol
jeudi 1 avril 2010 à 20:30:22 | Re : aide a finir mon code away combo

WorldDMT

we normalement il fallait que tu teste le code puisque je n'ai pas testé :p
bon il falait que la combo list soit toute effacé quand t'es away mais là tu reviens avec un autre code :p

bref pour le code precedent tu remplace
did $diname -d 1 4
par
did -r $dname 1
didtok $dname 1 44 Autre Motif..,Oqp,abs

et
did -a $dname 1 Revenir
par
did -ra $dname 1 Revenir

1 2 3 4

Cette discussion est classée dans : chr, away, abs, oqp, if


Répondre à ce message

Sujets en rapport avec ce message

2 p'tites alias qui trainaient... [ par uaip ] Bonjour, étant donné que je ne peux plus poster dans la catégorie des codes, je pose ici 2 petites aliases (mIRC), en même temps j'accepte toute criti question language mirc [ par besky ] Bonjour,En language mirc je voudrais connaitre le contraire de "isop" dans un code tel que: if ($nick isop $chan)en d'autres thermes je voudrais avoir détecteur badword en PV qui Kick,ignore et ferme le PV [ par freenaute ] bonjour tous !J'ai "compilée" cette remote qui détecte des badwords dans mes PV et répond par kick,donne la raison puis ignore et ferme le PV et ban l début de away [ par Camanche ] Bonjour, j'aimerais envoyer une notice à la personne qui me hl quand je suis away et lui dire depuis quand. J'ai donc fait ça: on 1:text:*:*:{ if ($ ecriture [ par mixam ] bonjour j'ai un code pour l'ecriture pour avoir la premiere lettre d'une couleur differente du reste du textemais je voudrais qu'elle sois aussi en ma Pour 'minerbe' - debug [ par TropNul ] ; MODIFIED/OPTIMIZED CODE!; Je ne l'ai volontairement pas commente. A toi, minerbe, de; chercher, d'apprendre et de comprendre. Bien evidemment, nous; probleme d'auto away [ par mixam ] bonjour j'ai un probleme avec mon systeme d'auto away il s'affiche plusieurs fois voici le code on 1:input:*: if ( %away == off ) && ( %auto == on ) { enregistrer et indentidié pseudo [ par mikl59 ] voila on ma donner ce petit truc mais des commande ne marche pas ( !id et !ag et le reste ) si quelqu' un pourrais me dire ce qu' il ne va aps ou le Socket + Dcc chat [ par Anatolei ] Bonjour,Je tombe sur un os.. Voilà, je connecte une socket sur un serveur IRC, lorsque je tente, avec celle-ci, une connection dcc chat avec un autre pb de if() pour bot Perl [ par uaip ] Bonjour à tous, ma question est très simple : quelqu'un sait-il comment coder en Perl l'hypothèse de la présence d'un user sur un salon IRC ? C'est en


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,780 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales