029_subkid 399 B

12345678910111213141516
  1. # subkid
  2. if kid > 0:
  3. set kidIteration = 1
  4. set kidSelected = 0
  5. set kidLoops = 0
  6. :loop
  7. set kidSelected[kidLoops] = kidIteration
  8. pl '<a href="exec:kidSelected = kidSelected[kidLoops]& gt ''kid'',''start'' ">In the crib lies <<$kidname[kidIteration]>>.</a>'
  9. set kidIteration += 1
  10. set kidLoops += 1
  11. if kidIteration <= numkid:
  12. jump 'loop'
  13. end
  14. end
  15. --- subkid ---------------------------------