Program total score is: 2071
Output image
101mastrman - 4 months ago
Turtle Academy
Lessons
Programs
Playground
Challenges
News
22moron
English
The House
1
to dman
2
seth 95 fd 5 seth 185 fd 5
3
bk 5 seth 50 fd 8
4
bk 2 seth 320 fd 5 seth 50 fd 3
5
bk 3 seth 140 fd 10 seth 50 fd 3
6
bk 3 seth 320 fd 5 seth 50 pu
7
fd 7
8
pd circle 3
9
setpc 9 fill
10
pu home pd
11
end
12
13
to man
14
seth 45 fd 5 seth 135 fd 5
15
bk 5 seth 0 fd 8
16
bk 2 seth 270 fd 5 seth 0 fd 3
17
bk 3 seth 90 fd 10 seth 0 fd 3
18
bk 3 seth 270 fd 5 seth 0 pu
19
fd 7
20
pd circle 3
21
setpc 9 fill
22
pu home pd
23
end
24
to halfman
25
fd 4
26
pd bk 2 seth 270 fd 5 seth 0 fd 3
27
bk 3 seth 90 fd 10 seth 0 fd 3
28
bk 3 seth 270 fd 5 seth 0 pu
29
fd 7
30
pd circle 3
31
setpc 9 fill
HLModTech
You rated this program as
Program total score is: 2048
Output image
101mastrman - 25 seconds ago
to dman
seth 95 fd 5 seth 185 fd 5
bk 5 seth 50 fd 8
bk 2 seth 320 fd 5 seth 50 fd 3
bk 3 seth 140 fd 10 seth 50 fd 3
bk 3 seth 320 fd 5 seth 50 pu
fd 7
pd
setpc 9 fill
pu home pd
end
to man
seth 45 fd 5 seth 135 fd 5
bk 5 seth 0 fd 8
bk 2 seth 270 fd 5 seth 0 fd 3
bk 3 seth 90 fd 10 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to halfman
fd 4
pd bk 2 seth 270 fd 5 seth 0 fd 3
bk 3 seth 90 fd 10 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to driver
fd 4
pd bk 2 seth 90 fd 5 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to house
setpc 9 sq xy 4 4 setpc 8 fill ph
fd 50
tri sb xy 24 54 setpc 6 fill ph
door xy 8 4 setpc 10 fill ph
win
sun
garage
doghouse
flock
semi
tractor
sky
road
dway
grass
road
cloud
xy -29 0 man
chute
hir
blimp
pu home pd
setpc 0
bb
pool
ht
end
to pool
xy 140 -50
ellipse 120 40
s 1
fill
sw 7 s 8
xy 75 -55 sq2 8
sw 2
xy 75 -45 rec 2 28
xy 105 -35 s 0 dman
ph
end
to semi
xy 40 -155 circle 10 s 0 fill ph
xy 60 -155 circle 10 s 0 fill ph
xy 110 -155 circle 10 s 0 fill ph
xy 175 -155 circle 10 s 0 fill ph
xy 150 -155 circle 10 s 0 fill ph
xy 20 -140 rec 35 115 xy 128 -108 s 8 fill ph
xy 153 -126 s 0 rec 15 15 xy 160 -121 s 7 fill ph
xy 140 -140 s 0 rec 30 30 xy 148 -120 s 8 fill ph
xy 170 -140 s 8 rec 15 15 xy 179 -130 s 8 fill ph
xy 30 -120 seth 90 s 6 label "UPS ph
seth 0 xy 158 -126 setpc 0 driver
end
to tractor
xy 205 13 s 10 rec 8 25 xy 223 15 fill ph
sw 2 s 0 xy 200 10 filled 0 [ circle 10 ] ph
xy 230 7 circle 6 s 0 fill ph
sw 1
xy 195 22 s 10 rec 15 15 ph
xy 202 22 setpc 0 driver
end
to hab
xy -250 150 circle 30 setpc 5 fill s 0
xy -285 150 seth 35 arc 110 24 ph
xy -215 150 seth 215 arc 110 24 ph
xy -270 160 s 2 fill
xy -225 160 s 1 fill
sw 2 s 6 xy -270 125 seth 155 fd 30
sw 2 s 6 xy -230 125 seth 205 fd 30
seth 0
s 9 xy -260 80 rec 18 20
sw 1 s 0
s 8 xy -253 84 fill
s 11 pu fd 24 fill ph
setpc 0 xy -250 95 halfman
end
to s :c
setpc :c
end
to sw :w
setwidth :w
end
to door
pu setx 5 pd
fd 15
seth 90
fd 10
seth 180
fd 15
pu home pd
end
to garage
pu setxy -200 0 pd sb
rec 60 100 xy -193 3 setpc 8 fill ph
xy -190 0 pd sb
rec2
xy -183 3 setpc 9 fill ph
xy -150 0 pd sb
rec2 xy -143 3 setpc 9 fill ph
xy -200 60 pd sb
tri2 xy -153 73 setpc 14 fill ph
xy -190 0 pd sb doorl
xy -150 0 pd sb doorl
hab
;xy -190 -50 pd sb rec2
;xy -150 -50 pd sb rec2
;xy -185 -45 setpc 15 fill
;xy -145 -45 setpc 15 fill
end
to dway
s 15 xy -90 0 pd
seth 90
arc 180 110
xy -50 0
arc 180 50
xy -105 -25
setpc 15
fill
ph
xy -190 -50 bk 100
xy -90 -100 bk 50
xy -110 -110 s 15 fill
ph
end
to grass
xy -70 -10 setpc 10 fill
xy -210 -90 setpc 10 fill
xy 158 -10 setpc 10 fill
; xy 75 -145 setpc 10 fill
; xy 162 -145 setpc 10 fill
; xy 50 -138 setpc 10 fill
;xy 70 -10 setpc 10 fill
;xy 70 -110 setpc 10 fill
end
to doorl
repeat 5 [ fd 10 rt 90 fd 30 back 30 seth 0 ]
end
to rec :l :w
repeat 2 [ fd :l rt 90 fd :w rt 90 ]
pu home pd
end
to rec2
repeat 2 [ fd 50 rt 90 fd 30 rt 90 ]
pu home pd
end
to sb
setpc 0
end
to sq
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
end
to sq2 :l
repeat 4 [ fd :l rt 90 ]
pu home pd
end
to sun
setpc 6
xy 225 100 pd
repeat 120 [ repeat 4 [ fd 40 rt 90 ] rt 15 ]
pu home pd
sb
end
to tri
rt 90 fd 50
lt 135 fd 35
lt 90 fd 35
pu home pd
end
to tri2
rt 90 fd 100
left 135 fd 70.5
lt 90 fd 70.5
pu home pd
end
to win
sb
xy 10 30 pd
sq2 10 xy 13 33 setpc 12 fill ph
sb
pu setxy 25 30 pd
sq2 10 xy 27 33 setpc 12 fill ph
xy 25 10 rec 10 20
xy 27 12 setpc 3 fill
ph
end
to ph
pu home pd
end
to doghouse
xy 65 0 pd sq2 15
xy 65 15 pd
setxy 72.5 21 setxy 80 15
xy 70 0 fd 7
xy 76 0 fd 7
xy 73 7 seth 270 arc 180 3
xy 66 4 setpc 9 fill ph
xy 75 30 seth 90 label "Woof!
pu home pd
end
to hir
xy -65 0 pd rec 33 4
xy -75 20 pd rec 4 24
xy -63 4 setpc 8 pd fill
xy -63 23 setpc 8 pd fill
xy -73 23 setpc 8 pd fill
xy -60 23 setpc 8 pd fill
xy -63 28 setpc 8 pd fill
xy -95 40 seth 90 label "LETS.GO.WO!
s 0
pu home pd
end
to chute
xy -80 180
seth 270 arc 180 15 seth 90 pu fd 30 pd seth 270 pd arc 180 15
xy -35 180 seth 270 fd 60
xy -90 185 setpc 7 fill xy -50 185 fill
setpc 0 xy -95 180 setxy -70 140 xy -60 140 setxy -35 180
xy -68 128 man
pu home pd
end
to bird
seth -45 arc 140 15 seth 90 pu fd 30 pd seth 270 pd arc 140 15
pu home pd
end
to flock
xy 100 150 pd bird
xy 70 180 pd bird
xy 130 180 pd bird
end
to road
setpc 0
make "l 50
make "w 600
xy -300 -200 pd
repeat 2 [ fd :L rt 90 fd :w rt 90 ]
xy -300 -175 pd
seth 90
setpc 6 repeat 25 [ fd 15 pu fd 15 pd ]
xy -290 -170 setpc 0 fill
ph
end
to sky
xy -300 0 pd repeat 2 [ fd 200 rt 90 fd 600 rt 90 ]
xy -35 30 setpc 11 fill
xy 212 5 s 11 fill
pu home pd
end
to circle :r
arc 360 :r
end
to xy :x :y
pu setxy :x :y pd
end
to cloud
setpc 7 setcolor 7 sw 18
xy -65 140 circle 10 fill
xy -65 130 circle 10 fill
xy -95 140 circle 10 fill
xy -85 120 circle 10 fill
xy -95 130 circle 10 fill
xy -55 125 circle 15 fill
xy -115 120 circle 10 fill
setwidth 1 s 0 ph
end
to bb
xy -300 -130 rec 40 100
xy -295 -125 s 7 fill ph
xy -280 -130 seth 180 rec 20 5
xy -240 -130 seth 180 rec 20 5
s 1
xy -298 -105 seth 90 label "Follow.me
xy -298 -120 seth 90 label "@HLModTech
ph
end
to blimp
xy 20 112
ellipse 80 40
s 3 fill
xy -23 118
s 6 ellipse 3 12
s 6 fill
xy -23 106
ellipse 3 12
s 6 fill
s 8
xy 10 82
rec 10 20
xy 13 84 fill
ph
end
house
101mastrman - 4 days ago
how do ya even get your first 5 stars?
101mastrman - 2 weeks ago
what
Aeson Watson - 4 weeks ago
HALO 2 IS GOOD JOIN ME >;]
O
/]\
/\
DANIELLE EMERY BARRION - 1 month ago
Congrats I wish I was you😉😉😉🤓😝🤩🥳
DANIELLE EMERY BARRION - 1 month ago
Oh my goodness how did ya EVER DO THAT!? I should and will give u 5 stars 🤩✨⭐️🌟✨⭐️🌟
ALDREI PETER DE SILVA - 1 month ago
BEST PROGRAM CONGRATS!!!!!
ETHAN KRISTOFF CLORES - 2 months ago
FIVE STARS COMING UP
JanAlpKos - 2 months ago
This is awesome
KohMac65 - 2 months ago
5 stars so cool
‹
1
2
3
4
5
6
7
8
9
10
...
23
24
›
enter your message here
markdown cheatsheet
© 2025 All Rights Reserved. Turtle Academy.
Contacts
Turtle support:
Contact form
Support
Links
About
Donate
FAQ
Privacy Policy
Terms of service
Follow us on
101mastrman - 4 months ago
to dman
seth 95 fd 5 seth 185 fd 5
bk 5 seth 50 fd 8
bk 2 seth 320 fd 5 seth 50 fd 3
bk 3 seth 140 fd 10 seth 50 fd 3
bk 3 seth 320 fd 5 seth 50 pu
fd 7
pd
setpc 9 fill
pu home pd
end
to man
seth 45 fd 5 seth 135 fd 5
bk 5 seth 0 fd 8
bk 2 seth 270 fd 5 seth 0 fd 3
bk 3 seth 90 fd 10 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to halfman
fd 4
pd bk 2 seth 270 fd 5 seth 0 fd 3
bk 3 seth 90 fd 10 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to driver
fd 4
pd bk 2 seth 90 fd 5 seth 0 fd 3
bk 3 seth 270 fd 5 seth 0 pu
fd 7
pd circle 3
setpc 9 fill
pu home pd
end
to house
setpc 9 sq xy 4 4 setpc 8 fill ph
fd 50
tri sb xy 24 54 setpc 6 fill ph
door xy 8 4 setpc 10 fill ph
win
sun
garage
doghouse
flock
semi
tractor
sky
road
dway
grass
road
cloud
xy -29 0 man
chute
hir
blimp
pu home pd
setpc 0
bb
pool
ht
end
to pool
xy 140 -50
ellipse 120 40
s 1
fill
sw 7 s 8
xy 75 -55 sq2 8
sw 2
xy 75 -45 rec 2 28
xy 105 -35 s 0 dman
ph
end
to semi
xy 40 -155 circle 10 s 0 fill ph
xy 60 -155 circle 10 s 0 fill ph
xy 110 -155 circle 10 s 0 fill ph
xy 175 -155 circle 10 s 0 fill ph
xy 150 -155 circle 10 s 0 fill ph
xy 20 -140 rec 35 115 xy 128 -108 s 8 fill ph
xy 153 -126 s 0 rec 15 15 xy 160 -121 s 7 fill ph
xy 140 -140 s 0 rec 30 30 xy 148 -120 s 8 fill ph
xy 170 -140 s 8 rec 15 15 xy 179 -130 s 8 fill ph
xy 30 -120 seth 90 s 6 label "UPS ph
seth 0 xy 158 -126 setpc 0 driver
end
to tractor
xy 205 13 s 10 rec 8 25 xy 223 15 fill ph
sw 2 s 0 xy 200 10 filled 0 [ circle 10 ] ph
xy 230 7 circle 6 s 0 fill ph
sw 1
xy 195 22 s 10 rec 15 15 ph
xy 202 22 setpc 0 driver
end
to hab
xy -250 150 circle 30 setpc 5 fill s 0
xy -285 150 seth 35 arc 110 24 ph
xy -215 150 seth 215 arc 110 24 ph
xy -270 160 s 2 fill
xy -225 160 s 1 fill
sw 2 s 6 xy -270 125 seth 155 fd 30
sw 2 s 6 xy -230 125 seth 205 fd 30
seth 0
s 9 xy -260 80 rec 18 20
sw 1 s 0
s 8 xy -253 84 fill
s 11 pu fd 24 fill ph
setpc 0 xy -250 95 halfman
end
to s :c
setpc :c
end
to sw :w
setwidth :w
end
to door
pu setx 5 pd
fd 15
seth 90
fd 10
seth 180
fd 15
pu home pd
end
to garage
pu setxy -200 0 pd sb
rec 60 100 xy -193 3 setpc 8 fill ph
xy -190 0 pd sb
rec2
xy -183 3 setpc 9 fill ph
xy -150 0 pd sb
rec2 xy -143 3 setpc 9 fill ph
xy -200 60 pd sb
tri2 xy -153 73 setpc 14 fill ph
xy -190 0 pd sb doorl
xy -150 0 pd sb doorl
hab
;xy -190 -50 pd sb rec2
;xy -150 -50 pd sb rec2
;xy -185 -45 setpc 15 fill
;xy -145 -45 setpc 15 fill
end
to dway
s 15 xy -90 0 pd
seth 90
arc 180 110
xy -50 0
arc 180 50
xy -105 -25
setpc 15
fill
ph
xy -190 -50 bk 100
xy -90 -100 bk 50
xy -110 -110 s 15 fill
ph
end
to grass
xy -70 -10 setpc 10 fill
xy -210 -90 setpc 10 fill
xy 158 -10 setpc 10 fill
; xy 75 -145 setpc 10 fill
; xy 162 -145 setpc 10 fill
; xy 50 -138 setpc 10 fill
;xy 70 -10 setpc 10 fill
;xy 70 -110 setpc 10 fill
end
to doorl
repeat 5 [ fd 10 rt 90 fd 30 back 30 seth 0 ]
end
to rec :l :w
repeat 2 [ fd :l rt 90 fd :w rt 90 ]
pu home pd
end
to rec2
repeat 2 [ fd 50 rt 90 fd 30 rt 90 ]
pu home pd
end
to sb
setpc 0
end
to sq
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
fd 50 rt 90
end
to sq2 :l
repeat 4 [ fd :l rt 90 ]
pu home pd
end
to sun
setpc 6
xy 225 100 pd
repeat 120 [ repeat 4 [ fd 40 rt 90 ] rt 15 ]
pu home pd
sb
end
to tri
rt 90 fd 50
lt 135 fd 35
lt 90 fd 35
pu home pd
end
to tri2
rt 90 fd 100
left 135 fd 70.5
lt 90 fd 70.5
pu home pd
end
to win
sb
xy 10 30 pd
sq2 10 xy 13 33 setpc 12 fill ph
sb
pu setxy 25 30 pd
sq2 10 xy 27 33 setpc 12 fill ph
xy 25 10 rec 10 20
xy 27 12 setpc 3 fill
ph
end
to ph
pu home pd
end
to doghouse
xy 65 0 pd sq2 15
xy 65 15 pd
setxy 72.5 21 setxy 80 15
xy 70 0 fd 7
xy 76 0 fd 7
xy 73 7 seth 270 arc 180 3
xy 66 4 setpc 9 fill ph
xy 75 30 seth 90 label "Woof!
pu home pd
end
to hir
xy -65 0 pd rec 33 4
xy -75 20 pd rec 4 24
xy -63 4 setpc 8 pd fill
xy -63 23 setpc 8 pd fill
xy -73 23 setpc 8 pd fill
xy -60 23 setpc 8 pd fill
xy -63 28 setpc 8 pd fill
xy -95 40 seth 90 label "LETS.GO.WO!
s 0
pu home pd
end
to chute
xy -80 180
seth 270 arc 180 15 seth 90 pu fd 30 pd seth 270 pd arc 180 15
xy -35 180 seth 270 fd 60
xy -90 185 setpc 7 fill xy -50 185 fill
setpc 0 xy -95 180 setxy -70 140 xy -60 140 setxy -35 180
xy -68 128 man
pu home pd
end
to bird
seth -45 arc 140 15 seth 90 pu fd 30 pd seth 270 pd arc 140 15
pu home pd
end
to flock
xy 100 150 pd bird
xy 70 180 pd bird
xy 130 180 pd bird
end
to road
setpc 0
make "l 50
make "w 600
xy -300 -200 pd
repeat 2 [ fd :L rt 90 fd :w rt 90 ]
xy -300 -175 pd
seth 90
setpc 6 repeat 25 [ fd 15 pu fd 15 pd ]
xy -290 -170 setpc 0 fill
ph
end
to sky
xy -300 0 pd repeat 2 [ fd 200 rt 90 fd 600 rt 90 ]
xy -35 30 setpc 11 fill
xy 212 5 s 11 fill
pu home pd
end
to circle :r
arc 360 :r
end
to xy :x :y
pu setxy :x :y pd
end
to cloud
setpc 7 setcolor 7 sw 18
xy -65 140 circle 10 fill
xy -65 130 circle 10 fill
xy -95 140 circle 10 fill
xy -85 120 circle 10 fill
xy -95 130 circle 10 fill
xy -55 125 circle 15 fill
xy -115 120 circle 10 fill
setwidth 1 s 0 ph
end
to bb
xy -300 -130 rec 40 100
xy -295 -125 s 7 fill ph
xy -280 -130 seth 180 rec 20 5
xy -240 -130 seth 180 rec 20 5
s 1
xy -298 -105 seth 90 label "Follow.me
xy -298 -120 seth 90 label "@HLModTech
ph
end
to blimp
xy 20 112
ellipse 80 40
s 3 fill
xy -23 118
s 6 ellipse 3 12
s 6 fill
xy -23 106
ellipse 3 12
s 6 fill
s 8
xy 10 82
rec 10 20
xy 13 84 fill
ph
end
house
101mastrman - 4 months ago
how do ya even get your first 5 stars?
101mastrman - 4 months ago
what
Aeson Watson - 4 months ago
HALO 2 IS GOOD JOIN ME >;]
O
/]\
/\
DANIELLE EMERY BARRION - 5 months ago
Congrats I wish I was you😉😉😉🤓😝🤩🥳
DANIELLE EMERY BARRION - 5 months ago
Oh my goodness how did ya EVER DO THAT!? I should and will give u 5 stars 🤩✨⭐️🌟✨⭐️🌟
ALDREI PETER DE SILVA - 5 months ago
BEST PROGRAM CONGRATS!!!!!
ETHAN KRISTOFF CLORES - 6 months ago
FIVE STARS COMING UP
101mastrman - 4 months ago