aide a finir mon code away comboRésolu

Question

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

MoiMdr · Accepted Answer

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 ;)

snip74 · Answer

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

MoiMdr · Answer

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 ;)

snip74 · Answer

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

snip74 · Answer

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

WorldDMT · Answer

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

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)
    }
  }
}

snip74 · Answer

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

snip74 · Answer

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

WorldDMT · Answer

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

snip74 · Answer

re
oui logique vue que le 1er code étais un code exemple car mon code a moi et tros long et il et sur une barre en mdx.
pis sa répond pas a mon souci de combo auto away :s
et comment mettre le nom au combo ;) 

Brefff pas grave je continu a cherché :p merci ;)

Cordialement Stéphane

MoiMdr · Answer

Salut, 

Je crois en fait que ca question était 

1°) comment faut il faire pour que le bouton de la combo soit remplis a l'ouverture du dialog par une fonction d'absence et par revenir quand on est déjà absent, genre que il y ai sur le boutton marqué abs ou oqp etc... avant qu'on ouvre la combo et Revenir quand on est déja away

il me semble que c'est avec un 
did -c $dname 7 1
 mais ca marche en init mais en sclic si on le met ca valide et donc fait un genre de boucle donc ca ne va pas.....

Puis  

2°) depuis le début il me semble qu'il veut mettre un system de Auto away si on est inactif sur le serveur depuis un certain nombre de minute

perso j'ai cherché un peut dans l'aide avec les timer mais je ne vois aps comment faire l'Auto away .....

Salutation ;)

WorldDMT · Answer

@snip74:
bon donne moi le long code et explique moi ce que tu cherche a avoir et je t'aiderai.

snip74 · Answer

Bonjour,
ok je te donne le code ;) et merci encor :p
tu risque de voir des ligne un peut bizar comme celle la
if $dialog(multicrit_nick) { did -i multicrit_nick 200 1 page $prop 
c'est normal elle marche avec une autre fonction sur une autre remote alors ne tkt pas lol merci encor ;)
et en ligne 45 j'ai cette erreur >>  * /timer: invalid parameters (line 45, Barre Haut.mrc)

on *:Start:{ .lance_tool_fusion }

dialog pseudo-passe {
  title ""
  size -1 -1 800 32
  button "",1, 0 0 0 0,default
  edit $readini mirc.ini mirc nick, 2, 2 8 115 22,autohs limit 18
  button "Passe", 4, 120 8 83 22
  button "Salons", 6, 1004 8 83 22
  combo 7, 206 8 83 200, size drop
  button "Photo Membres", 8, 292 8 83 22
  button "Accueil Fusion", 9, 378 8 83 22
}

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é,Auto Away,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 == Auto Away) { .set %att $$?="Dans Combien de minute sans activité?" | timer %att %temp ame  $$?="Quel Motif D'absence ?" | /tnick $me $+ $chr(91) $+ $?="pseudo d'absence ?"$! $+ $chr(93) | /away | 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é,Auto Away,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
  }
}
alias chargement_titre {
  if ($dll(dlls/nHTMLn.dll,ready,$window(%fenetre).hwnd) != S_FALSE) {
    .titlebar $1 $dll(dlls/nHTMLn.dll,name,$window($1).hwnd)
    timerchargement off
  }
}
alias lance_tool_fusion { dialog -ma pseudo-passe pseudo-passe | dll dlls\hOS.dll Dock pseudo-passe top 0 }                
alias who.page {  
  var %dname, %did 
  if ($0 = 1) { set %dname $dname | set %did $1 }
  else { set %dname $1 | set %did $2 } 
  if $dialog(multicrit_nick) { did -i multicrit_nick 200 1 page $prop | return $gettok($did(%dname, %did, 1), 1-, 32) }
  else { halt }
}
alias html_page {
  var %page_site $1
  window -pik0 %page_site 
  echo -a $dll(dlls/nHTMLn.dll,attach,$window(%page_site).hwnd) 
  if %page_site == @Le_Site { var %url www.tchat-fusion.org/ }
  elseif %page_site == @Photo_Membres { var %url http://ub33.free.fr/photo/ }
  else { halt }
  echo -a $dll(dlls/nHTMLn.dll,navigate,%url)
  .timerchargement 0 1 chargement_titre
}

on *:text:*:#: {
  if ($me isin $1-) {
    if $away { notice $nick je suis abscent MOTIF: $awaymsg }
  }
}
on *:action:*:#: {
  if ($me isin $1-) {
    if $away { notice $nick je suis abscent MOTIF: $awaymsg }
  }
}

