Study crafting book (script)

Scholarship training by studying crafting book Usage is .<scriptname> <crafting discipline>

begin:
counter set 2
save %c

get:
match get ..wait
match chapter You get
match chapter You are already
put get %1 book
matchwait

chapter:
counter set 0
match chapter ..wait
match turnpg You turn
match turnpg The book is already
match done does not have
put turn book to chapter %s
matchwait

turnpg:
counter add 1
match chapter ..wait
match study You turn
match nextchp This chapter does not
put turn book to page %c
matchwait

study:
match study ..wait
match turnpg Roundtime
put study my book
matchwait

nextchp:
counter set %s
counter add 1
save %c
goto chapter

done:
put sk schol
exit