SgrupDisco.qsrc 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
  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. count1 = 0
  12. count2 = 0
  13. i = 0
  14. '<center><table cellspacing="3">'
  15. :markgruploop
  16. i += 1
  17. if count1 = 6 : $textgrup += '<tr>'
  18. 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]
  19. if count1 < 6 and grupTipe[i] = 1 :
  20. $textgrup += '</td>'
  21. elseif count1 = 6 and grupTipe[i] = 1:
  22. $textgrup +='</td></tr><tr>' & count1 = 0
  23. end
  24. !hack to force a new section for gopniks
  25. if i = 9 : $textgrup2 += '<tr></tr>'
  26. !end hack
  27. if count2 = 6 : $textgrup2 += '<tr>'
  28. 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]
  29. if count2 < 6 and grupTipe[i] = 4:
  30. $textgrup2 += '</td>'
  31. elseif count2 = 6 and grupTipe[i] = 4:
  32. $textgrup2 +='</td></tr><tr>' & count2 = 0
  33. end
  34. if i < 61:jump 'markgruploop'
  35. '<<$textgrup>>'
  36. *nl
  37. '<<$textgrup2>>'
  38. '<center>Most the cool kids are dancing, while the gopnics are standing in the corner of the room, keeping to themselves.</center>'
  39. 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>'
  40. '</table><center>'
  41. --- SgrupDisco ---------------------------------