et ici il manque le alias ou on txt ou je ne c'est quoi pour faire activé le auto away

Cordialement Stéphane

WorldDMT · Answer

ok bon juste en flash ce que j'ai vu

$readini mirc.ini mirc nick peut etre remplacé par $anick

pour l'erreur du timer regarde toi meme

elseif ($did(7).seltext = = Auto Away) { .set %att $$?="Dans Combien de minute sans activité?" | timer %att  %temp  ame $$? ="Quel Motif D'absence ?" ...}

donc tu dois changer cette variable "%temp" par 1 et la placé avant %att
donc ça deviendra /timer 1 %att ame blalbla

pour le $did(7).seltext tu peut mettre les phrases dans un fichier mais ça revient a toi
de mon coté je vais refaire a ma maniere et a toi de voir ce qui t'interresse :p

snip74 · Answer

bonsoir,
J'ai écouter pour le timer 1 c'est vrai plus d'erreur mais le souci c'est que sa marche pas non plus il me mais directement en away et avec un pseudo awayvoir en dessous:

[23:17] * Test Teste pasla
[23:17] 1[4Nick1]14 Test 05a pris le pseudo4 Test[Pala]

Fenaitre Info:
-
* Timer 1 activated
-
* Timer 1 halted
-
You are no longer marked as being away
-


donc sa attent pas les X minute avant de me mettre away sans compter que si je parle sa na aucune raison de me mettre away :p horts la il attent pas et que je parle ou pas bah je suis en away Lol
mais ok vais pas attendre car je cheche encor mais je verrai avec le tiens et je comparre ;)

Cordialement Stéphane

WorldDMT · Answer

non mais si tu veux faire plusieurs commandes pour un timer il va falloir faire une alias :)

snip74 · Answer

oki c'est bien se qui me semblé :p
Bah regarde de ton coter moi je continue je verrai plus avec ton code au cas ou car la il y a même pas le alias ni le nom du combox etc...


merci encor et bon code :p

au cas ou on se tiens au courent ;) 

Cordialement stephane

WorldDMT · Answer

en fait pour l'auto away c'est pas un timer normal tu dois utilisé $idle

WorldDMT · Answer

bon voilà quelque modification teste et dis moi s'il en manque
- le edit je ne sais pas pourquoi tu l'a mis je le trouve inutile
- le premier bouton aussi
- le on text et on action c'est $istok qu'il faut ituliser
- j'ai ajouté on input pour le retour auto avec quelque truc

on *:Start:lance_tool_fusion

