Skip to content

Commit

Permalink
Beta Preparations
Browse files Browse the repository at this point in the history
  • Loading branch information
volundmush committed Dec 2, 2013
1 parent a079ecd commit 51d51c5
Show file tree
Hide file tree
Showing 8 changed files with 34 additions and 35 deletions.
2 changes: 1 addition & 1 deletion README.txt
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ CONDITIONS
1) This Softcode is provided as-is, with no Warranty - express or implied. The author is not responsible for any possible damages, etc.

2) This Softcode is freely available to all under the terms of the Creative Commons Attribution-Non-Commercial 3.0 Unported License:
http://creativecommons.org/licenses/by-nc/3.0/deed.en_US
http://creativecommons.org/licenses/by-nc/3.0/deed
In other words:
A) you must give credit where it's due. Please be sure to credit me - Volund - on your game, and link back to my Github: https://github.com/volundmush/mushcode
B) You may share, alter, remix, port, copy the softcode however you wish. If you release any derivatives of my work it must be under the terms set down in this text.
Expand Down
13 changes: 2 additions & 11 deletions exalted25/Census Code Object - EX-CCO.txt
Original file line number Diff line number Diff line change
Expand Up @@ -5,18 +5,9 @@
@set u(ex-cco)=WIZARD !NO_COMMAND
@parent u(ex-cco)=u(coi)

&CMD`+CENSUS u(ex-cco)=$^\+census(?\:/(\S+))?(?\: +(.*))?:@assert words(setr(list,sort(lsearch(all,eplayer,\[and(not(haspower(##,GUEST)),not(isadmin(##)),lt(sub(secs(),default(##/D`LASTIC,0)),mul(604800,4)),approved(##))\]),namei)))=@nspemit %#=announce(CENSUS) No active players in the +census!;@include u(ex-cco)/INC`[if(strlen(%2),SUB,MAIN)]=%2
&CMD`+CENSUS u(ex-cco)=$^\+census(?\:/(\S+))?(?\: +(.*))?$:@assert words(setr(list,sort(lsearch(all,eplayer,\[and(not(haspower(##,GUEST)),not(isadmin(##)),approved(##))\]),namei)))=@nspemit %#=announce(CENSUS) No active players in the +census!;@include u(ex-cco)/INC`[if(strlen(%2),SUB,MAIN)]=%2
@set u(ex-cco)/CMD`+CENSUS=regexp

&INC`MAIN u(ex-cco)=@nspemit %#=header(mudname() Census Data);@dolist/inline/delimit | [get(u(ex-cdo)/VAR`SPLATS)]={@switch/inline gt(words(setr(racelist,filterbool(#lambda/strmatch(%i0,getstat(\%0/D`INFO,Splat)),%q<list>))),0)=1,{@nspemit %#=ljust(ansi(h,pueblize(capnames(%i0),+census [capnames(%i0)])),70,.)[rjust(words(%q<racelist>),2,0)];@switch/inline words(%q<racelist>)=0,{},{@nspemit %#=itemize(iter(%q<racelist>,name(%i0),%b,|),|,and,\,)%R}}};@nspemit %#=header(Total Player Characters: [words(%q<list>)])

&INC`SUB u(ex-cco)=@include u(ccs)/INC`PARTIAL=%0,get(u(ex-cdo)/VAR`SPLATS),|,CENSUS,choice,Splat;@assert words(setr(racelist,filterbool(#lambda/strmatch(%q<choice>,getstat(\%0/D`INFO,Splat)),%q<list>)))=@nspemit %#=announce(CENSUS) No active [capnames(%q<choice>)] Players!;@nspemit %#=header(mudname() Census Data);@dolist/inline/delimit | [get(u(ex-cdo)/VAR`SPLATS`%q<choice>)]={@switch/inline gt(words(setr(castelist,filterbool(#lambda/strmatch(%i0,getstat(\%0/D`INFO,Caste)),%q<racelist>))),0)=1,{@nspemit %#=ljust(ansi(h,capnames(%i0)),70,.)[rjust(words(%q<castelist>),2,0)];@switch/inline words(%q<castelist>)=0,{},{@nspemit %#=itemize(iter(%q<castelist>,name(%i0),%b,|),|,and,\,)%R}}};@nspemit %#=header(Total [capnames(%q<splat>)] Player Characters: [words(%q<racelist>)])





