Moderator: Lixas
-
Jeries
- Posts: 51
- Joined: Tue Aug 30, 2005 8:48 am
-
Contact:
Post
by Jeries »
Well, It isn't usefull using this script, but you can learn lots from it.. anyway here's the code:
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
}
JNRation
-
korsaan
- Posts: 596
- Joined: Sat Apr 09, 2005 2:55 pm
-
Contact:
Post
by korsaan »
I don't understant any thing
But any way thank you
-
Jeries
- Posts: 51
- Joined: Tue Aug 30, 2005 8:48 am
-
Contact:
Post
by Jeries »
korsaan wrote:I don't understant any thing
But any way thank you
LOL
if u wanna learn the language.. PM me
!
JNRation
-
ELMOHTARF
- Posts: 356
- Joined: Mon Aug 29, 2005 9:57 am
-
Contact:
Post
by ELMOHTARF »
thanks jeries for this code
but i want to learn about it
i want your email to talk with you
With My Best Wishes ::::::: Scorpion :::::::::
-
Jeries
- Posts: 51
- Joined: Tue Aug 30, 2005 8:48 am
-
Contact:
Post
by Jeries »
hac_scorpion wrote:thanks jeries for this code
but i want to learn about it
i want your email to talk with you
jeryes@gmail.com
JNRation
-
canotopia
- Posts: 127
- Joined: Sat Sep 10, 2005 8:15 pm
Post
by canotopia »
i dont understand any off that is that css
Canotopia coming soon!
-
Jeries
- Posts: 51
- Joined: Tue Aug 30, 2005 8:48 am
-
Contact:
Post
by Jeries »
beantown wrote:i dont understand any off that is that css
No that's mirc scripting!!!
JNRation