Sigil Scrolls (script)

echo [Astrology Scrolls - Brought to you by Kraggur]
echo [Options - start, list.  Start studies the scrolls, list will show scrolls]

getline
goto %l
pause 5

start:
pause 
setvariable case "scroll case"

get:
put ask serv for %case
pause
put wear my %case
pause
put open my %case
goto adder

read:
pause
put unroll my scroll
put read my scroll
pause 6
put roll my scroll
pause
put put my scroll in my %case 
pause
return

adder:
put get my adder scroll
gosub read

boar:
put get my boar scroll
gosub read

brigantine:
put get my brigantine scroll
gosub read

cat:
put get my cat scroll
gosub read

coyote:
put get my coyote scroll
gosub read

dolphin:
put get my dolphin scroll
gosub read

donkey:
put get my donkey scroll
gosub read

dove:
put get my dove scroll
gosub read

giant:
put get my giant scroll
gosub read

goshawk:
put get my goshawk scroll
gosub read

heron:
put get my heron scroll
gosub read

jackal:
put get my jackal scroll
gosub read

katamba:
put get my katamba scroll
gosub read


lion:
put get my lion scroll
gosub read


magpie:
put get my magpie scroll
gosub read

ox:
put get my ox scroll
gosub read

panther:
put get my panther scroll
gosub read

penhetia:
put get my penhetia scroll
gosub read

phoenix:
put get my phoenix scroll
gosub read

raccoon:
put get my raccoon scroll
gosub read

ram:
put get my ram scroll
gosub read

raven:
put get my raven scroll
gosub read

scorpion:
put get my Scorpion scroll
gosub read

shark:
put get my shark scroll
gosub read

shrew:
put get my shrew scroll
gosub read

shrike:
put get my shrike scroll
gosub read

snake:
put get my snake scroll
gosub read

spider:
put get my spider scroll
gosub read

sun:
put get my sun scroll
gosub read

toad:
put get my toad scroll
gosub read

viper:
put get my viper scroll
gosub read

vulture:
put get my vulture scroll
gosub read

wolf:
put get my wolf scroll
gosub read

weasel:
put get my weasel scroll
gosub read

welkin:
put get my welkin scroll
gosub read

wren:
put get my wren scroll
gosub read

xibar:
put get my xibar scroll
gosub read

yavash:
put get my yavash scroll
gosub read

finish:
put close my %case
pause
put rem my %case
pause
put give serv
pause
put exp lore
goto end

list:
echo ****************************************
echo LONG for full list
echo SHORT for the short list 
echo SEASON for the current season's scrolls
echo END to stop
echo ****************************************

getline
goto %l

short:
echo Adder, Boar, Brigantine, Cat, Coyote, Dolphin, Donkey, Dove, Giant, Goshawk, Heron, Jackal, Katamba, Lion, Magpie, Ox, Panther, Penhetia, Phoenix, Raccoon, Ram, Raven, Scorpion, Shark, Shrike, Shrew, Snake (King), Spider, Sun, Toad, Viper, Vulture, Wolf, Weasel, Welkin, Wren, Xibar, Yavash
goto end

season:

seasoncheck:
match season1 spring
match season2 summer
match season3 fall
match season4 winter
put time
matchwait

season1:
gosub spring
goto end

season2:
gosub summer
goto end

season3:
gosub fall
goto end

season4:
gosub winter
goto end

long:
gosub other
gosub annual
gosub spring
gosub summer
gosub fall
gosub winter
goto end


other:
echo [Orbital Bodies]
echo [Sun, Katamba, Xibar, Yavash]
echo
echo [Planets]
echo Penhetia
pause 2
return

annual:
echo [Yearlong]
echo Cat, Giant, Magpie, Phoenix, Ram, Raven, Spider, Toad, Viper, Wolf
pause 2
return

spring:
echo [Spring]
echo Adder (116-226), Dolphin (13-123), Dove (45-195), Heron (131-241), Raccoon (111-221), Shrew (101-211), Weasel (318-28),  Wren (72-182)
echo
pause 2
return

summer:
echo [Summer]
echo Adder (116-226), Boar (166-276), Hare (153-263), Heron (131-241), Jackal (154-264), King Snake (214-324), Ox (228-338), Raccoon (111-221), Shardstar (192-302), Shrew (101-211), Triquetra (??-??), Wren (72-182)
echo
pause 2
return

fall: 
echo [Fall]
echo Donkey (265-375), Lion (251-361), Nightingale (343-53), Ox (228-338), Panther (287-397), Shark (355-65), Shrike (302-12), Vulture (274-384), Welkin (328-38)
pause 2
return

winter:
echo [Winter]
echo Brigantine (?? - ??), Coyote (377-87), Dolphin (13-123), Goshawk (361-71), Nightingale (343-53), Scorpion (389-99), Shrike (302-12), Weasel (318-28), Welkin (328-38)
pause 2
return


end:
echo [All Done]