sprite dragging - GameCreators Forum

Author

Message

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 22nd Oct 2003 08:57

Link

here is a snippit to drag a sprite...a little wirld, but it works

+ Code Snippet

`drag sprites
`by zach turnlund

`make box and images
box 0,0,50,50
get image 1,0,0,50,50
cls
sprite 1,300,300,1

`do
do



`find where the mouse is and change the selected variable
if mousex()=>sprite x(1) and mousex()=<sprite x(1)+50 and mousey()=>sprite y(1) and mousey()=<sprite y(1)+50
	if selected=0
		if mouseclick()=1
			selected=1
			wait 100
		endif
	endif
	if selected=1
		if mouseclick()=0
			selected=0
			wait 100
		endif
	endif
endif
if selected=1 
	sprite 1,mousex(),mousey(),1
	wait 100
endif


`sync and loop
loop

Bishop

ps-do comment on how to make it better...thanx

"When you were born, you cried and the world rejoiced. Live so when you die, the world cries and you rejoice."

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 22nd Oct 2003 10:05

Link

Change this line:

if mousex()=>sprite x(1) and mousex()=<sprite x(1)+50 and mousey()=>sprite y(1) and mousey()=<sprite y(1)+50

to this:

if mousex()=>sprite x(1) and mousex()<sprite x(1)+sprite width(1) and mousey()=>sprite y(1) and mousey()<sprite y(1)+sprite height(1)

This way, it doesn't depend on a 50x50 sprite being used and can use any size sprite

Also, if you change this line:

sprite 1,mousex(),mousey(),1

to this:

sprite 1, mousex()-(sprite width(1)/2), mousey()-(sprite height(1)/2), 1

Then the mouse will be centred on the sprite instead of the top left

Back to top

Profile PM Email Website

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 22nd Oct 2003 18:36

Link

Here is an approach

+ Code Snippet

Rem Project: DragSprite
Rem Created: 10/22/2003 7:15:07 AM

Rem ***** Main Source File *****

Randomize Timer()

For i = 1 to rnd(15)+5
   X = Rnd(Screen width()/3)
   Y = Rnd(Screen Height()/3)

   ink rgb (rnd(255),rnd(255),rnd(255)),0
   cls
   box 0,0,x,y
   get image i,0,0,x,y
   sprite i,Rnd(Screen width()),Rnd(Screen height()),i
next i


do
   if mouseclick() <> 0
      target = Pick_Sprite(0)
      if target <> 0
         sprite target, Mousex()-(sprite width(target)/2),MouseY()-(sprite height(target)/2),target
      endif
   endif
   sync
loop

Function Pick_Sprite(Target)
   rem change 999 to any number you wish
   rem move the next line outside of main loop should only be called once
  get image 999,1,1,2,2
  sprite 999,mousex(),Mousey(),999
  hit = sprite collision(999,Target)
  rem the following is only for testing
  set cursor mousex()-200,Mousey()
  print "Hit Sprite # : ",hit
EndFunction hit

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 22nd Oct 2003 22:20

Link

Yes, but you'll have problems if you drag a high-numbered sprite over a low-numbered one using that code ... try it and see

Back to top

Profile PM Email Website

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 22nd Oct 2003 23:35

Link

That's because High number sprites are over low number Sprites. It is a feature of DBP

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 23rd Oct 2003 00:00 Edited at: 23rd Oct 2003 00:02

Link

What I meant was that sometimes when you drag one sprite over another, your code will switch sprites

Here's a fixed version, plus I've also made the dragging a bit better ... you'll see what I mean when you run it

[edit]I've also hidden the sprite created by your pick sprite function - if you don't, you'll see the single dot image. Collision still works correctly with a hidden image[/edit]

Back to top

Profile PM Email Website

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 23rd Oct 2003 01:21

Link

By George I thinks weeve got it

Nice final Touch IanM

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Codger

22

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 23rd Oct 2003 02:02

Link

One More time I knew that was too much code IanM

Rem Project: DragSprite
Rem Created: 10/22/2003 7:15:07 AM

Rem ***** Main Source File *****

Randomize Timer()

For i = 1 to rnd(15)+5
   X = Rnd(Screen width()/3)
   Y = Rnd(Screen Height()/3)

ink rgb (rnd(255),rnd(255),rnd(255)),0
   cls
   box 0,0,x,y
   get image i,0,0,x,y
   sprite i,Rnd(Screen width()),Rnd(Screen height()),i
next i

Target = 998

do
   if mouseclick() = 1
      if target  <> 0 and Pick_Sprite(Target)= 1
         sprite target, Mousex()-(sprite width(target)/2),MouseY()-(sprite height(target)/2),target
      else
         Target = Pick_Sprite(0)
            if Target <> 0
               sprite target, Mousex()-(sprite width(target)/2),MouseY()-(sprite height(target)/2),target
            endif
      endif
   endif
   sync
loop

Function Pick_Sprite(Target)
   rem change 999 to any number you wish
   rem move the next line outside of main loop should only be called once
  get image 999,1,1,2,2
  sprite 999,mousex(),Mousey(),999
  hit = sprite collision(999,Target)
  rem the following is only for testing
  set cursor mousex()-200,Mousey()
  print "Hit Sprite # : ",hit
  delete sprite 999
EndFunction hit

+ Code Snippet

Rem Project: DragSprite
Rem Created: 10/22/2003 7:15:07 AM

Rem ***** Main Source File *****

Randomize Timer()

For i = 1 to rnd(15)+5
   X = Rnd(Screen width()/3)
   Y = Rnd(Screen Height()/3)

   ink rgb (rnd(255),rnd(255),rnd(255)),0
   cls
   box 0,0,x,y
   get image i,0,0,x,y
   sprite i,Rnd(Screen width()),Rnd(Screen height()),i
next i

Target = 998

do
   if mouseclick() = 1
      if target  <> 0 and Pick_Sprite(Target)= 1
         sprite target, Mousex()-(sprite width(target)/2),MouseY()-(sprite height(target)/2),target
      else
         Target = Pick_Sprite(0)
            if Target <> 0
               sprite target, Mousex()-(sprite width(target)/2),MouseY()-(sprite height(target)/2),target
            endif
      endif
   endif
   sync
loop

Function Pick_Sprite(Target)
   rem change 999 to any number you wish
   rem move the next line outside of main loop should only be called once
  get image 999,1,1,2,2
  sprite 999,mousex(),Mousey(),999
  hit = sprite collision(999,Target)
  rem the following is only for testing
  set cursor mousex()-200,Mousey()
  print "Hit Sprite # : ",hit
  delete sprite 999
EndFunction hit

I can't stand too much code

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 23rd Oct 2003 04:12

Link