Script Function: Q4RP

 function string Q4RP(obj this)
 {
   string Q5N7;
   list Q4D4;
   obj reward;
   reward = getObjVar(this, "questReward");
   if (reward == NULL())
   {
     Q4D4 = "Alas, I have naught to offer thee in payment save rumors.", "Sadly, all I can offer thee in return is rumors.", "Rumors and news are all I can offer in payment.", "I have no reward to give thee, though.", "I have nothing to offer thee as a reward save rumors.", "I wish that I had aught to entice thee with, but all I can offer is rumors.", "Sadly, rumors and news are all I have to give thee in return.";
     Q5N7 = Q4D4[random(0x00, numInList(Q4D4) - 0x01)];
     return (Q5N7);
   }
   Q4D4 = "I can pay thee.", "I can reward thee.", "I have some small payment to offer.", "I have some small reward to give.", "I can give thee a reward.", "I can give thee some payment.", "I can offer thee a small reward.", "I can offer thee some small payment.";
   Q5N7 = Q4D4[random(0x00, numInList(Q4D4) - 0x01)];
   Q4D4 = " As reward, I have ", " I can give thee ", " I would give thee ", " I could give thee ", " I might give thee ", " As reward, mayhap I have ", " Mayhap I can give thee ", " Mayhap I would give thee ", " Mayhap I could give thee ";
   Q5N7 = Q4D4[random(0x00, numInList(Q4D4) - 0x01)];
   Q5N7 = Q5N7 + getName(reward) + ".";
   return (Q5N7);
 }