$+merit/purchase */*/*=*/*:@assert [strmatch([u(%#/att_zailist)], *%1*)]={@pemit %#=You don't have that Zaibatsu!};@assert [strmatch([u(me/db_zaibatsu)], *%2*)]={@pemit %#=That isn't a qualified Zaibatsu type!  Please consult News Zaibatsu!};@break [strmatch([u(%#/att_merlist)], *%0*)]={@pemit %#=You already have that Merit!};@break [strmatch([u(#1585/att_%#_mer_%0)], %1)]={@pemit %#=This Zaibatsu is already a Merit!};&att_merlist %#=[ucstr([strinsert([u(%#/att_merlist)], 0, %0%b)])];&att_merdesc_%0 %#=[ansi(hg,==============================================================================)]%r%r[ansi(hg,Merit:)] %0%r[ansi(hg,Zaibatsu:)] %1%r[ansi(hg,Zaibatsu Type:)] %2%r[ansi(hg,Grade:)] \[edit(\[u(#1585/att_%#_zai_%1)],1,E-Class,2,E-Class,3,D-Class,4,D-Class,5,C-Class,6,C-Class,7,B-Class,8,B-Class,9,A-Class,10,S-Class)]%r[ansi(hg,NPC:)] %3%r[ansi(hg,Profile:)] %4%r%r[ansi(hg,==============================================================================)];@pemit %#=You have added [ansi(hr,%0)] to your Merit list.;&att_%#_mer_%0 #1585=%1;&att_underlist #1585=[ucstr([strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)])]

#1584!     %# => #7
#1584!     You have added [ansi(hr,%0)] to your Merit list. :
#1584!      ansi(hr,%0) :
#1584!       %0 => Iron_Ring
#1584!      ansi(hr,%0) => Iron_Ring
#1584!     You have added [ansi(hr,%0)] to your Merit list. => You have added Iron_Ring to your Merit list.
You have added Iron_Ring to your Merit list.
#1584!     &att_%#_mer_%0 => &att_#7_mer_Iron_Ring
#1584!     %1 => Hellfire_Club
#1584!     [ucstr([strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)])] :
#1584!      ucstr([strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)]) :
#1584!       [strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)] :
#1584!        strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b) :
#1584!         [u(#1585/att_underlist)] :
#1584!          u(#1585/att_underlist) => CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584!         [u(#1585/att_underlist)] => CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584!         [name(%#)]:%b[ucstr(%0)]%b|%b :
#1584!          name(%#) :
#1584!           %# => #7
#1584!          name(%#) => Coder Toad
#1584!          ucstr(%0) :
#1584!           %0 => Iron_Ring
#1584!          ucstr(%0) => IRON_RING
#1584!         [name(%#)]:%b[ucstr(%0)]%b|%b => Coder Toad: IRON_RING |
#1584!        strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b) => Coder Toad: IRON_RING | CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584!       [strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)] => Coder Toad: IRON_RING | CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584!      ucstr([strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)]) => CODER TOAD: IRON_RING | CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584!     [ucstr([strinsert([u(#1585/att_underlist)], 0, [name(%#)]:%b[ucstr(%0)]%b|%b)])] => CODER TOAD: IRON_RING | CODER TOAD: IRON_RING | CODER TOAD: DATA_GHOSTS |
#1584! [strmatch([u(%#/att_zailist)], *%1*)] :
#1584!  strmatch([u(%#/att_zailist)], *%1*) :
#1584!   [u(%#/att_zailist)] :
#1584!    u(%#/att_zailist) :
#1584!     %#/att_zailist => #7/att_zailist
#1584!    u(%#/att_zailist) => HELLFIRE_CLUB KARASAWA_CORPORATION
#1584!   [u(%#/att_zailist)] => HELLFIRE_CLUB KARASAWA_CORPORATION
#1584!   *%1* => *Hellfire_Club*
#1584!  strmatch([u(%#/att_zailist)], *%1*) => 1
#1584! [strmatch([u(%#/att_zailist)], *%1*)] => 1
#1584! {@pemit %#=You don't have that Zaibatsu!} :
#1584!  [strmatch([u(me/db_zaibatsu)], *%2*)] :
#1584!   strmatch([u(me/db_zaibatsu)], *%2*) :
#1584!    [u(me/db_zaibatsu)] :
#1584!     u(me/db_zaibatsu) => | Arts | Commodities | Computers | Cybernetics | Gambling | Human_Trafficking | Information | Narcotics | Real_Estate | Weaponry |
#1584!    [u(me/db_zaibatsu)] => | Arts | Commodities | Computers | Cybernetics | Gambling | Human_Trafficking | Information | Narcotics | Real_Estate | Weaponry |
#1584!    *%2* => *Gambling*
#1584!   strmatch([u(me/db_zaibatsu)], *%2*) => 1
#1584!  [strmatch([u(me/db_zaibatsu)], *%2*)] => 1
#1584!  {@pemit %#=That isn't a qualified Zaibatsu type!  Please consult News Zaibatsu!} :
#1584!   [strmatch([u(%#/att_merlist)], *%0*)] :
#1584!    strmatch([u(%#/att_merlist)], *%0*) :
#1584!     [u(%#/att_merlist)] :
#1584!      u(%#/att_merlist) :
#1584!       %#/att_merlist => #7/att_merlist
#1584!      u(%#/att_merlist) => IRON_RING
#1584!     [u(%#/att_merlist)] => IRON_RING
#1584!     *%0* => *Iron_Ring*
#1584!    strmatch([u(%#/att_merlist)], *%0*) => 1
#1584!   [strmatch([u(%#/att_merlist)], *%0*)] => 1
#1584!   {@pemit %#=You already have that Merit!} :
#1584!    %# => #7
You already have that Merit!