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
illyism
Wanderer


Joined: 09 Dec 2007
Posts: 58

PostPosted: Sun Apr 27, 2008 2:29 pm   

quote finder(QuoteDB)
 
tired of looking up quotations? then try this script.

QUOTEMSG (channel) sends a quote to your mud in the channel.
SETCAT lets you choose a category

UPDATED: added an 'all' category.

Quote:
#CLASS {Vote_Scripts}
#al {cg} {#var category}
#ALIAS quotemsg {
showfile
%-1 '@quoteend' -@authorquote
}
#ALIAS {setcat}
#ALIAS setcat {#pick {@categories}}
#ALIAS showfile {
#script {strHTML = ~"~"}
#script {Sub getHTML:Set objHTTP = CreateObject~(~"MSXML2.ServerXMLHTTP~"):objHTTP.Open ~"GET~", ~"@linkcat~", ~"FALSE~":objHTTP.Send:strHTML = objHTTP.ResponseText:Set objHTTP = Nothing:End Sub}
#mss {getHTML}
#show %mss( strHTML)
}
#VAR category {98Envy}
#VAR categories {p:Select a category|o:1|all:#var category all;#echo your option was 1all!|cg 49America|cg 69Anger|cg 96Animals|cg 44Art|cg 40Beauty|cg 50Children|cg 8Comedy|cg 126Computers|cg 38Education|cg 121Emotion|cg 98Envy|cg 80Experience|cg 31Faith|cg 119Fame|cg 86Family|cg 48Fear|cg 77Food|cg 13Freedom|cg 6Friendship|cg 2God|cg 7Government|cg 45Happiness|cg 91Health|cg 117History|cg 66Holidays|cg 115Hope|cg 74Humor|cg 101Inspiration|cg 93Justice|cg 27Leadership|cg 43LifeandDeath|cg 5Love|cg 14Miscellaneous|cg 37Money|cg 11Morality|cg 28Patriotism|cg 62Philosophy|cg 20Politics|cg 109Power|cg 84Pride|cg 29Race|cg 39Reading|cg 60Religion|cg 71Risk|cg 15Science|cg 53Sex|cg 76Sleep|cg 75Sports|cg 9Success|cg 79Talking|cg 73Thinking|cg 51Time|cg 33TruthandLies|cg 64Virtue|cg 32WarandPeace|cg 81Wisdom|cg 34Work|cg 26Writing}
#VAR numbercat {98}
#VAR wordcat {Envy}
#VAR linkcat {http://www.quotedb.com/quote/quote.php?action=random_quote&c[@numbercat]=@numbercat}
#VAR quoteend {When men are full of envy they disparage everything, whether it be good or bad.}
#VAR authorquote {Tacitus }
#TRIGGER {your option was (%d)(%w)!} {
#if (@category=all) {
#var linkcat http://www.quotedb.com/quote/quote.php?action=random_quote
say your quotes will be about everything,http://www.quotedb.com/quote/quote.php?action=random_quote
#mxp ~<a "@linkcat">clicky clicky</a>
}
#if (@category<>all) {
#var numbercat %1
#var wordcat %2
#var linkcat "http://www.quotedb.com/quote/quote.php?action=random_quote&c[@numbercat]=@numbercat"
say @wordcat ...your link is @linkcat
#mxp ~<a "@linkcat">clicky clicky</a>
}
}
#TRIGGER {document.write*'(*)<br>*} {#var quoteend "%1"}
#TRIGGER {document.write*'More quotes from <a href=~"http://www.quotedb.com/authors/*~">(*)</a>'*;} {
#var authorquote "%1"
#var authorquote %replace( @authorquote, "-", " ")
}
#CLASS 0


Last edited by illyism on Mon Apr 28, 2008 12:57 am; edited 1 time in total
Reply with quote
charneus
Wizard


Joined: 19 Jun 2005
Posts: 1876
Location: California

PostPosted: Sun Apr 27, 2008 6:41 pm   
 
You're missing the cg alias, I'm assuming. :P

Plus, what's up with the empty aliases? and the #alias {setcat} then #alias {setcat} again?

Charneus
Reply with quote
illyism
Wanderer


Joined: 09 Dec 2007
Posts: 58

PostPosted: Sun Apr 27, 2008 10:30 pm   
 
ahh, the cg alias is "#var category"
#al {cg} {#var category}

and the empty aliases, are used to compress the script. ";" won't semi-colon.
something like an export version.

I've simply forgotten to delete them at the end
Reply with quote
illyism
Wanderer


Joined: 09 Dec 2007
Posts: 58

PostPosted: Tue Apr 29, 2008 6:47 pm   
 
this is a Joke finder, similar to the quote finder, but from a different site;
(WARNING:THIS CAN LAG YOU TO DEATH!)

Code:
#CLASS {randomjoke}
#ALIAS showjoke {#script {strHTML = ~"~"};#script {Sub getHTML:Set objHTTP = CreateObject~(~"MSXML2.ServerXMLHTTP~"):objHTTP.Open ~"GET~", ~"http://www.jokes2go.com/cgi-bin/includejoke.cgi?type=j~", ~"FALSE~":objHTTP.Send:strHTML = objHTTP.ResponseText:Set objHTTP = Nothing:End Sub};#mss {getHTML};#show %mss(strHTML)}
#ALIAS jokemsg {#t+ joker;showjoke;#var jokeend %replace(@jokeend, "<br>", "");#var jokeend %replace(@jokeend, "\", "");%-1 '@jokeend'}
#VAR jokeend {Have you heard the one about the . . . .    . . . recent survey on cigarettes which found that    90% of the men that tried Camels still prefer women. }
#VAR badmsg {<br><br>Brought to you by <a href=~"http://www.jokes2go.com~" target=~"_top~">http://www.jokes2go.com</a>}
#CLASS 0
#CLASS {randomjoke|joker}
#TRIGGER {this.document.write~('(*)'~);*} {#var jokeend "%1";#t- joker}
#CLASS 0
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