How To Make Loop on This Program

[Raknarg]

if counter = 200
Try changing that.

[darkage43]

I changed the counter=200 to a much greater value but the message is still flashing at the same rate as before.

[Raknarg]

Show me your new code.

[darkage43]

%Adds the ability to use GUI in this program
import GUI

%Declaring all variables used in the program
var counter : int := 0
var integer := 1
var winID := Window.Open ("graphics:800;800")
var message : string
var font1 : int

put "Enter your message here please: " ..
get message
put " "
put "Click quit to exit the program"

font1 := Font.New ("times:50")

loop
for i:0..16
colour (integer)
Font.Draw (message, 350, 425, font1, i)
counter += 1
if counter = 1000 then
integer += 1
counter := 0
end if

var quitBtn : int := GUI.CreateButton (375, 100, 0, "Quit", GUI.Quit)
end for
exit when GUI.ProcessEvent
end loop

Window.Close (winID)

[Raknarg]

Its because you set the color of Font.Draw to i, not integer. Why do you have that for loop?

[darkage43]

If I change Font.Draw into integer, the program wouldn't flash the text in the specified colours.

[Raknarg]

Well, then do the same thing you did with the counter. When it hits 17, reset it.

[darkage43]

How do I reset it? I'm really new to turing.

[Raknarg]

lol, ok then
So you do the same thing you did with the counter. When counter = 200, you set it back to zero. What you can do with integer is set it to zero after it reaches 17. That way you'll only get the colors 1 - 16 instead of it continuing on.

[darkage43]

How do I set my counter to 0 once it hits 17?

[darkage43]

K I've finally figured it out. Thank you so much Raknarg for being so helpful.

[Raknarg]

No problem.