Script Function: Q4CQ

 function void Q4CQ(obj speaker)
 {
   list Q5H7;
   string Q58D;
   if (Q500(speaker))
   {
     Q5H7 = "Hail and well met!", "Greetings, fellow guard.", "In the name of our liege, greetings!", "Greetings, my friend.", "Hail, my friend.", "Yes, thou'rt a virtue guard.", "Hmm? Yes, I am one. So art thou.", "Yes, as thou knowest, it is a great thing to be one!", "Isn't it wonderful being a virtue guard?";
     Q58D = Q5H7[random(0x00, numInList(Q5H7) - 0x01)];
     if (!Q4VD(speaker))
     {
       Q58D = Q58D + "  I see you are in need of our shield.  Here you go.";
       obj Q5RU;
       if (Q4YU)
       {
         Q5RU = requestCreateObjectIn(0x1BC3, getBackpack(speaker));
       }
       else
       {
         Q5RU = requestCreateObjectIn(0x1BC4, getBackpack(speaker));
       }
     }
     bark(this, Q58D);
     return ();
   }
   if (Q4ZT(speaker))
   {
     Q5H7 = "Stay away, lest our rivalry develop into something worse!", "Thou'rt not of my brotherhood! Away with thee!", "Whilst I grant respect to thy lord, I mislike thy emblem.", "Art thou here to harass me?", "Tch tch... thou wearest the wrong emblem!", "'Tis a pity that thou art in the wrong camp!", "There is a rivalry between thy group and mine--be careful.", "Is not thy emblem a sign that thou art a member of our rival guards?";
     Q58D = Q5H7[random(0x00, numInList(Q5H7) - 0x01)];
     bark(this, Q58D);
     return ();
   }
   if (isMurderer(speaker) || (getFameLevel(speaker) < 0x03))
   {
     Q5H7 = "Thou art not worthy of being a member of our fraternity.", "The guards will not accept thee until thy reputation improves.", "Thou hast not the unblemished record we expect from our members.", "Thy record is not good enough to join the guards.", "Only those of utmost probity are accepted into the guards.", "Only the very best of citizens may join the guards.", "Thou dost not qualify for the virtue guards; thy record is not good enough.";
     Q58D = Q5H7[random(0x00, numInList(Q5H7) - 0x01)];
     bark(this, Q58D);
     return ();
   }
   if (Q4YU)
   {
     Q5H7 = "Thou hast the look of a likely candidate for joining Lord Blackthorn's guards.", "Wouldst thou be interested in joining Blackthorn's guard?", "Blackthorn's guard hath been looking for folk like thee.", "Thou'rt a good and honest person. Care to join Lord Blackthorn's guard?", "If thou art interested in joining Lord Blackthorn's guard, a place can be found for thee.";
     Q58D = Q5H7[random(0x00, numInList(Q5H7) - 0x01)];
     Q58D = Q58D + " Sign up with a guild of chaos if thou art interested.";
     bark(this, Q58D);
   }
   else
   {
     Q5H7 = "Thou hast the look of a likely candidate for joining Lord British's guards.", "Wouldst thou be interested in joining British's guard?", "British's guard hath been looking for folk like thee.", "Thou'rt a good and honest person. Care to join Lord British's guard?", "If thou art interested in joining Lord British's guard, a place can be found for thee.";
     Q58D = Q5H7[random(0x00, numInList(Q5H7) - 0x01)];
     Q58D = Q58D + " Sign up with a guild of order if thou art interested.";
     bark(this, Q58D);
   }
   return ();
 }