dialog pseudo-passe {
  title ""
  size -1 -1 800 32
  button "",1, 0 0 0 0,default
  edit $anick, 2, 2 8 115 22,autohs limit 18
  button "Passe", 4, 120 8 83 22
  button "Salons", 6, 1004 8 83 22
  combo 7, 206 8 83 200, size drop
  button "Photo Membres", 8, 292 8 83 22
  button "Accueil Fusion", 9, 378 8 83 22
}

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)
    if (!$away) didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Auto Away
    else did -a $dname 7 Revenir
    hadd -m wa oqp 6Je 7suis4 [12oQp4]12 je 1reviens 3bientot 4(2Bippez 13si 2besoin4)2...
    hadd -m wa abs 4Je suis Absent tout simplement
    hadd -m wa pala 12désoler je suis actuellement pas la!! pour cause de 3[ 4Paperasse 3]
    hadd -m wa clope 6Je 7file 5m'en 12grillé une tite13, 12à 1Toute 4^12ž4^ :shit:
    hadd -m wa mange 13À 4Table 2^3^ :d
    hadd -m wa zedore 6Bon 7aller 5jvé 3dodoter :z 4^^ 13Bonne 1nuit 4a 10Tous 2sur 12I4R3C12.Tchat-Fusion.org :)
    hadd -m wa taff 12l'escavage exsiste encore 4sisi 12la preuve j'vai aller bossé 12@+ 3tard :))
    hadd -m wa wc 4Urgence 12S'impose
    hadd -m wa dvd 12Je mate un 4Film
    hadd -m wa café 6C'est 7l'heure11!11! 5de 4la 12pause 10café :d :cafe: 3à 13Toute 4^12ž4^
  }
  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 {
      
      if !$istok(revenir|auto away|Autre Motif..,$did(7).seltext,124) {
        var %a $hget(wa,$did(7).seltext)
        away %a
        ame  $+ %a
        tnick $me $+ $chr(91) $+ $did(7).seltext $+ $chr(93)
        did -ar $dname 7 Revenir
      }
      elseif ($did(7).seltext == Auto Away) {
        set %att $$?="Dans Combien de minute sans activité?"
        set %idle $$?="Quel Motif D'absence ?"
        set %awx $$?="pseudo d'absence ?"
        timerwidle 0 10 widle %att
      }
      elseif $did(7).seltext == Revenir {
        away
        nick $anick
        ame 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
        did -r $dname 7
        didtok $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Auto Away
      }
    }
    elseif ($did == 8) {
      var %affiche_page = $html_page(@Photo_Membres)
    }
    elseif ($did == 9) {
      var %affiche_page = $html_page(@Le_Site)
    }
  }
  elseif $devent == edit {
    did -a $dname 2 %nick
  }
}
alias -l widle {
  if (!$away) && ($idle > $1) {
    ame %idle
    tnick $me $+ $chr(91) $+ %awx $+ $chr(93)
    away %idle
    if ($dialog(pseudo-passe)) did -ar $v1 7 Revenir
  }
}
alias chargement_titre {
  if ($dll(dlls/nHTMLn.dll,ready,$window(%fenetre).hwnd) != S_FALSE) {
    .titlebar $1 $dll(dlls/nHTMLn.dll,name,$window($1).hwnd)
    timerchargement off
  }
}
alias lance_tool_fusion { dialog -ma pseudo-passe pseudo-passe | dll dlls\hOS.dll Dock pseudo-passe top 0 }
alias who.page {
  var %dname, %did
  if ($0 = 1) { set %dname $dname | set %did $1 }
  else { set %dname $1 | set %did $2 }
  if $dialog(multicrit_nick) { did -i multicrit_nick 200 1 page $prop | return $gettok($did(%dname, %did, 1), 1-, 32) }
  else { halt }
}
alias html_page {
  var %page_site $1
  window -pik0 %page_site
  echo -a $dll(dlls/nHTMLn.dll,attach,$window(%page_site).hwnd)
  if %page_site == @Le_Site { var %url www.tchat-fusion.org/ }
  elseif %page_site == @Photo_Membres { var %url http://ub33.free.fr/photo/ }
  else { halt }
  echo -a $dll(dlls/nHTMLn.dll,navigate,%url)
  .timerchargement 0 1 chargement_titre
}
on *:input:*:{
  if $away {
    away
    nick $anick
    ame 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
  }
}
on *:text:*:#:if ($istok($1-,$me,32)) if ($away) notice $nick je suis abscent MOTIF: $awaymsg
on *:action:*:#:if ($istok($1-,$me,32)) if ($away) notice $nick je suis abscent MOTIF: $awaymsg

snip74 · Answer

Re ;)
Bon je viens de le testé vite fait car j'aller couper et j'ai reçus ton mail ;)
Donc avec le auto away il délire avec les pseudos 
Je m'explique j'ai mis 1mn il arrétte pas de changer de pseudon sans attendre les unes minute voir desous

[01:15] * Text22 Test
[01:15] 1[4Nick1]14 Text22 05a pris le pseudo4 Text22[pseudoTest]
[01:15] * Text22[pseudoTest] 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
[01:15] 1[4Nick1]14 Text22[pseudoTest] 05a pris le pseudo4 Text22
[01:15] * Text22 Test
[01:15] 1[4Nick1]14 Text22 05a pris le pseudo4 Text22[pseudoTest]
[01:15] * Text22[pseudoTest] 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
[01:15] 1[4Nick1]14 Text22[pseudoTest] 05a pris le pseudo4 Text22
[01:15] * Text22 Test
[01:15] 1[4Nick1]14 Text22 05a pris le pseudo4 Text22[pseudoTest]
[01:16] * Text22[pseudoTest] 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
[01:16] 1[4Nick1]14 Text22[pseudoTest] 05a pris le pseudo4 Text22
[01:16] * Text22 12l'escavage exsiste encore 4sisi 12la preuve j'vai aller bossé 12@+ 3tard :))
[01:16] <04Text22>  hrthrthtrh
[01:16] 1[4Nick1]14 Text22 05a pris le pseudo4 Text22[Taff]
[01:16] * Text22[Taff] Test
[01:16] * Text22[Taff] Test
[01:16] 1[4Nick1]14 Text22[Taff] 05a pris le pseudo4 Text22[Taff][pseud


Quand je clic sur Revenir il se re mais auto away regarde bien tu va étre étonner des pseudo qu'il prend Lol

Cordialement Stéphane

WorldDMT · Answer

j'avais juste scripté sans testé :D je m'attendais aux erreurs :)
je vais voir ce probleme

