BASICButch

snoo.bas

Aug 31st, 2018
875
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. RANDOMIZE TIMER
  2. SCREEN 12
  3. LINE (0, 0)-(640, 480), 7, BF
  4. whoops:
  5. outline% = INT(RND * 16)
  6. IF outline% = 7 THEN GOTO whoops
  7. CIRCLE (320, 240), 120, outline%, , , 0.6
  8. oops:
  9. fill% = INT(RND * 16)
  10. IF fill% = outline% THEN GOTO oops
  11. IF fill% = 7 THEN GOTO oops
  12. PAINT (320, 240), fill%, outline%
  13. CIRCLE (440, 240), 40, outline%
  14. PAINT (460, 240), fill%, outline%
  15. CIRCLE (200, 240), 40, outline%
  16. PAINT (180, 240), fill%, outline%
  17.  
  18. 'fix ears
  19. LINE (200, 270)-(440, 210), fill%, BF
  20.  
  21.  
  22. 'mouth
  23. LINE (260, 260)-(280, 280), outline%
  24. LINE -(320, 300), outline%
  25. LINE -(360, 280), outline%
  26. LINE -(380, 260), outline%
  27.  
  28. 'eyes
  29. CIRCLE (280, 220), 20, outline%
  30.  
  31. CIRCLE (360, 220), 20, outline%
  32.  
  33. 'antenna
  34. c% = INT(RND * 80) + 280
  35. r% = INT(RND * 80) + 60
  36. LINE (320, 168)-(c%, r%)
  37. row% = (INT(RND * 120)) + 40
  38. column% = (INT(RND * 200) + 220)
  39. LINE -(column%, row%)
  40. CIRCLE (column%, row%), 20, outline%
  41. PAINT (column% - 2, row% - 3), fill%, outline%
  42.  
  43. 'words
  44. PRINT "REDDIT!"
  45.  
  46. SLEEP
RAW Paste Data