;; Jerry Day 6 Junk

to pikasong
print "pikasong
note 72 3 note 84 3 note 79 3
end


to runfromlight1
print "runfromlight1
loop [if (sensor 0) < 20 [a, on scream] a, off]
end

to bedrunk
forever [if (frontbumper = 1)
[backup
waituntil [frontbumper = 0]
makeshortfastleft]
]

loop [smallslowright
smallslowleft
burp 
shorttailwag]

end


to makeshortfastleft
print "makeshortfastleft
left-wheel onfor 5 thatway
right-wheel onfor 5 thisway
end


to makeshortfastright
print "makeshortfastright
right-wheel onfor 5 thatway
left-wheel onfor 5 thisway
end

to smallslowright
print "smallslowright
left-wheel onfor 10 thisway
right-wheel off
end

to smallslowleft
print "smallslowleft
right-wheel onfor 10 thisway
left-wheel off
end

to frontbumpersmcircle? ;created to test jerry inside a 
print "frontbumper? ; small circle
loop [if (frontbumper = 1) [backup repeat 3 [beep wait 1] wait 6 makefastright wait 10 run]]
end