* stablehand-sell
wait(random(30));
if ( cmp(%astr%,{camel}),      { goto({camel}); },    {} );
if ( cmp(%astr%,{camels}),     { goto({camel}); },    {} );
if ( cmp(%astr%,{burrow}),      { goto({burrow}); },    {} );
if ( cmp(%astr%,{burrows}),     { goto({burrow}); },    {} );
if ( cmp(%astr%,{llama}),      { goto({llama}); },    {} );
if ( cmp(%astr%,{llamas}),     { goto({llama}); },    {} );
if ( cmp(%astr%,{horse}),      { goto({horse}); },  {} );
if ( cmp(%astr%,{horses}),     { goto({horse}); },  {} );
 
if ( cmp(%astr%,{spotted horse}),      { goto({spotted_horse}); },  {} );
if ( cmp(%astr%,{spotted}),            { goto({spotted_horse}); },  {} );
if ( cmp(%astr%,{mare}),      { goto({mare}); },  {} );
if ( cmp(%astr%,{black}),            { goto({black_horse}); },  {} );
if ( cmp(%astr%,{black horse}),      { goto({black_horse}); },  {} );
if ( cmp(%astr%,{mustang}),    { goto({mustang}); }, {} );
if ( cmp(%astr%,{mustangs}),   { goto({mustang}); }, {} );
if ( cmp(%astr%,{bronco}),    { goto({bronco}); }, {} );
if ( cmp(%astr%,{dragon}),          { goto({dragon}); }, {} );
if ( cmp(%astr%,{green dragon}),    { goto({dragon}); }, {} );
if ( cmp(%astr%,{shivabeast}),  { goto({shivabeast}); }, {} );
if ( cmp(%astr%,{shivabeasts}), { goto({shivabeast}); }, {} );
if ( cmp(%astr%,{ostok}),      { goto({ostok}); }, {} );
if ( cmp(%astr%,{ostoks}),     { goto({ostok}); }, {} );
if ( cmp(%astr%,{pack horse}),  { goto({pack}); }, {} );
if ( cmp(%astr%,{pack}),        { goto({pack}); }, {} );
if ( cmp(%astr%,{pack horses}), { goto({pack}); }, {} );
if ( cmp(%astr%,{kirin}),      { goto({kirin}); }, {} );
if ( cmp(%astr%,{kirins}),     { goto({kirin}); }, {} );
if ( cmp(%astr%,{multicolored kirin}),     { goto({kirin}); }, {} );
if ( cmp(%astr%,{multi-colored kirin}),    { goto({kirin}); }, {} );
 
if ( cmp(%astr%,{oliphant}),   { goto({oliphant}); }, {} );
if ( cmp(%astr%,{oliphants}),  { goto({oliphant}); }, {} );
if ( cmp(%astr%,{oliphant}),   { goto({oliphant}); }, {} );
if ( cmp(%astr%,{oliphants}),  { goto({oliphant}); }, {} );
if ( cmp(%astr%,{oliphant}),   { goto({oliphant}); }, {} );
if ( cmp(%astr%,{oliphants}),  { goto({oliphant}); }, {} );
goto({end});
label(explain);
    do({'Well, %name%, I can offer you a variety of pack animals and other exotic creatures.
         In stock today we have several horses, a mustang, a bronco, multicolored kirin, ostoks, oliphants and camels. Each of those costs 10 gold.
         I also sell burrows, pack llamas and pack horses for 1 gold.  We have a few other creatures available, but you'll
         pay handsomely for them.  A shivabeast costs 20 gold, a dragon costs 50 gold and a unicorn costs 45 gold.
         If you need livestock, I suggest visiting the Vadmet farm south of Kess near the Ostinbrok. });
    wait(5);
    do({'Just say the name of the animal you'd like, and we can do business.});
goto({end});
label(horse);
    do({'Well, %name%, I can offer you a black one, a mustang, a bronco, a chocolate mare, or a spotted horse. Each of those costs 10 gold.
         Which would you like?});
goto({end});
label(camel);
if ( charge(%name%,{1000}),  {goto({breed_camel}); },  {goto({no}); }  );
goto({end});
label(breed_camel);
breed(5049,%actor%);
goto({end});
 
label(burrow);
if ( charge(%name%,{100}),   {goto({breed_burrow}); } ,  {goto({no}); }  );
goto({end});
label(breed_burrow);
breed(5051,%actor%);
goto({end});
label(pack);
if ( charge(%name%,{100}),   {goto({breed_pack}); } ,  {goto({no}); }  );
goto({end});
label(breed_pack);
breed(5042,%actor%);
goto({end});
label(llama);
if ( charge(%name%,{100}),   {goto({breed_llama}); } ,  {goto({no}); }  );
goto({end});
label(breed_llama);
breed(5052,%actor%);
goto({end});
 
label(spotted_horse);
if ( charge(%name%,{1000}),   {goto({breed_shorse}); } ,  {goto({no}); }  );
goto({end});
label(breed_shorse);
breed(6012,%actor%);
goto({end});
label(mare);
if ( charge(%name%,{1000}),   {goto({breed_mare}); } ,  {goto({no}); }  );
goto({end});
label(breed_mare);
breed(5041,%actor%);
goto({end});
label(black_horse);
if ( charge(%name%,{1000}),   {goto({breed_bhorse}); } ,  {goto({no}); }  );
goto({end});
label(breed_bhorse);
breed(556,%actor%);
goto({end});
 
label(kirin);
if ( charge(%name%,{1000}),   {goto({breed_kirin}); } ,  {goto({no}); }  );
goto({end});
label(breed_kirin);
breed(5040,%actor%);
goto({end});
label(mustang);
if ( charge(%name%,{1000}),   {goto({breed_mustang}); } ,  {goto({no}); }  );
goto({end});
label(breed_mustang);
breed(5047,%actor%);
goto({end});
 
label(bronco);
if ( charge(%name%,{1000}),   {goto({breed_bronco}); } ,  {goto({no}); }  );
goto({end});
label(breed_bronco);
breed(5053,%actor%);
goto({end});
label(ostok);
if ( charge(%name%,{1000}),   {goto({breed_ostok}); } ,  {goto({no}); }  );
goto({end});
label(breed_ostok);
breed(5046,%actor%);
goto({end});
 
label(shivabeast);
if ( charge(%name%,{2000}),   {goto({breed_s}); } ,  {goto({no}); }  );
goto({end});
label(breed_s);
breed(5048,%actor%);
goto({end});
label(unicorn);
if ( charge(%name%,{4500}),   {goto({breed_unicorn}); } ,  {goto({no}); }  );
goto({end});
label(breed_unicorn);
breed(5044,%actor%);
goto({end});
 
label(dragon);
if ( charge(%name%,{5000}),   {goto({breed_dragon}); } ,  {goto({no}); }  );
goto({end});
label(breed_dragon);
breed(5045,%actor%);
goto({end});
label(no);
do({'I'm afraid I cannot help you: you do not have enough money.});
label(end);