popup manager - 23/11/08 07:21 PM
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
Here is the code of what i made:
Thanks for any help given.
Greetings
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
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