Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- setscreen ("graphics:799;599")
- put "Enter your name: "..
- var name : string
- get name
- put "Enter the colour number (0-255) for the left eye: "..
- var lc : int
- get lc
- put "Enter the colour number (0-255) for the right eye: "..
- var rc : int
- get rc
- colourback (25)
- cls
- put "Hello "..
- put name ..
- put "!!"
- Draw.FillOval (400,300,250,250,14)
- Draw.Oval (400,300,250,250,255)
- Draw.FillOval (400,200,200,50,4)
- Draw.FillOval (500,400,50,50,rc)
- Draw.FillOval (300,400,50,50,lc)
- colourback (4)
- colour (0)
- locate(25,46)
- put "Hello "..
- put name ..
- put "!!"..
- put "Enter an Integer (0-255) for circle 1's colour: "..
- var cc1 : int
- get cc1
- put "Enter an Integer (0-255) for circle 2's colour: "..
- var cc2 : int
- get cc2
- put "Enter an Integer (0-255) for circle 3's colour: "..
- var cc3 : int
- get cc3
- Draw.FillOval (300,200,50,50,cc1)
- Draw.FillOval (150,200,50,50,cc2)
- Draw.FillOval (450,200,50,50,cc3)
- put "Enter an Integer (0-255) for background colour: "..
- var bgc : int
- get bgc
- put "Enter an Integer (0-255) for text colour: "..
- var tc : int
- get tc
- put "Enter an Integer (0-255) for circles' colour: "..
- var cc : int
- get cc
- cls
- colourback (bgc)
- cls
- Draw.FillOval (300,200,50,50,cc)
- Draw.FillOval (150,200,50,50,cc)
- Draw.FillOval (450,200,50,50,cc)
- colour (tc)
- locate(18,28)
- put "3 colours - 3 variables"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement