SgrupDisco 378 B

1234567891011121314151617181920212223
  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 <<$textgrup>>'
  14. ''
  15. 'In one corner stand <<$textgrup2>>'
  16. act 'Move away':gt $loc, $metka
  17. --- SgrupDisco ---------------------------------