turnbook.cmd

# TurnBook script
#
# Usage
#  .turnbook (item)
#  .turnbook help
#
#
# written by Hanryu
# Please report any bugs to Hanryu#0052 (Discord) or [email protected]
# This script may be reused in whole or in part as long as credit is given
# This script is designed to use Outlander, http://outlanderapp.com
#2020-10-01
#   removeing pauses and cleaning up ...wait handling
#   setup to handle all crafting turnbooking
#2020-11-14
#   leather handles and cords for shields
#2020-12-01
#   leather handles and cords for shields
#2021-03-16
#   lazily hard coding thin sewing needles because I don't want to deal with it
#2022-01-03
#   Did some adjustment for O2
#debug 5

if matchre("%0", "help|HELP|Help|^$") then {
  printbox .turnbook Brigandine scale aventail;   You need to specify an item to turn the book to.;   OR you need to have a script set up and track the global variable $workorder
  goto end
}

start:
  var chapter %1
  shift
  var item %0
  if matchre(%chapter, \d) then {goto rechapter}

turn:
  if ($roundtime > 0) then {pause $pauseTime}
  if (($webbed) || ($stunned)) then {pause 0.1}
  matchre turn ^\.\.\.wait|^Sorry,|^You are still stun|^You can't do that while entangled
  matchre chapter (?i)Chapter (\d+): .*%chapter
  put turn my book to index
  put read my book
  matchwait
chapter:
  var chapter $1
rechapter:
  if ($roundtime > 0) then {pause $pauseTime}
  if (($webbed) || ($stunned)) then {pause 0.1}
  matchre rechapter ^\.\.\.wait|^Sorry,|^You are still stun|^You can't do that while entangled
 # matchre page Page (\d+): some %item
  matchre page Page (\d+): (?:some |an? )?%item
#  matchre page Page (\d+): (?:some |an? )?(?:thin )%item
  matchre page Page (\d+): (?:some |an? )?(?:wood |metal |leather )?%item
 # matchre page Page (\d+): (?:some |an? )?%adjective (?:cloth )%item
 # matchre page Page (\d+): (?:some |an? )?%adjective (?:leather )%item
 # matchre page Page (\d+): (?:some |an? )?%adjective (?:leather |cloth )%2
  matchre page Page (\d+): (?:some |an? )?%1 (?:leather |cloth )%2
  put turn my book to chapter %chapter
  put read my book
  matchwait
page:
  var page $1
repage:
  if ($roundtime > 0) then {pause $pauseTime}
  if (($webbed) || ($stunned)) then {pause 0.1}
  matchre repage ^\.\.\.wait|^Sorry,|^You are still stun|^You can't do that while entangled
  match done You turn your book to page
  match done You are already on page
  put turn my book to page %page
  matchwait
done:
  put #parse ** TURNBOOK DONE **
end:
  exit