Stakes... 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
```

Sign in to comment.

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

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.