Scratch

LS97 · 2012-09-04 11:35:31

It's nice to be back "connected" after such a long break from the internet. However I haven't lost time twiddling my thumbs, and have been developing quite a few things in the meantime.

I dusted out that old book in the back of my head called "Squeak", and managed to make a great plugin for Scratch that will effectively convert your blocks to Squeak!

You can download it from my dropbox here.
To use, right click on a block.

Furthermore, I have continued and almost completed the development of Bingo 2.0! Here are some of the features I am really proud of:
- Improved blocks and fixed glitches
- Implemented object oriented programming and data types
- Updated interface translations and help dialogs
- Added a working theme manager along with a home made default skin overhaul
- Allowed browsing of Mod Share 3 from within the Bingo program
- Improved tooltips and scroll bars
- Added a one-click EXE compiler (made in VB.NET) that actually works, with options for how you want the EXE to look like!
- Implemented automatic uploading to Mod Share 3!

I didn't have internet when I coded Bingo though, so the uploading part still needs to be programmed server side. Expect a release within the month!

--
For those interested I have also developed a series of programs not related to Scratch which will be coming up soon on my site, Futuresight Tech.

Hardmath123 · 2012-09-04 21:07:16

Yay, you got the block-to-squeak working! big_smile I'll download it this afternoon.

LS97 · 2012-09-05 11:28:31

Hardmath123 wrote:
Yay, you got the block-to-squeak working! I'll download it this afternoon.

Yeah, the wonders boredom can do... big_smile Tell me how you think it is!

LS97 · 2012-09-07 16:21:56

And bumpity...

Hardmath123 · 2012-09-07 21:38:43

Sorry, LS97, I got a new Mac recently and I don't have Scratch on it. I'll test it on my old one as soon as I can. smile

danwoodski · 2012-09-10 20:39:09

If you convert a script to squeak, does it run faster?

Hardmath123 · 2012-09-11 09:18:20

I finally got it working on my old Mac, and it's totally awesome. smile

when gf clicked
set [rotation-x v] to [0]
set [rotation-y v] to [0]
forever  
clear
set [repetition-n v] to [-3]
pen up
repeat ((length of [Coordinates v] ) / (3))  
change [repetition-n v] by (3)
if <[penup] = (item ((repetition-n) + (1)) of [Coordinates v] )>
pen up
else
set [xcoord v] to ((0.01) + (item ((repetition-n) + (1)) of [Coordinates v] ))
set [ycoord v] to ((0.01) + (item ((repetition-n) + (2)) of [Coordinates v] ))
set [zcoord v] to ((0.01) + (item ((repetition-n) + (3)) of [Coordinates v] ))
set [dist v] to ( [sqrt v] of (((xcoord) * (xcoord)) + ((zcoord) * (zcoord))))
set [angleFormed v] to (( [atan v] of ((xcoord) / (zcoord))) + (rotation-y))
if <(zcoord) < [0]> 
if <(xcoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-x v] to ((dist) * ( [sin v] of (angleFormed)))
set [new-z v] to ((dist) * ( [cos v] of (angleFormed)))
set [dist v] to ( [sqrt v] of (((ycoord) * (ycoord)) + ((new-z) * (new-z))))
set [angleFormed v] to (( [atan v] of ((ycoord) / (new-z))) + (rotation-x))
if <(new-z) < [0]> 
if <(ycoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-y v] to ((dist) * ( [sin v] of (angleFormed)))
set pen shade to (new-z)
go to x: (new-x) y: (new-y)
pen down
end
end
wait (0.1) secs
if <key [left arrow v] pressed?> 
change [rotation-y v] by (-10)
end
if <key [right arrow v] pressed?> 
change [rotation-y v] by (10)
end
if <key [up arrow v] pressed?> 
change [rotation-x v] by (10)
end
if <key [down arrow v] pressed?> 
change [rotation-x v] by (-10)
end
end

Code:

