mIRC Home    About    Download    Register    News    Help

Print Thread
#206751 23/11/08 07:21 PM
Joined: Feb 2005
Posts: 344
B
Fjord artisan
OP Offline
Fjord artisan
B
Joined: Feb 2005
Posts: 344
Hi folks

I have a request
I made a popup manager out of a simple slapscript
It took me very long do make it like it is now
I'm no expert in scripting
It has a treeview with categories and subcategories
You can add a popup to a categorie or subcategorie
I have seen scripts that can add categories and subcategories to a treeview.
I know that will take me months to find out how it is done and then really doing it.
It will also mean a few topics on the forum here.
I know what would take me months some of you can do in a day or even less.
My request is is someone willing to make the adding in the treeview for me blush blush blush

Here is the code of what i made:
Code:
alias naam {
  var %r = $lines(%tb)
  var %i = 1
  while (%i <= %r ) {
    did -a slap 1 $deltok($read(%tb,%i),2-,124)
    inc %i
  }
}


alias preview { 
  var %ik = $me
  var %nick = $did(7).seltext
  var %sound = sound $did(8)
  var %text = $gettok($read(%tb,t, $did(slap,1).sel),2-,124)
  if ($window(@preview)) window -c @preview
  window -bfk0l @preview 593 480 1060 140
  tokenize 124 %text
  aline @preview $*
} 

