Snitz Forums 2000

Someone asked me to write this and I know this was done a few years back but doubt the files could be located any more. So I redid it.

This requires very simple modification of four files and the addition of a new image file.

In "inc_post_buttons.asp":


Look for the following line (appx 60):

        "<a href=""Javascript:email();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorEmail,"Insert Email","align=""top""") & "</a>" & _

Change it to say:


        "<a href=""Javascript:email();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorEmail,"Insert Email","align=""top""") & "</a>" & _
        "<a href=""Javascript:marquee();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorMarquee,"Insert Marquee","align=""top""") & "</a>"

In "inc_iconfiles.asp":


Look for the following line (appx 52):

Const strIconEditorList = "icon_editor_list.gif|23|22"

Below it, insert this:


Const strIconEditorMarquee = "icon_editor_marquee.gif|23|22"

In "inc_code.js":


Add this to the end of the file:



function marquee() {
    var text = getText();
     if (helpstat) {
        alert("Marquee tag includes the text in a moving marquee.\n\nUSE: [marquee]This text is in a marquee.[/marquee]");
    } else if (basic) {
        AddTxt="[marquee]" + text + "[/marquee]";
        AddText(AddTxt);
    } else {
        if (text) {
            txt=prompt("Text to be inclosed in a marquee.",text);
        } else {
            txt=prompt("Text to be inclosed in a marquee.","Text");
        }
        if (txt!=null) {
            AddTxt="[marquee]"+txt+"[/marquee]";
            AddText(AddTxt);
        }
    }
}

In "inc_func_common.asp":


Look for the following line (appx 480):

			fString = replace(fString, "", "<hr noshade size=""1"">", 1, -1, 1)


Below it, insert this:


			fString = doCode(fString, "[marquee]", "[/marquee]", "<marquee loop=""infinite"">", "</marquee>")


For alternate behavior, try something like this line instead:


			fString = doCode(fString, "[marquee]", "[/marquee]", "<marquee loop=""infinite"" bgcolor=""" & strHiliteFontColor & """ behavior=""alternate"" height=""20"" width=""80%"" style=""font-size:" & strDefaultFontSize & "*6;color:" & strDefaultFontColor & ";border:1px " & strHeadCellColor & " solid;"">", "</marquee>")

Finally, add this as a button (you're welcome to make a better one