Sorry your browser is not supported!

Hey community i have a little dilema...I don't really know how can i make an object follow my mouse but not smooth, but like in the segment editor in FPS Creator Classic...how can i achieve this?

Thank You for help!

Rims Flames

Back to top

Profile PM Email

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 8th Apr 2014 22:37

I'm not familiar with FPS Creator Classic

So you want the object to follow the mouse, but in set increments? Like to where the object is jumping a certain amount of space with each movement?

666GO†O666

Back to top

Profile PM

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 9th Apr 2014 12:17

Hey Derek Darkly!

Exactly!

Rims Flames

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 9th Apr 2014 16:11

It sounds like you need to create a threshold. Create variables for the last set position of the mouse. When the actual mouse coordinates have moved a specific number of units from the set position, move the object and update the set position.

Back to top

Profile PM Email

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 9th Apr 2014 18:55

Are you wanting the movement to be along all 3 axes, or just 2 at a time like X and Y, for example?

You might want to play with PICK SCREEN
This command will calculate a relative 3D coordinate from a 2D screen coordinate.

If i get a better idea of what you want, I may try to code some kind of example if I'm able.

666GO†O666

Back to top

Profile PM

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 10th Apr 2014 14:09

This is the code that i have

pick screen mousex(),mousey(),  1000
xp# = get pick vector x() + camera position x(0)
zp# = get pick vector z() + camera position z(0)
position object obj,xp#,object position y(obj),zp#

But how can i manage to eliminate the smooth follow and add that function like in fpsc. The fact is that i don't know how to adapt this code to what i want...Really appreciate for help! Thank You again!

Rims Flames

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 10th Apr 2014 14:24 Edited at: 10th Apr 2014 14:24

Maybe something like this, where "20" is just a distance I have picked to demonstrate. Your variables will need to maintain their values between cycles. Untested but the theory should be OK:

pick screen mousex(),mousey(),  1000
new_xp# = get pick vector x() + camera position x(0)
new_zp# = get pick vector z() + camera position z(0)

