fadedparadox
Beginner
Joined: 11 Jan 2007
Posts: 10
|
 Posted: Thu Mar 15, 2007 10:42 am
Achaea: Tattoo Display Script
|
Trevize from Achaea here. I maintain and update a website with scripts for Achaea that I wrote.
I figured I might as well post some of my scripts here. As always, the newest versions of my scripts are at achaea.fadedparadox.com.
Quoted from my website:
| Quote: |
| This script was written to make viewing tattoos easier, and pinpointing empty slots faster. Simply do TATTOOS and this script will display your tattoos. The tattoos script installs into the Shadow|Tattoos directory. |
| Code: |
#CLASS {Shadow}
#CLASS 0
#DELC {Shadow|Tattoos}
#CLASS {Shadow|Tattoos}
#VAR tattooversion {2.1}
#CLASS 0
#CLASS {Shadow|Tattoos|tattooscript}
#ALIAS tattooblank {#addkey tattoos {head|torso|left arm|right arm|left leg|right leg} {};#addkey tattoos {head uses|torso uses|left arm uses|right arm uses|left leg uses|right leg uses} {};#addkey tattoos {head ss|torso ss|left arm ss|right arm ss|left leg ss|right leg ss} {};#addkey tattoos {head ss uses|torso ss uses|left arm ss uses|right arm ss uses|left leg ss uses|right leg ss uses} {}}
#ALIAS tattoofinish {#say {%ansi( 7)"Bodypart Tattoos"};#say {%ansi( 7)"-------- -------"};tattoodisplay Head;tattoodisplay Torso;tattoodisplay Left Arm;tattoodisplay Right Arm;tattoodisplay Left Leg;tattoodisplay Right Leg;#send "";tattooblank}
#ALIAS tattoodisplay {#sayp {%ansi( 7)%-1};#sayp %repeat( " ", 11 - %len( %-1));#sayp {%ansi( 7)%db( @tattoos, %lower( %-1))};#if (%db( @tattoos, %lower( %-1) uses)="") {#sayp {%ansi( 7)}} {#sayp {%ansi( 7)" ~("};#sayp {%ansi( 7)%db( @tattoos, %lower( %-1) uses)};#sayp {%ansi( 7)"~)"}};#if (%db( @tattoos, %lower( %-1) ss)="") {#say {%ansi( 7)}} {#if (%db( @tattoos, %lower( %-1) uses)="") {#sayp %repeat( " ", 16 - %len( %db( @tattoos, %lower( %-1))))} {#sayp %repeat( " ", 13 - %len( %db( @tattoos, %lower( %-1))) - %len( %db( @tattoos, %lower( %-1) uses)))};#sayp {%ansi( 7)%db( @tattoos, %lower( %-1) ss)};#if (%db( @tattoos, %lower( %-1) ss uses)="") {#say {%ansi( 7)}} {#sayp {%ansi( 7)" ~("};#sayp {%ansi( 7)%db( @tattoos, %lower( %-1) ss uses)};#say {%ansi( 7)"~)"}}}}
#VAR tattoos {} {}
#ADDKEY tattoos {head|torso|left arm|right arm|left leg|right leg} {}
#ADDKEY tattoos {head uses|torso uses|left arm uses|right arm uses|left leg uses|right leg uses} {}
#ADDKEY tattoos {head ss|torso ss|left arm ss|right arm ss|left leg ss|right leg ss} {}
#ADDKEY tattoos {head ss uses|torso ss uses|left arm ss uses|right arm ss uses|left leg ss uses|right leg ss uses} {}
#REGEX {^You have the following tattoos\:$} {#t+ tattoomatch;tattooblank;#gag}
#REGEX {^On .* you see\:$} {#t+ tattoomatch;tattooblank;#say ""}
#CLASS 0
#CLASS {Shadow|Tattoos|tattoomatch}
#REGEX {^A(?:n|) (\w+) tattoo on the (left leg|right leg|left arm|right arm|head|torso)\.(?: \((\d+) use(?:s|) left\)|)$} {#if (%db( @tattoos, %2)="") {#addkey tattoos {%2} {%1};#addkey tattoos {%2 uses} {%3}} {#addkey tattoos {%2 ss} {%1};#addkey tattoos {%2 ss uses} {%3}};#gag}
#REGEX {^\d+h, \d+(?:m|e).*} {tattoofinish;#t- tattoomatch;#sub {""}} "" {nocr|prompt}
#CLASS 0
#T- tattoomatch
#SAY [Shadow] Tattoo display script 2.1 installed. |
Enjoy. |
|