whenGreenflagClicked
    self setVar: 'rotation-x' to: '0'.
    self setVar: 'rotation-y' to: '0'.
    "forever was ignored: Squeak does not support them."
        self clearPenTrails.
        self setVar: 'repetition-n' to: '-3'.
        self putPenUp.
        self / timesRepeat: [
            self changeVar: 'repetition-n' by: 3.
            self = ifTrue: [
                self putPenUp.
            ] ifFalse: [
                self setVar: 'xcoord' to: self +.
                self setVar: 'ycoord' to: self +.
                self setVar: 'zcoord' to: self +.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-x' to: self *.
                self setVar: 'new-z' to: self *.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-y' to: self *.
                self setPenShadeTo: (self getVar: 'new-z').
                self gotoX: (self getVar: 'new-x') y: (self getVar: 'new-y').
                self putPenDown.
            ].
        ].
        "wait block ignored; not allowed in Squeak".
        (self keyPressed: 'left arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: -10.
        ].
        (self keyPressed: 'right arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: 10.
        ].
        (self keyPressed: 'up arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: 10.
        ].
        (self keyPressed: 'down arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: -10.
        ].
    "/end forever"

EDIT: +/-/x/div operators' operands are all messed up... hmm

Last edited by Hardmath123 (2012-09-11 09:20:14)

veggieman001 · 2012-09-11 09:30:06

Hardmath123 wrote:

I finally got it working on my old Mac, and it's totally awesome. smile

when gf clicked
set [rotation-x v] to [0]
set [rotation-y v] to [0]
forever  
clear
set [repetition-n v] to [-3]
pen up
repeat ((length of [Coordinates v] ) / (3))  
change [repetition-n v] by (3)
if <[penup] = (item ((repetition-n) + (1)) of [Coordinates v] )>
pen up
else
set [xcoord v] to ((0.01) + (item ((repetition-n) + (1)) of [Coordinates v] ))
set [ycoord v] to ((0.01) + (item ((repetition-n) + (2)) of [Coordinates v] ))
set [zcoord v] to ((0.01) + (item ((repetition-n) + (3)) of [Coordinates v] ))
set [dist v] to ( [sqrt v] of (((xcoord) * (xcoord)) + ((zcoord) * (zcoord))))
set [angleFormed v] to (( [atan v] of ((xcoord) / (zcoord))) + (rotation-y))
if <(zcoord) < [0]> 
if <(xcoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-x v] to ((dist) * ( [sin v] of (angleFormed)))
set [new-z v] to ((dist) * ( [cos v] of (angleFormed)))
set [dist v] to ( [sqrt v] of (((ycoord) * (ycoord)) + ((new-z) * (new-z))))
set [angleFormed v] to (( [atan v] of ((ycoord) / (new-z))) + (rotation-x))
if <(new-z) < [0]> 
if <(ycoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-y v] to ((dist) * ( [sin v] of (angleFormed)))
set pen shade to (new-z)
go to x: (new-x) y: (new-y)
pen down
end
end
wait (0.1) secs
if <key [left arrow v] pressed?> 
change [rotation-y v] by (-10)
end
if <key [right arrow v] pressed?> 
change [rotation-y v] by (10)
end
if <key [up arrow v] pressed?> 
change [rotation-x v] by (10)
end
if <key [down arrow v] pressed?> 
change [rotation-x v] by (-10)
end
end

Code:

