Quote system ( avec mdx et fonction ! )

Commenter

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 ^^

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

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

S'inscrire maintenant

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.

Du même auteur (jujuquatre)