* baillion-hirelings
wait(random(30));
if ( cmp(%astr%,{bard}),      { goto({bard}); },    {} );
if ( cmp(%astr%,{monk}),      { goto({monk}); },    {} );
if ( cmp(%astr%,{ranger}),    { goto({ranger}); },  {} );
if ( cmp(%astr%,{fighter}),   { goto({fighter}); }, {} );
if ( cmp(%astr%,{hirelings}), { goto({explain}); }, {} );
if ( cmp(%astr%,{hireling}), { goto({explain}); }, {} );
goto({end});
label(explain);
    do({'Well, %name%, I can offer the services of a hireling.
         You can be helped by a bard, a fighter, a monk or a ranger.  I know enough people
         that you could hire as many as you can afford.  Just say the profession of your
         desired adventurer. Each costs 10 gold.});
goto({end});
label(bard);
if ( charge(%name%,{1000}),  {goto({breed_bard}); },  {goto({no}); }  );
goto({end});
label(breed_bard);
breed(5021,%actor%);
goto({end});
label(monk);
if ( charge(%name%,{1000}),   {goto({breed_monk}); } ,  {goto({no}); }  );
goto({end});
label(breed_monk);
breed(5022,%actor%);
goto({end});
label(ranger);
if ( charge(%name%,{1000}),   {goto({breed_ranger}); } ,  {goto({no}); }  );
goto({end});
label(breed_ranger);
breed(5023,%actor%);
goto({end});
label(fighter);
if ( charge(%name%,{1000}),   {goto({breed_fighter}); } ,  {goto({no}); }  );
goto({end});
label(breed_fighter);
breed(5024,%actor%);
goto({end});
label(no);
do({'I'm afraid I cannot help you: you do not have enough money to support a hireling.});
label(end);