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
}