Advertisement
Guest User

Potion maker

a guest
May 7th, 2018
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.48 KB | None | 0 0
  1. CLS
  2. RANDOMIZE TIMER 'shake them dice
  3. SCREEN 13 '640x480, 256 colors. since it starts at 1, the last corner is (319,199) because n-1
  4.  
  5.  
  6. FOR times = 32 TO 320 STEP 32 '10 lines, with spacing of 32px
  7.  
  8.     Contour% = INT(RND * 50) + 32 'each line = (random from 1 to 100)+32
  9.     LINE (160 - Contour%, times)-(160 + Contour%, times) 'draw! counter remembers what row of pixels bc its counting by 32s
  10.  
  11.  
  12. NEXT 'go again until all 10 are there
  13.  
  14.  
  15. SLEEP 'dont close until a key is pressed
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement