Sigil Scrolls (script)

Sigil Scrolls (script)
Category	training,Moon Mage
Front-end	YASSE
Author	Hithrael

Notes: For additional scrolls just copy and paste the sigil portion (adder or boar) and replace the header and the scroll name with whatever. Eventually I will catalog the constellations in full.

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


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
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]