inscribeList = "" inscribePause = 0 #call @pickIncribing() {} #pick {p:Pick a card} {o:1} {Sun:card=Sun} {Emperor:card=Emperor} {Magician:card=Magician} {Priestess:card=Priestess} {Fool:card=Fool} {Chariot:card=Chariot} {Hermit:card=Hermit} {Empress:card=Empress} {Lovers:card=Lovers} {Hierophant:card=Hierophant} {Hangedman:card=Hangedman} {Tower:card=Tower} {Wheel:card=Wheel} {Creator:card=Creator} {Justice:card=Justice} {Star:card=Star} {Aeon:card=Aeon} {Lust:card=Lust} {Universe:card=Universe} {Devil:card=Devil} {Moon:card=Moon} {Death:card=Death} #if (!%null(@card)) { #prompt inscribeQuantity "Enter the quantity you would like to inscribe" #addkey inscribeList @card @inscribeQuantity #yesno "Would you like to add another card?" {#call @pickIncribing()} {#call @startIncribing()}} #sendraw "wield quill" hmoff inscribing = %item(%dbkeys(@inscribeList),1) #sendraw "outd blank" #sendraw "inscribe blank with "@inscribing Wisely preparing yourself beforehand, you lay out the quill and various inks you will need to inscribe the sign of (%*) into your card. #substitute {<color white purple>Inking of @inscribing - Stage 1 of 5</color>} Focusing your mind on the task ahead, you block out all extraneous thoughts. #substitute {<color white purple>Inking of @inscribing - Stage 2 of 5</color>} Finishing the outline, you begin to colour (%*) properly, utilising just the right amount of hue here, the perfect amount of saturation there. #substitute {<color white purple>Inking of @inscribing - Stage 4 of 5</color>} You have successfully inscribed the image of (%*) on your Tarot card. Inking of @inscribing - Stage 5 of 5} #addkey inscribeList @inscribing (%db(@inscribeList, @inscribing) - 1) tarotCards = "" #call @updateInscribing() #sendraw "ind "@inscribing #if (!@inscribePause) {#if (@mana < (@manaMax - 400)) {dm} #if (%item(@inscribelist,@inscribing) <= 0) { #delkey inscribelist @inscribing inscribing = %item(%dbkeys(@inscribeList), 1) } #if (@inscribing != "") { inscribing = %item(%dbkeys(@inscribeList),1) #sendraw "outd blank" #sendraw "inscribe blank with "@inscribing;#echo %eval(%db(@inscribeList, @inscribing) - 1) remaining of @inscribing} {hmon;#print "" #print {All inscribing jobs complete!};#sendraw "unwield quill"} } {hmon;#sendraw "unwield quill"} ]]> You take up the quill and begin to trace the outline of (%*) with careful precision. The slightest mistake will render the card useless. #substitute {<color white purple>Inking of @inscribing - Stage 3 of 5</color>} 0 inscribePause = 1 inscribePause = 0 #if (@mana < (@manaMax - 400)) {#sendraw "drink mana"} #if (%item(@inscribelist,@inscribing) <= 0) { #delkey inscribelist @inscribing inscribing = %item(%dbkeys(@inscribeList), 1) } #if (@inscribing != "") { #sendraw "wield quill" hmoff inscribing = %item(%dbkeys(@inscribeList),1) #sendraw "outd blank" #sendraw "inscribe blank with "@inscribing;#echo %eval(%db(@inscribeList, @inscribing) - 1) remaining of @inscribing} #loopdb @inscribeList {tarotCards = %key%repeat("-",%eval(10-%len(%key)))@inscribeList.%key" "@tarotCards;#update @tarotCards } You cannot summon up the willpower to perform such a mentally exhausting task. pauseins autoUniverse = 1 #sendraw "config timeout 0" #sendraw "meditate" You cease your meditation having achieved full will and mana. unpauseins autoUniverse = 0 #sendraw "config timeout 10" 0 You close your eyes, bow your head, and empty your mind of all thought. autoUniverse = 1