% Author: Jack140                                         
% Date: Monday, September 29, 2008                               
% Filename: Raybiss.t                                               
% Description: RAYBISS - A game of strategy and adventure.                           
% You've the only survivor, who had survived from a horrible hurricane,         
% you must find a way to be rescued. Remember even thou you are alone,   
% there are full of surprise ahead to watch out for...                                   
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics")
setscreen ("graphics:1000,650")


%                Declare Raybiss Variables                   

% Game Options Variables                                       
var name : string                                               
var age : real                                                 
var continue : string                                           
var ready : string                                             
var input : string                                             
                                                               
% Inventory Variables                                           
var key: int:=0                                                 
var keyanswer:string   
var radio: int :=0
var radioanswer : string                                         
                                                               
% Area Variables                                               
var answer : string                                             
var area : int                                                 

area := 0                                                     

                                                                                                                                                                         
%
%        Introduction to Raybiss and Melanie and Ratings       

put "                       RAYBISS                             "
put skip
color (2)
put "'Hello, My name Is Melanie, your guide to Raybiss.' "
put "'What is your name?' " ..
get name :*
put "  "
put "'Before we start, I need to know your age?'" ..
get age

loop
    if age <= 12.99 then
        put "'Your too young to play,", name, " wait until your 13. "
        put " This game may contain scences of violence viewer discretion is advised!'"
        put "'Just kidding you can play, there are no graphical images in this game'"
        put "'Here are the following rules:'"
    end if
    exit when age <= 12.99 
    if age >= 50 then
        put "'Sorry, you are too old to play'... ('Just Kidding! ", name, "')"
        put "'Here are the following rules:'"
    end if
    exit when age >= 50
    if age >= 13 then
        put "'You are allowed to play this game!'", name
        put "'Here are the following rules:'"
    end if
    exit when age >= 13
end loop
put skip
color (3)


%                  Declare Rules of Game                     

put " How to play Raybiss Rules: "
put "  "
put " 1. You must indicate the direction you are willing to travel "
put "                (North, South, East or West)                  "
put "                                                              "
put " 2. You can pick up items and use them for your advantages "
put "  "
put " 3. You must clearly use two words... a Verb and a Noun (Ex. use/pickup key), "
put " to activate the action, so that you are able to, "
put " use or pickup any objects, that you've found. "
put "  "
put " 4. You must be rescued to be able to win the game "
put "  "
loop
    put " type 'continue', to proceed "
    get input :*
    exit when input = "continue"
end loop
put "  "

%                  Explaining Situations                       

color (12)
put " 'Hi ", name ..
put " this is Melanie, your guide'"
put "  "
put " 'Firstly, I will like to introduce you to my game called 'Raybiss' "
put " So...lets begin!, this is your situation..."
put " You are currently in need of help, "
put " meaning that you've just survived from a devastating hurricane. "
put " In fact you are the only survivor, nobody else had survived this deadly strike, "
put " Here are some objective you must accomplish...'"
put "  "
loop
    put " type 'continue', to proceed "
    get input : *
    exit when input = "continue"
end loop
put "  "

%             Explaining Objectives and Circumstances           
color (9)
put " Objectives: "
put "         1. Find basic survival supplies (Food, Shelter,) "
put "         2. Find Telecommunication Equipment "
put "         3. Obviously, you must be rescued "
put "         4. Have Fun!!! "
put "                                                                          "
put " 'Where are you?, you are in your basement. To the east, you see an exit, "
put " Which leads upstairs, I reccommend you go there, and get out of the flooded "
put " basement, but before I go, ", name ..
put ", "
put " I must warn you of the possible upcoming surprises, Good Luck' "
put "  "
loop
    put " type 'ready', to begin your game... "
    get input : *
    exit when input = "ready"
end loop
put skip
% Map of Basement
Text.Cls
drawbox (200,200,400,400,16)
drawline (225,275,275,225,red)
drawline (275,275,225,225,red)
put " Your are here (X)..."
put " The box is the staircase (east)"
delay(4000)
cls
color (4)

%//////////////////////Gaming Begins////////////////////////////%

proc basement
    put "You are currently in the basement.  Exit is to the east"
    area := 1
end basement

proc room
    put "You are in a room.  Exits to the north, south and west"
    area := 2
end room

proc kitchen
    put "You are in the kitchen.  Exits to north, west and south"
    area := 3
end kitchen

