jessew
Apprentice
Joined: 03 Mar 2003
Posts: 141
|
 Posted: 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) |
|
