Blend

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 15, 2008
Last Updated	Mar 15, 2008
Tags	blend bluethen mirc script snippet

Introduction

mIRC Blend. Another mIRC Script I made. This actually came up by accident. I was making another script. ;o This is just a cool mIRC picture effect that I made, so there's no important purpose. Also, Anti-Aliasing!
To install and run, copy+paste this code into your remote scripts (Alt + R), and then...
Right click on the channel window and click "Blend," OR type /blend.

Hold down the left mouse button on the window, and drag the mouse to Draw.

Grab the Code

;Blend by BlueThen
;Made on January 25, 2008.
;Please do not claim "ownership" of the script.
;Meaning you can distribute this as much as you want, as long as BlueThen is credited.
;To install and run, copy+paste this code into your remote scripts (Alt + R), and then...
;Right click on the channel window and click "Blend," OR type /blend.
;bluethen.the-brotherhood.org
alias blend {
  if (%x.res == $null) {
    set %x.res $?="Resolution X?"
    set %y.res $?="Resolution Y?"
  }
  if ((%y.res == $null) || (%x.res == $null)) {
    echo -a Please enter your screen Resolution!
  }
  window -poCzdk0 +tnbL @Blend -1 -1 750 600
  window -poChzdk0 +tnbL @blendbuff -1 -1 %x.res %y.res
}
menu @blend {
  sclick: {
    set %ble.draw true
  }
  mouse: {
    if (%ble.draw == true) {
      if (%pre.x == $null) {
        set %pre.x $mouse.x
      }
      if (%pre.y == $null) {
        set %pre.y $Mouse.y
      }
      if (%1 == $null) {
        set %1 0
        set %g1 inc
      }
      if (%2 == $null) {
        set %2 0
        set %g2 inc
      }
      if (%3 == $null) {
        set %3 0
        set %g3 inc
      }
      %g1 %1 $rand(0,5)
      %g2 %2 $rand(0,5)
      %g3 %3 $rand(0,5)
      if (%1 > 250) {
        set %g1 dec
      }
      if (%2 > 250) {
        set %g2 dec
      }
      if (%3 > 250) {
        set %g3 dec
      }
      if (%1 < 10) {
        set %g1 inc
      }
      if (%2 < 10) {
        set %g2 inc
      }
      if (%3 < 10) {
        set %g3 inc
      }
      drawline -r @blendbuff $rgb(%3,%1,%2) 40 $calc(%pre.x * (%x.res / 750)) $calc(%pre.y * (%y.res / 600)) $calc($mouse.x * (%x.res / 750)) $calc($mouse.y * (%y.res / 600))
      drawcopy -m @blendbuff 0 0 1440 900 @blend 0 0 750 600
      set %pre.x $mouse.x
      set %pre.y $mouse.y
    }
  }
  uclick: {
    set %ble.draw false
    unset %pre.x
    unset %pre.y
  }
}
on *:close:@blend: {
  window -c @blendbuff
}
menu channel {
  Blend: {
    Blend
  }
}

Comments

(0) RSS

Go to Bottom

Blend

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (8)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Jul 08, 2008 Profile \| Website Friends (8) Snippets (36) Images (41) Comments Received (500) Comments Submitted (240) Forum Posts (92)