Stakes

Please Register to submit score.

Average Score	6.5
Scores Submitted	10
Date Added	Apr 23, 2008
Last Updated	Apr 24, 2008
Tags	bluethen etc mirc pertty stakes

Introduction

Stakes... uh, that's pretty much it..

Grab the Code

;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

Comments

(21) RSS

Go to Bottom

Jamiie

Comments: 97

mIRC Snippet: Stakes
Posted on Apr 24, 2008 1:27 am

I'm always amazed by your scripts BlueThen. 10/10 from me :)

jonesy44

Comments: 647

mIRC Snippet: Stakes
Posted on Apr 24, 2008 12:35 pm

not the most amazing thing ! but the scripting behind is amazing ! great job BlueThen !
8/10 :P

BlueThen

Comments: 255

mIRC Snippet: Stakes
Posted on Apr 24, 2008 2:28 pm

Thankyou. :D

Seems some people gave me very low scores though... :(

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 3:09 pm

LOL @ this script =/ cant believe you got a 10/10 what a joke.

jonesy44

Comments: 647

mIRC Snippet: Stakes
Posted on Apr 24, 2008 4:05 pm

it's completely useless, but i gave it an eight as the coding behind it is very impressive. like someone said a long time ago, this goes beyond mirc scripting and into mathematics really :p

Bouncer

Comments: 121

mIRC Snippet: Stakes
Posted on Apr 24, 2008 4:24 pm

Quote:

LOL @ this script =/ cant believe you got a 10/10 what a joke.

A script does not have to have a useful purpose for it to be coded well. As long as it does what it was made to do, and is coded in the most efficient way possible, then it should get the score it deserves.

9/10 from me.

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 4:35 pm

Blah Blah Blah
/me falls asleep trying to read Bouncers comment.

jonesy44

Comments: 647

mIRC Snippet: Stakes
Posted on Apr 24, 2008 4:42 pm

Perhaps you should read it Eugino. Since what he says is.. true :-)

BlueThen

Comments: 255

mIRC Snippet: Stakes
Posted on Apr 24, 2008 4:46 pm

Most of the games you play don't have a point, right?
Does art have a point?
Does the whole idea of picwins have a point?

It doesn't have to have a point, I consider it art through logic. :)

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 5:11 pm

I never actually said this point doesnt have a "point" I just said that a 10/10 for this is ludacris.

Thank you, Good night.

Bouncer

Comments: 121

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:34 pm

Let me guess Eugenio, you are one of those people with a grudge against the whole world, right? Most people grow out of that phase at around 15 or so, so I am sure you will be over it soon.

Oh, and sweet dreams bud :)

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:37 pm

Yes Bouncer I have a grudge againt the whole world
lol wtfudge

Bouncer

Comments: 121

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:39 pm

Well, I guess you decided to stay awake after all. You read that one pretty easily. But yes, I am done spamming here. Keep up the good work BlueThen.

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:41 pm

lol @ decided to stay awake .......I never went to bed =/
/me rates 1 >;[

BlueThen

Comments: 255

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:42 pm

I was talking to jonesy44 and the dozens of other people who rely on "points." :)

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 6:54 pm

LOL I was jokin, I didnt really rate 1, that would be harsh.
I actually rated one of your scripts 9 cant member which one though.

Comments: 884

mIRC Snippet: Stakes
Posted on Apr 24, 2008 7:16 pm

_-_, 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 shoot he can do thats out of the ordinary is all.`-.-�

BlueThen

Comments: 255

mIRC Snippet: Stakes
Posted on Apr 24, 2008 7:27 pm

I'm looking for more feedback than ratings.

Eugenio

Comments: 518

mIRC Snippet: Stakes
Posted on Apr 24, 2008 8:08 pm

EL you have literally killed me with that comment, not that I bovered to read it.

Mitchell

Comments: 23

mIRC Snippet: Stakes
Posted on Apr 28, 2008 1:47 pm

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

Comments: 884

mIRC Snippet: Stakes
Posted on Apr 28, 2008 1:52 pm

@Eugene,I try >D

Stakes

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (8)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Jul 20, 2008 Profile \| Website Friends (8) Snippets (36) Images (41) Comments Received (511) Comments Submitted (255) Forum Posts (94)