Deffect

Platform:  mIRC
Published  Jan 17, 2009
Updated  Jan 25, 2009
Deffect (Dialog Effect) is an interactive Dialog play-thing controlled by your mouse. I simply experimented around with dialog controls. My original intention was to make a dialog "Pong," but there's really no way of moving around dialog features.

;Dialog Effect 1.0.1
;Made by BlueThen on January 17, 2009.
;To open, type /deffect or right click the channel/status and click "Deffect."
;Controlled with mouse.
dialog Deffect {
title "Deffect - BlueThen.com"
size -1 -1 200 200
check "", 1, 169 93.999925 13 13
check "", 2, 166.643725 75.348175 13 13
check "", 3, 159.72295 57.868375 13 13
check "", 4, 148.6726 42.6589 13 13
check "", 5, 134.18695 30.6754 13 13
check "", 6, 117.1762 22.670725 13 13
check "", 7, 98.70925 19.147975 13 13
check "", 8, 79.94635 20.328475 13 13
check "", 9, 62.0665 26.137975 13 13
check "", 10, 46.193125 36.211525 13 13
check "", 11, 33.323725 49.916125 13 13
check "", 12, 24.266725 66.3907 13 13
check "", 13, 19.591375 84.600025 13 13
check "", 14, 19.591375 103.40005 13 13
check "", 15, 24.2668 121.609375 13 13
check "", 16, 33.323725 138.08395 13 13
check "", 17, 46.1932 151.78855 13 13
check "", 18, 62.066575 161.862025 13 13
check "", 19, 79.946425 167.671525 13 13
check "", 20, 98.709325 168.852025 13 13
check "", 21, 117.176275 165.3292 13 13
check "", 22, 134.187025 157.3246 13 13
check "", 23, 148.672675 145.341025 13 13
check "", 24, 159.723025 130.13155 13 13
check "", 25, 166.643725 112.65175 13 13
check "", 26, 154 93.99994 13 13
check "", 27, 151.06336 75.45892 13 13
check "", 28, 142.54096 58.73284 13 13
check "", 29, 129.26704 45.45892 13 13
check "", 30, 112.54096 36.93658 13 13
check "", 31, 93.99994 34 13 13
check "", 32, 75.45892 36.93664 13 13
check "", 33, 58.73284 45.45898 13 13
check "", 34, 45.45898 58.7329 13 13
check "", 35, 36.93658 75.45904 13 13
check "", 36, 34 94.00006 13 13
check "", 37, 36.93664 112.54108 13 13
check "", 38, 45.45898 129.26716 13 13
check "", 39, 58.7329 142.54102 13 13
check "", 40, 75.45898 151.06342 13 13
check "", 41, 94 154 13 13
check "", 42, 112.54102 151.06336 13 13
check "", 43, 129.2671 142.54102 13 13
check "", 44, 142.54102 129.2671 13 13
check "", 45, 151.06342 112.54102 13 13
check "", 46, 139 93.999955 13 13
check "", 47, 135.109525 75.69679 13 13
check "", 48, 124.11085 60.55843 13 13
check "", 49, 107.90572 51.202435 13 13
check "", 50, 89.296195 49.24651 13 13
check "", 51, 71.499955 55.028875 13 13
check "", 52, 57.594235 67.549675 13 13
check "", 53, 49.98334 84.644005 13 13
check "", 54, 49.983385 103.35604 13 13
check "", 55, 57.594235 120.45037 13 13
check "", 56, 71.5 132.97117 13 13
check "", 57, 89.29624 138.75349 13 13
check "", 58, 107.905765 136.79752 13 13
check "", 59, 124.110895 127.441525 13 13
check "", 60, 135.109525 112.303165 13 13
check "", 61, 124 93.99997 13 13
check "", 62, 118.27048 76.36642 13 13
check "", 63, 103.27048 65.46829 13 13
check "", 64, 84.72946 65.46832 13 13
check "", 65, 69.72949 76.36645 13 13
check "", 66, 64 94.00003 13 13
check "", 67, 69.72949 111.63358 13 13
check "", 68, 84.72949 122.53171 13 13
check "", 69, 103.27051 122.53168 13 13
check "", 70, 118.27051 111.63355 13 13
check "", 71, 109 93.999985 13 13
check "", 72, 98.63524 79.734145 13 13
check "", 73, 81.864745 85.183225 13 13
check "", 74, 81.864745 102.81679 13 13
check "", 75, 98.635255 108.26584 13 13

scroll "", 76, 0 3 200 16, horizontal top range 1 200
scroll "", 77, 0 182 200 16, horizontal top range 1 200
scroll "", 78, 0 21 18 156, left range 1 200
scroll "", 79, 182 22 18 156, left range 1 200
}
menu channel,status {
Dialog Effect: deffect
}
alias deffect {
dialog -m deffect deffect | %dfct.id = 0 | %dfct.x = 5
while (%dfct.x) {
%dfct.y = $calc(%dfct.x * 5) | %dfct.z = 360/ %dfct.y
while (%dfct.y) {
inc %dfct.id
hadd -m dfct.x %dfct.id $+ s $calc(94 + ((%dfct.x * 15) * $cos($calc(%dfct.y * %dfct.z)).deg))
hadd -m dfct.y %dfct.id $+ s $calc(94 + ((%dfct.x * 15) * $sin($calc(%dfct.y * %dfct.z)).deg))
dec %dfct.y
}
dec %dfct.x
}
}
on *:dialog:deffect:mouse:0: {
%dfct.s = 75
while (%dfct.s) {
did $+(-, $iif($dfct.d($mouse.x, $mouse.y, $hget(dfct.x, %dfct.s $+ s), $hget(dfct.y, %dfct.s $+ s)) < 30, c, u)) deffect %dfct.s
did $+(-, $iif($dfct.d($mouse.x, $mouse.y, $hget(dfct.x, %dfct.s $+ s), $hget(dfct.y, %dfct.s $+ s)) < 50, e, b)) deffect %dfct.s
dec %dfct.s
}
%dfct.j = 4
while (%dfct.j) {
did -c deffect $calc(75 + %dfct.j) $iif(%dfct.j > 2, $mouse.y, $mouse.x)
dec %dfct.j
}
}
alias -l dfct.d return $sqrt($calc(($3 - $1)^2 + ($4 - $2)^2))
on *:dialog:Deffect:close:0: unset %dfct.*

