Mouse + Selector - VERY smooth! - GameCreators Forum

Author

Message

Sergey K

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 5th Jul 2008 16:11

Link

see how SMOOTH the mouse moves and resizes just as you moving your mouse, also left click on the mouse and drag, see how SMOOTH the window follows the mouse..

+ Code Snippet

sync on : sync rate 100 : hide mouse
mx as integer : my as integer
CurX as Float : CurY as Float
mmy as float : mmx as float
oldx as integer : oldy as integer
do : cls
text 0,0,"FPS: "+str$(Screen fps())
mx = mousex() : my = mousey()
CurX = CurveValue(mx,CurX,6) : CurY = CurveValue(my,CurY,6)
mmy = mousemovey()*2 : mmx = mousemovex()*2
line CurX,CurY+mmy,CurX+15,CurY+15 : line CurX,CurY+mmy,CurX+mmx,CurY+18 : line CurX+15,CurY+15,CurX+mmx,CurY+18
if mouseclick()=1
   if clicked = 0 then OldX = CurX : OldY = CurY : clicked = 1
   line OldX,OldY,CurX,OldY+mmy : line OldX,OldY,OldX+mmx,CurY
   line CurX,OldY+mmy,CurX+mmx,CurY+mmy : line OldX+mmx,CurY,CurX+mmx,CurY+mmy
   line OldX,OldY,CurX+mmx,CurY+mmy : line OldX+mmx,CurY,CurX,OldY+mmy
endif
if mouseclick()=0 and clicked = 1 then clicked =0
sync : loop

Get DBP stuff here! - (plugins/models/scripts and more!)

Back to top

Profile PM Website

Terrorist Zero

17

Years of Service

User Offline

Joined: 29th Aug 2006

Location: Teh YouKai

Posted: 16th Jul 2008 16:59

Link

Haha! I quite like it actually!
Kinda reminds me of that old PSX game Vib-Ribbon with the 2D wireframe rabbit walking along to music and there's different obstacles you have to get through (wasn't released in North America).

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 20th Jul 2008 20:30

Link

Smooth.

Metal Runner
Snow Demo

Back to top

Profile PM Email

Sergey K

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 24th Jul 2008 10:20

Link

thx guys.. now i made it even MORE smoother! the selector and the mouse it self..

+ Code Snippet

sync on : sync rate 100 : hide mouse
mx as integer : my as integer
CurX as Float : CurY as Float
mmy as float : mmx as float : nmmy as float : nmmx as float
oldx as integer : oldy as integer
do : cls
text 0,0,"FPS: "+str$(Screen fps())
mx = mousex() : my = mousey()
CurX = CurveValue(mx,CurX,6) : CurY = CurveValue(my,CurY,6)
mmy = mousemovey()*2 : mmx = mousemovex()*2
nmmy = CurveValue(mmy,nmmy,6) : nmmx = CurveValue(mmx,nmmx,6)
line CurX,CurY+nmmy,CurX+15,CurY+15 : line CurX,CurY+nmmy,CurX+nmmx,CurY+18 : line CurX+15,CurY+15,CurX+nmmx,CurY+18
if mouseclick()=1
   if clicked = 0 then OldX = CurX : OldY = CurY : clicked = 1
   line OldX,OldY,CurX,OldY+nmmy : line OldX,OldY,OldX+nmmx,CurY
   line CurX,OldY+nmmy,CurX+nmmx,CurY+nmmy : line OldX+nmmx,CurY,CurX+nmmx,CurY+nmmy
   line OldX,OldY,CurX+nmmx,CurY+nmmy : line OldX+nmmx,CurY,CurX,OldY+nmmy
endif
if mouseclick()=0 and clicked = 1 then clicked =0
sync : loop

and full code (40 lines):

+ Code Snippet

sync on
sync rate 100
hide mouse
mx as integer
my as integer
CurX as Float
CurY as Float
mmy as float
mmx as float
nmmy as float
nmmx as float
oldx as integer
oldy as integer
do
cls
text 0,0,"FPS: "+str$(Screen fps())
mx = mousex()
my = mousey()
CurX = CurveValue(mx,CurX,6)
CurY = CurveValue(my,CurY,6)
mmy = mousemovey()*2
mmx = mousemovex()*2
nmmy = CurveValue(mmy,nmmy,6)
nmmx = CurveValue(mmx,nmmx,6)
line CurX,CurY+nmmy,CurX+15,CurY+15
line CurX,CurY+nmmy,CurX+nmmx,CurY+18 : line CurX+15,CurY+15,CurX+nmmx,CurY+18
if mouseclick()=1
   if clicked = 0 then OldX = CurX
   OldY = CurY : clicked = 1
   line OldX,OldY,CurX,OldY+nmmy
   line OldX,OldY,OldX+nmmx,CurY
   line CurX,OldY+nmmy,CurX+nmmx,CurY+nmmy
   line OldX+nmmx,CurY,CurX+nmmx,CurY+nmmy
   line OldX,OldY,CurX+nmmx,CurY+nmmy
   line OldX+nmmx,CurY,CurX,OldY+nmmy
endif
if mouseclick()=0 and clicked = 1 then clicked =0
sync
loop

Get DBP stuff here! - (plugins/models/scripts and more!)

Back to top

Profile PM Website

SunDawg

19

Years of Service

User Offline

Joined: 21st Dec 2004

Location: Massachusetts

Posted: 4th Aug 2008 07:38

Link

Wow, that is smooth.

My site, for various stuff that I make.

Back to top

Profile PM Email Website

Terrorist Zero

17

Years of Service

User Offline

Joined: 29th Aug 2006

Location: Teh YouKai

Posted: 22nd Aug 2008 01:32 Edited at: 22nd Aug 2008 01:33

Link

any reason why the box will always stay a line in the full code (40 lines) yet is a box in the compressed (20 lines) version?

could just be me...

BTW: That's as smooth as can be!

Back to top

Profile PM Email Website

Xenocythe

18

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 31st Aug 2008 15:08

Link

I like it. It's the magic of curve value.

3.11 We do not tolerate posts made for the purpose of putting down another forum member, group of members, religion, our company, our staff or any of our moderators, past or present.

Back to top

Profile PM Email Website

Sergey K

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 4th Sep 2008 14:17

Link

yeah i live CurveValue

by the way.. i belive any game with that mouse smooth effects will look really cool.. aspecialy a Strategy games, you guys can use that code snippet on your games.. it will look really cool