Scratch

dreamod wrote:

danwoodski wrote:

Randomno wrote:

Hi. I'm attempting to make a Panther block named 'number of letter $String$ in the alphabet'. The code is:

Code:

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

Any idea how to fix it?

Try fixing a and l-the quotes are messed up...

You have several mistakes. You could use ascii. You have syntax errors. And you shouldn't use 'self error' in blocks.
Here's a better code

Code:

number of letter $String$ in the alphabet

Code:

| t2 |
t2 _ t1 first.
t2 isLetter ifFalse: [^ 0].
t2 isLowercase ifTrue: [^ t2 asciiValue - 96].
t2 isUppercase ifTrue: [^ t2 asciiValue - 64].

I'll give it a go, but I'm using Panther to make this and I don't remember any blocks needing | t1 t2 | stuff. By the way, this is mainly nicked off a block which does the opposite.

The ascii one worked.    This is why I shouldn't try these.

Greenatic wrote:

danwoodski wrote:

Randomno wrote:

Hi. I'm attempting to make a Panther block named 'number of letter $String$ in the alphabet'. The code is:

Code:

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

Any idea how to fix it?

Try fixing a and l-the quotes are messed up...

Your post is number 3000 on this thread.   

Randomno wrote:

The ascii one worked.    This is why I shouldn't try these.

Your original code (see above quote) was fine, except for two things:

1.  The return for l is messed up: it returns '12l' instead of '12'.
2.  The letters should be in quotes ('a' instead of a).

Also, putting the numbers in quotes isn't necessary.

I fixed the errors but it returns "nil". Any ideas?

Greenatic wrote:

Randomno wrote:

Greenatic wrote:

Your post is number 3000 on this thread.   


Your original code (see above quote) was fine, except for two things:

1.  The return for l is messed up: it returns '12l' instead of '12'.
2.  The letters should be in quotes ('a' instead of a).

Also, putting the numbers in quotes isn't necessary.

I fixed the errors but it returns "nil". Any ideas?

What's your current code?

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

Somehow the code automatically took off the apostrophes.

UPDATE: I've got it! You need apostrophes round the letters. *Facepalm*

Last edited by Randomno (2012-07-09 16:36:35)

Randomno wrote:

And with that, I'd like to submit this code to the block library (Scratch and Panther):

Code:

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

Scratch just needs

Code:

| t1 |
t1 _ ''.

at the top. The ascii one would be good to add too.

No, Scratch doesn't need that at all.  That's how you define variables, but t1 is an argument--it needs to be in the selector at the top, such as "letterToNumber: t1".

Randomno wrote:

Greenatic wrote:

Randomno wrote:

And with that, I'd like to submit this code to the block library (Scratch and Panther):

Code:

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

Scratch just needs

Code:

| t1 |
t1 _ ''.

at the top. The ascii one would be good to add too.

No, Scratch doesn't need that at all.  That's how you define variables, but t1 is an argument--it needs to be in the selector at the top, such as "letterToNumber: t1".

  That's what Panther gave me when I viewed the code.

Well panther creates that because it uses the compiler, probably. But that is not the case in scratch. Just trust Greenatic.
example:
Scratch

#('add %n and %n' #r #add:and:)

add: t1 and: t2
^ t1 + t2

Panther

add $Number$ and $Number$

the first argument is paired up with t1 and the second with t2

^ t1 + t2

The differences is there is no selector because selectors are only used to call methods. And this is NOT a method, unlike in Scratch

P110 wrote:

dreamod wrote:

P110 wrote:

hey do you think the code below could be used to POST projects to a mod website (aka mine) I know how to get the website to receive but could this send the contents of the project:

Code:

upload: url user: user password: password
    | t1 t2 t3 t4 t6 args |
    self stopAll.
    self world ifNotNil: [self world activeHand newKeyboardFocus: nil].
    self canonicalizeSoundsBits: nil saveOriginal: false.
    self canonicalizeImagesQuality: nil saveOriginal: false.
    t1 _ scriptsPane target.
    t2 _ scriptsPane tabPane currentTab.
    t3 _ viewerPane currentCategory.
    scriptsPane target: nil.
    workPane updateSpritesList.
    t4 _ workPane position.
    workPane delete; position: 0 @ 0.
    self updatePenPositions.
    ScriptableScratchMorph buildBlockSpecDictionary.
    workPane
        allMorphsDo: [:t7 | (t7 isKindOf: ScriptableScratchMorph)
                ifTrue: 
                    [t7 blocksBin
                        allMorphsDo: [:t8 | (t8 isKindOf: BlockMorph)
                                ifTrue: [t8 stop]].
                    t7 convertStacksToTuples]].

    t6 _ WriteStream on: (ByteArray new: 100000000).
    t6 nextPutAll: 'ScratchV02' asByteArray.
    self storeProjectInfoOn: t6.
    ObjStream new storeObj: workPane on: t6.

    workPane
        allMorphsDo: [:t7 | (t7 isKindOf: ScriptableScratchMorph)
                ifTrue: [t7 convertTuplesToStacks]].
    self addMorph: (workPane position: t4).
    t1 ifNil: [t1 _ workPane].
    t1 viewBlocksAndScripts.
    scriptsPane tabPane currentTab: t2.
    viewerPane currentCategory: t3.
    self updatePenPositions.

    args _ Dictionary new.
    args at: 'project' put: {projectName}.
    args at: 'data' put: (Array with: t6 contents asString).
    args at: 'user' put: {user}.
    args at: 'password' put: {password}.
    HTTPSocket httpPostDocument: url args: args