Comments

Sign in to comment.
Aurora801   -  Jul 28, 2009
One question... Lol. What is this? Lol.
 Respond  
jonesy44   -  May 13, 2009
Good one, some would have done it by hand ;p
 Respond  
BlueThen   -  May 13, 2009
Yea, I had to use a formula to come up with the positions.
 Respond  
jonesy44   -  May 13, 2009
To create a "perfect" circle, he probably calculated their positions, i'm not sure if mIRC pics up even 1 dp, let alone the amount BT has used.
 Respond  
^Neptune   -  May 13, 2009
What's with the really weird decimal points in the x and y positions of the check boxes?
 Respond  
Hawkee   -  Feb 28, 2009
Interesting use of a dialog.
 Respond  
Eugenio   -  Jan 18, 2009
wtf you on about jonesy, I said Im pondering MY rating.....dunno wtf your chatting bout the new rating system for ;s
 Respond  
jonesy44   -  Jan 18, 2009
What the deuce ?!?
/me ponders rating


Haven't yoou heard? it's the new rating system. things people can't do = 10/10

Sorry BT, i love the effect, but i wouldn't call it useful. then again i go by scores not the tags. i wud give 7.5, roounded up, 8.
 Respond  
BabyJesus   -  Jan 18, 2009
cool BT.
 Respond  
MaSOuD   -  Jan 18, 2009
Nice BlueThen like always... :)
 Respond  
Eugenio   -  Jan 18, 2009
What the deuce ?!?
/me ponders rating
 Respond  
BlueThen   -  Jan 18, 2009
Thanks guys.
 Respond  
Aucun50   -  Jan 18, 2009
Very nice
/me gives a 10
 Respond  
Silverwing   -  Jan 18, 2009
haha very nice! love it :P 10
 Respond  
Purcell   -  Jan 18, 2009
Nice! 10 :)
 Respond  
irchainscriptz   -  Jan 18, 2009
where the heck do you get these idea's from Blue Then?
 Respond  
SumWon   -  Jan 18, 2009
As always, very nice BlueThen.
 Respond  
Kirby   -  Jan 17, 2009
Oops, my mistake. XD
 Respond  
BlueThen   -  Jan 17, 2009
Correction, Dialog. I didn't use picture windows for this one. :)

Thanks.
 Respond  
Kirby   -  Jan 17, 2009
Another great dialog*** by BlueThen.
Looks like a giant disco-ball. XD
/me likes + rates 9.0
 Respond  
BlueThen   -  Jan 17, 2009
I might try and make something more elaborate tomorrow.
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.