diff --git a/Account Management System - AMS.txt b/Account Management System - AMS.txt
index f89df9f..5b49125 100644
--- a/Account Management System - AMS.txt	
+++ b/Account Management System - AMS.txt	
@@ -129,7 +129,7 @@ th u(NEWCONF,config,SYSTEM,AUTO_ACCOUNT,1,Auto-Bind accounts based on IP?,BOOL)
 
 &Q`GET`LOGINS [u(cobj,ams)]=SELECT login_result,login_address,UNIX_TIMESTAMP(login_date),login_reason from $LOGINS$ as logins LEFT JOIN $PLAYERS$ as players ON players.player_id=logins.player_id WHERE players.objid=? ORDER BY login_date ASC LIMIT 10
 
-&TRG`IP`CLEANCONNLOGS [u(cobj,ams)]=@attach %!/INC`IDCHECK=%0;@check %q<id>;th u(setq,keepids,u(mysql,GET`GOOD_LOGINS,%q<id>));@attach %!/INC`DOSQL=DELETE`OLD_LOGINS=%q<id>,u(SQL`IN`NUMBER,%q<keepids>)
+&TRG`IP`CLEANCONNLOGS [u(cobj,ams)]=@attach %!/INC`IDCHECK=%0;@check %q<id>;th u(setq,keepids,u(mysql,GET`GOOD_LOGINS,%q<id>));@attach %!/INC`DOSQL=DELETE`OLD_LOGINS,%q<id>,u(SQL`IN`NUMBER,%q<keepids>)
 
 &Q`GET`GOOD_LOGINS [u(cobj,ams)]=SELECT login_id FROM $LOGINS$ WHERE player_id=? ORDER BY login_date DESC LIMIT 20
 &Q`DELETE`OLD_LOGINS [u(cobj,ams)]=DELETE FROM $LOGINS$ WHERE player_id=? AND login_id NOT IN (!)
diff --git a/Ancestor Objects - Room Parents.txt b/Ancestor Objects - Room Parents.txt
index ac2cd08..9b2d9cb 100644
--- a/Ancestor Objects - Room Parents.txt	
+++ b/Ancestor Objects - Room Parents.txt	
@@ -1,7 +1,7 @@
 @@ DEPENDENCIES: CORE
 
 @@ ANCESTOR ROOM
-@select/inline isdbref(u(coi,ar))=1,{&COBJ`ANCESTOR_ROOM [cobj,mco]=[u(coi,ar)]},0,{@select/inline isdbref(u(cobj,ancestor_room))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_ROOM,dig(Ancestor Room))}}
+@select/inline isdbref(u(coi,ar))=1,{&COBJ`ANCESTOR_ROOM [u(cobj,mco)]=[u(coi,ar)]},0,{@select/inline isdbref(u(cobj,ancestor_room))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_ROOM,dig(Ancestor Room))}}
 
 &HEADER [u(cobj,ancestor_room)]=header(%0,,%1,,v(COLOR`BORDER),v(COLOR`HEADER_STAR),v(COLOR`HEADER_TEXT))
 &SEPARATOR [u(cobj,ancestor_room)]=separator(%0,,%1,,v(COLOR`BORDER),v(COLOR`HEADER_STAR),v(COLOR`HEADER_TEXT))
@@ -48,7 +48,7 @@ th u(NEWCONF,pconf,ROOM,EXITALIAS,,Color of exit names.,COLOR)
 
 @@ ANCESTOR PLAYER
 
-@select/inline isbref(u(setr,ap,pmatch(*ancestor player)))=1,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_PLAYER,%q<ap>)},0,{@select/inline isdbref(u(cobj,ancestor_player))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_PLAYER,pcreate(Ancestor Player,digest(md5,secs())))}}
+@select/inline isdbref(u(setr,ap,u(coi,ap)))=1,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_PLAYER,%q<ap>)},0,{@select/inline isdbref(u(cobj,ancestor_player))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_PLAYER,pcreate(Ancestor Player,digest(md5,secs())))}}
 @tel [u(cobj,ancestor_player)]=[u(cobj,ancestor_room)]
 
 @pageformat [u(cobj,ancestor_player)]=ansi(color(%@,COLOR,PAGE),colornames(%!,%4,PAGES,lwho(%!),%#))
@@ -67,5 +67,5 @@ th u(NEWCONF,pconf,COLOR,PAGE,,For incoming pages.,COLOR)
 th u(NEWCONF,pconf,COLOR,OUTPAGE,,For outgoing pages.,COLOR)
 
 @@ ANCESTOR THING
-@select/inline isbref(u(coi,at))=1,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_THING,u(coi,at))},0,{@select/inline isdbref(u(coi,ae))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_THING,create(Ancestor Thing <AT>))}}
+@select/inline isdbref(u(coi,at))=1,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_THING,u(coi,at))},0,{@select/inline isdbref(u(coi,ae))=0,{th u(attrib_set,u(cobj,mco),COBJ`ANCESTOR_THING,create(Ancestor Thing <AT>))}}
 @tel [u(cobj,ancestor_thing)]=[u(cobj,ancestor_room)]
\ No newline at end of file
diff --git a/Bulletin Board System - BBS.txt b/Bulletin Board System - BBS.txt
index 3dabaaf..bbf9262 100644
--- a/Bulletin Board System - BBS.txt	
+++ b/Bulletin Board System - BBS.txt	
@@ -31,6 +31,7 @@ th u(NEWCOBJ,Volund's Board System <BBS>,bbs,,,,WIZARD SAFE !NO_COMMAND,INHERIT
 
 &FIL`CANREAD`BB [u(cobj,bbs)]=cor(not(u(FUN`READLOCK`BB,%0,%1)),elock(%0,%1),u(isadmin,%1))
 &FIL`CANWRITE`BB [u(cobj,bbs)]=cor(not(u(FUN`WRITELOCK`BB,%0,%1)),elock(%0/enter,%1),u(isadmin,%1))
+&FIL`CANADMIN`BB [u(Cobj,bbs)]=u(isadmin,%1)
 
 &FUN`READLOCK`BB [u(cobj,bbs)]=switch(v(game),PennMUSH,not(strmatch(lock(%0),*UNLOCKED*)),RhostMUSH,t(strlen(lock(%0))))
 &FUN`WRITELOCK`BB [u(cobj,bbs)]=switch(v(game),PennMUSH,not(strmatch(lock(%0/enter),*UNLOCKED*)),RhostMUSH,t(strlen(lock(%0/enter))))
@@ -137,7 +138,7 @@ th u(NEWCONF,config,BBS,GBS,1,Enable group boards?,BOOL)
 
 &FIL`UNREADBB [u(cobj,bbs)]=t(words(setdiff(edit(u(lattr,%0/~`*),~`,),u(FUN`GETREAD,%1,%0))))
 
-&INC`READ`LISTGROUPS [u(cobj,bbs)]=@pemit %#=u(HEADER,u(fun`name,%0,%q<bb>,%q<gid1>));@pemit %#=[space(7)]Board Name[space(20)]Last Post[space(6)]# of messages;@pemit %#=u(SEPARATOR);@dolist %q<visigroups>={th u(setq,listposts,u(FUN`LISTPOSTS,##));@pemit %#=rjust(u(pueblize,u(setr,bbnum,match(%q<allboards>,##)),+[lcstr(%0)]read [match(%q<allboards>,##)]),2)[center(u(FUN`SHOWLOCK,##,%#,%q<gid1>,%0),5)][ljust(u(pueblize,u(moniker,##),+[lcstr(%0)]read %q<bbnum>),30)][ljust(if(u(setr,time,first(elements(u(setr,details,get(##/~`[u(setr,last,last(%q<listposts>))]`DETAILS)),4 3,|,%B))),u(fancyday,%q<time>,%#),None),20)][rjust(words(%q<listposts>),3)]%b[ljust(if(words(setdiff(%q<listposts>,u(FUN`GETREAD,%#,##))),U),2)];@select/inline #@=words(%q<visigroups>),{@pemit %#=u(SEPARATOR)%r'*' = restricted[space(5)]'-' = read only[space(5)]'%(-%)' = read only\, but you can write%r[u(SUBHEADER)]}}
+&INC`READ`LISTGROUPS [u(cobj,bbs)]=@pemit %#=u(HEADER,u(fun`name,%0,%q<bb>,%q<gid1>));@pemit %#=ansi(u(color,%#,COLOR,COLUMN_NAMES),[space(7)]Board Name[space(20)]Last Post[space(6)]# of messages);@pemit %#=u(SEPARATOR);@dolist %q<visigroups>={th u(setq,listposts,u(FUN`LISTPOSTS,##));@pemit %#=rjust(u(pueblize,u(setr,bbnum,match(%q<allboards>,##)),+[lcstr(%0)]read [match(%q<allboards>,##)]),2)[center(u(FUN`SHOWLOCK,##,%#,%q<gid1>,%0),5)][ljust(u(pueblize,u(moniker,##),+[lcstr(%0)]read %q<bbnum>),30)][ljust(if(u(setr,time,first(elements(u(setr,details,get(##/~`[u(setr,last,last(%q<listposts>))]`DETAILS)),4 3,|,%B))),u(fancyday,%q<time>,%#),None),20)][rjust(words(%q<listposts>),3)]%b[ljust(if(words(setdiff(%q<listposts>,u(FUN`GETREAD,%#,##))),U),2)];@select/inline #@=words(%q<visigroups>),{@pemit %#=u(SEPARATOR)%r'*' = restricted[space(5)]'-' = read only[space(5)]'%(-%)' = read only\, but you can write%r[u(SUBHEADER)]}}
 
 &FUN`SHOWLOCK [u(cobj,bbs)]=switch(u(FUN`READLOCK`%3,%0):[u(FUN`WRITELOCK`%3,%0)]:[u(FIL`CANWRITE`%3,%0,%1,%2)],1:*,*,0:1:0,-,0:1:1,lit((-)),0:0:1,)
 
@@ -242,6 +243,8 @@ th u(NEWCONF,config,BBS,GBS,1,Enable group boards?,BOOL)
 
 &MIGRATE`BBS`GROUP [u(cobj,migrate)]=th u(setq,gid1,%0);@dolist get(%0/BOARDS)={@tel ##=[u(cobj,oldbox)];@attach u(cobj,bbs)/INC`NEWGROUP=GB,name(%1);&ORDER %q<bb>=mul(inum(0),10);@cpattr %q<bdb>/BB`##`ANONYMOUS=%q<bb>/ANONYMOUS;@cpattr %q<bdb>/BB`##`NEXT=%q<bb>/NEXT;@cpattr %q<bdb>/BB`##`GREAD=%q<bb>/CANREAD;@cpattr %q<bdb>/BB`##`GWRITE=%q<bb>/CANWRITE;@dolist/inline u(lattr,%1/*)={@cpattr %1/%i0=%q<bb>/~`%i0;@cpattr %1/%i0`HDR=%q<bb>/~`%i0`HDR;@cpattr %1/%i0`TIMEOUT=%q<bb>/~`%i0`TIMEOUT;@cpattr %1/%i0`NOTIMEOUT=%q<bb>/~`%i0`NOTIMEOUT;&~`%i0`DETAILS %q<bb>=u(filter,STRLEN,get(%1/%i0`BY)|[get(%1/%i0`BYDB)]|[get(%1/%i0`ON)]|[get(%1/%i0`EDITED)],|,|)}}
 
+&CONFLICT`BBS [u(cobj,migrate)]=@dolist/inline u(coi,bbs)={@set %i0=NO_COMMAND HALT;@tel %i0=u(cobj,oldbox)}
+
 &FIL`STRLEN [u(cobj,migrate)]=t(strlen(%0))
 
 @@ COMMUNICATIONS - BBS
diff --git a/CORE 01 - Master Code Object - MCO.txt b/CORE 01 - Master Code Object - MCO.txt
index 77aebce..347c105 100644
--- a/CORE 01 - Master Code Object - MCO.txt	
+++ b/CORE 01 - Master Code Object - MCO.txt	
@@ -45,8 +45,8 @@ th if(isdbref(u(cobj,mco)),,setq(0,create(Master Code Object <MCO>))[tel(%q0,swi
 &STARTUP [u(cobj,mco)]=@dolist/inline u(lattr,%!/STARTUP`*)={@include/nobreak %!/##}
 
 &STARTUP`FUNCTIONS [u(cobj,mco)]=@include %!/STARTUP`FUNCTIONS`[v(game)]
-&STARTUP`FUNCTIONS`PENNMUSH [u(cobj,mco)]=@dolist/inline setunion(game_config header subheader separator isadmin isapproved approved sortname color mxpmenu pueblize my_config speech chancolor colornames choosegame sortorder namelink,v(FUNCTIONLIST`EXTRA))={@function %i0=u(cobj,mco),%i0;@function/restrict %i0=localize};@dolist/inline v(FUNCTIONLIST`ADMIN)={@function/restrict %i0=admin}
-&STARTUP`FUNCTIONS`RHOSTMUSH [u(cobj,mco)]=@dolist/inline setunion(align lalign sortkey game_config header subheader separator isadmin isapproved approved moniker lvplayers lvthings lvexits sortname color mxpmenu pueblize strfirstof table my_config speech chancolor colornames choosegame sortorder objid namelink,v(FUNCTIONLIST`EXTRA))={@function/privileged %d0=%!/%d0};@dolist/inline v(FUNCTIONLIST`ADMIN)={@admin function_access=%d0 wizard}
+&STARTUP`FUNCTIONS`PENNMUSH [u(cobj,mco)]=@dolist/inline setunion(game_config header subheader separator isadmin isapproved approved sortname color mxpmenu pueblize my_config speech chancolor colornames choosegame sortorder namelink weblink,v(FUNCTIONLIST`EXTRA))={@function %i0=u(cobj,mco),%i0;@function/restrict %i0=localize};@dolist/inline v(FUNCTIONLIST`ADMIN)={@function/restrict %i0=admin}
+&STARTUP`FUNCTIONS`RHOSTMUSH [u(cobj,mco)]=@dolist/inline setunion(align lalign sortkey game_config header subheader separator isadmin isapproved approved moniker lvplayers lvthings lvexits sortname color mxpmenu pueblize strfirstof table my_config speech chancolor colornames choosegame sortorder objid namelink weblink,v(FUNCTIONLIST`EXTRA))={@function/privileged %d0=%!/%d0};@dolist/inline v(FUNCTIONLIST`ADMIN)={@admin function_access=%d0 wizard}
 
 &FUNCTIONLIST`EXTRA [u(cobj,mco)]=
 &FUNCTIONLIST`ADMIN [u(cobj,mco)]=
@@ -457,7 +457,7 @@ th if(isdbref(u(cobj,mco)),,setq(0,create(Master Code Object <MCO>))[tel(%q0,swi
 @@ Sort section.
 
 &SORTATTR [u(cobj,mco)]=u(SORTATTR`[v(game)],%0,if(strlen(%1),%1,%B),if(strlen(%2),%2,%B))
-&SORTATTR`PENNMUSH [u(cobj,mco)]=sortkey(SRT`ATTRSLOT,%0,%1,%2)
+&SORTATTR`PENNMUSH [u(cobj,mco)]=sortkey(#lambda/last(\%0,`),%0,n,%1,%2)
 &SORTATTR`RHOSTMUSH [u(cobj,mco)]=sortby(#lambda/[lit([ncomp(last(%0,`),last(%1,`))])],%0,%1,%2)
 
 &SORTIDLE [u(cobj,mco)]=u(SORTIDLE`[v(game)],%0,if(strlen(%1),%1,%B),if(strlen(%2),%2,%B))
@@ -515,7 +515,7 @@ th if(isdbref(u(cobj,mco)),,setq(0,create(Master Code Object <MCO>))[tel(%q0,swi
 
 &SYSTEM`NAME [u(cobj,mco)]=SYSTEM
 
-&INC`CHECKPC [u(cobj,mco)]=@check strlen(%0)=@attach %!/INC`MSG=ERROR: You must enter a player name!;@check strlen(%1);@check isdbref(u(setr,t%1,pmatch(%0)))=@attach %!/INC`MSG=ERROR: %0 [if(strmatch(%q<t%1>,#-2*),matches multiple players!,does not match a player!)];th u(setq,t%1objid,u(objid,pmatch(%0)));th u(setq,t%1name,name(pmatch(%0)));th u(setq,t%1acc,u(accid,pmatch(%0)));@select/inline t(%2)=1,{th u(setq,t%1id,u(mysql,GET`ID_FROM_OBJID,u(objid,%0)))}
+&INC`CHECKPC [u(cobj,mco)]=@check strlen(%0)=@attach %!/INC`MSG=ERROR: You must enter a player name!;@check strlen(%1);@check isdbref(u(setr,t%1,pmatch(%0)))=@attach %!/INC`MSG=ERROR: %0 [if(strmatch(%q<t%1>,#-2*),matches multiple players!,does not match a player!)];th u(setq,t%1objid,u(objid,pmatch(%0)));th u(setq,t%1name,name(pmatch(%0)));th u(setq,t%1acc,u(accid,pmatch(%0)));@select/inline t(%2)=1,{th u(setq,t%1id,u(mysql,GET`ID_FROM_OBJID,u(objid,pmatch(%0))))}
 @@ CHECK PC Arguments: %0 = player being checked, %1 = register number to load their data into. %2 - Boolean for also looking up a SQL id.
 
 &INC`IDCHECK [u(cobj,mco)]=@select/inline t(u(setr,id,u(mysql,GET`ID_FROM_OBJID,u(objid,%0))))=0,{@attach %!/INC`DOSQL=INSERT`PLAYER,u(objid,%0),name(%0);@attach %!/INC`IDCHECK}
@@ -626,6 +626,8 @@ th if(isdbref(u(cobj,mco)),,setq(0,create(Master Code Object <MCO>))[tel(%q0,swi
 &PLAYER_CONFIG [u(cobj,mco)]=localize(u(strfirstof,if(isdbref(u(setr,accid,u(accid,%0))),get(%q<accid>/D`CONFIG`%1`%2)),get(%0/D`CONFIG`%1`%2),get(u(cobj,pconf)/DEFAULT`%1`%2)))
 
 &APPROVED [u(cobj,mco)]=u(isapproved,%0)
+&APPROVED2 [u(cobj,mco)]=u(isapproved,%#)
+
 
 &ISAPPROVED [u(cobj,mco)]=if(u(game_config,SYSTEM,REQUIRE_APPROVAL),default(%0/D`APPROVED,0),1)
 
diff --git a/Group Management System - GMS.txt b/Group Management System - GMS.txt
index 011de0a..38e0ad5 100644
--- a/Group Management System - GMS.txt	
+++ b/Group Management System - GMS.txt	
@@ -1,6 +1,5 @@
 @@ DEPENDENCIES: Core
 @@ RECOMMENDED: BBS - Installing the BBS will give each group their own +gboards.
-@@ Group channel recall requires MySQL
 @@ NOTE: Installation requires a @shutdown/reboot or @restart u(cobj,gms) to install grpperm().
 
 th u(NEWCOBJ,Group Management System <GMS>,gms,,,,WIZARD SAFE !NO_COMMAND,INHERIT SIDEFX SAFE)
@@ -104,9 +103,9 @@ th u(NEWCOBJ,Group Object Parent <GOP>,gop,u(cobj,gms),,1,WIZARD SAFE,INHERIT SI
 &ISGROUPMEMBER [u(cobj,gms)]=elock(if(isdbref(%1),%1,u(FUN`FINDGROUP,%1)),%0)
 
 &INC`CHOOSE`+G`DISBAND`MAIN [u(cobj,gms)]=@attach %!/INC`CODE`VALGROUP=u(strfirstof,u(getstat,%#,D`GROUP,Group),0),1;@attach %!/INC`CODE`DISBAND
-&INC`CODE`DISBAND [u(cobj,gms)]=@check u(FUN`GRPPERM,u(objid,%#),%q<gid1>,DISBAND)=@attach %!/INC`MSG=ERROR: Permission denied.;@select/inline t(u(FUN`GETSET,%q<gid1>,MAJOR))=1,{@check u(iswizard,%#)=@attach %!/INC`MSG=ERROR: Disbanding of MAJOR groups is WIZ-ONLY.};@check strmatch(%0,%q<gname1>)=@attach %!/INC`MSG=ERROR: To disband a group, you must also enter its exact name.;@attach %!/INC`VERIFY={WARNING: This will completely disband %q<gname1>. Are you sure you want to continue? Enter the same command again within 10 seconds to Verify!},FAC DELETE %q<gid1>;@attach %!/INC`CODE`CHAT={[ansi(hw,ALERT:)] %n has Disbanded the Group!},OOC,1;@parent %q<gid1>;@name %q<gid1>=%q<gname1>-OLD;@attach %!/INC`MSG=The Group has been disbanded. It has been moved to storage. If this was in error\, please have a wizard [ansi(h,@parent %q<gid1>=[u(cobj,gop)])] and [ansi(h,@name %q<gid1>=%q<gname1>)];@attach %!/INC`MSG`CHAN=DISBANDED Group: %q<gname1>. If this was in error, a wizard can undo this by typing [ansi(h,@parent %q<gid1>=[u(cobj,gop)])] and [ansi(h,@name %q<gid1>=%q<gname1>)]. If This was intentional\, a wizard will need to manually dispose of object %q<gid1> and any Boards it contains. Deletion or relocation will initiate player setting cleanup.
+&INC`CODE`DISBAND [u(cobj,gms)]=@check u(FUN`GRPPERM,u(objid,%#),%q<gid1>,DISBAND)=@attach %!/INC`MSG=ERROR: Permission denied.;@select/inline t(u(FUN`GETSET,%q<gid1>,MAJOR))=1,{@check u(iswizard,%#)=@attach %!/INC`MSG=ERROR: Disbanding of MAJOR groups is WIZ-ONLY.};@check strmatch(%0,%q<gname1>)=@attach %!/INC`MSG=ERROR: To disband a group, you must also enter its exact name.;@attach %!/INC`VERIFY={WARNING: This will completely disband %q<gname1>. Are you sure you want to continue? Enter the same command again within 10 seconds to Verify!},FAC DELETE %q<gid1>;@attach %!/INC`CODE`CHAT={[ansi(hw,ALERT:)] %n has Disbanded the Group!},OOC,1;@parent %q<gid1>;@name %q<gid1>=%q<gname1>-OLD;@attach %!/INC`MSG=The Group has been disbanded. It has been moved to storage. If this was in error\, please have a wizard [ansi(h,@parent %q<gid1>=[u(cobj,gop)])] and [ansi(h,@name %q<gid1>=%q<gname1>)];@attach %!/INC`MSG`CHAN=DISBANDED Group: %q<gname1>. If this was in error\, a wizard can undo this by typing [ansi(h,@parent %q<gid1>=[u(cobj,gop)])] and [ansi(h,@name %q<gid1>=%q<gname1>)]. If This was intentional\, a wizard will need to manually dispose of object %q<gid1> and any Boards it contains. Deletion or relocation will initiate player setting cleanup.;@dolist/inline get(%q<gid1>/MEMBERS)={@attach %!/WIPE=##,D`CACHE}
 
-&PLAYER`CONNECT`GROUPCLEAN [u(cobj,gms)]=@check u(nattr,%0/D`GROUP`*);@check words(u(setr,dbs,edit(u(lattr,%0/D`GROUP`#*),D`GROUP`,)));@check words(u(setr,purge,setdiff(%q<dbs>,lthings(u(cobj,gop)))));@dolist %q<purge>={@wipe %0/D`GROUP`##}
+&PLAYER`CONNECT`GROUPCLEAN [u(cobj,gms)]=@check u(nattr,%0/D`GROUP`*);@check words(u(setr,dbs,edit(u(lattr,%0/D`GROUP`#*),D`GROUP`,)));@check words(u(setr,purge,setdiff(%q<dbs>,lthings(u(cobj,gop)))));@dolist %q<purge>={@attach %!/WIPE=%0,D`GROUP`##;@attach %!/WIPE=%0,D`CACHE}
 
 &PLAYER`DISCONNECT`CLEANGAG [u(cobj,gms)]=@stop %1;@wipe %0/D`GROUP`#*`*GAG
 
diff --git a/Info Management System - IMS.txt b/Info Management System - IMS.txt
index ca21f0e..a82afb3 100644
--- a/Info Management System - IMS.txt	
+++ b/Info Management System - IMS.txt	
@@ -57,5 +57,6 @@ th u(NEWCOBJ,Info Management System <IMS>,ims,,,,WIZARD SAFE !NO_COMMAND,INHERIT
 +shelp/category +info=Character
 &SHLP`+INFO [u(cobj,ims)]=Staff are able to see, create, edit, delete, rename, and otherwise manage +info and +pinfo files on any character. The commands work the same as for players via <name>/<filename>.%R%R[ansi(hc,Staff Commands)]%R[align(5 [sub(u(width,%#),6)],,[ansi(h,+info/lock <player>/<filelist>)] - Lock one or more info files.%R[ansi(h,+info/unlock <player>/<filelist>)] - Unlock one or more info files.%R%RLocked files cannot be edited by players. This is useful for 'approved information' depending on the game.)]
 
+&MIGRATE`INFO [u(cobj,migrate)]=
 
 &CONFLICT`INFO [u(cobj,migrate)]=@tel u(coi,ifo)=u(cobj,oldbox);@set u(coi,ifo)=NO_COMMAND HALT
\ No newline at end of file
diff --git a/Job Management System - JMS.txt b/Job Management System - JMS.txt
index c6b3a14..3033f20 100644
--- a/Job Management System - JMS.txt	
+++ b/Job Management System - JMS.txt	
@@ -4,6 +4,8 @@ th u(NEWCOBJ,Job System,jms,,,,WIZARD SAFE !NO_COMMAND,INHERIT SIDEFX SAFE)
 th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEFX SAFE)
 @describe [u(cobj,jobdb)]=???
 
+th u(newconf,CONFIG,JOBS,DEFAULT_CATEGORY,GENERAL,Name of default +request category?,WORD)
+
 @unlock/basic [u(cobj,jobdb)]
 @lset [u(cobj,jobdb)]/basic=visual
 @lset [u(cobj,jobdb)]/basic=!NO_INHERIT
@@ -27,7 +29,7 @@ th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEF
 @set [u(cobj,jms)]/CMD`+REQUEST`PENNMUSH=regexp
 &CMD`+REQUEST`RHOSTMUSH [u(cobj,jms)]=$^(?s)\+request(?\:/(\\S+))?(?\: +(.+?))?(?\:=(.*))?$:@attach %!/CMD`+REQUEST`MAIN
 @set [u(cobj,jms)]/CMD`+REQUEST`RHOSTMUSH=regexp
-&CMD`+REQUEST`MAIN [u(cobj,jms)]=@attach %!/INC`PARTIAL=%1,u(setr,valcats,iter(u(FUN`VALIDCATS,%#,POST),name(%i0),%b,|)),|,Category,Category;@attach %!/INC`REQUEST=trim(%2),trim(%3),%q<category>,u(objid,%#)
+&CMD`+REQUEST`MAIN [u(cobj,jms)]=@attach %!/INC`PARTIAL=u(strfirstof,%1,u(game_Config,JOBS,DEFAULT_CATEGORY)),u(setr,valcats,iter(u(FUN`VALIDCATS,%#,POST),name(%i0),%b,|)),|,Category,Category;@attach %!/INC`REQUEST=trim(%2),trim(%3),%q<category>,u(objid,%#)
 @set [u(cobj,jms)]/CMD`+REQUEST`[switch(v(game),PennMUSH,RHOSTMUSH,RhostMUSH,PENNMUSH)]=no_command
 
 &INC`REQUEST [u(cobj,jms)]=th u(setq,subm,u(strfirstof,u(objid,%3),u(objid,%#)));@check strlen(%0)=@attach %!/INC`MSG=Available Job categories: [u(itemize,%q<valcats>,|,and,\,)],%q<subm>;@check strlen(%1)=@attach %!/INC`MSG=The Request text field is empty! What are you asking staff?,%q<subm>;@attach %!/INC`PLAYERID=%q<subm>;@select/inline t(%2)=1,{@attach %!/INC`FINDCAT=%2};@attach %!/INC`DOSQL=NEW`REQUEST,%q<pid>,%q<cat>,%0,%1,add(secs(),u(FUN`CONF,%q<cat>,DUE));th u(setr,jid,u(mysql,get`newjob,%q<pid>));@attach %!/INC`AMSGJOB=%q<jid>,{[u(FUN`JOBNAME,%q<jid>,%q<cat>)] has been created[if(%q<cat>,%bunder '%q<catname>')] by [u(FUN`MASKNAME,%q<cat>)].};@attach %!/INC`DOSQL=SET`CHECKDATE,%q<jid>,%q<pid>
@@ -77,9 +79,9 @@ th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEF
 
 &INC`CATNAMECHECK [u(cobj,jms)]=@check strlen(%0)=@attach %!/INC`MSG=You must enter the new category name!;@check cand(valid(name,%0),eq(words(%0),1),lte(strlen(%0),8))=@attach %!/INC`MSG='%0' is not a valid category name. Categories must be valid object names\, contain no spaces\, and be 8 characters or less.
 
-&INC`CATEXIST [u(cobj,jms)]=@stop or(isdbref(u(namegrab,u(FUN`LISTCATS),%0)),strmatch(%0,None))=@attach %!/INC`MSG=A Category by that name already exists!
+&INC`CATEXIST [u(cobj,jms)]=@stop isdbref(u(namegrab,u(FUN`LISTCATS),%0))=@attach %!/INC`MSG=A Category by that name already exists!
 
-&INC`FINDCAT [u(cobj,jms)]=@check strlen(%0)=@attach %!/INC`MSG=No Category Name entered!;@select/inline %0=None,{},{@check words(u(setr,cats,u(FUN`LISTCATS)))=@attach %!/INC`MSG=There are no Categories.;@check isdbref(u(setr,cat,u(objid,u(namegrab,%q<cats>,%0))))=@attach %!/INC`MSG=Category '%0' not found.;th u(setq,catname,name(%q<cat>))}
+&INC`FINDCAT [u(cobj,jms)]=@check strlen(%0)=@attach %!/INC`MSG=No Category Name entered!;@check words(u(setr,cats,u(FUN`LISTCATS)))=@attach %!/INC`MSG=There are no Categories.;@check isdbref(u(setr,cat,u(objid,u(namegrab,%q<cats>,%0))))=@attach %!/INC`MSG=Category '%0' not found.;th u(setq,catname,name(%q<cat>))
 
 &FUN`LISTCATS [u(cobj,jms)]=iter(u(sortname,children(u(cobj,jobdb))),u(objid,%i0))
 
@@ -92,32 +94,33 @@ th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEF
 
 &INC`MAIN [u(cobj,jms)]=@select/inline 1=isint(%0),{@attach %!/INC`DISPLAYJOB=%0},t(strlen(%0)),{@attach %!/INC`DISPLAYCAT=%0,%1},{@select/inline %q<mode>=MYJOBS,{@attach %!/INC`MYJOBS`LIST},{@attach %!/INC`CATLIST}}
 
-&INC`CATLIST [u(cobj,jms)]=@pemit %#=u(HEADER,mudname() Jobs);@pemit %#=align(8 34 4 4 4 4 4 4 4,Name,Description,Pen,App,Dny,Cnc,Over,Due,Anon);@dolist/inline u(FUN`LISTCATS)={@pemit %#=u(FUN`CATEGORYLINE,##)};@pemit %#=u(FUN`CATEGORYLINE);@pemit %#=u(SUBHEADER)
+&INC`CATLIST [u(cobj,jms)]=@pemit %#=u(HEADER,mudname() Jobs);@pemit %#=ansi(u(color,%#,COLOR,COLUMN_NAMES),align(8 34 4 4 4 4 4 4 4,Name,Description,Pen,App,Dny,Cnc,Over,Due,Anon));@pemit %#=u(separator);@dolist/inline u(FUN`LISTCATS)={@pemit %#=u(FUN`CATEGORYLINE,##)};@pemit %#=u(SUBHEADER)
 
-&FUN`CATEGORYLINE [u(cobj,jms)]=align(8 34 4 4 4 4 4 4 4,if(strlen(%0),u(pueblize,name(%0),+[lcstr(%q<mode>)] [name(%0)]),u(pueblize,None,+jobs None)),if(strlen(%0),get(%0/describe),For all uncategorized jobs.),u(mysql,GET`STATUSCOUNT,0,%0),u(mysql,GET`STATUSCOUNT,1,%0),u(mysql,GET`STATUSCOUNT,2,%0),u(mysql,GET`STATUSCOUNT,3,%0),u(mysql,GET`OVERDUE,%0),u(strfirstof,u(etime,u(FUN`CONF,%0,DUE)),0),u(FUN`CONF,%0,ANONYMOUS))
+&FUN`CATEGORYLINE [u(cobj,jms)]=align(8 34 4 4 4 4 4 4 4,u(pueblize,name(%0),+[lcstr(%q<mode>)] [name(%0)]),get(%0/describe),u(mysql,GET`STATUSCOUNT,0,%0),u(mysql,GET`STATUSCOUNT,1,%0),u(mysql,GET`STATUSCOUNT,2,%0),u(mysql,GET`STATUSCOUNT,3,%0),u(mysql,GET`OVERDUE,%0),u(strfirstof,u(etime,u(FUN`CONF,%0,DUE)),0),u(FUN`CONF,%0,ANONYMOUS))
 
 &Q`GET`STATUSCOUNT [u(cobj,jms)]=SELECT count(job_id) FROM $JOBS$ where job_status=? AND job_objid=?
 &Q`GET`OVERDUE [u(cobj,jms)]=SELECT count(job_id) FROM $JOBS$ WHERE job_status=0 AND job_objid=? AND due_date<NOW()
 
 &INC`OLD [u(cobj,jms)]=th u(setq,old,OLD);@attach %!/INC`MAIN
 
-&INC`DISPLAYCAT [u(cobj,jms)]=@switch/inline %0=None,{@check u(isadmin,%#)=@attach %!/INC`MSG=Permission denied.},{@attach %!/INC`FINDCAT=%0;@attach %!/INC`PERMCHECKCAT=%#,ADMIN,%q<cat>};th u(setq,total,u(mysql,GET`JOBLISTCATCOUNT%q<old>,%q<cat>));@switch/inline u(valnum,%1)=1,{th u(setq,page,bound(%1,1,u(setr,max,ceil(fdiv(%q<total>,30)))))},{th u(setq,page,1,max,ceil(fdiv(%q<total>,30)))};@pemit %#=u(HEADER,mudname() - [u(strfirstof,%q<catname>,Uncategorized)] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline revwords(u(mysql,GET`JOBLISTCAT%q<old>,%q<cat>,mul(30,sub(%q<page>,1))))={@pemit %#=u(FUN`LISTJOBSTAFF,##)};@pemit %#=u(SUBHEADER,if(gt(%q<page>,1),ansi(hg,u(pueblize,<,+job[if(strlen(%q<old>),/old)] [u(strfirstof,%q<catname>,None)]=[sub(%q<page>,1)])),ansi(hx,<))%BPage %q<page> of [bound(%q<max>,1)]%B[if(lt(%q<page>,%q<max>),ansi(hg,u(pueblize,>,+job[if(strlen(%q<old>),/old)] [u(strfirstof,%q<catname>,None)]=[add(%q<page>,1)])),ansi(hx,>))])
+&INC`DISPLAYCAT [u(cobj,jms)]=@attach %!/INC`FINDCAT=%0;@attach %!/INC`PERMCHECKCAT=%#,ADMIN,%q<cat>;th u(setq,total,u(mysql,GET`JOBLISTCATCOUNT%q<old>,%q<cat>));@switch/inline u(valnum,%1)=1,{th u(setq,page,bound(%1,1,u(setr,max,ceil(fdiv(%q<total>,30)))))},{th u(setq,page,1,max,ceil(fdiv(%q<total>,30)))};@pemit %#=u(HEADER,mudname() - %q<catname> Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline revwords(u(mysql,GET`JOBLISTCAT%q<old>,%q<cat>,mul(30,sub(%q<page>,1))))={@pemit %#=u(FUN`LISTJOBSTAFF,##)};@pemit %#=u(SUBHEADER,if(gt(%q<page>,1),ansi(hg,u(pueblize,<,+job[if(strlen(%q<old>),/old)] %q<catname>=[sub(%q<page>,1)])),ansi(hx,<))%BPage %q<page> of [bound(%q<max>,1)]%B[if(lt(%q<page>,%q<max>),ansi(hg,u(pueblize,>,+job[if(strlen(%q<old>),/old)] %q<catname>=[add(%q<page>,1)])),ansi(hx,>))])
+
+&INC`SCAN [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)))=@attach %!/INC`MSG=Permission denied.;@dolist/inline u(setr,maincount,u(filter,UNREADCAT,%q<cats>,%B,%B,%q<pid>))={th u(setq,had,1);@pemit %#=u(HEADER,mudname() - New [name(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0))] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline u(mysql,GET`NEWJOBSCAT,%q<pid>,if(isint(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),%q<pid>)={@pemit %#=u(FUN`LISTJOBSTAFF,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0))};@select/inline #@=words(%q<maincount>),{@pemit %#=u(SUBHEADER)}};@select/inline not(%q<had>)=1,{@attach %!/INC`MSG=There are no new jobs in the system!}
 
-&INC`SCAN [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)[if(u(FUN`PERMCHECK,None,Admin,%#),%b1)]))=@attach %!/INC`MSG=Permission denied.;@dolist/inline u(setr,maincount,u(filter,UNREADCAT,%q<cats>,%B,%B,%q<pid>))={th u(setq,had,1);@pemit %#=u(HEADER,mudname() - New [if(u(isobjid,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),name(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),Uncategorized)] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline u(mysql,GET`NEWJOBSCAT,%q<pid>,if(isint(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),%q<pid>)={@pemit %#=u(FUN`LISTJOBSTAFF,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0))};@select/inline #@=words(%q<maincount>),{@pemit %#=u(SUBHEADER,Showing 20 Per Category)}};@select/inline not(%q<had>)=1,{@attach %!/INC`MSG=There are no new jobs in the system!}
+&FIL`UNREADCAT [u(cobj,jms)]=t(u(mysql,GET`NEWJOBSCATCOUNT,%1,%0,%1))
 
-&FIL`UNREADCAT [u(cobj,jms)]=t(u(mysql,GET`NEWJOBSCATCOUNT,%1,if(isint(%0),,%0),%1))
+&Q`GET`NEWJOBSCAT [u(cobj,jms)]=SELECT jobs.job_id FROM $DATABASE$.$JOBS$ as jobs LEFT JOIN $DATABASE$.$CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL OR jobs.job_status=0 OR (jobs.job_status>0 AND jobs.close_date>= UTC_TIMESTAMP() - INTERVAL 7 DAY)) order by jobs.job_id ASC
+&Q`GET`NEWJOBSCATCOUNT [u(cobj,jms)]=SELECT count(jobs.job_id) FROM $DATABASE$.$JOBS$ as jobs LEFT JOIN $DATABASE$.$CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL OR jobs.job_status=0 OR (jobs.job_status>0 AND jobs.close_date>= UTC_TIMESTAMP() - INTERVAL 7 DAY)) order by jobs.job_id ASC
 
-&Q`GET`NEWJOBSCAT [u(cobj,jms)]=SELECT jobs.job_id FROM $JOBS$ as jobs LEFT JOIN $CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL) order by jobs.job_id ASC LIMIT 20
-&Q`GET`NEWJOBSCATCOUNT [u(cobj,jms)]=SELECT count(jobs.job_id) FROM $JOBS$ as jobs LEFT JOIN $CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL) order by jobs.job_id
+&INC`NEXT [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)))=@attach %!/INC`MSG=Permission denied.;@check u(setr,next,u(mysql,GET`NEXTJOB,%q<pid>,u(SQL`IN`STRING,%q<cats>)))=@attach %!/INC`MSG=There are no unread jobs to see!;@attach %!/INC`DISPLAYJOB=%q<next>
 
-&INC`NEXT [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)[if(u(FUN`PERMCHECK,None,Admin,%#),%b1)]))=@attach %!/INC`MSG=Permission denied.;@dolist/inline u(setr,maincount,u(filter,NEXTJOBS,%q<cats>,%B,%B,%q<pid>))={th u(setq,had,1);@pemit %#=u(HEADER,mudname() - New [if(u(isobjid,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),name(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),Uncategorized)] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline u(mysql,GET`NEXTJOBSCAT,%q<pid>,if(isint(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),%q<pid>)={@attach %!/INC`DISPLAYJOB=switch(v(game),PennMUSH,%i0,RhostMUSH,%d0);@stop 1};@attach %!/INC`MSG=There are no unread jobs in the system!
+&FIL`NEXTJOBS [u(cobj,jms)]=t(u(mysql,GET`NEXTJOBSCATCOUNT,%1,%0,%1))
 
-&FIL`NEXTJOBS [u(cobj,jms)]=t(u(mysql,GET`NEXTJOBSCATCOUNT,%1,if(isint(%0),,%0),%1))
+&Q`GET`NEXTJOB [u(cobj,jms)]=SELECT jobs.job_id FROM $JOBS$ as jobs LEFT JOIN $CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid IN (!) AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL) order by jobs.job_id ASC LIMIT 1
 
-&Q`GET`NEXTJOBSCAT [u(cobj,jms)]=SELECT jobs.job_id FROM $JOBS$ as jobs LEFT JOIN $CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL) AND NOT (jobs.job_status>0 AND jobs.close_date <= UTC_TIMESTAMP() - INTERVAL 14 DAY) order by jobs.job_id ASC LIMIT 1
-&Q`GET`NEXTJOBSCATCOUNT [u(cobj,jms)]=SELECT count(jobs.job_id) FROM $JOBS$ as jobs LEFT JOIN $CHECK$ as readtime ON jobs.job_id=readtime.job_id AND readtime.player_id=? WHERE jobs.job_objid=? AND (readtime.check_date<=jobs.job_activity OR readtime.player_id IS NULL) AND NOT (jobs.job_status>0 AND jobs.close_date <= UTC_TIMESTAMP() - INTERVAL 14 DAY) order by jobs.job_id
+@@ AND NOT (jobs.job_status>0 AND jobs.close_date <= UTC_TIMESTAMP() - INTERVAL 14 DAY)
 
-&INC`PENDING [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)[if(u(FUN`PERMCHECK,None,Admin,%#),%b1)]))=@attach %!/INC`MSG=Permission denied.;@dolist/inline u(setr,maincount,u(filter,PENDINGCOUNT,%q<cats>,%b,%B,%q<pid>))={th u(setq,had,1);@pemit %#=u(HEADER,mudname() - New [if(u(isobjid,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),name(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),Uncategorized)] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline u(mysql,GET`PENJOBSCAT,%q<pid>,if(isint(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),%q<pid>)={@pemit %#=u(FUN`LISTJOBSTAFF,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0))};@select/inline #@=1,{@pemit %#=u(SUBHEADER,Showing 20 Per Category)}};@select/inline not(%q<had>)=1,{@attach %!/INC`MSG=There are no new jobs in the system!}
+&INC`PENDING [u(cobj,jms)]=@check u(setr,cats,trim(u(FUN`VALIDCATS,%#,ADMIN)))=@attach %!/INC`MSG=Permission denied.;@dolist/inline u(setr,maincount,u(filter,PENDINGCOUNT,%q<cats>,%b,%B,%q<pid>))={th u(setq,had,1);@pemit %#=u(HEADER,mudname() - New [if(u(isobjid,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),name(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),Uncategorized)] Jobs);@pemit %#=align(2 >4 15 15 5 16 5 6,*,ID,Submitter,Title,Due,Claimed,Upd,Attn);@pemit %#=u(SEPARATOR);@dolist/inline u(mysql,GET`PENJOBSCAT,%q<pid>,if(isint(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)),%q<pid>)={@pemit %#=u(FUN`LISTJOBSTAFF,switch(v(game),PennMUSH,%i0,RhostMUSH,%d0))};@select/inline #@=1,{@pemit %#=u(SUBHEADER,Showing 20 Per Category)}};@select/inline not(%q<had>)=1,{@attach %!/INC`MSG=There are no new jobs in the system!}
 
 &FIL`PENDINGCOUNT [u(cobj,jms)]=t(u(mysql,GET`PENJOBSCATCOUNT,%q<pid>,if(isint(\%0),,\%0),%q<pid>))
 
@@ -252,6 +255,9 @@ th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEF
 
 &Q`RENAME`PLAYER [u(cobj,jms)]=UPDATE $PLAYERS$ SET player_name=? WHERE objid=?
 
+&MIGRATE`JOBS [u(cobj,migrate)]=@dolist/inline children(u(coi,jobdb))={@tel %i0=u(cobj,jobdb);@parent %i0=u(cobj,jobdb)}
+
+&CONFLICT`JOBS [u(cobj,migrate)]=@dolist u(coi,jobsys)={@tel %i0=u(cobj,oldbox);@set %i0=NO_COMMAND HALT}
 
 @@ INSTALL AND SQL CONFIG
 &Q`INSTALL`PLAYERS [u(cobj,jms)]=CREATE TABLE IF NOT EXISTS $PLAYERS$ (player_id BIGINT(31) UNSIGNED NOT NULL AUTO_INCREMENT,objid VARCHAR(30) NOT NULL,player_name VARCHAR(60) NOT NULL DEFAULT 'Unset',PRIMARY KEY(player_id),UNIQUE KEY player_objid (objid)) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1
@@ -276,7 +282,8 @@ th u(NEWCOBJ,Jobs Database <JOBDB>,jobdb,u(cobj,jms),,,WIZARD SAFE,INHERIT SIDEF
 
 @trigger [u(cobj,jms)]/TRG`INSTALL
 
-&PLAYER`CONNECT`MYJOBS [u(cobj,jms)]=@check u(isadmin,%0);@wait 2=@force %0=+myjobs
+&PLAYER`CONNECT [u(cobj,jms)]=@dolist/inline u(lattr,%!/PLAYER`CONNECT`*)={@trigger %!/##=%0,%1,%2,%3,%4,%5,%6,%7,%8,%9}
+&PLAYER`CONNECT`MYJOBS [u(cobj,jms)]=@wait 2=@select/inline u(isadmin,%0)=1,{@force %0=+job/scan},0,{@force %0=+myjobs}
 
 +help/add +job=[u(cobj,jms)]/HLP`+JOB
 +help/category +job=Communications
diff --git a/scenesys/Scene System - SCENE.txt b/scenesys/Scene System - SCENE.txt
index 41297c6..7e229e1 100644
--- a/scenesys/Scene System - SCENE.txt	
+++ b/scenesys/Scene System - SCENE.txt	
@@ -39,7 +39,7 @@ th u(NEWCONF,config,POT,TIMEOUT,28800,Time to keep poses?,DURATION)
 
 th u(NEWCONF,pconf,IC,QUOTES,,For IC quotations.,COLOR)
 th u(NEWCONF,pconf,IC,SPEECH,,For IC dialogue.,COLOR)
-th u(NEWCONF,pconf,IC,BORDERS,0,Show borders around poses?,BOOL)
+th u(NEWCONF,pconf,IC,BORDERS,1,Show borders around poses?,BOOL)
 th u(NEWCONF,pconf,ALERTS,SCENES,0,Show upcoming scenes on logon?,BOOL)
 
 &SYSTEM`NAME [u(cobj,scene)]=SCENESYS
@@ -96,9 +96,9 @@ th u(NEWCONF,pconf,ALERTS,SCENES,0,Show upcoming scenes on logon?,BOOL)
  
 &INC`FOOTER [u(cobj,scene)]=@check u(isic,u(objid,owner(%#)));th u(setq,poser,End of [ansi(hw,u(moniker,u(objid,owner(%#))))]'s pose[if(u(setr,spoof,get(%#/D`SCENE`SPOOF)),%B\(as [u(moniker,%q<spoof>)]\))]%b);@dolist/inline %q<footrecp>={@select/inline t(u(player_config,##,IC,BORDERS))=1,{@pemit ##=u(subheader,%q<logheader>%q<poser>,##)}}
 
-&INC`POTRECORD [u(cobj,scene)]=@check cor(cand(u(isic,%#),not(get(%l/D`POT))),cand(not(u(isic,%#)),get(%l/D`POT)));th u(attrib_set,%l,u(setr,potattr,D`POSES`[u(nextslot,%l,D`POSES)]),%1);&%q<potattr>`CUSTLOC %l=%2;&%q<potattr>`TYPE %l=switch(%0,@EMIT,|,SAY,",SEMIPOSE,;,POSE,:);&%q<potattr>`BY %l=owner(%#);&%q<potattr>`WHEN %l=secs();@switch/inline gt(u(setr,count,u(nattr,%l/D`POSES`*)),80)=1,{@dolist/inline elements(u(sortattr,u(lattr,%l/D`POSES`*)),lnum(1,sub(%q<count>,80)))=@attach %!/WIPE=%l,##}
+&INC`POTRECORD [u(cobj,scene)]=@check cand(u(isic,%#),not(get(%l/D`NOPOT)));th u(attrib_set,%l,u(setr,potattr,D`POSES`[u(nextslot,%l,D`POSES)]),%1);&%q<potattr>`CUSTLOC %l=%2;&%q<potattr>`TYPE %l=switch(%0,@EMIT,|,SAY,",SEMIPOSE,;,POSE,:);&%q<potattr>`BY %l=owner(%#);&%q<potattr>`WHEN %l=secs();@switch/inline gt(u(setr,count,u(nattr,%l/D`POSES`*)),80)=1,{@dolist/inline elements(u(sortattr,u(lattr,%l/D`POSES`*)),lnum(1,sub(%q<count>,80)))=@attach %!/WIPE=%l,##}
 
-&INC`POT`MAIN [u(cobj,scene)]=@check cor(cand(u(isic,%#),not(get(%l/D`POT))),cand(not(u(isic,%#)),get(%l/D`POT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@switch/inline default(%#/D`POT`MODE,0)=0,{@attach %!/INC`POT`LIST},1,{@attach %!/INC`POT`BRIEF}
+&INC`POT`MAIN [u(cobj,scene)]=@check cand(u(isic,%#),not(get(%l/D`NOPOT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@switch/inline default(%#/D`POT`MODE,0)=0,{@attach %!/INC`POT`LIST},1,{@attach %!/INC`POT`BRIEF}
 &FIL`POSELOC [u(cobj,scene)]=strmatch(get(%1/%0`CUSTLOC),%2)
 
 &FUN`POT`POSES [u(cobj,scene)]=u(filter,POSELOC,u(sortpot,u(lattr,%0/D`POSES`*)),%b,%b,%0,%2)
@@ -112,17 +112,17 @@ th u(NEWCONF,pconf,ALERTS,SCENES,0,Show upcoming scenes on logon?,BOOL)
 &FUN`POT`LASTPOSE [u(cobj,scene)]=localize(last(u(filter,poseby,u(FUN`POT`POSES,%0,%1),%b,%b,%2)))
 &FIL`POSEBY [u(cobj,scene)]=strmatch(get(%1/%0`BY),%2)
 
-&INC`POT`BRIEF [u(cobj,scene)]=@check cor(cand(u(isic,%#),not(get(%l/D`POT))),cand(not(u(isic,%#)),get(%l/D`POT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@select/inline u(strfirstof,%0,get(%#/D`POT`MAX))=0,{th u(setq,max,0)},>0,{th u(setq,max,%0)},{th u(setq,max,15)};@check words(u(setr,poses,if(%q<max>,revwords(elements(revwords(u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#))),lnum(1,%q<max>))),u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#)))))=@attach %!/INC`MSG=No active RP in the room!;@pemit %#=u(HEADER,RP Activity for [u(moniker,%l)]);@pemit %#=ansi(u(color,%#,POT,COLUMN_NAMES),align(20 4 4 [sub(u(width,%#),31)],Name,Pose,Idle,Summary));@pemit %#=u(separator);@dolist/inline %q<poses>=@pemit %#=align(20 4 4 [sub(u(width,%#),31)],u(pueblize,u(moniker,get(%l/##`BY)),+pot/last [name(get(%l/##`BY))]),ansi(u(ryg,round(mul(fdiv(bound(sub(secs(),get(%l/##`WHEN)),0,3600),3600),100),0)),u(smalltime,sub(secs(),get(%l/##`WHEN)))),ansi(u(ryg,round(mul(fdiv(bound(idle(get(%l/##`BY)),0,3600),3600),100),0)),u(smalltime,idle(get(%l/##`BY)))),get(%l/##`SUMMARY));@pemit %#=u(SUBHEADER)
+&INC`POT`BRIEF [u(cobj,scene)]=@check cand(u(isic,%#),not(get(%l/D`NOPOT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@select/inline u(strfirstof,%0,get(%#/D`POT`MAX))=0,{th u(setq,max,0)},>0,{th u(setq,max,%0)},{th u(setq,max,15)};@check words(u(setr,poses,if(%q<max>,revwords(elements(revwords(u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#))),lnum(1,%q<max>))),u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#)))))=@attach %!/INC`MSG=No active RP in the room!;@pemit %#=u(HEADER,RP Activity for [u(moniker,%l)]);@pemit %#=ansi(u(color,%#,POT,COLUMN_NAMES),align(20 4 4 [sub(u(width,%#),31)],Name,Pose,Idle,Summary));@pemit %#=u(separator);@dolist/inline %q<poses>=@pemit %#=align(20 4 4 [sub(u(width,%#),31)],u(pueblize,u(moniker,get(%l/##`BY)),+pot/last [name(get(%l/##`BY))]),ansi(u(ryg,round(mul(fdiv(bound(sub(secs(),get(%l/##`WHEN)),0,3600),3600),100),0)),u(smalltime,sub(secs(),get(%l/##`WHEN)))),ansi(u(ryg,round(mul(fdiv(bound(idle(get(%l/##`BY)),0,3600),3600),100),0)),u(smalltime,idle(get(%l/##`BY)))),get(%l/##`SUMMARY));@pemit %#=u(SUBHEADER)
 
-&INC`POT`LAST [u(cobj,scene)]=@check cor(cand(u(isic,%#),not(get(%l/D`POT))),cand(not(u(isic,%#)),get(%l/D`POT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@attach %!/INC`CHECKPC=%0,1;@check strmatch(loc(%q<t1>),%l)=@attach %!/INC`MSG=%q<t1name> is not in the room!;@check strlen(u(setr,pose,u(FUN`POT`LASTPOSE,%l,u(%l/D`CUSTLOC,%#),%q<t1>)))=@attach %!/INC`MSG=%q<t1name> hasn't posed in this room.;@pemit %#=u(header,%q<t1name>'s Last Pose [u(smalltime,u(setr,ago,sub(secs(),get(%l/%q<pose>`WHEN))))] Ago);@pemit %#=u(FUN`FORMATPOSE,%#,%q<t1>,get(%l/%q<pose>`TYPE),u(trimlines,get(%l/%q<pose>)),IC,u(FUN`POT`POSERS,%l,u(%l/D`CUSTLOC,%#)));@pemit %#=u(subheader)
+&INC`POT`LAST [u(cobj,scene)]=@check cand(u(isic,%#),not(get(%l/D`NOPOT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@attach %!/INC`CHECKPC=%0,1;@check strmatch(loc(%q<t1>),%l)=@attach %!/INC`MSG=%q<t1name> is not in the room!;@check strlen(u(setr,pose,u(FUN`POT`LASTPOSE,%l,u(%l/D`CUSTLOC,%#),%q<t1>)))=@attach %!/INC`MSG=%q<t1name> hasn't posed in this room.;@pemit %#=u(header,%q<t1name>'s Last Pose [u(smalltime,u(setr,ago,sub(secs(),get(%l/%q<pose>`WHEN))))] Ago);@pemit %#=u(FUN`FORMATPOSE,%#,%q<t1>,get(%l/%q<pose>`TYPE),u(trimlines,get(%l/%q<pose>)),IC,u(FUN`POT`POSERS,%l,u(%l/D`CUSTLOC,%#)));@pemit %#=u(subheader)
 
 &INC`POT`MODE [u(cobj,scene)]=&D`POT`MODE %#=u(setr,mode,not(get(%#/D`POT`MODE)));@attach %!/INC`MSG=+pot will now default to +pot/[if(%q<mode>,summary,list)]
 
-&INC`POT`LIST [u(cobj,scene)]=@check cor(cand(u(isic,%#),not(get(%l/D`POT))),cand(not(u(isic,%#)),get(%l/D`POT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@select/inline u(strfirstof,%0,get(%#/D`POT`MAX))=0,{th u(setq,max,0)},>0,{th u(setq,max,%0)},{th u(setq,max,15)};@check words(u(setr,poses,if(%q<max>,revwords(elements(revwords(u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#))),lnum(1,%q<max>))),u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#)))))=@attach %!/INC`MSG=No active RP in the room!;th u(setq,players,u(lplayers,%l));@pemit %#=u(header,Recent Poses);@dolist %q<poses>={@pemit %#=u(separator,u(moniker,get(%l/##`BY)) posed [ansi(c,trim(u(smalltime,sub(secs(),get(%l/##`WHEN)))))] Ago);@pemit %#=u(FUN`FORMATPOSE,%#,get(%l/##`BY),get(%l/##`TYPE),get(%l/##),u(lplayers,%l));@switch/inline #@=words(%q<poses>),{@pemit %#=u(subheader,End of Poses)}}
+&INC`POT`LIST [u(cobj,scene)]=@check cand(u(isic,%#),not(get(%l/D`NOPOT)))=@attach %!/INC`MSG=ERROR: +pot is disabled in this location.;@select/inline u(strfirstof,%0,get(%#/D`POT`MAX))=0,{th u(setq,max,0)},>0,{th u(setq,max,%0)},{th u(setq,max,15)};@check words(u(setr,poses,if(%q<max>,revwords(elements(revwords(u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#))),lnum(1,%q<max>))),u(FUN`POT`POSES,%l,u(%l/D`CUSTLOC,%#)))))=@attach %!/INC`MSG=No active RP in the room!;th u(setq,players,u(lplayers,%l));@pemit %#=u(header,Recent Poses);@dolist %q<poses>={@pemit %#=u(separator,u(moniker,get(%l/##`BY)) posed [ansi(c,trim(u(smalltime,sub(secs(),get(%l/##`WHEN)))))] Ago);@pemit %#=u(FUN`FORMATPOSE,%#,get(%l/##`BY),get(%l/##`TYPE),get(%l/##),u(lplayers,%l));@switch/inline #@=words(%q<poses>),{@pemit %#=u(subheader,End of Poses)}}
 
 &INC`POT`MAX [u(cobj,scene)]=@check u(valnum,%0)=@attach %!/INC`MSG=ERROR: You must enter a whole number greater than 0 for your maximum poses!;&D`POT`MAX %#=%0;@attach %!/INC`MSG=You will now see only the last %0 poses in +pot.
 
-&INC`POT`TOGGLE [u(cobj,scene)]=@check cor(controls(%#,%l),u(isadmin,%#))=@attach %!/INC`MSG=ERROR: Permission denied.;@attach %!/INC`MSG`ROOM=Pot will [if(u(setr,mode,not(get(%l/D`POT))),no longer,now)]%bfunction in this location.,lcon(%l);&D`POT %l=%q<mode>
+&INC`POT`TOGGLE [u(cobj,scene)]=@check cor(controls(%#,%l),u(isadmin,%#))=@attach %!/INC`MSG=ERROR: Permission denied.;@attach %!/INC`MSG`ROOM=Pot will [if(u(setr,mode,not(get(%l/D`NOPOT))),no longer,now)]%bfunction in this location.,lcon(%l);&D`NOPOT %l=%q<mode>
 
 &Q`GET`ACTIVEHERE [u(cobj,scene)]=SELECT scene_id from $SCENES$ WHERE room_objid=? AND room_custloc=? AND scene_state='0'
 
@@ -136,6 +136,7 @@ th u(NEWCONF,pconf,ALERTS,SCENES,0,Show upcoming scenes on logon?,BOOL)
 
 &INC`SCENE`SETUP [u(cobj,scene)]=@select/inline cand(u(isadmin,%#),strlen(%0))=1,{@attach %!/INC`CHECKPC=%0,1},0,{@attach %!/INC`CHECKPC=%#,1};@select/inline gt(u(setr,id,u(mysql,get`playerid,%q<t1objid>)),0)=1,{@attach %!/INC`DOSQL=RENAME`PLAYER,%q<t1name>,%q<t1objid>},0,{@attach %!/INC`DOSQL=INIT`PLAYER,%q<t1objid>,%q<t1name>};@attach %!/INC`MSG=[if(strmatch(u(objid,%#),%q<t1objid>),You set yourself up for SceneSys.,You have set %q<t1name> up for SceneSys.)] The unique Char_id is: [ansi(h,u(mysql,get`playerid,%q<t1objid>))]
 
+&OBJECT`RENAME [u(cobj,scene)]=@dolist/inline u(lattr,%!/OBJECT`RENAME`*)={@trigger %!/##=%0,%1,%2,%3,%4,%5,%6,%7,%8,%9}
 &OBJECT`RENAME`CHARID [u(cobj,scene)]=@select/inline type(%0)=PLAYER,{@check u(setr,pid,u(mysql,get`playerid,%0));th u(mysql,rename`player,%1,%0)}
 
 &INC`SCENE`CHARID [u(cobj,scene)]=@select/inline t(strlen(%0))=1,{@attach %!/INC`CHECKPC=%0,1},0,{@attach %!/INC`CHECKPC=%#,1};@check gt(u(setr,id,u(mysql,get`playerid,%q<t1objid>)),0)=@attach %!/INC`MSG=%q<t1name> does not have a Char_id.;@attach %!/INC`MSG=The Unique Char_id for %q<t1name> is: [ansi(h,%q<id>)]
diff --git a/unfinished/Default Comms.txt b/unfinished/Default Comms.txt
deleted file mode 100644
index 7d52c7c..0000000
--- a/unfinished/Default Comms.txt	
+++ /dev/null
@@ -1,16 +0,0 @@
-@@ These are some recommended defaults to run after installing all the Core stuff!
-
-+key/make ADMIN
-
-@wait 1=+bbnewgroup Admin
-@wait 2=+bblock Admin/read=ADMIN
-@wait 2=+bblock Admin/write=ADMIN
-
-@wait 2=+channel/add Admin=hm
-@wait 2=+channel/add **Staff Alerts**=hr
-
-@wait 3=@chan/on Admin
-@wait 3=@chan/on **Staff Alerts**
-
-@wait 4=+clock Admin=ADMIN
-@wait 4=+clock **Staff Alerts**=ADMIN
\ No newline at end of file
diff --git a/unfinished/storyteller/Character Data Editor - DATA.txt b/unfinished/storyteller/Character Management System - DATA.txt
similarity index 98%
rename from unfinished/storyteller/Character Data Editor - DATA.txt
rename to unfinished/storyteller/Character Management System - DATA.txt
index f260a71..fd37ce6 100644
--- a/unfinished/storyteller/Character Data Editor - DATA.txt	
+++ b/unfinished/storyteller/Character Management System - DATA.txt	
@@ -9,7 +9,7 @@ th u(newcobj,Character Data Editor <DATA>,data,,,,WIZARD SAFE !NO_COMMAND,INHERI
 &CMD`+EDITCHAR`MAIN [u(cobj,data)]=@attach %!/INC`GETSWITCH=%1;th iter(before(%2,=),u(setq,chr(add(inum(0),64)),%i0),|);@attach %!/INC`CHECKPC=%qa,1;@check strlen(%qb)=@attach %!/INC`MSG=ERROR: No Type entered to %q<switch> Your choices are: [itemize(iter(u(lattr,[u(cobj,data)]/INC`%q<switch>`*,|),last(%i0,`),|,|),|,and,\,)]!;@attach %!/INC`PARTIAL=%qb,iter(u(lattr,%!/INC`%q<switch>`*,|),last(%i0,`),|,|),|,topic,option;@attach [u(cobj,data)]/INC`%q<switch>`%q<topic>=%q<t1>,after(iter(%2,trim(%i0),|,|),elements(%2,1,|)|),squish(squish(trim(%3)),|)
 @set [u(cobj,data)]/CMD`+EDITCHAR`[switch(v(game),PennMUSH,RHOSTMUSH,RhostMUSH,PENNMUSH)]=no_command
 
-&GETCLASS [u(cobj,data)]=u(strfirstof,u(getstat,%0,D`INFO,Sphere),Mortal)
+&GETCLASS [u(cobj,data)]=u(strfirstof,u(getstat,%0,D`INFO,Class),Mortal)
 &GETPOWER [u(cobj,data)]=u(strfirstof,u(getstat,%0,D`INFO,Power),1)
 &GETBONUS [u(cobj,data)]=add(u(getstat,%0,D`BONUS,%1),u(GETBONUS`[u(getclass,%0)],%0,%1))
 
diff --git a/unfinished/storyteller/Experience Management System - XP.txt b/unfinished/storyteller/Experience Management System - XP.txt
index fc74b89..c635e8a 100644
--- a/unfinished/storyteller/Experience Management System - XP.txt	
+++ b/unfinished/storyteller/Experience Management System - XP.txt	
@@ -38,6 +38,10 @@ th u(newcobj,STORYTELLER: Experience Management System <XP>,xp,,,,WIZARD SAFE !N
 
 &Q`INSERT`XP [u(cobj,xp)]=INSERT INTO $EXPERIENCE$ (xp_objid,xp_type,xp_amount,xp_reason,xp_admin,xp_date) VALUES (?,?,?,?,?,UTC_TIMESTAMP())
 
+&Q`INSERT`XP2 [u(cobj,xp)]=INSERT INTO $EXPERIENCE$ (xp_objid,xp_type,xp_amount,xp_reason,xp_admin,xp_date) VALUES (?,?,?,?,?,FROM_UNIXTIME(?))
+
+
+
 &INC`DELETE [u(cobj,xp)]=@attach %!/INC`CHECKPC=%0,1;@check u(valnum,%2)=@attach %!/INC`MSG=%q<type> entries must be addressed via whole and positive numbers!;@check u(setr,rowid,u(mysql,GET`XP_ID_ROW,%q<t1objid>,%q<root>,sub(%2,1)))=@attach %!/INC`MSG=ERROR: %q<t1name> does not have a [u(numth,%2)] XP entry.;th u(setq,amount,u(mysql,GET`AMOUNT,%q<rowid>));th u(setq,reason,u(mysql,GET`REASON,%q<rowid>));@attach %!/INC`DOSQL=DELETE`ROW,%q<rowid>;th u(setq,msg,%q<type> Entry %2 was [ansi(hr,DELETED)]. Amount Was: %q<amount>. Reason Was: %q<reason>);@attach %!/DO`ANNOUNCE=%q<t1>,{[ansi(h,%q<t1name>)]'s %q<msg>},{Your %q<msg>},{[ansi(h,%q<t1name>)]'s %q<msg>};@attach %!/WIPE=%q<t1>,D`%q<root>`%1`%2
 
 &Q`GET`XP_ID_ROW [u(cobj,xp)]=SELECT xp_id FROM $EXPERIENCE$ WHERE xp_objid=? AND xp_type=? ORDER BY xp_id LIMIT 1 OFFSET ?
diff --git a/unfinished/storyteller/Experience Point Tracker - XP.txt b/unfinished/storyteller/Experience Point Tracker - XP.txt
deleted file mode 100644
index be564be..0000000
--- a/unfinished/storyteller/Experience Point Tracker - XP.txt	
+++ /dev/null
@@ -1,49 +0,0 @@
-@@ DEPENDENCIES - CORE
-
-@select/inline isdbref(u(xp))=0,{@teleport create(Experience Point Tracker <XP>)=config(master_room)}
-&xp u(coi)=locate(config(master_room),Experience Point Tracker <XP>,TXxi)
-@parent u(xp)=u(coi)
-@set u(xp)=WIZARD SAFE !NO_COMMAND
-
-&CMD`+XP u(xp)=$^(?s)(?\:\+)?XP(?\:/(\S+)?)?(?\: +(.+?))?(?\:=(.+?))?(?\:/(.*))?$:@attach u(ccs)/INC`PARTIAL=%1,setunion(get(u(xp)/VAR`PLAYFLAGS),if(isadmin(%#),get(u(xp)/VAR`ADMINFLAGS)),|,|),|,XP,switch,switch;@attach u(xp)/INC`[strfirstof(%q<switch>,MAIN)]=%2,%3,%4
-@set u(xp)/CMD`+XP=regexp
-
-&VAR`ADMINFLAGS u(xp)=DELGAINED|DELSPENT|TOTALS|AWARD|SPEND
-&VAR`PLAYFLAGS u(xp)=GAINED|SPENT
-
-&INC`MAIN u(xp)=@select/inline cand(strlen(%0),isadmin(%#))=1,{@attach u(ccs)/INC`CHECKPC=%0,1,XP},0,{@attach u(ccs)/INC`CHECKPC=%#,1,XP};@attach u(xp)/INC`LIST=%q<t1>
-
-&INC`LIST u(xp)=@pemit %#=header(name(%0) XP)%R[ljust(ansi(h,rjust(Current:,10)),10)][rjust(sub(u(setr,gained,u(u(xp)/FUN`COUNT,%0,G)),u(setr,spent,u(u(xp)/FUN`COUNT,%0,S))),4)]%r[ljust(ansi(h,rjust(Total:,10)),10)][rjust(%q<gained>,4)]%r[ljust(ansi(h,rjust(Spent:,10)),10)][rjust(%q<spent>,4)];@pemit %#=header()
-
-&INC`LIST u(xp)=@pemit %#=header(name(%0) XP)%R[ljust(ansi(h,rjust(Current:,10)),10)][rjust(sub(u(setr,gained,u(u(xp)/FUN`COUNT,%0,G)),u(setr,spent,u(u(xp)/FUN`COUNT,%0,S))),4)]%r[ljust(ansi(h,rjust(Total:,10)),10)][rjust(%q<gained>,4)]%r[ljust(ansi(h,rjust(Spent:,10)),10)][rjust(%q<spent>,4)];@pemit %#=header()
-
-&FUN`COUNT u(xp)=add(lmath(add,iter(u(lattr,%0/D`XP`%1`*),get(%0/%i0))),if(not(%2),switch(%1,G,u(FUN`EXTRA`GAINED,%0),S,u(FUN`EXTRA`SPENT,%0),0),0))
-&FUN`TOTAL u(xp)=sub(u(FUN`COUNT,%0,G,%1),u(FUN`COUNT,%0,S,%2))
-
-&INC`GAINED u(xp)=@select/inline cand(strlen(%0),isadmin(%#))=0,{@attach u(ccs)/INC`CHECKPC=%#,1,XP},1,{@attach u(ccs)/INC`CHECKPC=%0,1,XP};@attach u(xp)/INC`LISTBY=%q<t1>,G
-&INC`SPENT u(xp)=@select/inline cand(strlen(%0),isadmin(%#))=0,{@attach u(ccs)/INC`CHECKPC=%#,1,XP},1,{@attach u(ccs)/INC`CHECKPC=%0,1,XP};@attach u(xp)/INC`LISTBY=%q<t1>,S
-
-&INC`LISTBY u(xp)=@pemit %#=header(name(%0)'s [if(strmatch(%1,G),GAINED,SPENT)] XP);@dolist/inline sortkey(#lambda/last(\%0,`),u(lattr,%0/D`XP`%1`*))=@pemit %#=#[ljust(last(%i0,`),4)][ansi(h,default(%0/%i0,N/A))] for [ansi(h,default(%0/%i0`REASON,Unknown Reason))]%R%B%B%B%B%BHandled By%B[ansi(h,name(get(%0/%i0`BY)))] On [convsecs(get(%0/%i0`ON))];@pemit %#=header()
-
-&INC`DELGAINED u(xp)=@attach u(xp)/INC`DELETE=%0,G,%1
-&INC`DELSPENT u(xp)=@attach u(xp)/INC`DELETE=%0,S,%1
-
-&INC`DELETE u(xp)=@attach u(ccs)/INC`CHECKPC=%0,1,XP;@check valnum(%2)=@pemit %#=XP entries must be addressed via whole and positive numbers!;@check hasattr(%q<t1>/D`XP`%1`%2)=@pemit %#=ansi(h,%q<t1name>) does not have that entry!;@select/inline v(VAR`ALERTSMODE)=1,{@nscemit/noisy u(CMO`STAFFREP)=ansi(h,%n) just removed [ansi(h,%q<t1name>)]'s XP [if(strmatch(%1,G),GAINED,SPENT)] Entry #%2: [get(%q<t1>/D`XP`%1`%2)] - [get(%q<t1>/D`XP`%1`%2`REASON)]};@pemit %#=announce(XP) You just removed [ansi(h,%q<t1name>)]'s XP [if(strmatch(%1,G),GAINED,SPENT)] Entry #%2: [get(%q<t1>/D`XP`%1`%2)] - [get(%q<t1>/D`XP`%1`%2`REASON)];@select/inline 1=not(strmatch(%q<t1>,%#)),{@pemit %q<t1>=announce(XP) [ansi(h,%n)] just removed your XP [if(strmatch(%1,G),GAINED,SPENT)] Entry #%2: [get(%q<t1>/D`XP`%1`%2)] - [get(%q<t1>/D`XP`%1`%2`REASON)]};@wipe %q<t1>/D`XP`%1`%2
-
-&INC`TOTALS u(xp)=@pemit %#=header(mudname() XP Totals);@pemit %#=ansi(hc,Name[space(29)]Gained XP[space(3)]Splat);@dolist/inline revwords(sortkey(#lambda/u(u(xp)/FUN`COUNT,\%0,G),lsearch(all,eplayer,\[cand(u(u(xp)/FUN`COUNT,##,G),not(isadmin(##)),approved(##))\]),n))=@pemit %#=ljust(left(name(%i0),32),33)[ljust(rjust(u(u(xp)/FUN`COUNT,%i0,G),6),12)][getsplat(%i0)];@pemit %#=header()
-
-&INC`AWARD u(xp)=@attach u(xp)/INC`MARKXP=%0,%1,%2,AWARD
-&INC`SPEND u(xp)=@attach u(xp)/INC`MARKXP=%0,%1,%2,SPEND
-
-&INC`MARKXP u(xp)=@check strlen(%0)=@pemit %#=announce(XP) ERROR: No targets entered!;@stop words(filterbool(#lambda/strmatch(\%0,#-*),u(setr,list,namelist(%0,#lambda/nspemit(%#,announce(XP) Target Not Found or Ambiguous: \%0)))))=@pemit %#=announce(XP) ERROR: One or more entered names did not resolve. Please check your entry and try again.;@check strlen(%1)=@pemit %#=announce(XP) ERROR: No XP entered to %3!;@check gt(%1,0)=@pemit %#=announce(XP) ERROR: XP amounts must be whole, positive numbers!;@pemit/list %q<list>=announce(XP) You have [switch(%3,AWARD,been awarded,spent)] %1 XP for: [strfirstof(%2,No reason given.)];@pemit %#=announce(XP) You have [switch(%3,AWARD,awarded [ansi(h,itemize(iter(%q<list>,name(%i0),%b,|),|,and,\,))] %1 XP,deducted %1 XP from [ansi(h,itemize(iter(%q<list>,name(%i0),%b,|),|,and,\,))])] for: [strfirstof(%2,No reason given.)];@dolist/inline %q<list>=@attach u(xp)/INC`APPLY=%i0,%1,[strfirstof(%2,No reason given.)],%:,switch(%3,AWARD,G,S);@select/inline v(VAR`ALERTSMODE)=1,{@nscemit/noisy u(CMO`STAFFREP)=ansi(h,%n) just [switch(%3,AWARD,awarded [ansi(h,itemize(iter(%q<list>,name(%i0),%b,|),|,and,\,))] %1 XP,deducted %1 XP from [ansi(h,itemize(iter(%q<list>,name(%i0),%b,|),|,and,\,))])] for: [strfirstof(%2,No reason given.)]}
-
-&VAR`ALERTSMODE u(xp)=1
-
-&INC`APPLY u(xp)=&[u(setr,attr,D`XP`%4`[nextslot(%0,D`XP`%4)])] %0=%1;&%q<attr>`ON %0=secs();&%q<attr>`BY %0=%3;&%q<attr>`REASON %0=%2
-
-@@ ROLEPLAYING - +XP
-+help/addmain Roleplaying/+xp=[u(xp)]/HLP`+XP
-&HLP`+XP u(xp)=[ansi(hc,Aliases:)] xp%R%R[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+xp)] - Show how much XP you have.%R[ansi(h,+xp/gained)] - Show details on your gained XP.%R[ansi(h,+xp/spent)] - Show details on your XP spends.})]
-
-+shelp/addmain Character/+xp=[u(xp)]/SHLP`+XP
-&SHLP`+XP u(xp)=[ansi(hc,Viewing Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+xp <name>)] - check a player's XP totals.%R[ansi(h,+xp/gained <name>)] - Check a player's gained XP details.%R[ansi(h,+xp/spent <name>)] - Check a player's XP spend details.})]%R%R[ansi(hc,Managing Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+xp/delgained <name>=<#>)] - Remove a player's gained entry.%R[ansi(h,+xp/delspent <name>=<#>)] - Remove a player's spent entry.%R[ansi(h,+xp/award <list of player>=<amount>/<reason>)] - Awards XP to one or more players. Reason is optional.%R[ansi(h,+xp/spend <list of players>=<amount>/<reason>)] - Spend one or more players' XP. Reason is optional.%R%RNOTE: 'Current XP' is defined as 'gained - spent' while 'Total' is 'total gained ever.' To 'refund' XP, don't award it - delete the relevant spend records then make new ones.})]
\ No newline at end of file
diff --git a/unfinished/storyteller/Merits Management System - MERIT.txt b/unfinished/storyteller/Merits Management System - MERIT.txt
index 9673a31..b014328 100644
--- a/unfinished/storyteller/Merits Management System - MERIT.txt	
+++ b/unfinished/storyteller/Merits Management System - MERIT.txt	
@@ -8,11 +8,11 @@ th u(newcobj,STORYTELLER: Merits Management System <MERIT>,merit,,,,WIZARD SAFE
 &DO`ANNOUNCE [u(cobj,merit)]=@select/inline t(strlen(%1))=1,{@attach %!/INC`MSG`CHAN=%1};@select/inline strmatch(%#,%0)=0,{@attach %!/INC`MSG`NOTICE=%2,%0;@attach %!/INC`MSG=%3},1,{@attach %!/INC`MSG`NOTICE=%2,%0}
 @@ %0 - player being modified. %1 - message for admin channel. %2 - message for player. %3 - message for admin.
 
-&INC`TARGET [u(cobj,merit)]=@select/inline strmatch(%0,*/*)=1,{@attach %!/INC`CHECKPC=before(%0,/),1;th u(setq,target,%q<t1>,filename,after(%0,/))},0,{th u(setq,target,%#)[u(setq,filename,%0)]}
+&INC`TARGET [u(cobj,merit)]=@select/inline strmatch(%0,*/*)=1,{@attach %!/INC`CHECKPC=before(%0,/),1;th u(setq,target,%q<t1>)[u(setq,filename,after(%0,/))]},0,{th u(setq,target,%#)[u(setq,filename,%0)]}
 
 &INC`MERNAME [u(cobj,merit)]=@check strlen(u(setr,merit,trim(squish(before(%0,:)))))=@attach %!/INC`MSG=ERROR: [capstr(%q<type>)] field empty.;th u(setq,context,squish(trim(after(%0,:))));@stop u(charsearch,%q<context>,| ~)=@attach %!/INC`MSG=ERROR: Contexts may not contain a ~ or |.
 
-&INC`EXISTING [u(cobj,merit)]=@check strlen(u(setr,attr,first(u(filter,FINDMERIT,u(lattr,%q<target>/%q<attr>`*),%b,%b,%q<target>,%q<merit>,%q<context>))))=@attach %!/INC`MSG=ERROR: Cannot find '%q<merit>[if(strlen(%q<context>),:%b%q<context>)]'.;th u(setq,merit,get(%q<target>/%q<attr>));th u(setq,context,get(%q<target>/%q<attr>`CONTEXT))
+&INC`EXISTING [u(cobj,merit)]=@check strlen(u(setr,attr,first(u(filter,FINDMERIT,u(lattr,%q<target>/%q<root>`*),%b,%b,%q<target>,%q<merit>,%q<context>))))=@attach %!/INC`MSG=ERROR: Cannot find '%q<merit>[if(strlen(%q<context>),:%b%q<context>)]'.;th u(setq,merit,get(%q<target>/%q<attr>));th u(setq,context,get(%q<target>/%q<attr>`CONTEXT))
 
 &FIL`FINDMERIT [u(cobj,merit)]=cand(cor(strmatch(get(%1/%0),%2),strmatch(get(%1/%0),%2*)),cor(strmatch(get(%1/%0`CONTEXT),%3),strmatch(get(%1/%0`CONTEXT),%3*)))
 
@@ -40,7 +40,7 @@ th u(newcobj,STORYTELLER: Merits Management System <MERIT>,merit,,,,WIZARD SAFE
 
 &INC`GET [u(cobj,merit)]=@attach %!/INC`TARGET;@attach %!/INC`MERNAME;@attach %!/INC`EXISTING;@pemit %#=u(HEADER,name(%q<target>)'s [u(FUN`MERNAME,%q<target>,%q<attr>)] Desc);@pemit %#=decompile(get(%q<target>/%q<attr>`DESC));@pemit %#=u(SUBHEADER)
 
-&INC`MAIN [u(cobj,merit)]=@attach %!/INC`TARGET;@select/inline t(strlen(%q<filename>))=1,{@attach %!/INC`EXISTING=%q<filename>;@attach %!/INC`DISPLAY},0,{@attach %!/INC`LIST}
+&INC`MAIN [u(cobj,merit)]=@attach %!/INC`TARGET;@select/inline t(strlen(%q<filename>))=1,{@attach %!/INC`MERNAME=%q<filename>;@attach %!/INC`EXISTING;@attach %!/INC`DISPLAY},0,{@attach %!/INC`LIST}
 
 &INC`LIST [u(cobj,merit)]=@pemit %#=u(HEADER,name(%q<target>)'s [u(capnames,%q<sysname>)]);@pemit %#=ansi(u(color,%#,COLOR,COLUMN_NAMES),align(30 30 8,Name,Desc,Rank));@pemit %#=u(SEPARATOR);@dolist/inline u(sortmer,u(lattr,%q<target>/%q<root>`*))={@pemit %#=align(30 30 8,pueblize(u(FUN`MERNAME,%q<target>,##),%q<comm> [name(%q<target>)]/[u(FUN`MERNAME,%q<target>,##)]),left(get(%q<target>/##`DESC),20),repeat(*,get(%q<target>/##`RANK)))};@pemit %#=u(SUBHEADER)
 
@@ -48,11 +48,14 @@ th u(newcobj,STORYTELLER: Merits Management System <MERIT>,merit,,,,WIZARD SAFE
 &SORTMER`PENNMUSH [u(cobj,merit)]=sortkey(#lambda/u(FUN`MERNAME,%q<target>,\%0),%0,i,%1,%2)
 &SORTMER`RHOSTMUSH [u(cobj,merit)]=sortby(#lambda/[lit([comp(lcstr(u(FUN`MERNAME,%q<target>,%0)),lcstr(u(FUN`MERNAME,%q<target>,%1)))])],%0,%1,%2)
 
-&INC`DISPLAY [u(cobj,merit)]=@attach %!/INC`EXISTING;@pemit %#=u(HEADER,name(%q<target>)'s %q<type>: [u(FUN`MERNAME,%q<target>,%q<attr>)]);@pemit %#=get(%q<target>/%q<attr>`DESC);@pemit %#=u(RFN`SEPARATOR);@pemit %#=ansi(u(color(%#,COLOR,COLUMN_NAMES)),align(20 20,Setby,Seton));@pemit %#=align(20 20,get(%q<target>/%q<attr>`BY),fancytime(get(%q<target>/%q<attr>`ON),%#));@pemit %#=u(SUBHEADER)
+&INC`DISPLAY [u(cobj,merit)]=@attach %!/INC`EXISTING;@pemit %#=u(HEADER,name(%q<target>)'s %q<type>: [u(FUN`MERNAME,%q<target>,%q<attr>)]);@pemit %#=get(%q<target>/%q<attr>`DESC);@pemit %#=u(RFN`SEPARATOR);@pemit %#=ansi(u(color,%#,COLOR,COLUMN_NAMES),align(20 20,Setby,Seton));@pemit %#=u(separator);@pemit %#=align(20 20,get(%q<target>/%q<attr>`BY),u(fancytime,get(%q<target>/%q<attr>`ON),%#));@pemit %#=u(SUBHEADER)
 
 @@ CHARACTER - +INFO
-+help/addmain Character/+merits=[u(ex-mer)]/HLP`+MERITS
-&HLP`+MERITS [u(cobj,merit)]=The Merit system allows Players to mark down their character's Merits, Flaws, and other notes.%R%R[ansi(hc,Concepts)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,Types)] - Only official Merits and Flaws may be entered. The system has a database of valid Merits/Flaws and will Partial match them.%R[ansi(h,context)] - Merits and flaws can have a CONTEXT, such as the name of an Artifact or the source of one's resources. When a Merit name is neded, the context is added in the following style: Artifact: Volcano Cutter. Contexts must be unique for each Merit type!%R[ansi(h,modes)] - This command can also be called as [ansi(h,+flaws)] to address Flaws and [ansi(h,+pacts)] for Sorcerous Pact-based merits like Dark Paramour.})]%R%R[ansi(hc,Managing Merits)]%RNote: Merits and Flaws may only be edited freely while in Chargen. Only admin may edit them otherwise.%R%R[align(5 [sub(width(%#),6)],,{[ansi(h,+merits)] - Lists your current Merits.%R[ansi(h,+merits <merit>)] - View details about a Merit.%R[ansi(h,+merits/add <merit>=<value>)] - Creates new Merit. Value must be a number.%R[ansi(h,+merits/rank <merit>=<value>)] - Change's a merit's value.%R[ansi(h,+merits/desc <merit>=<text>)] - Describes a merit with a text entry visible when it's viewed.%R[ansi(h,+merits/context <merit>=<new context>)] - Change a merit's context.%R[ansi(h,+merits/get <merit>)] - Retrieve an unformatted version of a Merit's /desc for easy editing.})]
++help/add +merits=[u(cobj,merit)]/HLP`+MERITS
++help/category +merits=Character
++help/metatags +merits=+backgrounds +flaws +mutations +pacts
+&HLP`+MERITS [u(cobj,merit)]=The Merit system allows Players to mark down their character's Merits, Flaws, and other notes.%R%R[ansi(hc,Concepts)]%R[align(5 [sub(width(%#),6)],,[ansi(h,Types)] - The actual type of the merit. Examples: Haven\, Resources\, Artifact\, Contacts\, Patron\, etc.%R[ansi(h,context)] - Merits and equivalents can have a CONTEXT\, such as the name of an Artifact or the source of one's resources. When a Merit name is neded\, the context is added in the following style: Artifact: Volcano Cutter. Contexts must be unique for each TYPE you have! You can have an Artifact: Volcano Cutter and an Artifact: Orichalcum Breastplate\, but not two Volcano cutters.)]%R%R[ansi(hc,Managing Merits)]%RNote: Merits may only be edited freely while in Chargen. Only admin may edit them otherwise.%R%R[align(5 [sub(width(%#),6)],,[ansi(h,+merits)] - Lists your current Merits.%R[ansi(h,+merits <merit>)] - View details about a Merit.%R[ansi(h,+merits/add <merit>=<value>)] - Creates new Merit. Value must be a number.%R[ansi(h,+merits/rank <merit>=<value>)] - Change's a merit's value.%R[ansi(h,+merits/desc <merit>=<text>)] - Describes a merit with a text entry visible when it's viewed.%R[ansi(h,+merits/context <merit>=<new context>)] - Change a merit's context.%R[ansi(h,+merits/get <merit>)] - Retrieve an unformatted version of a Merit's /desc for easy editing.%R[ansi(h,+merits/delete %q<merit>)] - Delete a merit.)]%R%R[u(HLP`MERITS`GAME)]
 
-+shelp/addmain Character/+merits=[u(ex-mer)]/SHLP`+MERITS
++shelp/add +merits=[u(cobj,merit)]/SHLP`+MERITS
++shelp/category +merits=Character
 &SHLP`+MERITS [u(cobj,merit)]=Staff commands with +merit are identical to the player commands. To target specific players, use <player>/ to view a player with +merit, and <player>/<merit> to use any other commands. For example, +merits/add <person>/Resources: Tribute=3
\ No newline at end of file
diff --git a/unfinished/storyteller/Pools Management System - POOL.txt b/unfinished/storyteller/Pools Management System - POOL.txt
index 3765a82..f88e264 100644
--- a/unfinished/storyteller/Pools Management System - POOL.txt	
+++ b/unfinished/storyteller/Pools Management System - POOL.txt	
@@ -1,16 +1,16 @@
 @@ DEPENDENCIES - CORE
 
 th u(newcobj,STORYTELLER: Pools Management System <POOL>,pool,,,,WIZARD SAFE !NO_COMMAND,INHERIT SIDEFX SAFE)
-th u(newconf,CONFIG,STORYTELLER,POOLS,PLAYER_GAIN,1,Players can refill pools?,BOOL)
+th u(newconf,CONFIG,STORYTELLER,PLAYER_GAIN,1,Players can refill pools?,BOOL)
 
-&CMD`+POOL [u(cobj,pool)]=$^\+(spend|gain|refresh|commit|uncommit|pools|fill|drain)(?\: +(.+?))?(?\:=(.*))?$:@attach %!/INC`%1=%2,%3
+&CMD`+POOL [u(cobj,pool)]=$^\+(spend|burn|gain|refresh|commit|uncommit|pools|fill|drain)(?\: +(.+?))?(?\:=(.*))?$:@attach %!/INC`%1=%2,%3
 @set [u(cobj,pool)]/CMD`+POOL=regexp
 
 &SYSTEM`NAME [u(cobj,pool)]=POOLS
 &SWITCHES`PLAYER [u(cobj,pool)]=
 &SWITCHES`ADMIN [u(cobj,pool)]=
 
-&INC`FINDPOOL [u(cobj,pool)]=@check strlen(%0)=@attach %!/INC`MSG=ERROR: What resource? Your choices are: [u(itemize,u(FUN`LISTPOOLS,%1),|,and,\,)];@attach %!/INC`PARTIAL=%0,u(filter,OPTIONS,u(FUN`LISTPOOLS,%1),|,|,%2),|,POOLS,choice,pool
+&INC`FINDPOOL [u(cobj,pool)]=@check strlen(%0)=@attach %!/INC`MSG=ERROR: What resource? Your choices are: [u(itemize,u(FUN`LISTPOOLS,%1),|,and,\,)];@attach %!/INC`PARTIAL=%0,u(filter,OPTIONS,u(FUN`LISTPOOLS,%1),|,|,%2),|,choice,pool
 
 &FUN`POOLDETAIL [u(cobj,pool)]=v(POOL`%0`UNITNAME) of [u(capnames,v(POOL`%0`UNITTYPE))]
 
@@ -28,30 +28,37 @@ th u(newconf,CONFIG,STORYTELLER,POOLS,PLAYER_GAIN,1,Players can refill pools?,BO
 
 &INC`DRAIN [u(cobj,pool)]=@attach %!/INC`ADMIN=%0,%1,DRAIN;@stop lt(u(FUN`CUR,%q<t1>,%q<choice>),%q<value>)=@attach %!/INC`MSG=There aren't enough [u(FUN`POOLDETAIl,%q<choice>)] in %q<t1name>'s [v(POOL`%q<choice>)]!;@attach %!/INC`MSG`ROOM=u(setr,msg,Drained %q<value> [u(FUN`POOLDETAIL,%q<choice>)] from %q<t1name> for: [u(strfirstof,%q<reason>,No reason given!)]),lcon(loc(%q<t1>));@attach %!/INC`MSG`CHAN=%q<msg>;&D`POOLS`%q<choice>`CUR %q<t1>=sub(get(%q<t1>/D`POOLS`%q<choice>`CUR),%q<value>)
 
-&INC`SPEND [u(cobj,pool)]=@attach %!/INC`FINDPOOL=%0,%#;@check strlen(%1)=@attach %!/INC`MSG=ERROR: Burn Value empty.;@attach %!/INC`VALID`POSINT=before(%1,/),Spend;@stop lt(u(FUN`CUR,%#,%q<choice>),%1)=@attach %!/INC`MSG=There aren't enough [u(FUN`POOLDETAIL,%q<choice>)] in that [v(POOL`%q<choice>)]!;@attach %!/INC`MSG`ROOM=spent %q<value> [u(FUN`POOLDETAIL,%q<choice>)][if(strlen(after(%1,/)),%bfor%b[after(%1,/)])]!;@attach %!/INC`MSG`CHAN=Spent %q<value> [u(FUN`POOLDETAIL,%q<choice>)] on: [u(strfirstof,after(%1,/),NO REASON GIVEN!)];&D`POOLS`%q<choice>`CUR %#=sub(get(%#/D`POOLS`%q<choice>`CUR),%q<value>)
+&INC`BURN [u(cobj,pool)]=@attach %!/INC`SPEND
+&INC`SPEND [u(cobj,pool)]=@attach %!/INC`FINDPOOL=%0,%#,SPEND;@check strlen(%1)=@attach %!/INC`MSG=ERROR: Burn Value empty.;@attach %!/INC`VALID`POSINT=before(%1,/),Spend;@stop lt(u(FUN`CUR,%#,%q<choice>),%1)=@attach %!/INC`MSG=There aren't enough [u(FUN`POOLDETAIL,%q<choice>)] in that [v(POOL`%q<choice>)]!;@attach %!/INC`MSG`ROOM=spent %q<value> [u(FUN`POOLDETAIL,%q<choice>)][if(strlen(after(%1,/)),%bfor%b[after(%1,/)])]!;@attach %!/INC`MSG`CHAN=Spent %q<value> [u(FUN`POOLDETAIL,%q<choice>)] on: [u(strfirstof,after(%1,/),NO REASON GIVEN!)];&D`POOLS`%q<choice>`CUR %#=sub(get(%#/D`POOLS`%q<choice>`CUR),%q<value>)
 
-&INC`FILL [u(cobj,pool)]=@attach %!/INC`ADMIN=%0,%1,FILL;@attach %!/INC`MSG`ROOM=u(setr,msg,Gave %q<t1name> %q<value> [u(FUN`POOLDETAIL,%q<choice>)] for: [u(strfirstof,%q<reason>,No reason given!)]),lcon(loc(%q<t1>));@attach %!/INC`MSG`CHAN=%q<msg>;&D`POOLS`%q<choice>`CUR %q<t1>=bound(add(get(%q<t1>/D`POOLS`%q<choice>`CUR),%q<value>),0,min(u(FUN`TOTALCOMMIT,%q<t1>,%1),u(FUN`MAX,%q<t1>,%1)))
+&INC`FILL [u(cobj,pool)]=@attach %!/INC`ADMIN=%0,%1,FILL;@attach %!/INC`MSG`ROOM=u(setr,msg,Gave %q<t1name> %q<value> [u(FUN`POOLDETAIL,%q<choice>)] for: [u(strfirstof,%q<reason>,No reason given!)]),lcon(loc(%q<t1>));@attach %!/INC`MSG`CHAN=%q<msg>;&D`POOLS`%q<choice>`CUR %q<t1>=bound(add(get(%q<t1>/D`POOLS`%q<choice>`CUR),%q<value>),0,sub(u(FUN`MAX,%#,%q<choice>),u(FUN`TOTALCOMMIT,%#,%q<choice>)))
 
-&INC`GAIN [u(cobj,pool)]=@check cor(u(isadmin,%#),u(game_config,STORYTELLER,POOLS,PLAYER_GAIN))=@attach %!/INC`MSG=ERROR: Permission denied. Players must rely on Storytellers or 'hunts' to re-fill their resources.;@attach %!/INC`FINDPOOL=%0,%#,GAIN;@check strlen(%1)=@attach %!/INC`MSG=ERROR: Regain Value empty.;@attach %!/INC`VALID`POSINT=before(%1,/),Gain;@attach %!/INC`MSG`ROOM=Gained %q<value> [u(FUN`POOLDETAIL,%q<choice>)][if(strlen(after(%1,/)),%bfor%b[after(%1,/)])]!;@attach %!/INC`MSG`CHAN=Gained %q<value> [u(FUN`POOLDETAIL,%q<choice>)] for: [u(strfirstof,after(%1,/),NO REASON GIVEN!)];&D`POOLS`%q<choice>`CUR %#=bound(add(get(%#/D`POOLS`%q<choice>`CUR),%q<value>),0,min(u(FUN`TOTALCOMMIT,%#,%1),u(FUN`MAX,%#,%1)))
+&INC`GAIN [u(cobj,pool)]=@check cor(u(isadmin,%#),u(game_config,STORYTELLER,POOLS,PLAYER_GAIN))=@attach %!/INC`MSG=ERROR: Permission denied. Players must rely on Storytellers or 'hunts' to re-fill their resources.;@attach %!/INC`FINDPOOL=%0,%#,GAIN;@check strlen(%1)=@attach %!/INC`MSG=ERROR: Regain Value empty.;@attach %!/INC`VALID`POSINT=before(%1,/),Gain;@attach %!/INC`MSG`ROOM=Gained %q<value> [u(FUN`POOLDETAIL,%q<choice>)][if(strlen(after(%1,/)),%bfor%b[after(%1,/)])]!;@attach %!/INC`MSG`CHAN=Gained %q<value> [u(FUN`POOLDETAIL,%q<choice>)] for: [u(strfirstof,after(%1,/),NO REASON GIVEN!)];&D`POOLS`%q<choice>`CUR %#=bound(add(get(%#/D`POOLS`%q<choice>`CUR),%q<value>),0,sub(u(FUN`MAX,%#,%q<choice>),u(FUN`TOTALCOMMIT,%#,%q<choice>)))
 
 &FUN`TOTALCOMMIT [u(cobj,pool)]=lmath(add,iter(u(lattr,%0/D`POOLS`%1`COMMIT`*),get(%0/%i0)))
 
-&FUN`CUR [u(cobj,pool)]=bound(sub(u(FUN`MAX,%0,%1),get(%0/D`POOLS`%1`CUR)),0,min(u(FUN`TOTALCOMMIT,%0,%1),u(FUN`MAX,%0,%1)))
+&FUN`CUR [u(cobj,pool)]=bound(get(%0/D`POOLS`%1`CUR),0,sub(u(FUN`MAX,%0,%1),u(FUN`TOTALCOMMIT,%0,%1)))
+
 
 &FUN`MAX [u(cobj,pool)]=add(u(POOL`%1`MAX,%0),u(getstat,%0,D`POOLBONUS,%1))
 
-&INC`REFRESH [u(cobj,pool)]=@check cor(u(isadmin,%#),u(game_config,STORYTELLER,POOLS,PLAYER_GAIN))=@attach %!/INC`MSG=ERROR: Permission denied. Players must rely on Storytellers or 'hunts' to re-fill their resources.;@dolist/inline/delimit | [u(filter,OPTIONS,u(FUN`LISTPOOLS,%#),|,|,REFRESH)]=&D`POOLS`##`CUR %#=bound(u(strfirstof,u(POOL`%0`INIT,%#),0),0,u(FUN`TOTALCOMMIT,%#,##));@attach %!/INC`MSG`ROOM=Refreshed %p resources!;@attach %!/INC`MSG`CHAN=Refresh %p resources!
+&INC`REFRESH [u(cobj,pool)]=@check cor(u(isadmin,%#),u(game_config,STORYTELLER,POOLS,PLAYER_GAIN))=@attach %!/INC`MSG=ERROR: Permission denied. Players must rely on Storytellers or 'hunts' to re-fill their resources.;@dolist/inline/delimit | [u(filter,OPTIONS,u(FUN`LISTPOOLS,%#),|,|,REFRESH)]=&D`POOLS`##`CUR %#=bound(u(strfirstof,u(POOL`##`INIT,%#),0),0,sub(u(FUN`MAX,%#,##),u(FUN`TOTALCOMMIT,%#,##)));@attach %!/INC`MSG`ROOM=Refreshed %p resources!;@attach %!/INC`MSG`CHAN=Refresh %p resources!
 
 &FIL`OPTIONS [u(cobj,pool)]=t(match(v(POOL`%0`OPTIONS),%1))
 
-&INC`COMMIT [u(cobj,pool)]=@attach %!/INC`FINDPOOL=before(%0,/),%#,COMMIT;@check strlen(after(%0,/))=@attach %!/INC`MSG=ERROR: Commit Value empty.;@attach %!/INC`VALID`POSINT=after(%0,/),Commit Values;@stop lt(u(FUN`CUR,%#,%q<choice>),after(%0,/))=@attach %!/INC`MSG=There aren't enough [u(FUN`POOLDETAIL,%q<choice>)] in that [v(VAR`POOL`%q<choice>`TYPE)]!;@check strlen(%1)=@attach %!/INC`MSG=ERROR: No reason entered for this Commitment!;&[u(setr,attr,D`POOLS`%q<choice>`COMMIT`[nextslot(%#,D`POOLS`%q<choice>`COMMIT)])] %#=after(%0,/);&D`POOLS`%q<choice>`CUR %#=bound(sub(get(%#/D`POOLS`%q<choice>`CUR),after(%0,/)),0,u(FUN`MAX,%#,%q<choice>));&%q<attr>`REASON %#=%1;@nsremit %l=msghead(POOLS) [ansi(h,%n)] just Committed [after(%0,/)] [u(FUN`POOLDETAIL,%q<choice>)] to: %1
+&INC`COMMIT [u(cobj,pool)]=@attach %!/INC`FINDPOOL=before(%0,/),%#,COMMIT;@check strlen(after(%0,/))=@attach %!/INC`MSG=ERROR: Commit Value empty.;@attach %!/INC`VALID`POSINT=after(%0,/),Commit Values;@stop lt(u(FUN`CUR,%#,%q<choice>),after(%0,/))=@attach %!/INC`MSG=There aren't enough [u(FUN`POOLDETAIL,%q<choice>)] in that [v(VAR`POOL`%q<choice>`TYPE)]!;@check strlen(%1)=@attach %!/INC`MSG=ERROR: No reason entered for this Commitment!;&[u(setr,attr,D`POOLS`%q<choice>`COMMIT`[u(nextslot,%#,D`POOLS`%q<choice>`COMMIT)])] %#=after(%0,/);&D`POOLS`%q<choice>`CUR %#=bound(sub(get(%#/D`POOLS`%q<choice>`CUR),%q<value>),0,sub(u(FUN`MAX,%#,%q<choice>),u(FUN`TOTALCOMMIT,%#,%q<choice>)));&%q<attr>`REASON %#=%1;@attach %!/INC`MSG`ROOM=just Committed [after(%0,/)] [u(FUN`POOLDETAIL,%q<choice>)] to: %1;@attach %!/INC`MSG`CHAN=just Committed [after(%0,/)] [u(FUN`POOLDETAIL,%q<choice>)] to: %1
 
-&INC`UNCOMMIT [u(cobj,pool)]=@attach u(ex-pso)/INC`FINDPOOL=%0,%#;@check valnum(%1)=@attach %!/INC`MSG=ERROR: Uncommit target empty.;@check hasattr(%#/D`POOLS`%q<choice>`COMMIT`%1)=@attach %!/INC`MSG=ERROR: No Commitment matches that slot.;@nsremit %l=msghead(POOLS) [ansi(h,%n)] just released [get(%#/D`POOLS`%q<choice>`COMMIT`%1)] [u(FUN`POOLDETAIL,%q<choice>)] from: [get(%#/D`POOLS`%q<choice>`COMMIT`%1`REASON)];@wipe %#/D`POOLS`%q<choice>`COMMIT`%1
+&INC`UNCOMMIT [u(cobj,pool)]=@attach %!/INC`FINDPOOL=%0,%#,COMMIT;@check u(valnum,%1)=@attach %!/INC`MSG=ERROR: Uncommit target empty.;@check hasattr(%#/D`POOLS`%q<choice>`COMMIT`%1)=@attach %!/INC`MSG=ERROR: No Commitment matches that slot.;@attach %!/INC`MSG`ROOM=just released [get(%#/D`POOLS`%q<choice>`COMMIT`%1)] [u(FUN`POOLDETAIL,%q<choice>)] from: [get(%#/D`POOLS`%q<choice>`COMMIT`%1`REASON)];@attach %!/INC`MSG`CHAN=just released [get(%#/D`POOLS`%q<choice>`COMMIT`%1)] [u(FUN`POOLDETAIL,%q<choice>)] from: [get(%#/D`POOLS`%q<choice>`COMMIT`%1`REASON)];@attach %!/WIPE=%#,D`POOLS`%q<choice>`COMMIT`%1
 
-&INC`POOLS [u(cobj,pool)]=@select/inline and(isadmin(%#),strlen(%0))=1,{@attach u(ccs)/INC`CHECKPC=%0,1,POOLS},0,{th u(setq,t1,%#)};@pemit %#=header(name(%q<t1>)'s Pools);@dolist/inline u(FUN`LISTPOOLS,%q<t1>)={@pemit %#=rjust(capnames(%i0),10): [rjust(u(FUN`CUR,%q<t1>,%i0),3,0)]/[rjust(u(FUN`MAX,%q<t1>,%i0),3,0)][if(nattr(%q<t1>/D`POOLS`%i0`COMMIT`*),%R[iter(u(lattr,%q<t1>/D`POOLS`%i0`COMMIT`*),%T[last(%i0,`)]: [rjust(get(%q<t1>/%i0),3)] for [get(%q<t1>/%i0`REASON)],%B,%R)])]};@pemit %#=header()
+&INC`POOLS [u(cobj,pool)]=@select/inline cand(u(isadmin,%#),strlen(%0))=1,{@attach %!/INC`CHECKPC=%0,1},0,{th u(setq,t1,%#)};@pemit %#=u(header,name(%q<t1>)'s Pools);@dolist/inline/delimit | [u(FUN`LISTPOOLS,%q<t1>)]={@pemit %#=rjust(u(capnames,##),10): [rjust(u(FUN`CUR,%q<t1>,##),3,0)]/[rjust(u(FUN`MAX,%q<t1>,##),3,0)][if(nattr(%q<t1>/D`POOLS`##`COMMIT`*),%R[iter(u(lattr,%q<t1>/D`POOLS`##`COMMIT`*),%T[last(%i0,`)]: [rjust(get(%q<t1>/%i0),3)] for [get(%q<t1>/%i0`REASON)],%B,%R)])]};@pemit %#=u(subheader)
 
 &POOL [u(cobj,pool)]=@@ Empty attrib for Rhost.
 
+@@
++help/add +pools=[u(cobj,pool)]/HLP`+POOLS
++help/category +pools=Roleplaying
+&HLP`+POOLS [u(cobj,pool)]=[ansi(h,+pools)]%RThe +pools system tracks all spendable resources, such as Essence or Willpower.%R%R[ansi(hc,Commands)]%R[align(5 [sub(u(width,%#),6)],,[ansi(h,+pools)] - List your current Pools and statistics.%R[ansi(h,+spend <pool>=<#>/<reason>)] - use up some of your pool. Reason is optional.%R[ansi(h,+gain <pool>=<#>/<reason>)] - Regain some spent points. Not all games allow this.%R[ansi(h,+refresh \[<pool>\])] - Fully restore one or more Pools to maximum allowed capacity. Leave blank for ALL.%R[ansi(h,+commit <pool>/<amount>=<reason>)] - Commit some points of <pool> to a power or similar.%R[ansi(h,+uncommit <pool>=<slot>)] - release a commitment. View Slot ID in +pools.)]
 
-+help/addmain Roleplaying/+pools=[u(ex-pso)]/HLP`+POOLS
-&HLP`+POOLS [u(cobj,pool)]=[ansi(h,+pools)]%RDisplays your current Pool information, including Commitments.%R%R[ansi(h,+burn <poolname>=<#>)]%RUses up some of a pool, aka subtracts from it. Used for spending Essence, clearing up Limit, etc.%R%R[ansi(h,+gain <poolname>=<#>)]%RRestores a Pool, aka adds to it. Used for refilling Essence, gaining Limit, etc.%R%R[ansi(h,+refresh)]%RRestores all Pools and Channels (willpower, virtues, etc) but leaves Tracks such as Limit alone.%R%R[ansi(h,+commit <poolname>/<#>=<reason>)]%RCommits a number of points for a given reason. Example: +commit Peripheral/5=Daiklave%RIf used on Tracks like Limit, Commits raise the minimum instead of lowering maximum- 2 points of Committed Limit mean you're always at least at 2/10, for instance.%R%R[ansi(h,+uncommit <pool>=<commit ID>)]%RRemoves a commitment. Use +pools to see which commitment slot to free up.%R%RNote: Pool names take partial matches!
\ No newline at end of file
++shelp/add +pools=[u(cobj,pool)]/SHLP`+POOLS
++shelp/category +pools=Character
+&SHLP`+POOLS [u(cobj,pool)]=[ansi(hc,Commands)]%RStorytellers may use the following commands:%R%R[align(5 [sub(u(width,%#),6)],,[ansi(h,+fill <character>/<pool>=<amount>/<reason>)] - Grants points to a player.%R[ansi(h,+drain)] works identically to remove points.%R%RUse +gameconfig to change whether players can use +gain globally or not. Data on the Pool Management System can also be edited to configure options per-pool.)]
\ No newline at end of file
diff --git a/unfinished/storyteller/Storyteller Roll System - ROLL.txt b/unfinished/storyteller/Storyteller Roll System - ROLL.txt
index bd6d14c..da5671f 100644
--- a/unfinished/storyteller/Storyteller Roll System - ROLL.txt	
+++ b/unfinished/storyteller/Storyteller Roll System - ROLL.txt	
@@ -6,6 +6,8 @@ th u(newconf,CONFIG,ROLLER,AGAIN_NUMBER,10,Default #-Again.,POSINT)
 th u(newconf,CONFIG,ROLLER,REROLL_NUMBER,,Default Re-#.,POSINT)
 th u(newconf,CONFIG,ROLLER,BOTCHES,0,Enable botches?,BOOL)
 th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
+th u(newconf,CONFIG,ROLLER,CATEGORIES,ATTRIBUTES|SKILLS|ARCANA|DISCIPLINES|MANIFESTATIONS|RENOWN,D`Attributes to stat search?,LIST)
+
 
 &CMD`+ROLL`PENNMUSH [u(cobj,roll)]=$^(?\:\+)?(st)?(d)?roll(?\:/(\S+))?(?\: +(.+?))?(?\:=(.*))?$:@attach %!/CMD`+ROLL`MAIN
 @set [u(cobj,roll)]/CMD`+ROLL`PENNMUSH=regexp
@@ -47,31 +49,17 @@ th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
 
 &FUN`FINDSPECNAME [u(cobj,roll)]=u(strfirstof,if(match(get(u(strfirstof,%1,%#)/D`SPECIALTIES),%0,|),%0),grab(iter(get(u(strfirstof,%1,%#)/D`SPECIALTIES),before(%i0,~),|,|),%0*,|),%0)
 
-&ROLL`DYNAMICSTATS [u(cobj,roll)]=SPEED|DEFENSE|INITIATIVE|WILLPOWER|BLOOD POTENCY|PRIMAL URGE|PSYCHE|WYRD|GNOSIS|PYROS|ENDOWMENT|MORALITY
-&ROLL`DYNAMICSTATS`SPEED [u(cobj,roll)]=add(bound(u(getstat,%0,D`ATTRIBUTES,Strength,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),5)
-&ROLL`DYNAMICSTATS`DEFENSE [u(cobj,roll)]=add(min(bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Wits,BONUS),1)),u(getstat,%0,D`BONUS,DEFENSE))
-&ROLL`DYNAMICSTATS`INITIATIVE [u(cobj,roll)]=add(bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Composure,BONUS),1),u(getstat,%0,D`BONUS,INITIATIVE))
-&ROLL`DYNAMICSTATS`WILLPOWER [u(cobj,roll)]=u(u(cobj,pool)/POOL`WILLPOWER`MAX,%0)
-&ROLL`DYNAMICSTATS`BLOOD_POTENCY [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`PRIMAL_URGE [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`PSYCHE [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`WYRD [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`GNOSIS [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`PYROS [u(cobj,roll)]=u(getstat,%0,D`INFO,Power)
-&ROLL`DYNAMICSTATS`MORALITY [u(cobj,roll)]=u(getstat,%0,D`INFO,Morality)
-&ROLL`DYNAMICSTATS`ENDOWMENT [u(cobj,roll)]=u(lmax,iter(u(filter,ISINTSTAT,get(%0/D`ENDOWMENTS),|,|),last(%i0,~),|))
-
 &FIL`ISINTSTAT [u(Cobj,roll)]=isint(after(%0,~))
 
-&FUN`FINDSTATNAME`SEARCH`EXACT [u(cobj,roll)]=null(iter(v(ROLL`CATEGORIES),if(match(iter(u(filter,ISINTSTAT,get(%1/D`%i0),|,|),first(%i0,~),|,|),%0,|),u(setr,found,%0)[ibreak(1)]),|,|))[ucstr(%q<found>)]
+&FUN`FINDSTATNAME`SEARCH`EXACT [u(cobj,roll)]=null(iter(u(game_config,ROLLER,CATEGORIES),if(match(iter(u(filter,ISINTSTAT,get(%1/D`%i0),|,|),first(%i0,~),|,|),%0,|),u(setr,found,%0)[ibreak(1)]),|,|))[ucstr(%q<found>)]
 
-&FUN`FINDSTATNAME`SEARCH`WILD [u(cobj,roll)]=null(iter(v(ROLL`CATEGORIES),if(strlen(u(setr,found,grab(iter(u(filter,ISINTSTAT,get(%1/D`%i0),|,|),first(%i0,~),|,|),%0*,|))),%q<found>[ibreak(1)]),|,|))[ucstr(%q<found>)]
+&FUN`FINDSTATNAME`SEARCH`WILD [u(cobj,roll)]=null(iter(u(game_config,ROLLER,CATEGORIES),if(strlen(u(setr,found,grab(iter(u(filter,ISINTSTAT,get(%1/D`%i0),|,|),first(%i0,~),|,|),%0*,|))),%q<found>[ibreak(1)]),|,|))[ucstr(%q<found>)]
 
 &ROLL`CATEGORIES [u(cobj,roll)]=ATTRIBUTES|SKILLS|ARCANA|DISCIPLINES|MANIFESTATIONS|RENOWN
 
 &FUN`STATNUM [u(cobj,roll)]=localize(if(strmatch(%0,*/*),add(u(FUN`STATNUM,before(stripansi(%0),/),%1),u(strfirstof,last(grab(get(%#/D`SPECIALTIES),elements(stripansi(%0),1 2,/,/)*~*,|),~),0)),if(match(v(ROLL`DYNAMICSTATS),%0,|),add(u(ROLL`DYNAMICSTATS`[edit(stripansi(%0),%b,_)],u(strfirstof,%1,%#)),getbonus(u(strfirstof,%1,%#),stripansi(%0))),add(u(firstof,u(FUN`STATNUM`SEARCH,stripansi(%0),u(strfirstof,%1,%#)),0),getbonus(u(strfirstof,%1,%#),stripansi(%0))))))
 
-&FUN`STATNUM`SEARCH [u(cobj,roll)]=null(iter(v(ROLL`CATEGORIES),if(strlen(u(setr,found,grab(get(%1/D`%i0),%0~*,|))),%q<found>[ibreak(1)]),|,|))[after(%q<found>,~)]
+&FUN`STATNUM`SEARCH [u(cobj,roll)]=null(iter(u(game_config,ROLLER,CATEGORIES),if(strlen(u(setr,found,grab(get(%1/D`%i0),%0~*,|))),%q<found>[ibreak(1)]),|,|))[after(%q<found>,~)]
 
 &FUN`FORMATROLL [u(cobj,roll)]=regeditalli(%0,v(REG`FORMATROLL),u(u(cobj,roll)/FUN`FORMATNUM,$0,u(strfirstof,%1,%#)),%b\\+%b,ansi(hg,%b+%b),%b\\-%b,ansi(hr,%b-%b))
 
@@ -98,10 +86,20 @@ th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
 
 &FUN`ROLLRESULT [u(cobj,roll)]=if(and(not(isint(%0)),lt(%0,1)),ansi(hx,a botch!),switch(%1,0,if(lt(floor(%0),1),ansi(hr,a failure!),if(gt(floor(%0),1),ansi(hg,floor(%0) successes!),ansi(hg,a success!))),1,if(lte(floor(%0),%2),if(floor(%0),floor(%0) success[if(gt(floor(%0),1),es)]\, but [ansi(hr,a miss.)],no successes! [ansi(hr,a miss!)]),ansi(hg,floor(%0) success[if(gt(floor(%0),1),es)]! [sub(floor(%0),%2)] success[if(gt(sub(floor(%0),%2),1),es)] over DV!)),2,if(lt(floor(%0),%2),if(floor(%0),floor(%0) successes\, but [ansi(hr,a failure.)],no successes! [ansi(hr,a failure!)]),ansi(hg,floor(%0) Success[if(gt(floor(%0),1),es)]!%B[sub(floor(%0),%2)] Threshold Success[if(gt(sub(floor(%0),%2),1),es)]))))
 
-&FUN`RESFORMAT [u(cobj,roll)]=u(setq,formatted,u(FUN`FORMATROLL,%q<findnames>,%q<t1>))[null(iter(lnum(1,%q<mul>),u(FUN`ROLL,%q<totaldice>,%i0)))][switch(%q<dicemode>,ST,if(%q<public>,%n rolls with %q<t1name>'s Stats,You roll for %q<t1name>),job,%n Rolls,if(%q<private>,You Roll,%n rolls))]%b%q<formatted>[if(neq(%q<tn>,u(game_config,ROLLER,TARGET_NUMBER)),%bat TN%q<tn>)][if(%q<def>,\,%bVs DV%q<def>)][if(%q<dif>,\,%bat Difficulty %q<dif>)][if(neq(words(setinter(%q<dbl>,u(game_config,ROLLER,DOUBLE_NUMBER))),words(%q<dbl>)),\,%bWith Double [itemize(sort(%q<dbl>),%b,and,\,)])][if(neq(%q<ag>,u(game_config,ROLLER,AGAIN_NUMBER)),\,%bWith %q<ag>-Again)][if(words(%q<re>),\,%bRe-Rolling [itemize(%q<re>,%b,and,\,)])][if(gt(%q<mul>,1),\,%b%q<mul> times)]: %q<totaldice> Total dice!%R[u(trimlines,iter(lnum(1,%q<mul>),ansi(h,if(gt(%q<mul>,1),numth(%i0) Roll,Roll):)%b[u(FUN`GETREG,roll%i0,4)][if(u(setr,rerolls,r(roll%i0-rerolls)),%b[ansi(hx,|)] Re-Rolls:%b[iter(lnum(1,%q<rerolls>),u(FUN`GETREG,roll%i1-reroll%i0,4),%b,|)])][if(u(setr,agains,r(roll%i0-agrolls)),%R[u(trimlines,iter(lnum(1,%q<agains>),ansi(h,if(gt(%q<mul>,1),%t)%q<ag>-Again Roll %i0:)%b[u(FUN`GETREG,roll%i1-agroll%i0,4)],%b,%r))])]%R%TResulting in: [u(FUN`ROLLRESULT,add(%q<sux>,u(FUN`GETREG,roll%i0,6)),if(%q<def>,1,if(%q<dif>,2,0)),u(strfirstof,%q<def>,%q<dif>))],%b,%r))]
+&FUN`RESFORMAT [u(cobj,roll)]=u(setq,formatted,u(FUN`FORMATROLL,%q<findnames>,%q<t1>))[null(iter(lnum(1,%q<mul>),u(FUN`ROLL,%q<totaldice>,%i0)))][switch(%q<dicemode>,ST,if(%q<public>,%n rolls with %q<t1name>'s Stats,You roll for %q<t1name>),job,%n Rolls,if(%q<private>,You Roll,%n rolls))]%b%q<formatted>[if(neq(%q<tn>,u(game_config,ROLLER,TARGET_NUMBER)),%bat TN%q<tn>)][if(%q<def>,\,%bVs DV%q<def>)][if(%q<dif>,\,%bat Difficulty %q<dif>)][if(neq(words(setinter(%q<dbl>,u(game_config,ROLLER,DOUBLE_NUMBER))),words(%q<dbl>)),\,%bWith Double [itemize(sort(%q<dbl>),%b,and,\,)])][if(neq(%q<ag>,u(game_config,ROLLER,AGAIN_NUMBER)),\,%bWith %q<ag>-Again)][if(words(%q<re>),\,%bRe-Rolling [itemize(%q<re>,%b,and,\,)])][if(gt(%q<mul>,1),\,%b%q<mul> times)]: %q<totaldice> Total dice!%R[u(trimlines,iter(lnum(1,%q<mul>),ansi(h,if(gt(%q<mul>,1),u(numth,%i0) Roll,Roll):)%b[u(FUN`GETREG,roll%i0,4)][if(u(setr,rerolls,r(roll%i0-rerolls)),%b[ansi(hx,|)] Re-Rolls:%b[iter(lnum(1,%q<rerolls>),u(FUN`GETREG,roll%i1-reroll%i0,4),%b,|)])][if(u(setr,agains,r(roll%i0-agrolls)),%R[u(trimlines,iter(lnum(1,%q<agains>),ansi(h,if(gt(%q<mul>,1),%t)%q<ag>-Again Roll %i0:)%b[u(FUN`GETREG,roll%i1-agroll%i0,4)],%b,%r))])]%R%TResulting in: [u(FUN`ROLLRESULT,add(%q<sux>,u(FUN`GETREG,roll%i0,6)),if(%q<def>,1,if(%q<dif>,2,0)),u(strfirstof,%q<def>,%q<dif>))],%b,%r))]
+
+&INC`ROLL [u(cobj,roll)]=th u(setq,results,u(FUN`RESFORMAT));@select/inline t(%q<private>)=1,{@attach %!/INC`MSG=%q<results>},0,{@attach %!/INC`MSG`ROOM=%q<results>};@attach %!/INC`MSG`CHAN=if(%q<private>,\(PRIVATE\)%B)[if(%q<private>,edit(%q<results>,You Roll,%n Rolls),%q<results>)],u(game_config,ROLLER,CHANNEL)
+
+&INC`STROLL [u(cobj,roll)]=th u(setq,results,u(FUN`RESFORMAT,,%q<t1>));@select/inline t(%q<public>)=0,{@attach %!/INC`MSG`ROOM=%q<results>},1,{@attach %!/INC`MSG`ROOM=%q<results>};@attach %!/INC`MSG`CHAN=edit(%q<results>,You roll for,%n rolls for),u(game_config,ROLLER,CHANNEL)
+
+&CMD`+ROLLINIT [u(cobj,roll)]=$roll init:@check words(u(setr,list,lvplayers(%l)))=@attach %!/INC`MSG=Nobody to roll init for!;th iter(%q<list>,u(setq,dex,u(firstof,u(getstat,%i0,D`ATTRIBUTES,DEXTERITY,BONUS),0),comp,u(firstof,u(getstat,%i0,D`ATTRIBUTES,COMPOSURE,BONUS),0),bonus,u(firstof,u(getstat,%i0,D`BONUS,initiative),0),roll,u(firstof,rand(1,10),0))[u(attrib_set,%i0,INITROLL,ansi(h,DEXTERITY\(%q<dex>\) + COMPOSURE\(%q<comp>\) + BONUS\(%q<bonus>\) + ROLL\(%q<roll>\) = )%B[ansi(hg,add(%q<dex>,%q<comp>,%q<bonus>,%q<roll>))])]);@attach %!/INC`MSG`ROOM=%n called for an Initiative Roll!;th iter(sortkey(#lambda/stripansi(last(get(\%0/INITROLL))),%q<list>,n),remit(%l,ljust(left(name(%i0):,add(1,config(player_name_len))),add(1,config(player_name_len)))%B[get(%i0/INITROLL)]))
 
-&INC`ROLL [u(cobj,roll)]=th u(setq,results,u(FUN`RESFORMAT));@select/inline t(%q<private>)=1,{@pemit %#=%q<results>},0,{@remit %l=%q<results>};@attach %!/INC`MSG`CHAN=if(%q<private>,\(PRIVATE\)%B)[if(%q<private>,edit(%q<results>,You Roll,%n Rolls),%q<results>)],u(game_config,ROLLER,CHANNEL)
 
-&INC`STROLL [u(cobj,roll)]=th u(setq,results,u(FUN`RESFORMAT,,%q<t1>));@select/inline t(%q<public>)=0,{@pemit %#=%q<results>},1,{@nsremit %l=%q<results>};@attach %!/INC`MSG`CHAN=edit(%q<results>,You roll for,%n rolls for),u(game_config,ROLLER,CHANNEL)
+@@ ROLEPLAYING - +ROLL
++help/add +roll=[u(cobj,roll)]/HLP`+ROLL
++help/category +roll=Roleplaying
+&HLP`+ROLL [u(cobj,roll)]=[ansi(h,+roll\[/switches\] <stats to roll>)]%R[ansi(h,+droll\[/switches\] <stats to roll>)]%R%R+roll is for virtually any situation that involves rolling X amount of d10.%R%R<stats to roll> can be any Attribute, Ability, or Stat+Specialty (addressed by attribute or ability followed by a slash and then the text-- example, Melee/Swords. This will ADD BOTH TOGETHER so you don't need to use Melee + Melee/Swords), Willpower, Essence, Crafts, or martial arts styles. It will also accept any whole numbers. Each entry can be seperated by a + or -.%R%RExample of a valid roll formula: +roll Dexterity + Melee + 10%R%RStat entries are not case sensitive, although they do support partial matches. Dex will be matched to Dexterity... however, int could be either Intelligence or Integrity, and it will pick the first its matching algorithm finds, so be careful to enter enough to not be vague.%R%R+droll is the same as +roll, though it does not count 10s as succeses. This is used for rolling extras or damage and so on.%R%RSWITCHES (which can be combined in any order and used repeatedly) are-%R%R/def# - Roll against a given Defense to determine hit or miss and threshold successes. (may not be used with /dif# simultaneously)%R/dif# - Roll against a given difficulty to determine threshold succeses. (may not be used with /def# simultaneously)%R/tn# - change target number.%R/sux# - adds automatic successes.%R/pen# - external penalties to subtract successes from rolls.%R/PRIVATE - only you see the roll's results.%R/mul# - multi-roll. Rolls the given <stats to roll> # amount of times. Note: does not support cumulative penalties for flurries.%R/dbl# - double #. If given, overrides default 10 so use /dbl9/dbl10, etc.%R/re# - Re-roll #. Can be used several times, such as /re6/re7/re8.
 
-&CMD`+ROLLINIT [u(cobj,roll)]=$roll init:@check words(u(setr,list,lvplayers(%l)))=@attach %!/INC`MSG=Nobody to roll init for!;th iter(%q<list>,u(setq,dex,u(firstof,u(getstat,%i0,D`ATTRIBUTES,DEXTERITY,BONUS),0),comp,u(firstof,u(getstat,%i0,D`ATTRIBUTES,COMPOSURE,BONUS),0),bonus,u(firstof,u(getstat,%i0,D`BONUS,initiative),0),roll,u(firstof,rand(1,10),0))[u(attrib_set,%i0,INITROLL,ansi(h,DEXTERITY\(%q<dex>\) + COMPOSURE\(%q<comp>\) + BONUS\(%q<bonus>\) + ROLL\(%q<roll>\) = )%B[ansi(hg,add(%q<dex>,%q<comp>,%q<bonus>,%q<roll>))])]);@attach %!/INC`MSG`ROOM=%n called for an Initiative Roll!;th iter(sortkey(#lambda/stripansi(last(get(\%0/INITROLL))),%q<list>,n),remit(%l,ljust(left(name(%i0):,add(1,config(player_name_len))),add(1,config(player_name_len)))%B[get(%i0/INITROLL)]))
\ No newline at end of file
++shelp/add +roll=[u(cobj,roll)]/SHLP`+ROLL
++shelp/category +roll=ROLEPLAYING
+&SHLP`+ROLL [u(cobj,roll)]=In addition to the normal commands, Storytellers may do the following:%R+stroll\[/<switches>\] <player>=<roll string>%R%RIt does exactly what it sounds like.
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/+look code.txt b/unfinished/storyteller/exalted25/+look code.txt
index a648153..963387b 100644
--- a/unfinished/storyteller/exalted25/+look code.txt	
+++ b/unfinished/storyteller/exalted25/+look code.txt	
@@ -1,21 +1,15 @@
-@switch/inline isdbref(u(look))=0,{@tel create(+look code)=config(master_room)}
-&look u(coi)=locate(config(master_room),+look code,TXxi)
-@parent u(look)=u(coi)
-@set u(look)=WIZARD !NO_COMMAND
-
-
-&DESCRIBE u(look)=This is the master +look object. It is used via +look and takes no arguments. It is as modular as it gets. +wharblegarble should be elsewhere, but I'll leave it as my personal signature.
-
-&DO`LOOK u(look)=$+look:@nspemit %#=header(+look);@dolist/inline lvplayers(%l)={@nspemit %#=[ansi(h,u(LOOK`getname,%i0))][u(LOOK`getshort,%i0)]%r[u(LOOK`MAKETABLE,%i0)]%r[header()]}
-
-&LOOK`GETAPP u(look)=rjust([ansi(h,Appearance:)] ,12,)%B[if(setr(z,getstat(%0/D`ATTRIBUTES,APPEARANCE)),%qz,0)]
-&LOOK`GETASPECT u(look)=[rjust(ansi(h,Aspect:) ,12,)]%B[switch(getstat(%0/d`info, caste),Air,ansi(setr(y,hc),Air),Earth,ansi(setr(y,y),Earth),Fire,ansi(setr(y,hr),Fire),Water,ansi(setr(y,hb),Water),Wood,ansi(setr(y,hg),Wood),Not-DB)]%B[if(setr(z,getstat(%0/D`BACKGROUNDS,BREEDING)),ansi(%qy,%qz),ansi(%qy,0))]
-&LOOK`GETBREEDING u(look)=ljust(Breeding: [switch(getstat(%0/D`BACKGROUNDS,breeding),1,1,2,2,3,3,4,4,5,5 %b,None)],35,)
-&LOOK`GETCASTE u(look)=[rjust([ansi(h,Caste:)] ,12,)]%B[if(strlen(setr(z,getstat(%0/D`INFO,CASTE))),%qz,N/A)]
-&LOOK`GETCHA u(look)=[rjust([ansi(h,Charisma:)] ,12,)]%B[if(setr(z,getstat(%0/D`ATTRIBUTES,CHARISMA)),%qz,0)]
-&LOOK`GETNAME u(look)=ljust([name(%0)],25,.)
-&LOOK`GETPRE u(look)=[rjust([ansi(h,Presence:)] ,12,)]%B[if(setr(z,getstat(%0/D`ABILITIES,PRESENCE)),%qz,0)]
-&LOOK`GETRACE u(look)=[rjust([ansi(h,Race:)] ,12,)]%B[if(strlen(setr(z,getstat(%0/D`INFO,RACE))),%qz,N/A)]
-&LOOK`GETSEX u(look)=[rjust([ansi(h,Sex:)] ,12,)]%B[switch(xget(%0,sex),f*,Female,m*,Male,Neuter)]
-&LOOK`GETSHORT u(look)=ljust(eval(%0,short-desc),47)
-&LOOK`MAKETABLE u(look)=table([u(LOOK`getsex,%0)]|[u(LOOK`getrace,%0)]|[if(strmatch(Dragon-Blooded,getstat(%0/D`INFO,Race)),u(LOOK`getaspect,%0),u(LOOK`getcaste,%0))]|[u(LOOK`getapp,%0)]|[u(LOOK`getcha,%0)]|[u(LOOK`getpre,%0)],24,78,|)
+th u(newcobj,STORYTELLER: +look code <LOOK>,LOOK,,,,WIZARD SAFE !NO_COMMAND,INHERIT SIDEFX SAFE)
+
+&DO`LOOK [u(cobj,look)]=$+look:@nspemit %#=u(header,+look);@dolist/inline lvplayers(%l)={@pemit %#=[ansi(h,u(LOOK`getname,%i0))][u(LOOK`getshort,%i0)]%r[u(LOOK`MAKETABLE,%i0)]%r[u(subheader)]}
+
+&LOOK`GETAPP [u(cobj,look)]=rjust(ansi(h,Appearance:) ,12,)%B[if(setr(z,u(getstat,%0,D`ATTRIBUTES,APPEARANCE)),%qz,0)]
+&LOOK`GETASPECT [u(cobj,look)]=[rjust(ansi(h,Aspect:) ,12,)]%B[switch(u(getstat,%0,d`info, caste),Air,ansi(setr(y,hc),Air),Earth,ansi(setr(y,y),Earth),Fire,ansi(setr(y,hr),Fire),Water,ansi(setr(y,hb),Water),Wood,ansi(setr(y,hg),Wood),Not-DB)]%B[if(setr(z,u(getstat,%0,D`BACKGROUNDS,BREEDING)),ansi(%qy,%qz),ansi(%qy,0))]
+&LOOK`GETBREEDING [u(cobj,look)]=ljust(Breeding: [switch(xget(%0,first(u(wildgrepi,%0,D`BACKGROUNDS`*,BREEDING))`RANK),1,1,2,2,3,3,4,4,5,5 %b,None)],35,)
+&LOOK`GETCASTE [u(cobj,look)]=[rjust([ansi(h,Caste:)] ,12,)]%B[if(strlen(setr(z,u(getstat,%0,D`INFO,CASTE))),%qz,N/A)]
+&LOOK`GETCHA [u(cobj,look)]=[rjust([ansi(h,Charisma:)] ,12,)]%B[if(setr(z,u(getstat,%0,D`ATTRIBUTES,CHARISMA)),%qz,0)]
+&LOOK`GETNAME [u(cobj,look)]=ljust([name(%0)],25,.)
+&LOOK`GETPRE [u(cobj,look)]=[rjust([ansi(h,Presence:)] ,12,)]%B[if(setr(z,u(getstat,%0,D`ABILITIES,PRESENCE)),%qz,0)]
+&LOOK`GETRACE [u(cobj,look)]=[rjust([ansi(h,Class:)] ,12,)]%B[if(strlen(setr(z,u(getstat,%0,D`INFO,CLASS))),%qz,N/A)]
+&LOOK`GETSEX [u(cobj,look)]=[rjust([ansi(h,Sex:)] ,12,)]%B[switch(xget(%0,sex),f*,Female,m*,Male,Neuter)]
+&LOOK`GETSHORT [u(cobj,look)]=ljust(eval(%0,short-desc),47)
+&LOOK`MAKETABLE [u(cobj,look)]=u(table,[u(LOOK`getsex,%0)]|[u(LOOK`getrace,%0)]|[if(strmatch(Dragon-Blooded,u(getstat,%0,D`INFO,Race)),u(LOOK`getaspect,%0),u(LOOK`getcaste,%0))]|[u(LOOK`getapp,%0)]|[u(LOOK`getcha,%0)]|[u(LOOK`getpre,%0)],24,u(width,%#),|)
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Calendar Management System - CALENDAR.txt b/unfinished/storyteller/exalted25/Calendar Management System - CALENDAR.txt
new file mode 100644
index 0000000..918974f
--- /dev/null
+++ b/unfinished/storyteller/exalted25/Calendar Management System - CALENDAR.txt	
@@ -0,0 +1,42 @@
+@@ DEPENDENCIES - CORE
+th u(newcobj,STORYTELLER: Calendar Management System <CALENDAR>,calendar,,,,WIZARD SAFE !NO_COMMAND,INHERIT SIDEFX SAFE)
+
+
+&CMD`+TIME [u(cobj,calendar)]=$^(?s)\+time(?\:/(\S+))?(?\: +(.+?))?(?\:=(.+))?$:@attach u(ccs)/INC`PARTIAL=%1,setunion(get(u(ex-cso)/VAR`PLAYFLAGS),if(isadmin(%#),get(u(ex-cso)/VAR`ADMINFLAGS)),|),|,TIME,switch,switch;@attach u(ex-cso)/INC`[strfirstof(%q<switch>,MAIN)]=%2,%3
+@set [u(cobj,calendar)]/CMD`+TIME=regexp
+
+&FUN`GETSEASON [u(cobj,calendar)]=ucstr(if(lte(v(VAR`CURDAY),420),reswitchi(stripansi(elements(u(VAR`MONTHNAMES),ceil(fdiv(v(VAR`CURDAY),28)),|)),^(DESCENDING WATER)$,FRIGID,^(ASCENDING EARTH|RESPLENDENT EARTH)$,SPRING,^(DESCENDING EARTH|ASCENDING WOOD|RESPLENDENT WOOD)$,CROP,^(DESCENDING WOOD|ASCENDING FIRE|RESPLENDENT FIRE)$,SUMMER,^(DESCENDING FIRE)$,BLAZING,^(ASCENDING AIR|RESPLENDENT AIR)$,AUTUMN,^(DESCENDING AIR|ASCENDING WATER|RESPLENDENT WATER)$,WINTER),AUTUMN))
+
+&FUN`SHOWDATE [u(cobj,calendar)]=It is [u(FUN`SHOWTIME)]\,%B[if(lte(v(VAR`CURDAY),420),[u(FUN`SHOWDAYNAME)] the [u(FUN`SHOWDAY)] of [u(FUN`SHOWMONTH)]\, [v(VAR`CURYEAR)] R.Y.,the [numth(sub(v(VAR`CURDAY),420))] Day of [ansi(hx,Calibration)] between [v(VAR`CURYEAR)] and [add(1,v(VAR`CURYEAR))] R.Y.)]
+
+&FUN`SHOWDAY [u(cobj,calendar)]=if(lte(v(VAR`CURDAY),420),numth(add(mod(v(VAR`CURDAY),28),1)),numth(sub(v(VAR`CURDAY),420)))
+
+&FUN`SHOWDAYNAME [u(cobj,calendar)]=s(elements(v(VAR`DAYNAMES),if(mod(v(VAR`CURDAY),7),mod(v(VAR`CURDAY),7),7),|))
+
+&FUN`SHOWHOUR [u(cobj,calendar)]=rjust(div(v(VAR`CURSECS),3600),2,0):[rjust(div(mod(v(VAR`CURSECS),3600),60),2,0)]
+
+&FUN`SHOWMONTH [u(cobj,calendar)]=if(lte(v(VAR`CURDAY),420),s(elements(v(VAR`MONTHNAMES),ceil(fdiv(v(VAR`CURDAY),28)),|)),ansi(hx,Calibration))
+
+&FUN`SHOWMOON [u(cobj,calendar)]=if(lte(v(VAR`CURDAY),420),The Moon is currently in its [elements(u(VAR`MOONNAMES),if(mod(v(VAR`CURDAY),28),mod(v(VAR`CURDAY),28),28),|)] Phase,The Moon and Stars are [ansi(hx,GONE!)])
+
+&FUN`SHOWTIME [u(cobj,calendar)]=rjust(div(v(VAR`CURSECS),3600),2,0):[rjust(div(mod(v(VAR`CURSECS),3600),60),2,0)]
+
+&INC`MAIN [u(cobj,calendar)]=@pemit %#=u(header,Current IC Time);@pemit %#=u(u(ex-cso)/FUN`SHOWDATE);@pemit %#=u(FUN`SHOWMOON);@pemit %#=u(subheader)
+
+&TRG`ANNOUNCE [u(cobj,calendar)]=@select/inline v(VAR`ANNOUNCE)=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=u(FUN`SHOWDATE) - [u(FUN`SHOWMOON)]}
+
+&TRG`TICKER [u(cobj,calendar)]=@select/inline t(v(VAR`ENABLED))=1,{@select/inline gt(u(setr,newsecs,add(v(VAR`CURSECS),u(setr,secsadd,round(mul(60,v(VAR`MULTIPLIER)),0)))),90000)=1,{@trigger u(ex-proj)/TRG`TICKDOWN=%q<secsadd>;&VAR`CURSECS [u(cobj,calendar)]=sub(%q<newsecs>,90000);@select/inline gt(u(setr,newdays,add(v(VAR`CURDAY),1)),425)=1,{&VAR`CURDAY [u(cobj,calendar)]=sub(%q<newdays>,425);&VAR`CURYEAR [u(cobj,calendar)]=add(v(VAR`CURYEAR),1);@trigger u(ex-cso)/TRG`ANNOUNCE},{&VAR`CURDAY [u(cobj,calendar)]=%q<newdays>;@trigger me/TRG`ANNOUNCE}},{@trigger u(ex-proj)/TRG`TICKDOWN=%q<secsadd>;&VAR`CURSECS [u(cobj,calendar)]=%q<newsecs>}};@wait 60={@trigger u(ex-cso)/TRG`TICKER}
+
+&VAR`ADMINFLAGS [u(cobj,calendar)]=STOP|START
+&VAR`ANNOUNCE [u(cobj,calendar)]=1
+&VAR`ANNOUNCECHANNEL [u(cobj,calendar)]=RP Alerts
+&VAR`CURDAY [u(cobj,calendar)]=1
+&VAR`CURSECS [u(cobj,calendar)]=1
+&VAR`CURYEAR [u(cobj,calendar)]=775
+&VAR`DAYNAMES [u(cobj,calendar)]=[ansi(hy,Sunday)]|[ansi(hw,Moonday)]|[ansi(hr,Marsday)]|[ansi(y,Mercuryday)]|[ansi(hg,Jupiterday)]|[ansi(hc,Venusday)]|[ansi(hm,Saturnday)]
+&VAR`ENABLED [u(cobj,calendar)]=1
+&VAR`MONTHNAMES [u(cobj,calendar)]=[ansi(hc,Ascending Air)]|[ansi(hc,Resplendent Air)]|[ansi(hc,Descending Air)]|[ansi(hb,Ascending Water)]|[ansi(hb,Resplendent Water)]|[ansi(hb,Descending Water)]|[ansi(y,Ascending Earth)]|[ansi(y,Resplendent Earth)]|[ansi(y,Descending Earth)]|[ansi(hg,Ascending Wood)]|[ansi(hg,Resplendent Wood)]|[ansi(hg,Descending Wood)]|[ansi(hr,Ascending Fire)]|[ansi(hr,Resplendent Fire)]|[ansi(hr,Descending Fire)]
+&VAR`MOONNAMES [u(cobj,calendar)]=[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing)]%B[ansi(hw,Half)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hw,Full)]|[ansi(hw,Full)]|[ansi(hw,Full)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning)]%B[ansi(hx,Half)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hx,No Moon)]|[ansi(hx,No Moon)]|[ansi(hx,No Moon)]
+&VAR`MULTIPLIER [u(cobj,calendar)]=3
+
+&STARTUP [u(cobj,calendar)]=@trigger u(ex-cso)/TRG`TICKER
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Calendar System Object - EX-CSO.txt b/unfinished/storyteller/exalted25/Calendar System Object - EX-CSO.txt
deleted file mode 100644
index 5a7aa21..0000000
--- a/unfinished/storyteller/exalted25/Calendar System Object - EX-CSO.txt	
+++ /dev/null
@@ -1,45 +0,0 @@
-@@ DEPENDENCIES - CORE
-
-@select/inline isdbref(u(ex-cso))=0,{@tel create(Calendar System Object <EX-CSO>)=config(master_room)}
-&ex-cso u(coi)=locate(config(master_room),Calendar System Object <EX-CSO>,TXxi)
-@parent u(ex-cso)=u(coi)
-@set u(ex-cso)=WIZARD !NO_COMMAND
-
-&CMD`+TIME u(ex-cso)=$^(?s)\+time(?\:/(\S+))?(?\: +(.+?))?(?\:=(.+))?$:@attach u(ccs)/INC`PARTIAL=%1,setunion(get(u(ex-cso)/VAR`PLAYFLAGS),if(isadmin(%#),get(u(ex-cso)/VAR`ADMINFLAGS)),|),|,TIME,switch,switch;@attach u(ex-cso)/INC`[strfirstof(%q<switch>,MAIN)]=%2,%3
-@set u(ex-cso)/CMD`+TIME=regexp
-
-&FUN`GETSEASON u(ex-cso)=ucstr(if(lte(v(VAR`CURDAY),420),reswitchi(stripansi(elements(u(VAR`MONTHNAMES),ceil(fdiv(v(VAR`CURDAY),28)),|)),^(DESCENDING WATER)$,FRIGID,^(ASCENDING EARTH|RESPLENDENT EARTH)$,SPRING,^(DESCENDING EARTH|ASCENDING WOOD|RESPLENDENT WOOD)$,CROP,^(DESCENDING WOOD|ASCENDING FIRE|RESPLENDENT FIRE)$,SUMMER,^(DESCENDING FIRE)$,BLAZING,^(ASCENDING AIR|RESPLENDENT AIR)$,AUTUMN,^(DESCENDING AIR|ASCENDING WATER|RESPLENDENT WATER)$,WINTER),AUTUMN))
-
-&FUN`SHOWDATE u(ex-cso)=It is [u(FUN`SHOWTIME)]\,%B[if(lte(v(VAR`CURDAY),420),[u(FUN`SHOWDAYNAME)] the [u(FUN`SHOWDAY)] of [u(FUN`SHOWMONTH)]\, [v(VAR`CURYEAR)] R.Y.,the [numth(sub(v(VAR`CURDAY),420))] Day of [ansi(hx,Calibration)] between [v(VAR`CURYEAR)] and [add(1,v(VAR`CURYEAR))] R.Y.)]
-
-&FUN`SHOWDAY u(ex-cso)=if(lte(v(VAR`CURDAY),420),numth(add(mod(v(VAR`CURDAY),28),1)),numth(sub(v(VAR`CURDAY),420)))
-
-&FUN`SHOWDAYNAME u(ex-cso)=s(elements(v(VAR`DAYNAMES),if(mod(v(VAR`CURDAY),7),mod(v(VAR`CURDAY),7),7),|))
-
-&FUN`SHOWHOUR u(ex-cso)=rjust(div(v(VAR`CURSECS),3600),2,0):[rjust(div(mod(v(VAR`CURSECS),3600),60),2,0)]
-
-&FUN`SHOWMONTH u(ex-cso)=if(lte(v(VAR`CURDAY),420),s(elements(v(VAR`MONTHNAMES),ceil(fdiv(v(VAR`CURDAY),28)),|)),ansi(hx,Calibration))
-
-&FUN`SHOWMOON u(ex-cso)=if(lte(v(VAR`CURDAY),420),The Moon is currently in its [elements(u(VAR`MOONNAMES),if(mod(v(VAR`CURDAY),28),mod(v(VAR`CURDAY),28),28),|)] Phase,The Moon and Stars are [ansi(hx,GONE!)])
-
-&FUN`SHOWTIME u(ex-cso)=rjust(div(v(VAR`CURSECS),3600),2,0):[rjust(div(mod(v(VAR`CURSECS),3600),60),2,0)]
-
-&INC`MAIN u(ex-cso)=@pemit %#=header(Current IC Time);@pemit %#=u(u(ex-cso)/FUN`SHOWDATE);@pemit %#=u(u(ex-cso)/FUN`SHOWMOON);@pemit %#=header()
-
-&TRG`ANNOUNCE u(ex-cso)=@select/inline v(VAR`ANNOUNCE)=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=u(u(ex-cso)/FUN`SHOWDATE) - [u(u(ex-cso)/FUN`SHOWMOON)]}
-
-&TRG`TICKER u(ex-cso)=@select/inline t(v(VAR`ENABLED))=1,{@select/inline gt(u(setr,newsecs,add(v(VAR`CURSECS),u(setr,secsadd,round(mul(60,v(VAR`MULTIPLIER)),0)))),90000)=1,{@trigger u(ex-proj)/TRG`TICKDOWN=%q<secsadd>;&VAR`CURSECS u(ex-cso)=sub(%q<newsecs>,90000);@select/inline gt(u(setr,newdays,add(v(VAR`CURDAY),1)),425)=1,{&VAR`CURDAY u(ex-cso)=sub(%q<newdays>,425);&VAR`CURYEAR u(ex-cso)=add(v(VAR`CURYEAR),1);@trigger u(ex-cso)/TRG`ANNOUNCE},{&VAR`CURDAY u(ex-cso)=%q<newdays>;@trigger me/TRG`ANNOUNCE}},{@trigger u(ex-proj)/TRG`TICKDOWN=%q<secsadd>;&VAR`CURSECS u(ex-cso)=%q<newsecs>}};@wait 60={@trigger u(ex-cso)/TRG`TICKER}
-
-&VAR`ADMINFLAGS u(ex-cso)=STOP|START
-&VAR`ANNOUNCE u(ex-cso)=1
-&VAR`ANNOUNCECHANNEL u(ex-cso)=RP Alerts
-&VAR`CURDAY u(ex-cso)=1
-&VAR`CURSECS u(ex-cso)=1
-&VAR`CURYEAR u(ex-cso)=775
-&VAR`DAYNAMES u(ex-cso)=[ansi(hy,Sunday)]|[ansi(hw,Moonday)]|[ansi(hr,Marsday)]|[ansi(y,Mercuryday)]|[ansi(hg,Jupiterday)]|[ansi(hc,Venusday)]|[ansi(hm,Saturnday)]
-&VAR`ENABLED u(ex-cso)=1
-&VAR`MONTHNAMES u(ex-cso)=[ansi(hc,Ascending Air)]|[ansi(hc,Resplendent Air)]|[ansi(hc,Descending Air)]|[ansi(hb,Ascending Water)]|[ansi(hb,Resplendent Water)]|[ansi(hb,Descending Water)]|[ansi(y,Ascending Earth)]|[ansi(y,Resplendent Earth)]|[ansi(y,Descending Earth)]|[ansi(hg,Ascending Wood)]|[ansi(hg,Resplendent Wood)]|[ansi(hg,Descending Wood)]|[ansi(hr,Ascending Fire)]|[ansi(hr,Resplendent Fire)]|[ansi(hr,Descending Fire)]
-&VAR`MOONNAMES u(ex-cso)=[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing Cresc)][ansi(hw,ent)]|[ansi(hx,Waxing)]%B[ansi(hw,Half)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hx,Wax)][ansi(hw,ing Gibbous)]|[ansi(hw,Full)]|[ansi(hw,Full)]|[ansi(hw,Full)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning Gibb)][ansi(hx,ous)]|[ansi(hw,Waning)]%B[ansi(hx,Half)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hw,Wan)][ansi(hx,ing Crescent)]|[ansi(hx,No Moon)]|[ansi(hx,No Moon)]|[ansi(hx,No Moon)]
-&VAR`MULTIPLIER u(ex-cso)=3
-
-&STARTUP u(ex-cso)=@trigger u(ex-cso)/TRG`TICKER
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Character Data - DATA.txt b/unfinished/storyteller/exalted25/Character Data - DATA.txt
index 90f3fe3..bc3c0d6 100644
--- a/unfinished/storyteller/exalted25/Character Data - DATA.txt	
+++ b/unfinished/storyteller/exalted25/Character Data - DATA.txt	
@@ -1,3 +1,6 @@
+th u(newconf,config,STORYTELLER,SHARDS_ABYSSALS,0,True: Abyssals use Doom (shards). False: Use Flawed Virtue. (MOEP),BOOL)
+
+
 @@ Advantages
 &INC`SET`ESSENCE [u(cobj,data)]=@attach %!/INC`SET`POWER
 &INC`SET`SPLAT [u(cobj,data)]=@attach [u(cobj,data)]/INC`SET`CLASS
@@ -5,7 +8,7 @@ th u(newconf,config,STORYTELLER,CLASSES,MORTAL|SOLAR|LUNAR|TERRESTRIAL|ABYSSAL|S
 
 &INC`SET`CASTE [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`CASTE;@attach %!/DO`ANNOUNCE=%0,{[ansi(h,name(%0))]'s [u(setr,msg,Caste is now set to: [ansi(h,u(capnames,%q<find>))])]},{Your %q<msg>},{[ansi(h,name(%0))]'s %q<msg>}
 
-&DO`VAL`CASTE [u(cobj,data)]=th u(setq,class,u(getclass,%0));@check words(u(setr,castes,get(u(cobj,data)/CASTE`%q<class>)),|)=@attach %!/INC`MSG=[u(capnames,%q<class>)]s do not have Castes.;@check strlen(%2)=@attach %!/INC`MSG=ERROR: No Caste name entered.;@attach %!/INC`PARTIAL=%2,%q<castes>,|,find,caste
+&DO`VAL`CASTE [u(cobj,data)]=th u(setq,class,getclass(%0));@check words(u(setr,castes,get(u(cobj,data)/CASTE`%q<class>)),|)=@attach %!/INC`MSG=[u(capnames,%q<class>)]s do not have Castes.;@check strlen(%2)=@attach %!/INC`MSG=ERROR: No Caste name entered.;@attach %!/INC`PARTIAL=%2,%q<castes>,|,find,caste
 &DO`SET`CASTE [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`CASTE;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`INFO,CASTE,%q<find>
 
 &CASTE`SOLAR [u(cobj,data)]=DAWN|ZENITH|TWILIGHT|NIGHT|ECLIPSE
@@ -27,10 +30,10 @@ th u(newconf,config,STORYTELLER,CLASSES,MORTAL|SOLAR|LUNAR|TERRESTRIAL|ABYSSAL|S
 
 &INC`SET`ATTRIBUTE [u(cobj,data)]=@attach %!/DO`SET`ATTRIBUTE=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Attribute
 
-&DO`VAL`ATTRIBUTE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Attribute name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,find,attribute;@attach %!/DO`CHECKSTAT=%0,Attributes,%2
+&DO`VAL`ATTRIBUTE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Attribute name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,find,attribute;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Attributes,%2
 &DO`SET`ATTRIBUTE [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`ATTRIBUTE;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`ATTRIBUTES,%q<find>,%q<value>
 
-&FUN`GET`ATTRIBUTES [u(cobj,data)]=u(game config,STORYTELLER,ATTRIBUTES)
+&FUN`GET`ATTRIBUTES [u(cobj,data)]=u(game_config,STORYTELLER,ATTRIBUTES)
 &FUN`RET`ATTRIBUTES [u(cobj,data)]=iter(ucstr(get(%0/D`ATTRIBUTES)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,ATTRIBUTES,STRENGTH|CHARISMA|PERCEPTION|DEXTERITY|MANIPULATION|INTELLIGENCE|STAMINA|APPEARANCE|WITS,Attributes list,list)
@@ -39,24 +42,33 @@ th u(newconf,config,STORYTELLER,ATTRIBUTES,STRENGTH|CHARISMA|PERCEPTION|DEXTERIT
 
 &INC`SET`ABILITY [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`ABILITY=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Ability
 
-&DO`VAL`ABILITY [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Ability name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`ABILITIES),|,find,ability;@attach %!/DO`CHECKSTAT=%0,Abilities,%2
+&DO`VAL`ABILITY [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Ability name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`ABILITIES),|,find,ability;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Abilities,%2
 &DO`SET`ABILITY [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`ABILITY;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`ABILITIES,%q<find>,%q<value>
 
-&FUN`GET`ABILITIES [u(cobj,data)]=u(game config,STORYTELLER,ABILITIES)
+&FUN`GET`ABILITIES [u(cobj,data)]=u(game_config,STORYTELLER,ABILITIES)
 &FUN`RET`ABILITIES [u(cobj,data)]=iter(ucstr(get(%0/D`ABILITIES)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,ABILITIES,ARCHERY|MARTIAL ARTS|MELEE|THROWN|WAR|BUREAUCRACY|LINGUISTICS|RIDE|SAIL|SOCIALIZE|ATHLETICS|AWARENESS|DODGE|LARCENY|STEALTH|CRAFT|INVESTIGATION|LORE|MEDICINE|OCCULT|INTEGRITY|PERFORMANCE|PRESENCE|RESISTANCE|SURVIVAL,Abilities list for display,LIST)
 
+@@ Specialties
+
+&INC`SET`SPECIALTY [u(cobj,data)]=@attach [u(cobj,data)]/Do`SET`SPECIALTY=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Specialty,%q<find>/%q<spec>
+
+&DO`VAL`SPECIALTY [u(cobj,data)]=@check strlen(u(setr,enstat,before(%1,/)))=@attach %!/INC`MSG=ERROR: No stat entered to specialize in.;@attach %!/INC`PARTIAL=%q<enstat>,setunion(u(u(cobj,data)/FUN`GET`ABILITIES),u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,|),|,find,stat;@check strlen(u(setr,spec,after(%1,/)))=@attach %!/INC`MSG=ERROR: No Specialty name entered.;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Specialties,%2
+&DO`SET`SPECIALTY [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`SPECIALTY;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`SPECIALTIES,%q<find>/%q<spec>,%q<value>
+
+&FUN`RET`SPECIALTIES [u(cobj,data)]=iter(ucstr(get(%0/D`SPECIALTIES)),before(%i0,~),|,|)
+
 @@ Info
-th u(newconf,CONFIG,STORYTELLER,INFOTYPES,FAVORED YOZI|VIRTUE FLAW|DOOM|LIEGE|TOTEM ANIMAL|FLAWED VIRTUE|NATION|HOUSE|FACTION|LURE|URGE,Extra Chargen settings?,LIST)
+th u(newconf,CONFIG,STORYTELLER,INFOTYPES,FAVORED YOZI|VIRTUE FLAW|DOOM|LIEGE|TOTEM ANIMAL|FLAWED VIRTUE|NATION|HOUSE|NATION|FACTION|LURE|URGE,Extra Chargen settings?,LIST)
 
 @@ Colleges
 &INC`SET`COLLEGE [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`COLLEGE=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,College
 
-&DO`VAL`COLLEGE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No College name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`COLLEGES),|,find,college;@attach %!/DO`CHECKSTAT=%0,Colleges,%2
+&DO`VAL`COLLEGE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No College name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`COLLEGES),|,find,college;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Colleges,%2
 &DO`SET`COLLEGE [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`COLLEGE;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`COLLEGES,%q<find>,%q<value>
 
-&FUN`GET`COLLEGES [u(cobj,data)]=u(game config,STORYTELLER,COLLEGES)
+&FUN`GET`COLLEGES [u(cobj,data)]=u(game_config,STORYTELLER,COLLEGES)
 &FUN`RET`COLLEGES [u(cobj,data)]=iter(ucstr(get(%0/D`COLLEGES)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,COLLEGES,THE CORPSE|THE CROW|THE HAYWAIN|THE RISING SMOKE|THE SWORD|THE CAPTAIN|THE GULL|THE MAST|THE MESSENGER|THE SHIP'S WHEEL|THE EWER|THE LOVERS|THE MUSICIAN|THE PEACOCK|THE PILLAR|THE GUARDIANS|THE KEY|THE MASK|THE SORCERER|THE TREASURE TROVE|THE BANNER|THE GAUNTLET|THE QUIVER|THE SHIELD|THE SPEAR|THE COMET|THE LIGHTNING BOLT,Sidereal Colleges list for chargen,LIST)
@@ -64,10 +76,10 @@ th u(newconf,config,STORYTELLER,COLLEGES,THE CORPSE|THE CROW|THE HAYWAIN|THE RIS
 @@ Slots
 &INC`SET`SLOT [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`SLOT=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Slot
 
-&DO`VAL`SLOT [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Slot name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`SLOTS),|,find,slot;@attach %!/DO`CHECKSTAT=%0,Slots,%2
+&DO`VAL`SLOT [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Slot name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`SLOTS),|,find,slot;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Slots,%2
 &DO`SET`SLOT [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`SLOT;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`SLOTS,%q<find>,%q<value>
 
-&FUN`GET`SLOTS [u(cobj,data)]=u(game config,STORYTELLER,SLOTS)
+&FUN`GET`SLOTS [u(cobj,data)]=u(game_config,STORYTELLER,SLOTS)
 &FUN`RET`SLOTS [u(cobj,data)]=iter(ucstr(get(%0/D`SLOTS)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,SLOTS,DEDICATED|GENERAL,Alchemical Slots list for chargen,LIST)
@@ -75,10 +87,10 @@ th u(newconf,config,STORYTELLER,SLOTS,DEDICATED|GENERAL,Alchemical Slots list fo
 @@ Paths
 &INC`SET`PATH [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`PATH=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Path
 
-&DO`VAL`PATH [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Path name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`PATHS),|,find,path;@attach %!/DO`CHECKSTAT=%0,Paths,%2
+&DO`VAL`PATH [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Path name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`PATHS),|,find,path;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Paths,%2
 &DO`SET`PATH [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`PATH;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`PATHS,%q<find>,%q<value>
 
-&FUN`GET`PATHS [u(cobj,data)]=u(game config,STORYTELLER,PATHS)
+&FUN`GET`PATHS [u(cobj,data)]=u(game_config,STORYTELLER,PATHS)
 &FUN`RET`PATHS [u(cobj,data)]=iter(ucstr(get(%0/D`PATHS)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,PATHS,CELESTIAL AIR|CLEAR AIR|SOLID EARTH|YIELDING EARTH|BLAZING FIRE|FLICKERING FIRE|FLOWING WATER|SHIMMERING WATER|GROWING WOOD|SHAPING WOOD|GLORIOUS CONSUMPTION|COAGULATED EUCHARIST|TECHNOMORPHIC TRANSCENDANCE|ECSTATIC ARMAGEDDON|TORMENTED BODHISATTVA,Dragon-King Paths list for chargen,LIST)
@@ -86,10 +98,10 @@ th u(newconf,config,STORYTELLER,PATHS,CELESTIAL AIR|CLEAR AIR|SOLID EARTH|YIELDI
 @@ GRACES
 &INC`SET`GRACE [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`GRACE=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Grace
 
-&DO`VAL`GRACE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Grace name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`GRACES),|,find,grace;@attach %!/DO`CHECKSTAT=%0,Graces,%2
+&DO`VAL`GRACE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Grace name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`GRACES),|,find,grace;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Graces,%2
 &DO`SET`GRACE [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`GRACE;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`GRACES,%q<find>,%q<value>
 
-&FUN`GET`GRACES [u(cobj,data)]=u(game config,STORYTELLER,GRACES)
+&FUN`GET`GRACES [u(cobj,data)]=u(game_config,STORYTELLER,GRACES)
 &FUN`RET`GRACES [u(cobj,data)]=iter(ucstr(get(%0/D`GRACES)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,GRACES,WAY|SWORD|STAFF|CUP|RING|HEART,Raksha Graces list for chargen,LIST)
@@ -97,10 +109,10 @@ th u(newconf,config,STORYTELLER,GRACES,WAY|SWORD|STAFF|CUP|RING|HEART,Raksha Gra
 @@ VIRTUES
 &INC`SET`VIRTUE [u(cobj,data)]=@attach [u(cobj,data)]/DO`SET`VIRTUE=%0,elements(%1,2,|),%2;@attach %!/DO`RENDERSTAT=%0,Virtue
 
-&DO`VAL`VIRTUE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Virtue name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`VIRTUES),|,find,virtue;@attach %!/DO`CHECKSTAT=%0,Virtues,%2
+&DO`VAL`VIRTUE [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Virtue name entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`VIRTUES),|,find,virtue;@attach [u(cobj,data)]/DO`CHECKSTAT=%0,Virtues,%2
 &DO`SET`VIRTUE [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`VIRTUE;@attach [u(cobj,data)]/KEYVALUE`SET=%0,D`VIRTUES,%q<find>,%q<value>
 
-&FUN`GET`VIRTUES [u(cobj,data)]=u(game config,STORYTELLER,VIRTUES)
+&FUN`GET`VIRTUES [u(cobj,data)]=u(game_config,STORYTELLER,VIRTUES)
 &FUN`RET`VIRTUES [u(cobj,data)]=iter(ucstr(get(%0/D`VIRTUES)),before(%i0,~),|,|)
 
 th u(newconf,config,STORYTELLER,VIRTUES,COMPASSION|CONVICTION|TEMPERANCE|VALOR,Virtues list for chargen,LIST)
@@ -128,7 +140,7 @@ th u(newconf,config,STORYTELLER,VIRTUES,COMPASSION|CONVICTION|TEMPERANCE|VALOR,V
 &FUN`GET`CHARMTYPES`SOLAR [u(cobj,data)]=u(FUN`GET`ABILITIES)
 &FUN`GET`CHARMTYPES`ABYSSAL [u(cobj,data)]=u(FUN`GET`ABILITIES)
 &FUN`GET`CHARMTYPES`TERRESTRIAL [u(cobj,data)]=u(FUN`GET`ABILITIES)
-&FUN`GET`CHARMTYPES`LUNAR [u(cobj,data)]=u(FUN`GET`ATTRIBUTES)
+&FUN`GET`CHARMTYPES`LUNAR [u(cobj,data)]=u(FUN`GET`ATTRIBUTES)|KNACKS
 &FUN`GET`CHARMTYPES`SIDEREAL [u(cobj,data)]=setunion(u(FUN`GET`ABILITIES),u(FUN`GET`COLLEGES),|,|)
 &FUN`GET`CHARMTYPES`INFERNAL [u(cobj,data)]=MALFEAS|CECELYNE|SWLIHN|ADORJAN|EBON DRAGON|KIMBERY|THEION|MARTIAL ARTS
 &FUN`GET`CHARMTYPES`SPIRIT [u(cobj,data)]=UNIVERSAL
@@ -142,15 +154,15 @@ th u(newconf,config,STORYTELLER,VIRTUES,COMPASSION|CONVICTION|TEMPERANCE|VALOR,V
 @@ Martial ARTS
 &FUN`GET`STYLENAME [u(cobj,data)]=u(capnames,default(%0/D`CHARMS`%0`%1`NAME,Unnamed Style))
 
-&INC`ADD`MACHARM [u(cobj,data)]=@attach %!/DO`ADD`MACHARM=%0,elements(%1,2 3,|,|),%2;@attach %!/DO`ANNOUNCE=%0,{[ansi(h,name(%0))] [u(setr,have,gained [ansi(h,u(u(cobj,data)/FUN`GET`STYLENAME,%0,%q<tier> MARTIAL ARTS,%q<slot>))] Charms: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of addition: %q<returnformat>)]},{You %q<have>},{[ansi(h,name(%0))] gained %q<have>}
+&INC`ADD`MACHARM [u(cobj,data)]=@attach %!/DO`ADD`MACHARM=%0,elements(%1,2 3,|,|),%2;@attach %!/DO`ANNOUNCE=%0,{[ansi(h,name(%0))] [u(setr,have,gained [ansi(h,u(u(cobj,data)/FUN`GET`STYLENAME,%0,%q<tier>_MARTIAL_ARTS,%q<slot>))] Charms: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of addition: %q<returnformat>)]},{You %q<have>},{[ansi(h,name(%0))] gained %q<have>}
 
-&INC`REM`MACHARM [u(cobj,data)]=@attach %!/DO`REM`MACHARM=%0,elements(%1,2 3,|,|),%2;@attach %!/DO`ANNOUNCE=%0,{[ansi(h,name(%0))] [u(setr,have,lost [ansi(h,u(u(cobj,data)/FUN`GET`STYLENAME,%0,%q<slot>))] Charms: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of removal: %q<returnformat>)]},{You %q<have>},{[ansi(h,name(%0))] lost %q<have>}
+&INC`REM`MACHARM [u(cobj,data)]=@attach %!/DO`REM`MACHARM=%0,elements(%1,2 3,|,|),%2;@attach %!/DO`ANNOUNCE=%0,{[ansi(h,name(%0))] [u(setr,have,lost [ansi(h,u(u(cobj,data)/FUN`GET`STYLENAME,%0,%q<tier>_MARTIAL_ARTS,%q<slot>))] Charms: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of removal: %q<returnformat>)]},{You %q<have>},{[ansi(h,name(%0))] lost %q<have>}
 
 &DO`VAL`MACHARM [u(cobj,data)]=@check strlen(before(%1,|))=@attach %!/INC`MSG=ERROR: No Tier entered!;@attach %!/INC`PARTIAL=before(%1,|),TERRESTRIAL|CELESTIAL|SIDEREAL,|,tier,tier;@attach %!/INC`VALID`POSINT=after(%1,|),Martial Arts Slot;th u(setq,slot,%q<value>);@check strlen(u(setr,value,%2))=@attach %!/INC`MSG=ERROR: No Charms entered.
 
-&DO`ADD`MACHARM [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`MACHARM;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>,%q<value>
+&DO`ADD`MACHARM [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`MACHARM;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`CHARMS`%q<tier>_MARTIAL_ARTS`%q<slot>,%q<value>
 
-&DO`REM`MACHARM [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`MACHARM;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>,%q<value>;@select/inline strlen(get(%0/D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>))=0,{@attach %!/WIPE=%0,D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>}
+&DO`REM`MACHARM [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`MACHARM;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>,%q<value>;@select/inline strlen(get(%0/D`CHARMS`%q<tier> MARTIAL ARTS`%q<slot>))=0,{@attach %!/WIPE=%0,D`CHARMS`%q<tier>_MARTIAL_ARTS`%q<slot>}
 
 @@ Health
 
@@ -168,28 +180,28 @@ th u(newconf,config,STORYTELLER,VIRTUES,COMPASSION|CONVICTION|TEMPERANCE|VALOR,V
 
 @@ Spells
 
-&INC`ADD`SPELL [u(cobj,data)]=@attach %!/DO`ADD`SPELL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) now has the [u(setr,have,ansi(h,u(capnames,%q<find>)) Spells [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,))]. Result of additions: %q<returnformat>)])]},{You now have the %q<have>},{%q<msg>}
-&INC`REM`SPELL [u(cobj,data)]=@attach %!/DO`REM`SPELL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) no longer have the [u(setr,have,ansi(h,u(capnames,%q<find>)) Spells: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,))]. Result of removal: %q<returnformat>)])]},{You no longer have the %q<have>},{%q<msg>}
+&INC`ADD`SPELL [u(cobj,data)]=@attach %!/DO`ADD`SPELL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) now has the [u(setr,have,ansi(h,u(capnames,%q<find>)) Spells [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of additions: %q<returnformat>)])]},{You now have the %q<have>},{%q<msg>}
+&INC`REM`SPELL [u(cobj,data)]=@attach %!/DO`REM`SPELL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) no longer have the [u(setr,have,ansi(h,u(capnames,%q<find>)) Spells: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of removal: %q<returnformat>)])]},{You no longer have the %q<have>},{%q<msg>}
 
 &DO`VAL`SPELL [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Spell Category entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`SPELLS),|,find,Spell Category;@check strlen(u(setr,value,%2))=@attach %!/INC`MSG=ERROR: No Spells entered.
 
 &DO`ADD`SPELL [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`SPELL;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`SPELLS`%q<find>,%q<value>
 &DO`REM`SPELL [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`SPELL;@attach [u(cobj,data)]/WORDLIST`REM=%0,D`SPELLS`%q<find>,%q<value>;@select/inline strlen(get(%0/D`SPELLS`%q<find>))=0,{@wipe %0/D`SPELLS`%q<find>;@select/inline strlen(get(%0/D`SPELLS))=0,{@wipe %0/D`SPELLS}}
 
-&FUN`GET`SPELLS [u(cobj,data)]=u(game config,STORYTELLERY,SPELLS)
+&FUN`GET`SPELLS [u(cobj,data)]=u(game_config,STORYTELLER,SPELLS)
 th u(newconf,CONFIG,STORYTELLER,SPELLS,TERRESTRIAL|CELESTIAL|SOLAR|SHADOWLANDS|LABYRINTH|VOID,Available Spell Categories,LIST)
 
 @@ Protocols
 
-&INC`ADD`PROTOCOL [u(cobj,data)]=@attach %!/DO`ADD`PROTOCOL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) now has the [u(setr,have,ansi(h,u(capnames,%q<find>)) Protocols [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,))]. Result of additions: %q<returnformat>)])]},{You now have the %q<have>},{%q<msg>}
-&INC`REM`PROTOCOL [u(cobj,data)]=@attach %!/DO`REM`PROTOCOL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) no longer have the [u(setr,have,ansi(h,u(capnames,%q<find>)) Protocols: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,))]. Result of removal: %q<returnformat>)])]},{You no longer have the %q<have>},{%q<msg>}
+&INC`ADD`PROTOCOL [u(cobj,data)]=@attach %!/DO`ADD`PROTOCOL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) now has the [u(setr,have,ansi(h,u(capnames,%q<find>)) Protocols [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of additions: %q<returnformat>)])]},{You now have the %q<have>},{%q<msg>}
+&INC`REM`PROTOCOL [u(cobj,data)]=@attach %!/DO`REM`PROTOCOL=%0,elements(%1,2,|),%2;@attach %!/DO`ANNOUNCE=%0,{[u(setr,msg,ansi(h,name(%0)) no longer have the [u(setr,have,ansi(h,u(capnames,%q<find>)) Protocols: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of removal: %q<returnformat>)])]},{You no longer have the %q<have>},{%q<msg>}
 
 &DO`VAL`PROTOCOL [u(cobj,data)]=@check strlen(%1)=@attach %!/INC`MSG=ERROR: No Protocol Category entered.;@attach %!/INC`PARTIAL=%1,u(u(cobj,data)/FUN`GET`PROTOCOLS),|,find,Protocol Category;@check strlen(u(setr,value,%2))=@attach %!/INC`MSG=ERROR: No Protocols entered.
 
 &DO`ADD`PROTOCOL [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`PROTOCOL;@attach [u(cobj,data)]/WORDLIST`ADD=%0,D`PROTOCOLS`%q<find>,%q<value>
 &DO`REM`PROTOCOL [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`PROTOCOL;@attach [u(cobj,data)]/WORDLIST`REM=%0,D`PROTOCOLS`%q<find>,%q<value>;@select/inline strlen(get(%0/D`PROTOCOLS`%q<find>))=0,{@wipe %0/D`PROTOCOLS`%q<find>;@select/inline strlen(get(%0/D`PROTOCOLS))=0,{@wipe %0/D`PROTOCOLS}}
 
-&FUN`GET`PROTOCOLS [u(cobj,data)]=u(game config,STORYTELLERY,PROTOCOLS)
+&FUN`GET`PROTOCOLS [u(cobj,data)]=u(game_config,STORYTELLER,PROTOCOLS)
 th u(newconf,CONFIG,STORYTELLER,PROTOCOLS,MAN-MACHINE|GOD-MACHINE,Available Protocol Categories,LIST)
 
 @@ Languages
@@ -220,9 +232,11 @@ th u(newconf,CONFIG,STORYTELLER,PROTOCOLS,MAN-MACHINE|GOD-MACHINE,Available Prot
 &DO`ADD`FAVORED [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`FAVORED;@stop words(u(setr,conflict,setinter(u(setr,oldcharms,ucstr(get(%0/D`FAVORED`%q<find>))),ucstr(%q<value>),|,|)),|)=@attach %!/INC`MSG=[switch(%0,%#,You already have,name(%0) already has)] the [u(itemize,u(capnames,%q<conflict>),|,and,\,)] [ansi(h,u(capnames,%q<find>))] Favored.;&D`FAVORED`%q<find> %0=u(setr,newcharms,setunion(%q<oldcharms>,ucstr(%q<value>),|,|))
 &DO`REM`FAVORED [u(cobj,data)]=@attach [u(cobj,data)]/DO`VAL`FAVORED;@stop words(u(setr,conflict,setdiff(ucstr(%q<value>),u(setr,oldcharms,ucstr(get(%0/D`FAVORED`%q<find>))),|,|)),|)=@attach %!/INC`MSG=[switch(%0,%#,You don't have have,name(%0) doesn't have)] the [u(itemize,u(capnames,%q<conflict>),|,and,\,)] [ansi(h,u(capnames,%q<find>))] Favored.;&D`FAVORED`%q<find> %0=u(setr,newcharms,setdiff(get(%0/D`FAVORED`%q<find>),ucstr(%q<value>),|,|));@select/inline strlen(%q<newcharms>)=0,{@attach %!/WIPE=%0,D`FAVORED`%q<find>}
 
-&FUN`GET`FAVORED [u(cobj,data)]=ATTRIBUTES|ABILITIES
+&FUN`GET`FAVORED [u(cobj,data)]=ATTRIBUTES|ABILITIES|COLLEGES|PATHS
 &FUN`GET`FAVORED`ATTRIBUTES [u(cobj,data)]=u(FUN`GET`ATTRIBUTES)
 &FUN`GET`FAVORED`ABILITIES [u(cobj,data)]=u(FUN`GET`ABILITIES)
+&FUN`GET`FAVORED`COLLEGES [u(cobj,data)]=u(FUN`GET`COLLEGES)
+&FUN`GET`FAVORED`PATHS [u(cobj,data)]=u(FUN`GET`PATHS)
 
 @@ Charmnames
 &CMD`+CHARMNAMES [u(cobj,data)]=$^\+charmnames(?\: +(.+))?$:@check strlen(%1)=@pemit %#=What Class's Charm names will you check?;@attach %!/INC`PARTIAL=%1,u(FUN`GET`CHARMTYPES),|,splat,Splat;@check words(u(lattr,u(cobj,pool)/%q<splat>`*))=@pemit %#=That Splat has no pool data to display.;@pemit %#=u(header,u(capnames,%q<splat>) Pool Charms);@select/inline words(u(setr,slots,u(sortattr,u(lattr,u(cobj,pool)/%q<splat>`EXPANDED`*))))=>0,{@pemit %#=ansi(h,* EXPANDED POOL *);@dolist/inline %q<slots>={@pemit %#=ansi(h,last(##,`) Motes:) [edit(u(capnames,get(u(cobj,pool)/##)),|,\,%b)]}};@select/inline words(u(setr,slots,u(sortattr,u(lattr,u(cobj,pool)/%q<splat>`OVERDRIVE`*))))=>0,{@pemit %#=ansi(h,* OVERDRIVE POOL *);@dolist/inline %q<slots>={@pemit %#=ansi(h,last(##,`) Motes:) [edit(u(capnames,get(u(cobj,pool)/##)),|,\,%b)]}};@pemit %#=%RTo codedly take advantage of these Charms so that they affect your pools, they must be entered exactly as spelled above. Expanders must have a number on the end such as Immanent Solar Glory 4 to denote how many times they were purchased (without such a number, it defaults to 1) and will be collectively checked in all Charm categories and added together. For Infernal Expanders, simply having them listed is enough. God-Blooded use the expanders of their parent Splats.;@pemit %#=u(subheader)
diff --git a/unfinished/storyteller/exalted25/Chargen Room - CHARGEN.txt b/unfinished/storyteller/exalted25/Chargen Room - CHARGEN.txt
new file mode 100644
index 0000000..b5ab688
--- /dev/null
+++ b/unfinished/storyteller/exalted25/Chargen Room - CHARGEN.txt	
@@ -0,0 +1,305 @@
+@@ DEPENDENCIES - CORE
+
+@select/inline isdbref(u(cobj,chargen))=0,{@dig/teleport Chargen;th u(attrib_set,u(cobj,mco),COBJ`CHARGEN,u(objid,%l));@parent %l=u(cobj,mco)}
+@select/inline v(game)=PennMUSH,{@set u(cobj,chargen)=WIZARD !NO COMMAND},RhostMUSH,{@set u(cobj,chargen)=INHERIT SIDEFX !NO COMMAND}
+
+@cpattr u(cobj,ancestor_room)/HEADER=u(cobj,chargen)/HEADER
+
+&CMD`+PAGE [u(cobj,chargen)]=$^\+page(?\: +(.+))?$:@check strlen(%1)=@attach %!/INC`MSG=ERROR: +page requires a page to turn to. Your options are: [u(itemize,u(filter,ISPAGE,u(lattr,%!/CG`*,|),|,|),|,and,\,)];@check u(valnum,%1)=@attach %!/INC`MSG=ERROR: Pages must be whole\, positive numbers.;@check match(u(filter,ISPAGE,u(lattr,%!/CG`*,|),|,|),CG`%1,|)=@attach %!/INC`MSG=ERROR: Page not found!;th u(setstat,%#,D`CHARGEN,Page,CG`%1);@force/inline %#=look;@attach %!/INC`MSG=You are now viewing Page %1!
+@set [u(cobj,chargen)]/CMD`+PAGE=regexp
+
+&FIL`ISPAGE [u(cobj,chargen)]=isint(last(%0,`))
+
+&SYSTEM`NAME [u(cobj,chargen)]=CHARGEN
+
+@desc [u(cobj,chargen)]=%TWelcome to [mudname()] Chargen! In this room you will setup your sheet and other aspects and prepare for admin review for approval. Remember to check out any House Rules at [u(weblink,mudurl(),mudurl())]%R%R%T[ansi(h,INSTRUCTIONS:)] Set your sheet as it would be after spending all your available points, including starting experience awarded by house rules. Approval will require an +info (+help +info) file detailing your spends so keep track of how you spend your XP.%R%R%TTo see your sheet, type [ansi(h,+sheet)]%R[u(u(strfirstof,u(getstat,%#,D`CHARGEN,Page),CG`1),getclass(%#))]%R[u(SEPARATOR,Chargen)]%RViewing Page [ansi(h,u(strfirstof,last(u(getstat,%#,D`CHARGEN,Page),`),1))] of [ansi(h,u(lmax,u(filter,ISPAGE,u(lattr,%!/*))))]. Use [ansi(h,+page <number>)] to change. For example, +page 2.%RIf you'd like to undo certain steps, use [ansi(h,+reset)] to view your options.%R[u(FUN`STATS,%#)]
+
+&FUN`STATS [u(cobj,chargen)]=[u(SEPARATOR,Progress)]%R[ansi(h,ATTRIBUTES:)] [rjust(u(FUN`COUNT,%#,ATTRIBUTES),2,0)]. Physical/Social/Mental: [rjust(add(u(getstat,%#,D`ATTRIBUTES,Strength),u(getstat,%#,D`ATTRIBUTES,Dexterity),u(getstat,%#,D`ATTRIBUTES,Stamina)),2,0)]/[rjust(add(u(getstat,%#,D`ATTRIBUTES,Charisma),u(getstat,%#,D`ATTRIBUTES,Manipulation),u(getstat,%#,D`ATTRIBUTES,Appearance)),2,0)]/[rjust(add(u(getstat,%#,D`ATTRIBUTES,Perception),u(getstat,%#,D`ATTRIBUTES,Intelligence),u(getstat,%#,D`ATTRIBUTES,Wits)),2,0)]%R[ansi(h,ABILITIES:)] [rjust(add(u(FUN`COUNT,%#,ABILITIES),u(FUN`COUNT,%#,STYLES),u(FUN`COUNT,%#,CRAFTS)),2,0)]/[rjust(u(strfirstof,v(MAX`ABILITIES`[u(setr,class,getclass(%#))]),??),2,0)]%R[ansi(h,MERITS:)] [rjust(u(FUN`COUNT`MERITS,%#),2,0)]/[rjust(u(strfirstof,v(MAX`MERITS`%q<class>),??),2,0)]%R[ansi(h,CHARMS:)] [rjust(add(u(FUN`COUNT`CHARMS,%#),u(FUN`COUNT`SPELLS,%#)),2,0)]/[rjust(u(strfirstof,v(MAX`CHARMS`%q<class>),??),2,0)]
+
+&FUN`COUNT [u(cobj,chargen)]=u(ladd,iter(get(%0/D`%1),last(%i0,~),|,%b))
+&FUN`COUNT`MERITS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`MERITS`*`RANK),get(%0/%i0)))
+&FUN`COUNT`CHARMS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`CHARMS`*`*),words(get(%0/%i0),|)))
+&FUN`COUNT`SPELLS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`SPELLS`*),words(get(%0/%i0),|)))
+
+&CG [u(cobj,chargen)]=@@ Empty attrib for Rhost.
+
+&CG`1 [u(cobj,chargen)]=[u(SEPARATOR,Step 1: Concept and Caste)]%R[ansi(h,+class <type>)]%R%TYour choices are: [u(itemize,u(setr,classes,u(game_config,STORYTELLER,CLASSES)),|,and,\,)][if(strlen(u(setr,castes,get(u(cobj,data)/CASTE`%0))),%R%R[ansi(h,+caste <type>)] to set your [switch(%0,Terrestrial,Aspect,Caste)]%R%TYour choices are: [u(itemize,%q<castes>,|,and,\,)][if(hasattr(%!/CG`1`%0),%R%R[u(CG`1`%0)])])]%R%R[ansi(h,&sex me=<gender>)] to set your Gender (Male, Female, or None)
+
+&CG`1`SOLAR [u(cobj,chargen)]=ansi(h,+virtueflaw <flaw>) to set your Virtue Flaw.
+&CG`1`LUNAR [u(cobj,chargen)]=u(CG`1`SOLAR)%R%R[ansi(h,+totem <animal>)] to set your Spirit Shape.
+&CG`1`ABYSSAL [u(cobj,chargen)]=if(u(game_config,STORYTELLER,SHARDS_ABYSSALS),ansi(h,+doom <doom>) to set your Doom (Shards hack),ansi(h,+flawedvirtue <flaw>) to set your Flawed Virtue (MoEP: Abyssals))%R%R[ansi(h,+liege <name>)] to set your Liege (or Renegade)
+&CG`1`ALCHEMICAL [u(cobj,chargen)]=ansi(h,+nation <name>)] to set your Nation.
+&CG`1`INFERNAL [u(cobj,chargen)]=ansi(h,+yozi <name>) to set your Favored Yozi.%R%R[ansi(h,+urge <archetype>)] to set your Urge model.%R%R[ansi(h,+intimacy/urge <urge>)] to set its specifics.
+&CG`1`TERRESTRIAL [u(cobj,chargen)]=ansi(h,+nation) to set your origin. (Realm, Lookshy, Outcaste?)%R[ansi(h,+house <name>)] to set your dynastic house or equivalent, if applicable.
+&CG`1`RAKSHA [u(cobj,chargen)]=ansi(h,+lure <virtue and condition>)] to set your Lure.
+&CG`1`MORTAL [u(cobj,chargen)]=Mortals have nothing race-specific to set!
+&CG`1`JADEBORN [u(cobj,chargen)]=This covers both Enlightened and Unenlightened!
+
+&CMD`+SPLAT [u(cobj,chargen)]=$^\+(?\:splat|class)(?\: +(.+))?$:@attach u(cobj,data)/DO`SET`CLASS=%#,,%1;@force/inline %#=look;@attach %!/INC`MSG=You are now a [ansi(h,u(capnames,%q<find>))].
+@set [u(cobj,chargen)]/CMD`+SPLAT=regexp
+
+&CMD`+CASTE [u(cobj,chargen)]=$^\+caste(?\: +(.+))?$:@attach u(cobj,data)/DO`SET`CASTE=%#,,%1;@attach %!/INC`MSG=Your Caste is now [ansi(h,u(capnames,%q<find>))].
+@set [u(cobj,chargen)]/CMD`+CASTE=regexp
+
+&CMD`INFOSET [u(cobj,chargen)]=$^\+(virtueflaw|flawedvirtue|doom|liege|lure|totem|urge|house|nation|yozi|nation)(?\: +(.+))?$:th u(setq,type,switch(%1,flawedvirtue,Flawed Virtue,virtueflaw,Virtue Flaw,doom,Doom,liege,Liege,lure,Lure,totem,Totem Animal,urge,Urge,house,House,yozi,Favored Yozi,nation,Nation));@check strlen(%2)=@attach %!/INC`MSG=What will your %q<type> be?;@attach %!/INC`MSG=Your %q<type> is now [ansi(h,%2)]. Make sure this is appropriate for your Class!;th u(setstat,%#,D`INFO,%q<type>,%2)
+@set [u(cobj,chargen)]/CMD`INFOSET=regexp
+
+&CG`2 [u(cobj,chargen)]=[u(SEPARATOR,Step 2: Attributes)]%R%tTo set an attribute:%r%r[ansi(h,%t+attr <attribute>=<value>)] (<attribute> may be a partial match. <value> must be 0 or greater.)%R%TYour choices are: [u(itemize,u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,and,\,)]%R%R%TAll Attributes begin with 1 dot free, unless otherwise stated for your Splat.%r%r%tIn order of Primary/Secondary/Tertiary...[udefault(CG`2`[getclass(%#)],Your Splat appears unset or has no data entered.)]
+
+&CG`2`MORTAL [u(cobj,chargen)]=Mortals receive 6/4/3 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`SOLAR [u(cobj,chargen)]=Solars receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`INFERNAL [u(cobj,chargen)]=Infernals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`ABYSSAL [u(cobj,chargen)]=Abyssals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+
+&CG`2`ALCHEMICAL [u(cobj,chargen)]=Alchemicals receive 8 Attribute Points for their Caste Attributes, minimum 2 each, 6 Attribute points in their Favored Attributes, and 4 Attribute points to be used freely.%r%tIn addition they receive 1 extra point for a Caste or Favored Attribute.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
+&CG`2`TERRESTRIAL [u(cobj,chargen)]=Terrestrial receive 8/6/4 Attribute Points.
+&CG`2`DRAGON-KING [u(cobj,chargen)]=Modern Dragon-Kings receive 7/5/4.%r%tAncient Dragon-Kings receive 8/6/5.
+&CG`2`GHOST [u(cobj,chargen)]=Ghosts receive 6/4/3 Attribute points. If converting from a living character, they retain existing ratings, and lose any Favored Attributes if they posessed them.
+&CG`2`GOD-BLOODED [u(cobj,chargen)]=God-Blooded receive 6/5/3 Attribute points. Half-Castes add 1 additional point wherever they wish.
+&CG`2`JADEBORN [u(cobj,chargen)]=Enlightened Jadeborn receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tUnenlightened Jadeborn receive 8/4/3 Attribute Points.
+&CG`2`LUNAR [u(cobj,chargen)]=Lunars receive 8/6/4 Attribute points, and may add 1 additional point to any Caste or Favored Attribute.%r%tTattooed Lunars receive 3 Caste Attributes and 1 Favored Attribute. Casteless Receive only 2 Favored Attributes.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
+
+&CG`2`RAKSHA [u(cobj,chargen)]=Noble Raksha receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tCommoner Raksha begin with 0 in each Attribute, receive 10/7/4, and may not raise them above 4.
+&CG`2`SIDEREAL [u(cobj,chargen)]=Sidereals receive 8/6/4 Attribute points.
+
+&CG`2`SPIRIT [u(cobj,chargen)]=Spirits usually receive (Essence x3) + (Cult x3) + (Virtues x2) Attribute points. Please consult with staff if designing a Spirit!
+
+&CMD`+ATTR [u(cobj,chargen)]=$^\+attr(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`ATTRIBUTE=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=You set [ansi(h,u(capnames,%q<find>))] to %2.
+@set [u(cobj,chargen)]/CMD`+ATTR=regexp
+
+&CMD`+CASTEFAVATTR [u(cobj,chargen)]=$+castefavattr:@check strlen(u(getstat,%#,D`INFO,Caste))=@attach %!/INC`MSG=You do not have a Caste set!;@check match(ALCHEMICAL|LUNAR,getclass(%#),|)=@attach %!/INC`MSG=Only Alchemical and Lunar Exalted may favor Attributes.;@check strlen(u(setr,newfavored,v(DAT`2`FAVORED`[edit(u(getstat,%#,D`INFO,Caste),%B,_)])))=@attach %!/INC`MSG=Your Caste does not have any listed Favored Attributes.;@attach %!/INC`MSG=You set your Favored Attributes to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;th u(attrib_set,%#,D`FAVORED`ATTRIBUTES,setunion(get(%#/D`FAVORED`ATTRIBUTES),%q<newfavored>,|,|))
+
+&CMD`+FAVATTR [u(cobj,chargen)]=$^\+(un)?favattr(?\: +(.+))?$:@check strlen(%2)=@attach %!/INC`MSG=Which Attribute will you [if(strlen(%1),un-Favor,Favor)]?;@attach %!/INC`PARTIAL=%2,u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,choice,Attribute;@select/inline t(strlen(%1))=1,{@check match(get(%#/D`FAVORED`ATTRIBUTES),%q<choice>,|)=@attach %!/INC`MSG=That Attribute is not Favored!};th u(attrib_set,%#,D`FAVORED`ATTRIBUTES,u(setr,new,set[if(strlen(%1),diff,union)](get(%#/D`FAVORED`ATTRIBUTES),u(capnames,%q<choice>),|,|)));@attach %!/INC`MSG=You now have [ansi(h,if(words(%q<new>,|),words(%q<new>,|),No))] Favored Attributes[if(words(%q<new>,|),:%B[ansi(h,u(itemize,%q<new>,|,and,\,))])]
+@set [u(cobj,chargen)]/CMD`+FAVATTR=regexp
+
+&DAT`2`FAVORED`ADAMANT [u(cobj,chargen)]=STRENGTH|APPEARANCE|PERCEPTION
+&DAT`2`FAVORED`CHANGING_MOON [u(cobj,chargen)]=CHARISMA|MANIPULATION|APPEARANCE
+&DAT`2`FAVORED`FULL_MOON [u(cobj,chargen)]=STRENGTH|DEXTERITY|STAMINA
+&DAT`2`FAVORED`HALF_MOON [u(cobj,chargen)]=CHARISMA|PERCEPTION|INTELLIGENCE
+&DAT`2`FAVORED`JADE [u(cobj,chargen)]=STAMINA|CHARISMA|WITS
+&DAT`2`FAVORED`MOONSILVER [u(cobj,chargen)]=DEXTERITY|APPEARANCE|WITS
+&DAT`2`FAVORED`NO_MOON [u(cobj,chargen)]=PERCEPTION|INTELLIGENCE|WITS
+&DAT`2`FAVORED`ORICHALCUM [u(cobj,chargen)]=STRENGTH|CHARISMA|INTELLIGENCE
+&DAT`2`FAVORED`SOULSTEEL [u(cobj,chargen)]=STAMINA|MANIPULATION|PERCEPTION
+&DAT`2`FAVORED`STARMETAL [u(cobj,chargen)]=DEXTERITY|MANIPULATION|INTELLIGENCE
+&DAT`2`FAVORED`WANING_MOON [u(cobj,chargen)]=DEXTERITY|MANIPULATION|WITS
+&DAT`2`FAVORED`WAXING_MOON [u(cobj,chargen)]=CHARISMA|MANIPULATION|APPEARANCE
+
+&CG`3 [u(cobj,chargen)]=[u(SEPARATOR,Step 3: Abilities)]%R[if(and(strlen(getclass(%#)),hasattr(%!/CG`3`[getclass(%#)])),[u(CG`3`[getclass(%#)])])]%R%RSetting any stat to 0 will remove it.
+
+&CG`3`MORTAL [u(cobj,chargen)]=Mortals receive 28 Ability points.%R%r[u(CG`3`ABILITY)]
+&CG`3`SOLAR [u(cobj,chargen)]=Solars receive 5 Caste Abilities and 5 Favored Abilities.%rSolars receive 28 ability points, minimum 10 among Caste and Favored Abilities, and receive 4 Specialty points.%R%R[u(CG`3`ABILITY)]%r%r[u(CG`3`FAVORED)]
+
+&CG`3`ABILITY [u(cobj,chargen)]=%t[ansi(h,+abil <ability>=<value>)] to set an Ability (<Ability> may be a partial match, <value> must be a number 0 or higher.)%R%t[ansi(h,+spec <ability or attribute>/<specialization>=<points>)] to set a Specialty. (Set to 1, no higher.)%R%TYour Ability choices are: [u(itemize,u(capnames,setdiff(u(u(cobj,data)/FUN`GET`ABILITIES),CRAFT,|,i,|)),|,and,\,)]
+
+&CG`3`FAVORED [u(cobj,chargen)]=%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored (also use this for Caste ones).%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored/Caste Ability.%R%TSetting "Craft" or "Martial Arts" Favored automatically favors all Crafts/Styles, respectively.
+
+&CG`3`SUPERNAL [u(cobj,chargen)]=%t[ansi(h,+supabil <Ability>)] to set an Ability as Supernal.%r%t[ansi(h,+unsupabil <ability>)] to unset a Supernal Ability.
+
+&CG`3`STYLE [u(cobj,chargen)]=%T[ansi(h,+style <style>=<value>)] to set points in a Martial Arts style.%R%TYour Style choices are: [u(itemize,u(capnames,u(u(cobj,data)/FUN`GET`STYLES)),|,and,\,)]
+
+&CG`3`CRAFT [u(cobj,chargen)]=%T[ansi(h,+craft <field>=<value>)] to set points in various Crafts, such as Weaponry or Carpentry.
+
+&CG`3`ABYSSAL [u(cobj,chargen)]=Abyssals note their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tAbyssals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+
+&CG`3`INFERNAL [u(cobj,chargen)]=Infernals receive their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tInfernals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+
+&CG`3`ALCHEMICAL [u(cobj,chargen)]=Alchemicals receive 25 ability points and 4 Specialty points. In our House Rules they may also favor 3 Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`TERRESTRIAL [u(cobj,chargen)]=Terrestrial note their 5 Aspect Abilities, and choose 3 Favored Abilities.%r%tOutcastes receive 25 Ability Points, while Lookshy and Dynasts receive 35. All Terrestrial receive 4 Specialty points.%r%t[ansi(h,+heritage <Dynast/Lookshy/Outcaste>)] to set additional Ability info. A Dragon-Blood must have this many points in each heritage Ability.%r%r%t[ansi(h,+castefavored)] to set your Aspect Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`DRAGON-KING [u(cobj,chargen)]=Dragon-Kings receive 3 Breed Abilities, and choose 5 Favored Abilities.%r%tModern Dragon-Kings receive 25 and Ancient Dragon-Kings receive 35 Ability Points, minimum 10 among Breed or Favored Abilities.%r%r%t[ansi(h,+castefavored)] to set your Breed Abilities.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`GHOST [u(cobj,chargen)]=Ghosts receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%tPlayer characters converting to Ghosts retain their old ratings, but not Caste/Favored/Auspicious Abilities, and must pick just 1.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`GOD-BLOODED [u(cobj,chargen)]=God-Blooded receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`JADEBORN [u(cobj,chargen)]=All Jadeborn receive Craft as Favored, and choose 5 other Favored Abilities.%r%tEnlightened Jadeborn receive 35 Ability points, minimum 10 among Favored.%r%tEnlightened Jadeborn may use Bonus XP to raise Abilities as high as 6 at Chargen.%r%tArtisans must have Awareness 1, Bureaucracy 2, Linguistics 2 (High Realm, Old Realm), Lore 2, Martial Arts or Melee 1, Occult 2, Performance or Presence 1, Socialize 2, and 2 points divided amongst Craft abilities.%r%r%tUnenlightened Jadeborn receive 22 Ability Points, minimum 14 among Favored and minimum 1 each.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`LUNAR [u(cobj,chargen)]=Lunars receive 25 ability points, and receive 4 Specialty points.%r%tLunars always Favor Survival, and may choose one additional Favored Ability.%r%tSilver Pact Lunars must have Survival 2, and at least point in Archery, Melee, Martial Arts, or Thrown.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`MAIN [u(cobj,chargen)]=Please return to the first room and set your race!
+&CG`3`RAKSHA [u(cobj,chargen)]=Noble Raksha choose 5 Caste Abilities from the 10 associated with their Ascendant and Shadowed Castes, and may select 3 Additional Favored Abilities.%r%tThey receive 1 point in all Caste Abilities, and 2 point in all Favored Abilities free. They also receive 25 Ability points and 3 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%tIn addition to Caste Abilities, Commoner Raksha may select 1 Favored Ability or convert a Caste Ability into a Favored Ability.%r%tThey receive 1 free point in each Caste Ability and 2 free points in their Favored Ability, non-cumulative if upgrading a Caste Ability. They also receive 25 Ability points and 5 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%t[ljust(Diplomat:,14)] Linguistics, Occult, Ride, Socialize, Thrown%r%t[ljust(Entertainer:,14)] Investigation, Larceny, Medicine, Performance, Stealth%r%t[ljust(Warrior:,14)] Archery, Martial Arts, Melee, Presence, War%r%t[ljust(Worker:,14)] Bureaucracy, Craft, Integrity, Lore, Resistance%r%t[ljust(Guide:,14)] Athletics, Awareness, Dodge, Sail, Survival%r%r%tRaksha must set all Caste and Favored Abilities manually.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`SIDEREAL [u(cobj,chargen)]=Sidereals receive 5 Auspicious Abilities and 4 Favored Abilities.%r%tRonin Sidereals receive 25 Ability Points, minimum 10 among Auspicious and Favored Abilities, and 4 Specialty points.%r%tMembers of the Bureau of Destiny receive 35 Ability Points, minimum 15 among Auspicious and Favored Abilities, and 4 Specialty points..%r%r%tBureau of Destiny members require minimum ratings of the following by Caste due to training:%r%tALL must have Awareness 2, Bureaucracy 2, Linguistics 1 (Old Realm), Lore 3, Martial Arts 2, Occult 2, Socialize 1, Stealth 1, and at least 1 in Archery, Melee, or Thrown.%r%tChosen of Journeys must have Athletics 2, Linguistics 2 (Old Realm + an appropriate additional language), Resistance 2, Survival 2, and Ride or Sail 2%r%tChosen of Serenity must have Craft or Performance 2, Linguistics 2 (eloquence), Medicine 2, Presence 2, and Socialize 3%r%tChosen of Battles must have Archery or Melee 3, Athletics 2, Dodge 2, Presence 2, and War 2%r%tChosen of Secrets must have Awareness 2, Investigation 3, Larceny 2, Socialize 2, and Stealth 2%r%tChosen of Endings must have Awareness 2, Dodge 2, Integrity 2, Martial Arts 3, and Stealth 2%r%r%t[ansi(h,+castefavored)] to set your Auspicious Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`SPIRIT [u(cobj,chargen)]=Please consult with staff if designing a Spirit!
+
+&CMD`+ABIL [u(cobj,chargen)]=$^\+abil(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`ABILITY=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+ABIL=regexp
+
+@@ &CMD`+STYLES [u(cobj,chargen)]=$^\+style(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`STYLES=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+STYLES=regexp
+
+@@ &CMD`+CRAFT [u(cobj,chargen)]=$^\+craft(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`CRAFTS=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+CRAFT=regexp
+
+&CMD`+FAVABIL [u(cobj,chargen)]=$^\+(un)?(fav|sup)abil(?\: +(.+))?$:th switch(%1,un,u(setq,mode,rem),u(setq,mode,add));th u(setq,mode2,switch(%2,fav,FAVORED,sup,SUPERNAL));@attach u(cobj,data)/DO`%q<mode>`%q<mode2>=%#,ABILITIES,%3;@attach %!/INC`MSG=You [switch(%q<mode>,add,now,no longer)] [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favor [u(itemize,iter(%q<value>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]. Current [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favors: [words(get(%#/D`%q<mode2>`ABILITIES),|)]
+@set [u(cobj,chargen)]/CMD`+FAVABIL=regexp
+
+&CMD`+CASTEFAVORED [u(cobj,chargen)]=$+castefavored:@check strlen(u(getstat,%#,D`INFO,Caste))=@pemit %#=You do not have a Caste set!;@check strlen(u(setr,newfavored,unique(iter(v(DAT`3`FAVORED`[edit(u(getstat,%#,D`INFO,Caste),%B,_)]),u(capnames,%i0),|,|),i,|,|)))=@pemit %#=Your Caste does not have any listed Favored Abilities.;@pemit %#=You set your Favored Abilities to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;th U(attrib_set,%#,D`FAVORED`ABILITIES,setunion(get(%#/D`FAVORED`ABILITIES),%q<newfavored>,|,|))
+
+&CMD`+HERITAGE [u(cobj,chargen)]=$^\+heritage(?\: +(.+))?$:@check strlen(%1)=@attach %!/INC`MSG=Are you a Dynast\, Lookshy\, or Outcaste Terrestrial?;@attach %!/INC`PARTIAL=%1,DYNAST|LOOKSHY|OUTCASTE,|,choice,Heritage;@select/inline %q<choice>=dynast,{@attach %!/INC`MSG=You set your base skills as a Dynast-raised Dragon-blood. You have 35 points in total to spend\, but you cannot lower these base skills below their current level\, and you must spend at least 13 points in Favored abilities. If you don't have at least 2 dots in each of these baseline skills\, you're likely considered embarassingly inept by your family.;@cpattr %!/DAT`HERITAGE`DYNAST=%#/D`ABILITIES;th u(setstat,%#,D`INFO,Heritage,u(capnames,%q<choice>))},lookshy,{@attach %!/INC`MSG=You set your base skills as a Lookshy-raised Dragon-blood. You have 35 points in total to spend\, but you must spend at least 13 on favored skills and you cannot lower the current skills below their present level. What "+sheet" gives now is a minimally-competent Lookshy Dragonblood.;@cpattr me/DAT`HERITAGE`LOOKSHY=%#/D`ABILITIES;th u(setstat,%#,D`INFO,Heritage,u(capnames,%1))},outcaste,{@attach %!/INC`MSG=You mark yourself as a Dragon-blood raised outside of the conventional structures of the Realm or Lookshy. While this gives you more freedom in how to spend your ability points\, it also gives you fewer points to spend. You have 25 ability points and must spend 13 of them on Favored abilities.;&d`abilities %#;th u(setstat,%#,D`INFO,Heritage,u(capnames,%q<choice>))},{@attach %!/INC`MSG=Your choices for Terrestrial heritage are Dynast, Lookshy, and Outcaste.}
+@set [u(cobj,chargen)]/CMD`+HERITAGE=regexp
+
+&CMD`+SPEC [u(cobj,chargen)]=$^\+spec(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`SPECIALTY=%#,%1,if(eq(%2,0),,%2);@select/inline t(%2)=1,{@attach %!/INC`MSG=You set [ansi(h,u(capnames,%q<find>/%q<spec>))] to [ansi(h,%2)]},0,{@attach %!/INC`MSG=You remove [ansi(h,u(capnames,%q<find>/%q<spec>))]}
+@set [u(cobj,chargen)]/CMD`+SPEC=regexp
+
+&DAT`3`FAVORED`DAWN [u(cobj,chargen)]=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
+&DAT`3`FAVORED`ZENITH [u(cobj,chargen)]=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
+&DAT`3`FAVORED`TWILIGHT [u(cobj,chargen)]=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
+&DAT`3`FAVORED`NIGHT [u(cobj,chargen)]=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
+&DAT`3`FAVORED`ECLIPSE [u(cobj,chargen)]=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
+
+&DAT`3`FAVORED`DUSK [u(cobj,chargen)]=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
+&DAT`3`FAVORED`MIDNIGHT [u(cobj,chargen)]=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
+&DAT`3`FAVORED`DAYBREAK [u(cobj,chargen)]=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
+&DAT`3`FAVORED`DAY [u(cobj,chargen)]=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
+&DAT`3`FAVORED`MOONSHADOW [u(cobj,chargen)]=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
+
+&DAT`3`FAVORED`AIR [u(cobj,chargen)]=LINGUISTICS|LORE|OCCULT|STEALTH|THROWN
+&DAT`3`FAVORED`ANKLOK [u(cobj,chargen)]=RESISTANCE|SURVIVAL|WAR
+&DAT`3`FAVORED`BATTLES [u(cobj,chargen)]=ARCHERY|ATHLETICS|MELEE|PRESENCE|WAR
+&DAT`3`FAVORED`DEFILER [u(cobj,chargen)]=CRAFT|INVESTIGATION|LORE|MEDICINE|OCCULT
+&DAT`3`FAVORED`EARTH [u(cobj,chargen)]=CRAFT|INTEGRITY|RESISTANCE|WAR|AWARENESS
+&DAT`3`FAVORED`ENDINGS [u(cobj,chargen)]=AWARENESS|BUREAUCRACY|INTEGRITY|MARTIAL ARTS|MEDICINE
+&DAT`3`FAVORED`FIEND [u(cobj,chargen)]=BUREAUCRACY|LINGUISTICS|RIDE|SAIL|SOCIALIZE
+&DAT`3`FAVORED`FIRE [u(cobj,chargen)]=ATHLETICS|DODGE|MELEE|PRESENCE|SOCIALIZE
+&DAT`3`FAVORED`JADE [u(cobj,chargen)]=STAMINA|CHARISMA|WITS
+&DAT`3`FAVORED`JOURNEYS [u(cobj,chargen)]=RESISTANCE|RIDE|SAIL|SURVIVAL|THROWN
+&DAT`3`FAVORED`MALEFACTOR [u(cobj,chargen)]=INTEGRITY|PERFORMANCE|PRESENCE|RESISTANCE|SURVIVAL
+&DAT`3`FAVORED`MOSOK [u(cobj,chargen)]=BRAWL|LARCENY|SURVIVAL
+&DAT`3`FAVORED`PTEROK [u(cobj,chargen)]=ATHLETICS|LORE|OCCULT
+&DAT`3`FAVORED`RAPTOK [u(cobj,chargen)]=CRAFT|SOCIALIZE|LINGUISTICS
+&DAT`3`FAVORED`SCOURGE [u(cobj,chargen)]=ATHLETICS|AWARENESS|DODGE|LARCENY|STEALTH
+&DAT`3`FAVORED`SECRETS [u(cobj,chargen)]=INVESTIGATION|LARCENY|LORE|OCCULT|STEALTH
+&DAT`3`FAVORED`SERENITY [u(cobj,chargen)]=CRAFT|DODGE|LINGUISTICS|PERFORMANCE|SOCIALIZE
+&DAT`3`FAVORED`SLAYER [u(cobj,chargen)]=ARCHERY|MARTIAL ARTS|MELEE|THROWN|WAR
+&DAT`3`FAVORED`WATER [u(cobj,chargen)]=BUREAUCRACY|INVESTIGATION|LARCENY|MARTIAL ARTS|SAIL
+&DAT`3`FAVORED`WOOD [u(cobj,chargen)]=ARCHERY|MEDICINE|PERFORMANCE|RIDE|SURVIVAL
+
+&DAT`HERITAGE`DYNAST [u(cobj,chargen)]=ARCHERY~1|LORE~2|MARTIAL ARTS~1|MELEE~1|PERFORMANCE~1|PRESENCE~1|RIDE~1|SOCIALIZE~2|WAR~1
+&DAT`HERITAGE`LOOKSHY [u(cobj,chargen)]=ARCHERY~2|LINGUISTICS~3|LORE~2|MARTIAL ARTS~2|MELEE~2|PERFORMANCE~1|PRESENCE~1|RIDE~1|STEALTH~1|WAR~2
+
+&DAT`3`FAVORED`QAESTOR [u(cobj,chargen)]=INTEGRITY|INVESTIGATION|SOCIALIZE|LARCENY|BUREAUCRACY
+&DAT`3`FAVORED`ECSTATIC [u(cobj,chargen)]=ATHLETICS|CRAFT|DODGE|PERFORMANCE|SOCIALIZE
+&DAT`3`FAVORED`MONOLITH [u(cobj,chargen)]=PRESENCE|SURVIVAL|INVESTIGATION|ATHLETICS|RESISTANCE
+&DAT`3`FAVORED`JUGGERNAUT [u(cobj,chargen)]=ATHLETICS|PRESENCE|RESISTANCE|INTEGRITY|MARTIAL ARTS
+&DAT`3`FAVORED`DELUGE [u(cobj,chargen)]=ATHLETICS|SURVIVAL|SAIL|INVESTIGATION|OCCULT
+
+&CG`4 [u(cobj,chargen)]=[u(SEPARATOR,Step 4: Backgrounds and Etc)]%R[ansi(h,+help +merits)] to see how to set your Backgrounds, Mutations, and similar properties. Make sure to give them descriptions and contexts as appropriate![if(cand(strlen(getclass(%#)),hasattr(%!/CG`4`[getclass(%#)])),%R%R%T[u(CG`4`[getclass(%#)])])]
+
+&CG`4`MORTAL [u(cobj,chargen)]=Mortals receive 7 dots to spend on Merits.
+&CG`4`SOLAR [u(cobj,chargen)]=Solars receive 7 dots to spend on merits.
+
+&MAX`MERITS`MORTAL [u(cobj,chargen)]=6
+&MAX`MERITS`SOLAR [u(cobj,chargen)]=7
+&MAX`MERITS`ABYSSAL [u(cobj,chargen)]=7
+&MAX`MERITS`INFERNAL [u(cobj,chargen)]=7
+&MAX`MERITS`LUNAR [u(cobj,chargen)]=7
+&MAX`MERITS`SIDEREAL [u(cobj,chargen)]=
+
+&MAX`MERITS`ALCHEMICAL [u(cobj,chargen)]=10
+&MAX`MERITS`TERRESTIAL [u(cobj,chargen)]=switch(u(getstat,%0,D`INFO,Nation),Realm,12,Lookshy,13,Outcaste,7,7)
+&MAX`MERITS`RAKSHA [u(cobj,chargen)]=
+
+&CG`5 [u(cobj,chargen)]=[u(SEPARATOR,Step 5: Charms and Other Powers)]%RThis room's contents change based on previous choices. Pick a Sorcery Charm and Sorcery will appear as an option when you look, etc.[if(cand(strlen(getclass(%#)),hasattr(%!/CG`5`[getclass(%#)])),%R%R[u(CG`5`[getclass(%#)])])]
+
+&MAX`CHARMS`MORTAL [u(cobj,chargen)]=0
+&MAX`CHARMS`SOLAR [u(cobj,chargen)]=10
+&MAX`CHARMS`TERRESTIAL [u(cobj,chargen)]=switch(u(getstat,%#,D`INFO,nation),Realm,7,Lookshy,8,7)
+
+&CG`5`MORTAL [u(cobj,chargen)]=Mortals can only learn Terrestrial Circle Sorcery spells and Terrestrial Martial Arts. Take the Terrestrial Circle Sorcery Merit for the option to show up.[if(cor(words(u(wildgrepi,%#,D`MERITS`*,TERRESTRIAL CIRCLE SORCERY)),words(u(wildgrepi,%#,D`MERITS`*,SHAPING RITUAL))),%R%R[u(CG`5`SORCERY)])],%R%R[u(CG`5`MACHARMS)]
+&CG`5`SOLAR [u(cobj,chargen)]=Solars begin play with 10 Charms/Spells.%R%R[u(CG`5`NATIVECHARMS)][if(cor(strmatch(Eclipse,u(getstat,%#,D`INFO,Caste)),u(getstat,%#,D`CHARMS`SOLAR`OCCULT,BLACK MIRROR REVELATION)),%R%R[u(CG`5`OTHERCHARMS)])]%R%R[u(CG`5`MACHARMS)][if(words(graball(get(%#/D`CHARMS`SOLAR`OCCULT),* CIRCLE *,|,|),|),%R%R[u(CG`5`SORCERY)])]
+
+&CG`5`LUNAR [u(cobj,chargen)]=Lunars begin play with 8 Charms/Spells\, at least 1 of which must be a Knack and 4 Minimum Charms from Favored/Caste Attributes.%R%R[u(CG`5`NATIVECHARMS)][if(u(getstat,%#,D`CHARMS`LUNAR`KNACKS,SHIFTING WYLD TIDES),%R%R[u(CG`5`OTHERCHARMS)])]%R%R[u(CG`5`MACHARMS)][if(words(graball(get(%#/D`CHARMS`LUNAR`INTELLIGENCE),* CIRCLE *,|,|),|),%R%R[u(CG`5`SORCERY)])]
+
+&CG`5`ABYSSAL [u(cobj,chargen)]=Abyssals begin play with 10 Charms/Spells.%R%R[u(CG`5`NATIVECHARMS)][if(cor(strmatch(Moonshadow,u(getstat,%#,D`INFO,Caste)),u(getstat,%#,D`CHARMS`ABYSSAL`INTEGRITY,UNCONQUERED HERO'S FAITH)),%R%R[u(CG`5`OTHERCHARMS)])]%R%R[u(CG`5`MACHARMS)][if(words(graball(get(%#/D`CHARMS`ABYSSAL`OCCULT),* CIRCLE *,|,|),|),%R%R[u(CG`5`SORCERY)])]
+
+&CG`5`INFERNAL [u(cobj,chargen)]=Infernals begin play with 10 Charms/Spells.%R%R[u(CG`5`NATIVECHARMS)][if(strmatch(Fiend,u(getstat,%#,D`INFO,Caste)),%R%R[u(CG`5`OTHERCHARMS)])]%R%R[u(CG`5`MACHARMS)][if(words(grepi(%#,D`CHARMS`INFERNAL`*,SORCEROUS INITIATION)),%R%R[u(CG`5`SORCERY)])]
+
+&CG`5`TERRESTRIAL [u(cobj,chargen)]=switch(u(setr,nation,u(getstat,%#,D`INFO,Nation)),Realm,Dynastic,Lookshy,Lookshyan,Outcaste) Dragon-Blooded start with [switch(%q<nation>,Realm,7 Charms/Spells\, minimum 4 from Aspect/Favored Abilities. Immaculates instead choose 5 Celestial martial arts charms from a Dragon Style.,Lookshy,Lookshyan Dragon-Blooded start with Wind-Carried Words\, Elemental Bolt Attack\, and 6 more charms/spells\, Minimum 4 in Favored/Aspect Abilities.,Outcaste Dragon-Blooded start with 7 Charms/Spells\, Minimum 4 in Favored/Aspect abilities.)]%R%R[u(CG`5`NATIVECHARMS)][if(words(graball(get(%#/D`CHARMS`TERRESTRIAL`INTELLIGENCE),* CIRCLE *,|,|),|))]
+
+&CG`5`RAKSHA [u(cobj,chargen)]=Raksha Nobles begin with 10 Charms, one free Assumption, and any Charms gained from Birth.%RRaksha Commoners begin with 8 Charms and any gained from Birth. Minimum 5 Charms must be associated with the Major Grace.%RMartial Arts requires the Sword Charm 'Root of the Perfected Lotus'%R%R[u(CG`5`NATIVECHARMS)][if(u(getstat,%#,D`CHARMS`RAKSHA`SWORD,ROOT OF THE PERFECTED LOTUS),%R%R[u(CG`5`MACHARMS)])]
+
+&CG`5`SIDEREAL [u(cobj,chargen)]=Employed Sidereals begin with 12 Charms\, minimum 5 from Auspicious or Favored Abilities\, maximum 3 Sidereal Martial Arts Charms. Ronin start with 8 and the same minimums\, no SMA.%R%R[u(CG`5`NATIVECHARMS)]%R%R[u(CG`5`MACHARMS)]%R%R[ansi(h,+maidenfavcoll)] to set your Caste Colleges.%R[ansi(h,+college <college>=<value>)] to set Astrology.%rYour choices are: [u(itemize,u(u(cobj,data)/FUN`GET`COLLEGES),|,and,\,)]
+
+&CG`5`ALCHEMICAL [u(cobj,chargen)]=Alchemicals begin with 4 General and 4 Dedicated Charm Slots and 8 Charms filling every slot.%R%R[u(CG`5`NATIVECHARMS)]%R%R[ansi(h,+slot <type>=<#>)] - to set your slots.[if(words(grepi(%#,D`CHARMS`ALCHEMICAL`*,Weaving Engine)),%R%R[u(CG`5`PROTO)])]
+
+&CG`5`PROTO [u(cobj,chargen)]=ansi(h,+addproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc) to add Weaving Protocols.%R[ansi(h,+delproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc)] to delete Weaving Protocols.%R%R[ansi(h,+slots <type>=<number>)] to set Charm Slots.
+
+&CG`5`DRAGON-KING [u(cobj,chargen)]=ansi(h,+breedfavpath) to set your Breed Favored Paths%r[ansi(h,+path <path>=<value>)] to set how your Path points.%rYour choices are: [u(itemize,u(u(cobj,data)/FUN`GET`PATHS),|,and,\,)]%r%R[ansi(h,+favpath <path>)] to set a Favored Path%r[ansi(h,+unfavpath <path>)] to remove a Favored Path
+
+&CG`5`SPIRIT [u(cobj,chargen)]=Please consult with staff if designing a Spirit!
+
+&CG`5`NATIVECHARMS [u(cobj,chargen)]=[ansi(h,+addcharm <category>=<charm1|charm2|charm3|etc>) to add native Charms.]%R[ansi(h,+delcharm <category>=<charm1|charm2|charm3|etc>)] to delete native Charms.%RCategories for your character type's Native Charms: [u(itemize,u(u(cobj,data)/FUN`GET`CHARMTYPES`[u(u(cobj,data)/charmtype,%#)]),|,and,\,)]%RAdd/Remove the same charm multiple times or append it with number (example: Ox-Body Technique 3) to purchase them multiple times. Check +checknames <type> to ensure Overdrive, mote expanders, and similar are spelled right! Mis-spelled Charms will not be detected.
+
+&CG`5`OTHERCHARMS [u(cobj,chargen)]=[ansi(h,+addocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to add Other Splat Charms.%R[ansi(h,+delocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to delete Other Splat Charms.
+
+&CG`5`MACHARMS [u(cobj,chargen)]=[ansi(h,+addmacharm <style>=<charm1|charm2|charm3|etc>)] to add Martial Arts Charms.%R[ansi(h,+delmacharm <style>=<charm1|charm2|charm3|etc>)] to delete Martial Arts Charms.
+
+&CG`5`EVOCATIONS [u(cobj,chargen)]=[ansi(h,+addevocation <artifact>=<charm1|charm2|charm3|etc>)] to add Evocation Charms.%R[ansi(h,+delevocation <artifact>=<charm1|charm2|charm3|etc>)] to delete Evocation Charms.
+
+&CG`5`SORCERY [u(cobj,chargen)]=[ansi(h,+addspell <circle>=<spell1|spell2|spell3|etc>)] to add Sorcery or Necromancy spells.%R[ansi(h,+delspell <circle>=<spell1|spell2|spell3|etc>] to delete Sorcery or Necromancy spells.
+
+&CMD`+CASTEFAVOREDBREEDMAIDEN [u(cobj,chargen)]=$^\+(breedfavpath|maidenfavcoll)$:@check strlen(u(getstat,%#,D`INFO,Caste))=@attach %!/INC`MSG=You do not have a Caste set!;@check strlen(u(setr,newfavored,v(DAT`4`FAVORED`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]`[edit(u(getstat,%#,D`INFO,Caste),%B,_)])))=@attach %!/INC`MSG=Your Caste does not have any listed Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)].;@attach %!/INC`MSG=You set your Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)] to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;@cpattr me/D`FAVORED`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]=%#/D`FAVORED`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]
+
+&CMD`+CHARM [u(cobj,chargen)]=$^\+(add|del)charm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`CHARM=%#,u(u(cobj,data)/charmtype,%#)/%2,%3;th u(setq,have,ansi(h,u(capnames,%q<find> %q<find2>)) Charms [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of change: %q<returnformat>);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+CHARM=regexp
+
+&CMD`+OCHARM [u(cobj,chargen)]=$^\+(add|del)ocharm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`CHARM=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<find> %q<find2>)) Charms [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+OCHARM=regexp
+
+&CMD`+FAVPATHCOLLEGE [u(cobj,chargen)]=$^\+(un)?fav(path|college)(?\: +(.+))?$:@check strlen(%3)=@attach %!/INC`MSG=Which [u(capnames,%2)] will you [if(strlen(%2),un-Favor,Favor)]?;@attach [u(cobj,data)]/DO`[switch(%1,un,rem,add)]`FAVORED=%#,%2,%3;@attach %!/INC`MSG=You [switch(%1,un,no longer,now)] [u(capnames,%2)] Favor: %3
+@set [u(cobj,chargen)]/CMD`+FAVPATHCOLLEGE=regexp
+
+&CMD`+MAGIC [u(cobj,chargen)]=$^\+(add|del)(spell|proto)(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`[switch(%2,spell,SPELL,PROTO,PROTOCOL)]=%#,%3,%4;th u(setq,have,ansi(h,u(capnames,%q<find>)) [switch(%2,spell,Spells,Proto,Protocols)] [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of modifications: %q<returnformat>);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+MAGIC=regexp
+
+&CMD`+SETMA [u(cobj,chargen)]=$^\+setma(?\: +(.+?))?(?\:/(.+?))?(?\:=(.+?))?$:@check strlen(%1)=@attach %!/INC`MSG=No tier entered.;@attach %!/INC`PARTIAL=%1,TERRESTRIAL|CELESTIAL|SIDEREAL,|,tier,tier;@attach %!/INC`VALID`POSINT=%2,Style Slot;@check hasattr(%#/D`CHARMS`%q<tier>_MARTIAL_ARTS`%q<value>)=@attach %!/INC`MSG=You have no Style in that slot!;@check strlen(%3)=@attach %!/INC`MSG=No style name entered!;@attach %!/INC`MSG=Your [u(numth,%q<value>)] %q<tier> Martial Arts Style is now called: %3;&D`CHARMS`%q<tier>_MARTIAL_ARTS`%q<value>`NAME %#=%3
+@set [u(cobj,chargen)]/CMD`+SETMA=regexp
+
+&CMD`+MACHARM [u(cobj,chargen)]=$^\+(add|del)macharm(?\: +(.+?))?(?\:/(.+?))(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`MACHARM=%#,%2|%3,%4;th u(setq,have,gained [ansi(h,u(u(cobj,data)/FUN`GET`STYLENAME,%#,%q<tier>_MARTIAL_ARTS,%q<slot>))] Charms: [u(itemize,iter(u(capnames,%q<filtered>),%i0,|,|),|,and,\,)]. Result of addition: %q<returnformat>);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+MACHARM=regexp
+
+@@ &CMD`+EVOCATION [u(cobj,chargen)]=$^\+(add|del)evocation(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`EVOCATION=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<style>)) Evocations [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+EVOCATION=regexp
+
+&CMD`+PATHCOLLEGE [u(cobj,chargen)]=$^\+(path|college|slot)(?\: +(.+?))?(?\:=(.+?))?$:@attach [u(cobj,data)]/DO`SET`%1=%#,%2,if(eq(%3,0),,%3);@attach %!/INC`MSG=%q<find> is now: %3
+@set [u(cobj,chargen)]/CMD`+PATHCOLLEGE=regexp
+
+&CMD`+MAIDENFAVCOLL [u(cobj,chargen)]=$+maidenfavcoll:@check hasattr(u(cg)/DAT`4`FAVORED`COLLEGES`[u(setr,caste,u(getstat,%#,D`INFO,Caste))])=@attach %!/INC`MSG=ERROR: Your Caste has no In-House Colleges!;@attach %!/INC`MSG=You set your In-House Colleges to those of the Chosen of %q<caste>.;@cpattr u(cg)/DAT`4`FAVORED`COLLEGES`%q<caste>=%#/D`COLLEGES`FAVORED
+
+&DAT`4`FAVORED`COLLEGES`BATTLES [u(cobj,chargen)]=The Banner|The Gauntlet|The Quiver|The Shield|The Spear
+&DAT`4`FAVORED`COLLEGES`ENDINGS [u(cobj,chargen)]=The Corpse|The Crow|The Haywain|The Rising Smoke|The Sword
+&DAT`4`FAVORED`COLLEGES`JOURNEYS [u(cobj,chargen)]=The Captain|The Gull|The Mast|The Messenger|The Ship's Wheel
+&DAT`4`FAVORED`COLLEGES`SECRETS [u(cobj,chargen)]=The Guardians|The Key|The Mask|The Sorcerer|The Treasure Trove
+&DAT`4`FAVORED`COLLEGES`SERENITY [u(cobj,chargen)]=The Ewer|The Lovers|The Musician|The Peacok|The Pillar
+
+&DAT`4`FAVORED`PATHS`ANKLOK [u(cobj,chargen)]=Blazing Fire|Flickering Fire
+&DAT`4`FAVORED`PATHS`MOSOK [u(cobj,chargen)]=Flowing Water|Shimmering Water
+&DAT`4`FAVORED`PATHS`PTEROK [u(cobj,chargen)]=Celestial Air|Clear Air
+&DAT`4`FAVORED`PATHS`RAPTOK [u(cobj,chargen)]=Yielding Earth|Growing Wood
+
+&CG`6 [u(cobj,chargen)]=[u(SEPARATOR,Step 6: Finishing Touches)][if(cand(strlen(getclass(%#)),hasattr(%!/CG`6`[getclass(%#)])),%R[u(CG`6`[getclass(%#)])])]
+
+&CG`6`MORTAL [u(cobj,chargen)]=[u(CG`6`ESSENCE)]%RMortals begin with Essence 1.%R%R[u(CG`6`WILLPOWER)]%RMortals begin with 3 Willpower.%R%R[u(CG`6`INTIMACY)]%R%R[u(CG`6`HEALTH)]%R%R[u(CG`6`BGSTORY)]%R%R[u(CG`6`CHARGENXP)]%R%R[u(CG`6`FINISH)]
+&CG`6`SOLAR [u(cobj,chargen)]=[u(CG`6`ESSENCE)]%RSolars begin with Essence 1.%R%R[u(CG`6`WILLPOWER)]%RSolars begin with 5 Willpower.%R%R[u(CG`6`INTIMACY)]%R%R[u(CG`6`HEALTH)]%R%R[ansi(h,+info Trigger=<limit trigger>)] to set your Limit Trigger.%R%R[u(CG`6`BGSTORY)]%R%R[u(CG`6`CHARGENXP)]%R%R[u(CG`6`FINISH)]
+
+&CG`6`INTIMACY [u(cobj,chargen)]=[ansi(h,+help +intimacy)] for instructions on setting your Intimacies.%RChoose at least 4 intimacies. At least one must be Defining, one must be Major, one must be positive, one must be negative.
+&CG`6`HEALTH [u(cobj,chargen)]=[ansi(h,+hl <Health level list>)] to set your health levels. If you lack extra levels, use "+hl -0 -1 -1 -2 -2 -4 I". The system will sort for you if you goof!
+&CG`6`WILLPOWER [u(cobj,chargen)]=[ansi(h,+wp <value>)] to set your willpower.
+&CG`6`ESSENCE [u(cobj,chargen)]=[ansi(h,+ess <value>)] to set your Essence rating.
+&CG`6`BGSTORY [u(cobj,chargen)]=[ansi(h,+info BGStory=<story>)] to set your background story. A few paragraphs will do. The file has a limit of 4kb of text, use BGStory2, 3, etc, if necessary. \%R can linebreak, \%T indents. Readability counts!
+&CG`6`CHARGENXP [u(cobj,chargen)]=As mentioned in page 1, mark down how much XP you spent (and what on) in an +info using [ansi(h,+info Chargen=<description of XP spent>)]. Your +sheet should reflect the final result.
+&CG`6`FINISH [u(cobj,chargen)]=When complete, paste the following command to your client: %r%t[ansi(h,+request/apps Finished with chargen!=Look me over please!)]
+
+&CMD`+ESS [u(cobj,chargen)]=$+ess *:@attach u(cobj,data)/DO`SET`ESSENCE=%#,,%0;@attach %!/INC`MSG=You set your permanent Essence to %0.
+
+&CMD`+HL [u(cobj,chargen)]=$+hl *:@wipe %#/D`HEALTH;@attach u(cobj,data)/DO`ADD`HEALTH=%#,,%0;@attach %!/INC`MSG=You set your health level progression to '[get(%#/D`HEALTH)]'.
+
+&CMD`+VIRTUES [u(cobj,chargen)]=$^\+(virtue|Grace)(?\: (.+?))?(?\:=(.+?))?$:@check strlen(%2)=@attach %!/INC`MSG=What [u(capnames,%1)] will you set?;@check strlen(%3)=@attach %!/INC`MSG=What will you set it to?;@attach [u(cobj,data)]/DO`SET`%1=%#,%2,%3;@attach %!/INC`MSG=You set your %q<find> [u(capnames,%1)] to: %3
+@set [u(cobj,chargen)]/CMD`+VIRTUES=regexp
+
+&CMD`+WP [u(cobj,chargen)]=$+wp *:@attach u(cobj,data)/DO`SET`WILLPOWER=%#,,%0;@attach %!/INC`MSG=You set your Willpower to %0.
+
+&CMD`+LANG [u(cobj,chargen)]=$^\+(add|del)lang(?\: (.*))$:th setq(0,iter(%2,u(capnames,trim(%i0)),|,|));@select/inline %1=add,{@attach %!/INC`MSG=You add '%q0' to your list of known languages.;&D`LANGUAGES %#=ucstr(setunion(get(%#/D`LANGUAGES),squish(trim(%q0)),|,|))},del,{@switch/inline t(match(ucstr(get(%#/D`LANGUAGES)),ucstr(%q0),|))=1,{@attach %!/INC`MSG=You remove '%q0' from your list of known languages.;&D`LANGUAGES %#=setdiff(ucstr(get(%#/D`LANGUAGES)),ucstr(%q0),|,|)},{@attach %!/INC`MSG=You don't seem to know that language. "+sheet" to check which languages you're presently listed as understanding.}}
+@set [u(cobj,chargen)]/CMD`+LANG=regexp
+
+&CMD`+RESET [u(cobj,chargen)]=$^\+reset(?\: +(.*))?$:@check strlen(%1)=@attach %!/INC`MSG=What will you reset? Your options are: [u(itemize,ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,and,\,)];@attach %!/INC`PARTIAL=%1,ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,CHARGEN,choice,choice;@select/inline %q<choice>=ALL,{@attach %!/INC`VERIFY={[ansi(hr,WARNING:)] This will remove ALL data entered on your character. You will have to start over entirely from scratch. This will even remove your +info files! Are you sure? enter +reset all again to verify!},RESET ALL,CHARGEN;@dolist/inline setdiff(u(lattr,%#/D`*),D`XP D`INFOFILE D`ACCOUNT D`IPLOG)=@wipe %#/%i0;@attach %!/INC`MSG=You have reset back to square one!;@stop 1},SPLAT,{@wipe %#/D`INFO},THAUMATURGY,{@wipe %#/D`ARTS;@wipe %#/D`SCIENCES},MUTATIONS,{@wipe %#/D`* MUTATIONS},{@wipe %#/D`%q<choice>};@attach %!/INC`MSG=You have reset your %q<choice>!
+@set [u(cobj,chargen)]/CMD`+RESET=regexp
+
+
+
+
diff --git a/unfinished/storyteller/exalted25/Creation Ruling Mandate - CRM.txt b/unfinished/storyteller/exalted25/Creation Ruling Mandate - CRM.txt
deleted file mode 100644
index 9297757..0000000
--- a/unfinished/storyteller/exalted25/Creation Ruling Mandate - CRM.txt	
+++ /dev/null
@@ -1,95 +0,0 @@
-@select/inline isdbref(u(crm))=0,{@tel create(Creation Ruling Mandate <CRM>)=config(master_room)}
-&crm u(coi)=locate(config(master_room),Creation Ruling Mandate <CRM>,TXxi)
-@parent u(crm)=u(coi)
-@set u(crm)=WIZARD !NO_COMMAND SAFE
-
-@select/inline isdbref(u(crm-db))=0,{@tel create(CRM Database <CRM-DB>)=u(crm)}
-&crm-db u(coi)=locate(u(crm),CRM Database <CRM-DB>,TXxi)
-@parent u(crm-db)=u(coi)
-@set u(crm-db)=WIZARD !NO_COMMAND SAFE
-@power u(crm-db)=many_attribs
-
-&CMD`+CRM u(crm)=$^(?s)(?\:\+)?crm(?\:/(\S+)?)?(?\: +(.+?))?(?\:=(.*))?$:@attach u(ccs)/INC`PARTIAL=%1,setunion(get(u(crm)/VAR`PLAYFLAGS),if(isadmin(%#),get(u(crm)/VAR`ADMINFLAGS)),|,|),|,CRM,switch,switch;@attach u(crm)/INC`[strfirstof(%q<switch>,MAIN)]=%2,%3
-@set u(crm)/CMD`+CRM=regexp
-
-&VAR`PLAYFLAGS u(crm)=LOG|HIRE|FIRE|COMMIT|UNCOMMIT|PROMOTE|DEMOTE|ALL|STATS|ALLSTATS
-&VAR`ADMINFLAGS u(crm)=RENAME|CHOWN|SET|DESC|INTIMACY|SPECIAL|CREATE|DELETE|PARENT|UNPARENT|PARTNER|UNPARTNER|LEND
-
-&FUN`FINDORG u(crm)=first(filterbool(#lambda/strmatch(get(u(crm-db)/\%0),%0),sort(regu(lattr,u(crm-db)/^\\d+$),i)))
-
-&INC`TARGET u(crm)=@check strlen(before(%0,/))=@pemit %#=msghead(CRM) ERROR: No Organization targeted!;@select/inline valnum(before(%0,/))=1,{@check hasattr(u(crm-db)/[before(%0,/)])=@pemit %#=msghead(CRM) ERROR: An Organization by that ID does not exist.;th u(setq,id,before(%0,/))},0,{@attach u(ccs)/INC`PARTIAL=before(%0,/),squish(iter(sort(regu(lattr,u(crm-db)/^\\d+$),i),get(u(crm-db)/%i0),%b,|),|),|,CRM,found,found;@check valnum(u(setr,id,u(FUN`FINDORG,%q<found>)))=@pemit %#=msghead(CRM) ERROR: No Organization by that name could be found.};th u(setq,orgname,get(u(crm-db)/%q<id>))
-
-&INC`CREATE u(crm)=@check strlen(u(setr,orgname,before(%0,/)))=@pemit %#=msghead(CRM) ERROR: Name field empty!;@stop valnum(u(FUN`FINDORG,%q<orgname>))=@pemit %#=msghead(CRM) ERROR: An organization by that name already exists!;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;&[u(setr,id,nextslot(u(crm-db),))] u(crm-db)=%q<orgname>;&%q<id>`LEADER u(crm-db)=%q<t1objid>;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n created a new CRM Organization: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You created a new organization: %q<id> '%q<orgname>' and gave it to %q<t1name>;@pemit %q<t1>=msghead(CRM) %n has created a new organization for you: %q<id> '%q<orgname>';@attach u(crm)/INC`MAKELOG=%#,%q<id>,{The Organization was created.}
-
-&INC`DELETE u(crm)=@attach u(crm)/INC`TARGET;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n deleted %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You deleted %q<id> '%q<orgname>';@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n deleted %q<id> '%q<orgname>';@set u(crm-db)=!SAFE;@wipe u(crm-db)/%q<id>;@wipe u(crm-db)/CTRANS`%q<id>`*;@wipe u(crm-db)/CTRANS`*`%q<id>;@set u(crm-db)=SAFE
-
-&INC`RENAME u(crm)=@attach u(crm)/INC`TARGET;@check strlen(%1)=@pemit %#=msghead(CRM) ERROR: New name field empty!;@stop valnum(u(FUN`FINDORG,%1))=@pemit %#=msghead(CRM) ERROR: An organization by that name already exists!;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n renamed %q<id> '%q<orgname>' to '%1'};@pemit/list setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n renamed %q<id> '%q<orgname>' to '%1';&%q<id> u(crm-db)=%1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{The Organization was renamed to: %1}
-
-&INC`CHOWN u(crm)=@attach u(crm)/INC`TARGET;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n renamed %q<id> '%q<orgname>' to: %1};@pemit %#=msghead(CRM) You chown'd %q<id> '%q<orgname>' to: %q<t1name>;@pemit setunion(%# %q<t1>,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n chown'd %q<id> '%q<orgname>' to: %q<t1name>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{The Organization was chown'd to: %q<t1name>};&%q<id>`LEADER u(crm-db)=%q<t1objid>
-
-&INC`MAKELOG u(crm)=@check isdbref(%0);@check hasattrval(u(crm-db),%1);@check strlen(%2);&[u(setr,log,%1`LOG`[nextslot(u(crm-db),%1`LOG)])] u(crm-db)=%2;&%q<log>`ON u(crm-db)=secs();&%q<log>`BY u(crm-db)=objid(%0)
-
-&INC`LOG u(crm)=@attach u(crm)/INC`TARGET;@pemit %#=header(Logs for %q<id> '%q<orgname>');@dolist/inline sortkey(#lambda/last(\%0,`),u(lattr,u(crm-db)/%q<id>`LOG`*))={@pemit %#=subheader(By [name(get(u(crm-db)/%i0`BY))] on [convsecs(get(u(crm-db)/%i0`ON))]);@pemit %#=get(u(crm-db)/%i0)};@pemit %#=header()
-
-&INC`HIRE u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@stop match(get(u(crm-db)/%q<id>`EMPLOYEES),%q<t1objid>)=@pemit %#=msghead(CRM) ERROR: %q<t1name> is already an employee.;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n hired a new %q<id> '%q<orgname>' Employee: %1};@pemit %#=msghead(CRM) You hired a new %q<id> '%q<orgname>' Employee: %q<t1name>;@pemit setunion(%# %q<t1>,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n hired a new %q<id> '%q<orgname>' Employee: %q<t1name>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{New Employee Hired: %q<t1name>};&%q<id>`EMPLOYEES u(crm-db)=filterbool(#lambda/isobjid(\%0),setunion(get(u(crm-db)/%q<id>`EMPLOYEES),%q<t1objid>))
-
-&INC`FIRE u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@check match(get(u(crm-db)/%q<id>`EMPLOYEES),%q<t1objid>)=@pemit %#=msghead(CRM) ERROR: %q<t1name> is not an employee.;@check if(match(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>),or(isadmin(%#),strmatch(get(u(crm-db)/%q<id>`LEADER),%:)),1)=@pemit %#=msghead(CRM) ERROR: %q<t1name> is a Manager. Only the Leader or Staff may fire Managers.;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n fired a %q<id> '%q<orgname>' Employee: %1};@pemit %#=msghead(CRM) You fired a %q<id> '%q<orgname>' Employee: %q<t1name>;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n fired a %q<id> '%q<orgname>' Employee: %q<t1name>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Employee Fired: %q<t1name>};&%q<id>`EMPLOYEES u(crm-db)=filterbool(#lambda/isobjid(\%0),setdiff(get(u(crm-db)/%q<id>`EMPLOYEES),%q<t1objid>));&%q<id>`MANAGERS u(crm-db)=filterbool(#lambda/isobjid(\%0),setdiff(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>))
-
-&INC`PROMOTE u(crm)=@attach u(crm)/INC`TARGET;@check or(isadmin(%#),match(get(u(crm-db)/%q<id>`LEADER),%:))=@pemit %#=msghead(CRM) ERROR: Only the Leader or Staff may Promote members.;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@stop match(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>)=@pemit %#=msghead(CRM) ERROR: %q<t1name> is already a Manager.;@select/inline t(match(get(u(crm-db)/%q<id>`EMPLOYEES),%q<t1objid>))=0,{@attach u(crm)/INC`HIRE};@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n appointed a new %q<id> '%q<orgname>' manager: %1};@pemit %#=msghead(CRM) You appointed a new %q<id> '%q<orgname>' manager: %q<t1name>;@pemit setunion(%# %q<t1>,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n appointed a new %q<id> '%q<orgname>' manager: %q<t1name>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{New Manager appointed: %q<t1name>};&%q<id>`MANAGERS u(crm-db)=filterbool(#lambda/isobjid(\%0),setunion(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>))
-
-&INC`DEMOTE u(crm)=@attach u(crm)/INC`TARGET;@check or(isadmin(%#),match(get(u(crm-db)/%q<id>`LEADER),%:))=@pemit %#=msghead(CRM) ERROR: Only the Leader or Staff may Demote members.;@attach u(ccs)/INC`CHECKPC=%1,1,CRM;@check match(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>)=@pemit %#=msghead(CRM) ERROR: %q<t1name> is not a Manager.;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n demoted a %q<id> '%q<orgname>' manager: %1};@pemit %#=msghead(CRM) You demoted a %q<id> '%q<orgname>' manager: %q<t1name>;@pemit setunion(%# %q<t1>,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n demoted a %q<id> '%q<orgname>' manager: %q<t1name>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Manager Demoted: %q<t1name>};&%q<id>`MANAGERS u(crm-db)=filterbool(#lambda/isobjid(\%0),setdiff(get(u(crm-db)/%q<id>`MANAGERS),%q<t1objid>))
-
-&VAR`SET`MAIN`STATS u(crm)=COMPETENCE|INFLUENCE|REACH|SIZE|WEALTH|CAPITAL|MOTIVATION|EXTRA
-&VAR`SET`DESC`STATS u(crm)=COMPETENCE|INFLUENCE|REACH|SIZE|WEALTH
-
-&INC`SET u(crm)=@attach u(crm)/INC`TARGET;@check strlen(before(%0,/))=@pemit %#=msghead(CRM) ERROR: Nothing entered to set.;@attach u(ccs)/INC`PARTIAL=after(%0,/),v(VAR`SET`MAIN`STATS),|,CRM,choice,choice;@select/inline strlen(%1)=0,{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n cleared %q<id> '%q<orgname>''s %q<choice>};@pemit %#=msghead(CRM) You cleared %q<id> '%q<orgname>''s %q<choice>;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n cleared %q<id> '%q<orgname>''s %q<choice>;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Cleared %q<choice>.};&%q<id>`STAT`%q<choice> u(crm-db)},{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n set %q<id> '%q<orgname>''s %q<choice> to: %1};@pemit %#=msghead(CRM) You set %q<id> '%q<orgname>''s %q<choice> to: %1;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n set %q<id> '%q<orgname>''s %q<choice> to: %1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Set %q<choice> to: %1};&%q<id>`STAT`%q<choice> u(crm-db)=%1}
-
-&INC`DESC u(crm)=@attach u(crm)/INC`TARGET;@check strlen(before(%0,/))=@pemit %#=msghead(CRM) ERROR: Nothing entered to set.;@attach u(ccs)/INC`PARTIAL=after(%0,/),v(VAR`SET`DESC`STATS),|,CRM,choice,choice;@select/inline strlen(%1)=0,{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n cleared %q<id> '%q<orgname>''s %q<choice> DESC};@pemit %#=msghead(CRM) You cleared %q<id> '%q<orgname>''s %q<choice> DESC;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n cleared %q<id> '%q<orgname>''s %q<choice> DESC;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Cleared %q<choice> DESC.};&%q<id>`STAT`%q<choice>`DESC u(crm-db)},{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n set %q<id> '%q<orgname>''s %q<choice> DESC to: %1};@pemit %#=msghead(CRM) You set %q<id> '%q<orgname>''s %q<choice> DESC to: %1;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n set %q<id> '%q<orgname>''s %q<choice> DESC to: %1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Set %q<choice> DESC to: %1};&%q<id>`STAT`%q<choice>`DESC u(crm-db)=%1}
-
-&INC`INTIMACY u(crm)=@attach u(crm)/INC`TARGET;@check valnum(u(setr,int,after(%0,/)))=@pemit %#=msghead(CRM) ERROR: Intimacies must be handled by their Slots!;@select/inline strlen(%1)=0,{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n cleared %q<id> '%q<orgname>''s %q<int> Intimacy};@pemit %#=msghead(CRM) You cleared %q<id> '%q<orgname>''s %q<int> Intimacy;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n cleared %q<id> '%q<orgname>''s %q<int> Intimacy;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Cleared %q<int> Intimacy.};&%q<id>`INTIMACY`%q<int> u(crm-db)},{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n set %q<id> '%q<orgname>''s %q<int> Intimacy to: %1};@pemit %#=msghead(CRM) You set %q<id> '%q<orgname>''s %q<int> Intimacy to: %1;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n set %q<id> '%q<orgname>''s %q<int> Intimacy to: %1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Set %q<int> Intimacy to: %1};&%q<id>`INTIMACY`%q<int> u(crm-db)=%1}
-
-&INC`SPECIAL u(crm)=@attach u(crm)/INC`TARGET;@check valnum(u(setr,int,after(%0,/)))=@pemit %#=msghead(CRM) ERROR: Intimacies must be handled by their Slots!;@select/inline strlen(%1)=0,{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n cleared %q<id> '%q<orgname>''s %q<int> Special Asset};@pemit %#=msghead(CRM) You cleared %q<id> '%q<orgname>''s %q<int> Special Asset;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n cleared %q<id> '%q<orgname>''s %q<int> Special Asset;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Cleared %q<int> Special Asset.};&%q<id>`SPECIAL`%q<int> u(crm-db)},{@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n set %q<id> '%q<orgname>''s %q<int> Special Asset to: %1};@pemit %#=msghead(CRM) You set %q<id> '%q<orgname>''s %q<int> Special Asset to: %1;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n set %q<id> '%q<orgname>''s %q<int> Special Asset to: %1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Set %q<int> Special Asset to: %1};&%q<id>`SPECIAL`%q<int> u(crm-db)=%1}
-
-&INC`CHECKPERM u(crm)=@check or(isadmin(%#),match(get(u(crm-db)/%q<id>`PROMOTE),%:),strmatch(get(u(crm-db)/%q<id>`LEADER),%:))=@pemit %#=msghead(CRM) ERROR: You don't have the authority to do that.
-
-&INC`COMMIT u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;@check valnum(u(setr,int,after(%0,/)))=@pemit %#=msghead(CRM) ERROR: Commitments must be whole positive numbers!;@check or(gte(u(FUN`GET`CAPITAL`CURRENT,%q<id>),%q<int>),isadmin(%#))=@pemit %#=msghead(CRM) ERROR: That would commit more Capital than the organization has. Admin must do this.;@check strlen(%1)=@pemit %#=msghead(CRM) ERROR: Commit reason field empty.;&[u(setr,attr,%q<id>`COMMIT`[u(setr,slot,nextslot(u(crm-db),%q<id>`COMMIT))])] u(crm-db)=%q<int>;&%q<attr>`DESC u(crm-db)=%1;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n Committed %q<int> of %q<id> '%q<orgname>''s Capital to: %1};@pemit %#=msghead(CRM) You Committed %q<int> of %q<id> '%q<orgname>''s Capital to: %1;@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n Committed %q<int> of %q<id> '%q<orgname>''s Capital to: %1;@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Committed %q<int> Capital to: %1}
-
-&INC`UNCOMMIT u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;@check valnum(u(setr,int,%1))=@pemit %#=msghead(CRM) ERROR: Commitment slots must be whole positive numbers!;@check hasattr(u(crm-db)/%q<id>`COMMIT`%q<int>)=@pemit %#=msghead(CRM) ERROR: Commitment Slot not found.;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n released [get(u(crm-db)/%q<id>`COMMIT`%q<int>)] of %q<id> '%q<orgname>''s Capital from: [get(u(crm-db)/%q<id>`COMMIT`%q<int>`DESC)]};@pemit %#=msghead(CRM) You released [get(u(crm-db)/%q<id>`COMMIT`%q<int>)] of %q<id> '%q<orgname>''s Capital from: [get(u(crm-db)/%q<id>`COMMIT`%q<int>`DESC)];@pemit setunion(%#,iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)))=msghead(CRM) %n released [get(u(crm-db)/%q<id>`COMMIT`%q<int>)] of %q<id> '%q<orgname>''s Capital from: [get(u(crm-db)/%q<id>`COMMIT`%q<int>`DESC)];@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Released  [get(u(crm-db)/%q<id>`COMMIT`%q<int>)] Capital from: [get(u(crm-db)/%q<id>`COMMIT`%q<int>`DESC)]};@set u(crm-db)=!SAFE;@wipe u(crm-db)/%q<id>`COMMIT`%q<int>;@set u(crm-db)=SAFE
-
-&INC`LEND u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;th u(setq,mid,%q<id>,morgname,%q<orgname>);@check or(valnum(u(setr,int,%1)),eq(%q<int>,0),not(strlen(%q<int>)))=@pemit %#=msghead(CRM) ERROR: Lends must be positive numbers or 0 to clear!;@check or(gte(u(FUN`GET`CAPITAL`CURRENT,%q<id>),%q<int>),isadmin(%#))=@pemit %#=msghead(CRM) ERROR: That would lend more Capital than the organization has. Admin must do this.;@attach u(crm)/INC`TARGET=after(%0,/);@select/inline t(%q<int>)=0,{@check u(setr,trans,get(u(crm-db)/CTRANS`%q<mid>`%q<id>))=@pemit %#=msghead(CRM) ERROR: No Capital's being lent to %q<id> '%q<orgname>'. Nothing to clear.;@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n reclaimed %q<trans> of %q<mid> '%q<morgname>''s Capital from: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You reclaimed %q<trans> of %q<mid> '%q<morgname>''s Capital from: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n reclaimed %q<trans> of %q<mid> '%q<morgname>''s Capital from: %q<id> '%q<orgname>';@wipe u(crm-db)/CTRANS`%q<mid>`%q<id>;@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Reclaimed %q<trans> Capital from: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Lost %q<trans> Capital from: %q<mid> '%q<morgname>'}},{th u(setq,trans,%q<int>);@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n lent %q<trans> of %q<mid> '%q<morgname>''s Capital to: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You lent %q<trans> of %q<mid> '%q<morgname>''s Capital to: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n lent %q<trans> of %q<mid> '%q<morgname>''s Capital to: %q<id> '%q<orgname>';&CTRANS`%q<mid>`%q<id> u(crm-db)=%q<int>;@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Transferred %q<trans> Capital from: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Gained %q<trans> Capital from: %q<mid> '%q<morgname>'}}
-
-&INC`PARENT u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;th u(setq,mid,%q<id>,morgname,%q<orgname>);@attach u(crm)/INC`TARGET=%1;@stop gt(get(u(crm-db)/%q<id>`PARENT),0)=@pemit %#=msghead(CRM) ERROR: That Organization is already a Subsidiary. Please unparent it first.;@stop match(get(u(Crm-db)/%q<mid>`PARTNERS),%q<id>)=@pemit %#=msghead(CRM) ERROR: %q<id> '%q<orgname>' is a partner of %q<mid> '%q<morgname>'!;th u(setq,trans,%q<int>);@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n assigned %q<mid> '%q<morgname>' as a Subsidiary of: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You assigned %q<mid> '%q<morgname>' as a Subsidiary of: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n assigned %q<mid> '%q<morgname>' as a Subsidiary of: %q<id> '%q<orgname>';&%q<mid>`PARENT u(crm-db)=%q<id>;@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Assigned as Subsidiary of: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Gained Subsidiary: %q<mid> '%q<morgname>'}
-
-&INC`UNPARENT u(crm)=@attach u(crm)/INC`TARGET;@attach u(crm)/INC`CHECKPERM;th u(setq,mid,%q<id>,morgname,%q<orgname>);@check gt(get(u(crm-db)/%q<id>`PARENT),0)=@pemit %#=msghead(CRM) ERROR: That Organization is not a Subsidiary.;@attach u(crm)/INC`TARGET=get(u(crm-db)/%q<id>`PARENT);@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n separated %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You separated %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n separated %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>';@wipe u(crm-db)/%q<mid>`PARENT;@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Seperated from: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Lost Holding: %q<mid> '%q<morgname>'}
-
-&INC`PARTNER u(crm)=@attach u(crm)/INC`TARGET;th u(setq,mid,%q<id>,morgname,%q<orgname>);@attach u(crm)/INC`TARGET=%1;@stop match(get(u(Crm-db)/%q<mid>`PARTNERS),%q<id>)=@pemit %#=msghead(CRM) ERROR: That Organization is already a partner of %q<mid> '%q<morgname>';@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n partnered %q<mid> '%q<morgname>''s to: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You partnered %q<mid> '%q<morgname>''s to: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n partnered %q<mid> '%q<morgname>''s to: %q<id> '%q<orgname>';&%q<mid>`PARTNERS u(crm-db)=filterbool(#lambda/hasattrval(u(crm-db),\%0),setunion(get(u(crm-db)/%q<mid>`PARTNERS),%q<id>));&%q<id>`PARTNERS u(crm-db)=filterbool(#lambda/hasattrval(u(crm-db),\%0),setunion(get(u(crm-db)/%q<id>`PARTNERS),%q<mid>));@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Partnered to: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Partnered to: %q<mid> '%q<morgname>'}
-
-&INC`UNPARTNER u(crm)=@attach u(crm)/INC`TARGET;th u(setq,mid,%q<id>,morgname,%q<orgname>);@attach u(crm)/INC`TARGET=%1;@check match(get(u(Crm-db)/%q<mid>`PARTNERS),%q<id>)=@pemit %#=msghead(CRM) ERROR: That Organization is not a partner of %q<mid> '%q<morgname>';@nscemit/noisy u(cmo`staffrep)={ansi(h,CRM:) %n unpartnered %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>'};@pemit %#=msghead(CRM) You unpartnered %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>';@pemit setunion(%#,setunion(iter(setunion(get(u(crm-db)/%q<id>`LEADER),get(u(crm-db)/%q<id>`EMPLOYEES)),num(%i0)),iter(setunion(get(u(crm-db)/%q<mid>`LEADER),get(u(crm-db)/%q<mid>`EMPLOYEES)),num(%i0))))=msghead(CRM) %n unpartnered %q<mid> '%q<morgname>''s from: %q<id> '%q<orgname>';&%q<mid>`PARTNERS u(crm-db)=filterbool(#lambda/hasattrval(u(crm-db),\%0),setdiff(get(u(crm-db)/%q<mid>`PARTNERS),%q<id>));&%q<id>`PARTNERS u(crm-db)=filterbool(#lambda/hasattrval(u(crm-db),\%0),setdiff(get(u(crm-db)/%q<id>`PARTNERS),%q<mid>));@attach u(crm)/INC`MAKELOG=%#,%q<mid>,{Unpartnered from: %q<id> '%q<orgname>'};@attach u(crm)/INC`MAKELOG=%#,%q<id>,{Unpartnered from: %q<mid> '%q<morgname>'}
-
-
-&FUN`BORDER u(crm)=align(1. 74 1.,u(FUN`COLOR,%0,|),%1,u(FUN`COLOR,%0,|)%R)
-
-&FUN`COLOR u(crm)=ansi(m,%1)
-
-&FUN`HEADER u(crm)=u(FUN`COLOR,%0,\})[center(u(FUN`COLOR,%0,/)[ansi(h,%1)][u(FUN`COLOR,%0,/)],76,u(FUN`COLOR,%0,-))][u(FUN`COLOR,%0,\{)]
-
-&INC`MAIN u(crm)=@select/inline gt(strlen(%0),0)=1,{@attach u(crm)/INC`TARGET;@attach u(crm)/INC`MAIN`SHOWSHEET=%q<id>},{@attach u(crm)/INC`MAIN`LISTORGS}
-
-&INC`MAIN`LISTORGS u(crm)=@pemit %#=header(CRM Organizations)%R[align(4 17 17 7 17,ID,NAME,LEADER,MEMBERS,SUBSIDIARIES)];@dolist/inline sort(filterbool(#lambda/not(hasattrval(u(crm-db)/\%0`PARENT)),regu(lattr,u(crm-db)/^\\d+$)),i)={@pemit %#=align(4 17 17 7 17,pueblize(rjust(%i0,3).,+crm %i0),pueblize(get(u(crm-db)/%i0),+crm %i0),pueblize(name(get(u(crm-db)/%i0`LEADER)),+oocfinger [name(get(u(crm-db)/%i0`LEADER))]),words(filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%i0`EMPLOYEES))),itemize(iter(%q<subs>,pueblize(get(u(crm-db)/%i0),+crm %i0),%b,|),|,and,\,))};@pemit %#=header(+crm/all for Subsidiaries)
-
-&INC`ALL u(crm)=@pemit %#=header(CRM Organizations + Subsidiaries)%R[align(4 17 17 7 17,ID,NAME,LEADER,MEMBERS,PARENT)];@dolist/inline sort(regu(lattr,u(crm-db)/^\\d+$),i)={@pemit %#=align(4 17 17 7 17,pueblize(rjust(%i0,3).,+crm %i0),pueblize(get(u(crm-db)/%i0),+crm %i0),pueblize(name(get(u(crm-db)/%i0`LEADER)),+oocfinger [name(get(u(crm-db)/%i0`LEADER))]),words(filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%i0`EMPLOYEES))),if(hasattrval(u(crm-db)/%i0`PARENT),pueblize(get(u(crm-db)/[get(u(crm-db)/%i0`PARENT)]),+crm [get(u(crm-db)/%i0`PARENT)])))};@pemit %#=header(+crm/stats for Stats)
-
-&INC`STATS u(crm)=@pemit %#=header(CRM Organizations - Stats Mode)%R[align(4 17 17 4 4 4 4 4 4 4,ID,NAME,LEADER,COMP,INFL,REAC,SIZE,WEAL,CAPI,AVAI)];@dolist/inline sort(filterbool(#lambda/not(hasattrval(u(crm-db)/\%0`PARENT)),regu(lattr,u(crm-db)/^\\d+$)),i)={@pemit %#=align(4 17 17 4 4 4 4 4 4 4,pueblize(rjust(%i0,3).,+crm %i0),pueblize(get(u(crm-db)/%i0),+crm %i0),pueblize(name(get(u(crm-db)/%i0`LEADER)),+oocfinger [name(get(u(crm-db)/%i0`LEADER))]),strfirstof(get(u(crm-db)/%i0`STAT`COMPETENCE),0),strfirstof(get(u(crm-db)/%i0`STAT`INFLUENCE),0),strfirstof(get(u(crm-db)/%i0`STAT`REACH),0),strfirstof(get(u(crm-db)/%i0`STAT`SIZE),0),strfirstof(get(u(crm-db)/%i0`STAT`WEALTH),0),strfirstof(u(FUN`GET`CAPITAL`MAX,%i0),0),strfirstof(u(FUN`GET`CAPITAL`AVAILABLE,%i0),0))};@pemit %#=header(+crm/allstats for Subsidiaries)
-
-&INC`ALLSTATS u(crm)=@pemit %#=header(CRM Organizations - Stats Mode)%R[align(4 17 17 4 4 4 4 4 4,ID,NAME,LEADER,COMP,INFL,REAC,SIZE,WEAL,CAPI,AVAI)];@dolist/inline sort(regu(lattr,u(crm-db)/^\\d+$),i)={@pemit %#=align(4 17 17 4 4 4 4 4 4,pueblize(rjust(%i0,3).,+crm %i0),pueblize(get(u(crm-db)/%i0),+crm %i0),pueblize(name(get(u(crm-db)/%i0`LEADER)),+oocfinger [name(get(u(crm-db)/%i0`LEADER))]),strfirstof(get(u(crm-db)/%i0`STAT`COMPETENCE),0),strfirstof(get(u(crm-db)/%i0`STAT`INFLUENCE),0),strfirstof(get(u(crm-db)/%i0`STAT`REACH),0),strfirstof(get(u(crm-db)/%i0`STAT`SIZE),0),strfirstof(get(u(crm-db)/%i0`STAT`WEALTH),0),strfirstof(u(FUN`GET`CAPITAL`MAX,%i0),0),strfirstof(u(FUN`GET`CAPITAL`AVAILABLE,%i0),0))};@pemit %#=header(+crm/allstats for Subsidiaries)
-
-&INC`MAIN`SHOWSHEET u(crm)=@pemit %#=u(FUN`HEADER,%0,Policy);@pemit %#=u(FUN`BORDER,%0,align(36 37,Name: [default(u(crm-db)/%0,Unset)]%RMotivation: [default(u(crm-db)/%0`STAT`MOTIVATION,Unset)],INTIMACIES%R[iter(sortkey(#lambda/last(\%0,`),u(lattr,u(crm-db)/%0`INTIMACY`*)),rjust(last(%i0,`),2). [default(u(crm-db)/%i0,Unset (???))],%b,%R)]));@select/inline hasattrval(u(crm-db)/%0`STAT`EXTRA)=1,{@pemit %#=u(FUN`HEADER,%0,Extra);@pemit %#=u(FUN`BORDER,%0,get(u(crm-db)/%0`STAT`EXTRA))};@pemit %#=u(FUN`HEADER,%0,Assets);@pemit %#=u(FUN`BORDER,%0,ljust(STATS,16)DETAILS%R[iter(Competence Influence Reach Size Wealth,align(>13 1 56,%i0%B[rjust(default(u(crm-db)/%0`STAT`%i0,0),2,0)],-,get(u(crm-db)/%0`STAT`%i0`DESC)),%b,%R)]);@select/inline t(nattr(u(crm-db)/%0`SPECIAL`*))=1,{@pemit %#=u(FUN`BORDER,%0,SPECIAL ASSETS:%R[iter(sortkey(#lambda/last(\%0,`),u(lattr,u(crm-db)/%0`SPECIAL`*)),rjust(last(%i0,`),2). [default(u(crm-db)/%i0,Unset (???))],%b,%R)])};@pemit %#=u(FUN`HEADER,%0,Resources);@pemit %#=u(FUN`BORDER,%0,align(13 1 56,CAPITAL,,COMMITMENTS));@pemit %#=u(FUN`BORDER,%0,align(>13 1 56,iter(Max Current Borrowed Lent Committed Available,%i0: [rjust(u(FUN`GET`CAPITAL`%i0,%0),2,0)],%b,%R),,iter(sortkey(#lambda/last(\%0,`),u(lattr,u(crm-db)/%0`COMMIT`*)),last(%i0,`): [get(u(crm-db)/%i0)] for: [get(u(crm-db)/%i0`DESC)],%b,%r)[if(u(FUN`GET`CAPITAL`BORROWED,%0),%RBORROWING:%R[iter(filterbool(#lambda/hasattrval(u(crm-db),elements(\%0,2,`)),u(lattr,u(crm-db)/CTRANS`*`%0)),get(u(crm-db)/%i0) from [pueblize(elements(%i0,2,`)-[get(u(crm-db)/[elements(%i0,2,`)])],+crm [elements(%i0,2,`)])],%b,%r)])][if(u(FUN`GET`CAPITAL`LENT,%0),%RLENDING:%R[iter(filterbool(#lambda/hasattrval(u(crm-db),elements(\%0,3,`)),u(lattr,u(crm-db)/CTRANS`%0`*)),get(u(crm-db)/%i0) to [pueblize(elements(%i0,3,`)-[get(u(crm-db)/[elements(%i0,3,`)])],+crm [elements(%i0,3,`)])],%b,%r)])]));@pemit %#=u(FUN`HEADER,%0,Structure);@pemit %#=u(FUN`BORDER,%0,align(33 40,MEMBERSHIP%RLeader: [name(get(u(crm-db)/%0`LEADER))]%RManagers: [itemize(iter(sort(filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%0`MANAGERS)),namei),name(%i0),%b,|),|,and,\,)]%REmployees: [itemize(iter(setdiff(filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%0`EMPLOYEES)),filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%0`MANAGERS)),%b,namei,%b),name(%i0),%b,|),|,and,\,)],PARENT: [if(hasattrval(u(crm-db)/%0`PARENT),pueblize(get(u(crm-db)/%0`PARENT)-[get(u(crm-db)/[get(u(crm-db)/%0`PARENT)])],+crm [get(u(crm-db)/%0`PARENT)]))]%R%RPARTNERS%R[if(hasattrval(u(crm-db)/%0`PARTNERS),iter(filterbool(#lambda/hasattrval(u(crm-db),\%0),sort(get(u(crm-db)/%0`PARTNERS),n)),pueblize(rjust(%i0,3,0).,+crm %i0) [pueblize(get(u(crm-db)/%i0),+crm %i0)],%b,%r)%R%R)]));@select/inline gt(words(filterbool(#lambda/strmatch(get(u(crm-db)/\%0`PARENT),%0),regu(lattr,u(crm-db)/^\\d+$))),0)=1,{@attach u(crm)/INC`MAIN`SHOWSHEET`LISTSUBS};@pemit %#=u(FUN`COLOR,%0,+)[u(FUN`COLOR,%0,repeat(-,76))][u(FUN`COLOR,%0,+)]
-
-&INC`MAIN`SHOWSHEET`LISTSUBS u(crm)=@pemit %#=u(FUN`HEADER,%0,Subsidiaries)%R[u(FUN`BORDER,%0,align(4 17 17 7 17,ID,NAME,LEADER,MEMBERS,SUBSIDIARIES))];@dolist/inline sort(filterbool(#lambda/strmatch(get(u(crm-db)/\%0`PARENT),%0),regu(lattr,u(crm-db)/^\\d+$)),i)={@pemit %#=u(FUN`BORDER,%0,align(4 17 17 7 17,pueblize(rjust(%i0,3).,+crm %i0),pueblize(get(u(crm-db)/%i0),+crm %i0),pueblize(name(get(u(crm-db)/%i0`LEADER)),+oocfinger [name(get(u(crm-db)/%i0`LEADER))]),words(filterbool(#lambda/isobjid(\%0),get(u(crm-db)/%i0`EMPLOYEES))),itemize(iter(%q<subs>,pueblize(get(u(crm-db)/%i0),+crm %i0),%b,|),|,and,\,)))}
-
-&FUN`GET`CAPITAL`MAX u(crm)=sub(add(lmath(add,iter(SIZE COMPETENCE INFLUENCE WEALTH REACH,get(u(crm-db)/%0`STAT`%i0))),u(FUN`GET`CAPITAL`BORROWED,%0)),u(FUN`GET`CAPITAL`LENT,%0))
-&FUN`GET`CAPITAL`CURRENT u(crm)=strfirstof(bound(get(u(crm-db)/%0`STAT`CAPITAL),0,u(FUN`GET`CAPITAL`MAX,%0)),u(FUN`GET`CAPITAL`MAX,%0))
-&FUN`GET`CAPITAL`COMMITTED u(crm)=lmath(add,iter(u(lattr,u(crm-db)/%0`COMMIT`*),get(u(crm-db)/%i0)))
-&FUN`GET`CAPITAL`AVAILABLE u(crm)=sub(u(FUN`GET`CAPITAL`CURRENT,%0),u(FUN`GET`CAPITAL`COMMITTED,%0))
-&FUN`GET`CAPITAL`BORROWED u(crm)=lmath(add,iter(filterbool(#lambda/hasattrval(u(crm-db),elements(\%0,2,`)),u(lattr,u(crm-db)/CTRANS`*`%0)),get(u(crm-db)/%i0)))
-&FUN`GET`CAPITAL`LENT u(crm)=lmath(add,iter(filterbool(#lambda/hasattrval(u(crm-db),elements(\%0,3,`)),u(lattr,u(crm-db)/CTRANS`%0`*)),get(u(crm-db)/%i0)))
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Merits System Data - MERIT.txt b/unfinished/storyteller/exalted25/Merits System Data - MERIT.txt
index b85eeb5..dbad394 100644
--- a/unfinished/storyteller/exalted25/Merits System Data - MERIT.txt	
+++ b/unfinished/storyteller/exalted25/Merits System Data - MERIT.txt	
@@ -11,4 +11,6 @@
 &INIT`WARMUTATIONS [u(cobj,merit)]=th u(setq,sysname,MUTATIONS);th u(setq,root,D`WARFORM_MUTATIONS);th u(setq,type,Warform Mutation);th u(setq,comm,+warmutations)
 &INIT`RAGEMUTATIONS [u(cobj,merit)]=th u(setq,sysname,MUTATIONS);th u(setq,root,D`RAGE_MUTATIONS);th u(setq,type,By Rage Recast Mutation);th u(setq,comm,+ragemutations)
 &INIT`POSMUTATIONS [u(cobj,merit)]=th u(setq,sysname,MUTATIONS);th u(setq,root,D`POSITIVE_MUTATIONS);th u(setq,type,Positive Mutation);th u(setq,comm,+posmutations)
-&INIT`NEGMUTATIONS [u(cobj,merit)]=th u(setq,sysname,MUTATIONS);th u(setq,root,D`NEGATIVE_MUTATIONS);th u(setq,type,Negative Mutation);th u(setq,comm,+negmutations)
\ No newline at end of file
+&INIT`NEGMUTATIONS [u(cobj,merit)]=th u(setq,sysname,MUTATIONS);th u(setq,root,D`NEGATIVE_MUTATIONS);th u(setq,type,Negative Mutation);th u(setq,comm,+negmutations)
+
+&HLP`MERITS`GAME [u(Cobj,merit)]=[ansi(hc,Types)]%R+merits can be used as the following commands:%R[ansi(h,+backgrounds)] - For all Exalted backgrounds.%R[ansi(h,+flaws)] - For Flaws.%R[ansi(h,+warmutations)] - For Warform Mutations (Lunars.)%R[ansi(h,+ragemutations)] - For Mutations gained in By Rage Recast.%R[ansi(h,+posmutations)] - For Positive Mutations.%R[ansi(h,+negmutations)] - For Negative Mutations.
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Migrations.txt b/unfinished/storyteller/exalted25/Migrations.txt
new file mode 100644
index 0000000..79db5cc
--- /dev/null
+++ b/unfinished/storyteller/exalted25/Migrations.txt
@@ -0,0 +1,8 @@
+&MIGRATE`STATS [u(cobj,migrate)]=@dolist lsearch(all,type,player)=@wait #@={th u(setstat,%i0,D`INFO,POWER,u(getstat,%i0,D`INFO,Essence));th u(setstat,%i0,D`INFO,CLASS,u(getstat,%i0,D`INFO,Splat));@select/inline getclass(%i0)=Dragon-Blooded,{th u(setstat,%i0,D`INFO,TERRESTRIAL)};@dolist/inline filterbool(#lambda/hasattrval(%i0/\%0),D`ATTRIBUTES D`ABILITIES D`COLLEGES D`PATHS D`SPECIALTIES D`SLOTS)={&%i0 %i1=ucstr(edit(get(%i1/%i0),_,%b))};@dolist/inline filterbool(#lambda/not(strmatch(\%0,*`NAME)),iter(D`CHARMS D`SPELLS D`PROTOOCLS D`ARTS D`DEGREES,lattr(%i1/%i0`**)))={&%i0 %i1=iter(ucstr(get(%i1/%i0)),if(isint(last(%i0)),elements(%i0,lnum(1,sub(words(%i0),1)))~[last(%i0)],%i0~1),|,|)}}
+
+&MIGRATE`MARTIAL [u(cobj,migrate)]=@dolist lsearch(all,type,player)={@dolist/inline lattr(%i0/D`CHARMS`*_MARTIAL_ARTS`*`NAME)=&%i0 %i1=u(capnames,before(get(%i1/%i0),~))}
+
+&MIGRATE`MERITS [u(cobj,migrate)]=@dolist lsearch(all,type,player)=@wait #@={@dolist/inline D`MERITS D`FLAWS D`BACKGROUNDS D`WARFORM_MUTATIONS D`RAGE_MUTATIONS D`POSITIVE_MUTATIONS D`NEGATIVE_MUTATIONS D`NEUTRAL_MUTATIONS={@dolist/inline/delimit | [get(%i1/%i0)]={th u(setq,merit,ucstr(before(before(before(%i0,\(),:),~)));th u(setq,context,strfirstof(trim(after(before(%i0,~),:)),before(after(before(%i0,~),\(),\))));th u(setq,rank,after(%i0,~));@attach [u(cobj,merit)]/DO`ADD=%i1`[inum(0)],%i2,%q<merit>,%q<context>,%q<rank>;@attach [u(cobj,merit)]/DO`UPD=%i1`[inum(0)],%i2}}}
+
+
+&MIGRATE`XP [u(cobj,migrate)]=@dolist lsearch(all,type,player)=@wait #@={@dolist/inline sortkey(#lambda/get(%i0/\%0`ON),u(lattr,%i0/D`XP`*`*))=th u(u(cobj,xp)/MYSQL,INSERT`XP2,u(objid,%i1),XP,switch(elements(%i0,3,`),G,get(%i1/%i0),S,mul(-1,get(%i1/%i0))),get(%i1/%i0`REASON),get(%i1/%i0`BY),get(%i1/%i0`ON))}
\ No newline at end of file
diff --git a/unfinished/storyteller/exalted25/Pools System Data - POOL.txt b/unfinished/storyteller/exalted25/Pools System Data - POOL.txt
index 22f2517..adb4460 100644
--- a/unfinished/storyteller/exalted25/Pools System Data - POOL.txt	
+++ b/unfinished/storyteller/exalted25/Pools System Data - POOL.txt	
@@ -28,7 +28,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`EXPANDED`UNITTYPE [u(cobj,pool)]=Expanded Peripheral Essence
 &POOL`EXPANDED`MAX [u(cobj,pool)]=add(u(POOL`EXPANDED`MAX`[getclass(%0)],%0,EXPANDED),0)
 &POOL`EXPANDED`INIT [u(cobj,pool)]=u(POOL`EXPANDED`MAX,%0)
-&POOL`EXPANDED`ORDER [u(cobj,pool)]=10
+&POOL`EXPANDED`ORDER [u(cobj,pool)]=15
 &POOL`EXPANDED`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH COMMIT
 
 &POOL`OVERDRIVE [u(cobj,pool)]=Pool
@@ -36,7 +36,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`OVERDRIVE`UNITTYPE [u(cobj,pool)]=Expanded Peripheral Essence
 &POOL`OVERDRIVE`MAX [u(cobj,pool)]=add(u(POOL`OVERDRIVE`MAX`[getclass(%0)],%0,OVERDRIVE),0)
 &POOL`OVERDRIVE`INIT [u(cobj,pool)]=u(POOL`OVERDRIVE`MAX,%0)
-&POOL`OVERDRIVE`ORDER [u(cobj,pool)]=10
+&POOL`OVERDRIVE`ORDER [u(cobj,pool)]=17
 &POOL`OVERDRIVE`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH
 
 &POOL`WILLPOWER [u(cobj,pool)]=Pool
@@ -44,7 +44,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`WILLPOWER`UNITTYPE [u(cobj,pool)]=Willpower
 &POOL`WILLPOWER`MAX [u(cobj,pool)]=u(strfirstof,u(getstat,%0,D`INFO,Willpower),0)
 &POOL`WILLPOWER`INIT [u(cobj,pool)]=u(FUN`WILLCHECK,%0)
-&POOL`WILLPOWER`ORDER [u(cobj,pool)]=15
+&POOL`WILLPOWER`ORDER [u(cobj,pool)]=18
 
 &POOL`WILLPOWER`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH COMMIT
 
@@ -61,7 +61,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`COMPASSION`UNITNAME [u(cobj,pool)]=Points
 &POOL`COMPASSION`UNITTYPE [u(cobj,pool)]=Compassion
 &POOL`COMPASSION`MAX [u(cobj,pool)]=if(strmatch(getclass(%0),Raksha),u(getstat,%0,D`GRACES,Cup),u(getstat,%0,D`VIRTUES,Compassion))
-&POOL`COMPASSION`INIT [u(cobj,pool)]=0
+&POOL`COMPASSION`INIT [u(cobj,pool)]=u(POOL`COMPASSION`MAX,%0)
 &POOL`COMPASSION`ORDER [u(cobj,pool)]=50
 &POOL`COMPASSION`HAVE [u(cobj,pool)]=hasattr(%0/D`VIRTUES)
 &POOL`COMPASSION`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH
@@ -70,7 +70,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`CONVICTION`UNITNAME [u(cobj,pool)]=Points
 &POOL`CONVICTION`UNITTYPE [u(cobj,pool)]=Conviction
 &POOL`CONVICTION`MAX [u(cobj,pool)]=if(strmatch(getclass(%0),Raksha),u(getstat,%0,D`GRACES,Staff),u(getstat,%0,D`VIRTUES,Conviction))
-&POOL`CONVICTION`INIT [u(cobj,pool)]=0
+&POOL`CONVICTION`INIT [u(cobj,pool)]=u(POOL`CONVICTION`MAX,%0)
 &POOL`CONVICTION`ORDER [u(cobj,pool)]=55
 &POOL`CONVICTION`HAVE [u(cobj,pool)]=hasattr(%0/D`VIRTUES)
 &POOL`CONVICTION`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH
@@ -79,7 +79,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`TEMPERANCE`UNITNAME [u(cobj,pool)]=Points
 &POOL`TEMPERANCE`UNITTYPE [u(cobj,pool)]=Temperance
 &POOL`TEMPERANCE`MAX [u(cobj,pool)]=if(strmatch(getclass(%0),Raksha),u(getstat,%0,D`GRACES,Ring),u(getstat,%0,D`VIRTUES,Temperance))
-&POOL`TEMPERANCE`INIT [u(cobj,pool)]=0
+&POOL`TEMPERANCE`INIT [u(cobj,pool)]=u(POOL`TEMPERANCE`MAX,%0)
 &POOL`TEMPERANCE`ORDER [u(cobj,pool)]=60
 &POOL`TEMPERANCE`HAVE [u(cobj,pool)]=hasattr(%0/D`VIRTUES)
 &POOL`TEMPERANCE`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH
@@ -88,7 +88,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`VALOR`UNITNAME [u(cobj,pool)]=Points
 &POOL`VALOR`UNITTYPE [u(cobj,pool)]=Valor
 &POOL`VALOR`MAX [u(cobj,pool)]=if(strmatch(getclass(%0),Raksha),u(getstat,%0,D`GRACES,Sword),u(getstat,%0,D`VIRTUES,Valor))
-&POOL`VALOR`INIT [u(cobj,pool)]=0
+&POOL`VALOR`INIT [u(cobj,pool)]=u(POOL`VALOR`MAX,%0)
 &POOL`VALOR`ORDER [u(cobj,pool)]=65
 &POOL`VALOR`HAVE [u(cobj,pool)]=hasattr(%0/D`VIRTUES)
 &POOL`VALOR`OPTIONS [u(cobj,pool)]=SPEND GAIN REFRESH
@@ -101,7 +101,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 
 
 @@ SOLAR
-&CLASS`SOLAR [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT
+&CLASS`SOLAR [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`SOLAR [u(cobj,pool)]=add(mul(3,getpower(%0)),u(FUN`WILLCHECK,%0))
 &POOL`PERIPHERAL`MAX`SOLAR [u(cobj,pool)]=add(mul(7,getpower(%0)),u(FUN`WILLCHECK,%0),u(FUN`VIRTUES,%0))
 &POOL`EXPANDED`MAX`SOLAR [u(cobj,pool)]=u(FUN`EXTRA,%0,SOLAR,%1)
@@ -114,7 +114,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &SOLAR`OVERDRIVE`10 [u(cobj,pool)]=Storm-Gathering Practice|Hero's Fatal Resolve|Fading Light Quickening|Righteous Avenger's Aspect|Certain Victory Formulation|Red Dawn Ascending|Essence-Gathering Temper|You Shall Not Pass|Virtuous Warrior's Fortitude|Labors Treasured and Defended|Is This Tomorrow|Triumph Signed By Excellence|Honest Turnabout Assault|Wrongly-Condemned Rage|Jousting at Giants|Fearless Admiral's Dominion
 
 @@ LUNAR
-&CLASS`LUNAR [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT
+&CLASS`LUNAR [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`LUNAR [u(cobj,pool)]=add(getpower(%0),mul(2,u(FUN`WILLCHECK,%0)))
 &POOL`PERIPHERAL`MAX`LUNAR [u(cobj,pool)]=add(mul(4,getpower(%0)),mul(2,u(FUN`WILLCHECK,%0)),mul(4,if(u(game_config,STORYTELLER,MAX_VIRTUES),5,u(lmax,iter(get(%0/D`VIRTUES),last(%i0,~),|)))))
 &POOL`EXPANDED`MAX`LUNAR [u(cobj,pool)]=u(FUN`EXTRA,%0,LUNAR,%1)
@@ -127,7 +127,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &LUNAR`OVERDRIVE`10 [u(cobj,pool)]=Never To Rise Again|Biting At the Heels|Undying Ratel's Vengeance|Disappointed Guardian-Spirit Correction|Protean Exemplar Differentiation|World-Warden Onslaught|Hunter-As-Bait Gambit|Snarling Watchdog Retribution|Sleeping Dragon Awakens
 
 @@ TERRESTIAL
-&CLASS`TERRESTIAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT
+&CLASS`TERRESTIAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT EXPANDED
 &POOL`PERSONAL`MAX`TERRESTRIAL [u(cobj,pool)]=add(getpower(%0),u(FUN`WILLCHECK,%0),u(FUN`BREEDING,%0))
 &POOL`PERIPHERAL`MAX`TERRESTRIAL [u(cobj,pool)]=add(mul(4,getpower(%0)),u(FUN`WILLCHECK,%0),if(u(game_config,STORYTELLER,MAX_VIRTUES),10,lmath(add,elements(sort(iter(get(%0/D`VIRTUES),last(%i0,~),|)),3 4))),switch(u(FUN`BREEDING,%0),1,2,2,3,3,5,4,7,5,9,6,11,0))
 &POOL`EXPANDED`MAX`TERRESTRIAL [u(cobj,pool)]=u(FUN`EXTRA,%0,TERRESTRIAL,%1)
@@ -139,7 +139,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &TERRESTRIAL`EXPANDED`5 [u(cobj,pool)]=Elemental Engorgement Technique
 
 @@ SIDEREAL
-&CLASS`SIDEREAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT PARADOX
+&CLASS`SIDEREAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT PARADOX EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`SIDEREAL [u(cobj,pool)]=add(mul(2,getpower(%0)),u(FUN`WILLCHECK,%0))
 &POOL`PERIPHERAL`MAX`SIDEREAL [u(cobj,pool)]=add(mul(6,getpower(%0)),u(FUN`WILLCHECK,%0),u(FUN`VIRTUES,%0))
 &POOL`EXPANDED`MAX`SIDEREAL [u(cobj,pool)]=u(FUN`EXTRA,%0,SIDEREAL,%1)
@@ -158,7 +158,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &SIDEREAL`OVERDRIVE`10 [u(cobj,pool)]=Guarding the Weave|Portentous Omens Manifested|Tactic-Snatching Ingenuity|Mana Drips From Lotus Petals|Covert Shadows Woven|Horizon-Cresting Cavalry Rescue
 
 @@ ABYSSAL
-&CLASS`ABYSSAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER RESONANCE
+&CLASS`ABYSSAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER RESONANCE EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`ABYSSAL [u(cobj,pool)]=u(POOL`PERSONAL`MAX`SOLAR,%0)
 &POOL`PERIPHERAL`MAX`ABYSSAL [u(cobj,pool)]=u(POOL`PERIPHERAL`MAX`SOLAR,%0)
 &POOL`EXPANDED`MAX`ABYSSAL [u(cobj,pool)]=u(FUN`EXTRA,%0,ABYSSAL,%1)
@@ -180,7 +180,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &ABYSSAL`OVERDRIVE`15 [u(cobj,pool)]=Bright Days Painted Black
 
 @@ INFERNAL
-&CLASS`INFERNAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT
+&CLASS`INFERNAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER LIMIT EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`INFERNAL [u(cobj,pool)]=u(POOL`PERSONAL`MAX`SOLAR,%0)
 &POOL`PERIPHERAL`MAX`INFERNAL [u(cobj,pool)]=u(POOL`PERIPHERAL`MAX`SOLAR,%0)
 &POOL`EXPANDED`MAX`INFERNAL [u(cobj,pool)]=u(FUN`EXTRA,%0,INFERNAL,%1)
@@ -195,7 +195,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &INFERNAL`OVERDRIVE`20 [u(cobj,pool)]=Song of the Depths
 
 @@ ALCHEMICAL
-&CLASS`ALCHEMICAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER CLARITY
+&CLASS`ALCHEMICAL [u(cobj,pool)]=PERSONAL PERIPHERAL WILLPOWER CLARITY EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`ALCHEMICAL [u(cobj,pool)]=add(mul(3,getpower(%0)),u(FUN`WILLCHECK,%0))
 &POOL`PERIPHERAL`MAX`ALCHEMICAL [u(cobj,pool)]=add(mul(5,getpower(%0)),mul(3,u(FUN`WILLCHECK,%0)),mul(2,if(u(game_config,STORYTELLER,MAX_VIRTUES),5,u(lmax,iter(get(%0/D`VIRTUES),last(%i0,~),|)))))
 &POOL`EXPANDED`MAX`ALCHEMICAL [u(cobj,pool)]=u(FUN`EXTRA,%0,ALCHEMICAL,%1)
@@ -249,7 +249,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`PERSONAL`MAX`MORTAL [u(cobj,pool)]=if(cor(u(getstat,%0,D`MERITS,Awakened Essence),u(GAME_CONFIG,STORYTELLER,AWAKENED_ESSENCE)),mul(10,getpower(%0)),0)
 
 @@ Spirit
-&CLASS`SPIRIT [u(cobj,pool)]=PERSONAL WILLPOWER
+&CLASS`SPIRIT [u(cobj,pool)]=PERSONAL WILLPOWER EXPANDED
 &POOL`PERSONAL`MAX`SPIRIT [u(cobj,pool)]=add(mul(10,getpower(%0)),mul(5,u(FUN`WILLCHECK,%0)))
 &POOL`EXPANDED`MAX`SPIRIT [u(cobj,pool)]=u(FUN`EXTRA,%0,SPIRIT,%1)
 &POOL`OVERDRIVE`MAX`SPIRIT [u(cobj,pool)]=u(FUN`EXTRA,%0,SPIRIT,%1)
@@ -259,7 +259,7 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &SPIRIT`EXPANDED`10 [u(cobj,pool)]=Essence Plethora
 
 @@ GOD-BLOODED
-&CLASS`GOD-BLOODED [u(cobj,pool)]=PERSONAL WILLPOWER
+&CLASS`GOD-BLOODED [u(cobj,pool)]=PERSONAL WILLPOWER EXPANDED OVERDRIVE
 &POOL`PERSONAL`MAX`GOD-BLOODED [u(cobj,pool)]=localize(add(switch(1,t(match(DIVINE DEMON GHOST,ucstr(u(setr,caste,u(getstat,%0,D`INFO,CASTE))))),u(FUN`PERSONAL`MAX`GOD-BLOODED`SPIRIT,%0),strmatch(%q<caste>,FAE),u(FUN`PERSONAL`MAX`GOD-BLOODED`FAE,%0),t(match(SOLAR LUNAR SIDEREAL ABYSSAL INFERNAL,%q<caste>)),u(FUN`PERSONAL`MAX`GOD-BLOODED`HALF-CASTE,%0)),switch(u(getstat,%0,D`POSITIVE_MUTATIONS,Essence Abundance),1,3,2,6,4,12,6,16,0)))
 &POOL`PERSONAL`MAX`GOD-BLOODED`SPIRIT [u(cobj,pool)]=add(mul(5,getpower(%0)),u(FUN`VIRTUES,%0),mul(2,u(FUN`WILLCHECK,%0)))
 &POOL`PERSONAL`MAX`GOD-BLOODED`FAE [u(cobj,pool)]=mul(getpower(%0),8)
@@ -269,23 +269,23 @@ th u(newconf,CONFIG,STORYTELLER,ALWAYS_AWAKENED,0,Mortals have Awakened Essence
 &POOL`OVERDRIVE`MAX`GOD-BLOODED [u(cobj,pool)]=localize(switch(1,t(match(DIVINE DEMON GHOST,ucstr(u(setr,caste,u(getstat,%0,D`INFO,CASTE))))),u(POOL`%1`MAX`SPIRIT,%0,%1),strmatch(%q<caste>,FAE),u(POOL`%1`MAX`RAKSHA,%0,%1),t(match(SOLAR LUNAR SIDEREAL ABYSSAL INFERNAL,%q<caste>)),u(POOL`%1`MAX`%q<caste>,%0,%1)))
 
 @@ Raksha
-&CLASS`RAKSHA [u(cobj,pool)]=PERSONAL WILLPOWER GOSSAMER
-&POOL`PERSONAL`MAX`RAKSHA [u(cobj,pool)]=add(mul(10,getpower(%0)))
+&CLASS`RAKSHA [u(cobj,pool)]=PERSONAL WILLPOWER GOSSAMER EXPANDED
+&POOL`PERSONAL`MAX`RAKSHA [u(cobj,pool)]=add(mul(10,getpower(%0)),0)
 &POOL`EXPANDED`MAX`RAKSHA [u(cobj,pool)]=u(FUN`EXTRA,%0,RAKSHA,%1)
 
 &POOL`GOSSAMER [u(cobj,pool)]=Pool
 &POOL`GOSSAMER`UNITNAME [u(cobj,pool)]=Strands
 &POOL`GOSSAMER`UNITTYPE [u(cobj,pool)]=Gossamer
-&POOL`GOSSAMER`MAX [u(cobj,pool)]=10
+&POOL`GOSSAMER`MAX [u(cobj,pool)]=switch(xget(%0,first(u(wildgrepi,%0,D`BACKGROUNDS`*,GOSSAMER))`RANK),1,1,2,3,3,6,4,10,5,20,0)
 &POOL`GOSSAMER`ORDER [u(cobj,pool)]=80
 &POOL`GOSSAMER`INIT [u(cobj,pool)]=0
-&POOL`GOSSAMER`HAVE [u(cobj,pool)]=u(getstat,%0,D`BACKGROUNDS,Gossamer)
+&POOL`GOSSAMER`HAVE [u(cobj,pool)]=t(u(wildgrepi,%0,D`BACKGROUNDS`*,GOSSAMER))
 &POOL`GOSSAMER`OPTIONS [u(cobj,pool)]=SPEND GAIN COMMIT
 
 &POOL`STASIS [u(cobj,pool)]=Track
 &POOL`STASIS`UNITNAME [u(cobj,pool)]=Points
 &POOL`STASIS`UNITTYPE [u(cobj,pool)]=Stasis
-&POOL`STASIS`MAX [u(cobj,pool)]=switch(u(getstat,%0,D`BACKGROUNDS,Gossamer),1,1,2,3,3,6,4,10,5,20,0)
+&POOL`STASIS`MAX [u(cobj,pool)]=10
 &POOL`STASIS`ORDER [u(cobj,pool)]=160
 &POOL`STASIS`INIT [u(cobj,pool)]=0
 &POOL`STASIS`OPTIONS [u(cobj,pool)]=SPEND GAIN COMMIT
diff --git a/unfinished/storyteller/exalted25/Project System - EX-PROJ.txt b/unfinished/storyteller/exalted25/Project System - EX-PROJ.txt
deleted file mode 100644
index bbac5b1..0000000
--- a/unfinished/storyteller/exalted25/Project System - EX-PROJ.txt	
+++ /dev/null
@@ -1,94 +0,0 @@
-@select/inline isdbref(u(ex-proj))=0,{@tel create(Project System <EX-PROJ>)=config(master_room)}
-&ex-proj u(coi)=locate(config(master_room),Project System <EX-PROJ>,TXxi)
-@parent u(ex-proj)=u(coi)
-@set u(ex-proj)=WIZARD !NO_COMMAND
-
-&CMD`+PROJECT u(ex-proj)=$^(?s)(?\:\+)?project(?\:/(\S+)?)?(?\: +(.+?))?(?\:=(.*))?$:@attach u(ccs)/INC`PARTIAL=%1,setunion(get(u(ex-proj)/VAR`PLAYFLAGS),if(isadmin(%#),get(u(ex-proj)/VAR`ADMINFLAGS)),|,|),|,CRM,switch,switch;@attach u(ex-proj)/INC`[strfirstof(%q<switch>,MAIN)]=%2,%3
-@set u(ex-proj)/CMD`+PROJECT=regexp
-
-&VAR`PLAYFLAGS u(ex-proj)=NEW|DESC|OLD|LOG|FINISH|UNFINISH|GET|RENAME|DELETE|ADDPARTNER|REMPARTNER|DURATION|START|STOP|ADD|TIMEDIV
-&VAR`ADMINFLAGS u(ex-proj)=APPROVE|UNAPPROVE
-
-&INC`TARGET u(ex-proj)=@select/inline strmatch(%0,*/*)=1,{@attach u(ccs)/INC`CHECKPC=before(%0,/),1,INFO;th u(setq,target,%q<t1>)},0,{th u(setq,target,%#)}
-
-&INC`FILENAME u(ex-proj)=th u(setq,filename,if(strmatch(%0,*/*),after(%0,/),%0))
-
-&FUN`LIST u(ex-proj)=sort(iter(if(or(isadmin(%1),strmatch(objid(%0),objid(%1))),u(lattr,%0/D`PROJECT`*),filterbool(#lambda/match(get(%0/\%0`PARTNERS),objid(%1)),u(lattr,%0/D`PROJECT`*))),last(%i0,`),%b,|),i,|,|)
-&FUN`LIST`UNFINISHED u(ex-proj)=filterbool(#lambda/not(getstat(%0/D`PROJECT`\%0`FLAGS,Finished)),u(FUN`LIST,%0,%1),|,|)
-&FUN`LIST`FINISHED u(ex-proj)=filterbool(#lambda/getstat(%0/D`PROJECT`\%0`FLAGS,Finished),u(FUN`LIST,%0,%1),|,|)
-
-&INC`APPROVE u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Info name empty.;@dolist/delimit | %q<filename>={@attach u(ex-proj)/INC`PARTIALMATCH=%i0;@stop getstat(%q<target>/%q<attr>`FLAGS,Approved)=@pemit %#=msghead(PROJECT) ERROR: Project %i0 is already approved!;th setstat(%q<target>/%q<attr>`FLAGS,Approved,1);th setstat(%q<target>/%q<attr>`FLAGS,ApprovedBy,%#);th setstat(%q<target>/%q<attr>`FLAGS,ApprovedOn,secs());@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You approved your %i0 Project},{@pemit %#=msghead(PROJECT) You approved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!;@pemit %q<target>=msghead(PROJECT) %n approved your %i0 '[get(%q<target>/%q<attr>)]' Project!};@select/inline t(v(VAR`ANNOUNCEAPPROVE))=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=ansi(h,PROJECT:) %n just approved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n approved [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project!;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] approved the Project!}}
-
-&INC`UNAPPROVE u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Info name empty.;@dolist/delimit | %q<filename>={@attach u(ex-proj)/INC`PARTIALMATCH=%i0;@check getstat(%q<target>/%q<attr>`FLAGS,Approved)=@pemit %#=msghead(PROJECT) ERROR: Project %i0 is not approved!;th setstat(%q<target>/%q<attr>`FLAGS,Approved,0);th delstat(%q<target>/%q<attr>`FLAGS,ApprovedBy);th delstat(%q<target>/%q<attr>`FLAGS,ApprovedOn);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You approved your %i0 Project},{@pemit %#=msghead(PROJECT) You unapproved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!;@pemit %q<target>=msghead(PROJECT) %n unapproved your %i0 '[get(%q<target>/%q<attr>)]' Project!};@select/inline t(v(VAR`ANNOUNCEAPPROVE))=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=ansi(h,PROJECT:) %n just unapproved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n unapproved [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project!;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] unapproved the Project!}}
-
-&INC`FINISH u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Info name empty.;@dolist/delimit | %q<filename>={@attach u(ex-proj)/INC`PARTIALMATCH=%i0;@stop getstat(%q<target>/%q<attr>`FLAGS,Approved)=@pemit %#=msghead(PROJECT) ERROR: Project %i0 is already approved!;th setstat(%q<target>/%q<attr>`FLAGS,Approved,1);th setstat(%q<target>/%q<attr>`FLAGS,ApprovedBy,%#);th setstat(%q<target>/%q<attr>`FLAGS,ApprovedOn,secs());@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You approved your %i0 Project},{@pemit %#=msghead(PROJECT) You approved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!;@pemit %q<target>=msghead(PROJECT) %n approved your %i0 '[get(%q<target>/%q<attr>)]' Project!};@select/inline t(v(VAR`ANNOUNCEAPPROVE))=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=ansi(h,PROJECT:) %n just approved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n approved [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project!;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] approved the Project!}}
-
-&INC`UNFINISH u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Info name empty.;@dolist/delimit | %q<filename>={@attach u(ex-proj)/INC`PARTIALMATCH=%i0;@check getstat(%q<target>/%q<attr>`FLAGS,Approved)=@pemit %#=msghead(PROJECT) ERROR: Project %i0 is not approved!;th setstat(%q<target>/%q<attr>`FLAGS,Approved,0);th delstat(%q<target>/%q<attr>`FLAGS,ApprovedBy);th delstat(%q<target>/%q<attr>`FLAGS,ApprovedOn);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You approved your %i0 Project},{@pemit %#=msghead(PROJECT) You unapproved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!;@pemit %q<target>=msghead(PROJECT) %n unapproved your %i0 '[get(%q<target>/%q<attr>)]' Project!};@select/inline t(v(VAR`ANNOUNCEAPPROVE))=1,{@nscemit/noisy v(VAR`ANNOUNCECHANNEL)=ansi(h,PROJECT:) %n just unapproved [name(%q<target>)]'s %i0 '[get(%q<target>/%q<attr>)]' Project!};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n unapproved [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project!;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] unapproved the Project!}}
-
-&VAR`ANNOUNCEAPPROVE u(ex-proj)=1
-&VAR`ANNOUNCECHANNEL u(ex-proj)=Staff Reports
-
-&INC`DELETE u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@stop getstat(%q<target>/%q<attr>`FLAGS,Approved)=@pemit %#=ERROR: Approved Infos must be unapproved by admin first.;@wipe %q<target>/%q<attr>;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You deleted your %i0 Project},{@pemit %#=msghead(PROJECT) You deleted [name(%q<target>)]'s %i0 Project!;@pemit %q<target>=msghead(PROJECT) %n deleted your %i0 Project!}
-
-&INC`PARTIALMATCH u(ex-proj)=@check strlen(%0)=@pemit %#=msghead(PROJECT) ERROR: Info name empty.;@attach u(ccs)/INC`PARTIAL=%0,u(u(ex-proj)/FUN`LIST,%q<target>,%#,1),|,INFO,filename,filename;th u(setq,attr,D`PROJECT`%q<filename>)
-
-&INC`MAIN u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`LIST=%0,%1,UNFINISHED
-&INC`OLD u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`LIST=%0,%1,FINISHED
-
-&INC`LIST u(ex-proj)=@attach u(ex-proj)/INC`FILENAME;@select/inline gt(strlen(%q<filename>),0)=1,{@attach u(ex-proj)/INC`LIST`CONTENTS},0,{@attach u(ex-proj)/INC`LIST`PROJECTS}
-
-&INC`LIST`PROJECTS u(ex-proj)=@pemit %#=header(name(%q<target>)'s Projects)%R[align(4 17 17 17 13 5,ID,NAME,DURATION,REMAINING,RL FINISH,COM)];@dolist/inline/delimit | [u(FUN`LIST`%2,%q<target>,%#)]={@pemit %#=align(4 17 17 17 13 5,pueblize(rjust(%i0,3).,u(setr,comm,+project [if(strmatch(%#,%q<target>),,name(%q<target>)/)]%i0)),pueblize(left(get(%q<target>/D`PROJECT`%i0),17),%q<comm>),if(u(setr,fin,or(and(eq(0,get(%q<target>/D`PROJECT`%i0`REMAINING)),get(%q<target>/D`PROJECT`%i0`DURATION)),getstat(%q<target>/D`PROJECT`%i0`FLAGS,Finished))),Finished!,u(FUN`DISPTIME,get(%q<target>/D`PROJECT`%i0`DURATION))),if(%q<fin>,Finished!,u(FUN`DISPTIME,get(%q<target>/D`PROJECT`%i0`REMAINING)))[if(strfirstof(getstat(%q<target>/D`PROJECT`%i0`FLAGS,Active),1),,-Halt)],if(%q<fin>,Finished!,if(get(%q<target>/D`PROJECT`%i0`REMAINING),timefmt($I:$M$p $m/$d,add(secs(),div(get(%q<target>/D`PROJECT`%i0`REMAINING),3))))),nattr(%q<target>/D`PROJECT`%i0`COMMENT`*))};@pemit %#=header(Current Time: [timefmt($I:$M$p $m/$d,secs())])
-
-&INC`LIST`CONTENTS u(ex-proj)=@attach u(ex-proj)/INC`PARTIALMATCH=%q<filename>;@pemit %#=header(name(%q<target>)'s [get(%q<target>/%q<attr>)] Project);@pemit %#=get(%q<target>/%q<attr>`DESC);@pemit %#=subheader()%R[ansi(h,Last set by:)] [name(getstat(%q<target>/%q<attr>`FLAGS,SetBy))] [ansi(h,On:)] [convsecs(getstat(%q<target>/%q<attr>`FLAGS,SetOn))];@select/inline gt(getstat(%q<target>/%q<attr>`FLAGS,Approved),0)=1,{@pemit %#=ansi(h,Approved by:) [name(getstat(%q<target>/%q<attr>`FLAGS,ApprovedBy))] [ansi(h,On:)] [convsecs(getstat(%q<target>/%q<attr>`FLAGS,ApprovedOn))]};@select/inline hasattrval(%q<target>/%q<attr>`PARTNERS)=1,{@pemit %#=ansi(h,Partners:) [itemize(iter(get(%q<target>/%q<attr>`PARTNERS),name(%i0),%b,|),|,and,\,)]};@dolist/inline sortkey(#lambda/last(\%0,`),u(lattr,%q<target>/%q<attr>`COMMENT`*))={@pemit %#=subheader(name(get(%q<target>/%i0`BY)) commented on [convsecs(get(%q<target>/%i0`ON))]);@pemit %#=get(%q<target>/%i0)};@pemit %#=header()
-
-&INC`MAKELOG u(ex-proj)=@check isdbref(%0);@check isdbref(%1);@check hasattr(%0/D`PROJECT`%2);@check strlen(%3);&[u(setr,log,D`PROJECT`%2`LOG`[nextslot(%0,D`PROJECT`%2`LOG)])] %0=secs();&%q<log>`BY %0=objid(%1);&%q<log>`CONTENTS %0=%3
-@@ %0 - Project holder. %1 - enactor. %2 - Project slot. %3 - message.
-
-&INC`LOG u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@attach u(ex-proj)/INC`PARTIALMATCH=%q<filename>;@pemit %#=header(Log for [name(%q<target>)] Project %q<filename>: [get(%q<target>/D`PROJECT`%q<filename>)]);@dolist/inline sortkey(#lambda/last(\%0,`),u(lattr,%q<target>/D`PROJECT`%q<filename>`LOG`*))={@pemit %#=subheader(By [name(get(%q<target>/%i0`BY))] on [convsecs(get(%q<target>/%i0))]);@pemit %#=get(%q<target>/%i0`CONTENTS)};@pemit %#=header()
-
-&INC`NEW u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Project name empty.;@check or(isadmin(%#),strmatch(%q<target>,%#))=@pemit %#=msghead(PROJECT) ERROR: You may not change another's Projects.;@stop gt(strlen(%q<filename>),18)=@pemit %#=ERROR: Info names are limited to 18 characters or less.;@stop regmatchi(%q<filename>,\\|)=@pemit %#=ERROR: Pipe symbols are not allowed in info names.;@stop regmatchi(%q<filename>,\/)=@pemit %#=ERROR: Slashes symbols are not allowed in info names.;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: Text field empty.;&[u(setr,attr,D`PROJECT`[u(setr,newnum,add(1,default(%q<target>/D`PROJECT,0)))])] %q<target>=%q<filename>;&%q<attr>`DESC %q<target>=%1;&D`PROJECT %q<target>=%q<newnum>;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You create the [last(%q<attr>,`)] '%q<filename>'},{@pemit %#=msghead(PROJECT) You create [last(%q<attr>,`)] '%q<filename>' for [name(%q<target>)]!;@pemit %q<target>=msghead(PROJECT) %n created the [last(%q<attr>,`)] '%q<filename>' Project for you};th setstat(%q<target>/%q<attr>`FLAGS,SetBy,objid(%#));th setstat(%q<target>/%q<attr>`FLAGS,SetOn,secs());@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,last(%q<attr>,`),{[name(%#)] created the Project: %0-%R%1}
-
-&INC`DESC u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;&%q<attr>`DESC %q<target>=%1;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You change your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project Desc!},{@pemit %#=msghead(PROJECT) You change [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project desc!;@pemit %q<target>=msghead(PROJECT) %n changed your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project desc!};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n changed [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project's Desc!;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] changed the Project's Desc to:%R%1}
-
-&INC`VISIBLE u(ex-proj)=@check words(u(setr,players,lsearch(all,eplayer,\[words(wildgrepi(##,D`PROJECT`*`PARTNERS,*%:*))\])))=@pemit %#=msghead(PROJECT) ERROR: No Players have partnered Projects with you.;@pemit %#=header(Partnered Projects Infos);@pemit %#=u(table,iter(%q<players>,left(pueblize(name(%i0),+project [name(%i0)]),22)\([words(wildgrepi(%i0,D`PROJECT`*`PARTNERS,*%:*))]\)),25,78,|);@pemit %#=header()
-
-&INC`RENAME u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@stop gt(strlen(%1),18)=@pemit %#=ERROR: Info names are limited to 18 characters or less.;@stop regmatchi(%1,\\|)=@pemit %#=ERROR: Pipe symbols are not allowed in info names.;@stop regmatchi(%1,\/)=@pemit %#=ERROR: Slashes symbols are not allowed in info names.;&%q<attr> %q<target>=%1;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You change your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project Name to: %1},{@pemit %#=msghead(PROJECT) You change [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project name to: %1;@pemit %q<target>=msghead(PROJECT) %n changed your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project name to: %1};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n changed [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project to: %1;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] changed the Project's name to:%R%1}
-
-&INC`START u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@stop strfirstof(getstat(%q<target>/D`PROJECT`%q<filename>`FLAGS,Active),1)=@pemit %#=msghead(PROJECT) ERROR: That Project is already active!;th setstat(%q<target>/D`PROJECT`%q<filename>`FLAGS,Active,1);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You activate your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project.},{@pemit %#=msghead(PROJECT) You activate [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@pemit %q<target>=msghead(PROJECT) %n activated your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n activated [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] activated the Project}
-
-&INC`STOP u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@check strfirstof(getstat(%q<target>/D`PROJECT`%q<filename>`FLAGS,Active),1)=@pemit %#=msghead(PROJECT) ERROR: That Project is not active!;th setstat(%q<target>/D`PROJECT`%q<filename>`FLAGS,Active,0);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You pause your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project.},{@pemit %#=msghead(PROJECT) You pause [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@pemit %q<target>=msghead(PROJECT) %n paused your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n paused [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] paused the Project}
-
-&INC`DURATION u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: Duration field empty.;@check or(strmatch(%1,X),valnum(u(FUN`EVALTIME,%1)))=@pemit %#=msghead(PROJECT) ERROR: Duration must be in EVALTIME or X for Indefinite!;th u(setq,entry,);&%q<attr>`DURATION %q<target>=u(setr,time,if(strmatch(%1,X),X,u(FUN`EVALTIME,%1)));&%q<attr>`REMAINING %q<target>=%q<time>;th setstat(%q<target>/%q<attr>`FLAGS,Reported,0);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You schedule your %q<filename> '[get(%q<target>/%q<attr>)]' Project Duration to: [u(FUN`DISPTIME,u(FUN`EVALTIME,%1))]},{@pemit %#=msghead(PROJECT) You change [name(%q<target>)]'s %q<filename> '[get(%q<target>/%q<attr>)]' Project Duration to: [u(FUN`DISPTIME,u(FUN`EVALTIME,%1))];@pemit %q<target>=msghead(PROJECT) %n changed your %q<filename> '[get(%q<target>/%q<attr>)]' Project Duration to: [u(FUN`DISPTIME,u(FUN`EVALTIME,%1))]};@pemit/list get(%q<target>/%q<attr>`PARTNERS)=msghead(PROJECT) %n changed the Duration of [name(%q<target>)]'s %q<filename> '[get(%q<target>/%q<attr>)]' Project to: [u(FUN`DISPTIME,u(FUN`EVALTIME,%1))];@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] changed the Project's Duration to: [u(FUN`DISPTIME,u(FUN`EVALTIME,%1))]}
-
-&INC`PREPARE u(ex-proj)=@attach u(ex-proj)/INC`TARGET;@attach u(ex-proj)/INC`FILENAME;@attach u(ex-proj)/INC`PARTIALMATCH=%q<filename>;@check strlen(%q<filename>)=@pemit %#=msghead(PROJECT) ERROR: Project name empty.;@check or(isadmin(%#),strmatch(%q<target>,%#),%0)=@pemit %#=msghead(PROJECT) ERROR: You may not change another's Projects.;@check or(%2,isadmin(%#),not(getstat(%q<target>/%q<attr>`FLAGS,Approved)))=@pemit %#=msghead(PROJECT) ERROR: That Project may not be changed by you.
-
-&INC`ADD u(ex-proj)=@attach u(ex-proj)/INC`PREPARE=%0,%1,1;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: Comment field empty.;&[u(setr,attr,D`PROJECT`%q<filename>`COMMENT`[nextslot(D`PROJECT`%q<filename>`COMMENT)])] %q<target>=%1;&%q<attr>`ON %q<target>=secs();&%q<attr>`BY %q<target>=%:;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You added a comment to your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project},{@pemit %#=msghead(PROJECT) You add a comment to [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@pemit %q<target>=msghead(PROJECT) %n added a comment to your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project};@pemit/list setdiff(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%:)=msghead(PROJECT) %n added a comment to [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] added a comment: %1}
-
-&INC`ADDPARTNER u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: Name field empty.;@attach u(ccs)/INC`CHECKPC=%1,1,PROJECT;@stop match(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%q<t1objid>)=@pemit %#=msghead(PROJECT) ERROR: [subj(%q<t1>)] is already a Project partner!;&D`PROJECT`%q<filename>`PARTNERS %q<target>=filterbool(#lambda/isobjid(\%0),setunion(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%q<t1objid>));@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You added a partner to your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>},{@pemit %#=msghead(PROJECT) You add a partner to [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>;@pemit %q<target>=msghead(PROJECT) %n added a partner to your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n added a partner to [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] added a partner: %q<t1name>}
-
-&INC`REMPARTNER u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: Name field empty.;@attach u(ccs)/INC`CHECKPC=%1,1,PROJECT;@check match(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%q<t1objid>)=@pemit %#=msghead(PROJECT) ERROR: [subj(%q<t1>)] is not a Project partner!;@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You removed a partner from your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>},{@pemit %#=msghead(PROJECT) You remove a partner from [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>;@pemit %q<target>=msghead(PROJECT) %n removed a partner from your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>};@pemit/list get(%q<target>/D`PROJECT`%q<filename>`PARTNERS)=msghead(PROJECT) %n removed a partner from [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project: %q<t1name>;&D`PROJECT`%q<filename>`PARTNERS %q<target>=filterbool(#lambda/isobjid(\%0),setdiff(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%q<t1objid>));@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] added a partner: %q<t1name>}
-
-&INC`FINISH u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@stop getstat(%q<target>/%q<attr>`FLAGS,Finished)=@pemit %#=msghead(PROJECT) ERROR: That project is already finished!;th setstat(%q<target>/%q<attr>`FLAGS,Finished,1);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You finished your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project},{@pemit %#=msghead(PROJECT) You finished [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@pemit %q<target>=msghead(PROJECT) %n finished your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project};@pemit/list setdiff(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%:)=msghead(PROJECT) %n finished [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] finished the project.}
-
-&INC`UNFINISH u(ex-proj)=@attach u(ex-proj)/INC`PREPARE;@check getstat(%q<target>/%q<attr>`FLAGS,Finished)=@pemit %#=msghead(PROJECT) ERROR: That project is not finished!;th setstat(%q<target>/%q<attr>`FLAGS,Finished,0);@select/inline strmatch(%#,%q<target>)=1,{@pemit %#=msghead(PROJECT) You Unfinished your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project},{@pemit %#=msghead(PROJECT) You Unfinished [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@pemit %q<target>=msghead(PROJECT) %n Unfinished your %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project};@pemit/list setdiff(get(%q<target>/D`PROJECT`%q<filename>`PARTNERS),%:)=msghead(PROJECT) %n Unfinished [name(%q<target>)]'s %q<filename> '[get(%q<target>/D`PROJECT`%q<filename>)]' Project;@attach u(ex-proj)/INC`MAKELOG=%q<target>,%#,%q<filename>,{[name(%#)] Unfinished the project.}
-
-&INC`TIMEDIV u(ex-proj)=@check strlen(%0)=@pemit %#=msghead(PROJECT) No time entered to divide!;@check valnum(u(setr,time,u(FUN`EVALTIME,%0)))=@pemit %#=msghead(PROJECT) ERROR: Entered time must be in DURATION format!;@check strlen(%1)=@pemit %#=msghead(PROJECT) ERROR: No value entered to divide the duration by.;@check valnum(%1)=@pemit %#=msghead(PROJECT) ERROR: Divisor must be a whole, positive number.;@pemit %#=msghead(PROJECT) [u(FUN`DISPTIME,u(FUN`EVALTIME,%0))] Divided by %1: [u(FUN`DISPTIME,div(u(FUN`EVALTIME,%0),%1))]
-
-&FUN`EVALTIME u(ex-proj)=lmath(add,iter(%0,switch(%i0,*s,before(%i0,s),*m,mul(before(%i0,m),u(mi)),*h,mul(before(%i0,h),u(ho)),*d,mul(before(%i0,d),u(da)),*w,mul(before(%i0,w),u(we)),*mo,mul(before(%i0,mo),u(mo)),*se,mul(before(%i0,se),u(se)),*y,mul(before(%i0,y),u(ye)),0)))
-
-&FUN`DISPTIME u(ex-proj)=if(strmatch(%0,X),Indefinite,trim(if(u(setr,ye,div(u(setr,newsec,%0),u(ye))),%q<ye>ye [u(setq,newsec,sub(%0,mul(u(ye),%q<ye>)))])[if(and(%q<newsec>,u(setr,mo,div(%q<newsec>,u(mo)))),%q<mo>mo [u(setq,newsec,sub(%q<newsec>,mul(u(mo),%q<mo>)))])][if(and(%q<newsec>,u(setr,we,div(%q<newsec>,u(we)))),%q<we>w [u(setq,newsec,sub(%q<newsec>,mul(u(we),%q<we>)))])][if(and(%q<newsec>,u(setr,da,div(%q<newsec>,u(da)))),%q<da>d [u(setq,newsec,sub(%q<newsec>,mul(u(da),%q<da>)))])][if(and(%q<newsec>,u(setr,ho,div(%q<newsec>,u(ho)))),%q<ho>h [u(setq,newsec,sub(%q<newsec>,mul(u(ho),%q<ho>)))])][if(and(%q<newsec>,u(setr,mi,div(%q<newsec>,u(mi)))),%q<mi>m [u(setq,newsec,sub(%q<newsec>,mul(u(mi),%q<mi>)))])][if(%q<newsec>,%q<newsec>s)]))
-
-&YE u(ex-proj)=mul(u(da),425)
-&SE u(ex-proj)=mul(u(mo),3)
-&MO u(ex-proj)=mul(u(we),4)
-&WE u(ex-proj)=mul(u(da),7)
-&DA u(ex-proj)=mul(u(ho),25)
-&HO u(ex-proj)=mul(u(mi),60)
-&MI u(ex-proj)=60
-
-&TRG`TICKDOWN u(ex-proj)=@dolist lsearch(all,eplayer,\[and(approved(##),nattr(##/D`PROJECT`*))\])={@dolist/inline/nobreak filterbool(#lambda/and(not(strfirstof(getstat(%i0/\%0`FLAGS,Finished),0)),strfirstof(getstat(%i0/\%0`FLAGS,Active),1)),u(lattr,%i0/D`PROJECT`*))={&%i0`REMAINING %i1=bound(sub(get(%i1/%i0`REMAINING),%0),0);@trigger u(ex-proj)/TRG`CHECKFINISH=%i1,%i0}}
-
-&TRG`CHECKFINISH u(ex-proj)=@check get(%0/%1`DURATION);@stop get(%0/%1`REMAINING);@stop getstat(%0/%1`FLAGS,Reported);@pemit/list setunion(get(%0/%1`PARTNERS),%0)=msghead(PROJECT) [name(%0)]'s Project [last(%1,`)] '[default(%0/%1,Unset)]' has finished its Duration.[if(getstat(%0/%1`FLAGS,Approved),%BIt has been submitted for review!)];@attach u(ex-proj)/INC`MAKELOG=%0,%0,last(%1,`),{Project duration finished![if(getstat(%0/%1`FLAGS,Approved),%BIt has been submitted for review!)]};@select/inline t(getstat(%0/%1`FLAGS,Approved))=1,{@check isdbref(u(setr,bucket,locate(get(u(job)/vc),PROJ,TXxi)))=@nscemit/noisy Staff Reports=Project Bucket not found, cannot finish [name(%0)]'s pending Project [last(%0,`)] '[default(%0/%1,Unset)]';@trigger get(u(job)/va)/TRIG_CREATE=%0,%q<bucket>,strfirstof(getstat(u(rst)/PRIORITY,%q<category>),1),name(%0) - [last(%1,`)] '[default(%0/%1,Unset)]',The Project is ready for admin review.,iter(filterbool(#lambda/isobjid(\%0),setunion(objid(%0),get(%0/%1`PARTNERS))),num(%i0)),,};th setstat(%0/%1`FLAGS,Reported,1)
-
-
-
diff --git a/unfinished/storyteller/exalted3/Storyteller Roller System - ROLL.txt b/unfinished/storyteller/exalted25/Roll System Data - ROLL.txt
similarity index 72%
rename from unfinished/storyteller/exalted3/Storyteller Roller System - ROLL.txt
rename to unfinished/storyteller/exalted25/Roll System Data - ROLL.txt
index 2f8b67d..e5be6b1 100644
--- a/unfinished/storyteller/exalted3/Storyteller Roller System - ROLL.txt	
+++ b/unfinished/storyteller/exalted25/Roll System Data - ROLL.txt	
@@ -1,13 +1,14 @@
-&ROLL`INIT`TN u(srs)=7
-&ROLL`INIT`DBL u(srs)=10
-&ROLL`INIT`AG u(srs)=11
-&ROLL`INIT`RE u(srs)=
-&ROLL`INIT`BOTCHES u(srs)=1
+th u(newconf,CONFIG,ROLLER,TARGET_NUMBER,7,Target Number,POSINT)
+th u(newconf,CONFIG,ROLLER,DOUBLE_NUMBER,10,Double success numbers.,WORD)
+th u(newconf,CONFIG,ROLLER,AGAIN_NUMBER,11,Default #-Again.,POSINT)
+th u(newconf,CONFIG,ROLLER,REROLL_NUMBER,,Default Re-#.,POSINT)
+th u(newconf,CONFIG,ROLLER,BOTCHES,1,Enable botches?,BOOL)
+th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
+th u(newconf,CONFIG,ROLLER,CATEGORIES,ATTRIBUTES|ABILITIES|COLLEGES|GRACES|VIRTUES|PATHS|INFO,D`Attributes to stat search?,LIST)
 
-&ROLL`DYNAMICSTATS u(srs)=MARTIAL ARTS
-&ROLL`DYNAMICSTATS`MARTIAL_ARTS u(srs)=getstat(%0/D`ABILITIES,Martial Arts)
-
-&ROLL`CATEGORIES u(srs)=ATTRIBUTES|ABILITIES|STYLES|CRAFTS|INFO
+&ROLL`DYNAMICSTATS [u(cobj,roll)]=MARTIAL ARTS|ESSENCE
+&ROLL`DYNAMICSTATS`MARTIAL_ARTS [u(cobj,roll)]=u(getstat,%0,D`ABILITIES,Martial Arts)
+&ROLL`DYNAMICSTATS`ESSENCE [u(cobj,roll)]=getpower(%0)
 
 @@ ROLEPLAYING - +ROLL
 +help/addmain Roleplaying/+roll=[u(srs)]/HLP`+ROLL
diff --git a/unfinished/storyteller/exalted25/Sheet System Data - SHEET.txt b/unfinished/storyteller/exalted25/Sheet System Data - SHEET.txt
index 80b926c..8f20201 100644
--- a/unfinished/storyteller/exalted25/Sheet System Data - SHEET.txt	
+++ b/unfinished/storyteller/exalted25/Sheet System Data - SHEET.txt	
@@ -2,7 +2,7 @@
 
 &INC`EXTRA [u(cobj,sheet)]=@pemit %#=repeat(u(FUN`COLOR,%1,BORDER,-),0)%R%b%b%b[ansi(u(strfirstof,v(%1`ATTRNAME),n),--------------------<-)][ansi(u(strfirstof,v(%1`PSM),n),Merits)][ansi(u(strfirstof,v(%1`ATTRNAME),n),->----------------)][if(words(u(setr,merits,get(%0/D`MERITS)),|),%R%b%b%b- [iter(%q<merits>,ansi(u(strfirstof,v(%1`SKILLNAME),n),elements(%i0,1,~))[repeat(ansi(u(strfirstof,v(%1`SKILLLINE),n),_),sub(43,strlen(elements(%i0,1,~)),strlen(elements(%i0,2,~))))][ansi(u(strfirstof,v(%1`SKILLDOT),n),elements(%i0,2,~))],|,%R%b%b%b-%b )])]%r%r;@pemit %#=[ansi(u(strfirstof,v(%1`ATTRNAME),n),%b%b%b-----------------<-)][ansi(u(strfirstof,v(%1`PSM),n),Specialties)][ansi(u(strfirstof,v(%1`ATTRNAME),n),->--------------)][if(words(u(setr,specialties,get(%0/D`SPECIALTIES)),|),%R%b%b%b- [iter(%q<specialties>,ansi(u(strfirstof,v(%1`SKILLNAME),n),u(capnames,elements(%i0,1,~))\,%B[elements(%i0,2,~)])[repeat(ansi(u(strfirstof,v(%1`SKILLLINE),n),_),sub(41,strlen(elements(%i0,1,~)),strlen(elements(%i0,2,~)),strlen(elements(%i0,3,~))))][ansi(u(strfirstof,v(%1`SKILLDOT),n),elements(%i0,3,~))],|,%R%b%b%b-%b)])]%r%r;@pemit %#=[ansi(u(strfirstof,v(%1`ATTRNAME),n),%b%b%b--------------------<-)][ansi(u(strfirstof,v(%1`PSM),n),Notes)][ansi(u(strfirstof,v(%1`ATTRNAME),n),->-----------------)][if(words(u(setr,notes,u(lattr,%0/D`NOTES`*,|)),|),%R%b%b%b-[iter(%q<notes>,rjust(inum(0),2).%B[get(%0/%i0)],|,%R%b%b%b-)])][u(FUN`COLOR,%1,BORDER,)]%R[repeat(u(FUN`COLOR,%1,BORDER,-),0)]
 
-&INC`MAIN [u(cobj,sheet)]=@pemit %#=u(FUN`SHEETHEADER,%0,u(setr,class,getclass(%0)));@select/inline strlen(setunion(u(u(cobj,data)/FUN`RET`ATTRIBUTES,%0),setunion(get(%0/D`FAVORED`ATTRIBUTES),get(%0/D`SUPERNAL`ATTRIBUTES),|,|),|,|))=>0,{@pemit %#=u(FUN`ATTRIBUTES,%0,%q<class>)};@select/inline strlen(setunion(u(u(cobj,data)/FUN`RET`ABILITIES,%0),setunion(get(%0/D`FAVORED`ABILITIES),get(%0/D`SUPERNAL`ABILITIES),|,|),|,|))=>0,{@pemit %#=u(FUN`ABILITIES,%0,%q<class>)};@select/inline strlen(get(%0/D`SPECIALTIES))=>0,{@pemit %#=u(FUN`SPECIALTIES,%0,%q<class>)};@select/inline u(nattr,%0/D`WARFORM_MUTATIONS`*)=>0,{@pemit %#=u(FUN`WARFORM_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`RAGE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`RAGE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`POSITIVE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`POSITIVE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`NEGATIVE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`NEGATIVE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`BACKGROUNDS`*)=>0,{@pemit %#=u(FUN`BACKGROUNDS,%0,%q<class>)};@select/inline u(nattr,%0/D`MERITS`*)=>0,{@pemit %#=u(FUN`MERITS,%0,%q<class>)};@select/inline u(nattr,%0/D`FLAWS`*)=>0,{@pemit %#=u(FUN`FLAWS,%0,%q<class>)};@select/inline u(nattr,%0/D`PACTS`*)=>0,{@pemit %#=u(FUN`PACTS,%0,%q<class>)};@select/inline gstrlen(get(%0/D`GRACES))=>0,{@pemit %#=u(FUN`GRACES,%0,%q<class>)};@attach %!/INC`ADVANTAGES;@attach %!/INC`FOOTER
+&INC`MAIN [u(cobj,sheet)]=@pemit %#=u(FUN`SHEETHEADER,%0,u(setr,class,getclass(%0)));@select/inline strlen(setunion(u(u(cobj,data)/FUN`RET`ATTRIBUTES,%0),setunion(get(%0/D`FAVORED`ATTRIBUTES),get(%0/D`SUPERNAL`ATTRIBUTES),|,|),|,|))=>0,{@pemit %#=u(FUN`ATTRIBUTES,%0,%q<class>)};@select/inline strlen(setunion(u(u(cobj,data)/FUN`RET`ABILITIES,%0),setunion(get(%0/D`FAVORED`ABILITIES),get(%0/D`SUPERNAL`ABILITIES),|,|),|,|))=>0,{@pemit %#=u(FUN`ABILITIES,%0,%q<class>)};@select/inline strlen(get(%0/D`SPECIALTIES))=>0,{@pemit %#=u(FUN`SPECIALTIES,%0,%q<class>)};@select/inline u(nattr,%0/D`WARFORM_MUTATIONS`*)=>0,{@pemit %#=u(FUN`WARFORM_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`RAGE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`RAGE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`POSITIVE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`POSITIVE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`NEGATIVE_MUTATIONS`*)=>0,{@pemit %#=u(FUN`NEGATIVE_MUTATIONS,%0,%q<class>)};@select/inline u(nattr,%0/D`BACKGROUNDS`*)=>0,{@pemit %#=u(FUN`BACKGROUNDS,%0,%q<class>)};@select/inline u(nattr,%0/D`MERITS`*)=>0,{@pemit %#=u(FUN`MERITS,%0,%q<class>)};@select/inline u(nattr,%0/D`FLAWS`*)=>0,{@pemit %#=u(FUN`FLAWS,%0,%q<class>)};@select/inline u(nattr,%0/D`PACTS`*)=>0,{@pemit %#=u(FUN`PACTS,%0,%q<class>)};@select/inline strlen(get(%0/D`GRACES))=>0,{@pemit %#=u(FUN`GRACES,%0,%q<class>)};@attach %!/INC`ADVANTAGES;@attach %!/INC`FOOTER
 
 @@ @pemit %#=u(FUN`ADVANTAGES`%q<class>,%0,%q<class>);@pemit %#=u(FUN`OTHER,%0,%q<class>);@pemit %#=u(FUN`FOOTER,%0,%q<class>)
 
@@ -14,11 +14,11 @@
 
 &FUN`INFOCOLUMN [u(cobj,sheet)]=localize(u(setq,colwidth,u(lmax,iter(%2,strlen(elements(%i0,2,~)),|,%b)))[iter(%2,rjust(u(FUN`COLOR,%1,TEXTHEAD,elements(%i0,2,~)),%q<colwidth>)[u(FUN`COLOR,%1,COLON,:)]%B[u(FUN`COLOR,%1,TEXTFIELD,u(capnames,u(strfirstof,switch(elements(%i0,1,~),NAME,u(moniker,%0),u(getstat,%0,D`INFO,elements(%i0,1,~))),elements(%i0,3,~))))],|,%R)])
 
-&FUN`SPLATINFO`SOLAR [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A,POWER~Essence~1|VIRTUE FLAW~Virtue Flaw~None)
-&FUN`SPLATINFO`ABYSSAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|DOOM~Doom~None,POWER~Essence~1|LIEGE~Liege~None)
-&FUN`SPLATINFO`LUNAR [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|VIRTUE FLAW~Virtue Flaw~None,POWER~Essence~1|TOTEM ANIMAL~Totem Animal~None)
-&FUN`SPLATINFO`SIDEREAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|VIRTUE FLAW~Virtue Flaw~None,POWER~Essence~1|FACTION~Faction~None)
-&FUN`SPLATINFO`TERRESTRIAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,CNAME~Name|ASTE~Caste~N/A|VIRTUE FLAW~Virtue Flaw~None,POWER~Essence~1|HOUSE~House~None)
+&FUN`SPLATINFO`SOLAR [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A,POWER~Essence~1|VIRTUEFLAW~Virtue Flaw~None)
+&FUN`SPLATINFO`ABYSSAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|[if(u(game_config,STORYTELLER,RESONANCE),FLAWEDVIRTUE~Flawed Virtue~None,DOOM~Doom~None)],POWER~Essence~1|LIEGE~Liege~None)
+&FUN`SPLATINFO`LUNAR [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|VIRTUEFLAW~Virtue Flaw~None,POWER~Essence~1|TOTEM ANIMAL~Totem Animal~None)
+&FUN`SPLATINFO`SIDEREAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|VIRTUEFLAW~Virtue Flaw~None,POWER~Essence~1|FACTION~Faction~None)
+&FUN`SPLATINFO`TERRESTRIAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,CNAME~Name|ASTE~Caste~N/A|VIRTUEFLAW~Virtue Flaw~None,POWER~Essence~1|HOUSE~House~None)
 &FUN`SPLATINFO`INFERNAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A|URGE~Urge~None,POWER~Essence~1|FAVORED YOZI~Favored Yozi~None)
 &FUN`SPLATINFO`ALCHEMICAL [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A,POWER~Essence~1|NATION~Nation~None)
 &FUN`SPLATINFO`RAKSHA [u(cobj,sheet)]=u(FUN`SPLATINFO`MAIN,%0,%1,NAME~Name|CASTE~Caste~N/A,POWER~Essence~1|LURE~Lure~None)
@@ -50,35 +50,34 @@
 &FUN`PATHS [u(cobj,sheet)]=u(FUN`DOTFORMAT,%0,%1,PATHS,36,P,aths,D`PATHS,u(u(cobj,data)/FUN`RET`PATHS,%0))
 &FUN`GRACES [u(cobj,sheet)]=u(FUN`DOTFORMAT,%0,%1,GRACES,23,G,races,D`GRACES,u(u(cobj,data)/FUN`RET`GRACES,%0))
 
-&FUN`SPECIALTIES [u(cobj,sheet)]=u(FUN`DOTFORMAT,%0,%1,SPECIALTIES,36,S,pecialties,D`SPECIALTIES,sort(u(u(cobj,data)/FUN`RET`SPECIALTIES,%0),i,|,|),,1)
+&FUN`SPECIALTIES [u(cobj,sheet)]=u(FUN`DOTFORMAT,%0,%1,SPECIALTIES,36,S,pecialties,D`SPECIALTIES,sort(u(u(cobj,data)/FUN`RET`SPECIALTIES,%0),i,|,|))
 
-&FUN`BACKGROUNDS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,BACKGROUNDS)
-&FUN`MERITS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,MERITS)
-&FUN`FLAWS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,FLAWS)
-&FUN`WARFORM_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,WARFORM_MUTATIONS)
-&FUN`RAGE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,RAGE_MUTATIONS)
-&FUN`NEGATIVE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,NEGATIVE_MUTATIONS)
-&FUN`POSITIVE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,POSITIVE_MUTATIONS)
+&FUN`BACKGROUNDS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,BACKGROUNDS,+backgrounds)
+&FUN`MERITS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,MERITS,+merits)
+&FUN`FLAWS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,FLAWS,+flaws)
+&FUN`WARFORM_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,WARFORM_MUTATIONS,+warmutations)
+&FUN`RAGE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,RAGE_MUTATIONS,+ragemutations)
+&FUN`NEGATIVE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,NEGATIVE_MUTATIONS,+negmutations)
+&FUN`POSITIVE_MUTATIONS [u(cobj,sheet)]=u(FUN`MERFORMAT,%0,%1,POSITIVE_MUTATIONS,+posmutations)
 
 &FUN`DOTFORMAT [u(cobj,sheet)]=localize(u(FUN`SECTIONHEADER,%0,%1,%4%5)%R[u(setq,sorted,if(strlen(%8),u(filter,DOTMATCH,%8,|,|,%7),%7))][if(%9,u(setq,first,u(filter,LTSTRLEN,%q<sorted>,|,|,%3),second,u(filter,GTESTRLEN,%q<sorted>,|,|,%3)),u(setq,first,%q<sorted>))][if(strlen(%q<first>),u(setq,firstsec,u(FUN`STATFORMAT,%0,%1,%2,%3,%6,%q<first>)))][if(strlen(%q<second>),u(setq,secondsec,u(FUN`STATFORMAT2,%0,%1,%2,sub(u(width,%#),2),%6,%q<second>)))][if(strlen(%q<firstsec>),%q<firstsec>)][if(strlen(%q<secondsec>),if(strlen(%q<firstsec>),%R%q<secondsec>,%q<secondsec>))])
 
 &FIL`DOTMATCH [u(cobj,sheet)]=t(match(%1,%0,|))
-&FIL`LTSTRLEN [u(Cobj,sheet)]=lt(strlen(%0),sub(%1,10))
-&FIL`GTESTRLEN [u(cobj,sheet)]=gte(strlen(%0),sub(%1,10))
+&FIL`LTSTRLEN [u(Cobj,sheet)]=lt(strlen(before(%0,~)),sub(%1,10))
+&FIL`GTESTRLEN [u(cobj,sheet)]=gte(strlen(%0),%1)
 
 &FUN`STATFORMAT [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,[u(setq,wid,floor(fdiv(mod(sub(u(width,%#),4),%3),floor(fdiv(sub(u(width,%#),4),%3)))))][u(table,iter(%5,u(FUN`STATFORMAT`STAT,%0,%1,%2,%i0,%3),|,|),add(%q<wid>,%3),sub(u(width,%#),4),|)])
 &FUN`STATFORMAT2 [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,trimpenn(iter(%5,u(FUN`STATFORMAT`STAT,%0,%1,%2,%i0,%3),|,%R),%R))
 
-&FUN`MERFORMAT [u(cobj,sheet)]=localize(u(FUN`SECTIONHEADER,%0,%1,u(capnames,%2))%R[u(setq,sorted,sortkey(#lambda/u(u(cobj,merit)/FUN`MERNAME,%0,\%0),u(lattr,%0/D`%2`*),i,%b,|))][u(setq,first,filterbool(#lambda/lt(strlen(u(u(cobj,merit)/FUN`MERNAME,%0,\%0)),sub(36,10)),%q<sorted>,|,|),second,filterbool(#lambda/gte(strlen(u(u(cobj,merit)/FUN`MERNAME,%0,\%0)),sub(36,10)),%q<sorted>,|,|))][if(strlen(%q<first>),u(setq,firstsec,u(FUN`MERFORMAT`2,%0,%1,%2,%q<first>)))][if(strlen(%q<second>),u(setq,secondsec,u(FUN`MERFORMAT`3,%0,%1,%2,%q<second>)))][if(strlen(%q<firstsec>),%q<firstsec>)][if(strlen(%q<secondsec>),if(strlen(%q<firstsec>),%R%q<secondsec>,%q<secondsec>))])
+&FUN`MERFORMAT [u(cobj,sheet)]=localize(u(FUN`SECTIONHEADER,%0,%1,u(capnames,%2))%R[u(setq,sorted,sortkey(#lambda/u(u(cobj,merit)/FUN`MERNAME,%0,\%0),u(lattr,%0/D`%2`*),i,%b,|))][u(setq,first,filterbool(#lambda/lt(strlen(u(u(cobj,merit)/FUN`MERNAME,%0,\%0)),sub(36,10)),%q<sorted>,|,|))][u(setq,second,filterbool(#lambda/gte(strlen(u(u(cobj,merit)/FUN`MERNAME,%0,\%0)),sub(36,10)),%q<sorted>,|,|))][if(strlen(%q<first>),u(setq,firstsec,u(FUN`MERFORMAT`2,%0,%1,%2,%q<first>,%3)))][if(strlen(%q<second>),u(setq,secondsec,u(FUN`MERFORMAT`3,%0,%1,%2,%q<second>,%3)))][if(strlen(%q<firstsec>),%q<firstsec>)][if(strlen(%q<secondsec>),if(strlen(%q<firstsec>),%R%q<secondsec>,%q<secondsec>))])
 
-&FUN`MERFORMAT`2 [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,u(table,iter(%3,u(FUN`STATFORMAT`STAT,%0,%1,%2,u(u(cobj,merit)/FUN`MERNAME,%0,%i0),36,get(%0/%i0`RANK),,1,1),|,|),36,sub(u(width,%#),4),|))
+&FUN`MERFORMAT`2 [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,u(table,iter(%3,u(FUN`STATFORMAT`STAT,%0,%1,%2,u(pueblize,u(u(cobj,merit)/FUN`MERNAME,%0,%i0),%4 [name(%0)]/[u(u(cobj,merit)/FUN`MERNAME,%0,%i0)]),36,get(%0/%i0`RANK),,1,1),|,|),36,sub(u(width,%#),4),|))
 
-&FUN`MERFORMAT`3 [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,trimpenn(iter(%3,u(FUN`STATFORMAT`STAT,%0,%1,%2,u(u(cobj,merit)/FUN`MERNAME,%0,%i0),sub(u(width,%#),4),get(%0/%i0`RANK),,1,1),|,%R),%R))
+&FUN`MERFORMAT`3 [u(cobj,sheet)]=u(FUN`BORDER,%0,%1,trimpenn(iter(%3,u(FUN`STATFORMAT`STAT,%0,%1,%2,u(pueblize,u(u(cobj,merit)/FUN`MERNAME,%0,%i0),%4 [name(%0)]/[u(u(cobj,merit)/FUN`MERNAME,%0,%i0)]),sub(u(width,%#),4),get(%0/%i0`RANK),,1,1),|,%R),%R))
 
 &FUN`STATFORMAT`STAT [u(cobj,sheet)]=localize([u(setq,namedisp,if(%9,left(%3,%9),%3))][u(setq,val,u(strfirstof,%5,u(getstat,%0,D`%2,%3)))][u(setq,bon,u(strfirstof,%6,getbonus(%0,%3)))][u(setq,totval,add(%q<val>,if(%7,%q<bon>)))][if(%7,u(setq,valdisp,if(%7,u(FUN`COLOR,%1,STATDOT,repeat(*,%q<val>)))),[u(setq,astlen,if(lte(%q<bon>,-1),bound(add(%q<val>,%q<bon>),0),%q<val>))][u(setq,minlen,if(lte(%q<bon>,-1),abs(%q<bon>)))][u(setq,pluslen,if(gte(%q<bon>,1),%q<bon>))][u(setq,valdisp,[if(%q<astlen>,u(FUN`COLOR,%1,STATDOT,repeat(*,%q<astlen>)))][if(%q<minlen>,u(FUN`COLOR,%1,STATDOT,repeat(-,%q<minlen>)))][if(%q<pluslen>,u(FUN`COLOR,%1,STATDOT,repeat(+,%q<pluslen>)))])])][if(%8,,u(setq,fav,t(match(get(%0/D`FAVORED`%2),switch(%3,MARTIAL ARTS,BRAWL,%3),|)),sup,t(match(get(%0/D`SUPERNAL`%2),%3,|))))][u(setq,statlen,strlen(%q<namedisp>))][if(lte(sub(%4,1,%q<statlen>,strlen(%q<valdisp>)),0),u(setq,valdisp,%q<totval>,dotlen,strlen(%q<totval>)),u(setq,dotlen,strlen(%q<valdisp>)))][u(setq,linelen,sub(%4,1,%q<dotlen>,%q<statlen>))][switch(1,%q<sup>,u(FUN`COLOR,%1,SUPMARK,+),%q<fav>,u(FUN`COLOR,%1,FAVMARK,+),%b)][u(FUN`COLOR,%1,STATNAME,u(capnames,%q<namedisp>))][if(gt(%q<linelen>,0),repeat(u(FUN`COLOR,%1,STATLINE,.),%q<linelen>))]%q<valdisp>)
 @@ %0 = Player. %1 = Splat. %2 = Attribute. %3 = Entry. %4 = Length. %5 = manual value. %6 = Manual bonus. %7 = Don't show bonus. %8 = No favoreds. %9 = Truncate.
 
-
 &INC`ADVANTAGES [u(cobj,sheet)]=@select/inline gt(strlen(get(%0/D`COLLEGES)),0)=1,{@pemit %#=u(FUN`COLLEGES,%0,%q<class>)};@select/inline gt(strlen(get(%0/D`PATHS)),0)=1,{@pemit %#=u(FUN`PATHS,%0,%q<class>)};@attach %!/INC`CHARMS;@attach %!/INC`MACHARMS;@attach %!/INC`SPELLS;@attach %!/INC`CHARM_SLOTS
 
 &INC`CHARMS [u(cobj,sheet)]=@dolist/inline u(filter,HASCHARMS,CHARMS`SOLAR CHARMS`LUNAR CHARMS`ABYSSAL CHARMS`ALCHEMICAL CHARMS`INFERNAL CHARMS`TERRESTRIAL CHARMS`JADEBORN CHARMS`RAKSHA CHARMS`SIDEREAL CHARMS`SPIRIT CHARMS`MORTAL CHARMS`GHOST,%b,%b,%0)={@pemit %#=u(FUN`CHARMHEADER,%0,%1,u(capnames,before(##,`))\, [u(capnames,after(##,`))]);@dolist/inline u(filter,HASATTRVAL,u(lattr,%0/D`%i0`*),%b,%b,%0)={@pemit %#=u(FUN`CHARMSUBHEADER,%0,%1,u(capnames,last(switch(v(game),PennMUSH,%i0,RhostMUSH,%d0),`)));@pemit %#=u(FUN`BORDER,%0,%1,u(FUN`WORDLIST,%0,get(%0/[switch(v(game),PennMUSH,%i0,RhostMUSH,%d0)])))}}
@@ -95,7 +94,9 @@
 
 &INC`GRACES [u(cobj,sheet)]=@dolist/inline u(filter,HASATTRVAL2,Graces,%b,%b,%0)={@pemit %#=u(FUN`DOTFORMAT,%0,%1,%i0,36,left(%i0,1),after(%i0,left(%i0,1)),D`%i0,sort(u(u(cobj,data)/FUN`RET`GRACES,%0),i,|,|),,1)}
 
-&FUN`WORDLIST [u(cobj,sheet)]=if(strlen(u(setr,short,u(table,sort(u(filter,LTESTRLEN,u(setr,capped,iter(u(renderwords,%1),%i0,|,|)),|,|,36),i,|,|),36,74,|))),%q<short>)[if(words(u(setr,toolong,u(filter,GTESTRLEN,%q<capped>,|,|,37)),|),if(strlen(%q<short>),%R)[iter(%q<toolong>,%i0,|,%R)])]
+&FUN`WORDLIST [u(cobj,sheet)]=if(strlen(u(setr,short,u(table,sort(u(filter,LTESTRLEN,u(setr,capped,iter(u(renderwords,%1),%i0,|,|)),|,|,36),i,|,|),36,sub(u(width,%#),4),|))),%q<short>)[if(words(u(setr,toolong,u(filter,GTESTRLEN,%q<capped>,|,|,37)),|),if(strlen(%q<short>),%R)[iter(%q<toolong>,%i0,|,%R)])]
+
+
 
 &RENDERWORDS [u(cobj,sheet)]=regeditalli(u(capnames,%0),~(\\d+),switch(u(setr,wordnum,$1),>1,%b%(%q<wordnum>%)))
 
@@ -121,7 +122,10 @@
 
 &FUN`FORMATPOOLS [u(cobj,sheet)]=iter(u(capnames,u(u(cobj,pool)/FUN`LISTPOOLS,%0,%1)),rjust(%i0: [rjust(u(u(cobj,pool)/FUN`CUR,%0,%i0),switch(%1,Pool,3,Channel,1,Track,2,3),0)]/[rjust(u(u(cobj,pool)/FUN`MAX,%0,%i0),switch(%1,Pool,3,Channel,1,Track,2,3),0)],switch(%1,Pool,21,Channel,19,Track,19,21)),|,%R)
 
-&FUN`FOOTER [u(cobj,sheet)]=u(FUN`COLOR,%1,BORDER,|----------------------------------------------------------------------------|)%R%B[u(FUN`COLOR,%1,BORDER,\\)]%B[ansi(u(strfirstof,v(%1`PSM),n),XP:)]%B[u(FUN`COLOR,%1,PSM,rjust(sub(u(setr,g,u(xp)/FUN`COUNT,%0,G)),u(xp)/FUN`COUNT,%0,S)),4,0))][u(FUN`COLOR,%1,BORDER,/)][u(FUN`COLOR,%1,PSM,rjust(%qg,4,0))][rjust(u(FUN`GETSERIES,%1),59)]%B[u(FUN`COLOR,%1,BORDER,/)]%R%B%B[u(FUN`COLOR,%1,BORDER,'------------------------------------------------------------------------')]
+&FUN`FOOTER [u(cobj,sheet)]=u(FUN`SECTIONHEADER,%0,%1,Advancement)%R[u(FUN`BORDER,%0,%1,u(table,iter(XP~Experience,after(%i0,~): [rjust(u(u(cobj,xp)/FUN`AVAILABLE,%0,before(%i0,~)),3,0)]/[rjust(u(u(cobj,xp)/FUN`GAINED,%0,before(%i0,~)),3,0)],|,|),36,sub(u(width,%#),4),|))]%R%B[u(FUN`COLOR,%1,BORDER,\\)][space(sub(u(width,%#),4))][u(FUN`COLOR,%1,BORDER,/)]%R%B%B[u(FUN`COLOR,%1,BORDER,')][center([u(FUN`COLOR,%1,BORDER,*)]%B[u(FUN`GETSERIES,%1)]%B[u(FUN`COLOR,%1,BORDER,*)],sub(u(width,%#),6),u(FUN`COLOR,%1,BORDER,-))][u(FUN`COLOR,%1,BORDER,')]
+
+
+
 
 &FUN`GETSERIES [u(cobj,sheet)]=switch(%0,SOLAR,ansi(hy,Solars):%B[ansi(hy,The Lawgivers)],ABYSSAL,ansi(hx,Abyssals):%B[ansi(hx,The Deathknights)],INFERNAL,ansi(hg,Infernals):%B[ansi(hg,The Green Sun Princes)],LUNAR,ansi(hc,Lunars):%B[ansi(hc,The Stewards)],SIDEREAL,ansi(hm,Sidereals):%B[ansi(hm,The Viziers)],TERRESTRIAL,ansi(hr,Terrestrials):%B[ansi(hr,The TERRESTRIAL)],ALCHEMICAL,ansi(c,Alchemicals):%B[ansi(c,The Champions)],JADEBORN,ansi(y,Jadeborn),RAKSHA,ansi(m,Raksha):%B[ansi(m,The Fair Folk)],MORTAL,Mortals:%BThe Heroes,GHOST,Ghosts,DRAGON-KING,Dragon-Kings,GOD-BLOODED,ansi(h,GOD-BLOODED):%B[ansi(h,The Children of the Mighty)],Exalted 2.5e)
 
diff --git a/unfinished/storyteller/exalted25/helpfiles.txt b/unfinished/storyteller/exalted25/helpfiles.txt
index ba7a882..8236543 100644
--- a/unfinished/storyteller/exalted25/helpfiles.txt
+++ b/unfinished/storyteller/exalted25/helpfiles.txt
@@ -2,9 +2,6 @@
 +help/addmain Roleplaying/+time=[u(help)]/HLP`+TIME
 &HLP`+TIME u(help)=align(5 [sub(width(%#),6)],,{[ansi(h,+time)] - Shows the current IC time.})
 
-@@ ROLEPLAYING - CRM
-+help/addmain Roleplaying/CRM=[ansi(hc,See Also:)] [pueblize(+help Groups,+help Groups)]%R%R[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crmsheet)] - Shows the Creation-Ruling Mandate sheet of the currently selected Group.})]
-
 @@ ROLEPLAYING - +INTIMACY
 +help/addmain Roleplaying/+intimacy=[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+intimacy)] - Lists current Motivation, Urge, and Intimacies.%R[ansi(h,+intimacy/gain <text>)] - Gain a new Intimacy.%R[ansi(h,+intimacy/lose <id>)] - Lose a specified Intimacy.%R[ansi(h,+intimacy/build <id>)] - Raise Intimacy Health by 1.%R[ansi(h,+intimacy/erode <id>)] - Erode Intimacy Health by 1. Removes at 0 Health.%R[ansi(h,+intimacy/motivation <text>)] - Sets your Motivation.%R[ansi(h,+intimacy/urge <text>)] - Sets your urge if applicable.})]
 
@@ -13,31 +10,14 @@
 @@ COMMUNITY - +CENSUS
 +help/addmain Community/+census=[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+census)] - Shows all approved players by Splat.%R[ansi(h,+census <splat>)] - Shows all players in a splat by Caste/Aspect/etc.})]
 
-@@ ROLEPLAYING - +POOLS
-+help/addmain Roleplaying/+pools=[ansi(h,+pools)]%RDisplays your current Pool information, including Commitments.%R%R[ansi(h,+burn <poolname>=<#>)]%RUses up some of a pool, aka subtracts from it. Used for spending Essence, clearing up Limit, etc.%R%R[ansi(h,+gain <poolname>=<#>)]%RRestores a Pool, aka adds to it. Used for refilling Essence, gaining Limit, etc.%R%R[ansi(h,+refresh)]%RRestores all Pools and Channels (willpower, virtues, etc) but leaves Tracks such as Limit alone.%R%R[ansi(h,+commit <poolname>/<#>=<reason>)]%RCommits a number of points for a given reason. Example: +commit Peripheral/5=Daiklave%RIf used on Tracks like Limit, Commits raise the minimum instead of lowering maximum- 2 points of Committed Limit mean you're always at least at 2/10, for instance.%R%R[ansi(h,+uncommit <pool>=<commit ID>)]%RRemoves a commitment. Use +pools to see which commitment slot to free up.%R%RNote: Pool names take partial matches!
-
 @@ ROLEPLAYING - +ROLL
 +help/addmain Roleplaying/+roll=[ansi(h,+roll\[/switches\] <stats to roll>)]%R[ansi(h,+droll\[/switches\] <stats to roll>)]%R%R+roll is for virtually any situation that involves rolling X amount of d10.%R%R<stats to roll> can be any Attribute, Ability, or Specialty (addressed by attribute or ability followed by a slash and then the text-- example, Melee/Swords), Willpower, Essence, and backgrounds such as Cult. It will also accept any whole numbers. Each entry can be seperated by a + or -.%R%RExample of a valid roll formula: +roll Dexterity + Melee + 10%R%RStat entries are not case sensitive, although they do support partial matches. Dex will be matched to Dexterity... however, int could be either Intelligence or Integrity, and it will pick the first its matching algorithm finds, so be careful to enter enough to not be vague.%R%R+droll is the same as +roll, though it does not count 10s as succeses. This is used for rolling extras or damage and so on.%R%RSWITCHES (which can be combined in any order) are-%R%R/dv# - Roll against a given DV to determine hit or miss and threshold successes. (may not be used with /dif# simultaneously)%R/dif# - Roll against a given difficulty to determine threshold succeses. (may not be used with /dv# simultaneously)%R/tn# - change target number.%R/sux# - adds automatic successes.%R/pen# - external penalties to subtract successes from rolls.%R/PRIVATE - only you see the roll's results.%R/mul# - multi-roll. Rolls the given <stats to roll> # amount of times. Note: does not support cumulative penalties for flurries.
 
 @@ ROLEPLAYING - +SHEET
 +help/addmain Roleplaying/+sheet=[ansi(hc,Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+sheet)] - Shows your sheet.%R[ansi(hc,+sheet/public)] - Makes your sheet publically viewable by others. use again to hide it once more.%R[ansi(h,+sheet <player>)] - View another's +sheet. They must have allowed it or you must be staff.})]
 
-@@ ROLEPLAYING - +PROJECT
-+help/addmain Roleplaying/+project=The +project system is used to keep track of long-term commitments, crafting projects, CRM Leadership actions, and similar endeavors.%R%RNote: All commands actually support <player>/<#> target style. This will be referred to as [ansi(h,<target>)] in the helpfile.%R%RAll ADMIN-APPROVED PROJECTS will post to +myjobs when their durations have finished!%R%R[ansi(hc,Browsing Projects)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+project)] - See all your Projects.%R[ansi(h,+project <#>)] - View a specific Project's details.%R[ansi(h,+project <name>/)] - List other's Projects. You must be a partner of a player's Project to see that Project, or staff.%R[ansi(h,+project <name>/<#>)] - View another's project details.%R[ansi(h,+project/log <#>)] - View a Project's history. Can also use <player>/<#>%R[ansi(h,+project/old)] - View all finished projects. Can also use +project/old <player>/})]%R%R[ansi(hc,Managing Projects)]%RThese can only be used on unapproved Projects, unless staff.%R[align(5 [sub(width(%#),6)],,{[ansi(h,+project/new <title>=<description text>)] - Creates a new Project.%R[ansi(h,+project/desc <target>=<new text>)] - Resets a project's description.%R[ansi(h,+project/rename <target>=<new name>)] - Renames a project.%R[ansi(h,+project/finish <target>)] - Mark a project finished and archive it.%R[ansi(h,+project/unfinish <target>)] - Unarchive a project for reuse.%R[ansi(h,+project/addpartner <target>=<player>)] - Adds a player as a partner. Partners can see the job and use /add to make comments!%R[ansi(h,+project/rempartner <target>=<player>)] - Removes a partner from a project.%R[ansi(h,+project/add <target>=<text>)] - Adds a comment note to a project.})]%R%R[ansi(hc,Time Features)]%RNote: these are based off of IC time, not OOC time.%R[align(5 [sub(width(%#),6)],,{[ansi(h,+project/duration <target>=<time string>)] - Gives a project a starting duration. It will begin ticking unless /stop'd or if already /stop'd.%R[ansi(h,+project/stop <target>)] - Halts a project's countdown.%R[ansi(h,+project/start <target>)] - Continues a project.%R[ansi(h,+project/timediv <time string>=<divisor>)] - Show a time string of <time string> divided by <divisor>. For instance, 1mo divided by 4 is 1w. Useful for things like Craftsman Needs No Tools or Speed the Wheels.})]%R%R[ansi(hc,Duration Times)]%RWhenever a <time string> is called for, this entails entering a value composed of the following possible values:%R[table(#s - seconds|#m - minutes|#h - hours|#d - days|#w - weeks|#mo - months|#se - seasons|#ye - years,13,78,|)]%R%RFor example, you could enter 4m 7d to mean '4 months, 7 days.' The order is irrelevant and you could use the same type more than once if you so choose. Note that 1se is equal to 3mo and 5se is equal to 1y. Note: The system can't handle date values greater than about 56 IC years.
-
-+shelp/addmain Character/+project=[ansi(hc,Storyteller Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+project/approve <target>)] - Approve someone's project.%R[ansi(h,+project/unapprove <target>)] - unapprove an approved project.})]%R%RApproved projects will post to Jobs when their time runs out!
-
-@@ HELP - +CRM
-+help/addmain Roleplaying/+crm=The +crm command covers the CREATION-RULING MANDATE rules explained in Masters of Jade. This system is meant to be used to represent various organizations and the like.%R%R[ansi(hc,Browsing Organizations)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm)] - List all organizations, doesn't show subsidiaries.%R[ansi(h,+crm/all)] - Shows subsidiaries too.%R[ansi(h,+crm/stats)] - Shows alternate columns depicting organization stats such as Wealth and Capital. Also supports /allstats.%R[ansi(h,+crm <org>)] - where <org> is an organizations name (supports partial matching) or ID, displays its sheet.%R[ansi(h,+crm/log <org>)] - Show the log of actions that happened to an organization.})]%R%R[ansi(hc,Capital Management)]%ROnly staff or the Organization Leader/Managers may use these commands!%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm/commit <org>/<amount>=<reason>)] - Commits an amount of capital to a purpose. Using +project to track Leadership Actions is highly recommended.%R[ansi(h,+crm/uncommit <org>=<slot>)] - Releases committed capital by its slot number on the sheet.})]%R%R[ansi(hc,Managing Workers)]%RNote on ranks:%RThe LEADER may HIRE/FIRE employees, PROMOTE/DEMOTE managers, and COMMIT/UNCOMMIT capital.%RMANAGERS may HIRE/FIRE employees, and COMMIT/UNCOMMIT capital.%REMPLOYEES are mostly there for show. They receive updates on changes and projects.%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm/hire <org>=<player>)] - Hire a player.%R[ansi(h,+crm/fire <org>=<player>)] - Fire an employee.%R[ansi(h,+crm/promote <org>=<player>)] - Promote someone to Manager. If not hired, hires them first.%R[ansi(h,+crm/demote <org>=<player>)] - Demotes a manager to Employee status.})]
-
-+shelp/addmain Character/+crm=[ansi(hc,Administration Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm/create <name>=<player>)] - Creates a new CRM organization and makes <player> its leader.%R[ansi(h,+crm/delete <org>)] - Deletes a CRM organization.%R[ansi(h,+crm/rename <org>=<newname>)] - Changes an org's name.%R[ansi(h,+crm/chown <org>=<player>)] - Changes ownership/leader of an organization.%R[ansi(h,+crm/set <org>/<field>=<value>)] - Sets one of the fields/stats. Setting no value clears the field. Fields:%R%BCompetence, Influence, Reach, Size, Wealth = normal stats. 0 or greater integers.%R%BMotivation = motivation...%R%BCapital = Alternate current capital, used if a project fails etc.%R%BExtra = Extra text for notes in the CRM sheet.%R[ansi(h,+crm/desc <org>/<field>=<text>)] - used for describing the focal points of stats. Field can be: Competence, Influence, Reach, Size, Wealth.%R[ansi(h,+crm/intimacy <org>/<slot>=<text>)] - Creates, changes sets, or erases (if text is null) an organization intimacy.%R[ansi(h,+crm/special <org>/<slot>=<text>)] - Creates, changes sets, or erases (if text is null) an organization special asset.})]%R%R[ansi(hc,Structure Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm/parent <org>=<org>)] - Marks the first <org> as a subsidiary of the second.%R[ansi(h,+crm/unparent <org>)] - Frees an organization from its parent.%R[ansi(h,+crm/partner <org>=<org>)] - Binds two organizations together as partners.%R[ansi(h,+crm/unpartner <org>=<org>)] - Seperate two partner organizations.})]%R%R[ansi(hc,Capital Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crm/lend <org>/<org>=<amount>)] - Transfer <amount> of capital from first org to second. Set <amount> to 0 to clear lending.})]
-
 
 @@ SHELP - CHARACTERS - +EDITCHAR
 +shelp/addmain Characters/+editchar=+editchar is used to modify all parts of a character's +sheet!%R%R[ansi(h,+editchar/<flag> <player>|<categories|and|objects>\[=<modification>\])]%r%r[ansi(h,FLAG: SET)]%r[ansi(h,Splat)]%t%t=<splat>%r[ansi(h,Caste)]%T%T=<caste>%R[ansi(h,Essence)]%t%t=<value>%R[ansi(h,Willpower)]%t=<value>%R[ansi(h,Attribute)]%t<attribute>=<value>%r[ansi(h,Ability)]%t%t<ability>=<value>%r[ansi(h,Specialty)]%t<ability or attribute>/<specialty>=<value>%r[ansi(h,Background)]%t<background>=<value>%r[ansi(h,Virtue)]%t%t<virtue>=<value>%r[ansi(h,Grace)]%t%t<Grace>=<value>%r[ansi(h,Path)]%t%t<Path>=<value> (Dragon King Steps, Blazing_Fire etc)%r[ansi(h,College)]%t%t<College>=<value> (Sidereal Astrology, The_Lovers etc)%r[ansi(h,Slot)]%t%t<Type>=<value>%r[ansi(h,Merit)]%t%t<merit>=<value>%r[ansi(h,Flaw)]%t%t<flaw>=<value>%r[ansi(h,PosMut)]%t%t<mutation>=<value> (Positive Mutation)%r[ansi(h,NeuMut)]%t%t<mutation>=<value> (Neutral Mutation)%r[ansi(h,NegMut)]%t%t<mutation>=<value> (Negative Mutation)%r[ansi(h,WarMut)]%t%t<mutation>=<value> (Lunar Warform Mutation)%r[ansi(h,RageMut)]%t%t<mutation>=<value> (By Rage Recast Mutation)%r[ansi(h,Style)]%t%t<tier>|<slot>=<value> (used to set the style's display name)%r[ansi(h,Pool)]%t%t<pool>=<value> (added to normal calc for max size, can create pool without charms)%r%r[ansi(h,FLAG: ADD & REM)]%r[ansi(h,Charm)]%t%t<category>=<charm1>|<charm2>|etc (Native Charms)%r[ansi(h,MACharm)]%t%t<tier>|<slot>=<charm1>|<charm2>|etc (Martial Arts Charms)%r[ansi(h,OCharm)]%t%t<splat>|<category>=<charm1>|<charm2>|etc (Cross-Splat Charms)%r[ansi(h,Spell)]%t%t<circle>=<spell1>|<spell2>|etc%r[ansi(h,Protocol)]%t<tier>=<protocol1>|<protocol2>|etc%r[ansi(h,Favored)]%t%t<Attribute/Ability>=<Item1>|<Item2>|etc%r[ansi(h,Thaumaturgy)]%t%t<Arts/Sciences>|<Degrees/Procedures>=<Degree1>|<Degree2>|etc%r[ansi(h,Language)]%t=<language1>|<language2>|etc%r[ansi(h,Health)]%t%t=<level1> <level2> etc (must be -0, -1, D, etc)%r%r[ansi(h,EXAMPLES)]%r%r[ansi(h,+editchar/set Isidoros|Attribute|Dexterity=4)]%r%tSets Isidoros' Dexterity to 4%r[ansi(h,+editchar/add Isidoros|Language=High Realm|Low Realm)]%r%tAdds High Realm & Low Realm to Isidoros' Languages%r[ansi(h,+editchar/rem Isidoros|Health=-0 -1)]%r%tRemoves one -0 and one -1 from Isidoros' permanent Health Pool%R%R[ansi(h,MARTIAL ARTS)]%RMartial Arts Charms are stored in Slots which are addressed by numbers, such as:%R+editchar/add Isidoros|MACharm|Celestial|1=Searing Fist Attack|Flash-Fire Technique%R+editchar/set Isidoros|Style|Celestial|1=Fire Dragon Style%R%RRemoving all Charms in a style removes it.%R%R[ansi(h,EXPANSION/OVERDRIVE CHARMS)]%RPlease be sure to use EXACT Charmnames as shown in +charmnames or these will NOT function. The results should be immediately visible in a +sheet if added correctly.%R%R[ansi(h,EXTRA INFO)]%RChanging VAR`MORTALESSENCE on the EX-PSO in the master room to 1 will give all mortals an Essence pool. With this set to 0, they'll only have one if the pool's set manually or they have the Awakened Essence merit or positive mutation.%R%RDissonance tracks are automatically added to characters with the Gremlin Syndrome negative mutation.%R%R[ansi(h,CLEARING VALUES)]%RLeaves Values absolutely clear to remove them entirely! Example:%R+editchar/set Isidoros|Attribute|Dexterity=
 
-@@ SHELP - COMMUNITY - CRM
-+shelp/addmain Community/CRM=[ansi(hc,See Also:)] [pueblize(+help Groups,+help Groups)], [pueblize(+shelp Groups,+shelp Groups)]%R%R[ansi(hc,Concepts)]%RThe Creation-Ruling Mandate system is an add-on to Groups. Each Group has one set of CRM stats. The system ties together with the IC Calendar, ticking projects down to completion then posting to Anomaly Jobs when they're ready for review. As CRM requires serious Staff oversight, only Staff may edit CRM stats or post/finish CRM projects. As with all Group-related commands, you must have set your Group focus to the one in question before using these commands.%R%R[ansi(hc,Set Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crmset <field>=<value>)] - sets a CRM field to <value>. If <value> is blank then <field> will be cleared.%R%B%BFields: Competence, Influence, Reach, Size, Wealth, Capital, Motivation, Name, Extra, Special%R%B%BExtra is used for any random notes.%R%B%BCapital sets an alternate current if different from <max - committed> such as from a botched Leadership Action.%R[ansi(h,+crmset Intimacy/<#>=<text>)] - Sets/Creates a CRM Intimacy. Setting to nothing clears an Intimacy.%R[ansi(h,+crmset/desc <field>=<value>)] - Describes a Field. Meant for extra details explaining the main stats.%R%B%BFields: Competence, Influence, Reach, Size, Wealth})]%R%R[ansi(hc,Action Commands)]%R[align(5 [sub(width(%#),6)],,{[ansi(h,+crmact <player>|<action>|<capital>|<required capital>|<duration>|<difficulty>|<needed>=<explanation>)] - Creates a new Leadership Action using all of the given information. <player> is the name of the Leader. <action> is the Leadership Action such as GROW ASSET or PROTECT ORGANIZATION. <duration> is how long until the next roll (see below.) <difficulty> is the action's Difficulty. <needed> is the amount of Successes needed to complete the action. <explanation> is the details and intent of the Action - exactly what the organization aims to accomplish and how they're going about it.%R%R[ansi(h,+crmact/set <slot>/<field>=<value>)] - Sets the data on an established Leadership Action.%R%B%BFields: Desc (explanation), Gathered, Capital, ReqCapital, Action, Difficulty, By, Needed, Duration%R[ansi(h,+crmact/finish <slot>)] - Completes/deletes a CRM Leadership Action.})]%R%R[ansi(hc,Duration Times)]%RWhenever <duration> is called for or set, it must be one of the following: X (for indefinite), or a time string. A time string example: 7d 2h (7 days, 2 hours). The system understands the following: s (seconds), m (minutes), h (hours), d (days), w (weeks), mo (months), se (seasons), and y (years.) These can be entered in any order and if you really wanted to, more than once each. (For example: 7s 5d 2d is valid). The system will convert these into the amount of IC seconds until that has occurred and will begin counting down with every tick of the Calendar system.%R%RLeadership Actions will post to Anomaly Jobs upon completion until attended. Setting a Duration with +crmact/set will reset their completion status so they will post again when their time arrives.
-
-
 
diff --git a/unfinished/storyteller/exalted3/Chargen Room - CHARGEN.txt b/unfinished/storyteller/exalted3/Chargen Room - CHARGEN.txt
new file mode 100644
index 0000000..6479485
--- /dev/null
+++ b/unfinished/storyteller/exalted3/Chargen Room - CHARGEN.txt	
@@ -0,0 +1,284 @@
+@@ DEPENDENCIES - CORE
+
+@select/inline isdbref(u(cobj,chargen))=0,{@dig/teleport Chargen;th u(attrib_set,u(cobj,mco),COBJ`CHARGEN,u(objid,%l));@parent %l=u(cobj,mco)}
+@select/inline v(game)=PennMUSH,{@set u(cobj,chargen)=WIZARD !NO COMMAND},RhostMUSH,{@set u(cobj,chargen)=INHERIT SIDEFX !NO COMMAND}
+
+@cpattr u(cobj,ancestor_room)/HEADER=u(cobj,chargen)/HEADER
+
+&CMD`+PAGE [u(cobj,chargen)]=$^\+page(?\: +(.+))?$:@check strlen(%1)=@attach %!/INC`MSG=ERROR: +page requires a page to turn to. Your options are: [u(itemize,u(filter,ISPAGE,u(lattr,%!/CG`*,|),|,|),|,and,\,)];@check u(valnum,%1)=@attach %!/INC`MSG=ERROR: Pages must be whole\, positive numbers.;@check match(u(filter,ISPAGE,u(lattr,%!/CG`*,|),|,|),CG`%1,|)=@attach %!/INC`MSG=ERROR: Page not found!;th u(setstat,%#,D`CHARGEN,Page,CG`%1);@force/inline %#=look;@attach %!/INC`MSG=You are now viewing Page %1!
+@set [u(cobj,chargen)]/CMD`+PAGE=regexp
+
+&FIL`ISPAGE [u(cobj,chargen)]=isint(last(%0,`))
+
+&SYSTEM`NAME [u(cobj,chargen)]=CHARGEN
+
+@desc [u(cobj,chargen)]=%TWelcome to [mudname()] Chargen! In this room you will setup your sheet and other aspects and prepare for admin review for approval. Remember to check out any House Rules at [u(weblink,mudurl(),mudurl())]%R%R%T[ansi(h,INSTRUCTIONS:)] Set your sheet as it would be after spending all your available points, including starting experience awarded by house rules. Approval will require an +info (+help +info) file detailing your spends so keep track of how you spend your XP.%R%R%TTo see your sheet, type [ansi(h,+sheet)]%R[u(u(strfirstof,u(getstat,%#,D`CHARGEN,Page),CG`1),getclass(%#))]%R[u(SEPARATOR,Chargen)]%RViewing Page [ansi(h,u(strfirstof,last(u(getstat,%#,D`CHARGEN,Page),`),1))] of [ansi(h,u(lmax,u(filter,ISPAGE,u(lattr,%!/*))))]. Use [ansi(h,+page <number>)] to change. For example, +page 2.%RIf you'd like to undo certain steps, use [ansi(h,+reset)] to view your options.%R[u(FUN`STATS,%#)]
+
+&FUN`STATS [u(cobj,chargen)]=[u(SEPARATOR,Progress)]%R[ansi(h,ATTRIBUTES:)] [rjust(u(FUN`COUNT,%#,ATTRIBUTES),2,0)]. Physical/Social/Mental: [rjust(add(u(getstat,%#,D`ATTRIBUTES,Strength),u(getstat,%#,D`ATTRIBUTES,Dexterity),u(getstat,%#,D`ATTRIBUTES,Stamina)),2,0)]/[rjust(add(u(getstat,%#,D`ATTRIBUTES,Charisma),u(getstat,%#,D`ATTRIBUTES,Manipulation),u(getstat,%#,D`ATTRIBUTES,Appearance)),2,0)]/[rjust(add(u(getstat,%#,D`ATTRIBUTES,Perception),u(getstat,%#,D`ATTRIBUTES,Intelligence),u(getstat,%#,D`ATTRIBUTES,Wits)),2,0)]%R[ansi(h,ABILITIES:)] [rjust(add(u(FUN`COUNT,%#,ABILITIES),u(FUN`COUNT,%#,STYLES),u(FUN`COUNT,%#,CRAFTS)),2,0)]/[rjust(u(strfirstof,v(MAX`ABILITIES`[u(setr,class,getclass(%#))]),??),2,0)]%R[ansi(h,MERITS:)] [rjust(u(FUN`COUNT`MERITS,%#),2,0)]/[rjust(u(strfirstof,v(MAX`MERITS`%q<class>),??),2,0)]%R[ansi(h,CHARMS:)] [rjust(add(u(FUN`COUNT`CHARMS,%#),u(FUN`COUNT`SPELLS,%#)),2,0)]/[rjust(u(strfirstof,v(MAX`CHARMS`%q<class>),??),2,0)]
+
+&FUN`COUNT [u(cobj,chargen)]=u(ladd,iter(get(%0/D`%1),last(%i0,~),|,%b))
+&FUN`COUNT`MERITS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`MERITS`*`RANK),get(%0/%i0)))
+&FUN`COUNT`CHARMS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`CHARMS`*`*),words(get(%0/%i0),|)))
+&FUN`COUNT`SPELLS [u(cobj,chargen)]=u(ladd,iter(u(lattr,%0/D`SPELLS`*),words(get(%0/%i0),|)))
+
+&CG [u(cobj,chargen)]=@@ Empty attrib for Rhost.
+
+&CG`1 [u(cobj,chargen)]=[u(SEPARATOR,Step 1: Concept and Caste)]%R[ansi(h,+class <type>)]%R%TYour choices are: [u(itemize,u(setr,classes,u(game_config,STORYTELLER,CLASSES)),|,and,\,)][if(strlen(u(setr,castes,get(u(cobj,data)/CASTE`%0))),%R%R[ansi(h,+caste <type>)] to set your [switch(%0,Terrestrial,Aspect,Caste)]%R%TYour choices are: [u(itemize,%q<castes>,|,and,\,)][if(hasattr(%!/CG`1`%0),%R%R[u(CG`1`%0)])])]%R%R[ansi(h,&sex me=<gender>)] to set your Gender (Male, Female, or None)
+
+&CG`1`SOLAR u(cg)=ansi(h,+virtueflaw <flaw>) to set your Virtue Flaw.
+&CG`1`LUNAR [u(cobj,chargen)]=u(CG`1`SOLAR)%R%R[ansi(h,+totem <animal>)] to set your Spirit Shape.
+&CG`1`ABYSSAL [u(cobj,chargen)]=if(u(game_config,STORYTELLER,SHARDS_ABYSSALS),ansi(h,+doom <doom>) to set your Doom (Shards hack),ansi(h,+flawedvirtue <flaw>) to set your Flawed Virtue (MoEP: Abyssals))%R%R[ansi(h,+liege <name>)] to set your Liege (or Renegade)
+&CG`1`ALCHEMICAL [u(cobj,chargen)]=ansi(h,+nation <name>)] to set your Nation.
+&CG`1`INFERNAL [u(cobj,chargen)]=ansi(h,+yozi <name>) to set your Favored Yozi.%R%R[ansi(h,+urge <archetype>)] to set your Urge model.%R%R[ansi(h,+intimacy/urge <urge>)] to set its specifics.
+&CG`1`TERRESTRIAL [u(cobj,chargen)]=ansi(h,+nation) to set your origin. (Realm, Lookshy, Outcaste?)%R[ansi(h,+house <name>)] to set your dynastic house or equivalent, if applicable.
+&CG`1`RAKSHA [u(cobj,chargen)]=ansi(h,+lure <virtue and condition>)] to set your Lure.
+&CG`1`MORTAL [u(cobj,chargen)]=Mortals have nothing race-specific to set!
+&CG`1`JADEBORN [u(cobj,chargen)]=This covers both Enlightened and Unenlightened!
+
+&CMD`+SPLAT [u(cobj,chargen)]=$^\+(?\:splat|class)(?\: +(.+))?$:@attach u(cobj,data)/DO`SET`CLASS=%#,,%1;@force/inline %#=look;@attach %!/INC`MSG=You are now a [ansi(h,u(capnames,%q<find>))].
+@set [u(cobj,chargen)]/CMD`+SPLAT=regexp
+
+&CMD`+CASTE [u(cobj,chargen)]=$^\+caste(?\: +(.+))?$:@attach u(cobj,data)/DO`SET`CASTE=%#,,%1;@attach %!/INC`MSG=Your Caste is now [ansi(h,u(capnames,%q<find>))].
+@set [u(cobj,chargen)]/CMD`+CASTE=regexp
+
+&CMD`INFOSET [u(cobj,chargen)]=$^\+(virtueflaw|flawedvirtue|doom|liege|lure|totem|urge|house|nation|yozi|nation)(?\: +(.+))?$:th u(setq,type,switch(%1,flawedvirtue,Flawed Virtue,virtueflaw,Virtue Flaw,doom,Doom,liege,Liege,lure,Lure,totem,Totem Animal,urge,Urge,house,House,yozi,Favored Yozi,nation,Nation));@check strlen(%2)=@attach %!/INC`MSG=What will your %q<type> be?;@attach %!/INC`MSG=Your %q<type> is now [ansi(h,%2)]. Make sure this is appropriate for your Race!;th u(setstat,%#,D`INFO,%q<type>,%2)
+@set [u(cobj,chargen)]/CMD`INFOSET=regexp
+
+&CG`2 [u(cobj,chargen)]=[u(SEPARATOR,Step 2: Attributes)]%R%tTo set an attribute:%r%r[ansi(h,%t+attr <attribute>=<value>)] (<attribute> may be a partial match. <value> must be 0 or greater.)%R%TYour choices are: [u(itemize,u(u(cobj,data)/FUN`GET`ATTRIBUTES),|,and,\,)]%R%R%TAll Attributes begin with 1 dot free, unless otherwise stated for your Splat.%r%r%tIn order of Primary/Secondary/Tertiary...[udefault(CG`2`[getclass(%#)],Your Splat appears unset or has no data entered.)]
+
+&CG`2`MORTAL [u(cobj,chargen)]=Mortals receive 6/4/3 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`SOLAR [u(cobj,chargen)]=Solars receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`INFERNAL [u(cobj,chargen)]=Infernals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+&CG`2`ABYSSAL [u(cobj,chargen)]=Abyssals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
+
+&CG`2`ALCHEMICAL [u(cobj,chargen)]=Alchemicals receive 8 Attribute Points for their Caste Attributes, minimum 2 each, 6 Attribute points in their Favored Attributes, and 4 Attribute points to be used freely.%r%tIn addition they receive 1 extra point for a Caste or Favored Attribute.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
+&CG`2`TERRESTRIAL [u(cobj,chargen)]=Terrestrial receive 8/6/4 Attribute Points.
+&CG`2`DRAGON-KING [u(cobj,chargen)]=Modern Dragon-Kings receive 7/5/4.%r%tAncient Dragon-Kings receive 8/6/5.
+&CG`2`GHOST [u(cobj,chargen)]=Ghosts receive 6/4/3 Attribute points. If converting from a living character, they retain existing ratings, and lose any Favored Attributes if they posessed them.
+&CG`2`GOD-BLOODED [u(cobj,chargen)]=God-Blooded receive 6/5/3 Attribute points. Half-Castes add 1 additional point wherever they wish.
+&CG`2`JADEBORN [u(cobj,chargen)]=Enlightened Jadeborn receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tUnenlightened Jadeborn receive 8/4/3 Attribute Points.
+&CG`2`LUNAR [u(cobj,chargen)]=Lunars receive 8/6/4 Attribute points, and may add 1 additional point to any Caste or Favored Attribute.%r%tTattooed Lunars receive 3 Caste Attributes and 1 Favored Attribute. Casteless Receive only 2 Favored Attributes.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
+
+&CG`2`RAKSHA [u(cobj,chargen)]=Noble Raksha receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tCommoner Raksha begin with 0 in each Attribute, receive 10/7/4, and may not raise them above 4.
+&CG`2`SIDEREAL [u(cobj,chargen)]=Sidereals receive 8/6/4 Attribute points.
+
+&CG`2`SPIRIT [u(cobj,chargen)]=Spirits usually receive (Essence x3) + (Cult x3) + (Virtues x2) Attribute points. Please consult with staff if designing a Spirit!
+
+&CMD`+ATTR [u(cobj,chargen)]=$^\+attr(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`ATTRIBUTE=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=You set [ansi(h,u(capnames,%q<find>))] to %2.
+@set [u(cobj,chargen)]/CMD`+ATTR=regexp
+
+@@ &CMD`+CASTEFAVATTR [u(cobj,chargen)]=$+castefavattr:@check strlen(u(getstat,%#,D`INFO,Caste))=@attach %!/INC`MSG=You do not have a Caste set!;@check match(ALCHEMICAL|LUNAR,getclass(%#),|)=@attach %!/INC`MSG=Only Alchemical and Lunar Exalted may favor Attributes.;@check strlen(u(setr,newfavored,v(DAT`2`FAVORED`[edit(u(getstat,%#,D`INFO,Caste),%B, )])))=@attach %!/INC`MSG=Your Caste does not have any listed Favored Attributes.;@attach %!/INC`MSG=You set your Favored Attributes to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;th attrib set(%#/D`ATTRIBUTES`FAVORED,setunion(get(%#/D`ATTRIBUTES`FAVORED),%q<newfavored>,|,|))
+
+@@ &CMD`+FAVATTR [u(cobj,chargen)]=$^\+(un)?favattr(?\: +(.+))?$:@check strln(%2)=@attach %!/INC`MSG=Which Attribute will you [if(strlen(%1),un-Favor,Favor)]?;@attach u(CCS)/INC`PARTIAL=%2,get(u(cobj,data)/VAR`ATTRIBUTES),|,CHARGEN,choice,Attribute;@select/inline t(strlen(%1))=1,{@check match(get(%#/D`ATTRIBUTES`FAVORED),%q<choice>,|)=@attach %!/INC`MSG=That Attribute is not Favored!};th attrib set(%#/D`ATTRIBUTES`FAVORED,u(setr,new,set[if(strlen(%1),diff,union)](get(%#/D`ATTRIBUTES`FAVORED),u(capnames,%q<choice>),|,|)));@attach %!/INC`MSG=You now have [ansi(h,if(words(%q<new>,|),words(%q<new>,|),No))] Favored Attributes[if(words(%q<new>,|),:%B[ansi(h,u(itemize,%q<new>,|,and,\,))])]
+@set [u(cobj,chargen)]/CMD`+FAVATTR=regexp
+
+&DAT`2`FAVORED`ADAMANT [u(cobj,chargen)]=Strength|Appearance|Perception
+&DAT`2`FAVORED`CHANGING MOON [u(cobj,chargen)]=Charisma|Manipulation|Appearance
+&DAT`2`FAVORED`FULL MOON [u(cobj,chargen)]=Strength|Dexterity|Stamina
+&DAT`2`FAVORED`HALF MOON [u(cobj,chargen)]=Charisma|Perception|Intelligence
+&DAT`2`FAVORED`JADE [u(cobj,chargen)]=Stamina|Charisma|Wits
+&DAT`2`FAVORED`MOONSILVER [u(cobj,chargen)]=Dexterity|Appearance|Wits
+&DAT`2`FAVORED`NO MOON [u(cobj,chargen)]=Perception|Intelligence|Wits
+&DAT`2`FAVORED`ORICHALCUM [u(cobj,chargen)]=Strength|Charisma|Intelligence
+&DAT`2`FAVORED`SOULSTEEL [u(cobj,chargen)]=Stamina|Manipulation|Perception
+&DAT`2`FAVORED`STARMETAL [u(cobj,chargen)]=Dexterity|Manipulation|Intelligence
+&DAT`2`FAVORED`WANING MOON [u(cobj,chargen)]=Dexterity|Manipulation|Wits
+&DAT`2`FAVORED`WAXING MOON [u(cobj,chargen)]=Charisma|Manipulation|Appearance
+
+&CG`3 [u(cobj,chargen)]=[u(SEPARATOR,Step 3: Abilities)]%R[if(and(strlen(getclass(%#)),hasattr(me/CG`3`[getclass(%#)])),[u(CG`3`[getclass(%#)])])]%R%RSetting any stat to 0 will remove it.
+
+&CG`3`MORTAL [u(cobj,chargen)]=Mortals receive 28 Ability points.%R%r[u(CG`3`ABILITY)]%R%r[u(CG`3`CRAFT)]%R%r[u(CG`3`STYLE)]
+&CG`3`SOLAR [u(cobj,chargen)]=Solars receive 5 Caste Abilities and 5 Favored Abilities.%RSolars may choose 1 Caste Ability as Supernal.%rSolars receive 28 ability points, minimum 10 among Caste and Favored Abilities, and receive 4 Specialty points.%R%R[u(CG`3`ABILITY)]%r%r[u(CG`3`FAVORED)]%R%r[u(CG`3`SUPERNAL)]%R%r[u(CG`3`CRAFT)]%R%r[u(CG`3`STYLE)]
+
+&CG`3`ABILITY [u(cobj,chargen)]=%t[ansi(h,+abil <ability>=<value>)] to set an Ability (<Ability> may be a partial match, <value> must be a number 0 or higher.)%R%t[ansi(h,+spec <ability or attribute>/<specialization>=<points>)] to set a Specialty. (Set to 1, no higher.)%R%TYour Ability choices are: [u(itemize,u(capnames,setdiff(u(u(cobj,data)/FUN`GET`ABILITIES),CRAFT,|,i,|)),|,and,\,)]
+
+&CG`3`FAVORED [u(cobj,chargen)]=%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored (also use this for Caste ones).%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored/Caste Ability.%R%TSetting "Craft" or "Martial Arts" Favored automatically favors all Crafts/Styles, respectively.
+
+&CG`3`SUPERNAL [u(cobj,chargen)]=%t[ansi(h,+supabil <Ability>)] to set an Ability as Supernal.%r%t[ansi(h,+unsupabil <ability>)] to unset a Supernal Ability.
+
+&CG`3`STYLE [u(cobj,chargen)]=%T[ansi(h,+style <style>=<value>)] to set points in a Martial Arts style.%R%TYour Style choices are: [u(itemize,u(capnames,u(u(cobj,data)/FUN`GET`STYLES)),|,and,\,)]
+
+&CG`3`CRAFT [u(cobj,chargen)]=%T[ansi(h,+craft <field>=<value>)] to set points in various Crafts, such as Weaponry or Carpentry.
+
+&CG`3`ABYSSAL [u(cobj,chargen)]=Abyssals note their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tAbyssals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+
+&CG`3`INFERNAL [u(cobj,chargen)]=Infernals receive their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tInfernals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+
+&CG`3`ALCHEMICAL [u(cobj,chargen)]=Alchemicals receive 25 ability points and 4 Specialty points. In our House Rules they may also favor 3 Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`TERRESTRIAL [u(cobj,chargen)]=Terrestrial note their 5 Aspect Abilities, and choose 3 Favored Abilities.%r%tOutcastes receive 25 Ability Points, while Lookshy and Dynasts receive 35. All Terrestrial receive 4 Specialty points.%r%t[ansi(h,+heritage <Dynast/Lookshy/Outcaste>)] to set additional Ability info. A Dragon-Blood must have this many points in each heritage Ability.%r%r%t[ansi(h,+castefavored)] to set your Aspect Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`DRAGON-KING [u(cobj,chargen)]=Dragon-Kings receive 3 Breed Abilities, and choose 5 Favored Abilities.%r%tModern Dragon-Kings receive 25 and Ancient Dragon-Kings receive 35 Ability Points, minimum 10 among Breed or Favored Abilities.%r%r%t[ansi(h,+castefavored)] to set your Breed Abilities.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`GHOST [u(cobj,chargen)]=Ghosts receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%tPlayer characters converting to Ghosts retain their old ratings, but not Caste/Favored/Auspicious Abilities, and must pick just 1.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`GOD-BLOODED [u(cobj,chargen)]=God-Blooded receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`JADEBORN [u(cobj,chargen)]=All Jadeborn receive Craft as Favored, and choose 5 other Favored Abilities.%r%tEnlightened Jadeborn receive 35 Ability points, minimum 10 among Favored.%r%tEnlightened Jadeborn may use Bonus XP to raise Abilities as high as 6 at Chargen.%r%tArtisans must have Awareness 1, Bureaucracy 2, Linguistics 2 (High Realm, Old Realm), Lore 2, Martial Arts or Melee 1, Occult 2, Performance or Presence 1, Socialize 2, and 2 points divided amongst Craft abilities.%r%r%tUnenlightened Jadeborn receive 22 Ability Points, minimum 14 among Favored and minimum 1 each.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`LUNAR [u(cobj,chargen)]=Lunars receive 25 ability points, and receive 4 Specialty points.%r%tLunars always Favor Survival, and may choose one additional Favored Ability.%r%tSilver Pact Lunars must have Survival 2, and at least point in Archery, Melee, Martial Arts, or Thrown.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`MAIN [u(cobj,chargen)]=Please return to the first room and set your race!
+&CG`3`RAKSHA [u(cobj,chargen)]=Noble Raksha choose 5 Caste Abilities from the 10 associated with their Ascendant and Shadowed Castes, and may select 3 Additional Favored Abilities.%r%tThey receive 1 point in all Caste Abilities, and 2 point in all Favored Abilities free. They also receive 25 Ability points and 3 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%tIn addition to Caste Abilities, Commoner Raksha may select 1 Favored Ability or convert a Caste Ability into a Favored Ability.%r%tThey receive 1 free point in each Caste Ability and 2 free points in their Favored Ability, non-cumulative if upgrading a Caste Ability. They also receive 25 Ability points and 5 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%t[ljust(Diplomat:,14)] Linguistics, Occult, Ride, Socialize, Thrown%r%t[ljust(Entertainer:,14)] Investigation, Larceny, Medicine, Performance, Stealth%r%t[ljust(Warrior:,14)] Archery, Martial Arts, Melee, Presence, War%r%t[ljust(Worker:,14)] Bureaucracy, Craft, Integrity, Lore, Resistance%r%t[ljust(Guide:,14)] Athletics, Awareness, Dodge, Sail, Survival%r%r%tRaksha must set all Caste and Favored Abilities manually.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`SIDEREAL [u(cobj,chargen)]=Sidereals receive 5 Auspicious Abilities and 4 Favored Abilities.%r%tRonin Sidereals receive 25 Ability Points, minimum 10 among Auspicious and Favored Abilities, and 4 Specialty points.%r%tMembers of the Bureau of Destiny receive 35 Ability Points, minimum 15 among Auspicious and Favored Abilities, and 4 Specialty points..%r%r%tBureau of Destiny members require minimum ratings of the following by Caste due to training:%r%tALL must have Awareness 2, Bureaucracy 2, Linguistics 1 (Old Realm), Lore 3, Martial Arts 2, Occult 2, Socialize 1, Stealth 1, and at least 1 in Archery, Melee, or Thrown.%r%tChosen of Journeys must have Athletics 2, Linguistics 2 (Old Realm + an appropriate additional language), Resistance 2, Survival 2, and Ride or Sail 2%r%tChosen of Serenity must have Craft or Performance 2, Linguistics 2 (eloquence), Medicine 2, Presence 2, and Socialize 3%r%tChosen of Battles must have Archery or Melee 3, Athletics 2, Dodge 2, Presence 2, and War 2%r%tChosen of Secrets must have Awareness 2, Investigation 3, Larceny 2, Socialize 2, and Stealth 2%r%tChosen of Endings must have Awareness 2, Dodge 2, Integrity 2, Martial Arts 3, and Stealth 2%r%r%t[ansi(h,+castefavored)] to set your Auspicious Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
+&CG`3`SPIRIT [u(cobj,chargen)]=Please consult with staff if designing a Spirit!
+
+&CMD`+ABIL [u(cobj,chargen)]=$^\+abil(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`ABILITY=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+ABIL=regexp
+
+&CMD`+STYLES [u(cobj,chargen)]=$^\+style(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`STYLES=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+STYLES=regexp
+
+&CMD`+CRAFT [u(cobj,chargen)]=$^\+craft(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`CRAFTS=%#,%1,if(eq(%2,0),,%2);@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<find>))] to %2,You remove [ansi(h,u(capnames,%q<find>))])]. You have spent [ansi(h,u(ladd,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
+@set [u(cobj,chargen)]/CMD`+CRAFT=regexp
+
+&CMD`+FAVABIL [u(cobj,chargen)]=$^\+(un)?(fav|sup)abil(?\: +(.+))?$:th switch(%1,un,u(setq,mode,rem),u(setq,mode,add));th u(setq,mode2,switch(%2,fav,FAVORED,sup,SUPERNAL));@attach u(cobj,data)/DO`%q<mode>`%q<mode2>=%#,ABILITIES,%3;@attach %!/INC`MSG=You [switch(%q<mode>,add,now,no longer)] [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favor [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]. Current [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favors: [words(get(%#/D`%q<mode2>`ABILITIES),|)]
+@set [u(cobj,chargen)]/CMD`+FAVABIL=regexp
+
+@@ &CMD`+CASTEFAVORED [u(cobj,chargen)]=$+castefavored:@check strlen(u(getstat,%#,D`INFO,Caste))=@pemit %#=You do not have a Caste set!;@check strlen(u(setr,newfavored,unique(iter(v(DAT`3`FAVORED`[edit(u(getstat,%#,D`INFO,Caste),%B, )]),u(capnames,%i0),|,|),i,|,|)))=@pemit %#=Your Caste does not have any listed Favored Abilities.;@pemit %#=You set your Favored Abilities to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;th attrib set(%#/D`ABILITIES`FAVORED,setunion(get(%#/D`ABILITIES`FAVORED),%q<newfavored>,|,|))
+
+@@ &CMD`+HERITAGE [u(cobj,chargen)]=$^\+heritage(?\: +(.+))?$:@check strlen(%1)=@attach %!/INC`MSG=Are you a Dynast\, Lookshy\, or Outcaste Terrestrial?;@attach %!/INC`PARTIAL=%1,DYNAST|LOOKSHY|OUTCASTE,|,choice,Heritage;@select/inline %q<choice>=dynast,{@attach %!/INC`MSG=You set your base skills as a Dynast-raised Dragon-blood. You have 35 points in total to spend\, but you cannot lower these base skills below their current level\, and you must spend at least 13 points in Favored abilities. If you don't have at least 2 dots in each of these baseline skills\, you're likely considered embarassingly inept by your family.;@cpattr me/DAT`HERITAGE DYNAST=%#/D`ABILITIES;th u(setstat,%#,D`INFO,Heritage,u(capnames,%q<choice>))},lookshy,{@attach %!/INC`MSG=You set your base skills as a Lookshy-raised Dragon-blood. You have 35 points in total to spend\, but you must spend at least 13 on favored skills and you cannot lower the current skills below their present level. What "+sheet" gives now is a minimally-competent Lookshy Dragonblood.;@cpattr me/DAT`HERITAGE LOOKSHY=%#/D`ABILITIES;th u(setstat,%#,D`INFO,Heritage,u(capnames,%1))},outcaste,{@attach %!/INC`MSG=You mark yourself as a Dragon-blood raised outside of the conventional structures of the Realm or Lookshy. While this gives you more freedom in how to spend your ability points\, it also gives you fewer points to spend. You have 25 ability points and must spend 13 of them on Favored abilities.;&d`abilities %#;th u(setstat,%#,D`INFO,Heritage,u(capnames,%q<choice>))},{@attach %!/INC`MSG=Your choices for Terrestrial heritage are Dynast, Lookshy, and Outcaste.}
+@set [u(cobj,chargen)]/CMD`+HERITAGE=regexp
+
+&CMD`+SPEC [u(cobj,chargen)]=$^\+spec(?\: +(.+?))?(?\:=(.+))?$:@attach u(cobj,data)/DO`SET`SPECIALTY=%#,%1,if(eq(%2,0),,%2);@select/inline t(%2)=1,{@attach %!/INC`MSG=You set [ansi(h,u(capnames,%q<find>/%q<spec>))] to [ansi(h,%2)]},0,{@attach %!/INC`MSG=You remove [ansi(h,u(capnames,%q<find>/%q<spec>))]}
+@set [u(cobj,chargen)]/CMD`+SPEC=regexp
+
+&DAT`3`FAVORED`DAWN [u(cobj,chargen)]=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
+&DAT`3`FAVORED`ZENITH [u(cobj,chargen)]=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
+&DAT`3`FAVORED`TWILIGHT [u(cobj,chargen)]=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
+&DAT`3`FAVORED`NIGHT [u(cobj,chargen)]=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
+&DAT`3`FAVORED`ECLIPSE [u(cobj,chargen)]=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
+
+&DAT`3`FAVORED`DUSK [u(cobj,chargen)]=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
+&DAT`3`FAVORED`MIDNIGHT [u(cobj,chargen)]=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
+&DAT`3`FAVORED`DAYBREAK [u(cobj,chargen)]=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
+&DAT`3`FAVORED`DAY [u(cobj,chargen)]=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
+&DAT`3`FAVORED`MOONSHADOW [u(cobj,chargen)]=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
+
+&DAT`3`FAVORED`AIR [u(cobj,chargen)]=Linguistics|Lore|Occult|Stealth|Thrown
+&DAT`3`FAVORED`ANKLOK [u(cobj,chargen)]=Resistance|Survival|War
+&DAT`3`FAVORED`BATTLES [u(cobj,chargen)]=Archery|Athletics|Melee|Presence|War
+&DAT`3`FAVORED`DEFILER [u(cobj,chargen)]=Craft|Investigation|Lore|Medicine|Occult
+&DAT`3`FAVORED`EARTH [u(cobj,chargen)]=Craft|Integrity|Resistance|War|Awareness
+&DAT`3`FAVORED`ENDINGS [u(cobj,chargen)]=Awareness|Bureaucracy|Integrity|Martial Arts|Medicine
+&DAT`3`FAVORED`FIEND [u(cobj,chargen)]=Bureaucracy|Linguistics|Ride|Sail|Socialize
+&DAT`3`FAVORED`FIRE [u(cobj,chargen)]=Athletics|Dodge|Melee|Presence|Socialize
+&DAT`3`FAVORED`JADE [u(cobj,chargen)]=Stamina|Charisma|Wits
+&DAT`3`FAVORED`JOURNEYS [u(cobj,chargen)]=Resistance|Ride|Sail|Survival|Thrown
+&DAT`3`FAVORED`MALEFACTOR [u(cobj,chargen)]=Integrity|Performance|Presence|Resistance|Survival
+&DAT`3`FAVORED`MOSOK [u(cobj,chargen)]=Brawl|Larceny|Survival
+&DAT`3`FAVORED`PTEROK [u(cobj,chargen)]=Athletics|Lore|Occult
+&DAT`3`FAVORED`RAPTOK [u(cobj,chargen)]=Craft|Socialize|Linguistics
+&DAT`3`FAVORED`SCOURGE [u(cobj,chargen)]=Athletics|Awareness|Dodge|Larceny|Stealth
+&DAT`3`FAVORED`SECRETS [u(cobj,chargen)]=Investigation|Larceny|Lore|Occult|Stealth
+&DAT`3`FAVORED`SERENITY [u(cobj,chargen)]=Craft|Dodge|Linguistics|Performance|Socialize
+&DAT`3`FAVORED`SLAYER [u(cobj,chargen)]=Archery|Martial Arts|Melee|Thrown|War
+&DAT`3`FAVORED`WATER [u(cobj,chargen)]=Bureaucracy|Investigation|Larceny|Martial Arts|Sail
+&DAT`3`FAVORED`WOOD [u(cobj,chargen)]=Archery|Medicine|Performance|Ride|Survival
+
+&DAT`HERITAGE DYNAST [u(cobj,chargen)]=Archery~1|Lore~2|Martial Arts~1|Melee~1|Performance~1|Presence~1|Ride~1|Socialize~2|War~1
+&DAT`HERITAGE LOOKSHY [u(cobj,chargen)]=Archery~2|Linguistics~3|Lore~2|Martial Arts~2|Melee~2|Performance~1|Presence~1|Ride~1|Stealth~1|War~2
+
+&DAT`3`FAVORED`QAESTOR [u(cobj,chargen)]=Integrity|Investigation|Socialize|Larceny|Bureaucracy
+&DAT`3`FAVORED`ECSTATIC [u(cobj,chargen)]=Athletics|Craft|Dodge|Performance|Socialize
+&DAT`3`FAVORED`MONOLITH [u(cobj,chargen)]=Presence|Survival|Investigation|Athletics|Resistance
+&DAT`3`FAVORED`JUGGERNAUT [u(cobj,chargen)]=Athletics|Presence|Resistance|Integrity|Martial Arts
+&DAT`3`FAVORED`DELUGE [u(cobj,chargen)]=Athletics|Survival|Sail|Investigation|Occult
+
+&CG`4 [u(cobj,chargen)]=[u(SEPARATOR,Step 4: Merits and Flaws)]%R[ansi(h,+help +merits)] to see how to set your Merits and Flaws. Make sure to give them descriptions and contexts as appropriate![if(cand(strlen(getclass(%#)),hasattr(%!/CG`4`[getclass(%#)])),%R%R%T[u(CG`4`[getclass(%#)])])]
+
+&CG`4`MORTAL [u(cobj,chargen)]=Mortals receive 7 dots to spend on Merits.
+&CG`4`SOLAR [u(cobj,chargen)]=Solars receive 10 dots to spend on merits.
+
+&MAX`MERITS`MORTAL [u(cobj,chargen)]=7
+&MAX`MERITS`SOLAR [u(cobj,chargen)]=10
+
+&5 [u(cobj,chargen)]=[u(SEPARATOR,Step 5: Charms and Other Powers)]%RThis room's contents change based on previous choices. If you want Martial Arts Charms you must buy the style, Evocations require an Artifact, etc.[if(cand(strlen(getclass(%#)),hasattr(%!/CG`5`[getclass(%#)])),%R%R[u(CG`5`[getclass(%#)])])]
+
+&MAX`CHARMS`MORTAL [u(cobj,chargen)]=0
+&MAX`CHARMS`SOLAR [u(cobj,chargen)]=15
+
+&CG`5`MORTAL [u(cobj,chargen)]=Mortals cannot learn Charms\, but may learn Sorcery up to the Terrestrial Circle.[if(cor(words(u(wildgrepi,%#,D`MERITS`*,TERRESTIAL CIRCLE SORCERY)),u(wildgrepi,%#,D`MERITS`*,SHAPING RITUAL)),%R%R[u(CG`5`SORCERY)])]
+&CG`5`SOLAR [u(cobj,chargen)]=Solars begin play with 15 Charms/Spells.%R%R[u(CG`5`NATIVECHARMS)][if(strmatch(Eclipse,u(getstat,%#,D`INFO,Caste)),%R%R[u(CG`5`OTHERCHARMS)])][if(strlen(get(%#/D`STYLES)),%R%R[u(CG`5`MACHARMS)])][if(words(u(wildgrepi,%#,D`MERITS`*,ARTIFACT)),%R%R[u(CG`5`EVOCATIONS)])][if(words(graball(get(%#/D`CHARMS`SOLAR`OCCULT),* CIRCLE SORCERY*,|,|),|),%R%R[u(CG`5`SORCERY)])]
+
+&CG`5`NATIVECHARMS [u(cobj,chargen)]=[ansi(h,+addcharm <category>=<charm1|charm2|charm3|etc>) to add native Charms.]%R[ansi(h,+delcharm <category>=<charm1|charm2|charm3|etc>)] to delete native Charms.%RCategories for your character type's Native Charms: [u(itemize,u(u(cobj,data)/FUN`GET`CHARMTYPES`[charmtype(%#)]),|,and,\,)]
+
+&CG`5`OTHERCHARMS [u(cobj,chargen)]=[ansi(h,+addocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to add Other Splat Charms.%R[ansi(h,+delocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to delete Other Splat Charms.
+
+&CG`5`MACHARMS [u(cobj,chargen)]=[ansi(h,+addmacharm <style>=<charm1|charm2|charm3|etc>)] to add Martial Arts Charms.%R[ansi(h,+delmacharm <style>=<charm1|charm2|charm3|etc>)] to delete Martial Arts Charms.
+
+&CG`5`EVOCATIONS [u(cobj,chargen)]=[ansi(h,+addevocation <artifact>=<charm1|charm2|charm3|etc>)] to add Evocation Charms.%R[ansi(h,+delevocation <artifact>=<charm1|charm2|charm3|etc>)] to delete Evocation Charms.
+
+&CG`5`SORCERY [u(cobj,chargen)]=[ansi(h,+addspell <circle>=<spell1|spell2|spell3|etc>)] to add Sorcery or Necromancy spells.%R[ansi(h,+delspell <circle>=<spell1|spell2|spell3|etc>] to delete Sorcery or Necromancy spells.%R(Prefix control spells with a + to mark them. Such as: +Stormwind Rider)
+
+&CG`5`ALCHEMICAL [u(cobj,chargen)]=ansi(h,+addproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc) to add Weaving Protocols.%R[ansi(h,+delproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc)] to delete Weaving Protocols.%R%R[ansi(h,+slots <type>=<number>)] to set Charm Slots.
+
+&CG`5`DRAGON-KING [u(cobj,chargen)]=ansi(h,+breedfavpath) to set your Breed Favored Paths%r[ansi(h,+path <path>=<value>)] to set how your Path points.%r%tYour choices are: [u(itemize,get(u(cobj,data)/VAR`PATHS),|,and,\,)]%r%R[ansi(h,+favpath <path>)] to set a Favored Path%r[ansi(h,+unfavpath <path>)] to remove a Favored Path
+
+&CG`5`SIDEREAL [u(cobj,chargen)]=ansi(h,+maidenfavcoll) to set your Caste Colleges.%R%T[ansi(h,+college <college>=<value>)] to set Astrology.%r%tYour choices are: [u(itemize,get(u(cobj,data)/VAR`COLLEGES),|,and,\,)]
+
+&CG`5`SPIRIT [u(cobj,chargen)]=Please consult with staff if designing a Spirit!
+
+@@ &CMD`+CASTEFAVOREDBREEDMAIDEN [u(cobj,chargen)]=$^\+(breedfavpath|maidenfavcoll)$:@check strlen(u(getstat,%#,D`INFO,Caste))=@attach %!/INC`MSG=You do not have a Caste set!;@check strlen(u(setr,newfavored,v(DAT`4`FAVORED`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]`[edit(u(getstat,%#,D`INFO,Caste),%B, )])))=@attach %!/INC`MSG=Your Caste does not have any listed Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)].;@attach %!/INC`MSG=You set your Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)] to those of the [ansi(h,u(getstat,%#,D`INFO,Caste))] Caste.;@cpattr me/D`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)] FAVORED=%#/D`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)] FAVORED
+
+&CMD`+CHARM [u(cobj,chargen)]=$^\+(add|del)charm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`CHARM=%#,charmtype(%#)/%2,%3;th u(setq,have,ansi(h,u(capnames,%q<find> %q<find2>)) Charms [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+CHARM=regexp
+
+&CMD`+OCHARM [u(cobj,chargen)]=$^\+(add|del)ocharm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`CHARM=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<find> %q<find2>)) Charms [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+OCHARM=regexp
+
+@@ &CMD`+FAVPATHCOLLEGE [u(cobj,chargen)]=$^\+(un)?fav(path|college)(?\: +(.+))?$:@check strlen(%3)=@attach %!/INC`MSG=Which [u(capnames,%2)] will you [if(strlen(%2),un-Favor,Favor)]?;@attach %!/INC`PARTIAL=%3,get(u(cobj,data)/VAR`[if(strmatch(%1,path),PATHS,COLLEGES)]),|,CHARGEN,choice,%2;@select/inline gt(strlen(%1),0)=1,{@check match(get(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)] FAVORED),%q<choice>,|)=@attach %!/INC`MSG=That [u(capnames,%2)] is not Favored!};th attrib set(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)] FAVORED,u(setr,new,set[if(strlen(%1),diff,union)](get(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)] FAVORED),%q<choice>,|,|)));@attach %!/INC`MSG=You now have [ansi(h,if(words(%q<new>,|),words(%q<new>,|),No))] Favored [u(capnames,%2)]s[if(words(%q<new>,|),:%B[ansi(h,u(itemize,%q<new>,|,and,\,))])]
+@set [u(cobj,chargen)]/CMD`+FAVPATHCOLLEGE=regexp
+
+&CMD`+MAGIC [u(cobj,chargen)]=$^\+(add|del)spell(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`SPELL=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<find>)) Spells [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+MAGIC=regexp
+
+&CMD`+MACHARM [u(cobj,chargen)]=$^\+(add|del)macharm(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`MACHARM=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<style>)) Charms [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+MACHARM=regexp
+
+&CMD`+EVOCATION [u(cobj,chargen)]=$^\+(add|del)evocation(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(cobj,data)/DO`%q<mode>`EVOCATION=%#,%2,%3;th u(setq,have,ansi(h,u(capnames,%q<style>)) Evocations [u(itemize,iter(%q<entry>,ansi(h,u(capnames,%i0)),|,|),|,and,\,)]);@attach %!/INC`MSG=You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
+@set [u(cobj,chargen)]/CMD`+EVOCATION=regexp
+
+@@ &CMD`+PATHCOLLEGE [u(cobj,chargen)]=$^\+(path|college)(?\: +(.+?))?(?\:=(.+?))?$:@check strlen(%2)=@attach %!/INC`MSG=What [u(capnames,%1)] will you set?;@attach %!/INC`PARTIAL=%2,get(u(cobj,data)/VAR`%1S),|,CHARGEN,choice,u(capnames,%1);@check and(not(lt(%3,0)),isint(%3))=@attach %!/INC`MSG=[u(capnames,%1)]s must be whole numbers 0 or greater!;@attach %!/INC`MSG=[if(%3,You set [ansi(h,u(capnames,%q<choice>))] to %3,You remove [ansi(h,u(capnames,%q<choice>))])].;th [if(%3,set,del)]stat(%#/D`%1S,u(capnames,%q<choice>),%3)
+@set [u(cobj,chargen)]/CMD`+PATHCOLLEGE=regexp
+
+@@ &CMD`+SLOTS [u(cobj,chargen)]=$^\+slots(?\: +(.+?))?(?\:=(.+?))?$:@check strlen(%1)=@attach %!/INC`MSG=What Slot will you set?;@attach %!/INC`PARTIAL=%1,get(u(cobj,data)/VAR`SLOTS),|,CHARGEN,choice,Slot;@check and(not(lt(%2,0)),isint(%2))=@attach %!/INC`MSG=Slots must be whole numbers 0 or greater!;@attach %!/INC`MSG=[if(%2,You set [ansi(h,u(capnames,%q<choice>))] to %2,You remove [ansi(h,u(capnames,%q<choice>))])];th [if(%2,set,del)]stat(%#/D`CHARM SLOTS,u(capnames,%q<choice>),%2)
+@set [u(cobj,chargen)]/CMD`+SLOTS=regexp
+
+@@ &CMD`+MAIDENFAVCOLL [u(cobj,chargen)]=$+maidenfavcoll:@check hasattr(u(cg)/DAT`4`FAVORED`COLLEGES`[u(setr,caste,u(getstat,%#,D`INFO,Caste))])=@attach %!/INC`MSG=ERROR: Your Caste has no In-House Colleges!;@attach %!/INC`MSG=You set your In-House Colleges to those of the Chosen of %q<caste>.;@cpattr u(cg)/DAT`4`FAVORED`COLLEGES`%q<caste>=%#/D`COLLEGES`FAVORED
+
+&DAT`4`FAVORED`COLLEGES`BATTLES [u(cobj,chargen)]=The Banner|The Gauntlet|The Quiver|The Shield|The Spear
+&DAT`4`FAVORED`COLLEGES`ENDINGS [u(cobj,chargen)]=The Corpse|The Crow|The Haywain|The Rising Smoke|The Sword
+&DAT`4`FAVORED`COLLEGES`JOURNEYS [u(cobj,chargen)]=The Captain|The Gull|The Mast|The Messenger|The Ship's Wheel
+&DAT`4`FAVORED`COLLEGES`SECRETS [u(cobj,chargen)]=The Guardians|The Key|The Mask|The Sorcerer|The Treasure Trove
+&DAT`4`FAVORED`COLLEGES`SERENITY [u(cobj,chargen)]=The Ewer|The Lovers|The Musician|The Peacok|The Pillar
+
+&DAT`4`FAVORED`PATHS`ANKLOK [u(cobj,chargen)]=Blazing Fire|Flickering Fire
+&DAT`4`FAVORED`PATHS`MOSOK [u(cobj,chargen)]=Flowing Water|Shimmering Water
+&DAT`4`FAVORED`PATHS`PTEROK [u(cobj,chargen)]=Celestial Air|Clear Air
+&DAT`4`FAVORED`PATHS`RAPTOK [u(cobj,chargen)]=Yielding Earth|Growing Wood
+
+&CG`6 [u(cobj,chargen)]=[u(SEPARATOR,Step 6: Finishing Touches)][if(cand(strlen(getclass(%#)),hasattr(%!/CG`6`[getclass(%#)])),%R[u(CG`6`[getclass(%#)])])]
+
+&CG`6`MORTAL [u(cobj,chargen)]=[u(CG`6`ESSENCE)]%RMortals begin with Essence 1.%R%R[u(CG`6`WILLPOWER)]%RMortals begin with 3 Willpower.%R%R[u(CG`6`INTIMACY)]%R%R[u(CG`6`HEALTH)]%R%R[u(CG`6`BGSTORY)]%R%R[u(CG`6`CHARGENXP)]%R%R[u(CG`6`FINISH)]
+&CG`6`SOLAR [u(cobj,chargen)]=[u(CG`6`ESSENCE)]%RSolars begin with Essence 1.%R%R[u(CG`6`WILLPOWER)]%RSolars begin with 5 Willpower.%R%R[u(CG`6`INTIMACY)]%R%R[u(CG`6`HEALTH)]%R%R[ansi(h,+info Trigger=<limit trigger>)] to set your Limit Trigger.%R%R[u(CG`6`BGSTORY)]%R%R[u(CG`6`CHARGENXP)]%R%R[u(CG`6`FINISH)]
+
+&CG`6`INTIMACY [u(cobj,chargen)]=[ansi(h,+help +intimacy)] for instructions on setting your Intimacies.%RChoose at least 4 intimacies. At least one must be Defining, one must be Major, one must be positive, one must be negative.
+&CG`6`HEALTH [u(cobj,chargen)]=[ansi(h,+hl <Health level list>)] to set your health levels. If you lack extra levels, use "+hl -0 -1 -1 -2 -2 -4 I". The system will sort for you if you goof!
+&CG`6`WILLPOWER [u(cobj,chargen)]=[ansi(h,+wp <value>)] to set your willpower.
+&CG`6`ESSENCE [u(cobj,chargen)]=[ansi(h,+ess <value>)] to set your Essence rating.
+&CG`6`BGSTORY [u(cobj,chargen)]=[ansi(h,+info BGStory=<story>)] to set your background story. A few paragraphs will do. The file has a limit of 4kb of text, use BGStory2, 3, etc, if necessary. \%R can linebreak, \%T indents. Readability counts!
+&CG`6`CHARGENXP [u(cobj,chargen)]=As mentioned in page 1, mark down how much XP you spent (and what on) in an +info using [ansi(h,+info Chargen=<description of XP spent>)]. Your +sheet should reflect the final result.
+&CG`6`FINISH [u(cobj,chargen)]=When complete, paste the following command to your client: %r%t[ansi(h,+request/apps Finished with chargen!=Look me over please!)]
+
+@@ &CMD`+BACKGROUNDS [u(cobj,chargen)]=$^\+(background|merit|flaw|posmutation|neumutation|negmutation|warmutation|ragemutation)(?\: (.+?))?(?\:=(.+?))?$:th u(setq,0,squish(%2),1,%3,2,switch(%1,background,backgrounds,merit,merits,flaw,flaws,posmutation,positive mutations,neumutation,neutral mutations,negmutation,negative mutations,warmutation,warform mutations,ragemutation,rage mutations,ERROR),3,switch(%1,background,Background,merit,Merit,flaw,Flaw,posmutation,Positive Mutation,neumutation,Neutral Mutation,negmutation,Negative Mutation,warmutation,Warform Mutation,ragemutation,By Rage Recast Mutation,ERROR));@check strlen(%q0)=@attach %!/INC`MSG=What %3 will you set?;@check and(not(lt(%q1,0)),isint(%q1))=@attach %!/INC`MSG=%3 must be whole numbers 0 or greater!;@attach %!/INC`MSG=[if(%q1,You set your %q0 %q3 to %q1,You remove your %q0 %q3)].;th [if(%q1,set,del)]stat(%#/D`%q2,%q0,%q1)
+@set [u(cobj,chargen)]/CMD`+BACKGROUNDS=regexp
+
+&CMD`+ESS [u(cobj,chargen)]=$+ess *:@attach u(cobj,data)/DO`SET`ESSENCE=%#,,%0;@attach %!/INC`MSG=You set your permanent Essence to %0.
+
+&CMD`+HL [u(cobj,chargen)]=$+hl *:@wipe %#/D`HEALTH;@attach u(cobj,data)/DO`ADD`HEALTH=%#,,%0;@attach %!/INC`MSG=You set your health level progression to '[get(%#/D`HEALTH)]'.
+
+@@ &CMD`+VIRTUES [u(cobj,chargen)]=$^\+(virtue|Grace)(?\: (.+?))?(?\:=(.+?))?$:@check strlen(%2)=@attach %!/INC`MSG=What [u(capnames,%1)] will you set?;@attach %!/INC`PARTIAL=%2,get(u(cobj,data)/VAR`[if(strmatch(%1,virtue),VIRTUES,GRACES)]),|,CHARGEN,choice,u(capnames,%1);@check and(not(lt(%3,0)),isint(%3))=@attach %!/INC`MSG=[u(capnames,%1)]s must be whole numbers 0 or greater!;@attach %!/INC`MSG=[if(%3,You set [ansi(h,u(capnames,%q<choice>))] to %3,You remove [ansi(h,u(capnames,%q<choice>))])].;th [if(%3,set,del)]stat(%#/D`[u(capnames,%1)]S,u(capnames,%q<choice>),%3)
+@set [u(cobj,chargen)]/CMD`+VIRTUES=regexp
+
+&CMD`+WP [u(cobj,chargen)]=$+wp *:@attach u(cobj,data)/DO`SET`WILLPOWER=%#,,%0;@attach %!/INC`MSG=You set your Willpower to %0.
+
+&CMD`+RESET [u(cobj,chargen)]=$^\+reset(?\: +(.*))?$:@check strlen(%1)=@attach %!/INC`MSG=What will you reset? Your options are: [u(itemize,ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,and,\,)];@attach %!/INC`PARTIAL=%1,ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,CHARGEN,choice,choice;@select/inline %q<choice>=ALL,{@attach %!/INC`VERIFY={[ansi(hr,WARNING:)] This will remove ALL data entered on your character. You will have to start over entirely from scratch. This will even remove your +info files! Are you sure? enter +reset all again to verify!},RESET ALL,CHARGEN;@dolist/inline setdiff(u(lattr,%#/D`*),D`XP D`INFOFILE D`ACCOUNT D`IPLOG)=@wipe %#/%i0;@attach %!/INC`MSG=You have reset back to square one!;@stop 1},SPLAT,{@wipe %#/D`INFO},THAUMATURGY,{@wipe %#/D`ARTS;@wipe %#/D`SCIENCES},MUTATIONS,{@wipe %#/D`* MUTATIONS},{@wipe %#/D`%q<choice>};@attach %!/INC`MSG=You have reset your %q<choice>!
+@set [u(cobj,chargen)]/CMD`+RESET=regexp
+
+
+
+
diff --git a/unfinished/storyteller/exalted3/Chargen Room.txt b/unfinished/storyteller/exalted3/Chargen Room.txt
deleted file mode 100644
index ee0f045..0000000
--- a/unfinished/storyteller/exalted3/Chargen Room.txt	
+++ /dev/null
@@ -1,287 +0,0 @@
-@@ DEPENDENCIES - CORE
-
-@select/inline isdbref(u(cg))=0,{@dig/teleport Chargen}
-@select/inline isdbref(u(cg))=0,{th attrib_set(u(coi)/cg,%l)}
-@parent u(cg)=u(coi)
-@set u(cg)=WIZARD !NO_COMMAND
-
-&CMD`+PAGE u(cg)=$^\+page(?\: +(.+))?$:@check strlen(%1)=@pemit %#=u(RFN`MSGHEAD) ERROR: +page requires a page to turn to. Your options are: [itemize(filterbool(#lambda/isnum(\%0),u(lattr,me/*,|),|,|),|,and,\,)];@check valnum(%1)=@pemit %#=u(RFN`MSGHEAD) ERROR: Pages must be whole, positive numbers.;@check match(filterbool(#lambda/isnum(\%0),u(lattr,me/*,|),|,|),%1,|)=@pemit %#=u(RFN`MSGHEAD) ERROR: Page not found!;th setstat(%#/D`CHARGEN,Page,%1);@force/inline %#=look;@pemit %#=u(RFN`MSGHEAD) You are now viewing Page %1!
-@set u(cg)/CMD`+PAGE=regexp
-
-&VAR`MSGHEAD u(cg)=CHARGEN
-&RFN`MSGHEAD u(cg)=msghead(v(VAR`MSGHEAD))
-&RFN`HEADER u(cg)=header(%0,,CHARGEN`BORDER,CHARGEN`BORDERDOT,CHARGEN`BORDERTEXT,1)
-&RFN`SEPARATOR u(cg)=separator(%0,,CHARGEN`BORDER,CHARGEN`BORDERDOT,CHARGEN`BORDERTEXT,1)
-&RFN`SUBHEADER u(cg)=subheader(%0,,CHARGEN`BORDER,CHARGEN`BORDERDOT,CHARGEN`BORDERTEXT,1)
-
-@desc u(cg)=%TWelcome to [mudname()] Chargen! In this room you will setup your sheet and other aspects and prepare for admin review for approval. Remember to check out any House Rules at [weblink(mudurl(),mudurl())]%R%R%TTo see your sheet, type [ansi(h,+sheet)]%R[u(strfirstof(getstat(%#/D`CHARGEN,Page),1),getsplat(%#))]%R[u(RFN`SEPARATOR,Chargen)]%RViewing Page [ansi(h,strfirstof(getstat(%#/D`CHARGEN,Page),1))] of [ansi(h,lmath(max,filterbool(#lambda/isnum(\%0),u(lattr,me/*))))]. Use [ansi(h,+page <number>)] to change. For example, +page 2.%RIf you'd like to undo certain steps, use [ansi(h,+reset)] to view your options.%R[u(FUN`STATS,%#)]
-
-&FUN`STATS u(cg)=[u(RFN`SEPARATOR,Progress)]%R[ansi(h,ATTRIBUTES:)] [rjust(u(FUN`COUNT,%#,ATTRIBUTES),2,0)]. Physical/Social/Mental: [rjust(add(getstat(%#/D`ATTRIBUTES,Strength),getstat(%#/D`ATTRIBUTES,Dexterity),getstat(%#/D`ATTRIBUTES,Stamina)),2,0)]/[rjust(add(getstat(%#/D`ATTRIBUTES,Charisma),getstat(%#/D`ATTRIBUTES,Manipulation),getstat(%#/D`ATTRIBUTES,Appearance)),2,0)]/[rjust(add(getstat(%#/D`ATTRIBUTES,Perception),getstat(%#/D`ATTRIBUTES,Intelligence),getstat(%#/D`ATTRIBUTES,Wits)),2,0)]%R[ansi(h,ABILITIES:)] [rjust(add(u(FUN`COUNT,%#,ABILITIES),u(FUN`COUNT,%#,STYLES),u(FUN`COUNT,%#,CRAFTS)),2,0)]/[rjust(strfirstof(v(MAX`ABILITIES`[u(setr,sph,getsplat(%#))]),??),2,0)]%R[ansi(h,MERITS:)] [rjust(u(FUN`COUNT`MERITS,%#),2,0)]/[rjust(strfirstof(v(MAX`MERITS`%q<sph>),??),2,0)]%R[ansi(h,CHARMS:)] [rjust(add(u(FUN`COUNT`CHARMS,%#),u(FUN`COUNT`SPELLS,%#)),2,0)]/[rjust(strfirstof(v(MAX`CHARMS`%q<sph>),??),2,0)]
-
-&FUN`COUNT u(cg)=lmath(add,iter(get(%0/D`%1),last(%i0,~),|,%b))
-&FUN`COUNT`MERITS u(Cg)=lmath(add,iter(u(lattr,%0/D`MERITS`*`RANK),get(%0/%i0)))
-&FUN`COUNT`CHARMS u(cg)=lmath(add,iter(u(lattr,%0/D`CHARMS`*`*),words(get(%0/%i0),|)))
-&FUN`COUNT`SPELLS u(cg)=lmath(add,iter(u(lattr,%0/D`SPELLS`*),words(get(%0/%i0),|)))
-
-&1 u(cg)=[u(RFN`SEPARATOR,Step 1: Concept and Caste)]%R[ansi(h,+splat <type>)]%R%TYour choices are: [itemize(get(u(ex-cdo)/VAR`SPLATS),|,and,\,)][if(strlen(getstat(%#/D`INFO,Splat)),%R%R[ansi(h,+caste <type>)] to set your [if(strmatch(getsplat(%#),Dragon-Blooded),Aspect,Caste)]%R%TYour choices are: [itemize(get(u(ex-cdo)/VAR`SPLATS`[getsplat(%#)]),|,and,\,)][if(hasattr(me/1`[getsplat(%#)]),%R%R[u(1`[getsplat(%#)])])])]%R%R[ansi(h,&sex me=<gender>)] to set your Gender (Male, Female, or None)%R%R[ansi(hr,IMPORTANT NOTES:)]%RWhen undergoing Chargen, you will be spending 30XP instead of 18BP using our house rules. Double check the rules at:%R[weblink(http://adreamingsea.com/wiki/index.php?title=Character_Creation)]%Rand%R[weblink(http://adreamingsea.com/wiki/index.php?title=Advancement)]%RAn +info file (see [ansi(h,+help +info)]) detailing how you spent this XP will be required to finish chargen. Set your sheet to what it would be with these points spent.
-
-&1`SOLAR u(cg)
-&1`LUNAR u(cg)=u(1`SOLAR)%R%R[ansi(h,+totem <animal>)] to set your Spirit Shape.
-&1`ABYSSAL u(cg)=ansi(h,+flawedvirtue <flaw>) to set your Flawed Virtue (MoEP: Abyssals)%ROR%R[ansi(h,+doom <doom>)] to set your Doom (Shards hack)%R%R[ansi(h,+liege <name>)] to set your Liege (or Renegade)
-&1`ALCHEMICAL u(cg)=ansi(h,+nation <name>)] to set your Nation.
-&1`INFERNAL u(cg)=ansi(h,+yozi <name>) to set your Favored Yozi.%R%R[ansi(h,+urge <archetype>)] to set your Urge model.%R%R[ansi(h,+intimacy/urge <urge>)] to set its specifics.
-&1`DRAGON-BLOODED u(cg)=ansi(h,+house <name>)] to set your dynastic house or equivalent.
-&1`RAKSHA u(cg)=ansi(h,+lure <virtue and condition>)] to set your Lure.
-&1`MORTAL u(cg)=Mortals have nothing race-specific to set!
-&1`JADEBORn u(cg)=This covers both Enlightened and Unenlightened!
-
-&CMD`+SPLAT u(cg)=$^\+splat(?\: +(.+))?$:@attach u(ex-cdo)/DO`SET`SPLAT=%#,,%1;@force/inline %#=look;@pemit %#=u(RFN`MSGHEAD) You are now a [ansi(h,capnames(%q<find>))].
-@set u(cg)/CMD`+SPLAT=regexp
-
-&CMD`+CASTE u(cg)=$^\+caste(?\: +(.+))?$:@attach u(ex-cdo)/DO`SET`CASTE=%#,,%1;@pemit %#=u(RFN`MSGHEAD) Your Caste is now [ansi(h,capnames(%q<find>))].
-@set u(cg)/CMD`+CASTE=regexp
-
-@@ &CMD`+POINTS u(cg)=$+points:@pemit %#=%r%tHouse Rules grants you experience points in place of Bonus Points to flesh out your character with. To spend these points, use the chargen rooms to set your sheet to what it will be after spending the points. Keep a record of where you spend each point and enter it into an +info when you're finished- "+info/set XP=6 for Appearance 3>4\%R4 on Sail 1->2...." Etc. Formatting with newlines with \%R and categorized lists are really appreciated. You may find it useful to design your character in a text file or the like before entering them in chargen, too. If designing a God-Blooded, please be sure and put how Inheritance is spent in an Inheritance Info file!;@select/inline gt(u(setr,diff,sub(u(u(wxc)/FUN`STARTING),u(u(xp)/FUN`COUNT,%#,G))),0)=0,{@pemit %#=You have already been awarded your starting points!},1,{@force/inline get(u(wxc)/VAR`FORCECHAR)=+xp/award %#=%q<diff>/Starting %q<diff> Points}
-@wipe u(cg)/CMD`+POINTS
-
-&CMD`INFOSET u(cg)=$^\+(flawedvirtue|doom|liege|lure|totem|urge|house|yozi|nation)(?\: +(.+))?$:th u(setq,type,switch(%1,flawedvirtue,Flawed Virtue,virtueflaw,Virtue Flaw,doom,Doom,liege,Liege,lure,Lure,totem,Totem Animal,urge,Urge,house,House,yozi,Favored Yozi,nation,Nation));@check strlen(%2)=@pemit %#=u(RFN`MSGHEAD) What will your %q<type> be?;@pemit %#=u(RFN`MSGHEAD) Your %q<type> is now [ansi(h,%2)]. Make sure this is appropriate for your Race!;th setstat(%#/D`INFO,%q<type>,%2)
-@set u(cg)/CMD`INFOSET=regexp
-
-&2 u(cg)=[u(RFN`SEPARATOR,Step 2: Attributes)]%R%tTo set an attribute:%r%r[ansi(h,%t+attr <attribute>=<value>)] (<attribute> may be a partial match. <value> must be 0 or greater.)%R%TYour choices are: [itemize(get(u(ex-cdo)/VAR`ATTRIBUTES),|,and,\,)]%R%R%TAll Attributes begin with 1 dot free, unless otherwise stated for your Splat.%r%r%tIn order of Primary/Secondary/Tertiary...[udefault(2`[getsplat(%#)],Your Splat appears unset or has no data entered.)]
-
-&2`MORTAL u(cg)=Mortals receive 6/4/3 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
-&2`SOLAR u(cg)=Solars receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
-&2`INFERNAL u(cg)=Infernals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
-&2`ABYSSAL u(cg)=Abyssals receive 8/6/4 Attribute points for Primary/Secondary/Social. Remember all Attributes begin at 1 before distributing these.
-
-&2`ALCHEMICAL u(cg)=Alchemicals receive 8 Attribute Points for their Caste Attributes, minimum 2 each, 6 Attribute points in their Favored Attributes, and 4 Attribute points to be used freely.%r%tIn addition they receive 1 extra point for a Caste or Favored Attribute.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
-&2`DRAGON-BLOODED u(cg)=Dragon-Blooded receive 8/6/4 Attribute Points.
-&2`DRAGON-KING u(cg)=Modern Dragon-Kings receive 7/5/4.%r%tAncient Dragon-Kings receive 8/6/5.
-&2`GHOST u(cg)=Ghosts receive 6/4/3 Attribute points. If converting from a living character, they retain existing ratings, and lose any Favored Attributes if they posessed them.
-&2`GOD-BLOODED u(cg)=God-Blooded receive 6/5/3 Attribute points. Half-Castes add 1 additional point wherever they wish.
-&2`JADEBORN u(cg)=Enlightened Jadeborn receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tUnenlightened Jadeborn receive 8/4/3 Attribute Points.
-&2`LUNAR u(cg)=Lunars receive 8/6/4 Attribute points, and may add 1 additional point to any Caste or Favored Attribute.%r%tTattooed Lunars receive 3 Caste Attributes and 1 Favored Attribute. Casteless Receive only 2 Favored Attributes.%r%r%t[ansi(h,+castefavattr)] to set your Caste Favored Attributes%r%t[ansi(h,+favattr <attribute>)] to set your Favored Attribute(s).%r%t[ansi(h,+unfavattr <attribute>)] to unset your Favored Attribute(s).
-
-&2`RAKSHA u(cg)=Noble Raksha receive 16/13/10, mininum 3 in each Attribute, maximum 7.%r%tCommoner Raksha begin with 0 in each Attribute, receive 10/7/4, and may not raise them above 4.
-&2`SIDEREAL u(cg)=Sidereals receive 8/6/4 Attribute points.
-
-&2`SPIRIT u(cg)=Spirits usually receive (Essence x3) + (Cult x3) + (Virtues x2) Attribute points. Please consult with staff if designing a Spirit!
-
-&CMD`+ATTR u(cg)=$^\+attr(?\: +(.+?))?(?\:=(.+))?$:@attach u(ex-cdo)/DO`SET`ATTRIBUTE=%#,%1,if(eq(%2,0),,%2);@pemit %#=u(RFN`MSGHEAD) You set [ansi(h,capnames(%q<find>))] to %2.
-@set u(cg)/CMD`+ATTR=regexp
-
-@@ &CMD`+CASTEFAVATTR u(cg)=$+castefavattr:@check strlen(getstat(%#/D`INFO,Caste))=@pemit %#=u(RFN`MSGHEAD) You do not have a Caste set!;@check match(ALCHEMICAL|LUNAR,getsplat(%#),|)=@pemit %#=u(RFN`MSGHEAD) Only Alchemical and Lunar Exalted may favor Attributes.;@check strlen(u(setr,newfavored,v(DAT`2`FAVORED`[edit(getstat(%#/D`INFO,Caste),%B,_)])))=@pemit %#=u(RFN`MSGHEAD) Your Caste does not have any listed Favored Attributes.;@pemit %#=u(RFN`MSGHEAD) You set your Favored Attributes to those of the [ansi(h,getstat(%#/D`INFO,Caste))] Caste.;th attrib_set(%#/D`ATTRIBUTES`FAVORED,setunion(get(%#/D`ATTRIBUTES`FAVORED),%q<newfavored>,|,|))
-
-@@ &CMD`+FAVATTR u(cg)=$^\+(un)?favattr(?\: +(.+))?$:@check strln(%2)=@pemit %#=u(RFN`MSGHEAD) Which Attribute will you [if(strlen(%1),un-Favor,Favor)]?;@attach u(CCS)/INC`PARTIAL=%2,get(u(ex-cdo)/VAR`ATTRIBUTES),|,CHARGEN,choice,Attribute;@select/inline t(strlen(%1))=1,{@check match(get(%#/D`ATTRIBUTES`FAVORED),%q<choice>,|)=@pemit %#=u(RFN`MSGHEAD) That Attribute is not Favored!};th attrib_set(%#/D`ATTRIBUTES`FAVORED,u(setr,new,set[if(strlen(%1),diff,union)](get(%#/D`ATTRIBUTES`FAVORED),capnames(%q<choice>),|,|)));@pemit %#=u(RFN`MSGHEAD) You now have [ansi(h,if(words(%q<new>,|),words(%q<new>,|),No))] Favored Attributes[if(words(%q<new>,|),:%B[ansi(h,itemize(%q<new>,|,and,\,))])]
-@set u(cg)/CMD`+FAVATTR=regexp
-
-&DAT`2`FAVORED`ADAMANT u(cg)=Strength|Appearance|Perception
-&DAT`2`FAVORED`CHANGING_MOON u(cg)=Charisma|Manipulation|Appearance
-&DAT`2`FAVORED`FULL_MOON u(cg)=Strength|Dexterity|Stamina
-&DAT`2`FAVORED`HALF_MOON u(cg)=Charisma|Perception|Intelligence
-&DAT`2`FAVORED`JADE u(cg)=Stamina|Charisma|Wits
-&DAT`2`FAVORED`MOONSILVER u(cg)=Dexterity|Appearance|Wits
-&DAT`2`FAVORED`NO_MOON u(cg)=Perception|Intelligence|Wits
-&DAT`2`FAVORED`ORICHALCUM u(cg)=Strength|Charisma|Intelligence
-&DAT`2`FAVORED`SOULSTEEL u(cg)=Stamina|Manipulation|Perception
-&DAT`2`FAVORED`STARMETAL u(cg)=Dexterity|Manipulation|Intelligence
-&DAT`2`FAVORED`WANING_MOON u(cg)=Dexterity|Manipulation|Wits
-&DAT`2`FAVORED`WAXING_MOON u(cg)=Charisma|Manipulation|Appearance
-
-&3 u(cg)=[u(RFN`SEPARATOR,Step 3: Abilities)]%R[if(and(strlen(getsplat(%#)),hasattr(me/3`[getsplat(%#)])),[u(3`[getsplat(%#)])])]%R%RSetting any stat to 0 will remove it.
-
-&3`MORTAL u(cg)=Mortals receive 28 Ability points.%R%r[u(3`ABILITY)]%R%r[u(3`CRAFT)]%R%r[u(3`STYLE)]
-&3`SOLAR u(cg)=Solars receive 5 Caste Abilities and 5 Favored Abilities.%RSolars may choose 1 Caste Ability as Supernal.%rSolars receive 28 ability points, minimum 10 among Caste and Favored Abilities, and receive 4 Specialty points.%R%R[u(3`ABILITY)]%r%r[u(3`FAVORED)]%R%r[u(3`SUPERNAL)]%R%r[u(3`CRAFT)]%R%r[u(3`STYLE)]
-
-&3`ABILITY u(cg)=%t[ansi(h,+abil <ability>=<value>)] to set an Ability (<Ability> may be a partial match, <value> must be a number 0 or higher.)%R%t[ansi(h,+spec <ability or attribute>/<specialization>=<points>)] to set a Specialty. (Set to 1, no higher.)%R%TYour Ability choices are: [itemize(capnames(setdiff(u(u(ex-cdo)/FUN`GET`ABILITIES),CRAFT,|,i,|)),|,and,\,)]
-
-&3`FAVORED u(cg)=%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored (also use this for Caste ones).%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored/Caste Ability.%R%TSetting "Craft" or "Martial Arts" Favored automatically favors all Crafts/Styles, respectively.
-
-&3`SUPERNAL u(cg)=%t[ansi(h,+supabil <Ability>)] to set an Ability as Supernal.%r%t[ansi(h,+unsupabil <ability>)] to unset a Supernal Ability.
-
-&3`STYLE u(cg)=%T[ansi(h,+style <style>=<value>)] to set points in a Martial Arts style.%R%TYour Style choices are: [itemize(capnames(u(u(ex-cdo)/FUN`GET`STYLES)),|,and,\,)]
-
-&3`CRAFT u(cg)=%T[ansi(h,+craft <field>=<value>)] to set points in various Crafts, such as Weaponry or Carpentry.
-
-&3`ABYSSAL u(cg)=Abyssals note their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tAbyssals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-
-&3`INFERNAL u(cg)=Infernals receive their 5 Caste Abilities, and choose 5 Favored Abilities.%r%tInfernals receive 28 ability points, minimum 10 among caste and favored, and receive 4 Specialty points.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-
-&3`ALCHEMICAL u(cg)=Alchemicals receive 25 ability points and 4 Specialty points. In our House Rules they may also favor 3 Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`DRAGON-BLOODED u(cg)=Dragon-Blooded note their 5 Aspect Abilities, and choose 3 Favored Abilities.%r%tOutcastes receive 25 Ability Points, while Lookshy and Dynasts receive 35. All Dragon-Blooded receive 4 Specialty points.%r%t[ansi(h,+heritage <Dynast/Lookshy/Outcaste>)] to set additional Ability info. A Dragon-Blood must have this many points in each heritage Ability.%r%r%t[ansi(h,+castefavored)] to set your Aspect Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`DRAGON-KING u(cg)=Dragon-Kings receive 3 Breed Abilities, and choose 5 Favored Abilities.%r%tModern Dragon-Kings receive 25 and Ancient Dragon-Kings receive 35 Ability Points, minimum 10 among Breed or Favored Abilities.%r%r%t[ansi(h,+castefavored)] to set your Breed Abilities.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`GHOST u(cg)=Ghosts receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%tPlayer characters converting to Ghosts retain their old ratings, but not Caste/Favored/Auspicious Abilities, and must pick just 1.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`GOD-BLOODED u(cg)=God-Blooded receive 25 Ability points, and 1 Favored Ability. No Ability may exceed their Favored Ability.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`JADEBORN u(cg)=All Jadeborn receive Craft as Favored, and choose 5 other Favored Abilities.%r%tEnlightened Jadeborn receive 35 Ability points, minimum 10 among Favored.%r%tEnlightened Jadeborn may use Bonus XP to raise Abilities as high as 6 at Chargen.%r%tArtisans must have Awareness 1, Bureaucracy 2, Linguistics 2 (High Realm, Old Realm), Lore 2, Martial Arts or Melee 1, Occult 2, Performance or Presence 1, Socialize 2, and 2 points divided amongst Craft abilities.%r%r%tUnenlightened Jadeborn receive 22 Ability Points, minimum 14 among Favored and minimum 1 each.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`LUNAR u(cg)=Lunars receive 25 ability points, and receive 4 Specialty points.%r%tLunars always Favor Survival, and may choose one additional Favored Ability.%r%tSilver Pact Lunars must have Survival 2, and at least point in Archery, Melee, Martial_Arts, or Thrown.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`MAIN u(cg)=Please return to the first room and set your race!
-&3`RAKSHA u(cg)=Noble Raksha choose 5 Caste Abilities from the 10 associated with their Ascendant and Shadowed Castes, and may select 3 Additional Favored Abilities.%r%tThey receive 1 point in all Caste Abilities, and 2 point in all Favored Abilities free. They also receive 25 Ability points and 3 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%tIn addition to Caste Abilities, Commoner Raksha may select 1 Favored Ability or convert a Caste Ability into a Favored Ability.%r%tThey receive 1 free point in each Caste Ability and 2 free points in their Favored Ability, non-cumulative if upgrading a Caste Ability. They also receive 25 Ability points and 5 Specialty points to be used as they see fit.%r%t(Cannot use Chargen Ability points or Bonus XP to raise Favored Abilities above 5, Caste abilities above 4, or other Abilities above 3.)%r%r%t[ljust(Diplomat:,14)] Linguistics, Occult, Ride, Socialize, Thrown%r%t[ljust(Entertainer:,14)] Investigation, Larceny, Medicine, Performance, Stealth%r%t[ljust(Warrior:,14)] Archery, Martial Arts, Melee, Presence, War%r%t[ljust(Worker:,14)] Bureaucracy, Craft, Integrity, Lore, Resistance%r%t[ljust(Guide:,14)] Athletics, Awareness, Dodge, Sail, Survival%r%r%tRaksha must set all Caste and Favored Abilities manually.%r%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`SIDEREAL u(cg)=Sidereals receive 5 Auspicious Abilities and 4 Favored Abilities.%r%tRonin Sidereals receive 25 Ability Points, minimum 10 among Auspicious and Favored Abilities, and 4 Specialty points.%r%tMembers of the Bureau of Destiny receive 35 Ability Points, minimum 15 among Auspicious and Favored Abilities, and 4 Specialty points..%r%r%tBureau of Destiny members require minimum ratings of the following by Caste due to training:%r%tALL must have Awareness 2, Bureaucracy 2, Linguistics 1 (Old Realm), Lore 3, Martial Arts 2, Occult 2, Socialize 1, Stealth 1, and at least 1 in Archery, Melee, or Thrown.%r%tChosen of Journeys must have Athletics 2, Linguistics 2 (Old Realm + an appropriate additional language), Resistance 2, Survival 2, and Ride or Sail 2%r%tChosen of Serenity must have Craft or Performance 2, Linguistics 2 (eloquence), Medicine 2, Presence 2, and Socialize 3%r%tChosen of Battles must have Archery or Melee 3, Athletics 2, Dodge 2, Presence 2, and War 2%r%tChosen of Secrets must have Awareness 2, Investigation 3, Larceny 2, Socialize 2, and Stealth 2%r%tChosen of Endings must have Awareness 2, Dodge 2, Integrity 2, Martial Arts 3, and Stealth 2%r%r%t[ansi(h,+castefavored)] to set your Auspicious Abilities.%r%t[ansi(h,+favabil <Ability>)] to set an Ability as Favored.%r%t[ansi(h,+unfavabil <ability>)] to unset a Favored Ability.
-&3`SPIRIT u(cg)=Please consult with staff if designing a Spirit!
-
-&CMD`+ABIL u(cg)=$^\+abil(?\: +(.+?))?(?\:=(.+))?$:@attach u(ex-cdo)/DO`SET`ABILITY=%#,%1,if(eq(%2,0),,%2);@pemit %#=u(RFN`MSGHEAD) [if(%2,You set [ansi(h,capnames(%q<find>))] to %2,You remove [ansi(h,capnames(%q<find>))])]. You have spent [ansi(h,lmath(add,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
-@set u(cg)/CMD`+ABIL=regexp
-
-&CMD`+STYLES u(cg)=$^\+style(?\: +(.+?))?(?\:=(.+))?$:@attach u(ex-cdo)/DO`SET`STYLES=%#,%1,if(eq(%2,0),,%2);@pemit %#=u(RFN`MSGHEAD) [if(%2,You set [ansi(h,capnames(%q<find>))] to %2,You remove [ansi(h,capnames(%q<find>))])]. You have spent [ansi(h,lmath(add,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
-@set u(cg)/CMD`+STYLES=regexp
-
-&CMD`+CRAFT u(cg)=$^\+craft(?\: +(.+?))?(?\:=(.+))?$:@attach u(ex-cdo)/DO`SET`CRAFTS=%#,%1,if(eq(%2,0),,%2);@pemit %#=u(RFN`MSGHEAD) [if(%2,You set [ansi(h,capnames(%q<find>))] to %2,You remove [ansi(h,capnames(%q<find>))])]. You have spent [ansi(h,lmath(add,iter(setunion(get(%#/D`CRAFTS),setunion(get(%#/D`ABILITIES),get(%#/D`STYLES),|,i,|),|,i,|),last(%i0,~),|)))] Ability dots!
-@set u(cg)/CMD`+CRAFT=regexp
-
-&CMD`+FAVABIL u(cg)=$^\+(un)?(fav|sup)abil(?\: +(.+))?$:th switch(%1,un,u(setq,mode,rem),u(setq,mode,add));th u(setq,mode2,switch(%2,fav,FAVORED,sup,SUPERNAL));@attach u(ex-cdo)/DO`%q<mode>`%q<mode2>=%#,ABILITIES,%3;@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,add,now,no longer)] [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favor [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]. Current [switch(%q<mode2>,SUPERNAL,Supernal Ability,Ability)] Favors: [words(get(%#/D`%q<mode2>`ABILITIES),|)]
-@set u(cg)/CMD`+FAVABIL=regexp
-
-@@ &CMD`+CASTEFAVORED u(cg)=$+castefavored:@check strlen(getstat(%#/D`INFO,Caste))=@pemit %#=You do not have a Caste set!;@check strlen(u(setr,newfavored,unique(iter(v(DAT`3`FAVORED`[edit(getstat(%#/D`INFO,Caste),%B,_)]),capnames(%i0),|,|),i,|,|)))=@pemit %#=Your Caste does not have any listed Favored Abilities.;@pemit %#=You set your Favored Abilities to those of the [ansi(h,getstat(%#/D`INFO,Caste))] Caste.;th attrib_set(%#/D`ABILITIES`FAVORED,setunion(get(%#/D`ABILITIES`FAVORED),%q<newfavored>,|,|))
-
-@@ &CMD`+HERITAGE u(cg)=$^\+heritage(?\: +(.+))?$:@check strlen(%1)=@pemit %#=u(RFN`MSGHEAD) Are you a Dynast, Lookshy, or Outcaste Dragon-Blooded?;@attach u(ccs)/INC`PARTIAL=%1,DYNAST|LOOKSHY|OUTCASTE,|,CHARGEN,choice,Heritage;@select/inline %q<choice>=dynast,{@pemit %#=u(RFN`MSGHEAD) You set your base skills as a Dynast-raised Dragon-blood. You have 35 points in total to spend, but you cannot lower these base skills below their current level, and you must spend at least 13 points in Favored abilities. If you don't have at least 2 dots in each of these baseline skills, you're likely considered embarassingly inept by your family.;@cpattr me/DAT`HERITAGE_DYNAST=%#/D`ABILITIES;th setstat(%#/D`INFO,Heritage,capnames(%q<choice>))},lookshy,{@pemit %#=u(RFN`MSGHEAD) You set your base skills as a Lookshy-raised Dragon-blood. You have 35 points in total to spend, but you must spend at least 13 on favored skills and you cannot lower the current skills below their present level. What "+sheet" gives now is a minimally-competent Lookshy Dragonblood.;@cpattr me/DAT`HERITAGE_LOOKSHY=%#/D`ABILITIES;th setstat(%#/D`INFO,Heritage,capnames(%1))},outcaste,{@pemit %#=u(RFN`MSGHEAD) You mark yourself as a Dragon-blood raised outside of the conventional structures of the Realm or Lookshy. While this gives you more freedom in how to spend your ability points, it also gives you fewer points to spend. You have 25 ability points and must spend 13 of them on Favored abilities.;&d`abilities %#;th setstat(%#/D`INFO,Heritage,capnames(%q<choice>))},{@pemit %#=u(RFN`MSGHEAD) Your choices for Dragon-Blooded heritage are Dynast, Lookshy, and Outcaste.}
-@set u(cg)/CMD`+HERITAGE=regexp
-
-&CMD`+SPEC u(cg)=$^\+spec(?\: +(.+?))?(?\:=(.+))?$:@attach u(ex-cdo)/DO`SET`SPECIALTY=%#,%1,if(eq(%2,0),,%2);@select/inline t(%2)=1,{@pemit %#=u(RFN`MSGHEAD) You set [ansi(h,capnames(%q<find>/%q<spec>))] to [ansi(h,%2)]},0,{@pemit %#=u(RFN`MSGHEAD) You remove [ansi(h,capnames(%q<find>/%q<spec>))]}
-@set u(cg)/CMD`+SPEC=regexp
-
-&DAT`3`FAVORED`DAWN u(cg)=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
-&DAT`3`FAVORED`ZENITH u(cg)=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
-&DAT`3`FAVORED`TWILIGHT u(cg)=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
-&DAT`3`FAVORED`NIGHT u(cg)=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
-&DAT`3`FAVORED`ECLIPSE u(cg)=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
-
-&DAT`3`FAVORED`DUSK u(cg)=ARCHERY|AWARENESS|BRAWL|DODGE|MELEE|RESISTANCE|THROWN|WAR
-&DAT`3`FAVORED`MIDNIGHT u(cg)=ATHLETICS|INTEGRITY|PERFORMANCE|LORE|PRESENCE|RESISTANCE|SURVIVAL|WAR
-&DAT`3`FAVORED`DAYBREAK u(cg)=BUREAUCRACY|CRAFT|INTEGRITY|INVESTIGATION|LINGUISTICS|LORE|MEDICINE|OCCULT
-&DAT`3`FAVORED`DAY u(cg)=ATHLETICS|AWARENESS|DODGE|INVESTIGATION|LARCENY|RIDE|STEALTH|SOCIALIZE
-&DAT`3`FAVORED`MOONSHADOW u(cg)=BUREAUCRACY|LARCENY|LINGUISTICS|OCCULT|PRESENCE|RIDE|SAIL|SOCIALIZE
-
-&DAT`3`FAVORED`AIR u(cg)=Linguistics|Lore|Occult|Stealth|Thrown
-&DAT`3`FAVORED`ANKLOK u(cg)=Resistance|Survival|War
-&DAT`3`FAVORED`BATTLES u(cg)=Archery|Athletics|Melee|Presence|War
-&DAT`3`FAVORED`DEFILER u(cg)=Craft|Investigation|Lore|Medicine|Occult
-&DAT`3`FAVORED`EARTH u(cg)=Craft|Integrity|Resistance|War|Awareness
-&DAT`3`FAVORED`ENDINGS u(cg)=Awareness|Bureaucracy|Integrity|Martial_Arts|Medicine
-&DAT`3`FAVORED`FIEND u(cg)=Bureaucracy|Linguistics|Ride|Sail|Socialize
-&DAT`3`FAVORED`FIRE u(cg)=Athletics|Dodge|Melee|Presence|Socialize
-&DAT`3`FAVORED`JADE u(cg)=Stamina|Charisma|Wits
-&DAT`3`FAVORED`JOURNEYS u(cg)=Resistance|Ride|Sail|Survival|Thrown
-&DAT`3`FAVORED`MALEFACTOR u(cg)=Integrity|Performance|Presence|Resistance|Survival
-&DAT`3`FAVORED`MOSOK u(cg)=Brawl|Larceny|Survival
-&DAT`3`FAVORED`PTEROK u(cg)=Athletics|Lore|Occult
-&DAT`3`FAVORED`RAPTOK u(cg)=Craft|Socialize|Linguistics
-&DAT`3`FAVORED`SCOURGE u(cg)=Athletics|Awareness|Dodge|Larceny|Stealth
-&DAT`3`FAVORED`SECRETS u(cg)=Investigation|Larceny|Lore|Occult|Stealth
-&DAT`3`FAVORED`SERENITY u(cg)=Craft|Dodge|Linguistics|Performance|Socialize
-&DAT`3`FAVORED`SLAYER u(cg)=Archery|Martial_Arts|Melee|Thrown|War
-&DAT`3`FAVORED`WATER u(cg)=Bureaucracy|Investigation|Larceny|Martial_Arts|Sail
-&DAT`3`FAVORED`WOOD u(cg)=Archery|Medicine|Performance|Ride|Survival
-
-&DAT`HERITAGE_DYNAST u(cg)=Archery~1|Lore~2|Martial_Arts~1|Melee~1|Performance~1|Presence~1|Ride~1|Socialize~2|War~1
-&DAT`HERITAGE_LOOKSHY u(cg)=Archery~2|Linguistics~3|Lore~2|Martial_Arts~2|Melee~2|Performance~1|Presence~1|Ride~1|Stealth~1|War~2
-
-&DAT`3`FAVORED`QAESTOR u(cg)=Integrity|Investigation|Socialize|Larceny|Bureaucracy
-&DAT`3`FAVORED`ECSTATIC u(cg)=Athletics|Craft|Dodge|Performance|Socialize
-&DAT`3`FAVORED`MONOLITH u(cg)=Presence|Survival|Investigation|Athletics|Resistance
-&DAT`3`FAVORED`JUGGERNAUT u(cg)=Athletics|Presence|Resistance|Integrity|Martial_Arts
-&DAT`3`FAVORED`DELUGE u(cg)=Athletics|Survival|Sail|Investigation|Occult
-
-&4 u(cg)=[u(RFN`SEPARATOR,Step 4: Merits and Flaws)]%R[ansi(h,+help +merits)] to see how to set your Merits and Flaws. Make sure to give them descriptions and contexts as appropriate![if(and(strlen(getsplat(%#)),hasattr(me/4`[getsplat(%#)])),%R%R%T[u(4`[getsplat(%#)])])]
-
-&4`MORTAL u(cg)=Mortals receive 7 dots to spend on Merits.
-&4`SOLAR u(cg)=Solars receive 10 dots to spend on merits.
-
-&MAX`MERITS`MORTAL u(cg)=7
-&MAX`MERITS`SOLAR u(cg)=10
-
-&5 u(cg)=[u(RFN`SEPARATOR,Step 5: Charms and Other Powers)]%RThis room's contents change based on previous choices. If you want Martial Arts Charms you must buy the style, Evocations require an Artifact, etc.[if(and(strlen(getsplat(%#)),hasattr(me/5`[getsplat(%#)])),%R%R[u(5`[getsplat(%#)])])]
-
-&MAX`CHARMS`MORTAL u(cg)=0
-&MAX`CHARMS`SOLAR u(cg)=15
-
-&5`MORTAL u(cg)=Mortals cannot learn Charms, but may learn Sorcery up to the Terrestrial Circle.[if(cor(words(wildgrepi(%#,D`MERITS`*,TERRESTIAL CIRCLE SORCERY)),wildgrepi(%#,D`MERITS`*,SHAPING RITUAL)),%R%R[u(5`SORCERY)])]
-&5`SOLAR u(cg)=Solars begin play with 15 Charms/Spells.%R%R[u(5`NATIVECHARMS)][if(strmatch(Eclipse,getstat(%#/D`INFO,Caste)),%R%R[u(5`OTHERCHARMS)])][if(strlen(get(%#/D`STYLES)),%R%R[u(5`MACHARMS)])][if(words(wildgrepi(%#,D`MERITS`*,ARTIFACT)),%R%R[u(5`EVOCATIONS)])][if(words(graball(get(%#/D`CHARMS`SOLAR`OCCULT),* CIRCLE SORCERY,|,|),|),%R%R[u(5`SORCERY)])]
-
-&5`NATIVECHARMS u(cg)=[ansi(h,+addcharm <category>=<charm1|charm2|charm3|etc>) to add native Charms.]%R[ansi(h,+delcharm <category>=<charm1|charm2|charm3|etc>)] to delete native Charms.%RCategories for your character type's Native Charms: [itemize(u(u(ex-cdo)/FUN`GET`CHARMTYPES`[charmtype(%#)]),|,and,\,)]
-
-&5`OTHERCHARMS u(cg)=[ansi(h,+addocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to add Other Splat Charms.%R[ansi(h,+delocharm <splat>/<category>=<charm1|charm2|charm3|etc>)] to delete Other Splat Charms.
-
-&5`MACHARMS u(cg)=[ansi(h,+addmacharm <style>=<charm1|charm2|charm3|etc>)] to add Martial Arts Charms.%R[ansi(h,+delmacharm <style>=<charm1|charm2|charm3|etc>)] to delete Martial Arts Charms.
-
-&5`EVOCATIONS u(cg)=[ansi(h,+addevocation <artifact>=<charm1|charm2|charm3|etc>)] to add Evocation Charms.%R[ansi(h,+delevocation <artifact>=<charm1|charm2|charm3|etc>)] to delete Evocation Charms.
-
-&5`SORCERY u(cg)=[ansi(h,+addspell <circle>=<spell1|spell2|spell3|etc>)] to add Sorcery or Necromancy spells.%R[ansi(h,+delspell <circle>=<spell1|spell2|spell3|etc>] to delete Sorcery or Necromancy spells.%R(Prefix control spells with a + to mark them. Such as: +Stormwind Rider)
-
-&5`ALCHEMICAL u(cg)=ansi(h,+addproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc) to add Weaving Protocols.%R[ansi(h,+delproto <tier>=<protocol1>|<protocol2>|<protocol3>|etc)] to delete Weaving Protocols.%R%R[ansi(h,+slots <type>=<number>)] to set Charm Slots.
-
-&5`DRAGON-KING u(cg)=ansi(h,+breedfavpath) to set your Breed Favored Paths%r[ansi(h,+path <path>=<value>)] to set how your Path points.%r%tYour choices are: [itemize(get(u(ex-cdo)/VAR`PATHS),|,and,\,)]%r%R[ansi(h,+favpath <path>)] to set a Favored Path%r[ansi(h,+unfavpath <path>)] to remove a Favored Path
-
-&5`SIDEREAL u(cg)=ansi(h,+maidenfavcoll) to set your Caste Colleges.%R%T[ansi(h,+college <college>=<value>)] to set Astrology.%r%tYour choices are: [itemize(get(u(ex-cdo)/VAR`COLLEGES),|,and,\,)]
-
-&5`SPIRIT u(cg)=Please consult with staff if designing a Spirit!
-
-@@ &CMD`+CASTEFAVOREDBREEDMAIDEN u(cg)=$^\+(breedfavpath|maidenfavcoll)$:@check strlen(getstat(%#/D`INFO,Caste))=@pemit %#=u(RFN`MSGHEAD) You do not have a Caste set!;@check strlen(u(setr,newfavored,v(DAT`4`FAVORED`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]`[edit(getstat(%#/D`INFO,Caste),%B,_)])))=@pemit %#=u(RFN`MSGHEAD) Your Caste does not have any listed Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)].;@pemit %#=u(RFN`MSGHEAD) You set your Favored [if(strmatch(%1,breedfavpath),Paths,Colleges)] to those of the [ansi(h,getstat(%#/D`INFO,Caste))] Caste.;@cpattr me/D`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]_FAVORED=%#/D`[if(strmatch(%1,breedfavpath),PATHS,COLLEGES)]_FAVORED
-
-&CMD`+CHARM u(cg)=$^\+(add|del)charm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(ex-cdo)/DO`%q<mode>`CHARM=%#,charmtype(%#)/%2,%3;th u(setq,have,ansi(h,capnames(%q<find> %q<find2>)) Charms [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]);@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
-@set u(cg)/CMD`+CHARM=regexp
-
-&CMD`+OCHARM u(cg)=$^\+(add|del)ocharm(?\: +(.+?))?(?\:=(.+?))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(ex-cdo)/DO`%q<mode>`CHARM=%#,%2,%3;th u(setq,have,ansi(h,capnames(%q<find> %q<find2>)) Charms [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]);@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
-@set u(cg)/CMD`+OCHARM=regexp
-
-@@ &CMD`+FAVPATHCOLLEGE u(cg)=$^\+(un)?fav(path|college)(?\: +(.+))?$:@check strlen(%3)=@pemit %#=u(RFN`MSGHEAD) Which [capnames(%2)] will you [if(strlen(%2),un-Favor,Favor)]?;@attach u(ccs)/INC`PARTIAL=%3,get(u(ex-cdo)/VAR`[if(strmatch(%1,path),PATHS,COLLEGES)]),|,CHARGEN,choice,%2;@select/inline gt(strlen(%1),0)=1,{@check match(get(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)]_FAVORED),%q<choice>,|)=@pemit %#=u(RFN`MSGHEAD) That [capnames(%2)] is not Favored!};th attrib_set(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)]_FAVORED,u(setr,new,set[if(strlen(%1),diff,union)](get(%#/D`[if(strmatch(%2,path),PATHS,COLLEGES)]_FAVORED),%q<choice>,|,|)));@pemit %#=u(RFN`MSGHEAD) You now have [ansi(h,if(words(%q<new>,|),words(%q<new>,|),No))] Favored [capnames(%2)]s[if(words(%q<new>,|),:%B[ansi(h,itemize(%q<new>,|,and,\,))])]
-@set u(cg)/CMD`+FAVPATHCOLLEGE=regexp
-
-&CMD`+MAGIC u(cg)=$^\+(add|del)spell(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(ex-cdo)/DO`%q<mode>`SPELL=%#,%2,%3;th u(setq,have,ansi(h,capnames(%q<find>)) Spells [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]);@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
-@set u(cg)/CMD`+MAGIC=regexp
-
-&CMD`+MACHARM u(cg)=$^\+(add|del)macharm(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(ex-cdo)/DO`%q<mode>`MACHARM=%#,%2,%3;th u(setq,have,ansi(h,capnames(%q<style>)) Charms [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]);@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
-@set u(cg)/CMD`+MACHARM=regexp
-
-&CMD`+EVOCATION u(cg)=$^\+(add|del)evocation(?\: +(.+?))?(?\:=(.+))?$:th u(setq,mode,switch(%1,add,ADD,del,REM));@attach u(ex-cdo)/DO`%q<mode>`EVOCATION=%#,%2,%3;th u(setq,have,ansi(h,capnames(%q<style>)) Evocations [itemize(iter(%q<entry>,ansi(h,capnames(%i0)),|,|),|,and,\,)]);@pemit %#=u(RFN`MSGHEAD) You [switch(%q<mode>,ADD,now have,REM,no longer have)] the %q<have>
-@set u(cg)/CMD`+EVOCATION=regexp
-
-@@ &CMD`+PATHCOLLEGE u(cg)=$^\+(path|college)(?\: +(.+?))?(?\:=(.+?))?$:@check strlen(%2)=@pemit %#=u(RFN`MSGHEAD) What [capnames(%1)] will you set?;@attach u(ccs)/INC`PARTIAL=%2,get(u(ex-cdo)/VAR`%1S),|,CHARGEN,choice,capnames(%1);@check and(not(lt(%3,0)),isint(%3))=@pemit %#=u(RFN`MSGHEAD) [capnames(%1)]s must be whole numbers 0 or greater!;@pemit %#=u(RFN`MSGHEAD) [if(%3,You set [ansi(h,capnames(%q<choice>))] to %3,You remove [ansi(h,capnames(%q<choice>))])].;th [if(%3,set,del)]stat(%#/D`%1S,capnames(%q<choice>),%3)
-@set u(cg)/CMD`+PATHCOLLEGE=regexp
-
-@@ &CMD`+SLOTS u(cg)=$^\+slots(?\: +(.+?))?(?\:=(.+?))?$:@check strlen(%1)=@pemit %#=u(RFN`MSGHEAD) What Slot will you set?;@attach u(ccs)/INC`PARTIAL=%1,get(u(ex-cdo)/VAR`SLOTS),|,CHARGEN,choice,Slot;@check and(not(lt(%2,0)),isint(%2))=@pemit %#=u(RFN`MSGHEAD) Slots must be whole numbers 0 or greater!;@pemit %#=u(RFN`MSGHEAD) [if(%2,You set [ansi(h,capnames(%q<choice>))] to %2,You remove [ansi(h,capnames(%q<choice>))])];th [if(%2,set,del)]stat(%#/D`CHARM_SLOTS,capnames(%q<choice>),%2)
-@set u(cg)/CMD`+SLOTS=regexp
-
-@@ &CMD`+MAIDENFAVCOLL u(cg)=$+maidenfavcoll:@check hasattr(u(cg)/DAT`4`FAVORED`COLLEGES`[u(setr,caste,getstat(%#/D`INFO,Caste))])=@pemit %#=u(RFN`MSGHEAD) ERROR: Your Caste has no In-House Colleges!;@pemit %#=u(RFN`MSGHEAD) You set your In-House Colleges to those of the Chosen of %q<caste>.;@cpattr u(cg)/DAT`4`FAVORED`COLLEGES`%q<caste>=%#/D`COLLEGES`FAVORED
-
-&DAT`4`FAVORED`COLLEGES`BATTLES u(cg)=The_Banner|The_Gauntlet|The_Quiver|The_Shield|The_Spear
-&DAT`4`FAVORED`COLLEGES`ENDINGS u(cg)=The_Corpse|The_Crow|The_Haywain|The_Rising_Smoke|The_Sword
-&DAT`4`FAVORED`COLLEGES`JOURNEYS u(cg)=The_Captain|The_Gull|The_Mast|The_Messenger|The_Ship's_Wheel
-&DAT`4`FAVORED`COLLEGES`SECRETS u(cg)=The_Guardians|The_Key|The_Mask|The_Sorcerer|The_Treasure_Trove
-&DAT`4`FAVORED`COLLEGES`SERENITY u(cg)=The_Ewer|The_Lovers|The_Musician|The_Peacok|The_Pillar
-
-&DAT`4`FAVORED`PATHS`ANKLOK u(cg)=Blazing_Fire|Flickering_Fire
-&DAT`4`FAVORED`PATHS`MOSOK u(cg)=Flowing_Water|Shimmering_Water
-&DAT`4`FAVORED`PATHS`PTEROK u(cg)=Celestial_Air|Clear_Air
-&DAT`4`FAVORED`PATHS`RAPTOK u(cg)=Yielding_Earth|Growing_Wood
-
-&6 u(cg)=[u(RFN`SEPARATOR,Step 6: Finishing Touches)][if(and(strlen(getsplat(%#)),hasattr(me/6`[getsplat(%#)])),%R[u(6`[getsplat(%#)])])]
-
-&6`MORTAL u(cg)=[u(6`ESSENCE)]%RMortals begin with Essence 1.%R%R[u(6`WILLPOWER)]%RMortals begin with 3 Willpower.%R%R[u(6`INTIMACY)]%R%R[u(6`HEALTH)]%R%R[u(6`BGSTORY)]%R%R[u(6`CHARGENXP)]%R%R[u(6`FINISH)]
-&6`SOLAR u(cg)=[u(6`ESSENCE)]%RSolars begin with Essence 1.%R%R[u(6`WILLPOWER)]%RSolars begin with 5 Willpower.%R%R[u(6`INTIMACY)]%R%R[u(6`HEALTH)]%R%R[ansi(h,+info Trigger=<limit trigger>)] to set your Limit Trigger.%R%R[u(6`BGSTORY)]%R%R[u(6`CHARGENXP)]%R%R[u(6`FINISH)]
-
-&6`INTIMACY u(cg)=[ansi(h,+help +intimacy)] for instructions on setting your Intimacies.%RChoose at least 4 intimacies. At least one must be Defining, one must be Major, one must be positive, one must be negative.
-&6`HEALTH u(cg)=[ansi(h,+hl <Health level list>)] to set your health levels. If you lack extra levels, use "+hl -0 -1 -1 -2 -2 -4 I". The system will sort for you if you goof!
-&6`WILLPOWER u(cg)=[ansi(h,+wp <value>)] to set your willpower.
-&6`ESSENCE u(cg)=[ansi(h,+ess <value>)] to set your Essence rating.
-&6`BGSTORY u(cg)=[ansi(h,+info BGStory=<story>)] to set your background story. A few paragraphs will do. The file has a limit of 4kb of text, use BGStory2, 3, etc, if necessary. \%R can linebreak, \%T indents. Readability counts!
-&6`CHARGENXP u(cg)=As mentioned in page 1, mark down how much XP you spent (and what on) in an +info using [ansi(h,+info Chargen=<description of XP spent>)]. Your +sheet should reflect the final result.
-&6`FINISH u(cg)=When complete, paste the following command to your client: %r%t[ansi(h,+request/apps Finished with chargen!=Look me over please!)]
-
-@@ &CMD`+BACKGROUNDS u(cg)=$^\+(background|merit|flaw|posmutation|neumutation|negmutation|warmutation|ragemutation)(?\: (.+?))?(?\:=(.+?))?$:th u(setq,0,squish(%2),1,%3,2,switch(%1,background,backgrounds,merit,merits,flaw,flaws,posmutation,positive_mutations,neumutation,neutral_mutations,negmutation,negative_mutations,warmutation,warform_mutations,ragemutation,rage_mutations,ERROR),3,switch(%1,background,Background,merit,Merit,flaw,Flaw,posmutation,Positive Mutation,neumutation,Neutral Mutation,negmutation,Negative Mutation,warmutation,Warform Mutation,ragemutation,By Rage Recast Mutation,ERROR));@check strlen(%q0)=@pemit %#=u(RFN`MSGHEAD) What %3 will you set?;@check and(not(lt(%q1,0)),isint(%q1))=@pemit %#=u(RFN`MSGHEAD) %3 must be whole numbers 0 or greater!;@pemit %#=u(RFN`MSGHEAD) [if(%q1,You set your %q0 %q3 to %q1,You remove your %q0 %q3)].;th [if(%q1,set,del)]stat(%#/D`%q2,%q0,%q1)
-@set u(cg)/CMD`+BACKGROUNDS=regexp
-
-&CMD`+ESS u(cg)=$+ess *:@attach u(ex-cdo)/DO`SET`ESSENCE=%#,,%0;@pemit %#=u(RFN`MSGHEAD) You set your permanent Essence to %0.
-
-&CMD`+HL u(cg)=$+hl *:@wipe %#/D`HEALTH;@attach u(ex-cdo)/DO`ADD`HEALTH=%#,,%0;@pemit %#=u(RFN`MSGHEAD) You set your health level progression to '[get(%#/D`HEALTH)]'.
-
-@@ &CMD`+VIRTUES u(cg)=$^\+(virtue|Grace)(?\: (.+?))?(?\:=(.+?))?$:@check strlen(%2)=@pemit %#=u(RFN`MSGHEAD) What [capnames(%1)] will you set?;@attach u(ccs)/INC`PARTIAL=%2,get(u(ex-cdo)/VAR`[if(strmatch(%1,virtue),VIRTUES,GRACES)]),|,CHARGEN,choice,capnames(%1);@check and(not(lt(%3,0)),isint(%3))=@pemit %#=u(RFN`MSGHEAD) [capnames(%1)]s must be whole numbers 0 or greater!;@pemit %#=u(RFN`MSGHEAD) [if(%3,You set [ansi(h,capnames(%q<choice>))] to %3,You remove [ansi(h,capnames(%q<choice>))])].;th [if(%3,set,del)]stat(%#/D`[capnames(%1)]S,capnames(%q<choice>),%3)
-@set u(cg)/CMD`+VIRTUES=regexp
-
-&CMD`+WP u(cg)=$+wp *:@attach u(ex-cdo)/DO`SET`WILLPOWER=%#,,%0;@pemit %#=u(RFN`MSGHEAD) You set your Willpower to %0.
-
-&CMD`+RESET u(cg)=$^\+reset(?\: +(.*))?$:@check strlen(%1)=@pemit %#=u(RFN`MSGHEAD) What will you reset? Your options are: [itemize(ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,and,\,)];@attach u(ccs)/INC`PARTIAL=%1,ALL|SPLAT|ATTRIBUTES|ABILITIES|THAUMATURGY|PATHS|COLLEGES|CHARMS|SPELLS|BACKGROUNDS|MUTATIONS|VIRTUES|GRACES,|,CHARGEN,choice,choice;@select/inline %q<choice>=ALL,{@attach u(ccs)/INC`VERIFY={[ansi(hr,WARNING:)] This will remove ALL data entered on your character. You will have to start over entirely from scratch. This will even remove your +info files! Are you sure? enter +reset all again to verify!},RESET ALL,CHARGEN;@dolist/inline setdiff(u(lattr,%#/D`*),D`XP D`INFOFILE D`ACCOUNT D`IPLOG)=@wipe %#/%i0;@pemit %#=u(RFN`MSGHEAD) You have reset back to square one!;@stop 1},SPLAT,{@wipe %#/D`INFO},THAUMATURGY,{@wipe %#/D`ARTS;@wipe %#/D`SCIENCES},MUTATIONS,{@wipe %#/D`*_MUTATIONS},{@wipe %#/D`%q<choice>};@pemit %#=u(RFN`MSGHEAD) You have reset your %q<choice>!
-@set u(cg)/CMD`+RESET=regexp
-
-
-
-
diff --git a/unfinished/storyteller/exalted3/Roll System Data - ROLL.txt b/unfinished/storyteller/exalted3/Roll System Data - ROLL.txt
new file mode 100644
index 0000000..a8f2ea8
--- /dev/null
+++ b/unfinished/storyteller/exalted3/Roll System Data - ROLL.txt	
@@ -0,0 +1,15 @@
+th u(newconf,CONFIG,ROLLER,TARGET_NUMBER,7,Target Number,POSINT)
+th u(newconf,CONFIG,ROLLER,DOUBLE_NUMBER,10,Double success numbers.,WORD)
+th u(newconf,CONFIG,ROLLER,AGAIN_NUMBER,11,Default #-Again.,POSINT)
+th u(newconf,CONFIG,ROLLER,REROLL_NUMBER,11,Default Re-#.,POSINT)
+th u(newconf,CONFIG,ROLLER,BOTCHES,1,Enable botches?,BOOL)
+th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
+th u(newconf,CONFIG,ROLLER,CATEGORIES,ATTRIBUTES|ABILITIES|COLLEGES|GRACES|VIRTUES|PATHS|INFO,D`Attributes to stat search?,LIST)
+
+&ROLL`DYNAMICSTATS [u(cobj,roll)]=MARTIAL ARTS|ESSENCE
+&ROLL`DYNAMICSTATS`MARTIAL_ARTS [u(cobj,roll)]=u(getstat,%0,D`ABILITIES,Martial Arts)
+&ROLL`DYNAMICSTATS`ESSENCE [u(cobj,roll)]=getpower(%0)
+
+@@ ROLEPLAYING - +ROLL
++help/addmain Roleplaying/+roll=[u(srs)]/HLP`+ROLL
+&HLP`+ROLL u(srs)=[ansi(h,+roll\[/switches\] <stats to roll>)]%R[ansi(h,+droll\[/switches\] <stats to roll>)]%R%R+roll is for virtually any situation that involves rolling X amount of d10.%R%R<stats to roll> can be any Attribute, Ability, or Stat+Specialty (addressed by attribute or ability followed by a slash and then the text-- example, Melee/Swords. This will ADD BOTH TOGETHER so you don't need to use Melee + Melee/Swords), Willpower, Essence, Crafts, or martial arts styles. It will also accept any whole numbers. Each entry can be seperated by a + or -.%R%RExample of a valid roll formula: +roll Dexterity + Melee + 10%R%RStat entries are not case sensitive, although they do support partial matches. Dex will be matched to Dexterity... however, int could be either Intelligence or Integrity, and it will pick the first its matching algorithm finds, so be careful to enter enough to not be vague.%R%R+droll is the same as +roll, though it does not count 10s as succeses. This is used for rolling extras or damage and so on.%R%RSWITCHES (which can be combined in any order and used repeatedly) are-%R%R/def# - Roll against a given Defense to determine hit or miss and threshold successes. (may not be used with /dif# simultaneously)%R/dif# - Roll against a given difficulty to determine threshold succeses. (may not be used with /def# simultaneously)%R/tn# - change target number.%R/sux# - adds automatic successes.%R/pen# - external penalties to subtract successes from rolls.%R/PRIVATE - only you see the roll's results.%R/mul# - multi-roll. Rolls the given <stats to roll> # amount of times. Note: does not support cumulative penalties for flurries.%R/dbl# - double #. If given, overrides default 10 so use /dbl9/dbl10, etc.%R/re# - Re-roll #. Can be used several times, such as /re6/re7/re8.
\ No newline at end of file
diff --git a/unfinished/storyteller/nwod2/Roll System Data - ROLL.txt b/unfinished/storyteller/nwod2/Roll System Data - ROLL.txt
new file mode 100644
index 0000000..e7da4b5
--- /dev/null
+++ b/unfinished/storyteller/nwod2/Roll System Data - ROLL.txt	
@@ -0,0 +1,21 @@
+th u(newconf,CONFIG,ROLLER,TARGET_NUMBER,8,Target Number,POSINT)
+th u(newconf,CONFIG,ROLLER,DOUBLE_NUMBER,,Double success numbers.,WORD)
+th u(newconf,CONFIG,ROLLER,AGAIN_NUMBER,10,Default #-Again.,POSINT)
+th u(newconf,CONFIG,ROLLER,REROLL_NUMBER,,Default Re-#.,POSINT)
+th u(newconf,CONFIG,ROLLER,BOTCHES,0,Enable botches?,BOOL)
+th u(newconf,CONFIG,ROLLER,CHANNEL,,Channel to report dice rolls?,LIST)
+th u(newconf,CONFIG,ROLLER,CATEGORIES,ATTRIBUTES|SKILLS|ARCANA|DISCIPLINES|MANIFESTATIONS|RENOWN,D`Attributes to stat search?,LIST)
+
+&ROLL`DYNAMICSTATS [u(cobj,roll)]=SPEED|DEFENSE|INITIATIVE|WILLPOWER|BLOOD POTENCY|PRIMAL URGE|PSYCHE|WYRD|GNOSIS|PYROS|ENDOWMENT|MORALITY
+&ROLL`DYNAMICSTATS`SPEED [u(cobj,roll)]=add(bound(u(getstat,%0,D`ATTRIBUTES,Strength,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),5)
+&ROLL`DYNAMICSTATS`DEFENSE [u(cobj,roll)]=add(min(bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Wits,BONUS),1)),u(getstat,%0,D`BONUS,DEFENSE))
+&ROLL`DYNAMICSTATS`INITIATIVE [u(cobj,roll)]=add(bound(u(getstat,%0,D`ATTRIBUTES,Dexterity,BONUS),1),bound(u(getstat,%0,D`ATTRIBUTES,Composure,BONUS),1),u(getstat,%0,D`BONUS,INITIATIVE))
+&ROLL`DYNAMICSTATS`WILLPOWER [u(cobj,roll)]=u(u(cobj,pool)/POOL`WILLPOWER`MAX,%0)
+&ROLL`DYNAMICSTATS`BLOOD_POTENCY [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`PRIMAL_URGE [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`PSYCHE [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`WYRD [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`GNOSIS [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`PYROS [u(cobj,roll)]=getpower(%0)
+&ROLL`DYNAMICSTATS`MORALITY [u(cobj,roll)]=u(getstat,%0,D`INFO,Morality)
+&ROLL`DYNAMICSTATS`ENDOWMENT [u(cobj,roll)]=u(lmax,iter(u(filter,ISINTSTAT,get(%0/D`ENDOWMENTS),|,|),last(%i0,~),|))
\ No newline at end of file