on *:dialog:slap:*:*:{
  if (!$istok(mouse edit,$devent,32) && $did != 3 && $active != @slap.preview && $window(@slap.preview)) { window -c $ifmatch }
  if ($devent == init) {
    mdx SetMircVersion $version
    mdx MarkDialog $dname $dialog($dname).hwnd
    mdx SetControlMDX $dname 10 TreeView haslines linesatroot hasbuttons showsel > $views
    did -i $dname 10 1 setcolor text $color(5)
    did -i $dname 10 1 setcolor bkg $color(15)
    did -i $dname 10 1 setcolor line $color(6)
    did -a $dname 10 hugs
    did -a $dname 10 Kisses
    did -a $dname 10 Thanks
    did -a $dname 10 Sorry
    did -a $dname 10 Pictures
    did -a $dname 10 Smiley's
    did -a $dname 10 Flags
    did -a $dname 10 Faces
    did -a $dname 10 Fake modes
    did -a $dname 10 Special occasions
    did -i $dname 10 1 cb last
    did -a $dname 10 Birthday
    did -a $dname 10 Wedding
    did -a $dname 10 Aniversery
    did -a $dname 10 Birth
    did -a $dname 10 Easter
    did -a $dname 10 $_(pm16)
    did -a $dname 10 Christmas
    did -a $dname 10 Newyear
    did -i $dname 10 1 cb up
    did -a $dname 10 Sound popups
    did -i $dname 10 1 cb last
    did -a $dname 10 A-E
    did -a $dname 10 F-K
    did -a $dname 10 L-R
    did -a $dname 10 S-Z
    did -i $dname 10 1 cb up
    did -a $dname 10 Humor
    did -i $dname 10 1 cb last
    did -a $dname 10 Normaly
    did -a $dname 10 Dirty
    did -i $dname 10 1 cb up
    did -a $dname 10 Erotic
    did -a $dname 10 Sex
    did -i $dname 10 1 cb last
    did -a $dname 10 all kind
    did -a $dname 10 Male - Female
    did -a $dname 10 Female - Male
    did -a $dname 10 Female - Female
    did -a $dname 10 Male - Male
    did -i $dname 10 1 cb up
    did -a $dname 10 Violence
    did -i $dname 10 1 cb last
    did -a $dname 10 Curse
    did -a $dname 10 Slap
    did -a $dname 10 Kick
    did -a $dname 10 Actions
    did -i $dname 10 1 cd root
    did -r slap 1 
    loadbuf -o slap 1 $mircdirdata\popup\slap.txt
    var %schan = $chan(0) | while (%schan > 0) { did -a slap 8 $chan(%schan) | if ( $chan(%schan) == $active ) { did -c slap 8 $did(8).lines } | dec %schan
    }
    var %snicks $nick($active,0)
    while (%snicks > 0) {
      did -a slap 7 $nick($active, %snicks)
      dec %snicks
    }
  }
  if ($devent == sclick) {
    if ($did == 1) {
      if ($did(1).seltext) {
        preview
      }
    }
    if ($did == 8) {
      var %schan $did(8) 
      did -r slap 7 
      var %snicks $nick($did(8),0)
      while (%snicks > 0) {
        did -a slap 7 $nick($did(8), %snicks)
        dec %snicks
      }
    }
    if ($did == 5) {
      write %tb $?= $_(pm39) 
      did -r slap 1 
      loadbuf -o slap 1 %tb | did -r slap 1 | naam
    }
    if ($did == 4) {
      write -dl $+ $did(1).sel %tb
      did -r slap 1 
      loadbuf -o slap 1 %tb | did -r slap 1 | naam
    }
    if ($did == 3) {
      var %snicks $nick($active,0)
      while (%snicks > 0) {
        set %nlist $nick($active, %snicks)
        dec %snicks
      }
      var %ik = $me
      var %nick = $did(7).seltext
      var %msg = msg $did(8)
      var %act = describe $did(8)
      var %sound = sound $did(8)
      var %chan = $did(8)
      $gettok($read(%tb,pt, $did(1).sel),2-,124)
      window -c @preview
    }
    if ($did == 2) {
      var %ik = $me
      var %nick = $did(7).seltext
      var %msg = msg $did(8)
      var %act = describe $did(8)
      var %sound = sound $did(8)
      var %chan = $did(8)
      var %nlist = $did(7)
      $gettok($read(%tb,pt),2-,124) 
    }
    if ($did == 10) {
      tokenize 32 $did($did,1) 
      if ($1 == slclick) {
        if ($4 == 2) { set %tb %popuppath $+ \knuffel.txt | did -r slap 1 | naam }
        if ($4 == 3) { set %tb %popuppath $+ \zoenen.txt | did -r slap 1 | naam }
        if ($4 == 4) { set %tb %popuppath $+ \bedankt.txt | did -r slap 1 | naam }
        if ($4 == 5) { set %tb %popuppath $+ \sorry.txt | did -r slap 1 | naam }
        if ($4 == 6) { set %tb %popuppath $+ \plaatjes.txt | did -r slap 1 | naam }
        if ($4 == 7) { set %tb %popuppath $+ \smiley.txt | did -r slap 1 | naam }
        if ($4 == 8) { set %tb %popuppath $+ \vlaggen.txt | did -r slap 1 | naam }
        if ($4 == 9) { set %tb %popuppath $+ \gezichten.txt | did -r slap 1 | naam }
        if ($4 == 10) { set %tb %popuppath $+ \nepmodes.txt | did -r slap 1 | naam } 
        if ($4 == 11) { set %tb %popuppath $+ \gelegenheden.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 2) { set %tb %popuppath $+ \verjaardag.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 3) { set %tb %popuppath $+ \trouwen.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 4) { set %tb %popuppath $+ \jubileum.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 5) { set %tb %popuppath $+ \geboorte.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 6) { set %tb %popuppath $+ \pasen.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 7) { set %tb %popuppath $+ \sinterklaas.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 8) { set %tb %popuppath $+ \kerst.txt | did -r slap 1 | naam }
        if ($4 == 11) && ($5 == 9) { set %tb %popuppath $+ \oudennieuw.txt | did -r slap 1 | naam }
        if ($4 == 12) { set %tb %popuppath $+ \geluid.txt | did -r slap 1 | naam }
        if ($4 == 12) && ($5 == 2) { set %tb %popuppath $+ \A-E.txt | did -r slap 1 | naam }
        if ($4 == 12) && ($5 == 3) { set %tb %popuppath $+ \F-K.txt | did -r slap 1 | naam }
        if ($4 == 12) && ($5 == 4) { set %tb %popuppath $+ \L-R.txt | did -r slap 1 | naam }
        if ($4 == 12) && ($5 == 5) { set %tb %popuppath $+ \S-Z.txt | did -r slap 1 | naam }
        if ($4 == 13) { set %tb %popuppath $+ \humor.txt | did -r slap 1 | naam }
        if ($4 == 13) && ($5 == 2) { set %tb %popuppath $+ \gewoon.txt | did -r slap 1 | naam }
        if ($4 == 13) && ($5 == 3) { set %tb %popuppath $+ \schunnig.txt | did -r slap 1 | naam }
        if ($4 == 14) { set %tb %popuppath $+ \erotisch.txt | did -r slap 1 | naam }
        if ($4 == 15) { set %tb %popuppath $+ \sex.txt | did -r slap 1 | naam }
        if ($4 == 15) && ($5 == 2) { set %tb %popuppath $+ \normaal.txt | did -r slap 1 | naam }
        if ($4 == 15) && ($5 == 3) { set %tb %popuppath $+ \man-vrouw.txt | did -r slap 1 | naam }
        if ($4 == 15) && ($5 == 4) { set %tb %popuppath $+ \vrouw-man.txt | did -r slap 1 | naam }
        if ($4 == 15) && ($5 == 5) { set %tb %popuppath $+ \vrouw-vrouw.txt | did -r slap 1 | naam }
        if ($4 == 15) && ($5 == 6) { set %tb %popuppath $+ \man-man.txt | did -r slap 1 | naam }
        if ($4 == 16) { set %tb %popuppath $+ \geweld.txt | did -r slap 1 | naam }
        if ($4 == 16) && ($5 == 2) { set %tb %popuppath $+ \schelden.txt | did -r slap 1 | naam }
        if ($4 == 16) && ($5 == 3) { set %tb %popuppath $+ \slaan.txt | did -r slap 1 | naam }
        if ($4 == 16) && ($5 == 4) { set %tb %popuppath $+ \schoppen.txt | did -r slap 1 | naam }
        if ($4 == 16) && ($5 == 5) { set %tb %popuppath $+ \akties.txt | did -r slap 1 | naam }
      }     
    }
  }
  if ($devent == close) { 
    window -c @preview
  }
}

