Octavian's ASCII Art Cards

A deck of ascii-art cards by Octavian.

Author: Octavian@M*U*S*H
Category: Games
Commands: @create, @lset, @set.
Compatibility: CobraMUSH, PennMUSH.

Instructions

Copy and paste the below code into a compatible MUSH or MUX.

MUSHCode for Octavian's ASCII Art Cards

@create cards
@lock/Basic cards==me
@lset cards/Basic=no_inherit
@set cards = !NO_COMMAND
&5FRAME cards=[html(pre)][repeat(%b[repeat(_,9)],4)]%b[repeat(_,18)][iter([lnum(1,16)],%r|[left(u(getit,%0,##),9)]|[left(u(getit,%1,##),9)]|[left(u(getit,%2,##),9)]|[left(u(getit,%3,##),9)]|[u(getit,%4,##)]|)]%r[repeat(|[repeat(_,9)],4)]|[repeat(_,18)]|[html(/pre)]
&B1 cards=%b%b%b%b
&B2 cards=%b%b%b%b
&B3 cards=%b%b%b%b
&C1 cards=%b()%b
&C2 cards=()()
&C3 cards=%b/\\%b
&CARDS cards=Ace Two Three Four Five Six Seven Eight Nine Ten Jack Queen King
&D1 cards=%b/\\%b
&D2 cards=<%b%b>
&D3 cards=%b\\/%b
&DESCRIBE cards=A desk of ascii-art cards by Octavian! To get a card, use the pull ufun: u(pull,<s|c|h|d>,<##>), where the first arg is the abbreviation of the suit, and the second is a number from 1-14 (jack=11, queen=12, king=13, joker=14). Also check out u(5frame,<##>-<suit>,<##>-<suit>,<##>-<suit>,<##>-<suit>,<##>-<suit>) to deal out a hand of 5 cards (ex: u(5frame,10-h,11-h,12-h,13-h,1-h))%r%rWARNING: Very large object. Examine at own risk!
@set cards/DESCRIBE=no_command visual public nearby
&GETIT cards=[setq(1,before(%0,-))][setq(0,[switch(1, and(gt(%q1,0),lt(%q1,8)), low, and(gt(%q1,7),lt(%q1,11)), high, eq(11,%q1), jack, eq(%q1,12), queen, eq(%q1,13), king, eq(%q1,14), jester, ERROR)])][u([%q0]%1,[after(%0,-)],%q1)]
&H1 cards=/\\/\\
&H2 cards=\\%b%b/
&H3 cards=%b\\/%b
&HIGH1 cards=[space(18)]
&HIGH10 cards=%b%b[u(u[%0]1)]%b[u(u[if(gt(%1,9),%0,b)]1)]%b[u(u[%0]1)]%b%b
&HIGH11 cards=%b%b[u(u[%0]2)]%b[u(u[if(gt(%1,9),%0,b)]2)]%b[u(u[%0]2)]%b%b
&HIGH12 cards=%b%b[u(u[%0]3)]%b[u(u[if(gt(%1,9),%0,b)]3)]%b[u(u[%0]3)]%b%b
&HIGH13 cards=[space(18)]
&HIGH14 cards=%b%b[u(u[%0]1)][space(6)][u(u[%0]1)]%b%b
&HIGH15 cards=%b%b[u(u[%0]2)][space(6)][u(u[%0]2)]%b%b
&HIGH16 cards=%b%b[u(u[%0]3)][space(6)][u(u[%0]3)][rjust(%1,2)]
&HIGH2 cards=[ljust(%1,2)][u([%0]1)][space(6)][u([%0]1)]%b%b
&HIGH3 cards=%b%b[u([%0]2)][space(6)][u([%0]2)]%b%b
&HIGH4 cards=%b%b[u([%0]3)][space(6)][u([%0]3)]%b%b
&HIGH5 cards=[space(18)]
&HIGH6 cards=%b%b[u([%0]1)]%b[u([if(gt(%1,8),%0,b)]1)]%b[u([%0]1)]%b%b
&HIGH7 cards=%b%b[u([%0]2)]%b[u([if(gt(%1,8),%0,b)]2)]%b[u([%0]2)]%b%b
&HIGH8 cards=%b%b[u([%0]3)]%b[u([if(gt(%1,8),%0,b)]3)]%b[u([%0]3)]%b%b
&HIGH9 cards=[space(18)]
&JACK1 cards=%b%b______________%b%b
&JACK10 cards=%b|\\%b|||SSSS|/%b%b/|%b
&JACK11 cards=%b|%b\\||%b%bSS%b___/%b|%b
&JACK12 cards=%b|%b%b||%b\\/\\/%b%b%b%b%b|%b
&JACK13 cards=%b|%b%b\{\}%b|-%b|%b[u(u[%0]1)]|%b
&JACK14 cards=%b|%b%b%b%b\\-%b%b|%b[u(u[%0]2)]|%b
&JACK15 cards=%b|%b%b%b%b/~~~~\\[u(u[%0]3)]|%b
&JACK16 cards=%b|______________|J
&JACK2 cards=J|%b%b%b%b%b%b%b%b%b%b%b%b%b%b|%b
&JACK3 cards=%b|[u([%0]1)]\\~~~~/%b%b%b%b|%b
&JACK4 cards=%b|[u([%0]2)]%b|%b%b-\\%b%b%b%b|%b
&JACK5 cards=%b|[u([%0]3)]%b|%b-|%b\{\}%b%b|%b
&JACK6 cards=%b|%b%b___/\\/\\_||%b%b|%b
&JACK7 cards=%b|%b/%b%b%b%bSS%b%b||\\%b|%b
&JACK8 cards=%b|/%b%b/|SSSS|||%b\\|%b
&JACK9 cards=%b|%b%b|||S%b%bS|||%b%b|%b
&JESTER1 cards=%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b
&JESTER10 cards=%b%b%b(|%b"%b%b%b"%b|)%b%b%bV
&JESTER11 cards=%b%b%b%b|%b%b%bo%b%b%b|%b%b%b%b%b
&JESTER12 cards=%b%b%b%b|%b%b%b%b%b%b%b|%b%b%b%bI
&JESTER13 cards=%b%b%b%b%b\\%b\\I/%b/%b%b%b%b%b%b
&JESTER14 cards=%b%b%b%b%b%b\\___/%b%b%b%b%b%bA
&JESTER15 cards=%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b
&JESTER16 cards=J%b%b%b%b%b%b%b%b%b%b%b%b%b%b%b%bN
&JESTER2 cards=J%b%b%b%b_______%b%b%b%b%bO
&JESTER3 cards=%b%b%b%b/%b%b%b%b%b%b%b\\%b%b%b%b%b
&JESTER4 cards=%b%b_/\\_%b%b%b%b%b_/\\_%b%bC
&JESTER5 cards=%b/%b%b%b%b\\_%b_/%b%b%b%b\\%b%b
&JESTER6 cards=/%b%b%b%b%b%b%b@%b%b%b%b%b%b%b\\T
&JESTER7 cards=\\%b/\\%b%b%b%b%b%b%b%b%b/\\%b/%b
&JESTER8 cards=%b@%b%b\[_______\]%b%b@%bA
&JESTER9 cards=%b%b%b%b|%b\\%b%b%b/%b|%b%b%b%b%b
&KING1 cards=%b%b______________%b%b
&KING10 cards=%b|_88_%b@||@%b%b%b%b/|%b
&KING11 cards=%b|%b||__/..\\___/%b|%b
&KING12 cards=%b|%b||%b%b\\%b%b/%b%b%b%b%b|%b
&KING13 cards=%b|%b||%b%b|-%b\\%b[u(u[%0]1)]|%b
&KING14 cards=%b|%b|/%b\\c%b%b%b|[u(u[%0]2)]|%b
&KING15 cards=%b|%b%b%b%b|/\\/\\|[u(u[%0]3)]|%b
&KING16 cards=%b|______________|K
&KING2 cards=K|%b%b%b%b%b%b%b%b%b%b%b%b%b%b|%b
&KING3 cards=%b|[u([%0]1)]|\\/\\/|%b%b%b%b|%b
&KING4 cards=%b|[u([%0]2)]|%b%b%bc\\%b/|%b|%b
&KING5 cards=%b|[u([%0]3)]%b\\%b-|%b%b||%b|%b
&KING6 cards=%b|%b%b___/..\\__||%b|%b
&KING7 cards=%b|%b/%b%b%b\\%b%b/%b_||_|%b
&KING8 cards=%b|/%b%b%b%b@||@%b%b88%b|%b
&KING9 cards=%b|%b88%b%b%b||%b%b%b88%b|%b
&LOW1 cards=[space(18)]
&LOW10 cards=%b%b[u([if(gt(%1,5),%0,b)]3)]%b[u([if(match(1 3 5 7,%1),%0,b)]3)]%b[u([if(gt(%1,5),%0,b)]3)]%b%b
&LOW11 cards=[space(18)]
&LOW12 cards=[space(18)]
&LOW13 cards=%b%b[u(u[if(gt(%1,3),%0,b)]1)][space(6)][u(u[if(gt(%1,1),%0,b)]1)]%b%b
&LOW14 cards=%b%b[u(u[if(gt(%1,3),%0,b)]2)][space(6)][u(u[if(gt(%1,1),%0,b)]2)]%b%b
&LOW15 cards=%b%b[u(u[if(gt(%1,3),%0,b)]3)][space(6)][u(u[if(gt(%1,1),%0,b)]3)]%b%b
&LOW16 cards=[space(16)][rjust(if(eq(%1,1),A,%1),2)]
&LOW2 cards=[ljust(if(eq(%1,1),A,%1),2)][space(16)]
&LOW3 cards=[ljust(if(eq(%1,1),[ucstr(%0)],%b),2)][u([if(gt(%1,1),%0,b)]1)][space(6)][u([if(gt(%1,3),%0,b)]1)]%b%b
&LOW4 cards=%b%b[u([if(gt(%1,1),%0,b)]2)][space(6)][u([if(gt(%1,3),%0,b)]2)]%b%b
&LOW5 cards=%b%b[u([if(gt(%1,1),%0,b)]3)][space(6)][u([if(gt(%1,3),%0,b)]3)]%b%b
&LOW6 cards=[space(18)]
&LOW7 cards=[space(18)]
&LOW8 cards=%b%b[u([if(gt(%1,5),%0,b)]1)]%b[u([if(match(1 3 5 7,%1),%0,b)]1)]%b[u([if(gt(%1,5),%0,b)]1)]%b%b
&LOW9 cards=%b%b[u([if(gt(%1,5),%0,b)]2)]%b[u([if(match(1 3 5 7,%1),%0,b)]2)]%b[u([if(gt(%1,5),%0,b)]2)]%b%b
&PULL cards=[html(pre)][setq(0,[switch(1, and(gt(%1,0),lt(%1,8)), low, and(gt(%1,7),lt(%1,11)), high, eq(11,%1), jack, eq(%1,12), queen, eq(%1,13), king, eq(%1,14), jester, ERROR)])]%b[repeat(_,18)]%b[iter([lnum(1,16)],%r|[u([%q0][##],%0,%1)]|)]%r|[repeat(_,18)]|[html(/pre)]
&QUEEN1 cards=%b%b______________%b%b
&QUEEN10 cards=%b|%b|%b|%b@/\\\\%b%b%b/%b|%b
&QUEEN11 cards=%b|%b%b8%b\\//%b\\\\%b/%b%b|%b
&QUEEN12 cards=%b|%b+|+%b\\%b%b||/%b%b%b|%b
&QUEEN13 cards=%b|%b%b#%b|-%b%b||[u(u[%0]1)]|%b
&QUEEN14 cards=%b|%b%b%b%b\\@%b%b|/[u(u[%0]2)]|%b
&QUEEN15 cards=%b|%b%b%b%b\\+++/%b[u(u[%0]3)]|%b
&QUEEN16 cards=%b|______________|Q
&QUEEN2 cards=Q|%b%b%b%b%b%b%b%b%b%b%b%b%b%b|%b
&QUEEN3 cards=%b|[u([%0]1)]%b/+++\\%b%b%b%b|%b
&QUEEN4 cards=%b|[u([%0]2)]/|%b%b@\\%b%b%b%b|%b
&QUEEN5 cards=%b|[u([%0]3)]||%b%b-|%b#%b%b|%b
&QUEEN6 cards=%b|%b%b%b/||%b%b\\%b+|+%b|%b
&QUEEN7 cards=%b|%b%b/%b\\\\%b//\\%b8%b%b|%b
&QUEEN8 cards=%b|%b/%b%b%b\\\\/@%b|%b|%b|%b
&QUEEN9 cards=%b|%b\\%b%b%b@\\\\@%b%b%b\\%b|%b
&REGFRAME cards=[setq(2,[if(gt(%1,1),%0,b)])][setq(3,[if(eq(%1,1),A,%1)])][setq(4,[if(gt(%1,7),%0,b)])][setq(5,[if(match(1 3 5 7 9 10,%1),%0,b)])][setq(6,[if(gt(%1,5),%0,b)])][setq(7,[if(gt(%1,3),%0,b)])][setq(8,[if(eq(%1,10),%0,b)])]%b[repeat(_,18)]%r|[space(18)]|%r|[ljust(%q3,2)][u([%q2]1)][space(6)][u([%q7]1)]%b%b|%r|%b%b[u([%q2]2)][space(6)][u([%q7]2)]%b%b|%r|%b%b[u([%q2]3)][space(6)][u([%q7]3)]%b%b|%r|[space(18)]|%r|%b%b[u([%q4]1)]%b[u([%q5]1)]%b[u([%q4]1)]%b%b|%r|%b%b[u([%q4]2)]%b[u([%q5]2)]%b[u([%q4]2)]%b%b|%r|%b%b[u([%q4]3)]%b[u([%q5]3)]%b[u([%q4]3)]%b%b|%r|[space(18)]|%r|%b%b[u([%q6]1)]%b[u([%q8]1)]%b[u([%q6]1)]%b%b|%r|%b%b[u([%q6]2)]%b[u([%q8]2)]%b[u([%q6]2)]%b%b|%r|%b%b[u([%q6]3)]%b[u([%q8]3)]%b[u([%q6]3)]%b%b|%r|[space(18)]|%r|%b%b[u([%q7]1)][space(6)][u([%q2]1)]%b%b|%r|%b%b[u([%q7]2)][space(6)][u([%q2]2)]%b%b|%r|%b%b[u([%q7]3)][space(6)][u([%q2]3)][rjust(%q3,2)]|%r|[repeat(_,18)]|%r
&S1 cards=%b/\\%b
&S2 cards=/##\\
&S3 cards=\\##/
&SUITS cards=Diamonds Spades Clubs Hearts
&UB1 cards=%b%b%b%b
&UB2 cards=%b%b%b%b
&UB3 cards=%b%b%b%b
&UC1 cards=%b||%b
&UC2 cards=()()
&UC3 cards=%b()%b
&UD1 cards=%b/\\%b
&UD2 cards=<%b%b>
&UD3 cards=%b\\/%b
&UH1 cards=%b/\\%b
&UH2 cards=/%b%b\\
&UH3 cards=\\/\\/
&US1 cards=/##\\
&US2 cards=\\##/
&US3 cards=%b\\/%b