NetLogo

To borracho
;; este es un comentario para mi
fd random 3
rt random 90
lt random 90
;;set pcolor red
;;borracho

end

to pinta
repeat 1 [fd random 3
rt random 90
lt random 90
set pcolor red]
repeat 10 [fd random 3
rt random 90
lt random 90
set pcolor green]
repeat 10 [fd random 3
rt random 90
lt random 90
set pcolor yellow]
end

To triangulo
pd
repeat 3 [rt 120 fd 5]
pu
end

to rectangulo
fd 5
rt 90
fd 1
rt 90
fd 5
rt 90
fd 1
end

To rectangul
repeat 5 [fd 10 bk 10 rt 90 fd 1]
end

To recrea
if pcolor = red [hatch 1 [borracho]]
if pcolor = green [die]
end
ogo