BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Sample 'Drag and Drop' mouse code.", by grim_1_2_3

This piece of code will let you drag items around and drop them into a box using the mouse. It's fully commented, And is fairly easy to understand. Also, You don't need any images to use this code :)

Code

; **************************
; *     By Grim_1_2_3      *
; **************************

; Sample mouse program for dragging and dropping items

Graphics 640,480 ; Set up graphics mode

SetBuffer BackBuffer() ; use double buffering

Global wait = CreateTimer(60) ; used to lock the FPS at 60
Global ix1 = 172 ; Item1's x position 
Global iy1 = 376 ; Item1's y position
Global ix2 = 215 ; Item2's x position
Global iy2 = 376 ; Item2's y position
Global ix3 = 258 ; Item3's x position
Global iy3 = 376 ; Item3's y position
Global ix4 = 301 ; Item4's x position
Global iy4 = 376 ; Item4's y position
Global item = 0 ; keeps track of the current item selected with the mouse

start()

Function start()
While Not KeyHit(1) ; While esc key is not being pressed..
WaitTimer(wait) ; wait for the FPS timer
If MouseDown(1) Then ; If the Left mouse button is being held down..
checkpos() 
Else ; otherwise..
checkpos2()
EndIf
If MouseHit(2) Then reset_items() ; If the Right mouse button is pressed
Text ix1,iy1, "Item1" ; this places the text 'item1' at item 1's x/y coordinates on the screen
Text ix2,iy2, "Item2" ; this places the text 'item2' at item 2's x/y coordinates on the screen
Text ix3,iy3, "Item3" ; this places the text 'item3' at item 3's x/y coordinates on the screen
Text ix4,iy4, "Item4" ; this places the text 'item4' at item 4's x/y coordinates on the screen
Text 237,175, "*******"  
Text 237,193, "*******" 
Text 237,181, "*     *" 
Text 237,187, "*     *" 
Text 179,151, "Drag Items To This Box" 
Text 172,210, "Left click to grab items" 
Text 15,225, "Right click to move all items back to their original positions"
Text MouseX(),MouseY(), "@" ; This puts the text symbol used for the mouse(in this example)on the screen
Text 0,0, "Current Mouse Position is:" + " X>" + MouseX() +" Y>" + MouseY() ; displays the mouse x/y position
Flip
Cls
Wend
End Function

Function checkpos() ; this function is used to check what item the mouse is currently picking up/ or not picking up
If MouseX() > 167 And MouseX() < 208 And MouseY() > 367 And MouseY() < 385 And ix1 = 172 And iy1 = 376 And item = 0 Then ; Basically states that if the mouse is within the x/y coordinates specified for item 1 and the left button is being held down then..
item = 1 ; the current item being picked up is item 1.
EndIf
If MouseX() > 210 And MouseX() < 251 And MouseY() > 367 And MouseY() < 385 And ix2 = 215 And iy2 = 376 And item = 0 Then ; same as above, But with item 2.
item = 2 ; the current item being picked up is item 2.
EndIf
If MouseX() > 253 And MouseX() < 294 And MouseY() > 367 And MouseY() < 385 And ix3 = 258 And iy3 = 376 And item = 0 Then ; same as above, But with item 3.
item = 3 ; the current item being picked up is item 3.
EndIf
If MouseX() > 296 And MouseX() < 337 And MouseY() > 367 And MouseY() < 385 And ix4 = 301 And iy4 = 376 And item = 0 Then ; same as above, But with item 4.
item = 4 ; the current item being picked up is item 4.
EndIf
Select item ; this part checks what item is selected, and reacts accordingly
Case 1 ; if the item is item 1..
ix1 = MouseX() ; make item 1's x position match the mouse x position(this way you can drag the item around)
iy1 = MouseY() ; make item 1's y position match the mouse y position
Case 2 ; if the item is item 2..
ix2 = MouseX() ; make item 2's y position match the mouse y position
iy2 = MouseY() ; make item 2's y position match the mouse y position
Case 3 ; if the item is item 3..
ix3 = MouseX() ; make item 3's y position match the mouse y position
iy3 = MouseY() ; make item 3's y position match the mouse y position
Case 4 ; if the item is item 4..
ix4 = MouseX() ; make item 4's y position match the mouse y position
iy4 = MouseY() ; make item 4's y position match the mouse y position
End Select
End Function

Function checkpos2() ; this function is used to check for the items being placed in the asterix box
Select item 
Case 1 ; if item is item1..
If ix1 > 237 And ix1 < 252 And iy1 > 177 And iy1 < 191 Then ; check to see if it is within the coordinates for the box, If it is then..
ix1 = 245  
iy1 = 184 ; the x/y are changed so that the item is centered in the asterix box when you drop it there
item = 0 ; no item is selected(you just dropped the item in the box)
Else ; if the item isn't within the box coordinates when you let go of the left mouse button then..
item = 0 
ix1 = 172 
iy1 = 376 ; the item is put back in it's original starting position
EndIf
Case 2 ; same as above, except with item2
If ix2 > 237 And ix2 < 252 And iy2 > 177 And iy2 < 191 Then
ix2 = 245
iy2 = 184
item = 0
Else 
item = 0
ix2 = 215
iy2 = 376
EndIf
Case 3 ; same as above, except with item3
If ix3 > 237 And ix3 < 252 And iy3 > 177 And iy3 < 191 Then
ix3 = 245
iy3 = 184
item = 0
Else 
item = 0
ix3 = 258
iy3 = 376
EndIf
Case 4 ; same as above, except with item4
If ix4 > 237 And ix4 < 252 And iy4 > 177 And iy4 < 191 Then
ix4 = 245
iy4 = 184
item = 0
Else 
item = 0
ix4 = 301
iy4 = 376
EndIf
End Select
End Function

Function reset_items()
item = 0 ; no item is currently selected
ix1 = 172 ; Reset Item1's x position to original position
iy1 = 376 ; Reset Item1's y position to original position
ix2 = 215 ; Reset Item2's x position to original position
iy2 = 376 ; Reset Item2's y position to original position
ix3 = 258 ; Reset Item3's x position to original position
iy3 = 376 ; Reset Item3's y position to original position
ix4 = 301 ; Reset Item4's x position to original position
iy4 = 376 ; Reset Item4's y position to original position
End Function

Code software created by Krylar's Kreations