Re: So long folks (from Robert Dewar)

[sk <noname@myob.com>]

Hi,

-------------------------------------
with CLA_Io;
with Miscellaneous_Support_Functions;
with Random_Number_Generator;

procedure Dewar_Bot is

    package CLAIO       renames CLA_Io;
    package MSF         renames Miscellaneous_Support_Functions;
    package RNG         renames Random_Number_Generator;

    Date     : MSF.Date_Type;
    Ignoring : Boolean := True;

    type Response_Type is new String (1 .. 20);
    
    Responses : constant array (1 .. 7) of Response_Type := (
        1 => "Rubbish             ",
        2 => "Complete Drivel     ",
        3 => "Nonsense            ",
        4 => "Contact ACT support ",
        5 => "Complete Nonsense   ",
        6 => "Absolute Rubbish    ",
        7 => "See the RM,         "
    );

    Chapter, Verse : Natural := 0;

begin
    loop
        MSF.Get_Date (Date);

        exit when Date = "2002.08.31";

        loop
            CLAIO.Get_Message;

            exit when CLAIO.No_New_CLA_Messages;

            Ignoring := RNG.Get_Random_Boolean_Value;

            if not Ignoring then

                 Response_Id := RNG.Get_Random_Natural (
                     First => Responses'First,
                     Last  => Responses'Last
                 );

                 if Response_Id = Responses'Last then

                     Chapter := RNG.Get_Random_Natural (1 .. 1000);
                     Verse   := RNG.Get_Random_Natural (1 .. 1000);

                     CLAIO.Send_Response (
                         Responses(Response_Id) &
                         "Chapter : " & Natural'Image (Chapter) &
                         ", Verse : " & Natural'Image (Verse)
                     );

                 else 

                     CLAIO.Send_Response (Responses(Response_Id));

                 end if;

            end if;

        end loop;

        MSF.Wait_For_An_Hour_Or_So;

    end loop;

end Dewar_Bot;

-------------------------------------
Please take this in the spirit (and silliness) of the
current thread and not a personal comment about Robert
Dewar. He can't be all that bad ! After all, he did invite 
everyone to come and watch a movie on his big-tv once 
after he mistakenly posted a personal e-mail

 o o
  |
 \_/

-- 
-------------------------------------
-- Merge vertically for real address
-------------------------------------
s n p @ t . o
 k i e k c c m
-------------------------------------