Good ol' Etch-a-Sketch

[Fashoomp]

It started off as just teaching myself arrow key movement on a box. I elaborated on that, and the etch a sketch took off from there. Arrow keys to move, space bar to clear, enter to change colour, mouse click, to start drawing from a new location (where you clicked) "D" to make pensize bigger, "A" to make it smaller. One flaw i cant seem to fix, is when you mouseclick somewhere else, it changes the pen size back to default. Can anyone fix this?

code:

View.Set ("offscreenonly") var counter : int := 0 var x1 : int := 0 var x2 : int := 2 var y1 : int := 0 var y2 : int := 2 var colours : array 1 .. 7 of int := init (7, 12, 10, 13, 14, 9, 3) var c_c : int := 1 var chars : array char of boolean loop     % put "(", x1 + 50, ")" ..     % put "," ..     % put "(", y1 + 50, ")" ..     colour (counter)     delay (25)     drawfillbox (x1, y1, x2, y2, colours (c_c))     Input.KeyDown (chars)     if chars (chr (97)) then         y1 := y1 - 1         x1 += 1     end if     if chars (chr (115)) then         y1 := y1 + 1         x1 -= 1     end if     View.Update     %200 up     %208 down     %205 right     %203 left     if chars (chr (10)) then         c_c := c_c + 1     end if     if c_c = 7 then         c_c := 1     end if     if chars (chr (32)) then         cls     end if     if chars (chr (205)) then %right         x1 := x1 + 2         x2 := x2 + 2     else     end if     var x, y, button : int     mousewhere (x, y, button)         if button = 1 then         x1 := x         y1 := y         x2 := x + 2         y2 := y + 2     end if     if chars (chr (203)) then                     %left         x1 := x1 - 2         x2 := x2 - 2     else     end if     if chars (chr (208)) then                         %up         y1 := y1 - 2         y2 := y2 - 2     else     end if     if chars (chr (200)) then                             %down         y1 := y1 + 2         y2 := y2 + 2     else     end if     if x1 <= 0 or x2 <= 0 then         x1 := maxx         x2 := x1 - 2     elsif y2 <= 0 or y1 <= 0 then         y2 := maxy         y1 := y2 - 2     elsif y2 >= maxy - 1 or y1 >= maxy - 1 then         y2 := 0         y1 := y2 + 2     elsif x1 >= maxx - 1 or x2 >= maxx - 1 then         x1 := 0         x2 := x1 + 2     end if     %if y1 > end loop

[ashiphire]

nice

you should make it so can change the colour during the program is ruinning

[lilmizeminem]

yeah differant colours would be cool, bright ones lol

[Fashoomp]

what are you talking about...you can change colours while the program is runnning...just press enter

[lilmizeminem]

ohh, i didnt notice that you should say that in the beginning or something.

[ashiphire]

yea you should have an instruction menu to explain how to completely use your program

[Fashoomp]

Heres the new code with instructions

code:

put "Welcome to the etch-a-sketch" put " " put "Some commands you can use are:" put "A and S keys to increase/decrease pen size" put "Enter to change colours (does not work on slower comps)" put "Space bar to 'shake' the etch a sketch" put "Mouseclick to draw from a different location, fixing the age old problem" put "of the etch a sketch (leaving a line across as you tried a smiley face" put "Lastly, you can go through the edge of the screen and appear on the other side" put " " put "Any key to continue" var ch:string (1) getch (ch) View.Set ("offscreenonly") var counter : int := 0 var x1 : int := 0 var x2 : int := 2 var y1 : int := 0 var y2 : int := 2 var colours : array 1 .. 7 of int := init (7, 12, 10, 13, 14, 9, 3) var c_c : int := 1 var chars : array char of boolean cls loop     colour (counter)     delay (25)     drawfillbox (x1, y1, x2, y2, colours (c_c))     Input.KeyDown (chars)     if chars (chr (97)) then         y1 := y1 - 1         x1 += 1     end if     if chars (chr (115)) then         y1 := y1 + 1         x1 -= 1     end if     View.Update     %200 up     %208 down     %205 right     %203 left     if chars (chr (10)) then         c_c := c_c + 1     end if     if c_c = 7 then         c_c := 1     end if     if chars (chr (32)) then         cls     end if     if chars (chr (205)) then %right         x1 := x1 + 2         x2 := x2 + 2     else     end if     var x, y, button : int     mousewhere (x, y, button)         if button = 1 then         x1 := x         y1 := y         x2 := x + 2         y2 := y + 2     end if     if chars (chr (203)) then                     %left         x1 := x1 - 2         x2 := x2 - 2     else     end if     if chars (chr (208)) then                         %up         y1 := y1 - 2         y2 := y2 - 2     else     end if     if chars (chr (200)) then                             %down         y1 := y1 + 2         y2 := y2 + 2     else     end if     if x1 <= 0 or x2 <= 0 then         x1 := maxx         x2 := x1 - 2     elsif y2 <= 0 or y1 <= 0 then         y2 := maxy         y1 := y2 - 2     elsif y2 >= maxy - 1 or y1 >= maxy - 1 then         y2 := 0         y1 := y2 + 2     elsif x1 >= maxx - 1 or x2 >= maxx - 1 then         x1 := 0         x2 := x1 + 2     end if end loop

[Tallguy]

IOt's a pretty cool program, i like how when it goes off screen it goes back at the opposite pole... try to make it to change colors every time you go a diffenert direction....that would be sweet

[tenniscrazy]

pretty cool...but when i made the thing relly big it messed up so that it was like a line or something, not a square..then it started switching so a made it bigger then a made it smaller again.