Scratch

new block:

blockspec:

('if %b bounce' #- #bnceIfBoolean)

code:

bnceIfBoolean: condition
     condition ifTrue: [self turnRight: 180]

Last edited by jslomba (2011-06-19 09:34:20)

joefarebrother wrote:

I made a realy good block for BYOB, but I am having trouble uploading the pictures.    Can anyone help me?

By the way, this is my exact 40th post   

http://tinypic.com/ 

TS, are you still going to make that update?

Mozaz wrote:

Sorry if this is a bit of a common question but I had a quick look around and couldnt find anything that answered my question.

How do I used these custom blocks? and will they work online/ downloads?

Thanks in advance

for scratch blocks, here's a good toutorial: http://scratch.mit.edu/forums/viewtopic.php?id=34152

YourLocalBlockLib wrote:

http://dl.dropbox.com/u/6273449/BlockLibraryTitle.png
^Back to Scratch blocks

How to download a Scratch block
Credit to nXIII for his patcher, which this code was based on

This is a way how you can make an "import block" item in the file menu so you can download and import blocks from the library.

Beware: this feature is untested! If you want to test it for us, great, but don't use this in your production environment yet!

The Importer
Installing the block importer is the hardest (but not very hard) thing you must do in order to import blocks. Simply follow these instructions:
Step 1: Open Scratch
Step 2: Press and hold the "shift" key while clicking the loop of the "R" in the Scratch logo
Step 3: Select "turn fill-screen off" from the popup menu which shows up
Not showing up? Make sure you're clicking inside the loop of the "R"; the "logo" referred to is the one that says "Scratch" in the top-left corner.
Step 4: Click anywhere in the "white space" which shows up at the bottom and right sides of the window
Step 5: Select "open..." from the popup menu
Step 6: Select "workspace" from the subsequent popup menu
Step 7: Copy the following text and paste it into the textbox-like window with (Windows) Alt+V or (Mac) Command+V, or by clicking the "-" button above the scrollbar (appears when the mouse is over the "workspace" window) and selecting "paste (v)"

Code:

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 18 June 2010 at 5:06:17 pm'!

!ScratchFileChooserDialog methodsFor: 'initialization'!
createBlockFileChooserFor: t1 
    scratchFrame _ nil.
    readingScratchFile _ true.
    list _ ScratchFilePicker new extensions: #(#block ).
    self removeAllMorphs.
    bottomSpacer delete.
    bottomSpacer _ nil.
    mainColumn addMorphBack: list.
    self title: 'Import Block'.
    list scratchInfoClient: nil.
    mainColumn addMorphBack: (Morph new extent: 5 @ 9;
         color: Color transparent);
     addMorphBack: newTitleBin.
    fileInfoColumn addMorphBack: buttonRow.
    self addMorphBack: shortcutColumn;
     addMorphBack: mainColumn;
     addMorphBack: fileInfoColumn! !


!ScratchFrameMorph methodsFor: 'menu/button actions'!
addBlock
    | t1 t2 t3 t4 |
    t1 _ ScratchFileChooserDialog new createBlockFileChooserFor: self;
             type: #block.
    t2 _ t1 getUserResponse.
    t2 = #cancelled ifTrue: [^ self].
    t3 _ (FileDirectory forFileName: t2)
                oldFileNamed: t2.
    t4 _ t3 contentsOfEntireFile.
    (ReadWriteStream
        on: t4
        from: 1
        to: t4 size) fileIn! !

!ScratchFrameMorph methodsFor: 'menu/button actions'!
fileMenu: t1 
    | t2 |
    t2 _ CustomMenu new.
    t2 add: 'New' action: #newScratchProject.
    t2 add: 'Open' action: #openScratchProject.
    t2 add: 'Save' action: #saveScratchProjectNoDialog.
    t2 add: 'Save As' action: #saveScratchProject.
    t2 addLine.
    t2 add: 'Import Project' action: #importScratchProject.
    t2 add: 'Export Sprite' action: #exportSprite.
    t2 addLine.
    t2 add: 'Import Block' action: #addBlock.
    t2 addLine.
    t2 add: 'Project Notes' action: #editNotes.
    Sensor shiftPressed
        ifTrue: 
            [t2 addLine.
            t2 add: 'Write Project Summary' action: #writeSummaryFile.
            t2 add: 'Write Multiple Project Summaries' action: #writeMultipleSummaries].
    t2 addLine.
    t2 add: 'Quit' action: #quitScratch.
    t2 localize.
    #(2 4 5 6 7 8 ) do: [:t3 | t2 labels at: t3 put: ((t2 labels at: t3)
                copyFrom: 1 to: (t2 labels at: t3) size - 1)
                , ScratchTranslator ellipsesSuffix].
    t2 invokeOn: self at: t1 bottomLeft + (0 @ 10)! !

Step 8: Select all the text by click-and-drag or by pressing (Windows) Alt+A or (Mac) Command+A
Step 9: File in the selection by clicking on the "-" in the top left corner; choosing "more...", then "file it in"
Step 10: Shift-click the loop of the "R" in the Scratch logo again and select "save image for end-user" then select "yes" when prompted. Scratch should close, and when restarted you will see a new option in the file menu: "Import Block..."

