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

Remm

Mon May 08, 2006 6:55 pm


The Customizer

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

Yeah. This is my first program that wasnt assigned by a teacher ( the class stuffs is just drooling with simplicity  :(  )  Any feedback on it is welcome. Oh, and for some reason, it works fine on my school computer, yet at home the object will move super fast from one side of screen to other, and it pumps comp usage up to 100%. if anyone knows why it does so, (maybe the multiple proceedures running) please tell me. Thanks, and have fun.
controls:
insert - colour back # up
delete - colour back # down
home - object colour # up
end - object colour # down
page down - change object
arrows - move object 


var colobak, colosqu, colobox : int
var num, num2, num3, num4, num5 : int
var draw : string
num := 100
num2 := 100
num3 := 200
num4 := 200
num5 := 1
colobak := 0
colobox := 1
%====================================

process bakcolours
    var colo : array char of boolean
    loop
        Input.KeyDown (colo)
        if colo (KEY_INSERT) then
            colobak := colobak + 1
        elsif colo (KEY_DELETE) then
            colobak := colobak - 1
        end if
        if (colobak >= 250) then
            colobak := 1
        elsif (colobak < 0) then
            colobak := 250
        end if
        delay (100)
        colourback (colobak)
    end loop
end bakcolours

%===================================


%====================================

process colours
    var colo2 : array char of boolean
    loop
        Input.KeyDown (colo2)
        if colo2 (KEY_HOME) then
            colobox := colobox + 1
        elsif colo2 (KEY_END) then
            colobox := colobox - 1
        end if

        if (colobox >= 250) then
            colobox := 1
        elsif (colobox < 0) then
            colobox := 250
        end if
        delay (100)
    end loop
end colours

%==================================


%==================================
process shp
    var shape : array char of boolean
    loop
        Input.KeyDown (shape)
        if shape (KEY_PGDN) then
            num5 := num5 - 1
            delay (100)
        end if
    end loop
end shp
%==================================

fork bakcolours
fork colours
fork shp


cls
View.Set ("offscreenonly")

%=================================
var mve : array char of boolean
loop
    Input.KeyDown (mve)
    if mve (KEY_UP_ARROW) then
        num2 := num2 + 5
        num4 := num4 + 5
    elsif mve (KEY_DOWN_ARROW) then
        num2 := num2 - 5
        num4 := num4 - 5
    elsif mve (KEY_LEFT_ARROW) then
        num := num - 5
        num3 := num3 - 5
    elsif mve (KEY_RIGHT_ARROW) then
        num := num + 5
        num3 := num3 + 5
    end if

    if (num >= maxx) or (num3 >= maxx) then
        num := num - 5
        num3 := num3 - 5

    elsif (num2 >= maxy) or (num4 >= maxy) then
        num2 := num2 - 5
        num4 := num4 - 5
    elsif (num