

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

Jimbo1991

Fri May 23, 2008 12:05 pm


draw.text trouble

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

im making a game in the same style as the t.v. show 'who wants to be a millionare' but i cant get the delay for the title to work, also, i cant get it to clear away to be able to start the game: var name : string
var font := Font.New ("TimesNewRoman:20")
var text := "Welcome To Who Wants To Be A Millionare!!"
var width := Font.Width (text, font)
var font1 : int
var boarder1 : int
var answer : int
%this will draw the first font

Font.Draw (text, 0, maxy div 2, font, blue)

%this will draw the second font

cls
Font.Draw (text, round (maxx / 2 - width / 2), maxy div 2, font, blue)


cls
font1 := Font.New ("timesnewroman:12:bold")
(delay: 100)

%Font.Draw ("So Are You Ready To Get Rich?", 99, 150, font1, green)

put "are you ready to play who wants to be a millionare?"
get answer

if answer = 1 then
    put "good luck and let the games begin"
elsif answer = 2 then
    put "well why arnt you ready?"
end if

here is my code, can anybody help me with it?


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

Sean

Fri May 23, 2008 1:21 pm


Re: draw.text trouble

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

Delays work like this:


Draw.FillOval (100, 100, 15, 15, red)
delay (1000)
Draw.FillOval (300, 300, 15, 15, blue)


And if you want it to clear then put a cls before it:


Draw.FillOval (100, 100, 15, 15, red)
delay (1000)
cls
Draw.FillOval (300, 300, 15, 15, blue)