http://dl.dropbox.com/u/6273449/BlockLibDiv2.png

^Back to Scratch blocks

Um, I tried this and it gave me an error. This is what it said:

error wrote:

UndefinedObject(Object)>>error:
UndefinedObject(Object)>>doesNotUnderstand:
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[] in ReadWriteStream>>fileInAnnouncing:
String>>displayProgressAt:from:to:during:
ReadWriteStream>>fileInAnnouncing:

How do I fix it?

jslomba wrote:

Mozaz wrote:

Sorry if this is a bit of a common question but I had a quick look around and couldnt find anything that answered my question.

How do I used these custom blocks? and will they work online/ downloads?

Thanks in advance

for scratch blocks, here's a good toutorial: http://scratch.mit.edu/forums/viewtopic.php?id=34152

Thanks for the link!

GLaDOS2 wrote:

scimonster wrote:

GLaDOS2 wrote:

YourLocalBlockLib wrote:

http://dl.dropbox.com/u/6273449/BlockLibraryTitle.png
^Back to Scratch blocks

How to download a Scratch block
Credit to nXIII for his patcher, which this code was based on

This is a way how you can make an "import block" item in the file menu so you can download and import blocks from the library.

Beware: this feature is untested! If you want to test it for us, great, but don't use this in your production environment yet!

The Importer
Installing the block importer is the hardest (but not very hard) thing you must do in order to import blocks. Simply follow these instructions:
Step 1: Open Scratch
Step 2: Press and hold the "shift" key while clicking the loop of the "R" in the Scratch logo
Step 3: Select "turn fill-screen off" from the popup menu which shows up
Not showing up? Make sure you're clicking inside the loop of the "R"; the "logo" referred to is the one that says "Scratch" in the top-left corner.
Step 4: Click anywhere in the "white space" which shows up at the bottom and right sides of the window
Step 5: Select "open..." from the popup menu
Step 6: Select "workspace" from the subsequent popup menu
Step 7: Copy the following text and paste it into the textbox-like window with (Windows) Alt+V or (Mac) Command+V, or by clicking the "-" button above the scrollbar (appears when the mouse is over the "workspace" window) and selecting "paste (v)"

Code:

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 18 June 2010 at 5:06:17 pm'!

!ScratchFileChooserDialog methodsFor: 'initialization'!
createBlockFileChooserFor: t1 
    scratchFrame _ nil.
    readingScratchFile _ true.
    list _ ScratchFilePicker new extensions: #(#block ).
    self removeAllMorphs.
    bottomSpacer delete.
    bottomSpacer _ nil.
    mainColumn addMorphBack: list.
    self title: 'Import Block'.
    list scratchInfoClient: nil.
    mainColumn addMorphBack: (Morph new extent: 5 @ 9;
         color: Color transparent);
     addMorphBack: newTitleBin.
    fileInfoColumn addMorphBack: buttonRow.
    self addMorphBack: shortcutColumn;
     addMorphBack: mainColumn;
     addMorphBack: fileInfoColumn! !


!ScratchFrameMorph methodsFor: 'menu/button actions'!
addBlock
    | t1 t2 t3 t4 |
    t1 _ ScratchFileChooserDialog new createBlockFileChooserFor: self;
             type: #block.
    t2 _ t1 getUserResponse.
    t2 = #cancelled ifTrue: [^ self].
    t3 _ (FileDirectory forFileName: t2)
                oldFileNamed: t2.
    t4 _ t3 contentsOfEntireFile.
    (ReadWriteStream
        on: t4
        from: 1
        to: t4 size) fileIn! !

!ScratchFrameMorph methodsFor: 'menu/button actions'!
fileMenu: t1 
    | t2 |
    t2 _ CustomMenu new.
    t2 add: 'New' action: #newScratchProject.
    t2 add: 'Open' action: #openScratchProject.
    t2 add: 'Save' action: #saveScratchProjectNoDialog.
    t2 add: 'Save As' action: #saveScratchProject.
    t2 addLine.
    t2 add: 'Import Project' action: #importScratchProject.
    t2 add: 'Export Sprite' action: #exportSprite.
    t2 addLine.
    t2 add: 'Import Block' action: #addBlock.
    t2 addLine.
    t2 add: 'Project Notes' action: #editNotes.
    Sensor shiftPressed
        ifTrue: 
            [t2 addLine.
            t2 add: 'Write Project Summary' action: #writeSummaryFile.
            t2 add: 'Write Multiple Project Summaries' action: #writeMultipleSummaries].
    t2 addLine.
    t2 add: 'Quit' action: #quitScratch.
    t2 localize.
    #(2 4 5 6 7 8 ) do: [:t3 | t2 labels at: t3 put: ((t2 labels at: t3)
                copyFrom: 1 to: (t2 labels at: t3) size - 1)
                , ScratchTranslator ellipsesSuffix].
    t2 invokeOn: self at: t1 bottomLeft + (0 @ 10)! !

