Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionalias 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) } } }
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