Gestion de topics

Télécharger le projet
Commenter

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 / Exemple : 


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
  }
}
Télécharger le projet

Codes Sources

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 (ennery)