I need to make a [Make <sprite x> <draggable/non draggable>] block. Credit will be given in Rocket!. I made a boolean to report if draggable:
('draggable' #b #draggable)
and the reporter version:
('draggable' #r #draggable) if that helps (It's under SpriteScratchMorph).
So, help?
Offline
Here you go!
For making yourself draggable/undraggable:
('make self draggable' #- #MakeDraggable) ('make self undraggable' #- #MakeUndraggable)
MakeDraggable
draggable _ true
MakeUndraggable
draggable _ falseFor altering other sprites, I was unable to figure out how to remove "mouse-pointer" as an option, so it does nothing if "mouse-pointer" is selected.
('make %m draggable' #- #MakeDraggable:) ('make %m undraggable' #- #MakeUndraggable:)
MakeDraggable: t1
t1 = #mouse ifFalse: [t1 draggable: false]
MakeUndraggable: t1
t1 = #mouse ifFalse: [t1 draggable: false]Since you shared the reporter to the block library, do you mind if I share these?

Offline
Greenatic wrote:
Here you go!
For making yourself draggable/undraggable:Code:
('make self draggable' #- #MakeDraggable) ('make self undraggable' #- #MakeUndraggable) MakeDraggable draggable _ true MakeUndraggable draggable _ falseFor altering other sprites, I was unable to figure out how to remove "mouse-pointer" as an option, so it does nothing if "mouse-pointer" is selected.
Code:
('make %m draggable' #- #MakeDraggable:) ('make %m undraggable' #- #MakeUndraggable:) MakeDraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false] MakeUndraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false]Since you shared the reporter to the block library, do you mind if I share these?
Thanks, go ahead! You made them.
Offline
wulfmaster wrote:
Greenatic wrote:
Here you go!
For making yourself draggable/undraggable:Code:
('make self draggable' #- #MakeDraggable) ('make self undraggable' #- #MakeUndraggable) MakeDraggable draggable _ true MakeUndraggable draggable _ falseFor altering other sprites, I was unable to figure out how to remove "mouse-pointer" as an option, so it does nothing if "mouse-pointer" is selected.
Code:
('make %m draggable' #- #MakeDraggable:) ('make %m undraggable' #- #MakeUndraggable:) MakeDraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false] MakeUndraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false]Since you shared the reporter to the block library, do you mind if I share these?
Thanks, go ahead! You made them.
![]()
You're welcome. Anything else I can do to help? (even though I'm not sure I'll be able to, my blockmaking experience is very short)

Offline
Greenatic wrote:
wulfmaster wrote:
Greenatic wrote:
Here you go!
For making yourself draggable/undraggable:Code:
('make self draggable' #- #MakeDraggable) ('make self undraggable' #- #MakeUndraggable) MakeDraggable draggable _ true MakeUndraggable draggable _ falseFor altering other sprites, I was unable to figure out how to remove "mouse-pointer" as an option, so it does nothing if "mouse-pointer" is selected.
Code:
('make %m draggable' #- #MakeDraggable:) ('make %m undraggable' #- #MakeUndraggable:) MakeDraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false] MakeUndraggable: t1 t1 = #mouse ifFalse: [t1 draggable: false]Since you shared the reporter to the block library, do you mind if I share these?
Thanks, go ahead! You made them.
![]()
You're welcome. Anything else I can do to help? (even though I'm not sure I'll be able to, my blockmaking experience is very short)
Not at the moment, thanks! (Unless you want to become a rocket dev
)
Offline