0/5 (7 avis)
Snippet vu 6 631 fois - Téléchargée 28 fois
-_-_-_-_-_-_-_-_-_-_-_ -_- -_- -_- Quote system -_- -_- By Jujuquatre -_- -_- -_- -_-_-_-_-_-_-_-_-_-_-_ alias mdx_fullpath { return $+(",dll/mdx.dll,") } alias mdx { dll $mdx_fullpath $1- } alias mdxinit { dll $mdx_fullpath SetMircVersion $version dll $mdx_fullpath MarkDialog $dname } menu chan { Quote System : /dialog -m quote quote } on *:load:{ /echo -a Quote system By Jujuquatre bien charger :) /set %activechan-quote on } dialog quote { size -1 -1 468 240 title "Quote System by Jujuquatre" button "Ajouter",1,106 142 82 37, flat button "Suprimmer",2,263 142 81 37, flat box "",3,146 179 4 35 box "",4,272 180 4 34 box "",5,355 179 4 37 button "Dire",6,384 185 60 30, flat button "Ok",7,4 218 77 18, cancel ok flat list 8,5 4 458 131,extsel size check "Dire sur la chan active",9,10 191 134 20 check "Sur tous les chan",10,156 192 110 20 check "en echo",11,283 192 70 20 } on *:dialog:quote:init:*:{ mdxinit mdx SetControlMDX $dname 8 listview nosortheader rowselect showsel single flatsb headerdrag labeltip report > dll\views.mdx did -i $dname 8 1 headerdims 60 60 999 did -i $dname 8 1 headertext Date $chr(9) Heure $chr(9) Quote quoteinit if (%allchan-quote == on) { did -c quote 10 | did -b quote 10 } elseif (%activechan-quote == on) { did -c quote 9 | did -b quote 9 } else { did -c quote 11 | did -b quote 11 } } on *:dialog:quote:sclick:*:{ if ($did == 1) { dialog -m ajoutquote ajoutquote } elseif ( $did == 9 ) { if (%activechan-quote == $null) { set %activechan-quote on | unset %allchan-quote | unset %echo-quote | did -b quote 9 | did -u quote 10,11 | did -e quote 10,11 } } elseif ( $did == 10 ) { if (%allchan-quote == $null) { set %allchan-quote on | unset %activechan-quote | unset %echo-quote | did -b quote 10 | did -u quote 9,11 | did -e quote 9,11 } } elseif ( $did == 11 ) { if (%echo-quote == $null) { set %echo-quote on | unset %activechan-quote | unset %allchan-quote | did -b quote 11 | did -u quote 9,10 | did -e quote 9,10 } } elseif ( $did == 2 ) { if $did(8).sel { var %licor = $calc($did(8).sel - 1) set %texte1 $gettok($readini systeme/quote.ini quote token1,%licor,188) set %texte2 $gettok($readini systeme/quote.ini quote token2,%licor,188) set %texte3 $gettok($readini systeme/quote.ini quote token3,%licor,188) var %tempe1 = $remtok($readini systeme/quote.ini quote token1,%texte1,1,188) var %tempe2 = $remtok($readini systeme/quote.ini quote token2,%texte2,1,188) var %tempe3 = $remtok($readini systeme/quote.ini quote token3,%texte3,1,188) writeini systeme/quote.ini quote token1 %tempe1 $+ $chr(188) writeini systeme/quote.ini quote token2 %tempe2 $+ $chr(188) writeini systeme/quote.ini quote token3 %tempe3 $+ $chr(188) quoteinit } Else { var %erreurr = $input(Selectionne une ligne !,300,Avertissement) } } elseif ( $did == 6 ) { if $did(8).sel { var %licor = $calc($did(8).sel - 1) set %texte1 $gettok($readini systeme/quote.ini quote token1,%licor,188) set %texte2 $gettok($readini systeme/quote.ini quote token2,%licor,188) set %texte3 $gettok($readini systeme/quote.ini quote token3,%licor,188) if (%allchan-quote == on ) { /amsg 4[1[4[ 12Quote 1System 4]1]4] 12Le 1 %texte1 4à 1 %texte2 : %texte3 } if (%activechan-quote == on ) { /msg $active 4[1[4[ 12Quote 1System 4]1]4] 12Le 1 %texte1 4à 1 %texte2 : %texte3 } if (%echo-quote == on ) { //echo -a 4[1[4[ 12Quote 1System 4]1]4] 12Le 1 %texte1 4à 1 %texte2 : %texte3 } } Else { var %erreurr = $input(Selectionne une ligne !,300,Avertissement) } } } alias quoteinit { var %lollol = 1 did -r quote 8 while %lollol <= $numtok($readini systeme/quote.ini quote token1,188) { var %temp1 = $gettok($readini systeme/quote.ini quote token1,%lollol,188) var %temp2 = $gettok($readini systeme/quote.ini quote token2,%lollol,188) var %temp3 = $gettok($readini systeme/quote.ini quote token3,%lollol,188) did -a quote 8 $tab(%temp1,%temp2,%temp3) inc %lollol } } dialog ajoutquote { size -1 -1 444 85 title "Ajoute une quote" text "Date : ( format jj/mm/aa )",1,18 10 133 17 text "Heure : ( format hh:mm:ss )",2,16 31 138 17 text "Message quote :",3,16 55 135 17 button "Ajouter",4,244 8 189 41, cancel ok flat edit "",5,159 7 76 22, autohs edit "",6,159 30 76 22, autohs edit "",7,159 54 273 22, autohs } on *:dialog:ajoutquote:init:*:{ mdxinit } on *:dialog:ajoutquote:sclick:4:{ if $did(5) == $null || $did(6) == $null || $did(7) == $null { var %erreurr = $input(Tu doit remplir les champs de texte !,300,Avertissement) | halt } if $chr(188) isin $did(5) || $chr(188) isin $did(6) || $chr(188) isin $did(7) { var %erreurr = $input(Ne m'est pas le signe $chr(188) !,300,Avertissement) | halt } Else { var %textcorec1 = $did(5).text var %textcorec2 = $did(6).text var %textcorec3 = $did(7).text if $readini systeme/quote.ini quote token1 != $null { writeini systeme/quote.ini quote token1 $readini systeme/quote.ini quote token1 $+ %textcorec1 $+ $chr(188) | writeini systeme/quote.ini quote token2 $readini systeme/quote.ini quote token2 $+ %textcorec2 $+ $chr(188) | writeini systeme/quote.ini quote token3 $readini systeme/quote.ini quote token3 $+ %textcorec3 $+ $chr(188) } Else { writeini systeme/quote.ini quote token1 %textcorec1 $+ $chr(188) | writeini systeme/quote.ini quote token2 %textcorec2 $+ $chr(188) | writeini systeme/quote.ini quote token3 %textcorec3 $+ $chr(188) } } quoteinit } alias tab { if (!$1) return $chr(9) | var %t,%w = 1 while ($($+($,%w),4)) { %t = $instok(%t,$($+($,%w),4),0,9) | inc %w } return %t }
15 janv. 2007 à 10:28
5 oct. 2006 à 01:18
est ce que quelqu'un pourrait me donner un lien ?
29 mai 2005 à 17:36
1 janv. 2005 à 22:17
23 déc. 2003 à 08:05
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.