Quote system ( avec mdx et fonction ! )
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 382 fois - Téléchargée 26 fois
Contenu du snippet
Bon voila quote system vous enrengistrer la date , l'heure et le message et vous pouvez le dire soit sur tt les chan , sur le chan active ou en echo
Listview fait avec mdx
Explication :
-telecharger mdx.dll ( si vous ne l'avez pas )http://foxscripting.levillage.org/dlls/mdx.zip
-Cree le repertoire dll et systeme dans votre script ( si vous ne l'avez pas deja cree )
-Dezipper mdx.zip dans le dossier dll
-Et enfin mettez ce code dans vos remote ^^
Merci de laisse le by jujuquatre et de ne pas le ripper ^^
Je vous laisse l'autorisation de changer les couleur du texte
Merci de vos commentaire si vous voyer un bug ou autre :)
+++++++
Listview fait avec mdx
Explication :
-telecharger mdx.dll ( si vous ne l'avez pas )http://foxscripting.levillage.org/dlls/mdx.zip
-Cree le repertoire dll et systeme dans votre script ( si vous ne l'avez pas deja cree )
-Dezipper mdx.zip dans le dossier dll
-Et enfin mettez ce code dans vos remote ^^
Source / Exemple :
-_-_-_-_-_-_-_-_-_-_-_
-_- -_-
-_- 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[ 12 Q uote 1 S ystem 4]1]4] 12Le 1 %texte1 4à 1 %texte2 : %texte3 }
if (%activechan-quote == on ) { /msg $active 4[1[4[ 12 Q uote 1 S ystem 4]1]4] 12Le 1 %texte1 4à 1 %texte2 : %texte3 }
if (%echo-quote == on ) { //echo -a 4[1[4[ 12 Q uote 1 S ystem 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
}
Conclusion :
Merci de laisse le by jujuquatre et de ne pas le ripper ^^
Je vous laisse l'autorisation de changer les couleur du texte
Merci de vos commentaire si vous voyer un bug ou autre :)
+++++++
A voir également
- Quote system ( avec mdx et fonction ! )
- IRC : Quote system - CodeS SourceS - Guide
- Quote systeme v1.0 avancer ! - Codes sources - IRC (AddOns)
- IRC : Quotes systeme - CodeS SourceS - Guide
- IRC : Quote system - CodeS SourceS - Guide
- IRC : Simple quote system - CodeS SourceS - Guide
Commentaires
est ce que quelqu'un pourrait me donner un lien ?
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.