If so, anyone know how to script the dialog box, if I can't from the scratch one?

Thanks 

wow, that's nice. The dialog would be a piece of cake. I'll let you use the one for my block importer slightly modified.

Code:

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 4 July 2012 at 9:30:09 am'!
DialogBoxMorph subclass: #UploadDialogBoxMorph
    instanceVariableNames: 'userNameMorph target blockFile commentMorph passwordMorph '
    classVariableNames: 'URL '
    poolDictionaries: ''
    category: 'Scratch-UI-Dialogs'!


!UploadDialogBoxMorph methodsFor: 'accessing' stamp: 'dreamod 7/4/2012 09:29'!
getUserResponse

    "Wait for the user to type in and accept a string, then report that string. Answer the empty string if the user cancels the operation."

    "Details: This is invoked synchronously from the caller. In order to keep processing inputs and updating the screen while waiting for the user to respond, this method has its own version of the World's event loop."

    | w |
    self openInWorld.
    self centerOnScreen.
    w _ self world.
    w activeHand newKeyboardFocus: userNameMorph.
    done _ false.
    [done] whileFalse: [w doOneCycle].  "wait for user to press a button"
    response = #cancelled ifTrue: [^ self].
    target upload: URL user: userNameMorph contents asString password: passwordMorph contents asString.
    self delete.
    w doOneCycle.  "erase myself from the screen"

! !

!UploadDialogBoxMorph methodsFor: 'accessing' stamp: 'dreamod 7/4/2012 09:29'!
target
^ target
! !

!UploadDialogBoxMorph methodsFor: 'accessing' stamp: 'dreamod 7/4/2012 09:29'!
target: t1
^ target! !


!UploadDialogBoxMorph methodsFor: 'initialization' stamp: 'dreamod 7/4/2012 09:25'!
initialize
    super initialize.
    mainColumn addMorph: (Morph new extent: 5 @ 6;
         color: Color transparent).
    mainColumn addMorph: (Morph new extent: 5 @ 6;
         color: Color transparent);
     addMorph: (passwordMorph _ StringFieldMorph new client: self;
                 borderWidth: 2;
                 color: (Color
                        r: 211 / 255
                        g: 214 / 255
                        b: 216 / 255));
     addMorph: (Morph new extent: 5 @ 6;
         color: Color transparent).
    passwordMorph font: (ScratchFrameMorph getFont: #StringDialogTypeIn);
     width: 250.
    passwordMorph passwordMode: true.
    mainColumn addMorph: (Morph new extent: 5 @ 6;
         color: Color transparent);
     addMorph: (userNameMorph _ StringFieldMorph new client: self;
                 borderWidth: 2;
                 color: (Color
                        r: 211 / 255
                        g: 214 / 255
                        b: 216 / 255));
     addMorph: (Morph new extent: 5 @ 6;
         color: Color transparent).
    userNameMorph font: (ScratchFrameMorph getFont: #StringDialogTypeIn);
     width: 250.
    tabFields add: userNameMorph.
    tabFields add: passwordMorph.
    self message: 'Enter username and password'.
    self title: 'Upload Project to: ' , URL asString.
    self withButtonsForYes: false no: false okay: true cancel: true! !
!UTF8 methodsFor: 'converting'!
asString
    | t2 |
    t2 _ ''.
    self do: [:t1 | t2 _ t2 , t1 asString].
    ^ t2! !

Call it from ScratchFrameMorph like this:

Code:

UploadDialogBoxMorph new target: self; getUserResponse

The dialog will then call the method you made to the instance of ScratchFrameMorph defined once you're done filling in the form.

Wait, is that the actual dialog box code? Thanks! 

So, if I add that all to scratchFrameMorph it should all work?

This doesn't work for some reason,
It turns:

DialogBoxMorph subclass: #UploadDialogBoxMorph

Into this:

DialogBoxMorph  Nothing more expected ->subclass:#UploadDialogBoxMorph

Any ideas??

Quick note, I'm using the scratch source code, so I don't have the original dialog or upload code

Last edited by P110 (2012-07-14 10:14:06)

dreamod wrote:

You must copy the text but dont accept. Then you right click it and file it in. "file in"

Ah, I hadn't used file in before, I just though you meant add, (accept)

EDIT: I need to file in my code as well? It won't let me...

Last edited by P110 (2012-07-14 13:28:18)

gooeygoo wrote:

Can I share my idea?

Of course!   

gooeygoo wrote:

When gf clicked
go to [1:16] of sound [1]
Wait until <(sound)=[6:21]>
Go to [1:16] of sound [1]

The sound one is allowed you to go to the section of the song, and you don't need to wait!

Oh, you mean a block like this?

play from (60) seconds into [song  v]

chanmanpartyman wrote:

I'd like to improve upon Greenatic's

move (10) steps towards [Sprite1 v]

block.

Code:

Move: t1 Towards: t2 
    self pointToX: t2 xpos y: t2 ypos.
    self forward: t1

Much more simplified.

But the point with that block was to not use rotation. So this block is pointless