Simple Tattoos

Script File: 

Spec.Tattoos.txt

Simple and easyTattoos script, forinking tattoos for yourself or others'.

INK <tattoo> ON <bodypart1> <bodypart2> OF ME

INK <tattoo> ON <bodypart1> <bodypart2> OF <person>

Example: INK MOSS ON HEAD OF ME

Example: INK MOSS ON RIGHT LEG OF ME

Example: INK MOSS ON HEAD OF VARIAN

Example: INK MOSS ON RIGHT LEG OF VARIAN

For those of you who prefer a more simple syntax, replace the INK alias with the one below.

Usage: INK <tattoo> <h|t|ra|la|rl|ll> <person>

Example: INK MOSS RL VARIAN --- ink moss on right leg of varian

Example: INK MOSS H VARIAN --- ink moss on head of varian

#ALIAS INK($tat,$part,$who) {Cur_Tattoo=$tat;#FORALL %expand(@%expand(@Cur_Tattoo)) {outc %i};#SWITCH  ($part=h) {~ink $tat on head of $who} ($part=t) {~ink $tat on torso of $who} ($part=ra) {~ink $tat on right arm of $who} ($part=la) {~ink $tat on left arm of $who} ($part=rl) {~ink $tat on right leg of $who} ($part=ll) {~ink $tat on left leg of $who}}