whenGreenflagClicked
    self setVar: 'rotation-x' to: '0'.
    self setVar: 'rotation-y' to: '0'.
    "forever was ignored: Squeak does not support them."
        self clearPenTrails.
        self setVar: 'repetition-n' to: '-3'.
        self putPenUp.
        self / timesRepeat: [
            self changeVar: 'repetition-n' by: 3.
            self = ifTrue: [
                self putPenUp.
            ] ifFalse: [
                self setVar: 'xcoord' to: self +.
                self setVar: 'ycoord' to: self +.
                self setVar: 'zcoord' to: self +.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-x' to: self *.
                self setVar: 'new-z' to: self *.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-y' to: self *.
                self setPenShadeTo: (self getVar: 'new-z').
                self gotoX: (self getVar: 'new-x') y: (self getVar: 'new-y').
                self putPenDown.
            ].
        ].
        "wait block ignored; not allowed in Squeak".
        (self keyPressed: 'left arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: -10.
        ].
        (self keyPressed: 'right arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: 10.
        ].
        (self keyPressed: 'up arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: 10.
        ].
        (self keyPressed: 'down arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: -10.
        ].
    "/end forever"

EDIT: +/-/x/div operators' operands are all messed up... hmm

How so?

Hardmath123 · 2012-09-11 09:32:30

veggieman001 wrote:

Hardmath123 wrote:

I finally got it working on my old Mac, and it's totally awesome. smile

when gf clicked
set [rotation-x v] to [0]
set [rotation-y v] to [0]
forever  
clear
set [repetition-n v] to [-3]
pen up
repeat ((length of [Coordinates v] ) / (3))  
change [repetition-n v] by (3)
if <[penup] = (item ((repetition-n) + (1)) of [Coordinates v] )>
pen up
else
set [xcoord v] to ((0.01) + (item ((repetition-n) + (1)) of [Coordinates v] ))
set [ycoord v] to ((0.01) + (item ((repetition-n) + (2)) of [Coordinates v] ))
set [zcoord v] to ((0.01) + (item ((repetition-n) + (3)) of [Coordinates v] ))
set [dist v] to ( [sqrt v] of (((xcoord) * (xcoord)) + ((zcoord) * (zcoord))))
set [angleFormed v] to (( [atan v] of ((xcoord) / (zcoord))) + (rotation-y))
if <(zcoord) < [0]> 
if <(xcoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-x v] to ((dist) * ( [sin v] of (angleFormed)))
set [new-z v] to ((dist) * ( [cos v] of (angleFormed)))
set [dist v] to ( [sqrt v] of (((ycoord) * (ycoord)) + ((new-z) * (new-z))))
set [angleFormed v] to (( [atan v] of ((ycoord) / (new-z))) + (rotation-x))
if <(new-z) < [0]> 
if <(ycoord) < [0]>
set [angleFormed v] to ((-180) + (angleFormed))
else
set [angleFormed v] to ((180) + (angleFormed))
end
end
set [new-y v] to ((dist) * ( [sin v] of (angleFormed)))
set pen shade to (new-z)
go to x: (new-x) y: (new-y)
pen down
end
end
wait (0.1) secs
if <key [left arrow v] pressed?> 
change [rotation-y v] by (-10)
end
if <key [right arrow v] pressed?> 
change [rotation-y v] by (10)
end
if <key [up arrow v] pressed?> 
change [rotation-x v] by (10)
end
if <key [down arrow v] pressed?> 
change [rotation-x v] by (-10)
end
end

Code:

whenGreenflagClicked
    self setVar: 'rotation-x' to: '0'.
    self setVar: 'rotation-y' to: '0'.
    "forever was ignored: Squeak does not support them."
        self clearPenTrails.
        self setVar: 'repetition-n' to: '-3'.
        self putPenUp.
        self / timesRepeat: [
            self changeVar: 'repetition-n' by: 3.
            self = ifTrue: [
                self putPenUp.
            ] ifFalse: [
                self setVar: 'xcoord' to: self +.
                self setVar: 'ycoord' to: self +.
                self setVar: 'zcoord' to: self +.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-x' to: self *.
                self setVar: 'new-z' to: self *.
                self setVar: 'dist' to: (self computeFunction: 'sqrt' of: self + ).
                self setVar: 'angleFormed' to: self +.
                self < ifTrue: [
                    self < ifTrue: [
                        self setVar: 'angleFormed' to: self +.
                    ] ifFalse: [
                        self setVar: 'angleFormed' to: self +.
                    ].
                ].
                self setVar: 'new-y' to: self *.
                self setPenShadeTo: (self getVar: 'new-z').
                self gotoX: (self getVar: 'new-x') y: (self getVar: 'new-y').
                self putPenDown.
            ].
        ].
        "wait block ignored; not allowed in Squeak".
        (self keyPressed: 'left arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: -10.
        ].
        (self keyPressed: 'right arrow' ) ifTrue: [
            self changeVar: 'rotation-y' by: 10.
        ].
        (self keyPressed: 'up arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: 10.
        ].
        (self keyPressed: 'down arrow' ) ifTrue: [
            self changeVar: 'rotation-x' by: -10.
        ].
    "/end forever"

