!----------------------------------------------------------------------------
! Routines for the built-in HINT system!

!----------------------------------------------------------------------------
replace DoHelp
{

    local hintnum, loop=true

    DoClearScreen : print "" !Clear screen and blank line.
    !print "Trading Punches "; : StringPrint(versionbuf) : print ""
    print "HINTS for "; player.misc #2; " ("; player.misc #3; ")"
    print "" !Offer a blank line

    "You have selected to receive HINTS for the current chapter. In order to
    make sure this is an intentional effort, each hint requires that you
    press the next letter of the alphabet in sequence: [A] for the first
    hint, [B] for the second, then [C], and so forth. Pressing any OTHER key
    than the one for the next hint will return you to the game (the [ESC] key
    is an easy choice). You can return to this section at any time by typing
    HINTS, and you will be able to continue with the next clue in sequence."
    print "" !A blank line

    !Print any hints that we've already viewed.
    for (hintnum=1; hintnum<NextHint; hintnum++) {
        print "... ";
        PrintHint(Chapter, Section, hintnum)
    }

    while (loop) {
        print "... ";
        if (WaitforHintKey) {
            if (NextHint <= MaxHints) {
                PrintHint(Chapter, Section, NextHint)
                NextHint++
            } else {
                loop = false
            }
        } else {
            loop = false
        }
    }

    DoClearScreen : Perform(&DoLookAround)
}