Step 8: Select all the text by click-and-drag or by pressing (Windows) Alt+A or (Mac) Command+A
Step 9: File in the selection by clicking on the "-" in the top left corner; choosing "more...", then "file it in"
Step 10: Shift-click the loop of the "R" in the Scratch logo again and select "save image for end-user" then select "yes" when prompted. Scratch should close, and when restarted you will see a new option in the file menu: "Import Block..."

http://dl.dropbox.com/u/6273449/BlockLibDiv2.png

^Back to Scratch blocks

Um, I tried this and it gave me an error. This is what it said:


How do I fix it?

Did you follow all the steps perfectly?

Yep. can't figure out what I'd be doing wrong. It said it was untested so that might be the problem. 

worked for me!

GLaDOS2 wrote:

jslomba wrote:

GLaDOS2 wrote:

Yep. can't figure out what I'd be doing wrong. It said it was untested so that might be the problem. 

worked for me!

You probably have a windows. I use a Macintosh Apple computer. What could I be doing wrong?

hmmm

GLaDOS2 wrote:

jslomba wrote:

GLaDOS2 wrote:

Yep. can't figure out what I'd be doing wrong. It said it was untested so that might be the problem. 

worked for me!

You probably have a windows. I use a Macintosh Apple computer. What could I be doing wrong?

Using a Mac. 

new scratch blocks i made:

blockspec:

('if online then stop' #- #ifOnlineThenStop)

code:

ifOnlineThenStop
| t1 t2 t3 |
t1_t2

blockspec:

('confirm %s' #b #confirm:)

no code needed

what it does: asks the user a yes/no question and is false if the user selects no, true if he/she selects yes



blockspec:

('alert %s' #- #inform:)

no code needed



Scratch-Blocks->WhenHatBlockMorph->all:

stepTime
^ 0.1

and

step
self evaluateCondition ifTrue: [self start]

blockspec:

('' #W #-)

(you don't give the block a name because the WhenHatBlockMorph class automatically adds the label.)

DROPDOWN VERSION OF:

Scratch blocks> commandBlockMorph> all> uncoloredArgMorphFor: add a strip:

$Q = t2 ifTrue: [^ ChoiceOrExpressionArgMorph new getOptionsSelector: #dateTime;
choice: 'date'].

Scratch objects> scriptableScratchMorph> sensingOps:

dateTime
    ^ #('date' 'short date' 'time' 'seconds' 'minutes' 'hours' 'day')

new blockspec:

('get %Q' #r #getTime: 'date')

blockspec:

(' %z as decimal' #r #decimalOf:)

code:

decimalOf: t1
'1/2' = t1 ifTrue: [^ '.5'].
'1/3' = t1 ifTrue: [^ '.333333333'].
'1/4' = t1 ifTrue: [^ '.25'].
'1/5' = t1 ifTrue: [^ '.2'].
'1/6' = t1 ifTrue: [^ '.666666666'].
'1/7' = t1 ifTrue: [^ '.1428'].
'1/8' = t1 ifTrue: [^ '.125'].
'1/9' = t1 ifTrue: [^ '.111111111'].
'1/10' = t1 ifTrue: [^ '.1'].

if you have the (1/2 of ( ) ) block already, then you don't need to make the uncoloredArgMorph.

:

blockspec:

('if %b bounce' #- #bnceIfBoolean)

code:

bnceIfBoolean: condition
     condition ifTrue: [self turnRight: 180]

dropdown:

Blockspec:

('%n %X %n' #r #workOut:with:to:)

Code:
workOut: t1 with: t2 to: t3
    t2 = '+' ifTrue: [^ t1 + t3].
    t2 = 'minus' ifTrue: [^ t1 - t3].
    t2 = '*' ifTrue: [^ t1 * t3].
    t2 = '/' ifTrue: [^t1 / t3].
    ^ 'Error!'

uncoloredArgMorph:
$X = t2 ifTrue: [^ ChoiceArgMorph new getOptionsSelector: #opNames;
         choice: '+'].

code2:
opNames
    ^ #('+' 'minus' '*' '/' )



blockspec:

   
('open scratch user %s s my stuff page ' #- #Userlink: 'jslomba')

code:

   
Userlink: user
    Cursor wait showWhile: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/users/' , user]

new BYOB block:

scripts:

jslomba wrote:

new BYOB block:http://megamod.weebly.com/uploads/7/1/5 … 828539.gif

scripts:
http://megamod.weebly.com/uploads/7/1/5 … 92.gif?523

What is the point of sharing that, as it can be made using very basic scripts - and it only useful for certain games?

go into http://scratch.mit.edu/forums/viewtopic.php?pid=700240#req_message and click
command block. type in if = broadcast. then hover over if click the arrow and click reporter, name the reporter score( since this is a button mainly meant for scoring).
then hover over = and click to the right. then click the right arrow and click number. name it a and makes its default value 10 . then hover to the right of broadcast and click to the right. then click the right arrow and click any type and make its default value world. then put this script below
-----if score = a
-broadcast c
--------------------
please test it and put it on this page