to bodovi
	if pixel=0 [make "score  :score + 1]
	if pixel=1 [make "score  :score + 2]
	if pixel=2 [make "score  :score + 3]
	if pixel=4 [make "score  :score + 5]
	if pixel=6 [make "score  :score + 4]
end

to kvadrat :d 
 	repeat 4 [fd :d rt 90]
 	make "boja pick [0 1 2 4 6]
 	pu fd :d/2 rt 90 fd :d/2 setfc :boja fill
 	bk :d/2 lt 90 bk :d/2 pd
end

to program

make "score 0
print "n=?"
make "n readword
print "d=?“
make "d readword
make "koraciDesno 0
make "koraciDolje 0

BUTTONCREATE "main "myright "DOLJE -100 100 50 25 [ifelse :koraciDolje<:n-1 [pd rt 90 fd :d lt 90 bodovi make "koraciDolje :koraciDolje +1] [print "Ne_mozes_vise_dolje]
if :koraciDesno+:koraciDolje=2*:n-2 [print :score]] 
BUTTONCREATE "main "mydown "DESNO -50 100 50 25 [ifelse :koraciDesno<:n-1 [pd fd :d bodovi make "koraciDesno :koraciDesno +1] [print "Ne_mozes_vise_desno]
if :koraciDesno+:koraciDolje=2*:n-2 [print :score]]

for [j 1 :n 1] [
	for [i 1 :n 1] [
		kvadrat :d 
		pu rt 90 fd :d lt 90 pd
	]
pu lt 90 fd :d*:n lt 90 fd :d lt 180 pd
]
pu fd :d*:n fd :d/2 rt 90 fd :d/2 pd
bodovi
end

Make "boja 6
Make "d 50
Make "koracidesno 4
Make "koracidolje 4
Make "n 5
Make "score 29