| Author |
 Topic  |
|
Ez4arab
Junior Member
479 Posts |
 Posted - 24 August 2002 : 15:06:43
|
Title:add-ons:Flash Mod for version 3.4
Contributors: Ez4arab
Description
it allows users to put flash without useing html if it is closed.
Features:
- Administrative Control panel gives you control ON/OFF Flash
- Completely new script
- All code done in response.writes (for version 3.4 compatability)
- Users can customize width and height.
Ease of Installation (1-Hard, 10-Easy): 9
AttachmentDownload here
Demo: none at this time
If you have problems installing the mod, please post in the Mod Implementation forum.
File Modifications
config.asp --- 2
inc_post_buttons.asp ---1
inc_iconfiles.asp ---1
inc_code.asp ---1
inc_func_posting.asp ---1
inc_func_common.asp ---1
admin_config_features.asp ---1
pop_config_help.asp ---1
Note:
Do not upload any files need to be overwritten, you need to back up your old files.
YOU NEED TO updata database by insert this
Note use Alternative MOD Setup or use file dbs_flash.dbs and include this statment
Mod flash
[INSERT]
CONFIG_NEW
(C_VALUE,C_VARIABLE)#('1','STRSHOWFLASHBUTTON')
[END]
config.asp
LINE 127 add this
Dim strShowFlashButton ' <-- allow flash
LINE 392 add this
strShowFlashButton = Application(strCookieURL & "STRSHOWFLASHBUTTON")
inc_post_buttons.asp
at line 64 add this
if strShowFlashButton = "1" then
Response.Write "" & _
"<a href=""Javascript:flash();"" tabindex=""-1"">" & getCurrentIcon(strIconEditorFlash,"Insert Flash","align=""top""") & "</a>"
end if
inc_iconfiles.asp
Line 52 add this
Const strIconEditorflash = "icon_editor_flash.gif|23|22"
|
Ez4arab web site Ez4arab | |
Edited by - Ez4arab on 24 August 2002 15:15:24 |
|
|
Ez4arab
Junior Member
479 Posts |
Posted - 24 August 2002 : 15:12:14
|
inc_code.asp
Line 91 add this
function flash() {
if (helpstat) {
alert("Inserts Flash tags, remember to enter width and height attributes before and after the Width:Height");
} else if (basic) {
AddTxt="[flash 150:150]http://[/flash]";
AddText(AddTxt);
} else {
txt3=prompt("Inserts URL of flash end with (.swf).","http://");
if (txt3!=null) {
txt=prompt("Width ","150");
if (txt!=null) {
txt2=prompt("Height.","150");
if (txt2!=null) {
if (txt3=="") {
AddTxt="[flash 150:150]"+txt3+"[/flash]";
AddText(AddTxt);
} else {
AddTxt="[flash "+txt+":"+txt2+"]"+txt3+"[/flash]";
AddText(AddTxt);
}
}
}
}
}
}
inc_code.js
line 267 add this
function flash() {
if (helpstat) {
alert("Inserts Flash tags, remember to enter width and height attributes before and after the Width:Height");
} else if (basic) {
AddTxt="[flash 150:150]http://[/flash]";
AddText(AddTxt);
} else {
txt3=prompt("Inserts URL of flash end with (.swf).","http://");
if (txt3!=null) {
txt=prompt("Width ","150");
if (txt!=null) {
txt2=prompt("Height.","150");
if (txt2!=null) {
if (txt3=="") {
AddTxt="[flash 150:150]"+txt3+"[/flash]";
AddText(AddTxt);
} else {
AddTxt="[flash "+txt+":"+txt2+"]"+txt3+"[/flash]";
AddText(AddTxt);
}
}
}
}
}
}
inc_func_posting.asp
Line 116 add this
fString = replace(fString, "<EMBED WIDTH=""","[flash ", 1, -1, 1)
fString = replace(fString, """ HEIGHT=""",":", 1, -1, 1)
fString = replace(fString, """ SRC=""","]", 1, -1, 1)
fString = replace(fString, """ HIDDEN=""false"" AUTOSTART=""true"" LOOP=""true"" volume=""100""></EMBED>","[/flash]", 1, -1, 1)
inc_func_common.asp
Line 742 add this
fString = doCode(fString, "[flash ",":","<EMBED WIDTH=""",""" HEIGHT=""")
fString = doCode(fString, "]","[/flash]",""" SRC=""",""" HIDDEN=""false"" AUTOSTART=""true"" LOOP=""true"" volume=""100""></EMBED>")
admin_config_features.asp
Line 216 add this
" <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Show Format Flash Button:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On:<input type=""radio"" class=""radio"" name=""strShowFlashButton"" value=""1""" & chkRadio(strShowFlashButton,0,false) & "> " & vbNewLine & _
" Off:<input type=""radio"" class=""radio"" name=""strShowFlashButton"" value=""0""" & chkRadio(strShowFlashButton,0,true) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=features#strShowFlashButton')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
pop_config_help.asp
Line 267 this line
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strCategoryCellColor & """><a name=""strShowFlashButton""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ ><b>Show Flash Buttons?</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" This turns off or on the Flash Button in the Section of Format on the screen where your users post new topics/reply to existing topics.<br /><br /><font color=""" & strHiLiteFontColor & """>Note:</font> You must also have Forum Code enabled on your forum to use this feature." & vbNewLine & _
" <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
|
Ez4arab web site Ez4arab | |
Edited by - Ez4arab on 24 August 2002 15:17:30 |
 |
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 24 August 2002 : 17:44:25
|
inc_func_posting.asp
Line 116 add this
fString = replace(fString, "<EMBED WIDTH=""","[flash ", 1, -1, 1)
fString = replace(fString, """ HEIGHT=""",":", 1, -1, 1)
fString = replace(fString, """ SRC=""","]", 1, -1, 1)
fString = replace(fString, """ HIDDEN=""false"" AUTOSTART=""true"" LOOP=""true"" volume=""100""></EMBED>","[/flash]", 1, -1, 1)
inc_func_common.asp
Line 742 add this
fString = doCode(fString, "[flash ",":","<EMBED WIDTH=""",""" HEIGHT=""")
fString = doCode(fString, "]","[/flash]",""" SRC=""",""" HIDDEN=""false"" AUTOSTART=""true"" LOOP=""true"" volume=""100""></EMBED>")
This part of the code is what I made for 3.3 and will be buggy when using certain smilies in the post at the same time. I am currently working on the code to use OBJECT instead of just EMBED. |
 |
|
|
|
Ez4arab
Junior Member
479 Posts |
Posted - 24 August 2002 : 19:14:13
|
quote:
This part of the code is what I made for 3.3 and will be buggy when using certain smilies in the post at the same time. I am currently working on the code to use OBJECT instead of just EMBED.
yes i am using ur code for that because it has width and height.
then i made mofiy inc_code.asp and inc_code.js to let users decide the width and hieght.
default hit falsh will gives
[flash 150:150]http://[flash]
this will remove the smile bug. unless if member change the code.
Once your finsh yours it will be part of updata of this mod  |
Ez4arab web site Ez4arab | |
|
|
|
Heynow
Junior Member
374 Posts |
|
|
Ez4arab
Junior Member
479 Posts |
|
|
Heynow
Junior Member
374 Posts |
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 07 November 2002 : 18:27:00
|
quote:
Originally posted by dayve
I am currently working on the code to use OBJECT instead of just EMBED.
dayve, any luck yet? please keep me posted!  |
cHosting.nl |
|
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 09 November 2002 : 12:13:00
|
| oh man, I totally gaffed this off. I need to get back on track with it. just have had bigger fish to fry lately. I have a 4 day weekend so maybe I'll take a peep at it. |
|
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 09 November 2002 : 18:47:28
|
| please keep me posted on this one! and thanks for the effort! |
cHosting.nl |
|
|
|
kymera
New Member
51 Posts |
Posted - 24 November 2002 : 19:40:52
|
| does anyone have the flash picture |
|
|
|
msperry
Starting Member
USA
48 Posts |
Posted - 24 November 2002 : 22:53:50
|
Here's 2 more Icons for it
 |
- Michael
NovaSheep.Com |
|
|
|
jmarkling
Starting Member
Denmark
34 Posts |
Posted - 06 January 2003 : 08:18:34
|
It would be more than helpfull, if u could tell where I should add the diffirent code parts, be cause the code-line numbers won't add-up if u, as I am, are using other Mods, and have editet the code a lot...
Exampel(don't do this):
Find in config_ex.asp around line 310
**************************************
strLinkTextDecoration = Application(strCookieURL & "STRLINKTEXTDECORATION")
strVisitedLinkColor = Application(strCookieURL & "STRVISITEDLINKCOLOR")
strVisitedTextDecoration = Application(strCookieURL & "STRVISITEDTEXTDECORATION")
**************************************
Right below that insert:
**************************************
strShowFlashButton = Application(strCookieURL & "STRSHOWFLASHBUTTON")
**************************************
Regards Markling
www.pw3.dk |
JEM |
Edited by - jmarkling on 06 January 2003 08:49:42 |
|
|
|
zbenggg
Junior Member
Israel
227 Posts |
Posted - 06 January 2003 : 12:36:48
|
| config.asp not work... |
I love Israel
 |
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 06 January 2003 : 18:17:13
|
| now that is a very clear comment! |
cHosting.nl |
|
|
|
jkmcgrath
Junior Member
USA
145 Posts |
|
|
Topic |
|
Topic Locked
