SgrupDisco 373 B

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