EDIT: +/-/x/div operators' operands are all messed up... hmm

How so?

Code:

                self setVar: 'xcoord' to: self +.
                self setVar: 'ycoord' to: self +.
                self setVar: 'zcoord' to: self +.

LS97 · 2012-09-11 12:25:27

Ah, I missed that! Thank you for spotting it, I will update it as soon as possible smile

MrFlash67 · 2012-09-12 21:18:21

Could you please put the B2Squeak as a standalone .CS? Pleasssssssssssssse?

TheSuccessor · 2012-09-13 11:54:27

Just an idea - where you say forever isn't supported, can't you just do what the dialog box system does which is call "self world doOneCycle" every loop? (DialogBoxMorph getUserResponse)

E.g.

[true] whileTrue: ["code here" self world doOneCycle].

LS97 · 2012-09-13 14:48:37

TheSuccessor wrote:
Just an idea - where you say forever isn't supported, can't you just do what the dialog box system does which is call "self world doOneCycle" every loop? (DialogBoxMorph getUserResponse)

E.g.

[true] whileTrue: ["code here" self world doOneCycle].

I could, but then there would be absolutely no way to stop it, whereas in a scratch project you can just press the stop button.

LS97 · 2012-09-13 14:53:24

MrFlash67 wrote:
Could you please put the B2Squeak as a standalone .CS? Pleasssssssssssssse?

I could, but why don't you just navigate to:
Scratch-Blocks > CommandBlockMorph > rightButtonMenu
and find the entry that says "convert to scratchblocks" or something.
Delete that entry and you'll revert all effects of the Block2Scratchblocks smile

zubblewu · 2012-09-13 15:06:42

Awesome!

Code:

untitledMethod
    self setVar: 'bleh' to: '0'.
    (self keyPressed: 'left arrow' ) ifTrue: [
        self changeVar: 'xv' by: -0.7.
    ].
    (self keyPressed: 'right arrow' ) ifTrue: [
        self changeVar: 'xv' by: 0.7.
    ].
    self setVar: 'xv' to: self *.
    self changeXposBy: (self getVar: 'xv').
    (self touchingColor:  ) ifTrue: [
        self changeYposBy: 1.
        self changeVar: 'bleh' by: 1.
        (self touchingColor:  ) ifTrue: [
            self changeYposBy: 1.
            self changeVar: 'bleh' by: 1.
            (self touchingColor:  ) ifTrue: [
                self changeYposBy: 1.
                self changeVar: 'bleh' by: 1.
                (self touchingColor:  ) ifTrue: [
                    self changeYposBy: 1.
                    self changeVar: 'bleh' by: 1.
                    (self touchingColor:  ) ifTrue: [
                        self changeYposBy: 1.
                        self changeVar: 'bleh' by: 1.
                        (self touchingColor:  ) ifTrue: [
                            self changeXposBy: self *.
                            self setVar: 'xv' to: '0'.
                            self changeYposBy: -5.
                            (self keyPressed: 'up arrow' ) ifTrue: [
                                self changeXposBy: 5.
                                self setVar: 'c n' to: '-5'.
                                (self touchingColor:  ) ifTrue: [
                                    self setVar: 'xv' to: '-10'.
                                    self setVar: 'yv' to: '12'.
                                ] ifFalse: [
                                    self changeXposBy: -10.
                                    self setVar: 'c n' to: '5'.
                                    (self touchingColor:  ) ifTrue: [
                                        self setVar: 'xv' to: '10'.
                                        self setVar: 'yv' to: '12'.
                                    ].
                                ].
                                self changeXposBy: (self getVar: 'c n').
                            ] ifFalse: [
                                self changeVar: 'xv' by: self -.
                            ].
                        ] ifFalse: [
                        ].
                    ].
                ].
            ].
        ].
    ].
    self setVar: 'yv' to: self *.
    self changeYposBy: (self getVar: 'yv').
    (self touchingColor:  ) ifTrue: [
        self changeYposBy: self *.
        self setVar: 'yv' to: '0'.
    ].
    self changeYposBy: -1.
    (self keyPressed: 'up arrow' ) ifTrue: [
        (self touchingColor:  ) ifTrue: [
            self setVar: 'yv' to: '12'.
        ].
    ].
    self changeYposBy: 1.
    self < ifTrue: [
        self changeYposBy: -1.
        self not ifTrue: [
            self changeVar: 'yv' by: -1.
        ].
        self changeYposBy: 1.
    ].

