Advertisement
otorp2

pcode

Jan 15th, 2020
485
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. speed 2000
  2. xloc = 1
  3. xspeed = 4
  4. forever 1000, ->
  5. pen (random(color)), xloc
  6. fd xloc
  7. rt xloc
  8. xloc += xspeed
  9. debug xloc
  10. if xloc > 300
  11. xspeed = xspeed*-1
  12. write 'Hello.'
  13. if xloc < -300
  14. xspeed = xspeed*-1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement