SgrupDisco.qsrc 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. # SgrupDisco
  2. *clr & cla
  3. gs 'themes', 'food_menu'
  4. gs 'stat'
  5. $textgrup = ''
  6. $textgrup2 = ''
  7. act 'Move away':gt $loc, $metka
  8. '<center><b><font color="maroon">Disco</font></b></center>'
  9. !'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
  10. *nl
  11. i = 0
  12. '<center><table cellspacing="3">'
  13. :markgruploop
  14. i += 1
  15. if count1 = 6 : $textgrup += '<tr>'
  16. if grupTipe[i] = 1:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
  17. if count1 < 6 and grupTipe[i] = 1 :
  18. $textgrup += '</td>'
  19. elseif count1 = 6 and grupTipe[i] = 1:
  20. $textgrup +='</td></tr><tr>' & count1 = 0
  21. end
  22. !hack to force a new section for gopniks
  23. if i = 9 : $textgrup2 += '<tr></tr>'
  24. !end hack
  25. if count2 = 6 : $textgrup2 += '<tr>'
  26. if grupTipe[i] = 4: count2 += 1 & $textgrup2 += '' + '<td bgcolor=<<$bcolor1>> align="center"><img height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
  27. if count2 < 6 and grupTipe[i] = 4:
  28. $textgrup2 += '</td>'
  29. elseif count2 = 6 and grupTipe[i] = 4:
  30. $textgrup2 +='</td></tr><tr>' & count2 = 0
  31. end
  32. if i < 61:jump 'markgruploop'
  33. '<<$textgrup>>'
  34. *nl
  35. '<<$textgrup2>>'
  36. '<center>Most the cool kids are dancing, while the gopnics are standing in the corner of the room, keeping to themselves.</center>'
  37. if hour >= 21 and hour < 23 and week=5: '<center>At the entrance of the disco hall stands <a href="exec:GT ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a></center>'
  38. '</table><center>'
  39. --- SgrupDisco ---------------------------------