Scratch

How to add one of these blocks to Scratch:
I suggest visiting this excellent forum page. It has a full explanation from Billyedward. You can also look at this detailed explanation on the layout of blockspecs by ScratchReallyROCKS.

To install a block importer in Scratch to automatically add a (downloadable) block for you, click here! But beware, this feature is untested and does not currently work!

Choose a block type to view, or scroll down this page to see more!

Motion
Control
Looks
Sensing
Sound
Operators
Pen
Variables

home

Last edited by YourLocalBlockLib (2011-08-23 14:47:10)

Control



Shared by Sparks
blockspec:

('open camera window' #- #takePhoto)

no code needed

What it does:
Opens the webcam control window and lets you take photos.




Shared by Billybob-Mario
blockspec:

('save project' #- #saveProj)

code:

saveProj
| t1 |
t1 _ self ownerThatIsA: ScratchFrameMorph.
t1 saveScratchProject

What it does:
Opens the save project as dialog and lets you save it!




Shared by bbbeb
blockspec:

('press green flag' #- #pressGreenFlag)

code:

pressGreenFlag
     #pressGreenFlagButton

What it does:
Triggers all scripts starting with a "when green flag clicked" hat.  Note: This block is glitched, it won't work on a when flag clicked hat block, instead you can use 'self broadcast: 'Scratch-StartClicked' ' (info)




Shared by zorket
blockspec:

('go to scratch website' #- #link)

code

link
Cursor wait showWhile: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/']

What it does:
Opens the Scratch homepage!




Shared by rubiks_cube_guy238
blockspec:

('%e received?' #b #seesBroadcast:)

code

seesBroadcast: t1
    | t2 |
    t2 _ ScratchEvent allInstances.
    t2
        reverseDo:     
            [:t3 |
            t3 name = t1 ifTrue: [^ true].
            nil].
    ^ false

What it does:
Lets you test to see if a broadcast is being sent. Much sought after and requested.




Shared by lots of people
blockspec:

('clone me' #- #duplicateNoAttach)

no code needed

What it does:
This block creates a clone of the sprite that runs it. Note: this block does not work in presentation mode.


Shared by lots of people
blockspec:

('delete me' #- #undoableDeleteSprite)

no code needed

What it does:
This block permanently deletes the sprite that runs it. Note: this block does not work in presentation mode.



Shared by Zorket
Blockspec:

('set single stepping' #- #setSpeed)

Code:

setSpeed
    | t1 t2 |
    t1 _ CustomMenu new title: 'Single-step speed?'.
    t1 add: 'Turbo speed' action: 0.
    t1 add: 'Normal' action: 1.
    t1 add: 'Flash blocks (fast)' action: 30.
    t1 add: 'Flash blocks (slow)' action: 200.
    t2 _ t1 localize startUp.
    t2 ifNil: [^ self].
    ScratchProcess blockHighlightMSecs: t2

What it does:
This block lets you change the speed of your project! Very useful when you want a mix of fast computing and good graphics.



Shared by Pecola1
Blockspec:

('show cursor' #- #showCursor)

Code:

showCursor
    World activeHand showTemporaryCursor: nil

What it does:
Shows the cursor (use with hide cursor block below).



Shared by Pecola1
Blockspec:

('hide cursor' #- #hideCursor)

Code:

hideCursor
    World activeHand showTemporaryCursor: ((Form extent: 1 @ 1 depth: 32)
            fillColor: Color transparent)

What it does:
Hides the cursor (use with show cursor block above).



Shared by Pecola1
Blockspec:

('enable programmer facilities' #- #enableProgrammerFacilities)

Code:

enableProgrammerFacilities
    Preferences enableProgrammerFacilities

What it does:
Enables the programmer facilities (info).



Shared by Pecola1
Blockspec:

('disable programmer facilities' #- #disableProgrammerFacilities)

Code:

disableProgrammerFacilities
    Preferences disableProgrammerFacilities

What it does:
Disables the programmer facilities. Note: do not use until you make the enable programming facilities block. (info)


Shared by Pecola1
Blockspec:

('quit Scratch' #- #exitScratch)

Code:

exitScratch
    Smalltalk snapshot: false andQuit: true

What it does:
Closes Scratch. Either save the image before testing it, or test and add it again after you reopen it.
How to make it a cap block:
1) Go to Scratch-Blocks >> CommandBlockMorph >> accessing >> isStop
2) Add the following code:

| (selector = #whatYourMethodIsCalled)

Shared by Pecola1
Blockspec:

('reverse' #c #doBackwards)

Code (Scratch-Execution Engine»ScratchProcess»private-special forms):

doBackwards
    | t1 t2 |
    t1 _ stackFrame expression.
    t2 _ stackFrame arguments.
    self popStackFrame.
    self pushStackFrame: (ScratchStackFrame new expression: t1 firstBlockList reversed)

What it does:
Runs the blocks in the input backwards (if you had [say [hello]] [move (10) steps] it would do [move (10) steps] [say [hello]]) Note: Any C-block goes under Scratch-Execution Engine»ScratchProcess»private-special forms



Shared by Pecola1
Blockspec:

('shuffle' #c #doScramble)

Code (Scratch-Execution Engine»ScratchProcess»private-special forms):

doScramble
    | t1 t2 |
    t1 _ stackFrame expression.
    t2 _ stackFrame arguments.
    self popStackFrame.
    self pushStackFrame: (ScratchStackFrame new expression: t1 firstBlockList shuffled)

What it does:
Runs the blocks in the input in a random order.



Shared by Pecola1
Blockspec:

('run' #c #doForwards)

Code (Scratch-Execution Engine»ScratchProcess»private-special forms):

doForwards
    | t1 t2 |
    t1 _ stackFrame expression.
    t2 _ stackFrame arguments.
    self popStackFrame.
    self pushStackFrame: (ScratchStackFrame new expression: t1 firstBlockList)

What it does:
Runs the blocks in the input. Useful only in the scramble and reverse blocks.



Shared by zorket, based on the block by Pecola1
Blockspec:

('close Scratch' #- #quitScratch)

Code:

quitScratch
    | t1 |
    t1 _ self ownerThatIsA: ScratchFrameMorph.
    t1 quitScratch

What it does:
Acts like if you click the "X" in the top right corner (Windows).  See the quit Scratch block by Pecola1 for instructions on making a cap.



Shared by ProgrammingFreak, improved by Hardmath123, improved by Scimonster
Blockspec:

('Go to url %s . Http prefix included? %b' #- #gotourl:httpIncluded: 'scratch.mit.edu')

Code:

gotourl: t1 httpIncluded: t2
    | url |
    url _ t1.
    t2 ifFalse: [url _ 'http://' , t1].
    Cursor wait showWhile: [ScratchPlugin primOpenURL: url]

What it does:
This block opens a URL and adds the http:// prefix if the boolean is false (or empty).



Shared by Hardmath123
Blockspec:

('Open the %n th forum page' #- #openForum: 58790)

Code:

openForum: url
    Cursor wait showWhile: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/forums/viewtopic.php?id=' , url asString]

What it does:
Opens the Scratch forums topic with the inputted ID.
Default value is the Block Library.



Shared by Hardmath123
Blockspec:

('Post on the %nth forum topic' #- #postForum: 58790)

Code:

postForum: t1
    Cursor wait showWhile: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/forums/post.php?tid=' , t1 asString]

What it does:
Opens the post dialog for the specified forum ID.
Default value is the Block Library.



Shared by Hardmath123
Blockspec:

('pause' #- #pause)

Code:

pause
    DialogBoxMorph warn: 'Paused: Click OK to continue'

What it does:
Opens a dialog box that says "Paused: Click OK to continue."



Shared by jslomba, improved by TheSuccessor
Blockspec:

('' #W #-)

Code:

ScratchFrameMorph->processWhenConditions and
OffscreenWorldMorph->processWhenConditions

Delete this line:

true ifTrue: [^ self]

Shared by jslomba, based on the Panther block by Sparks
Blockspec:

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

Code:

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

What this block does:
Opens the my stuff page of the entered user.



Shared by SSSS
Blockspec:

('Import theme %s') #- #themepacks:)

Code:

themepacks: t1
    ScratchFrameMorph readSkinFrom: (FileDirectory default directoryNamed: t1)

What this block does:
You download the ScratchSkin, edit it, then you can use this block to import the skin during a project.



Shared by Pecola1
Blockspec:

('add %s to clipboard' #- #copy:)

Code:

copy: t1
ScratchTranslator unicodeClipboardPut: t1

What this block does:
Adds the text to your clipboard!



^ Back to Scratch Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-09-09 03:49:35)

Sensing




Shared by midnightleopard
blockspec:

('%j %s' #- #doThis:on:)

code (place under sensing ops)

doThis: t1 on: t2 
    'google' = t1 ifTrue: [ScratchPlugin primOpenURL: 'http://www.google.com/#sclient=psy&hl=en&q=' , t2 , '&aq=f&aqi=g5&aql=&oq=&gs_rfai=&pbx=1&fp=ab5cdb1806fef4aa&safe=activet1'].
    'yahoo' = t1 ifTrue: [ScratchPlugin primOpenURL: 'http://search.yahoo.com/search;_ylt=Aj.OqjGVrkBmY6mZqA_PSu.bvZx4?p=' , t2 , '&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-701'].
    'scratch.mit.edu/' = t1 ifTrue: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/' , t2].
    'search scratch for' = t1 ifTrue: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/pages/results?cx=010101365770046705949:gg_q9cry0mq&cof=FORID:11&q=' , t2 , '&safe=active&sa=search'].
    'IMDB' = t1 ifTrue: [ScratchPlugin primOpenURL: 'http://www.imdb.com/find?s=all&q=' , t2].
    'load' = t1 ifTrue: [^ 0].
    ^ 0

Code (Scratch-Blocks -> CommandBlockMorph -> private -> uncoloredArgMorphFor:
add a line:

$j = t2 ifTrue: [^ ChoiceArgMorph new getOptionsSelector: #engineNames;
         choice: 'google'].

Last bit of code (Scratch-Objects -> ScriptableScratchMorph -> sensing ops ->)

engineNames
    ^ #('google' 'yahoo' 'scratch.mit.edu/' 'search scratch for' 'IMDB' 'load' )

What it does:
Lets you search google, yahoo!, the scratch site, scratch.mit.edu and IMDB! (Opens your default web browser.)



Shared by Hardmath123.
Blockspec:

('costume center' #r #rotationCenter)

Code:
no code needed
What it does:
Reports the costume center.




Shared by LS97
blockspec:

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

Code

getTime: t1
    t1 = 'date' ifTrue: [^ Date today].
    t1 = 'short date' ifTrue: [^ Date today printFormat: #(1 2 3 $- 2 2 )].
    t1 = 'time' ifTrue: [^ Time now].
    t1 = 'seconds' ifTrue: [^ Time now seconds].
    t1 = 'minutes' ifTrue: [^ Time now minutes].
    t1 = 'hours' ifTrue: [^ Time now hours].
    t1 = 'day' ifTrue: [^ Date today weekday].
    t1 = 'help' ifTrue: [^ 'type date, short date, time, seconds, minutes, day, hours'].
    ^  self error

What it does:
Reports the date and time, including seconds, minutes, hours, day and date.




Shared by jsombla
Blockspec:

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

Code:
Scratch-Objects >> ScriptableScratchMorph >> sensing ops

getTime: t1
    t1 = 'date' ifTrue: [^ Date today].
    t1 = 'short date' ifTrue: [^ Date today printFormat: #(1 2 3 $- 2 2 )].
    t1 = 'time' ifTrue: [^ Time now].
    t1 = 'seconds' ifTrue: [^ Time now seconds].
    t1 = 'minutes' ifTrue: [^ Time now minutes].
    t1 = 'hours' ifTrue: [^ Time now hours].
    t1 = 'day' ifTrue: [^ Date today weekday].
    t1 = 'help' ifTrue: [^ 'type date, short date, time, seconds, minutes, day, hours'].
    ^  self error

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

Scratch-Blocks >> CommandBlockMorph> private >> uncoloredArgMorphFor: add a strip:

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

What this block does:
Dropdown version of the above block.



Shared by Pecola1.
Click here for the code
What it does:
Adds a lot of other sprite attributes to the original block.



Shared by Pecola1.
Click here for the code (2 blocks)
What it does:
Adds a lot of other keyboard keys to the current blocks.



Shared by Hardmath123

Blockspec:

('distance to x %n y %n' #r #dist:and:)

Code:

dist: t1 and: t2
    ^ (self xpos - t1 * (self xpos - t1) + (self ypos - t2 * (self ypos - t2))) abs sqrt

What this block does:
Reports the distance of the sprite from a given coordinate.



Shared by Pecola1

Blockspec:

( %m touching %m ?' #b #sprite:touching:)

Code:

sprite: t1 touching: t2 
    | t3 t4 t5 t6 t7 t8 t9 |
    t3 _ self coerceSpriteArg: t2.
    t3 = #mouse
        ifTrue: 
            [(t4 _ self ownerThatIsA: ScratchStageMorph) ifNil: [^ false].
            ^ t1 containsPoint: t4 adjustedCursorPoint].
    t3 = #edge ifTrue: [^ t1 isOnEdge].
    t1 = #mouse
        ifTrue: 
            [(t4 _ self ownerThatIsA: ScratchStageMorph) ifNil: [^ false].
            ^ t3 containsPoint: t4 adjustedCursorPoint].
    (t3 isKindOf: t1 class)
        ifFalse: [^ false].
    (t1 isHidden not and: [t3 isHidden not])
        ifFalse: [^ false].
    t5 _ t1 bounds intersect: t3 bounds.
    (t5 width > 0 and: [t5 height > 0])
        ifFalse: [^ false].
    t6 _ Form extent: t5 extent depth: 2.
    t7 _ t6 deepCopy.
    t9 _ self visibility.
    self visibility: 100.
    t1 drawOn: ((FormCanvas on: t6)
            copyOffset: t5 topLeft negated).
    t1 visibility: t9.
    t9 _ t3 visibility.
    t3 visibility: 100.
    t3 drawOn: ((FormCanvas on: t7)
            copyOffset: t5 topLeft negated).
    t3 visibility: t9.
    t8 _ Bitmap new: 4 withAll: 1.
    t8 at: 1 put: 0.
    t6
        copyBits: t6 boundingBox
        from: t6
        at: 0 @ 0
        colorMap: t8.
    t7
        copyBits: t7 boundingBox
        from: t7
        at: 0 @ 0
        colorMap: t8.
    t7
        displayOn: t6
        at: 0 @ 0
        rule: Form and.
    ^ (t6 tallyPixelValues at: 1)
        < (t6 width * t6 height)

What this block does:
Reports whether two sprites (or the mouse-pointer) are touching. Note: does not work if mouse and edge are entered.



Shared by Pecola1

Blockspec:

('open project with the id of %n' #- #openProjectId:)

Code:

openProjectId: t1
Cursor wait showWhile: [ScratchPlugin primOpenURL: 'http://scratch.mit.edu/api/getproject/' , t1]

What this block does:
Opens a web browser with the project of the ID that is entered.



Shared by Pecola1

Blockspec:

('password for %s is %s ?' #b #username:password:)

Code:

username: t1 password: t2
    (HTTPSocket httpGet: 'contentshttp://scratch.mit.edu/api/authenticateuser?username=' , t1 , '&password=' , t2) contents = 'false' ifTrue: [^false].
^true

What this block does:
Reports whether the password for the username that is inserted is the right password. Useful for making a project which requires you have a Scratch account.



Shared by Hardmath123
Blockspec:

('ask %s' #r #askReport: 'What is your name?')

Code:

askReport: t1
    ^ StringDialog ask: t1

What this block does:
Asks a question in a dialog box and reports the answer.



Shared by Hardmath123
Blockspec:

('warn %s' #- #warn: 'Invalid input')

Code:

warn: t1
    DialogBoxMorph warn: t1

What this block does:
Pops up a dialog with the text specified.




Shared by jsombla
Blockspec:

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

Code:

ifOnlineThenStop
    | t1 t2 t3 |
    t1_t2

What this block does:
Stops the script if online; it becomes an obsolete block.




Shared by jsombla
Blockspec:

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

Code:
No code needed
What this block does:
Asks the content. Choosing "yes" will report true, while "no" reports false.




Shared by jsombla
Blockspec:

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

Code:
No code needed
What this block does:
Alerts the user in a dialog.



Shared by TuragaTreeko, improved by Scimonster
Blockspec:

('rename me as %s' #- #rename: 'Sprite1')

Code:

rename: t1
         self objName: t1

What this block does:
Renames the sprite.



Shared by TuragaTreeko
Blockspec:

('my name' #r #name)

Code:

name
      ^objName

What this block does:
Reports the sprite's name.



Shared by Greenatic
Blockspec:

('max x' #r #MaxX)

Code:

MaxX
    ^ self xpos + (0.5 * self width)

What this block does:
Reports the right end of the rectangle the sprite is in.



Shared by Greenatic
Blockspec:

('min x' #r #MinX)

Code:

MinX
    ^ self xpos - (0.5 * self width)

What this block does:
Reports the left end of the rectangle the sprite is in.



Shared by Greenatic
Blockspec:

('max y' #r #MaxY)

Code:

MaxX
    ^ self ypos + (0.5 * self height)

What this block does:
Reports the top end of the rectangle the sprite is in.



Shared by Greenatic
Blockspec:

('min y' #r #MinY)

Code:

MinY
    ^ self ypos - (0.5 * self height)

What this block does:
Reports the bottom end of the rectangle the sprite is in.



Shared by Greenatic, improved by Baderous
Blockspec:

('font %s exists?' #b #FontExists:)

Code:

FontExists: t1
    | t2 |
    t2 _ UnicodePlugin getFontList collect: [:f | f asUTF8].
    ^ t2 includes: t1

What this block does:
Checks if you have a specified font.



Shared by Greenatic
Blockspec:

('font #%n' #r #FontNumber:)

Code:

FontNumber: t1
    | t2 t3 |
    t1 isInf ifTrue: [^ nil].
    t1 isNaN ifTrue: [^ nil].
    t1 = t1 rounded ifFalse: [^ nil].
    t1 < 1 ifTrue: [^ nil].
    t2 _ UnicodePlugin getFontList.
    t2 size < t1 ifTrue: [^ nil].
    t3 _ 1.
    t2 do:
        [:t4 |
        t3 = t1 ifTrue: [^ t4].
        t3 _ t3 + 1]

^ Back to Scratch Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-12-17 14:54:04)

Operators




Shared by Zorket.
Blockspec:

('report %s' #r #report: 'hello')

Code:

report: t1
^ t1

What it does:
Reports it's contents. Useful for putting text in areas where it normally can't go. (Such as the [go to %m] block.



Shared by Zorket, optimised by nXIII
Blockspec:

('if %b then %s else %s' #r #if:then:else:)

Code:

if: t1 then: t2 else: t3
t1 ifTrue: [^ t2].
^ t3

What it does:
Reports the first string argument if the boolean is true, the second if it's false.



Shared by Zorket
Blockspec

('if %b then %b else %b' #b #if:then:else:)

Code:

if: t1 then: t2 else: t3
t1 ifTrue: [^ t2].
^ t3

What it does
Reports the truth of the first or second boolean argument depending on the truth of the first.



Shared by Zorket
Blockspec

('true' #b #reportTrue)

Code:

reportTrue
^ true

What it does
Reports true.



Shared by Zorket
Blockspec

('false' #b #reportFalse)

Code:

reportFalse
^ false

What it does
Reports false.



Shared by Zorket
Blockspec

('%T %s' #r #do:to:)

do: t1 to: t2
t1 = 'reverse' ifTrue: [^ t2 reversed].
t1 = 'shuffle' ifTrue: [^ t2 shuffled].
t1 = 'uppercase' ifTrue: [^ t2 asUppercase].
t1 = 'lowercase' ifTrue: [^ t2 asLowercase].
t1 = 'report' ifTrue: [^ t2].

Scratch-Blocks> CommandBlockMorph> private> uncoloredArgMorphFor: add a strip:

$T = t2 ifTrue: [^ ChoiceOrExpressionArgMorph new getOptionsSelector: #mixingNames;
choice: 'reverse'].

Scratch objects> scriptableScratchMorph> otherOps:

mixingNames
    ^ #('lowercase' 'uppercase' 'reverse' 'shuffle' 'report' )

What this block does:
Does the operation on the specified string.



Shared by poemon1, based on the above block
Blockspec:

('%s %s' #r #do:to: 'shuffle' 'thing')

Code:
Same as above block.



Shared by Hardmath123.
Blockspec:

('%b' #r #booleanString:)

Code:

booleanString: t1
    ^ t1

What it does:
Allows you to drop booleans into reporter spaces!



Shared by Hardmath123.
Blockspec:

('%n ^ %n' #r #x:expy: 2 2)

Code:

x: t1 expy: t2
    ^ t1 raisedTo: t2

What it does:
Reports n1 to the power of n2.



Shared by Pecola1.
Blockspec:

('ascii for %s' #r #asciiCodeOf:)

Code:

asciiCodeOf: aString
    | str |
    str _ aString asMacRoman.
    str size = 1 ifFalse: [^ 0].
    ^ str first asciiValue

What it does:
Reports the ASCII code for an entered character.



Shared by Pecola1.
Blockspec:

('ascii %n as character' #r #asciiLetter:)

Code:

asciiLetter: anInteger
    | code |
    code _ anInteger asNumberNoError.
    ^ String with: (Character value: code)

What it does:
Reports character the entered ASCII code stands for.



Shared by Hardmath123, improved by Baderous
Blockspec:

('%G' #r #getConstant:)

Code:

getConstant: t1
    t1 = 'pi' ifTrue: [^ float pi].
    t1 = 'phi' ifTrue: [^ float phi].
    t1 = 'e' ifTrue: [^ float e].
    t1 = 'sqrt 2' ifTrue: [^ 2 sqrt].
    ^ self error

Scratch-Objects»ScriptableScratchMorph»sensing

constants
    ^ #('pi' 'phi' 'e' 'sqrt 2' )

Scratch-Blocks»CommandBlockMorph»-- all --»uncoloredArgMorphFor: add a line:

$G = t2 ifTrue: [^ ChoiceOrExpressionArgMorph new getOptionsSelector: #constants;
         choice: 'pi'].

What it does:
Reports the selected constant.



Shared by Hardmath123.
Blockspec:

('%b=%b' #b #a:equalsB:)

Code:

a: t1 equalsB: t2
t1 = t2 ifTrue [^true].
^false.

What it does:
Reports whether or not the two booleans are equal.



Shared by ESN.
Click here for the block code.
What it does:
Reports a fraction of a number from a dropdown.



Shared by Zorket.
Blockspec

('letter %n of the alphabet' #r #letter:)

Code:

letter: t1
t1 = 1 ifTrue: [^ 'a'].
t1 = 2 ifTrue: [^ 'b'].
t1 = 3 ifTrue: [^ 'c'].
t1 = 4 ifTrue: [^ 'd'].
t1 = 5 ifTrue: [^ 'e'].
t1 = 6 ifTrue: [^ 'f'].
t1 = 7 ifTrue: [^ 'g'].
t1 = 8 ifTrue: [^ 'h'].
t1 = 9 ifTrue: [^ 'i'].
t1 = 10 ifTrue: [^ 'j'].
t1 = 11 ifTrue: [^ 'k'].
t1 = 12 ifTrue: [^ 'l'].
t1 = 13 ifTrue: [^ 'm'].
t1 = 14 ifTrue: [^ 'n'].
t1 = 15 ifTrue: [^ 'o'].
t1 = 16 ifTrue: [^ 'p'].
t1 = 17 ifTrue: [^ 'q'].
t1 = 18 ifTrue: [^ 'r'].
t1 = 19 ifTrue: [^ 's'].
t1 = 20 ifTrue: [^ 't'].
t1 = 21 ifTrue: [^ 'u'].
t1 = 22 ifTrue: [^ 'v'].
t1 = 23 ifTrue: [^ 'w'].
t1 = 24 ifTrue: [^ 'x'].
t1 = 25 ifTrue: [^ 'y'].
t1 = 26 ifTrue: [^ 'z'].
^ self error

What it does:
Gives you the letter from the alphabet corresponding to the number you enter.



Shared by Pecola1.
Blockspec:

('report %b or %b randomly' #b #booleanRandom:Or:)

Code:

booleanRandom: t1 Or: t2
    | t3 |
    t3 _ self randomFrom: 0 to: 1.
    t3 = 1 ifTrue: [^ t1].
    ^ t2

What it does:
Reports either of the booleans randomly.



Shared by Zorket.
Blockspec:

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

Code:

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

What it does:
Designed to replaces the +, -, * and / reporter blocks.



Shared by Pecola1.
Blockspec:

('%s as boolean' #b #stringAsBoolean:)

Code:

stringAsBoolean: t1
    | t2 |
    t2 _ t1 asString.
    (t2 = '0'
        or: [t2 = '' or: [t2 = 'false']])
        ifTrue: [^ false].
    ^ true

What it does:
Reports false if the string is blank, 0, or "false," otherwise reports true.




Shared by Hardmath123.
Blockspec:

('greater of %n and %n' #r #greater:and:)

Code:

greater: t1 and: t2
    t1 > t2 ifTrue: [^ t1].
    ^ t2

What it does:
Reports the greater of the two values.




Shared by Hardmath123.
Blockspec:

('lesser of %n and %n' #r #greater:and:)

Code:

lesser: t1 and: t2
    t1 < t2 ifTrue: [^ t1].
    ^ t2

What it does:
Reports the lesser of the two values.



Shared by Hardmath123
Blockspec:

('%n root of %n' #r #root:of: 2 64)

Code:

root: t1 of: t2
    t2 > 0 ifTrue: [^ t2 raisedTo: 1 / t1].
    ^ t2 * -1 raisedTo: 1 / t1

What it does:
Reports the root of a number; i.e. the inserts 2 and 64 would be 8, 8 is the square root of 64.



Shared by hello12345678910
Blockspec:

('-%n' #r #negation:)

Code:

negation: t1
    ^ t1 * -1

What it does:
Reports the negative of a number.



Shared by Hardmath123
Blockspec:

('%n is divisible by %n' #b #test:div: 11 5)

Code:

test: t1 div: t2
    ^ t1 / t2 = (t1 / t2) rounded

What it does:
Does a divisibility test.





Shared by Hardmath123
Blockspec:

('fractional part of %n' #r #fractional: 3.14)

Code:

fractional: t1
    ^ t1 - (t1 - 0.5) rounded

What it does:
Reports the digits after the decimal point.







Shared by Hardmath123

These blocks all rely on one-another's code so you need to install them all at once.

Blockspecs:

('Get the first %n letters of %s' #r #getNum:string: 3 #'scratch')

('Get the last %n letters of %s' #r #getLastNum:string: 3 #'scratch')

('Get letters %n to %n of %s' #r #getLetter:to:of: 1 4 #'scratch')

('%s %n times' #r #string:times: 'scratch ' '2')

Codes:

getNum: t1 string: t2
    | t3 t4 |
    t1 = 1 ifTrue: [^ self letter: 1 of: t2].
    t3 _ self getNum: t1 - 1 string: t2.
    t4 _ self letter: t1 of: t2.
    ^ t3, t4

getLastNum: t1 string: t2
    ^ (self getNum: t1 string: t2 reversed) reversed

getLetter: t1 to: t2 of: t3
    | t4 t5 |
    t4 _ self getNum: t3 size + 1 - t2 string: t3.
    t5 _ self getLastNum: t4 size + 1 - t1 string: t4.
    ^ t5

string: t1 times: t2
    t2 = 1 ifTrue: [^ t1].
    ^ (self string: t1 times: t2 - 1)
        , t1

Shared by jslomba and improved by Scimonster

This block requires the ([fraction] of ( ) ) block above by ESN.

Blockspec:

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

Code:

decimalOf: t1
'1/2' = t1 ifTrue: [^ 1/2].
'1/3' = t1 ifTrue: [^ 1/3].
'1/4' = t1 ifTrue: [^ 1/4].
'1/5' = t1 ifTrue: [^ 1/5].
'1/6' = t1 ifTrue: [^ 1/6].
'1/7' = t1 ifTrue: [^ 1/7].
'1/8' = t1 ifTrue: [^ 1/8].
'1/9' = t1 ifTrue: [^ 1/9].
'1/10' = t1 ifTrue: [^ 1/10]

Shared by Scimonster
Blockspec:

('%s is %s' #b #case:sensitive:)

Code:

case: t1 sensitive: t2
    t1 = t2 ifTrue: [^ true].
    ^ false

What this block does:
Is a case-sensitive <[] = []> block.




Shared by Scimonster
Blockspec:

('%s is lowercase' #b #isLowercase:)

Code:

isLowercase: t1
    t1 = '' ifTrue: [^ false].
    t1 = t1 asLowercase ifTrue: [^ true].
    ^ false

What this block does:
Reports whether or not the inputted text is lowercase.




Shared by Scimonster
Blockspec:

('%s is uppercase' #b #isUppercase:)

Code:

isUppercase: t1
    t1 = '' ifTrue: [^ false].
    t1 = t1 asUppercase ifTrue: [^ true].
    ^ false

What this block does:
Reports whether or not the inputted text is uppercase.




Shared by Scimonster
Blockspec:

('%s is uppercase' #b #isMixed:)

Code:

isMixed: t1
    t1 = t1 asLowercase ifTrue: [^ false].
    t1 = t1 asUppercase ifTrue: [^ false].
    ^ true

What this block does:
Reports whether or not the inputted text is mixed uppercase and lowercase.



Shared by LS97
Blockspec:

('%s contains %s' #b #if:contains:)

Code:

if: t1 contains: t2
    (t1 findString: t2)
        > 0 ifTrue: [^ true].
    ^ false

What this block does:
Reports whether a given string contains another.



Shared by Hardmath123
Blockspec:

('Position of first instance of %s in %s' #r #index:of: 'i' 'Mississippi')

Code:

index: t2 of: t1
^t1 findString: t2

What this block does:
Finds the first instance of a string in another.



Shared by Hardmath123
Blockspec:

('%s is a palindrome?' #b #palindrome:)

Code:

palindrome: i1
"Made with Scramble by Hardmath123"
| t1 |

t1_i1.
t1_ t1 asString reversed.
t1 = i1 ifTrue: [^ true].
^ false

What this block does:
Reports whether or not the block is a palindrome.



Shared by jsombla, improved by Scimonster
Blockspec:

('is %s nil?' #b #checkNil:)

Code:

checkNil: str
^ str isNil

What this block does:
Checks if the content is nil.



Shared by Greenatic
Blockspec:

('random letter' #r #randomLetter)

Code:

randomLetter
    | t1 |
    t1 _ self randomFrom: 1 to: 26.
    t1 = 1 ifTrue: [^ 'a'].
    t1 = 2 ifTrue: [^ 'b'].
    t1 = 3 ifTrue: [^ 'c'].
    t1 = 4 ifTrue: [^ 'd'].
    t1 = 5 ifTrue: [^ 'e'].
    t1 = 6 ifTrue: [^ 'f'].
    t1 = 7 ifTrue: [^ 'g'].
    t1 = 8 ifTrue: [^ 'h'].
    t1 = 9 ifTrue: [^ 'i'].
    t1 = 10 ifTrue: [^ 'j'].
    t1 = 11 ifTrue: [^ 'k'].
    t1 = 12 ifTrue: [^ 'l'].
    t1 = 13 ifTrue: [^ 'm'].
    t1 = 14 ifTrue: [^ 'n'].
    t1 = 15 ifTrue: [^ 'o'].
    t1 = 16 ifTrue: [^ 'p'].
    t1 = 17 ifTrue: [^ 'q'].
    t1 = 18 ifTrue: [^ 'r'].
    t1 = 19 ifTrue: [^ 's'].
    t1 = 20 ifTrue: [^ 't'].
    t1 = 21 ifTrue: [^ 'u'].
    t1 = 22 ifTrue: [^ 'v'].
    t1 = 23 ifTrue: [^ 'w'].
    t1 = 24 ifTrue: [^ 'x'].
    t1 = 25 ifTrue: [^ 'y'].
    t1 = 26 ifTrue: [^ 'z']

Shared by Greenatic
Blockspec:

('factorial of %n' #r #Factorial:)

Code:

Factorial: t1
    | answer t1store |
    t1 isInf ifTrue:[^0].
    t1 isNaN ifTrue:[^0].
    answer _ 1.
    t1store _ t1.
    t1 = 0 ifTrue: [^ 1].
    t1 < 0 ifTrue: [^ 0].
    t1 isInf ifTrue: [^ 0].
    t1 isNaN ifTrue: [^ 0].
    [t1store > 1]
        whileTrue:
            [answer _ answer * t1store.
            t1store _ t1store - 1].
    ^ answer

What this block does:
Reports the factorial of a number.



Shared by Greenatic, improved by Scimonster
Blockspec:

('%n is an integer?' #b #isInteger:)

Code:

isInteger: t1
    ^ t1 = t1 rounded

What this block does:
Reports whether the number is an integer.



Shared by Greenatic
Blockspec:

('%n is a Fibonacci number?' #b #IsFibonacci:)

Code:

IsFibonacci: t1
    | fib1 fib2 oldfib2 fib3 oldfib3 |
                t1 isInf ifTrue:[^false].
                t1 isNaN ifTrue:[^false].
                t1 < 0 ifTrue: [^ false].
    t1 = 0 ifTrue: [^ true].
    t1 = 1 ifTrue: [^ true].
    fib1 _ 0.
    fib2 _ 1.
    oldfib2 _ fib2.
    fib3 _ fib1 + fib2.
    oldfib3 _ fib3.
    [t1 > fib3]
        whileTrue:
            [fib3 _ fib1 + fib2.
            fib2 _ oldfib3.
            fib1 _ oldfib2.
            oldfib3 _ fib3.
            oldfib2 _ fib2].
    t1 = fib3 ifTrue: [^ true].
    t1 = fib3 ifFalse: [^ false]

What this block does:
Reports if the block is a Fibonacci number.



Shared by Greenatic
Blockspec:

('%n is prime?' #b #IsPrime:)

Code:

IsPrime: t1
    | divisor factor |
    t1 isInf ifTrue: [^ false].
    t1 isNaN ifTrue: [^ false].
    t1 < 1 ifTrue: [^ false].
    t1 = 1 ifTrue: [^ false].
    t1 = t1 rounded ifFalse:[^false].
    divisor _ 2.
    [divisor > (0.5 * t1)]
        whileFalse:
            [factor _ t1 / divisor.
            factor = factor rounded ifTrue: [^false].
            divisor _ divisor + 1].
    ^ true

What this block does:
Reports if the number is prime.



Shared by Lots of People
Blockspec:

('error' #r #error)

Code:
No code needed
What this block does:
Reports an error.



Shared by Greenatic
Click the image for the codes. (13 blocks)
What these blocks do:
Let's you do arithmetic in any base from -36 to 36 (except for base -1 and base 0) and change between any of those bases.



^ Back to Scratch Blocks
^ Back to Contents
█ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-09-09 04:54:37)

Variables




Shared by Hardmath123
Blockspec:

('make new variable' #- #addGlobalVariable)

Code:
no code needed
What it does:
Creates a new variable!



Shared by Pecola1
Blockspec:

('move %v to x: %n y: %n' #- #positionVar:atX:y: '' 0 0)

Code:

positionVar: t1 atX: t2 y: t3 
    | t4 t5 t6 t7 t8 t9 |
    (self varNames includes: t1)
        ifFalse: [^ self].
    t4 _ self ownerThatIsA: ScratchFrameMorph.
    t4
        ifNil: 
            [(t5 _ self ownerThatIsA: OffscreenWorldMorph) ifNil: [^ self].
            t4 _ t5 frame].
    t6 _ VariableBlockMorph new commandSpec: t1;
             receiver: self blockReceiver.
    (t5 _ t4 watcherForBlock: t6) ifNil: [^ self].
    t7 _ t2.
    t7 isNaN ifTrue: [t7 _ 0].
    t7 > 240 ifTrue: [t7 _ 240].
    t7 < (-240 - t5 extent x) ifTrue: [t7 _ -240 - t5 extent x].
    t8 _ t3.
    t8 isNaN ifTrue: [t8 _ 0].
    t8 < -180 ifTrue: [t8 _ -180].
    t8 > (180 + t5 extent y) ifTrue: [t8 _ 180 + t5 extent y].
    t9 _ t7 @ t8 negated.
    t5 position: ScratchOrigin + t9

Code 2:

moveVar: t1 toX: t2 y: t3
    | t4 |
    self
        positionVar: t1
        atX: t2
        y: t3.
    t4 _ self ownerThatIsA: ScratchStageMorph.
    t4 ~= self
        ifTrue: [t4
                positionVar: t1
                atX: t2
                y: t3]

What it does:
Changes the position of a variable watcher on the Stage.



Shared by Hardmath123
Blockspec:

('NewList' #- #addGlobalList)

Code:
No code needed.
What it does:
Opens the new list dialog.



Shared by Hardmath123
Blockspec:

('Add local list named %s' #- #createListNamed:)

Code:
No code needed.
What it does:
Creates a local list (for this sprite only) named the specified name.



Shared by Hardmath123
Blockspec:

('Add global list named %s' #- #GLN: #MyList)

Code:

GLN: t2
    | t1 |
    (t1 _ self ownerThatIsA: ScratchFrameMorph) ifNil: [^ self beep].
    t2 size = 0 ifTrue: [^ self].
    t1 workPane createListNamed: t2.
    t1 viewerPane categoryChanged: 'variables'

What it does:
Creates a global list (for all sprites) named the specified name.



Shared by Hardmath123
Blockspec:

('set the list blocks color to %c' #- #setListBlockColorSelf:)

Code: (place under sensing ops)

setListBlockColorSelf: t1
    ListBlockColor _ t1

What it does:
Changes the color for the list blocks.



Shared by Greenatic, improved by LS97 and Baderous
Blockspec:

('import fonts to list %L' #- #FontstoList: 'list')

Code:

FontstoList: t1
    | t2 |
    t2 _ UnicodePlugin getFontList.
    t2 do: [:t3 | self append: t3 toList: t1]

Scratch-Objects > Scriptable Scratch Morph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#FontstoList: = t4
        ifTrue: [t2 size >= 1 ifTrue: [t2 at: 1 put: self defaultListName]].

What it does:
Adds all the fonts on your computer to a list.



Shared by Greenatic
Blockspec:

('%Y of %L' #r #Math:List: 'mean' 'list')

Code:

Math: t1 List: t2
| max min line sum t3 t4 a |
t1 = 'maximum' ifTrue:[
(self lineCountOfList: t2) asNumberNoError = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    max _ (self getLine: 1 ofList: t2) asNumberNoError.
    line _ 2.
    (self lineCountOfList: t2) asNumberNoError - 1
        timesRepeat: 
            [(self getLine: line ofList: t2) asNumberNoError > max ifTrue: [max _ (self getLine: line ofList: t2) asNumberNoError].
            line _ line + 1].
    ^ max].
t1 = 'minimum' ifTrue:[
(self lineCountOfList: t2) asNumberNoError = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    min _ (self getLine: 1 ofList: t2) asNumberNoError.
    line _ 2.
    (self lineCountOfList: t2) asNumberNoError - 1
        timesRepeat: 
            [(self getLine: line ofList: t2) asNumberNoError < min ifTrue: [min _ (self getLine: line ofList: t2) asNumberNoError].
            line _ line + 1].
    ^ min].
t1 = 'mean' ifTrue:[
 (self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ self getLine: 1 ofList: t2].
   (self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    t3 _ 2.
    sum _ (self getLine: 1 ofList: t2) asNumberNoError.
    (self lineCountOfList: t2)
        - 1
        timesRepeat: 
            [sum _ sum + (self getLine: t3 ofList: t2) asNumberNoError.
            t3 _ t3 + 1].
    ^ sum
        / (self lineCountOfList: t2)].
t1 = 'range' ifTrue:[
    (self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
        (self lineCountOfList: t2)
        = 1 ifTrue: [^ 0].
    (self lineCountOfList: t2) asNumberNoError = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    max _ (self getLine: 1 ofList: t2) asNumberNoError.
    line _ 2.
    (self lineCountOfList: t2) asNumberNoError - 1
        timesRepeat: 
            [(self getLine: line ofList: t2) asNumberNoError > max ifTrue: [max _ (self getLine: line ofList: t2) asNumberNoError].
            line _ line + 1].
    (self lineCountOfList: t2) asNumberNoError = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    min _ (self getLine: 1 ofList: t2) asNumberNoError.
    line _ 2.
    (self lineCountOfList: t2) asNumberNoError - 1
        timesRepeat: 
            [(self getLine: line ofList: t2) asNumberNoError < min ifTrue: [min _ (self getLine: line ofList: t2) asNumberNoError].
            line _ line + 1].
    ^ max - min].
t1 = 'median' ifTrue:[
(self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    t3 _ #() asOrderedCollection.
    t4 _ 1.
    (self lineCountOfList: t2)
        timesRepeat: 
            [t3 add: (self getLine: t4 ofList: t2) asNumberNoError.
            t4 _ t4 + 1].
    t3 _ t3 asArray sort.
    t3 _ t3 asOrderedCollection.
    [t3 size > 2]
        whileTrue: 
            [t3 removeAt: 1.
            t3 removeAt: t3 size].
    t3 size = 1 ifTrue: [^ t3 at: 1].
    ^ (t3 at: 1)
        + (t3 at: 2) / 2].
t1 = 'sum' ifTrue:[
(self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    t3 _ 2.
    a _ (self getLine: 1 ofList: t2) asNumberNoError.
    (self lineCountOfList: t2)
        - 1
        timesRepeat: 
            [a _ a + (self getLine: t3 ofList: t2) asNumberNoError.
            t3 _ t3 + 1].
    ^ a].
t1 = 'difference' ifTrue:[
(self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    t3 _ 2.
    a _ (self getLine: 1 ofList: t2) asNumberNoError.
    (self lineCountOfList: t2)
        - 1
        timesRepeat: 
            [a _ a - (self getLine: t3 ofList: t2) asNumberNoError.
            t3 _ t3 + 1].
    ^ a].
t1 = 'product' ifTrue:[
(self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    t3 _ 2.
    a _ (self getLine: 1 ofList: t2) asNumberNoError.
    (self lineCountOfList: t2)
        - 1
        timesRepeat: 
            [a _ a * (self getLine: t3 ofList: t2) asNumberNoError.
            t3 _ t3 + 1].
    ^ a].
t1 = 'quotient' ifTrue:[
(self lineCountOfList: t2)
        = 0 ifTrue: [^ 0].
    (self lineCountOfList: t2)
        = 1 ifTrue: [^ (self getLine: 1 ofList: t2) asNumberNoError].
    t3 _ 2.
    a _ (self getLine: 1 ofList: t2) asNumberNoError.
    (self lineCountOfList: t2)
        - 1
        timesRepeat: 
            [a _ a / (self getLine: t3 ofList: t2) asNumberNoError.
            t3 _ t3 + 1].
    ^ a].

ScriptableScratchMorph > list ops

listMath
    ^ #('mean' 'median' #- 'maximum' 'minimum' 'range' #- 'sum' 'difference' 'product' 'quotient' )

Scratch-Blocks> CommandBlockMorph> private> uncoloredArgMorphFor:  add:

$Y = t2 ifTrue: [^ ChoiceOrExpressionArgMorph new getOptionsSelector: #listMath;
choice: 'mean'].

Scratch-Objects > Scriptable Scratch Morph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#Math:List: = t4
        ifTrue: [t2 size >= 2 ifTrue: [t2 at: 1 put: (t2 at: 1) localized.
t2 at: 2 put: self defaultListName]].

What it does:
Performs operations on a list and reports the result.



Shared by Greenatic
Blockspec:

('add items %n to %n of %L to %L' #- #First:Last:From:To: '1' '3' 'list' 'list')

Code:

First: t1 Last: t2 From: t3 To: t4 
    | t5 t6 |
    t1 isInf ifTrue: [^ self].
    t1 isNaN ifTrue: [^ self].
    t1 isNil ifTrue: [^ self].
    t2 isInf ifTrue: [^ self].
    t2 isNaN ifTrue: [^ self].
    t2 isNil ifTrue: [^ self].
    t1 = t1 rounded ifFalse: [^ self].
    t2 = t2 rounded ifFalse: [^ self].
    t1 < 1 ifTrue: [^ self].
    t2 < 1 ifTrue: [^ self].
    t1 > (self lineCountOfList: t3) ifTrue: [^ self].
    t2 > (self lineCountOfList: t3) ifTrue: [^ self].
    t5 _ t1.
    (t2 - t1) abs + 1
        timesRepeat: 
            [self append: (self getLine: t5 ofList: t3)
                toList: t4.
            t6 _ false.
            t2 > t1
                ifTrue: 
                    [t5 _ t5 + 1.
                    t6 _ true].
            t6 = false ifTrue: [t5 _ t5 - 1]]

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#First:Last:From:To: = t4
        ifTrue: [t2 size >= 4
                ifTrue:
                    [t2 at: 1 put: (t2 at: 1) localized.
                    t2 at: 2 put: (t2 at: 2) localized.
                    t2 at: 3 put: self defaultListName.
                    t2 at: 4 put: self defaultListName]].

What it does:
Adds some items from one list to another.



Shared by Greenatic
Blockspec:

('sort items of %L by numerical value' #- #NumberSort: 'list')

Code:

NumberSort: t1 
    | t2 t3 t4 t5 t6 |
    t2 _ #() asOrderedCollection.
    t3 _ #() asOrderedCollection.
    t4 _ #() asOrderedCollection.
    t6 _ #() asOrderedCollection.
    t5 _ 1.
    (self lineCountOfList: t1)
        timesRepeat: 
            [t2 add: (self getLine: t5 ofList: t1).
            t5 _ t5 + 1].
    t2 do: 
        [:t7 | 
        t3 add: t7 asNumberNoError.
        t7 asNumberNoError = 0 ifTrue: [t4 add: t7]].
    t3 _ t3 asArray sort.
    t3 _ t3 asOrderedCollection.
    t5 _ 1.
    t3 do: 
        [:t8 | 
        t8 = 0 ifFalse: [t6 add: t8].
        t8 = 0
            ifTrue: 
                [t6 add: (t4 at: t5).
                t5 _ t5 + 1]].
    self deleteLine: 'all' ofList: t1.
    t6 do: [:t9 | self append: t9 toList: t1]

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#NumberSort: = t4
        ifTrue: [t2 size >= 1 ifTrue: [t2 at: 1 put: self defaultListName]].

What it does:
Interprets the items of a list as numbers and sorts them.  (A string counts as 0).



Shared by Greenatic
Blockspec:

('sort items of %L by string value' #- #StringSort: 'list')

Code:

SringSort: t1 
    | t2 t3 |
    (self lineCountOfList: t1)
        = 0 ifTrue: [^ self].
    (self lineCountOfList: t1)
        = 1 ifTrue: [^ self].
    t2 _ #() asOrderedCollection.
    t3 _ 1.
    (self lineCountOfList: t1)
        timesRepeat: 
            [t2 add: (self getLine: t3 ofList: t1).
            t3 _ t3 + 1].
    t2 _ t2 asArray sort.
    self deleteLine: 'all' ofList: t1.
    t2 do: [:t4 | self append: t4 toList: t1]

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#StringSort: = t4
        ifTrue: [t2 size >= 1 ifTrue: [t2 at: 1 put: self defaultListName]].

What it does:
Interprets the items of a list as strings and sorts them.



Shared by Greenatic
Blockspec:

('first index of %s in %L' #r #IndexOf:List: '' 'list')

Code:

IndexOf: t1 List: t2 
    | t3 |
    t3 _ 1.
    (self lineCountOfList: t2)
        timesRepeat: 
            [(self getLine: t3 ofList: t2)
                = t1 ifTrue: [^ t3].
            t3 _ t3 + 1].
    ^ 0

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#IndexOf:List: = t4
        ifTrue: [t2 size >= 2
                ifTrue:
                    [t2 at: 1 put: (t2 at: 1) localized.
                    t2 at: 2 put: self defaultListName]].

What it does:
Reports the first index of the argument in the list, and reports 0 if the item is not in the list.



Shared by Greenatic
Blockspec:

('times %s appears in %L' #r #Times:List: '' 'list')

Code:

Times: t1 List: t2 
    | t3 t4 |
    t3 _ 1.
    t4 _ 0.
    (self lineCountOfList: t2)
        timesRepeat: 
            [(self getLine: t3 ofList: t2)
                = t1 ifTrue: [t4 _ t4 + 1].
            t3 _ t3 + 1].
    ^ t4

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#Times:List: = t4
        ifTrue: [t2 size >= 2
                ifTrue:
                    [t2 at: 1 put: (t2 at: 1) localized.
                    t2 at: 2 put: self defaultListName]].

What it does:
Reports the number of times the argument is in the list.



Shared by Greenatic
Blockspec:

('mode(s) of %L, spacer %s' #r #ModeOf:Spacer: 'list' ',')

Code:

ModeOf: t1 Spacer: t2 
    | t3 t4 t5 t6 t7 |
    (self lineCountOfList: t1)
        = 0 ifTrue: [^ nil].
    (self lineCountOfList: t1)
        = 1 ifTrue: [^ nil].
    t3 _ #() asOrderedCollection.
    t4 _ #() asOrderedCollection.
    t5 _ 0.
    (self lineCountOfList: t1)
        timesRepeat: 
            [t6 _ 1.
            t7 _ false.
            t5 _ t5 + 1.
            (t3 includes: (self getLine: t5 ofList: t1) asNumberNoError)
                ifFalse: 
                    [t3 add: (self getLine: t5 ofList: t1) asNumberNoError.
                    t4 add: 1.
                    t7 _ true].
            t7 = false
                ifTrue: 
                    [[(t3 at: t6)
                        = (self getLine: t5 ofList: t1) asNumberNoError]
                        whileFalse: [t6 _ t6 + 1].
                    t4 _ t4 asArray.
                    t4 at: t6 put: (t4 at: t6)
                            + 1.
                    t4 _ t4 asOrderedCollection]].
    t5 _ 1.
    t6 _ 1.
    t4 size
        timesRepeat: 
            [(t4 at: t5)
                > t6 ifTrue: [t6 _ t4 at: t5].
            t5 _ t5 + 1].
    t6 = 1 ifTrue: [^ nil].
    t5 _ 1.
    t4 size
        timesRepeat: 
            [t7 _ false.
            (t4 at: t5)
                < t6
                ifTrue: 
                    [t3 removeAt: t5.
                    t4 removeAt: t5.
                    t7 _ true].
            t7 = false ifTrue: [t5 _ t5 + 1]].
    t3 size = 1 ifTrue: [^ t3 at: 1].
    t5 _ 2.
    t3 _ t3 asArray sort.
    t3 _ t3 asOrderedCollection.
    t6 _ (t3 at: 1) asString.
    t3 size - 1
        timesRepeat: 
            [t6 _ t6 , t2.
            t6 _ t6 , (t3 at: t5) asString.
            t5 _ t5 + 1].
    ^ t6

Scratch-Objects > ScriptableScratchMorph > blocks > defaultArgsFor:
Add right before the last line ( ^ t2 ):

#ModeOf:Spacer: = t4
        ifTrue: [t2 size >= 2
                ifTrue:
                    [t2 at: 1 put: self defaultListName.
                    t2 at: 2 put: (t2 at: 2) localized]].

What it does:
Reports the mode of the list.  If there is more than one, it reports them as a single string with the modes separated by the spacer value.



^ Back to Scratch Blocks
^ Back to Contents
█ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-12-17 14:53:13)

Motion


  Shared by Jonathanpb

    Shared by PlayWithFire

  Shared by SSBBM

  Shared by Guinea_Pig_Girl

  Shared by SSBBM, Credit to Kileymeister

  Shared by Guinea_Pig_Girl.

    Shared by owetre18.

    Shared by meowmeow55.

  Shared by Floppy_gunk

  Shared by Floppy_gunk

  Shared by GP1

  Shared by Floppy_gunk

  Shared by rdococ

  Shared by SSBBM

  Shared by Flashgocrazy

_____________________________

^ Back to BYOB Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-08-23 15:35:40)

Looks


  Shared by Jonathanpb

  Shared by Jonathanpb

  Shared by Jonathanpb

  Shared by PlayWithFire

  Shared by PlayWithFire

  Shared by SSBBM

  Shared by SSBBM

  Shared by SSBBM

  Shared by SSBBM

  Shared by owetre18

Shared by Matty3414

  Shared by Flashgocrazy

_____________________________

^ Back to BYOB Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-08-30 12:16:54)

Sound


  Shared by TheSuccessor
_____________________________

^ Back to BYOB Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-07-11 11:53:04)

Pen


  Shared by PlayWithFire

  Shared by Jonathanpb

  Shared by Chrischb

  Shared by Chrischb

  Shared by SSBBM

  Shared by SSBBM

  Shared by SSBBM

  Shared by subzerostig

  Shared by subzerostig

  Shared by MathWizz

  Shared by ProgrammingFreak

  Shared by Scimonster, based on the block by ProgrammingFreak

  Shared by SSBBM

  Shared by Flashgocrazy

  Shared by Flashgocrazy

_____________________________

^ Back to BYOB Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-08-23 15:37:29)

Other


  Shared by ScratchReallyROCKS

  Shared by Pecola1

  Shared by SSBBM

  Shared by Guinea_Pig_Girl

  Shared by SSBBM

  Shared by Lu9, Improved by SSBBM

_____________________________

^ Back to BYOB Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-09-11 11:02:23)

Motion


No blocks. Be the first to post a Panther motion block! Just comment below with the code!


^ Back to Panther Blocks
^ Back to Contents
█ █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-07-11 12:05:47)

Looks


Shared by sonicjosh, converted by Sparks
Block number: [11]    [view source] [What is this?]
________________________________________________________________________________
Shared by MathWizz
Block number: [47]    [view source] [What is this?]
________________________________________________________________________________
Shared by Sparks
Block number: [51]    [view source] [What is this?]
Notes:
Works with png, gif and bmp files.


^ Back to Panther Blocks
^ Back to Contents
  █ █ █ █ █ █ █ █ █ █

Last edited by YourLocalBlockLib (2011-07-11 12:06:11)