User:Dawson

References

• Grayson
• Merek
• Phil

Mage Pages

• Mage Familiars
• Magical Effects
• Spheres
• Backgrounds
• Foci
• Creating Wonders

Ranks Highest sphere Initiate Apprentice Disciple Adept Master (highest sphere, not just Arete, per MtA 31)

Projects

Character Pages

• Template 1
• Template 2
• Template 3
• Template 4

Grimoire

@create Grimoire=10

@Desc Grimoire=A simple composition notebook that's been covered in layers of duct tape.%R%R<OOC: .ghelp>

&DO_GLIST Grimoire=$.glist:@pemit %#=[u(me/header)]%r%b[iter([u(me/page_list)],[member([u(me/page_list)],##)][space([sub(4,[strlen([member([u(me/page_list)],##)])])])][u(me/page_##_title)]%r)][u(me/footer)]

&HEADER Grimoire=%R[center(%xh%xy%n's Grimoire%xn, 78,%xh%xm=%xn)]%R%r #[space(3)]Title[space(45)]%r[repeat(-,78)]

&FOOTER Grimoire=%R[center(%xh, 80,%xh%xm-%xn)]%R

&DO_GWRITE Grimoire=$.gwrite *=*:@swi [gte([words([u(me/page_list)])],50)]=0,{&page_[u(me/next)]_title me=[switch([gt([strlen(%0)],50)],1,{[mid(%0,0,50)]},%0)];&page_[u(me/next)]_text me=%1;&page_list me=[setunion([u(me/page_list)],[u(me/next)])];&next me=[add([u(me/next)],1)];@pemit %#=Page number: [words([u(me/page_list)])] written in [name(me)].},{@pemit %#=I'm sorry, but the grimoire is full.

&DO_GREAD Grimoire=$.gread *:@swi [setq(9,[index([u(me/page_list)], ,%0,1)])][setq(8,[hasattr(me,page_list)])][r(8)]=1,{@swi [member([lnum(1,[words([u(me/page_list)])])],%0)]=0,{@pemit %#=That page number is out of range. Enter a number from 1 to [words([u(me/page_list)])].},{@pemit %#= [center(%xh%xy%n's Grimoire%xn, 78,%xh%xm=%xn)]%R%r%xh%xyPage:%xn %0%r%xh%xyTitle:%xn [u(me/page_[r(9)]_title)]%r [repeat(-,78)]%r[u(me/page_[r(9)]_text)]%r[repeat(%xh%xm=%xn,78)]}}

&MAX Grimoire=100

&NEXT Grimoire=1

&DO_GADD Grimoire=$.gadd *=*:@swi [setq(9,[index([u(me/page_list)], ,%0,1)])][setq(8,[hasattr(me,page_list)])][r(8)]=1,{@swi [member([lnum(1,[words([u(me/page_list)])])],%0)]=0,{@pemit %#=That page number is out of range. Enter a number from 1 to [words([u(me/page_list)])].},{&page_[r(9)]_text me=[v(page_[r(9)]_text)]%r%r%R[center(%xh%xyAddendum%xn,78,%xh%xg-%xn)]%r%1;@pemit %#=Text added.}},@pemit %#=Cannot find that page number.

&DO_REMOVE Grimoire=$.grem *:@swi [setq(9,[index([u(me/page_list)], ,%0,1)])][setq(8,[hasattr(me,page_list)])][r(8)]=1,{@swi [member([lnum(1,[words([u(me/page_list)])])],%0)]=0,@pemit %#=That page number is out of range.,{@swi [or([isstaff(%#)],[switch([u(me/page_[r(9)]_author_db)],%#,1,0)],[switch([owner( me)],%#,1,0)])]=1,{@wipe me/*_[r(9)]_*;&page_list me=[setdiff([u(me/page_list)],[r(9)])];@pemit %#=page %0 removed.},@pemit %#=You cannot remove a page that you do not own.}},@pemit %#=There are no pages to remove.

&DO_GHELP Grimoire=$.ghelp:@pemit %#=[center(Grimoire ,78,%xh%xg=%xn)]%r%r* .glist - Lists all messages.%r* .gwrite <title>=<text>%r* .gread # - Reads that message number.%r* .gadd #=<text> - Appends text to that message number.%r* .grem # - Removes that message #.%r* .gshow #=*<target>%r[u(me/footer)]

&DO_GSHOW Grimoire=$.gshow *=*:@swi [setq(9,[index([u(me/page_list)], ,%0,1)])][setq(8,[hasattr(me,page_list)])][r(8)]=1,{@swi [member([lnum(1,[words([u(me/page_list)])])],%0)]=0,{@pemit %#=That page number is out of range. Enter a number from 1 to [words([u(me/page_list)])].},{@pemit %1= [center(%xh%xy%n's Grimoire%xn, 78,%xh%xm=%xn)]%R%r%xh%xyPage:%xn %0%r%xh%xyTitle:%xn [u(#19201/page_[r(9)]_title)]%r [repeat(-,78)]%r[u(#19201/page_[r(9)]_text)]%r[repeat(%xh%xm=%xn,78)]}};@pemit %#=You show %1 page %0 from your Grimoire entitled: %xh%xy[u(#19201/page_[r(9)]_title)]%xn.

Note: .gshow works best if you add a * before the person's name.. So .gshow 1=*person works.

Grimoire Help

• .glist - Lists all messages.
• .gwrite <title>=<text>
• .gread # - Reads that message number.
• .gadd #=<text> - Appends text to that message number.
• .grem # - Removes that message #.
• .gshow #=*<target>