-----------------------------------

Fashoomp

Tue May 22, 2007 9:19 pm


Good ol' Etch-a-Sketch

-----------------------------------

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?

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 = maxx - 1 then
        x1 := 0
        x2 := x1 + 2
    end if
    %if y1 >
end loop



-----------------------------------

ashiphire

Wed May 23, 2007 7:13 am


RE:Good ol\' Etch-a-Sketch

-----------------------------------

nice 

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


-----------------------------------

lilmizeminem

Wed May 23, 2007 10:41 am


RE:Good ol\' Etch-a-Sketch

-----------------------------------

yeah differant colours would be cool, bright ones lol


-----------------------------------

Fashoomp

Wed May 23, 2007 10:50 am


Re: Good ol' Etch-a-Sketch

-----------------------------------

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


-----------------------------------

lilmizeminem

Wed May 23, 2007 10:54 am


RE:Good ol\' Etch-a-Sketch

-----------------------------------

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


-----------------------------------

ashiphire

Wed May 23, 2007 10:58 am


RE:Good ol\' Etch-a-Sketch

-----------------------------------

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


-----------------------------------

Fashoomp

Wed May 23, 2007 11:22 am


Re: Good ol' Etch-a-Sketch

-----------------------------------

Heres the new code with instructions

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 = maxx - 1 then 
        x1 := 0 
        x2 := x1 + 2 
    end if 
end loop



-----------------------------------

Tallguy

Thu May 24, 2007 11:47 am


Re: Good ol' Etch-a-Sketch

-----------------------------------

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 :wink:


-----------------------------------

tenniscrazy

Thu May 24, 2007 4:14 pm


RE:Good ol\' Etch-a-Sketch

-----------------------------------

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.