@include u(ccs)/INC`PARTIAL=%1,setunion(v(VAR`PLAYFLAGS),if(isadmin(%#),v(VAR`ADMINFLAGS)),|,|),|,SHEET,choice;@switch/inline strlen(%2)=0,{@include u(ex-cco)/INC`[strfirstof(%q<choice>,MAIN)]=%#,getsplat(%#)},{@include u(ccs)/INC`CHECKPC=%2,1,SHEET;@assert or(isadmin(%#),gt(get(%q<t1>/SHEETPUBLIC),0),strmatch(%q<t1>,%#))=@nspemit %#=announce(SHEET) ERROR: %q<t1name>'s Sheet is not public.;@include u(ex-cco)/INC`[strfirstof(%q<choice>,MAIN)]=%q<t1>,getsplat(%q<t1>)}


&VAR`PLAYFLAGS u(ex-cco)=EXTRA|STYLE|PUBLIC
&INC`SUB u(ex-cco)=@include u(ccs)/INC`PARTIAL=%0,get(u(ex-cdo)/VAR`SPLATS),|,CENSUS,choice,Splat;@assert words(setr(racelist,filterbool(#lambda/strmatch(%q<choice>,getstat(\%0/D`INFO,Splat)),%q<list>)))=@nspemit %#=announce(CENSUS) No active [capnames(%q<choice>)] Players!;@nspemit %#=header(mudname() Census Data);@dolist/inline/delimit | [get(u(ex-cdo)/VAR`SPLATS`%q<choice>)]={@switch/inline gt(words(setr(castelist,filterbool(#lambda/strmatch(%i0,getstat(\%0/D`INFO,Caste)),%q<racelist>))),0)=1,{@nspemit %#=ljust(ansi(h,capnames(%i0)),70,.)[rjust(words(%q<castelist>),2,0)];@switch/inline words(%q<castelist>)=0,{},{@nspemit %#=itemize(iter(%q<castelist>,name(%i0),%b,|),|,and,\,)%R}}};@nspemit %#=header(Total [capnames(%q<splat>)] Player Characters: [words(%q<racelist>)])
2 changes: 0 additions & 2 deletions exalted25/Character Data Object - EX-CDO.txt
Original file line number Diff line number Diff line change
Expand Up @@ -99,8 +99,6 @@
&CMD`+CHARMNAMES u(pgo)=$^\+charmnames(?\: +(.+))?$:@assert strlen(%1)=@nspemit %#=What Splat's Charm names will you check?;@include u(ccs)/INC`PARTIAL=%1,get(u(ex-cdo)/VAR`SPLATS),|,CHARMS,splat,Splat;@assert words(lattr(u(ex-pso)/DAT`%q<splat>`*))=@nspemit %#=That Splat has no pool data to display.;@nspemit %#=[header(capnames(%q<splat>) Pool Charms)];th null(if(strlen(lattr(u(ex-pso)/DAT`%q<splat>`EXPANDER`*)),nspemit(%#,ansi(h,* POOL EXPANDERS *))[null(iter(sortkey(#lambda/last(\%0,`),lattr(u(ex-pso)/DAT`%q<splat>`EXPANDER`*),n),nspemit(%#,last(%i0,`) Motes: [itemize(get(u(ex-pso)/%i0),|,and,\,)])))]));th null(if(strlen(lattr(u(ex-pso)/DAT`%q<splat>`OVERDRIVE`*)),nspemit(%#,ansi(h,* OVERDRIVE CHARMS *))[null(iter(sortkey(#lambda/last(\%0,`),lattr(u(ex-pso)/DAT`%q<splat>`OVERDRIVE`*),n),nspemit(%#,last(%i0,`) Motes: [itemize(get(u(ex-pso)/%i0),|,and,\,)])))]));@nspemit %#=%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.;@nspemit %#=header()
@set u(pgo)/CMD`+CHARMNAMES=regexp

+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,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,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=

&VAR`ABILITIES u(ex-cdo)=ARCHERY|MARTIAL_ARTS|MELEE|THROWN|WAR|BUREAUCRACY|LINGUISTICS|RIDE|SAIL|SOCIALIZE|ATHLETICS|AWARENESS|DODGE|LARCENY|STEALTH|CRAFT|CRAFT_AIR|CRAFT_FIRE|CRAFT_WATER|CRAFT_EARTH|CRAFT_WOOD|CRAFT_GLAMOUR|CRAFT_FATE|CRAFT_MAGITECH|CRAFT_GENESIS|INVESTIGATION|LORE|MEDICINE|OCCULT|INTEGRITY|PERFORMANCE|PRESENCE|RESISTANCE|SURVIVAL|DRIVE|FIREARMS
&VAR`ATTRIBUTES u(ex-cdo)=STRENGTH|CHARISMA|PERCEPTION|DEXTERITY|MANIPULATION|INTELLIGENCE|STAMINA|APPEARANCE|WITS
&VAR`COLLEGES u(ex-cdo)=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
Expand Down
Loading

0 comments on commit 51d51c5

Please sign in to comment.