!----------------------------------------------------------------------------
routine PrintHint(chap, sect, hint)
{
    !********************* PROLOGUE: Skipping Stones
    if (chap = 0) {
        MaxHints = 19
        if (hint = 1) {
            "[A] So here you are. Have you looked around yet?"
        } elseif (hint = 2) {
            "[B] Have you noticed what Thyras is doing?"
        } elseif (hint = 3) {
            "[C] What is the Prologue called?"
        } elseif (hint = 4) {
            "[D] Gavenn and Thyras are very competitive."
        } elseif (hint = 5) {
            "[E] You'll need to find a few stones, of course."
        } elseif (hint = 6) {
            "[F] Thyras has plenty. Will he share with you?"
        } elseif (hint = 7) {
            "[G] Absolutely not. Where else might you find some?"
        } elseif (hint = 8) {
            "[H] Down by the nearest stream is a likely spot."
        } elseif (hint = 9) {
            "[I] You'll need to examine the area to find what you want."
        } elseif (hint = 10) {
            "[J] Now, you're ready to join Thyras."
        } elseif (hint = 11) {
            "[K] Just return to the west end, and skip a stone."
        } elseif (hint = 12) {
            "[L] You're busy now, so Father and Uncle will talk."
        } elseif (hint = 13) {
            "[M] What they say now does affect your future."
        } elseif (hint = 14) {
            "[N] But it isn't anything you have to remember."
        } elseif (hint = 15) {
            "[O] Skip another. And another. Thyras may be impressed."
        } elseif (hint = 16) {
            "[P] Everyone is distracted. Something bad has happened."
        } elseif (hint = 17) {
            "[Q] Check on Father."
        } elseif (hint = 18) {
            "[R] You will want something to remember him by."
        } elseif (hint = 19) {
            "[S] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 1-1: The Accord
    if (chap=1 and sect=1) {
        MaxHints = 10
        if (hint = 1) {
            "[A] Check your inventory."
        } elseif (hint = 2) {
            "[B] Looking at Father's watch is also a good idea."
        } elseif (hint = 3) {
            "[C] These things have more meaning, later."
        } elseif (hint = 4) {
            "[D] You can try entering the building."
        } elseif (hint = 5) {
            "[E] You can try leaving in various directions."
        } elseif (hint = 6) {
            "[F] You can't, but it may help you gain your bearings."
        } elseif (hint = 7) {
            "[G] Right now, you have a guest."
        } elseif (hint = 8) {
            "[H] You may want to look at him and talk to him."
        } elseif (hint = 9) {
            "[I] Continue by telling him what he asks about."
        } elseif (hint = 10) {
            "[J] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 1-2: Serving Drinks
    if (chap=1 and sect=2) {
        MaxHints = 26
        if (hint = 1) {
            "[A] This is an important, historical event."
        } elseif (hint = 2) {
            "[B] You're here as a guest of Uncle Jerrus."
        } elseif (hint = 3) {
            "[C] As such, you might find something else to do."
        } elseif (hint = 4) {
            "[D] Have you looked at the other guests yet?"
        } elseif (hint = 5) {
            "[E] The Incenders aren't exactly like your people."
        } elseif (hint = 6) {
            "[F] Have you tried sitting down on a bench?"
        } elseif (hint = 7) {
            "[G] Have you explored on and around the pavilion?"
        } elseif (hint = 8) {
            "[H] Once again, what is this chapter called?"
        } elseif (hint = 9) {
            "[I] Fill cups and offer them to the other guests."
        } elseif (hint = 10) {
            "[J] Some of the guests won't drink."
        } elseif (hint = 11) {
            "[K] You're looking for a goal, a point, right?"
        } elseif (hint = 12) {
            "[L] Offer a cup to Eeeloraaa. You'll find a goal."
        } elseif (hint = 13) {
            "[M] You can't rendezvous until the small-talk ends."
        } elseif (hint = 14) {
            "[N] While Feeeshaaa is here, so is the small-talk."
        } elseif (hint = 15) {
            "[O] The note also mentions Thyras..."
        } elseif (hint = 16) {
            "[P] Nobody can drink forever. Is that a distraction?"
        } elseif (hint = 17) {
            "[Q] You have an opportunity to compete with Thyras."
        } elseif (hint = 18) {
            "[R] But you can't beat him without cheating."
        } elseif (hint = 19) {
            "[S] Yarrel might be able to help you with that."
        } elseif (hint = 20) {
            "[T] She's interested in sampling different bevereges."
        } elseif (hint = 21) {
            "[U] She offers important tips. Be sure to read them."
        } elseif (hint = 22) {
            "[V] You can beat Thyras, and embarrass him too."
        } elseif (hint = 23) {
            "[W] When small-talk over, Eeeloraaa walks away."
        } elseif (hint = 24) {
            "[X] Read the note again. Where might she have gone?"
        } elseif (hint = 25) {
            "[Y] She's not what she seems, but you're drunk."
        } elseif (hint = 26) {
            "[Z] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 2-1: Site Seven
    if (chap=2 and sect=1) {
        MaxHints = 6
        if (hint = 1) {
            "[A] Ruhne Gahle is back again, later in the cycle."
        } elseif (hint = 2) {
            "[B] Remember what you did before?"
        } elseif (hint = 3) {
            "[C] Check your father's wristwatch again."
        } elseif (hint = 4) {
            "[D] Talk to Ruhne. He's curious about something."
        } elseif (hint = 5) {
            "[E] Tell him about it."
        } elseif (hint = 6) {
            "[F] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 2-2: Hearing Voices
    if (chap=2 and sect=2) {
        MaxHints = 26
        if (hint = 1) {
            "[A] You came here for a reason: to find Thyras."
        } elseif (hint = 2) {
            "[B] Explore the area. Enter the buildings."
        } elseif (hint = 3) {
            "[C] The site seems to be abandoned."
        } elseif (hint = 4) {
            "[D] Thyras is nowhere to be seen."
        } elseif (hint = 5) {
            "[E] Still, he could be inside a building."
        } elseif (hint = 6) {
            "[F] Can you work the lifts to explore above?"
        } elseif (hint = 7) {
            "[G] No, you don't understand how it works."
        } elseif (hint = 8) {
            "[H] Sound seems to go a long ways, though."
        } elseif (hint = 9) {
            "[I] If Thyras is up there, will he respond?"
        } elseif (hint = 10) {
            "[J] Try yelling his name."
        } elseif (hint = 11) {
            "[K] Maybe he can be found in another building."
        } elseif (hint = 12) {
            "[L] The dust storm is really picking up."
        } elseif (hint = 13) {
            "[M] The storm rages. Does the wristwatch prompt you?"
        } elseif (hint = 14) {
            "[N] Did you yell his name in all five buildings?"
        } elseif (hint = 15) {
            "[O] Did you hear anything? Was it Thyras?"
        } elseif (hint = 16) {
            "[P] Outside, a child is lost in the dust storm."
        } elseif (hint = 17) {
            "[Q] You need to head him off to find him..."
        } elseif (hint = 18) {
            "[R] Look for him to be moving and nearby."
        } elseif (hint = 19) {
            "[S] He has a request for you. It seems reasonable."
        } elseif (hint = 20) {
            "[T] If you are unsure, find him and ask about the card."
        } elseif (hint = 21) {
            "[U] You'll certainly have to do so, if it doesn't work."
        } elseif (hint = 22) {
            "[V] What was that sound? Maybe it's time to leave."
        } elseif (hint = 23) {
            "[W] Finally, Thyras. Can you see him or yell at him?"
        } elseif (hint = 24) {
            "[X] Look for an alternate way into your drop-shuttle."
        } elseif (hint = 25) {
            "[Y] Did you examine the shuttle and its hatchway?"
        } elseif (hint = 26) {
            "[Z] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 3-1: Mythos of Creation
    if (chap=3 and sect=1) {
        MaxHints = 6
        if (hint = 1) {
            "[A] Father's wristwatch shows the date."
        } elseif (hint = 2) {
            "[B] Ruhne has returned for another meeting."
        } elseif (hint = 3) {
            "[C] This time, he's interested in theology."
        } elseif (hint = 4) {
            "[D] The next section is directly related..."
        } elseif (hint = 5) {
            "[E] Tell him what he wants to know."
        } elseif (hint = 6) {
            "[F] "; !We actually print the text, below.
        }
    }

    !********************* CHAPTER 3-2: Keeping Secrets
    if (chap=3 and sect=2) {
        MaxHints = 26
        if (hint = 1) {
            "[A] Explore the underwater relic."
        } elseif (hint = 2) {
            "[B] Can you find anything of use?"
        } elseif (hint = 3) {
            "[C] The ash isn't really ash. Can you get it?"
        } elseif (hint = 4) {
            "[D] It's sticky. You can probably carry it..."
        } elseif (hint = 5) {
            "[E] If you find something it can stick to."
        } elseif (hint = 6) {
            "[F] Did you find and examine the debris?"
        } elseif (hint = 7) {
            "[G] One portal stands gapped. Can you open it?"
        } elseif (hint = 8) {
            "[H] Did you find and examine the rubble?"
        } elseif (hint = 9) {
            "[I] Once opened, it leads outside, to a ledge."
        } elseif (hint = 10) {
            "[J] Does this lead you into another room?"
        } elseif (hint = 11) {
            "[K] Something on the wall is recognizable there."
        } elseif (hint = 12) {
            "[L] What might you do with something like that?"
        } elseif (hint = 13) {
            "[M] Has anything changed now? Return to the hall."
        } elseif (hint = 14) {
            "[N] Portals have opened. Check out those rooms."
        } elseif (hint = 15) {
            "[O] What is the point of the white room?"
        } elseif (hint = 16) {
            "[P] Maybe the other door can be opened."
        } elseif (hint = 17) {
            "[Q] Can you proceed in the heavy diving suit?"
        } elseif (hint = 18) {
            "[R] It's too bulky to carry around with you."
        } elseif (hint = 19) {
            "[S] Examine what you find in the next room."
        } elseif (hint = 20) {
            "[T] Once again, Father's watch serves a purpose."
        } elseif (hint = 21) {
            "[U] That done, head out. You have a visitor."
        } elseif (hint = 22) {
            "[V] You've been trading punches metaphorically..."
        } elseif (hint = 23) {
            "[W] You can't leave, but the vines are drawn to..."
        } elseif (hint = 24) {
            "[X] The ash you picked up with the small rod."
        } elseif (hint = 25) {
            "[Y] Simply allow it to follow you to the source."
        } elseif (hint = 26) {
            "[Z] "; !We actually print the text, below.
        }
    }

    !********************* EPILOGUE: Waging Wars
    if (chap=4) {
        MaxHints = 26
        if (hint = 1) {
            "[A] The cycle is almost at an end."
        } elseif (hint = 2) {
            "[B] That's fitting..."
        } elseif (hint = 3) {
            "[C] Since you predicted this ten cycles earlier."
        } elseif (hint = 4) {
            "[D] Ruhne isn't here, but Aunt Shevra is."
        } elseif (hint = 5) {
            "[E] You used Ruhne; and Thyras gave you the idea."
        } elseif (hint = 6) {
            "[F] Shevra has something to tell you, though."
        } elseif (hint = 7) {
            "[G] Ask her about it."
        } elseif (hint = 8) {
            "[H] Maybe you suspected it, but now you know."
        } elseif (hint = 9) {
            "[I] So... That's the end."
        } elseif (hint = 10) {
            "[J] You're still reading?"
        } elseif (hint = 11) {
            "[K] So, here are a few things you may have missed."
        } elseif (hint = 12) {
            "[L] You understood Captain Chaniman's message?"
        } elseif (hint = 13) {
            "[M] And what it implies about the two societies?"
        } elseif (hint = 14) {
            "[N] All those hybris... Elmpines, Whaleworms, etc."
        } elseif (hint = 15) {
            "[O] Those are things created by the ancients."
        } elseif (hint = 16) {
            "[P] Yarrel was Relay's grandmother. It almost anagrams."
        } elseif (hint = 17) {
            "[Q] The theme? Joining and separating of two things."
        } elseif (hint = 18) {
            "[R] Rivalry, marriage, two societies, hybrids, etc."
        } elseif (hint = 19) {
            "[S] If you have used COMP04.Z5, look at this game."
        } elseif (hint = 20) {
            "[T] Each pair of concepts describes a section."
        } elseif (hint = 21) {
            "[U] Friendship and Rivalry is the Prologue, etc."
        } elseif (hint = 22) {
            "[V] Why would Thyras betray his own people?"
        } elseif (hint = 23) {
            "[W] Most of his life was spent among the Incenders."
        } elseif (hint = 24) {
            "[X] And he carried multiple grudges through life."
        } elseif (hint = 25) {
            "[Y] And Eeeloraaa played an important part in it."
        } elseif (hint = 26) {
            "[Z] "; !We actually print the text, below.
        }
         
    }

    !If we're on the last hint, say this.
    if (hint = MaxHints) {
        if (Chapter < 4) {
            "..... No more hints for this section."
        } else {
            "..... I hope you enjoyed Trading Punches!"
        }
    }
}

!----------------------------------------------------------------------------
routine WaitForHintKey
{
    local key, goodkey = false
    pause : key = word[0]
    if (key >= 65) and (key <= 90) { goodkey=true : key-=64 }
    if (key >= 97) and (key <= 122) { goodkey=true : key-=96 }
    if (goodkey) {
        if (key = NextHint) { return true }
    }
    return false !Not the next key in sequence, so exit.
}