begin process at 2008 08 21 23:35:51
1 229 717 membres
525 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GESTION DE TOPICS


Information sur la source

Catégorie :AddOns Classé sous : topic, gestion, topics Niveau : Débutant Date de création : 20/02/2004 Date de mise à jour : 03/03/2006 02:32:46 Vu / téléchargé: 3 024 / 339

Note :
6,25 / 10 - par 4 personnes
6,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

sauvegardez vos plus beaux topics, visionnez les, appliquer les ....
Le zip join contient des topics en exemple ( a mettre dans le rep mirc )
pour le faire fonctionner , click droit sur le channel [Topic]
A vos claviers pour nous faire profiter de vos dons d'artiste :)

Source

  • menu channel {
  • [Topic]:dialog -m topicrea topicrea
  • }
  • alias -l top { return topic.txt }
  • alias -l topicwin {
  • if ($dialog(topicrea)) {
  • window -ph +d @pp 0 0 328 26
  • drawfill @pp 1 1 0 1
  • drawtext -pb @pp 0 1 Arial 12 5 3 $iif($did(topicrea,6),$did(topicrea,6),)
  • drawsave @pp "temptopic.bmp"
  • close -@ @pp
  • did -g topicrea 27 "temptopic.bmp"
  • }
  • }
  • dialog topicrea {
  • title "Topic Creator"
  • size -1 -1 336 283
  • option pixels
  • box "Modèles", 1, 7 83 160 60
  • button "Quitter", 2, 230 250 90 27, flat cancel
  • button "Appliquer Topic", 3, 228 210 90 27, flat
  • text "Entre ton topic", 4, 10 41 78 15
  • button "Effacer", 5, 250 36 66 20, flat
  • edit "", 6, 9 57 310 22, autohs
  • combo 7, 15 108 140 260, drop
  • button "Enreg. Modéle", 31, 8 209 90 28, flat
  • icon 27, 11 6 310 26
  • button "Voir", 30, 127 36 66 20, flat
  • edit "", 8, 203 108 100 21
  • box "Channel", 9, 188 85 131 58
  • text "", 10, 28 164 274 29
  • box "Aide", 11, 18 149 290 52
  • text "", 12, 11 251 213 16
  • button "Effacer Modéle", 13, 118 210 90 28, flat
  • }
  • on *:dialog:topicrea:*:*:{
  • if ($devent == init) {
  • initlig
  • did -ar $dname 6 $chan($active).topic
  • topicwin
  • did -ar topicrea 8 $active
  • did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8)
  • }
  • if ($devent == sclick) {
  • if ($did == 3) { topic $did(8) $did(6) }
  • if ($did == 5) { did -r $dname 6 | topicwin }
  • if ($did == 7) { did -r $dname 6 | did -a $dname 6 $read($top,$did(7)) | topicwin }
  • if ($did == 13) { dellig }
  • if ($did == 30) { topicwin }
  • if ($did == 31) {
  • if ($did(6) != $null) {
  • if exists($top) { var %numlig = $read($top,0) }
  • else { var %numlig = 0 }
  • .write -l1 $top $eval($calc(%numlig + 1)) | .write $top $replace($did(6),$did(8),$chr(36) $+ did $+ $chr(40) $+ 8 $+ $chr(41))
  • initlig
  • }
  • else {
  • did -ar topicrea 12 Aucun modéle saisie
  • .timer 1 3 did -r topicrea 12
  • }
  • }
  • }
  • if ($devent == edit) {
  • if ($did == 8) { did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8) }
  • }
  • }
  • alias -l initlig {
  • if exists($top) {
  • did -r topicrea 7
  • var %lig = $read($top,0)
  • var %lig1 = 1
  • while (%lig1 <= $eval(%lig)) {
  • did -a topicrea 7 %lig1
  • inc %lig1
  • }
  • }
  • }
  • alias -l dellig {
  • if ($did(7) != $null) {
  • write -dl $+ $calc($did(7).sel +1 ) scripts/topic.txt
  • var %numlig = $read($top,0)
  • .write -l1 $top $eval($calc(%numlig - 1))
  • did -ar topicrea 12 Modèle effacé
  • .timer 1 3 did -r topicrea 12
  • initlig
  • }
  • else {
  • did -ar topicrea 12 Aucun modèle selectionné dans la liste
  • .timer 1 3 did -r topicrea 12
  • }
  • }
menu channel {
[Topic]:dialog -m topicrea topicrea
}
alias -l top { return topic.txt }
alias -l topicwin {
  if ($dialog(topicrea)) {
    window -ph +d @pp 0 0 328 26
    drawfill @pp 1 1 0 1
    drawtext -pb @pp 0 1 Arial 12 5 3 $iif($did(topicrea,6),$did(topicrea,6),)
    drawsave @pp "temptopic.bmp"
    close -@ @pp
    did -g topicrea 27 "temptopic.bmp"
  }
}
dialog topicrea {
  title "Topic Creator"
  size -1 -1 336 283
  option pixels
  box "Modèles", 1, 7 83 160 60
  button "Quitter", 2, 230 250 90 27, flat cancel
  button "Appliquer Topic", 3, 228 210 90 27, flat
  text "Entre ton topic", 4, 10 41 78 15
  button "Effacer", 5, 250 36 66 20, flat
  edit "", 6, 9 57 310 22, autohs
  combo 7, 15 108 140 260, drop
  button "Enreg. Modéle", 31, 8 209 90 28, flat
  icon 27, 11 6 310 26
  button "Voir", 30, 127 36 66 20, flat
  edit "", 8, 203 108 100 21
  box "Channel", 9, 188 85 131 58
  text "", 10, 28 164 274 29
  box "Aide", 11, 18 149 290 52
  text "", 12, 11 251 213 16
  button "Effacer Modéle", 13, 118 210 90 28, flat
}

