AarchonWiki

This is an old revision of the document!

---

-- {yVermin Inspector Reward Mprog{x
vreward=vreward or function(ch, killed)
  local rewardcnt=math.floor(killed/12)
 
  if rewardcnt==0 then return end
 
  for i=1,rewardcnt do
    local rwd=randnum(1,10)
    reward( ch.name.." qp "..rwd )
    qadvance(ch.name.." 10500 -12" )
  end
end
 
local killed=ch:qstatus(10500)
 
if killed>= 12 then
  say("Hey "..ch.name..". You have a done a good job at helping to keep the vermin down.")
  mdo("smile "..ch.name)
  vreward(ch, killed)
elseif killed> 0 and killed <12 then
  say( "You're doing a good job. Keep up the good work." )
  say( "Come back when you have killed some more rats." )
  mdo( "reassure "..ch.name )
else
  say( "You need to kill at least a dozen rats before you can claim your reward." )
end