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
jessew
Apprentice


Joined: 03 Mar 2003
Posts: 141

PostPosted: Mon Jul 05, 2004 7:23 pm   

Medieiva TNL Reporter
 
showscl - just does a show me with colorized level report
chatscl - chats colorized level report (requires zchat)
chanscl <channel name> - says level report on <channel name>
<channel name> is whatever command you use to talk on that channel
Examples: chanscl f ..will say on form
chanscl bl .. will say on bloodline



#DELCLASS "CaebLevel"
#CLASS "CaebLevel"
#CLASS 0
#CLASS "CaebLevel/Commands/User"
#ALIAS chanscl {#IF (%null(%1)) {#SHOW @ClvlLogo %concat(@ClvlTheme.4,"Syntax: ",@ClvlTheme.3,"chanscl ~<channel name~>"} {clvltype = 0;clvlchan = %-1;clvlstart}}
#ALIAS showscl {clvlchan = "";clvltype = 0;clvlstart}
#ALIAS chatscl {clvltype = 1;clvlstart}
#CLASS 0
#CLASS "CaebLevel/Commands/Script"
#ALIAS clvlStart {#RESET "CaebLevel/Data";#T+ "CaebLevel/Triggers";sc l}
#ALIAS clvlFinish {#T- "CaebLevel/Triggers";clvlReport}
#ALIAS clvlReport {clvlrstring = @clvllogo;#FORALL @clvllist {clvlrstring = %concat(@clvlrstring,@clvlcreateitem(%i))};#IF (@clvltype) {#EMOTEALL @clvlrstring} {#IF (%null(@clvlchan)) {#SHOW @clvlrstring} {#EXEC {@clvlchan %replace(%stripansi(@clvlrstring),"+","Leveled +")}}}}
#FUNCTION clvlcreateitem {%item(@clvltheme,1)(%item(@clvltheme,2)%item(@clvltlist,%ismember(%1,@clvllist)): %if(@%1 = -1,X,@%1)%item(@clvltheme,1))" "}
#CLASS 0
#CLASS "CaebLevel/Triggers" disable
#TRIGGER {^Experience Points:%s%n%sTo Level: (%n)} {clvlxp = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#CONDITION {$} {clvlFinish}
#TRIGGER {^Leading Points:%s%n%sTo Level: (%n)} {clvllp = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#TRIGGER {^Autoquest Points:%s%n%sTo Level: (%n)} {clvlap = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#TRIGGER {^Dragon Points:%s%n%sTo Level: (%n)} {clvldp = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#TRIGGER {^Egg Points:%s%n%sTo Level: (%n)} {clvlep = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#TRIGGER {^Trading Points:%s%n%sTo Level: (%n)} {clvltp = %concat(@clvltheme.3,%trim(%format("&10.0n",%1)))}
#TRIGGER {^Experience Points:%s%n%sTo Level: Leveled (%n)} {clvlxp = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1)))}
#CONDITION {$} {clvlFinish}
#TRIGGER {^Leading Points:%s%n%sTo Level: Leveled (%n)} {clvllp = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1)))}
#TRIGGER {^Autoquest Points:%s%n%sTo Level: Leveled (%n)} {clvlap = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1))}
#TRIGGER {^Dragon Points:%s%n%sTo Level: Leveled (%n)} {clvldp = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1))_}
#TRIGGER {^Egg Points:%s%n%sTo Level: Leveled (%n)} {clvlep = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1)))}
#TRIGGER {^Trading Points:%s%n%sTo Level: Leveled (%n)} {clvltp = %concat(@clvltheme.4,"+",%trim(%format("&10.0n",%1)))}
#CLASS 0
#CLASS "CaebLevel/Data"
#VARIABLE clvlxp -1 -1
#VARIABLE clvldp -1 -1
#VARIABLE clvlep -1 -1
#VARIABLE clvllp -1 -1
#VARIABLE clvlap -1 -1
#VARIABLE clvltp -1 -1
#VARIABLE clvllogo "%item(@clvltheme,1)(%item(@clvltheme,2)Level Report%item(@clvltheme,1)) " _nodef
#VARIABLE clvllist "clvlxp|clvllp|clvlap|clvltp|clvlep|clvldp" _nodef
#VARIABLE clvltlist "Experience|Leading|Autoquest|Trading|Eggs|Dragon" _nodef
#VARIABLE clvlrstring "" ""
#VARIABLE clvltheme "%e[0;34m|%e[1;36m|%e[1;33m|%e[0;33m"
#VARIABLE clvltype 0 _nodef
#VARIABLE clvlchan "say" _nodef
#T- "CaebLevel/Triggers" disable
#CLASS "CaebLevel/Help"
#ALIAS clhelp {#SHOW {@clvltheme.2"Level Reporter v1.0 by Caebryn of Medivia"}
#SHOW {@clvltheme.1"-----------------------------------------"}
#SHOW {@clvltheme.3"showscl" @clvltheme.4 - @clvltheme.2"Show Your TNL Information"}
#SHOW {@clvltheme.3"chatscl" @clvltheme.4 - @clvltheme.2"Chat Your TNL Information"}
#SHOW {@clvltheme.3"chanscl ~<channel name~> "@clvltheme.4 - @clvltheme.2"Display Your TNL Information on a Medievia channel."}
#SHOW {@clvltheme.3"clhelp" @clvltheme.4 - @clvltheme.2"This Help File"}
#SHOW {@clvltheme.4"Note: Most of these commands are also available through the speedmenu (If Installed)."}
#SHOW {@clvltheme.4" Access this by right-clicking anywhere anywhere on your mud out window."}}
#CLASS 0
clhelp

//DELETE EVERYTHING BELOW THIS LINE IF YOU DO NOT WANT ANYTHING ADDED TO YOUR SPEED MENU.

#CLASS "CaebLevel/Menu"
#MENU "Caebryn's TNL Reporter" {} "" "CaebLevelSubmenu"
#CLASS 0
#CLASS "CaebLevel/Menu/CaebLevelSubmenu" menu
#MENU {Show TNL Information} {showscl}
#MENU {Chat TNL Information} {chatscl}
#MENU {TNL Reporter Help} {clhelp}
#CLASS 0


Cheers,

Caebryn on Medievia (53)
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