if abs(new_xp# - old_xp#) > 20 then old_xp# = new_xp#
if abs(new_zp# - old_zp#) > 20 then old_zp# = new_xp#

position object obj,old_xp#,object position y(obj),old_zp#

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 10th Apr 2014 16:16

Hey BatVink it works as it should only that has a big glitch, the object positions itself up or down but not where the mouse is.

Thank You again!

Rims Flames

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 10th Apr 2014 17:59

I don't think that the message from a few minutes was sent but i am resending this again anyways:

The code works perfectly except that i am dragging the mouse left or right sometimes the object that i move it goes up or down.

Thank You!

Rims Flames

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 11th Apr 2014 23:49

There is a typo in one of the lines I wrote.

if abs(new_xp# - old_xp#) > 20 then old_xp# = new_xp#
if abs(new_zp# - old_zp#) > 20 then old_zp# = new_xp#

should be

if abs(new_xp# - old_xp#) > 20 then old_xp# = new_xp#
if abs(new_zp# - old_zp#) > 20 then old_zp# = new_zp#

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 12th Apr 2014 00:43

Oh God i can't believe i didn't saw the misstype...but now thankfully it works thanks to you! Thank You and thanks to all for support!

Rims Flames

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 22nd Apr 2014 21:49

Hey BatVink,

Do you know why when i moving the cursor very fast with the objects attached to it, the position gets imperfect? Like if i want to make a big wall, i am moving a bit fast up and down with the mouse sometimes and if i want to go near the last wall to make another wall, the same precision is broken, like i expect to be almost glued to the wall next to it.

Thank You!

Rims Flames

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 22nd Apr 2014 23:02

Using 20 units as the example again...

The code looks for "greater than" 20. So if you move 25 units, it will place your object at the last position + 25.

You need logic that says "if greater than or equal to 20, move it 20"

You'll need to expand the previous example because it ignores direction. If you want to move a specific number of units you'll need to take into account negative/positive too.

Also, although you are moving the object a specific number of units you still need to remember the mouse position not the object position when you move it and reset the variables. I don't have an editor here to write the code at the moment but it would be something like:

pick screen mousex(),mousey(),  1000
new_xp# = get pick vector x() + camera position x(0)
new_zp# = get pick vector z() + camera position z(0)

if new_xp# - old_xp# >= 20
   old_xp# = new_xp#
   object_x = object_x + 20
endif

if new_xp# - old_xp# <= -20
   old_xp# = new_xp#
   object_x = object_x - 20
endif

if new_zp# - old_zp# >= 20
   old_zp# = new_xp#
   object_z = object_z + 20
endif

if new_zp# - old_zp# <= -20
   old_zp# = new_xp#
   object_z = object_z - 20
endif

position object obj,object_x,object position y(obj),object_z

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 23rd Apr 2014 18:48

Hey BatVink,

Thank you for the fast reply!

The code doesn't really work i mean the object now doesn't appear on the screen or if it does, it goes from up to down very fast and then disappears.

Thank You again!

Here is the code for an editor prototype that i am testing the codes.

global obj = 2
global camspeed = 10
startblue "RT","4e2d"

autocam off

disable escapekey

position camera 0,50,244,55
rotate camera 90,0,0

make object plane 555, 100000, 100000 : xrotate object 555, 90

make object box 1,145,145,145

position object 1,camera position x(0), 5, camera position z(0) + 155

objm = 2

valup = 0

risevalmouse = 3000

placeobj = 2

`load object "hut6.x",placeobj
posobj = 5

wll = 11
`load object "wall_ALL_a_E.X",wll

do
  
  
  if object exist(1) = 1
  pick screen mousex(),mousey(),  1000
new_xp# = get pick vector x() + camera position x(0)
new_zp# = get pick vector z() + camera position z(0)
if abs(new_xp# - old_xp#) > 55 then old_xp# = new_xp#
if abs(new_zp# - old_zp#) > 55 then old_zp# = new_zp#
position object 1,old_xp#,object position y(1),old_zp#
endif

remstart
poswll = poswll + 1
if poswll = 2
inc wll
load object "wall_ALL_a_E.X",wll
endif
else
poswll = 0
endif
remend

remstart
  if object exist(1) = 1
  pick screen mousex(),mousey(),  1000
xp# = get pick vector x() + camera position x(0)
zp# = get pick vector z() + camera position z(0)
position object obj,xp#,object position y(obj),zp#
endif
remend  
  
  if mouseclick() = 1
      inc posobj
      make object box posobj,145,145,145
ENDIF

if object exist(posobj) = 1
position object posobj, object position x(1) , 5, object position z(1)
endif
  
  if keystate(30) = 1
stepcaml = stepcaml + 1
if stepcaml = 2

if thritytwogridchecked = 1
move camera left 0,32
else
if thritytwogridchecked = 0
move camera left 0,35
endif
endif

endif
else
if keystate(30) = 0
stepcaml = 0
endif
endif

if keystate(32) = 1
stepcamr = stepcamr + 1
if stepcamr = 2

if thritytwogridchecked = 1
move camera right 0,32
else
if thritytwogridchecked = 0
move camera right 0,35
endif
endif

endif
else
if keystate(32) = 0
stepcamr = 0
endif
endif

if keystate(17) = 1
stepcamu = stepcamu + 1
if stepcamu = 2

if thritytwogridchecked = 1
move camera up 0,32
else
if thritytwogridchecked = 0
move camera up 0,35
endif
endif

endif
else
if keystate(17) = 0
stepcamu = 0
endif
endif

if keystate(31) = 1
stepcamd = stepcamd + 1
if stepcamd = 2

if thritytwogridchecked = 1
move camera down 0,32
else
if thritytwogridchecked = 0
move camera down 0,35
endif
endif

endif
else
if keystate(31) = 0
stepcamd = 0
endif
endif  
  
  
  
  remstart
  position object 1, camera position x(0), 5, camera position z(0)
  remend
  
  remstart 
  if mouseclick() = 1
      
      place = place + 1
      if place = 2
      position object placeobj,object position x(placeobj),object position y(placeobj),object position z(placeobj)
      inc placeobj
      load object "hut6.x",placeobj
ENDIF
ENDIF

if mouseclick() = 0
     place = 0
ENDIF
   
   
   text 333,333, str$(risevalmouse)
   
   hide mouse
   pick screen mousex(),mousey(),  risevalmouse          `risevalmouse
   
x# = get pick vector x() + camera position x(0)
z# = get pick vector z() + camera position z(0)
position object placeobj,x#,object position y(placeobj),z#

text 25,25, str$(object position x(1))
 text 35,35, str$(object position y(1))
 text 45,45, str$(object position z(1))
 remend
   
   `position object 1,camera position x(0),5,camera position z(0)
    
    remstart
            `Keyboard Manipulation
            if keystate (17) = 1
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `z = z + 10
            z = z + camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (30) = 1
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `x=x-10
            x=x-camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (31) = 1
                x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `z = z - 10
            z = z - camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (32) = 1
             x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `x=x+10
            x=x+camspeed
            position camera 0,x,y,z
        ENDIF
        remend
        if keystate (16) = 1
            inc risevalmouse
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `y=y+10
            y=y+camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (18) = 1
            dec risevalmouse
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `y=y-10
            y=y-camspeed
            position camera 0,x,y,z
        ENDIF
        
 `Changing Camera Speed
 
mz = mousemovez()
if mz<0
    dec camspeed
ENDIF
if mz>0
    inc camspeed
ENDIF
text 20,100,"Scrolling Speed: " + str$(camspeed)
 
sync
loop

global obj = 2
global camspeed = 10
startblue "RT","4e2d"

autocam off

disable escapekey


position camera 0,50,244,55
rotate camera 90,0,0


make object plane 555, 100000, 100000 : xrotate object 555, 90

make object box 1,145,145,145

position object 1,camera position x(0), 5, camera position z(0) + 155

objm = 2

valup = 0

risevalmouse = 3000


placeobj = 2

`load object "hut6.x",placeobj
posobj = 5

wll = 11
`load object "wall_ALL_a_E.X",wll


  do
  
  
  if object exist(1) = 1
  pick screen mousex(),mousey(),  1000
new_xp# = get pick vector x() + camera position x(0)
new_zp# = get pick vector z() + camera position z(0)
if abs(new_xp# - old_xp#) > 55 then old_xp# = new_xp#
if abs(new_zp# - old_zp#) > 55 then old_zp# = new_zp#
position object 1,old_xp#,object position y(1),old_zp#
endif


remstart
poswll = poswll + 1
if poswll = 2
inc wll
load object "wall_ALL_a_E.X",wll
endif
else
poswll = 0
endif
remend


remstart
  if object exist(1) = 1
  pick screen mousex(),mousey(),  1000
xp# = get pick vector x() + camera position x(0)
zp# = get pick vector z() + camera position z(0)
position object obj,xp#,object position y(obj),zp#
endif
remend  
  
  if mouseclick() = 1
      inc posobj
      make object box posobj,145,145,145
ENDIF

if object exist(posobj) = 1
position object posobj, object position x(1) , 5, object position z(1)
endif
  
  if keystate(30) = 1
stepcaml = stepcaml + 1
if stepcaml = 2

if thritytwogridchecked = 1
move camera left 0,32
else
if thritytwogridchecked = 0
move camera left 0,35
endif
endif

endif
else
if keystate(30) = 0
stepcaml = 0
endif
endif

if keystate(32) = 1
stepcamr = stepcamr + 1
if stepcamr = 2

if thritytwogridchecked = 1
move camera right 0,32
else
if thritytwogridchecked = 0
move camera right 0,35
endif
endif

endif
else
if keystate(32) = 0
stepcamr = 0
endif
endif


if keystate(17) = 1
stepcamu = stepcamu + 1
if stepcamu = 2

if thritytwogridchecked = 1
move camera up 0,32
else
if thritytwogridchecked = 0
move camera up 0,35
endif
endif

endif
else
if keystate(17) = 0
stepcamu = 0
endif
endif



if keystate(31) = 1
stepcamd = stepcamd + 1
if stepcamd = 2

if thritytwogridchecked = 1
move camera down 0,32
else
if thritytwogridchecked = 0
move camera down 0,35
endif
endif

endif
else
if keystate(31) = 0
stepcamd = 0
endif
endif  
  
  
  
  remstart
  position object 1, camera position x(0), 5, camera position z(0)
  remend
  
  remstart 
  if mouseclick() = 1
      
      place = place + 1
      if place = 2
      position object placeobj,object position x(placeobj),object position y(placeobj),object position z(placeobj)
      inc placeobj
      load object "hut6.x",placeobj
ENDIF
ENDIF

if mouseclick() = 0
     place = 0
ENDIF
   
   
   text 333,333, str$(risevalmouse)
   
   hide mouse
   pick screen mousex(),mousey(),  risevalmouse          `risevalmouse
   
x# = get pick vector x() + camera position x(0)
z# = get pick vector z() + camera position z(0)
position object placeobj,x#,object position y(placeobj),z#

   
   
 text 25,25, str$(object position x(1))
 text 35,35, str$(object position y(1))
 text 45,45, str$(object position z(1))
 remend
   
   `position object 1,camera position x(0),5,camera position z(0)
    
    remstart
            `Keyboard Manipulation
            if keystate (17) = 1
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `z = z + 10
            z = z + camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (30) = 1
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `x=x-10
            x=x-camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (31) = 1
                x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `z = z - 10
            z = z - camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (32) = 1
             x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `x=x+10
            x=x+camspeed
            position camera 0,x,y,z
        ENDIF
        remend
        if keystate (16) = 1
            inc risevalmouse
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `y=y+10
            y=y+camspeed
            position camera 0,x,y,z
        ENDIF
        if keystate (18) = 1
            dec risevalmouse
            x = camera position x (0)
            y = camera position y (0)
            z = camera position z (0)
            `y=y-10
            y=y-camspeed
            position camera 0,x,y,z
        ENDIF
        
 `Changing Camera Speed
 
mz = mousemovez()
if mz<0
    dec camspeed
ENDIF
if mz>0
    inc camspeed
ENDIF
text 20,100,"Scrolling Speed: " + str$(camspeed)
 
sync
loop

Rims Flames

Back to top

Profile PM Email

Rims Flames

10

Years of Service

User Offline

Joined: 5th Apr 2014

Location:

Posted: 27th Apr 2014 21:40

Anyone can help me with code that BatVink wrote please?

Thanks in advance!

Rims Flames

Back to top

Profile PM Email

nonZero

13

Years of Service

User Offline

Joined: 10th Jul 2011

Location: Dark Empire HQ, Otherworld, Silent Hill

Posted: 12th May 2014 21:23

Unfortunately, your approach is wrong from what I can see of your code (I'm viewing it on a phone). You need to use rounding based on where the mouse /is/, not how much it moved. That maintains a constant. Here's a 2D example:

How about you take the distance you want for each step as /s/
Now your coordinates are:
x = (x / s) * s
y = (y / s) * s
Basically dividing by s gives you a value which (since these are ints) gets rounded-off to the nearest whole number (if you're working in floats, then you need to write a quick rounding function). That gets then multiplied by s, resulting in the nearest step.
Example:
x = 109
s = 20
x / s = 109 / 20 = 5.45
5.45 rounds to 5
5 * s = 5 * 20 = 100
Now 100 is the nearest 20unit step from 109.

"Oh nonZero, let me tell you, I love you." -- Dark Java Dude 64, Vice-Kapitan of nASA(nonZero's Awesomeness-Spreading Association)

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 23rd May 2014 13:17 Edited at: 23rd May 2014 13:18

What nonZero said - use absolute placement. BatVink's example uses relative placement, meaning the error will increase over time.