GESTION DE TOPICS topic, gestion, topics, Source N°20634

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

Auteur : ennery

Ecrire un message privé

Note :

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

Cliquez pour voir la capture en taille normale

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

topic.txt 3 959 octets

Télécharger le zip

Historique

03 mars 2006 02:32:46 :: ajout de la partie menu

Sources du même auteur

Toutes les sources de ennery

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

Commentaires

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
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.
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 ?
Commentaire de xleu le 21/02/2004 02:41:08

bon script, tres sympa
merci..
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
Commentaire de [thomas95 le 21/02/2004 13:02:24

c pas mal du tou :)
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
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
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 :)
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

Topic ne s'affiche pas par botfreeman

Enlever le code couleur de mIRC par maxpeg0705

topic par angeldavid

question $nick par kishkaya

afficher un | dans un topic à l'aide d'un alias par Bonhomet

Gestion des Hash tables. par tofu

auto-change topic par lenain77

Comment effacer un topic ? par Squallou

Enregistrer le topic d'un chan par Bonhomet

Bnc gestion par ricolla