dialog slap {
  title Popup Manager
  size 593 0 213 148
  option dbu
  icon $icondir $+ scrippie.ico, 0
  list 1, 76 6 70 128, size hsbar
  button "Random popup", 2, 2 135 50 12
  button "Choosen popup", 3, 55 135 50 12
  button "Remove popup", 4, 161 135 50 12
  button "Add popup", 5, 108 135 50 12
  combo 8, 150 6 60 140, size vsbar drop
  list 7, 150 17 60 117, size sort
  list 10, 2 6 70 128, size
}


Thanks for any help given.

Greetings

Bullseye #206773 25/11/08 05:41 AM
Joined: Feb 2005
Posts: 344
B
Fjord artisan
OP Offline
Fjord artisan
B
Joined: Feb 2005
Posts: 344
no respond at all cry cry cry

How about some help on how to start
is it something like:
Code:
if ($did == 15) {
did -i slap 10 1 cb root
did -a slap 10 $?="Category ?"
did -i slap 10 1 sort
}

Bullseye #206774 25/11/08 05:58 AM
Joined: Aug 2004
Posts: 7,252
R
Hoopy frood
Offline
Hoopy frood
R
Joined: Aug 2004
Posts: 7,252
Basic mIRC scripting does not support a treeview.

The scripts that you have seen that do support treeview, have probably used a 3rd party DLL. The two most common, for this type of usage, are MDX and DCX.



Link Copied to Clipboard