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

War_Caymore

Thu Sep 21, 2006 10:45 am


noob needs help

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

this is such a simple program (for the "anything under 20 lines contest") but for some reason it's not working. i can't seem to find my problem. it's been 6 months sence i written any code so i'm a little rusty. i jusut my comp up and running.

View.Set ("graphics")
var font : int
var x, y : int
font := Font.New ("sans serif:18:bold")
assert font > 0
Font.Draw ("Whats that?", 240, 200, font, black)
delay (3000)
cls
Font.Draw ("omigod!", 260, 200, font, black)
delay (3000)
loop
    Draw.FillOval (200, 300, x, y, red)
    x := x + 1
    y := y + 1
    if x = 600, end
end loop


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

do_pete

Thu Sep 21, 2006 10:53 am



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

Please post more descriptive titles. Here is the fixed version of your code.
View.Set ("graphics")
var font : int
var x, y : int := 0
font := Font.New ("sans serif:18:bold")
assert font > 0
Font.Draw ("Whats that?", 240, 200, font, black)
delay (3000)
cls
Font.Draw ("omigod!", 260, 200, font, black)
delay (3000)
loop
    Draw.FillOval (200, 300, x, y, red)
    x := x + 1
    y := y + 1
    exit when x = 600
end loop
 Basically, all you need to do is assign x and y a value before going x := x + 1 and y := y + 1. You also need to change your second last line.


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

War_Caymore

Thu Sep 21, 2006 10:59 am



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

Please post more descriptive titles.

sorry about that. 

thanx. actualy... right when you posted i kinda figured out my problem.

but thanx for the help. bits for you.


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

ZeroPaladn

Thu Sep 21, 2006 11:57 am



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

Cute, brother. Anyways, yeah, your title should probably state what your problem is. PM me when you can bro, so i can find out what yoru classes are over @ MHS.