HUNTER AND HUNTED

[James D Jarvis]

Hunter and Hunted is a spin on the classic text based grid hunting game Hurkle. This time it isn't just you and the Hurkle as you are also being hunted by the Bellicose Behinder. Can you find the Hurkle before the Bellicose Behinder finds you?

Code: (Select All)

'HUNTER AND HUNTED
_Title "HUNTER AND HUNTED"
Randomize Timer
Locate , 10: Print "H U N T E R    A N D    H U N T E D"
Print: Print: Print
Print "A Hurkle hunting game where you are both predator and prey"
Print: Print: Print
Do
    eaten$ = "no": found$ = "no": n = 15: g = 20
    hx = Int(Rnd * g) + 1: hy = Int(Rnd * g) + 1
    'the behinder starts
    b = Int(Rnd * 4)
    Select Case b
        Case 0:
            bx = 1
            by = Int(Rnd * g) + 1
        Case 1:
            bx = g
            by = Int(Rnd * g) + 1
        Case 2:
            by = 1
            bx = Int(Rnd * g) + 1
        Case 3:
            by = g
            bx = Int(Rnd * g) + 1
    End Select

    Print "A Hurkle is hiding somwhere in a "; g; " by"; g; " grid."
    Print "Homebase is at 0,0 and you must guess the hurkles location."
    Print "(X is West - East,  Y  is North - South)"
    Print "But BEWARE a BELLICOSE BEHINDER is also on the hunt..."
    Print "... and you are the prey."
    Print "Each turn you may enter your move as an x,y coordinate."
    Print "Hints will be provided as you play."
    Print
    Do
        Print "You have "; n; " turns left."
        If (Abs(x - bx) < 3 And Abs(y - by) < 3) Or (Abs(x - hx) < 4 And Abs(y - hy) < 4) Then
            Print "Something is stirring to the ";
            If y < by Then Print "north";
            If y > by Then Print "south";
            If x < bx Then Print "east";
            If x > bx Then Print "west";
            Print "."
        End If

        Input "Where do you think the Hurkle is Hiding? ", x, y
        n = n - 1
        Print
        If x = hx And y = hy Then
            found$ = "yes"
            Print "YOU FOUND THE HURKLE !"
            Print
        Else
            Print "Look ...";
            If y < hy Then Print "north";
            If y > hy Then Print "south";
            If x < hx Then Print "east"
            If x > hx Then Print "west"
            Print
        End If
        'there's a chance the behinder moves.... oh yeah it's coming for you
        If Int(Rnd * 100) < 31 Then
            Print
            Print "You hear the Behinder bounding."
            Print
            b = Int(Rnd * 4)
            Select Case b
                Case 0: bx = bx - 1
                Case 1: bx = bx + 1
                Case 2: by = by - 1
                Case 3: by = by + 1
            End Select
        End If

        If bx = x And by = y Then
            Print "OH NO !"
            Print
            Print "THE BELLICOSE BEHINDER HAS POUNCED ON YOU!"
            Print
            eaten$ = "yes"
        End If
    Loop Until found$ = "yes" Or n = 0 or eaten$="yes"
    If found$ = "yes" Then
        Print "That was just "; n; " turns!"
    Else
        If eaten$ = "yes" Then
            Print
            Print "YOUR HUNT IS OVER."
            Print
        Else
            Print
            Print "SORRY YOU DON'T HAVE ANY TURNS LEFT."
            Print
        End If
    End If
    Print
    Input "Play again ? (Yes or No) ", askquit$
    askquit$ = Left$(LCase$(askquit$), 1)
Loop Until askquit$ = "n"