By BlueThen on Apr 23, 2008Stakes... uh, that's pretty much it..
;Stakes 1.0
;Made by BlueThen on April 23, 2008.
;To install, paste this script into your remotes (alt + r)
;then right click the channel or status window and click "Stakes" or type "/stakes"
;then move your cursor over the window.
;BlueThen.com :D
menu channel,status {
Stakes: { stakes }
}
alias stakes {
window -paoCzdk0 +tnbL @stakes -1 -1 400 400 | window -poCzdhk0 +tnbL @stakes.buf -1 -1 800 800 | stakes.init
}
alias stakes.init {
drawfill @stakes.buf 0 0 1 1 1 | set %stakes.n 8 | %stakes.tx = %stakes.n | %stakes.ty = %stakes.n
while ((%stakes.tx > 0) && (%stakes.ty > 0)) {
drawdot @stakes.buf 1 7 $calc(%stakes.tx * 87.5) $calc(%stakes.ty * 87.5) | dec %stakes.tx
if (%stakes.tx <= 0) { dec %stakes.ty 1 | set %stakes.tx 10 }
}
drawcopy -m @stakes.buf 0 0 800 800 @stakes 0 0 400 400
}
menu @stakes {
mouse: {
clear @stakes.buf | drawfill @stakes.buf 0 0 1 1 1 | set %stakes.n 8
%stakes.tx = %stakes.n | %stakes.ty = %stakes.n
while ((%stakes.tx > 0) && (%stakes.ty > 0)) {
set %stakes.txx $calc(%stakes.tx * 87.5) | set %stakes.tyy $calc(%stakes.ty * 87.5)
set %stakes.mx $calc($mouse.x *2) | set %stakes.my $calc($mouse.y *2)
drawline @stakes.buf 14 7 $calc(%stakes.tx * 87.5) $calc(%stakes.ty * 87.5) $calc((%stakes.tx * 87.5) + ($calc(($abs($calc(%stakes.mx - %stakes.txx)) + $abs($calc(%stakes.my - %stakes.tyy)))/10) * $cos($calc(90-($getangle(%stakes.mx , %stakes.my , %stakes.txx , %stakes.tyy)))).deg)) $&
$calc((%stakes.ty * 87.5) + ($calc(($abs($calc(%stakes.mx - %stakes.txx)) + $abs($calc(%stakes.my - %stakes.tyy)))/10) * $sin($calc(90+($getangle(%stakes.mx , %stakes.my , %stakes.txx , %stakes.tyy)))).deg))
drawdot @stakes.buf 1 7 %stakes.txx %stakes.tyy | dec %stakes.tx
if (%stakes.tx <= 0) { dec %stakes.ty 1 | set %stakes.tx 8 }
}
drawcopy -m @stakes.buf 0 0 800 800 @stakes 0 0 400 400
}
}
alias getangle {
set %p1.x $1 | set %p1.y $2 | set %p2.x $3 | set %p2.y $4 | set %p3.x %p2.x | set %p3.y %p1.y
set %opposite $calc($abs($calc(%p2.x - %p3.x)) + $abs($calc(%p2.y - %p3.y)))
set %hypotenuse $calc($abs($calc(%p2.x - %p1.x)) + $abs($calc(%p2.y - %p1.y))))
set %angle $asin($calc( %opposite / %hypotenuse )).deg
if (%p1.y < %p2.y) set %angle $calc(360 - %angle)
if ((%p1.x > %p2.x) && (%p1.y > %p2.y)) set %angle $calc(180 - %angle)
elseif ((%p1.x > %p2.x) && (%p1.y < %p2.y)) set %angle $calc(180 +(360 - %angle)) | return %angle
}
on *:close:@stakes: window -c @stakes.buf
Eugenio, in the comment rules it says, \"Always be constructive.\" So please try to be constructive with your posts. Should I rate you a \"1\" for your useless comments? [Rhetorical question, just think about it].
BlueThen, the script itself looks great, I am anxious to use it later when I am back on my own computer :) I give 10/10 because the calculations in this look very advanced, and must have taken a lot of hard effort. great work
_-_, Eugene wtN be nice and ffs look at the coding thats what its about after all.Sure as a scripts it doesnt have a huge purpose as far as bein effective but as entertainment an as something fresh coming from and bein made out of mirc its very neat i dont see more then a hand full of kick ass picwins besides his work on hawkee.com.There extremely well coded as well,small code but does alot,no errors no complaints so the lest this should get is a 6 have to admit its over all good code an its is a neat (6) code.And its not about the rating as alot of other ppl WANT a damn score i doubt thats what BT even cares about think hes in it to show some cool shit he can do thats out of the ordinary is all.`-.-
