Sinus Function, mIRC
Posted: Sat Sep 03, 2005 12:38 pm
Well, It isn't usefull using this script, but you can learn lots from it.. anyway here's the code:
Paste this as Alias:
Paste this as Alias:
/sin {
:set
/set %zoom $?="Please select Zoom: 20 - 200"
if (%zoom > 200) || (%zoom < 20) {
goto set
}
:start
set %sin $calc(%sin + 0.1)
set %ex $calc(%ex + (150/ %zoom) * 4 + 5)
set %rex $calc(-1 * %ex)
:calc
if (%sin == 0.1) {
/window -p @sin -1 -1 700 700
/drawline @sin 1 1 0 350 700 350
/drawline @sin 1 1 350 0 350 700
}
if (%sin > 0.1) {
goto draw
}
:draw
drawdot @sin 4 1 $calc(%sin * ((%zoom / 200) * 5) + 350) $calc($sin(%sin).deg * %zoom + 350)
drawtext @sin 12 tahoma 8 $calc($int(%ex) * ((%zoom / 200) * 5) + 350 -5) 350 %ex
drawdot @sin 4 1 $calc(-1 * %sin * ((%zoom / 200) * 5) + 350) $calc($sin(- $+ %sin).deg * %zoom + 350)
drawtext @sin 12 tahoma 8 $calc($int(%rex) * ((%zoom / 200) * 5) + 350 -5) 350 %rex
if ($calc(%sin * ((%zoom / 200) * 5) + 350) < 700) {
goto start
}
if ($calc(%sin * ((%zoom / 200) * 5) + 350) > 700) {
goto end
}
:end
unset %zoom
unset %sin
unset %ex
unset %rex
}
/mouse {
:start
/window -p @eyes -1 -1 250 250
:draw
if ($calc($mouse.y - 90) > 0) && ($calc($mouse.x - 160) > 0) {
/set %da $calc($mouse.y - 90)
/set %db $calc($mouse.x - 160)
}
/drawdot @eyes 15 80 120 110
/drawdot @eyes 0 20 80 90
/drawdot @eyes 0 20 160 90
/drawdot @eyes 1 10 $atan(%db / %da).deg $atan(%da / %db).deg
/goto draw
}
!