popup manager - 17/10/06 07:12 AM
I have this popup manager wich i made with the help of some friends.
It show a preview of the popup before you send it into the room.
It shows the popup in a @window.
The thing is in the preview it shows the popups as one big line even when the popup in the room shows as multiple lines.
We can't find how to fix this everything else works fine.
Below the code there is some text that shows how the popups are stored in the .txt file.
The popups are flags i think that is the best to show.
Here is the code:
Thanks for helping
Greetzz
It show a preview of the popup before you send it into the room.
It shows the popup in a @window.
The thing is in the preview it shows the popups as one big line even when the popup in the room shows as multiple lines.
We can't find how to fix this everything else works fine.
Below the code there is some text that shows how the popups are stored in the .txt file.
The popups are flags i think that is the best to show.
Here is the code:
Code:
alias mdx.load { mdx SetMircVersion $version | mdx MarkDialog $dname } alias mdx dll $scriptdirdll\mdx.dll $1- alias views return $scriptdirdll\views.mdx $1- alias preview { var %nick = $did(7).seltext var %font = $window(Status Window).font,%size = $window(Status Window).fontsize,%x = $calc($dialog(slap).x +1),%y = $calc($dialog(slap).y + 346),%text = $gettok($read(%tb,t, $did(1).sel),2-,124),%w = $iif($calc($window(-1).w - %x) < 602,$calc($v1 - 4),$v2),%text.w = $width($burcwrap(%text,%font,%size,$calc(%w -4),1,1),%font,%size,0,1),%w = $calc(%text.w + 6),%lines = $burcwrap(%text,%font,%size,%w,1,0),%line.h = $height(%text,%font,%size),%text.h = $calc(%lines * %line.h),%h = $iif($calc($window(-1).h - %y) < $calc(%text.h + 6),$calc($v1 -2),$v2) if ($window(@slap.preview)) { var %wnd = $ifmatch window -f %wnd %x %y %w %h } else { window -pdk0fhB +dL @slap.preview %x %y %w %h } window -o @slap.preview drawrect -rf @slap.preview 15794175 1 0 0 %w %h ;15794175 drawrect -r @slap.preview 0 1 0 0 %w %h var %q = 1 while (%q <= %lines) { var %drawtext = $burcwrap(%text,%font,%size,$calc(%w -4),1,%q) drawtext -bpr @slap.preview $color($color(action)) 15794175 %font %size 4 $calc((%q -1) * %line.h +2) %drawtext inc %q } } alias burcwrap { var %text = $1, %c $chr(44) tokenize 44 $+($2,%c,$3,%c,$4,%c,$iif($0 == 5,1 $+ %c),$$5,%c,$6) if ($istok(1.0,$5,46) == $true) { return $wrap(%text,$1,$2,$3,$4,$5) } var %regex = /(\d{0,2})/g, %regex2 /\d{0,2},(\d{1,2})/g, %b = 1, var %str, %cc1, %cc2 while (%b < $($ $+ $0,2)) { %str = %str $+ $wrap(%text,$1,$2,$3,$4,%b) inc %b } if ($regex(%str,%regex)) %cc1 = $regml($regml(0)) if ($regex(%str,%regex2) > 0) %cc2 = $regml($regml(0)) if (%cc1 $+ %cc2) var %cc = $+(,%cc1,$iif(%cc2,$chr(44) $+ %cc2)) return $iif(2 \\ $count(%str,) ,) $+ $iif(2 \\ $count(%str,),) $+ $& $iif(2 \\ $count(%str,),) $+ $iif(%cc,%cc) $+ $wrap(%text,$1,$2,$3,$4,$5) } dialog slap { title "Slap Manager" size -1 -1 360 158 option dbu icon $icodir $+ scrippie.ico, 0 list 1, 76 16 217 128, size hsbar button "Wilekeurige popup", 2, 77 145 50 12 button "Gekozen popup", 3, 135 145 50 12 button "Popup verwijderen", 4, 256 145 50 12 button "Popup toevoegen", 5, 196 145 50 12 combo 8, 297 16 60 140, size vsbar drop list 7, 297 27 60 117, size sort text "Totale popups", 6, 7 3 140 8 edit "", 9, 297 3 60 10, read list 10, 2 16 70 128, size } on *:dialog:slap:*:*:{ if (!$istok(mouse edit,$devent,32) && $did != 3 && $active != @slap.preview && $window(@slap.preview)) { window -c $ifmatch } if ($devent == init) { mdx.load mdx SetControlMDX $dname 10 TreeView haslines linesatroot hasbuttons showsel > $views did -i $dname 10 1 setcolor text $color(1) did -i $dname 10 1 setcolor bkg $color(0) did -i $dname 10 1 setcolor line $color(6) did -a $dname 10 Knuffelen did -a $dname 10 Zoenen did -a $dname 10 Bedankt did -a $dname 10 Sorry did -a $dname 10 Plaatjes did -a $dname 10 Smiley's did -a $dname 10 Vlaggen did -a $dname 10 Gezichten did -a $dname 10 Nep modes did -a $dname 10 Gelegenheden did -i $dname 10 1 cb last did -a $dname 10 Verjaardag did -a $dname 10 Trouwen did -a $dname 10 Jubileum did -a $dname 10 Geboorte did -a $dname 10 Pasen did -a $dname 10 Sinterklaas did -a $dname 10 Kerst did -a $dname 10 Oud en Nieuw did -i $dname 10 1 cb up did -a $dname 10 Met geluid 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 Gewoon did -a $dname 10 Schunnig did -i $dname 10 1 cb up did -a $dname 10 Erotisch did -a $dname 10 Sex did -i $dname 10 1 cb last did -a $dname 10 vanalles did -a $dname 10 Man-Vrouw did -a $dname 10 Vrouw-man did -a $dname 10 Vrouw-vrouw did -a $dname 10 Man-man did -i $dname 10 1 cb up did -a $dname 10 Geweld did -i $dname 10 1 cb last did -a $dname 10 Schelden did -a $dname 10 Slaan did -a $dname 10 Schoppen did -a $dname 10 Akties did -i $dname 10 1 cd root did -r slap 1 loadbuf -o slap 1 $scriptdir\popups\slap.txt did -r slap 9 did -a slap 9 Total Slaps: $lines($scriptdir\popups\slaps.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 $?="Slap to add" did -r slap 1 loadbuf -o slap 1 %tb did -r slap 9 did -a slap 9 Total Quotes: $lines($scriptdir\popups\slaps.txt) } if ($did == 4) { write -dl $+ $did(1).sel %tb did -r slap 1 loadbuf -o slap 1 %tb did -r slap 9 did -a slap 9 Total Quotes: $lines($scriptdir\popups\slaps.txt) } if ($did == 3) { var %ik = $did(8).text 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, $did(1).sel),2-,124) } if ($did == 2) { var %ik = $did(8).text 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 $scriptdir\popups\knuffel.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 3) { set %tb $scriptdir\popups\zoenen.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 4) { set %tb $scriptdir\popups\bedankt.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 5) { set %tb $scriptdir\popups\sorry.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 6) { set %tb $scriptdir\popups\plaatjes.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 7) { set %tb $scriptdir\popups\smiley.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 8) { set %tb $scriptdir\popups\vlaggen.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 9) { set %tb $scriptdir\popups\gezichten.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 10) { set %tb $scriptdir\popups\nepmodes.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) { set %tb $scriptdir\popups\gelegenheden.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 2) { set %tb $scriptdir\popups\verjaardag.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 3) { set %tb $scriptdir\popups\trouwen.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 4) { set %tb $scriptdir\popups\jubileum.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 5) { set %tb $scriptdir\popups\geboorte.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 6) { set %tb $scriptdir\popups\pasen.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 7) { set %tb $scriptdir\popups\sinterklaas.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 8) { set %tb $scriptdir\popups\kerst.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 11) && ($5 == 9) { set %tb $scriptdir\popups\oudennieuw.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 12) { set %tb $scriptdir\popups\geluid.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 12) && ($5 == 2) { set %tb $scriptdir\popups\A-E.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 12) && ($5 == 3) { set %tb $scriptdir\popups\F-K.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 12) && ($5 == 4) { set %tb $scriptdir\popups\L-R.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 12) && ($5 == 5) { set %tb $scriptdir\popups\S-Z.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 13) { set %tb $scriptdir\popups\humor.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 13) && ($5 == 2) { set %tb $scriptdir\popups\gewoon.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 13) && ($5 == 3) { set %tb $scriptdir\popups\schunnig.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 14) { set %tb $scriptdir\popups\erotisch.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) { set %tb $scriptdir\popups\sex.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) && ($5 == 2) { set %tb $scriptdir\popups\normaal.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) && ($5 == 3) { set %tb $scriptdir\popups\man-vrouw.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) && ($5 == 4) { set %tb $scriptdir\popups\vrouw-man.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) && ($5 == 5) { set %tb $scriptdir\popups\vrouw-vrouw.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 15) && ($5 == 6) { set %tb $scriptdir\popups\man-man.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 16) { set %tb $scriptdir\popups\geweld.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 16) && ($5 == 2) { set %tb $scriptdir\popups\schelden.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 16) && ($5 == 3) { set %tb $scriptdir\popups\slaan.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 16) && ($5 == 4) { set %tb $scriptdir\popups\schoppen.txt | did -r slap 1 | loadbuf -o slap 1 %tb } if ($4 == 16) && ($5 == 5) { set %tb $scriptdir\popups\akties.txt | did -r slap 1 | loadbuf -o slap 1 %tb } } } } }
Code:
USA | %act 0,12 * * * * * * * 4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,12 * * * * * * * 0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,12 * * * * * * * 4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,0 * * * * * * * 0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 4,4 * * * * * * * 4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ United States of America Malaysia | %act 12,12¯¯¯¯8,12/12,12¯*¯¯¯¯4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 12,12¯¯¯¯8,12\12,12¯8,12*12,12¯¯¯¯0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 4,4¯¯¯¯\¯*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,0¯¯¯¯\¯*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 4,4¯¯¯¯\¯*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Malaysia Israel | %act 0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 12,12¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 12,12¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 0,0¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Israel Portugal | %act 3,3¯¯¯¯¯4,4¯¯¯¯¯¯¯¯¯ | %act 3,3¯¯¯¯¯4,4¯¯¯¯¯¯¯¯¯ | %act 3,3¯¯¯¯¯4,4¯¯¯¯¯¯¯¯¯ Portugal Spain | %act 4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 8,8¯¯¯¯¯¯¯¯¯¯¯¯¯¯ | %act 4,4¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Spain
Thanks for helping
Greetzz