Zugg Software :: View topic - Dragonrealms-Script for viewing DR Forum in Zmud

Newbie Joined: 25 Feb 2003 Posts: 2

The arguments are all numbers.
SomeAlias [category] [topic] [message]
ex. "SomeAlias 1 1 5" would read the 5th message in the first topic of the first category..yadda yadda yadda...




#SCRIPT {CurrentMsg=~"~"}


#SCRIPT {CurrentCategory=~"%1~"}


#SCRIPT {CurrentTopic=~"%2~"}


#SCRIPT {CurrentMsgId=~"%3~"}


#SCRIPT {Sub GetSingleMessage~(category,topic,message):Dim srep,regEx, Match, Matches, obj, surl:set obj=CreateObject~(~"MSXML2.XMLHTTP~"):surl=~"http:~/~/www.play.net~/forums~/messages.asp?forum=20~&category=~" & category&~"~&topic=~" & topic&~"~&message=~"& message:obj.Open ~"GET~",surl,~"FALSE~":obj.Send:Set regEx=New RegExp:regEx.Pattern=~"~"~"tmsgc~" & category&~"t~" & topic & ~"m~" & message & ~"~"~">~(~[sS~]+?)~<!~":regEx.IgnoreCase=false:regEx.Global=false:srep=obj.responseText:Set Matches=regEx.Execute~(srep): RetStr=Matches~(0).SubMatches~(0):RetStr=Replace~(RetStr,~"~<br>~",~"~"):RetStr=Replace~(RetStr,~"~&nbsp~;~",~"~"):RetStr=Replace~(RetStr,~" ~&lt~;~",~"~<~"):RetStr=Replace~(RetStr,~"~&gt~;~",~">~"):CurrentMsg=RetStr:End Sub}


#MSS {GetSingleMessage %1, %2, %3}


#SH %mss( CurrentMsg)