Program total score is: 219
Output image
101mastrman - πριν 4 μήνες
i made the score 200
Luigiman - πριν 1 χρόνος
I have a program for Mario it's name is Mario it is #5
Darrel Brent - πριν 8 μήνες
to centerStar :sides :big :small
make "myList [ ]
pu
for [ i 1 :sides ]
[
fd :big
queue "myList pos
bk :big
rt 360/2/:sides
fd :small
queue "myList pos
bk :small
rt 360/2/:sides
]
;print :myList
for [ point 2:sides 1 ]
[
setxy
item 1 (item :point :myList)
item 2 (item :point :myList)
pd
]
setxy
item 1 (item (count :mylist) :myList)
item 2 (item (count :mylist) :myList)
end
ht
for [ var 1000 20 -20 ]
[
filled random 16 [ centerStar 80 :var :var/1.1 ]
home
]
repeat 1000 [ repeat 40 [ fd 1000 rt 900 ] rt 1 ]
repeat 1000 [
setcolor 15 fill setcolor 3
ht
repeat 30 [
repeat 50 [
fd 5 rt (random 10) - 5
]
pu home pd
rt 12repcount
]
wait 0.5
]
Leovis - πριν 2 χρόνια
Incredible
IFaulks - πριν 2 χρόνια
Wow
Porgányi Bendegúz - πριν 2 χρόνια
buuuuuggggg
7FOOTFRAMERATSALONGHISBACK - πριν 3 χρόνια
h o w
bhone koko - πριν 4 χρόνια
Cos tetch
Lyndsy Joie LALIC - πριν 4 χρόνια
?
Lyndsy Joie LALIC - πριν 4 χρόνια
NO BAD WORDS
Lucas Peng - πριν 3 μήνες