3D Test
Platform: mIRC
Published Apr 29, 2008
Updated Apr 29, 2008
Uh, nothing special really. I'm just testing a simple 3d concept.
Updates:
Fixed the initialization.
;3D Test 1.01
;Made by BlueThen on April 29, 2008.
;To install, paste this script into your remotes (alt + r),
;then type /3dtest or right click the channel or status and click 3D Test.
;A cube is placed at cursor position, so you need to wave your pointer over the window to see it.
;BlueThen.com
menu channel,status {
3D Test: { 3dtest }
}
alias 3dtest {
window -paoCzdk0 +tnbL @3dtest -1 -1 400 400 | window -poCzdhk0 +tnbL @3dt.buf -1 -1 800 800
drawfill @3dt.buf 0 0 1 1 1 1 | drawtext @3dt.buf 1 Tahoma 40 350 50 Made By BlueThen
drawtext @3dt.buf 1 Tahoma 40 400 100 BlueThen.com | drawcopy -m @3dt.buf 0 0 800 800 @3dtest 0 0 400 400
}
menu @3dtest {
mouse: {
clear @3dt.buf | drawfill @3dt.buf 0 0 1 1 1 1
%3dt.x = $calc($mouse.x * 2) | %3dt.y = $calc($mouse.y * 2)
drawline @3dt.buf 1 2 $calc(%3dt.x + 50) $calc(%3dt.y + 50) $calc(%3dt.x + 50) $calc(%3dt.y - 50)
drawline @3dt.buf 1 2 $calc(%3dt.x + 50) $calc(%3dt.y - 50) $calc(%3dt.x - 50) $calc(%3dt.y - 50)
drawline @3dt.buf 1 2 $calc(%3dt.x - 50) $calc(%3dt.y - 50) $calc(%3dt.x - 50) $calc(%3dt.y + 50)
drawline @3dt.buf 1 2 $calc(%3dt.x - 50) $calc(%3dt.y + 50) $calc(%3dt.x + 50) $calc(%3dt.y + 50)
drawline @3dt.buf 1 2 $calc(%3dt.x + 50) $calc(%3dt.y + 50) $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y + 50)*800)/850)
drawline @3dt.buf 1 2 $calc(%3dt.x + 50) $calc(%3dt.y - 50) $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y - 50)*800)/850)
drawline @3dt.buf 1 2 $calc(%3dt.x - 50) $calc(%3dt.y - 50) $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y - 50)*800)/850)
drawline @3dt.buf 1 2 $calc(%3dt.x - 50) $calc(%3dt.y + 50) $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y + 50)*800)/850)
drawline @3dt.buf 1 2 $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y + 50)*800)/850) $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y - 50)*800)/850)
drawline @3dt.buf 1 2 $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y - 50)*800)/850) $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y - 50)*800)/850)
drawline @3dt.buf 1 2 $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y - 50)*800)/850) $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y + 50)*800)/850)
drawline @3dt.buf 1 2 $calc(((%3dt.x - 50)*800)/850) $calc(((%3dt.y + 50)*800)/850) $calc(((%3dt.x + 50)*800)/850) $calc(((%3dt.y + 50)*800)/850)
drawtext @3dt.buf 1 Tahoma 40 350 50 Made By BlueThen | drawtext @3dt.buf 1 Tahoma 40 400 100 BlueThen.com
drawcopy -m @3dt.buf 0 0 800 800 @3dtest 0 0 400 400
}
}
on *:close:@3dtest: { window -c @3dt.buf | unset %3dt.x %3dt.y }