on *:dialog:topicrea:*:*:{
  if ($devent == init) {
    initlig
    did -ar $dname 6 $chan($active).topic
    topicwin 
    did -ar topicrea 8 $active
    did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf  $did(8)
  }
  if ($devent == sclick) {
    if ($did == 3) { topic $did(8) $did(6) }
    if ($did == 5) { did -r $dname 6 | topicwin }
    if ($did == 7) { did -r $dname 6 | did -a $dname 6 $read($top,$did(7)) | topicwin } 
    if ($did == 13) { dellig }
    if ($did == 30) { topicwin }
    if ($did == 31) { 
      if ($did(6) != $null) {
        if exists($top) { var  %numlig = $read($top,0) }
        else { var %numlig = 0 }
        .write -l1 $top $eval($calc(%numlig + 1)) | .write $top  $replace($did(6),$did(8),$chr(36) $+ did $+ $chr(40) $+ 8 $+ $chr(41))
        initlig 
      }
      else {
        did -ar topicrea 12 Aucun modéle saisie
        .timer 1 3 did -r topicrea 12
      }
    }
  }
  if ($devent == edit) {
    if ($did == 8) { did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf  $did(8) }
  }
}  

alias -l initlig {
  if exists($top) {
    did -r topicrea 7
    var %lig = $read($top,0)
    var %lig1 = 1
    while (%lig1 <= $eval(%lig)) {
      did -a topicrea 7 %lig1
      inc %lig1
    }
  }
}
alias -l dellig {
  if ($did(7) != $null) {
    write -dl $+ $calc($did(7).sel +1 ) scripts/topic.txt
    var  %numlig = $read($top,0)
    .write -l1 $top $eval($calc(%numlig - 1))
    did -ar topicrea 12 Modèle effacé
    .timer 1 3 did -r topicrea 12
    initlig
  }
  else {
    did -ar topicrea 12 Aucun modèle selectionné dans la liste
    .timer 1 3 did -r topicrea 12
  }
}
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

03 mars 2006 02:32:46 :
ajout de la partie menu
  • signaler à un administrateur
    Commentaire de ReMi34 le 20/02/2004 20:02:53

    J'aime bien, c'est pas mal, bonne idée surtout (j'en suis en manque :p)

    Tu devrais revoir la structure de tes devents :

    on *:dialog:topicrea:*:*: {
       if $devent == sclick { ....

    7/10

  • signaler à un administrateur
    Commentaire de SornDrixer le 20/02/2004 20:21:09 administrateur CS

    C'est sympatique comme addon, par contre, tu aurais dû le mettre dans la partie CODE réservé à ça lorsque tu l'as posté, et non en description.

  • signaler à un administrateur
    Commentaire de ennery le 20/02/2004 20:51:09

    merci ReMi34

    SornDrixer : désolé j'avez pas fé attention, est-ce que je peux le modif ?

  • signaler à un administrateur
    Commentaire de xleu le 21/02/2004 02:41:08

    bon script, tres sympa
    merci..

  • signaler à un administrateur
    Commentaire de JaxX83 le 21/02/2004 12:06:55

    Bien sur que tu peut modifier ça dans ton module 'votre accès' (à droite) tu va dans modifier source.
    Concernant ta source ça me plait bien.
    Utilité: 8/10
    Originalité: 8/10
    Scripting: 7/10 (tu peut encore optimiser ton code)
    Note: 8/10

  • signaler à un administrateur
    Commentaire de [thomas95 le 21/02/2004 13:02:24

    c pas mal du tou :)

  • signaler à un administrateur
    Commentaire de ennery le 22/02/2004 03:31:34

    j'ai modifier mon source, deja je l'ai remis a la bonne place, et optimisé, enfin je pense :)
    j'attends l'avis des pros
    Merci de vos conseils

  • signaler à un administrateur
    Commentaire de tempusus le 03/03/2004 14:27:52 administrateur CS

    très bon code très sympa :)

    J'adore :D

    9/10

    Tempusus

  • signaler à un administrateur
    Commentaire de ennery le 15/06/2004 00:49:01

    je viens de m'apercevoir qu'il manque la partie menu :(

    alors ajouter en debut ou fin de script :

    menu channel {
    [Topic]:dialog -m topicrea topicrea
    }

    voila :)

  • signaler à un administrateur
    Commentaire de _Dams_ le 29/06/2004 17:03:01

    Je comprend pas comment l'installer!!!
    quelqu'un peut m'aider

Ajouter un commentaire

Discussions en rapport avec ce code source

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS