Register to post in forums, or Log in to your existing account
 

Play RetroMUD
Post new topic  Reply to topic     Home » Forums » Finished MUD Scripts
judicar
Newbie


Joined: 25 Feb 2003
Posts: 2

PostPosted: Wed Jun 18, 2003 6:53 am   

Dragonrealms-Script for viewing DR Forum in Zmud
 
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)
Reply with quote
Display posts from previous:   
Post new topic   Reply to topic     Home » Forums » Finished MUD Scripts All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© 2009 Zugg Software. Hosted by Wolfpaw.net