snip74 · Answer

Hello,
Ok tkt pas lol moi je suis encor dessus :p
Sinon moimdr ma proposer un truc pas mal que j'aime bien mais je c pas se que tu en pense donc je te donne l'idée tu voie le quel et le plus avantageux ;) moi je regarde des deux coter :p

Voici se qu'il ma proposer :)

dialog essais {
  title "         ~ Dial Absence ~"
  option dbu
  size -1 -1 110 150

  button "absence", 1,10 10 100 10, 
  button "revenir", 2,10 10 100 10, 
}

on 1:Dialog:essais:*:*: {

  if ($devent == init) {
    did -v $dname 1 | did -h $dname 2
  }
  if ($devent == sclick) {
    if ($did == 1)  PopAbsent
    if ($did == 2) {
      echo 4 tu es reviendu    
      did -v $dname 1 | did -h $dname 2
    }
  }
}  

alias popups { dll $shortfn(dlls\popups.dll) $$1- }
alias PopAbsent {
  popups New PopAbsent 0 0
  popups AddItem PopAbsent end 0 0 Absent1 $cr echo ta cpmmande ici 1 
  popups AddItem PopAbsent end 0 0 Absent2 $cr echo ta cpmmande ici 2 
  popups AddItem PopAbsent end 0 0 Absent3 $cr echo ta cpmmande ici 3 
  popups AddItem PopAbsent end 0 0 Absent4 $cr echo ta cpmmande ici 4 

  var %a = $dll(dlls/popups.dll,Popup,PopAbsent [ $mouse.dx ] [ $mouse.dy ] )
  if ($gettok(%a,1,32) == OK) { scid $cid $gettok(%a,4-,32) | did -h $dname 1 | did -v $dname 2 }
}

Cordialement SDtephane

WorldDMT · Answer

je viens de tester le code j'ai aucun probleme chez moi

voilà cmt j'ai testé

alias widle {
  if (!$away) && ($idle > $1) {
    ame idle
    tnick $me $+ $chr(91) $+ awx $+ $chr(93)
    away idle
    if ($dialog(pseudo-passe)) did -ar $v1 7 Revenir
  }
}
on *:input:*:{
  if $away {
    away
    nick $anick
    ame 10® 2/13/6/ 4^12ž4^ 7(2De 12retour7)
  }
}

ensuite j'ai tapé /timerwidle 0 10 widle 25
il faut juste ajouté une condition pour arreter le timer donc on ajoute sur la condition revenir if ($timer(widle)) timerwidle off
mais ce que tu a poster qu'il fait que changer de pseudo ça j'ai pas eus en testant
peut etre le probleme vien d'une autre part 

pour le code que tu viens de poster c'est avec une dll c'est pas donc du pur mIRC :p

snip74 · Answer

Bonsoir WorldDMT,
hé hé super sa :)
j'ai ajouter la condition comme tu la dit ici:
alias -l widle {
  if (!$away) && ($idle > $1) {
    ame %idle
    tnick $me $+ $chr(91) $+ %awx $+ $chr(93)
    away %idle
    if ($dialog(pseudo-passe)) did -ar $v1 7 Revenir
    if ($timer(widle)) timerwidle off 
  }
}
apparemment je n'est plus de souci de changement de pseudo :p
Tros cool merci infiniment ;) par contre me reste un dernier petit truc c'est le did -c pour lui donner le nom a ma combo pour et le nom Mode Absent par de-faux mais la encore quand je le mais sa foire :s tu aurrai la solution stp merci ?

Cordialement Stéphane

WorldDMT · Answer

oui bien sur tu peux, essaye ceci:
did -c $dname 7 3 
comme ça tu aura le 3eme mot dans la combo list qui est Abs

snip74 · Answer