proc livingroom
    put "You are currently in your living room.  Exit to the east "
    if radio = 0 then
    put "you see a radio"
        put "It might be useful"
        get radioanswer:*
        if radioanswer = "get radio" or radioanswer = "grab radio" or radioanswer = "take radio" or radioanswer = "pickup radio" then
            put "you've got the radio! Go to your backyard and test the radio out"
            radio := 1
        else
            put "I don't know what that means. Try different words."
        end if
    end if
    area := 4
end livingroom

proc frontdoor
    put "You are at the front door, Apparently it has been damaged and blocked,"
    put " Please find another exit.  Exit is to the north (kitchen)"
    area := 5
end frontdoor

proc backyard
    put "You are in your backyard.  Exits is to the east, west and south"
    if radio = 1 then
        put "Alright hopefully the radio will work out here"
        get radioanswer :*
        if radioanswer = "try radio" or radioanswer = "use radio" or radioanswer = "test radio" then
            put "Sorry, your radio connection has failed and its been damaged from the flood"
        end if
    end if
    area := 6
end backyard

proc shed
    put "You are in the shed.  Exit is to the east"
    if key = 0 then
        put "you see a key"
        put "what do you want to do?"
        get keyanswer:*
        if keyanswer = "get key" or keyanswer = "grab key" or keyanswer = "pickup key" or keyanswer = "take key" then
            put "you got the key!"
            key:= 1
        else
            put "I don't know what that means."
        end if
    end if
    area := 7
end shed

proc gate
    put "You are at the gates.  Exit is to the west unless you have a key"
    put "You can then access to many more exits. "
    if key = 1 then
    put "Hey, it looks like your key might be able fit into the lock"
    get keyanswer:*
    if keyanswer="try key" or keyanswer = "use key" or keyanswer = "open lock with key" or keyanswer = "open with key" then
    put "Your key has successfully unlocked the gate!. It releases a monster"
    put " Game Over! You are instantly Dead! Haha"
    put " Just kidding, My game isn't finished "
    put " Congrats you've made it through section 1 of 4."
    end if
    end if
    area := 8
end gate

%************************Temporary Text*************************%
put "Welcome to a text-based adventure game"
put "As you may have known, you are in your flooded basement "
basement
get answer:*

put "Your roof is collapsing, I suggest you quickly get out of your house... "
put "You may or may not search your house for supplies, the decisions are entirely up to you '", name, "'"
room
get answer
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
%///////////////Generating Input to Directions//////////////////%
loop
        % Basement to Room, Room to Basement (Primary Path)
    if area = 1 and (answer = "go east" or answer = "east" or answer = "e") then
        room
    elsif area = 2 and (answer = "go west" or answer = "west" or answer = "w") then
        basement

        % Room to Kitchen, Kitchen to Room (Secondary Path)
    elsif area = 2 and (answer = "go south" or answer = "south" or answer = "s") then
        kitchen
    elsif area = 3 and (answer = "go north" or answer = "north" or answer = "n") then
        room

        % Room to Backyard, Backyard to Room (Primary Path)
    elsif area = 6 and (answer = "go south" or answer = "south" or answer = "s") then
        room
    elsif area = 2 and (answer = "go north" or answer = "north" or answer = "n") then
        backyard

        % Kitchen to Front Door, Front Door to Kitchen  (Secondary Path)
    elsif area = 3 and (answer = "go south" or answer = "south" or answer = "s") then
        frontdoor
    elsif area = 5 and (answer = "go north" or answer = "north" or answer = "n") then
        kitchen


        % Kitchen to Living Room, Living Room to Kitchen (Secondary Path)
    elsif area = 3 and (answer = "go west" or answer = "west" or answer = "w") then
        livingroom
    elsif area = 4 and (answer = "go east" or answer = "east" or answer = "e") then
        kitchen

        % Backyard to Shed, Shed to Backyard (Primary Path)
    elsif area = 6 and (answer = "go west" or answer = "west" or answer = "w") then
        shed
    elsif area = 7 and (answer = "go east" or answer = "east" or answer = "e") then
        backyard

        % Backyard to Gate, Gate to Backyard (Primary Path)
    elsif area = 6 and (answer = "go east" or answer = "east" or answer = "e") then
        gate
    elsif area = 8 and (answer = "go west" or answer = "west" or answer = "w") then
        backyard
        % If they do not type the required word, this will pop up %
        put "I don't Know the word...'", answer, "' "
        put "Please type a different word(s) "
    end if
    put "  "
    get answer :*
end loop