Need Help Writing Function - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Need Help Writing Function - Posted 29 Oct 2009 14:56 (6906 Views)

leatherlips

Senior Member

Posts: 1838

1838

I'm working on a new mod for my forum but am having trouble writing the function in inc_func_common.asp.
I think I'm getting close to making this work but need some help.
I'm basically working on a new [media] tag. What you do is place a url to virtually any video from YouTube, Dailmotion, Vimeo or any site like that and it will open in a lightbox style pop up. It will also open swf files, mp3 files, flv files, images... just about anything.
Here is what I have so far...
I know there is already a Online Video MOD but I would like to write a new one that is able to be more robust.
Anyone willing to help me on this?

Posted 29 Oct 2009 20:45

leatherlips

Senior Member

Posts: 1838

1838

I think I got it! I may write this up as a mod if anyone has an interest in it.

Posted 29 Oct 2009 20:53

Panhandler

Average Member

Posts: 783

783

It looks good. . .I'd be interested in trying it out.

Posted 30 Oct 2009 01:36

Carefree

Advanced Member

Posts: 4224

4224

Looks nice. I'll be happy to play with it, myself.

Posted 30 Oct 2009 06:15

leatherlips

Senior Member

Posts: 1838

1838

Great! Sometime over the weekend I'll post what I have and maybe you guys could help me improve it.

Posted 17 Dec 2009 13:32

phoenixtaz13

Junior Member

Posts: 129

129

good day to all..... :)

any update on this?.....

Posted 22 Jan 2010 05:29

Etymon

Advanced Member

Posts: 2396

2396

I have some code for you ...
See how your MOD looks here: http://www.rba-licking.com/topic.asp?TOPIC_ID=53
(this is a temporary post for the purpose of this reply - will be deleted later)

Play with a mock test post here: http://www.rba-licking.com/post.asp?method=Topic&FORUM_ID=33

Use the following icon (on the web site above) to insert a file into the [media][/media] tags:

Use the following .swf file (from the American Sign Language web site) to test the MOD:
http://www.aslpro.com/religious/f/forgiveness.swf

Additional MOD Code:

Reminder Note: Remember to include your .js files in inc_header_short.asp as well.

inc_code.js

Code:

function mediabox() {
	var text = getText();
	if (helpstat) {
		alert("Media Tag plays various media formats.\n\nUSE: [media]http://www.domaingoeshere.com/media.swf[/media]");
	} else if (basic) {
		AddTxt="[media]" + text + "[/media]";
		AddText(AddTxt);
	} else {
		if (text) {
			txt=prompt("URL Link to media file.",text);
		} else {
			txt=prompt("URL Link to media file.","Text");
		}
		if (txt!=null) {
			AddTxt="[media]"+txt+"[/media]";
			AddText(AddTxt);
		}
	}
}

inc_iconfiles.asp

Code:

Const strIconEditorMediaBox = "icon_editor_media_box.gif|23|22"

inc_post_buttons.asp

Code:

		Response.Write     "<a href=""Javascript:mediabox();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorMediaBox,"Insert Media","align=""top""") & "</a>" & vbNewLine

mediaboxAdv_1.1.6.js

Code:

//          playerpath: 'http://www.yoursite.com/forum/media/player.swf', // Path to the mediaplayer.swf or flvplayer.swf file
            playerpath: '<% =strForumURL %>', // Path to the mediaplayer.swf or flvplayer.swf file

Code:


//          NBpath: 'http://www.yoursite.com/forum/media/NonverBlaster.swf', // Path to NonverBlaster.swf
            NBpath: '<% =strFourmURL %>media/NonverBlaster.swf', // Path to NonverBlaster.swf

inc_func_common.asp
If you want force the Play Media link to flow in a sentence next to other text as in the following example:

My Media - Play Media
... instead of ...
My Media -
Play Media
... then alter the original MOD code like the code below:

Code:

'   CodeTags(1,1,2) = "<div><script language=""javascript"">EmbedMedia("""
'   CodeTags(1,2,2) = """,290,300,false)</script></div><div></div>"

   CodeTags(1,1,2) = "<script language=""javascript"">EmbedMedia("""
   CodeTags(1,2,2) = """,290,300,false)</script>"

Last edited by Etymon on 22 January 2010, 06:07