Yeah, if you can guess... I was pretty bored when I made this. Took me about a hour to make this.
Check out the video on its creation, http://bluethen.the-brotherhood.org/Camera2/Camera2.htm
;Bored 1.01
;Made by BlueThen on May 15, 2008.
;To install, paste this snippet into your remotes (alt + r)
;then type /bored or right click the channel or status and click "Bored".
;bluethen.com
menu channel,status {
Bored: { bored }
}
alias bored {
window -paoCzdk0 +tnbL @Bored -1 -1 400 400 | window -poCzdhk0 +tnbL @Bor.buf -1 -1 800 800
window -poCzdhk0 +tnbL @bor.buf2 -1 -1 800 800 | bored.init
}
alias -l bored.init {
drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1 | set %bor.a1 0 | set %bor.a2 0
set %bor.l 250 | set %bor.ld inc | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | set %bor.c n | bored.frame
}
alias -l bored.frame {
if (%bor.c != y) {
clear @bor.buf | clear @bor.buf2
drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1
drawdot @bor.buf 14 400 400 800 | drawdot @bor.buf 1 370 400 800 | %bor.y = 100
while (%bor.y) {
drawdot @bor.buf 12 5 $calc(400 + (%bor.l * $cos($calc(%bor.y * 3.6)).deg)) $calc(800 + (%bor.l * $sin($calc(%bor.y * 3.6)).deg))
dec %bor.y
}
%bor.ld %bor.l 7
if (%bor.l > 350) { set %bor.ld dec } | if (%bor.l < 250) { set %bor.ld inc } | set %bor.x 60
while (%bor.x) {
if ($calc(%bor.x / 10) == $int($calc(%bor.x / 10))) {
drawtext @bor.buf2 0 Tahoma 40 $calc(400 + (400 * $cos($calc( %bor.a2 + ( %bor.x * 6)) ).deg)) $calc(800 + (400 * $sin($calc(%bor.a2 + ( %bor.x * 6))).deg)) $mid(bored $+ $chr(160) , $calc(%bor.x / 10) ,1)
}
drawline @bor.buf 4 3 400 800 $calc(400 + (1000 * $cos($calc(( %bor.x * 6) + %bor.a1)).deg)) $calc(800 + (1000 * $sin($calc(( %bor.x * 6)+ %bor.a1)).deg))
dec %bor.x
}
%bor.x = 60
while (%bor.x) {
if ($calc(%bor.x / 2) == $int($calc(%bor.x / 2))) {
drawfill @bor.buf 4 4 $calc(400 + (200 * $cos($calc((( %bor.x * 6) + %bor.a1)+10)).deg)) $calc(800 + (200 * $sin($calc((( %bor.x * 6)+ %bor.a1)+10)).deg))
}
dec %bor.x
}
inc %bor.a1 2 | dec %bor.a2 4 | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
drawtext @bor.buf 0 Tahoma 40 25 25 Made by BlueThen | drawtext @bor.buf 0 Tahoma 40 25 75 BlueThen.com
drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | .timer 1 0 bored.frame
}
else unset %bor.c
}
on *:close:@bored: window -c @bor.buf | window -c @bor.buf2 | set %bor.c y | unset %bor.ld %bor.a1 %bor.a2 %bor.x %bor.y %bor.l
Well, I\'ve done various of other things before picwins, such as dialogs and other stuff like that. If you look at some of my older snippets, you\'ll see some of my older dialogs...
Really, I just make more picwins than anything else because they aren\'t as common, and tend to have more originality. Also, you can do a lot of neat stuff with picwins.