Apres avoir testé sa veut toujours pas :s remarque c'est pas la 1er fois que je mais la ligne et que sa veut pas car avant de demandé je teste toujours et je recherche quand même un peut :p j'ai mis le did -c 7 3 ici : 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) if (!$away) didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Auto Away else did -c $dname 7 3 else did -a $dname 7 Revenir hadd -m wa oqp 6Je 7suis4 [12oQp4]12 je 1reviens 3bientot 4(2Bippez 13si 2besoin4)2... hadd -m wa abs 4Je suis Absent tout simplement hadd -m wa pala 12désoler je suis actuellement pas la!! pour cause de 3[ 4Paperasse 3] hadd -m wa clope 6Je 7file 5m'en 12grillé une tite13, 12à 1Toute 4^12ž4^ :shit: hadd -m wa mange 13À 4Table 2^3^ :d hadd -m wa zedore 6Bon 7aller 5jvé 3dodoter :z 4^^ 13Bonne 1nuit 4a 10Tous 2sur 12I4R3C12.Tchat-Fusion.org :) hadd -m wa taff 12l'escavage exsiste encore 4sisi 12la preuve j'vai aller bossé 12@+ 3tard :)) hadd -m wa wc 4Urgence 12S'impose hadd -m wa dvd 12Je mate un 4Film hadd -m wa café 6C'est 7l'heure11!11! 5de 4la 12pause 10café :d :cafe: 3à 13Toute 4^12ž4^ } et je profite de se poste pour te dire que ok pour le reste sauf au niveau du auto away sa merdouille un poile mais la c'est vrai que je trouve pas donc je te montre les test que j'ai fait mais vais raccourcir un poile car c'est tres long ;) matte l'heure pour comprendre ;) j'ai mis le auto away a 23h35 j'ai fait comme si je parler en salon au boue de X minute je me suis arrétté de parler donc a 23h37 j'ai le motif d'absence qui c'est afficher et bien plus tard 1mn aprés a 23h38 j'ai eu le changement de pseudo :/ [23:35] <04Text22> esfgff [23:35] <04Text22> sfsfsdf [23:35] <04Text22> sdfsdfsdf [23:35] <04Text22> sdfsdf [23:35] <04Text22> sdfsdf [23:35] <04Text22> sdfsdfsf [23:35] <04Text22> sdfsdfsdf Etc.............................. [23:35] <04Text22> sdfsdfsdf [23:36] <04Text22> sdfsdfsdf [23:36] <04Text22> sdfsdfdsf [23:36] <04Text22> sdfsdfsf [23:36] <04Text22> sdfsdfsdf [23:36] <04Text22> dsfsdfdf [23:36] <04Text22> sdfdsfsdf [23:36] <04Text22> sdfsdfsdf [23:36] <04Text22> dfdfdf [23:36] <04Text22> sdfsdfsdf ETC.............................. [23:37] <04Text22> hr [23:37] <04Text22> th [23:37] <04Text22> tr [23:37] <04Text22> trh etc............................... [23:37] * Text22 Simple Test [23:38] [23:38] 1[4Nick1]14 Text22 05a pris le pseudo4 Text22[Ville] Cordialement stéphane

WorldDMT · Answer

non pas comme ça regarde cette partie

if (!$away) didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Auto Away 
else did -c $dname 7 3 
else did -a $dname 7 Revenir 

c'est plutot comme ça

if !$away {
  didtok -i $dname 7 44 Autre Motif..,Oqp,Abs,Pala,Clope,Mange,Zedore,Taff,Wc,Dvd,Café,Auto Away
  did -c $dname 7 3
}
else did -a $dname 7 Revenir

snip74 · Answer

Punaise tu est tros balaise ^^
j'aurai j'amais pensé a rajouter un simple }

pour le finir une bonne fois pour toute reste a réglé le auto away pis sa serra niquel chrome :p

Merci beaucoup de ton aide si précieux ;)

Cordialement Stéphane

snip74 · Answer

Affff peut plus choisir un mode away :s et quand je clic sur un mode away style Oqp j'ai plein de revenir :s 

mais excuse :s

Cordialement Stéphane

snip74 · Answer

re le poste du dessus et ok avais oublier de rajouter une virgule XD

Bon bah reste a voir pk l'auto away merdouille un poile pis sa serra bon merci beaucoup ;)

Cordialement Stéphane

Aide a finir mon code away combo

30 réponses

Votre réponse

Discussions similaires