MrFlash67 · 2012-09-13 15:21:40

LS97 wrote:
MrFlash67 wrote:
Could you please put the B2Squeak as a standalone .CS? Pleasssssssssssssse?
I could, but why don't you just navigate to:
Scratch-Blocks > CommandBlockMorph > rightButtonMenu
and find the entry that says "convert to scratchblocks" or something.
Delete that entry and you'll revert all effects of the Block2Scratchblocks

What I meant, is that the blocks2scratchblocks was a .cs (I think), and I could easily file it in, and I want a .cs file just for the blocks2squeak. Does the blocks2squeak change the right-click menu?

LS97 · 2012-09-14 14:01:07

MrFlash67 wrote:
LS97 wrote:
MrFlash67 wrote:
Could you please put the B2Squeak as a standalone .CS? Pleasssssssssssssse?
I could, but why don't you just navigate to:
Scratch-Blocks > CommandBlockMorph > rightButtonMenu
and find the entry that says "convert to scratchblocks" or something.
Delete that entry and you'll revert all effects of the Block2Scratchblocks
What I meant, is that the blocks2scratchblocks was a .cs (I think), and I could easily file it in, and I want a .cs file just for the blocks2squeak. Does the blocks2squeak change the right-click menu?

Of course!
However, the blocks3squeak will override any previously installed right menu buttons. That is why I have released both together.

Scratch

archived forums

#1 2012-09-04 11:35:31

New goodies I developed (including blocks2squeak and bingo 2.0)

#2 2012-09-04 21:07:16

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#3 2012-09-05 11:28:31

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

Hardmath123 wrote:

#4 2012-09-07 16:21:56

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#5 2012-09-07 21:38:43

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#6 2012-09-10 20:39:09

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#7 2012-09-11 09:18:20

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

Code:

#8 2012-09-11 09:30:06

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

Hardmath123 wrote:

Code:

#9 2012-09-11 09:32:30

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

veggieman001 wrote:

Hardmath123 wrote:

Code:

Code:

#10 2012-09-11 12:25:27

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#11 2012-09-12 21:18:21

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#12 2012-09-13 11:54:27

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

#13 2012-09-13 14:48:37

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

TheSuccessor wrote:

#14 2012-09-13 14:53:24

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

MrFlash67 wrote:

#15 2012-09-13 15:06:42

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

Code:

#16 2012-09-13 15:21:40

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

LS97 wrote:

MrFlash67 wrote:

#17 2012-09-14 14:01:07

Re: New goodies I developed (including blocks2squeak and bingo 2.0)

MrFlash67 wrote:

LS97 wrote:

MrFlash67 wrote:

Board footer