Help with text

[hackman]

Can i make text with a line going straight through it, to make the text look like its been crosed out? If so, whats the code? I have to make a Yahtzee game for comp sci and thought this would add a nice affect.

[Dan]

well there is no text coamnd for that, but you could use the graifcks comands like Draw.Line to draw a line thougth it after you print it on the screen

[Tony]

if you're using Font.Draw, you can draw another string of

code:

put repeat("-", length(word))

using same coordinates. It should cross it out.

[hackman]

Sorey i took so long to reply. Looks like im gona have to just use drawline.
Tony's idea dosent seem to work on my schools version of turing. Thanks for the replies.

[Tony]

repeat is a function and returns a value, not a procedure. You'd have to ether assign value to a variable first or use something like put that assepts a value. I modified the code above.

[hackman]

I still get an 'Expression cannot contain subscripts' error.

[thoughtful]

Here is an example of wht tony means

code:

var font : int := Font.New ("verdana:12") var word : string var strikeout : string var x, y := 50 put "Type in the word to be striked out" get word : * cls Font.Draw (word, x, y, font, black) strikeout := repeat ("-", length (word) + length (word) div 3) Font.Draw (strikeout, x, y, font, black)

[thoughtful]

I made this program which can strikeout almost ne fontsize and look pretty good

code:

const fontsize:=40 var font : int := Font.New ("verdana:"+intstr(fontsize)) var word : string var strikeout : string var x, y := 50 put "Type in the word to be striked out" get word : * cls Font.Draw (word, x, y, font, black) strikeout := repeat ("_", length (word)-length(word) div 10) Font.Draw (strikeout, x, y+(fontsize div 2), font, black)

Change the fountsize:= value to change the font size

[hackman]

Ok, now i get it. Thanks.