Scroll-organizer (script)

Scroll-organizer (script)
Category	Utility
Front-end	Wrayth
Author	Elore

This script will take a sack o'scrolls and put each one into a scroll book. Just start with a worn book in hand (or if you swap out for a different type of stacker, change the variable). It'll exit once that book is full. Easy peasy.

##run it as .scroll <container where your scrolls are>
##By default we'll assume you're using the worn book, but you can change this variable to the noun of the new item

setvariable scrollbook book

start:
    MATCHre scroll / (scroll,|scroll.|scroll and) /
    MATCHre parchment / (parchment,|parchment.|parchment and) /
    MATCHre leaf / (leaf,|leaf.|leaf and) /
    MATCHre bark / (bark,|bark.|bark and) /
    MATCHre vellum / (vellum,|vellum.|vellum and) /
    MATCHre tablet / (tablet,|tablet.|tablet and) /
    MATCHre roll / (roll,|roll.|roll and) /
    MATCHre ostracon / (ostracon,|ostracon.|ostracon and) /
        MATCH exit There is nothing in there.
        put look in %1
        MATCHWAIT

        scroll:
        setvariable S scroll
        GOTO get_scroll

        parchment:
        setvariable S parchment
        GOTO get_scroll

        leaf:
        setvariable S leaf
        GOTO get_scroll

        bark:
        setvariable S bark
        GOTO get_scroll

        vellum:
        setvariable S vellum
        GOTO get_scroll

        tablet:
        setvariable S tablet
        GOTO get_scroll

        roll:
        setvariable S roll
        GOTO get_scroll

        ostracon:
        setvariable S ostracon
        GOTO get_scroll

get_scroll:
    MATCH get_scroll ...wait
    MATCH open you need to open the
    MATCH full you realize there's no more room.
    MATCH push which you are already familiar with.
    put get my %S from %1
    put read my %S 
    waitfor roundtime

push:
    MATCH push ...wait
    MATCH open you need to open the
    MATCH full you realize there's no more room.
    MATCH start Not finding a matching section, you flip to an empty section, and after labeling it, you copy in the spell. 
    MATCH start you find room in a matching section, and copy in the spell.
    pause 2
    put push my %scrollbook with my %S 
    matchwait

open:
    put open my %scrollbook 
    goto push

full: 
echo ****BOOK IS FULL! GRAB A NEW ONE ****

exit: