// Youtube Video   
function tube() {   
    var text = getText();   
    if (helpstat){   
        alert("YouTube Video.\n\nUSE: [tube]YouTube Video URL[/tube]");   
    } else if (basic) {   
        AddTxt=" [tube]" + text + "[/tube]";   
        AddText(AddTxt);   
    } else {   
        if (text) {   
            txt=prompt("YouTube Video URL",text);   
        } else {   
            txt=prompt("YouTube Video URL","URL");   
        }   
        if(txt!=null) {   
            AddTxt=" [tube]" + txt + "[/tube]";   
            AddText(AddTxt);   
        }   
    }   
}

Function ReplaceTubeTags(fString)   
    Dim oTag, cTag   
    Dim roTag, rcTag   
    Dim oTagPos, cTagPos   
    Dim nTagPos   
    Dim counter1, counter2   
    Dim strCodeText   
    Dim Tagcount   
    Dim strTempString, strResultString   
    TagCount = 2   
    Dim CodeTags(2,2,2)   
    Dim strArray, strArray2	
	
    CodeTags(1,1,1) = "[tube]"  
    CodeTags(1,2,1) = "[/tube]"  
    if mlev > 0 then 'added this to control the video from playing
	CodeTags(1,1,2) = "<div class=""tube""><script language=""javascript"">EmbedYT("""  
    CodeTags(1,2,2) = """,425,344)</script></div><div class=""break""></div>"  
	else
		'not login or registered do nothing.
	end if
       
    CodeTags(2,1,1) = "[TUBE]"  
    CodeTags(2,2,1) = "[/TUBE]"  
    CodeTags(2,1,2) = CodeTags(1,1,2)   
    CodeTags(2,2,2) = CodeTags(1,2,2)   
  
    strResultString = ""  
    strTempString = fString   
  
    for counter1 = 1 to TagCount   
  
        oTag   = CodeTags(counter1,1,1)   
        roTag  = CodeTags(counter1,1,2)   
        cTag   = CodeTags(counter1,2,1)   
        rcTag  = CodeTags(counter1,2,2)   
        oTagPos = InStr(1, strTempString, oTag, 1)   
        cTagPos = InStr(1, strTempString, cTag, 1)   
  
        if (oTagpos > 0) and (cTagPos > 0) then   
            strArray = Split(strTempString, oTag, -1)   
            for counter2 = 0 to Ubound(strArray)   
                if (Instr(1, strArray(counter2), cTag) > 0) then   
                    strArray2 = split(strArray(counter2), cTag, -1)   
                    strCodeText = trim(strArray2(0))   
                    if mlev > 0 then 'to prevent displaying the link
						strCodeText = replace(strCodeText,"/watch?v=","/v/")   
                    else
						
						strCodeText = replace(strCodeText,strCodeText, "<br><br><div align='center'><font color='red'>Your not Login. Pls Login or Register to watch the video.</font></div>")
					end if
					
					if instr(strCodeText,",") > 0 or _   
                        instr(strCodeText,")") >0 or _   
                        instr(strCodeText,"(") >0 or _   
                        instr(strCodeText,";") >0 or _   
                        instr(strCodeText,"""") >0 or _   
                           
                        instr(strCodeText,"[") >0 or _   
                        instr(strCodeText,"]") >0 or _   
                        instr(strCodeText,",") >0 then   
                            strCodeText = "illegal"  
                    end if                     
                strResultString = strResultString & roTag & strCodeText & rcTag & strArray2(1)   
                else   
                    strResultString = strResultString & strArray(counter2)   
                end if     
            next     
  
            strTempString = strResultString   
            strResultString = ""  
        end if   
    next   
  
    ReplaceTubeTags = strTempString    
end function

quote:

---

Originally posted by HuwR

he wasn't asking about embedding youtube videos.

---

quote:

---

Originally posted by HuwR

since your reply was nowhere near his post, it may have been helpfull to mention who/what you were replying too.

---