183_SgrupDisco 373 B

12345678910111213141516171819202122
  1. # SgrupDisco
  2. gs 'stat'
  3. $textgrup = ''
  4. $textgrup2 = ''
  5. i = 0
  6. :markgruploop
  7. i += 1
  8. if grupTipe[i] = 3:$textgrup +='
  9. '+$npcGo[i]
  10. if grupTipe[i] = 4:$textgrup2 +='
  11. '+$npcGo[i]
  12. if i < 26: jump 'markgruploop'
  13. 'Dancing on the dance floor'
  14. '<<$textgrup>>'
  15. 'In one corner stand'
  16. '<<$textgrup2>>'
  17. act 'Move away': gt $loc, $metka
  18. --- SgrupDisco ---------------------------------