noticeboard.qsrc 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180
  1. # noticeboard
  2. !! use gs 'noticeboard','start'
  3. $location_type = 'public_indoors'
  4. if $ARGS[0] = 'start':
  5. menu_off = 1
  6. gs 'saveposition'
  7. gt 'noticeboard','look'
  8. end
  9. if $ARGS[0] = 'look':
  10. if $set_imgh!'':givemeheight=val(mid($set_imgh,10,len($set_imgh)-9))/20 else givemeheight = 30
  11. NumberOfNewAdverts = 0
  12. $advert0 = func('noticeboard','test_advert0')
  13. $advert1 = func('noticeboard','test_advert1')
  14. $advert2 = func('noticeboard','test_advert2')
  15. $advert3 = func('noticeboard','test_advert3')
  16. $advert4 = func('noticeboard','test_advert4')
  17. $advert5 = func('noticeboard','test_advert5')
  18. $advert6 = func('noticeboard','test_advert6')
  19. !!$advert7 = func('noticeboard','test_advert7')
  20. !!$advert8 = func('noticeboard','test_advert8')
  21. !!$advert9 = func('noticeboard','test_advert9')
  22. $noticeboardmap = '<map name="noticemap">'
  23. $noticeboardmap += '<area shape="rect" coords="<<$advert0>>" href="exec:gt ''noticeboard'', ''advert0''" alt="--0--">'
  24. $noticeboardmap += '<area shape="rect" coords="<<$advert1>>" href="exec:gt ''noticeboard'', ''advert1''" alt="--1--">'
  25. $noticeboardmap += '<area shape="rect" coords="<<$advert2>>" href="exec:gt ''noticeboard'', ''advert2''" alt="--2--">'
  26. $noticeboardmap += '<area shape="rect" coords="<<$advert3>>" href="exec:gt ''noticeboard'', ''advert3''" alt="--3--">'
  27. $noticeboardmap += '<area shape="rect" coords="<<$advert4>>" href="exec:gt ''noticeboard'', ''advert4''" alt="--4--">'
  28. $noticeboardmap += '<area shape="rect" coords="<<$advert5>>" href="exec:gt ''noticeboard'', ''advert5''" alt="--5--">'
  29. $noticeboardmap += '<area shape="rect" coords="<<$advert6>>" href="exec:gt ''noticeboard'', ''advert6''" alt="--6--">'
  30. $noticeboardmap += '</map>'
  31. $noticeboardmap += '<center><img <<$set_imgh>> src="images/locations/shared/notboard/noticeboard_<<$loc>>.jpg" USEMAP="#noticemap"></center>'
  32. *pl $noticeboardmap
  33. killvar '$noticeboardmap'
  34. if NumberOfNewAdverts = 0: *nl 'There are no interesting adverts at the board.'
  35. if NumberOfNewAdverts = 1: *nl 'There is one interesting advert at the board.'
  36. if NumberOfNewAdverts > 1: *nl 'There are <<NumberOfNewAdverts>> interesting adverts at the board.'
  37. act 'Leave the board': gt 'restoreposition'
  38. end
  39. if $ARGS[0] = 'advert0':
  40. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/old town.jpg"></td></tr></table></center>'
  41. minut +=2
  42. gs 'stat'
  43. act 'Continue': gt 'noticeboard','look'
  44. !! 'Wanted dog walker!'
  45. !! act 'Call the number': gs 'telefon', 'phone_call_reject'
  46. !! act 'Record the phone number':
  47. !! gs 'telefon','Add_contact','images/system/phone/icons/icon_na.png',' gs ''telefon'', ''phone_call_reject'' '
  48. !! gt 'noticeboard','look'
  49. !! end
  50. end
  51. if $ARGS[0] = 'advert1':
  52. '<center><table bgcolor="#FFFF66" width="60%" cellspacing="30"><tr><th align="center"><h3>Pavlovsk police department newsletter</h3></th></tr><tr><td align="left">'+ _
  53. '&nbsp;&nbsp;&nbsp;The Pavlovsk police department recently investigated the rumours that a secret prostitution ring was being run from the Pavlovsk hotel.<p>'+ _
  54. '&nbsp;&nbsp;&nbsp;After a very thorough investigation, we found absolutely no evidence of this. The hotel manager, <b>Herman Leonidovich</b>, was interrogated and not only did we find him completely innocence he also gave a substantial donation to our department.'+ _
  55. 'He ensured us that any young, pretty girl could apply for a maid job in their hotel and there is absolutely no chance that they would be forced to prostitute themselves<p><p>.</td></tr></table></center>'
  56. minut +=2
  57. gs 'stat'
  58. act 'Continue': gt 'noticeboard','look'
  59. end
  60. if $ARGS[0] = 'advert2':
  61. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/starletsposter.jpg"></td></tr></table></center>'
  62. !! '<center><table bgcolor="#FF66B2" width="60%" cellspacing="30"><tr><th align="center"><h4>'+ _
  63. !! '<p>Do you have the groove and something to prove? Then sign up for Dance Classes at the Pavlosk Community Center and show us what you''ve got!<p>'+ _
  64. !! 'Lessons range from beginner to expert level.<p>FUN for girls of any skill level.<p>'+ _
  65. !! 'And, if you''ve really know how to shake that money-maker, then audition for the<p><h2><b>Starlettes</b></h2>Pavlosk''s renowned dance club! If you''re accepted you could be travelling to a variety of cities and towns to make you hometown proud!<p><p>'+ _
  66. !! 'Stop by today and dance your problems away!</h4></th></tr></table></center>'
  67. minut +=2
  68. gs 'stat'
  69. act 'Continue': gt 'noticeboard','look'
  70. end
  71. if $ARGS[0] = 'advert3':
  72. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/therapy.jpg"></td></tr></table></center>'
  73. minut +=2
  74. gs 'stat'
  75. act 'Continue': gt 'noticeboard','look'
  76. end
  77. if $ARGS[0] = 'advert4':
  78. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/diner.jpg"></td></tr></table></center>'
  79. minut +=2
  80. gs 'stat'
  81. act 'Continue': gt 'noticeboard','look'
  82. end
  83. if $ARGS[0] = 'advert5':
  84. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/singing.jpg"></td></tr></table></center>'
  85. minut +=2
  86. gs 'stat'
  87. act 'Continue': gt 'noticeboard','look'
  88. end
  89. if $ARGS[0] = 'advert6':
  90. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/sports.jpg"></td></tr></table></center>'
  91. minut +=2
  92. gs 'stat'
  93. act 'Continue': gt 'noticeboard','look'
  94. end
  95. !! possible coordinates
  96. !! upper row
  97. !! 1 '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>' - taken by advert0
  98. !! 2 '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>' - taken by advert3
  99. !! 3 '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>' - taken by advert5
  100. !! 4 '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>' - taken by advert2
  101. !! lower row
  102. !! 5 '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>' - taken by advert6
  103. !! 6 '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>' - taken by advert1
  104. !! 7 '<<13*givemeheight>>,<<12*givemeheight>>,<<17*givemeheight>>,<<18*givemeheight>>'
  105. !! 8 '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>' - taken by advert4
  106. if $ARGS[0] = 'test_advert0':
  107. if $loc ! 'pavCommercial':
  108. $result = '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>'
  109. NumberOfNewAdverts += 1
  110. else
  111. $result = '0,0,0,0'
  112. end
  113. end
  114. if $ARGS[0] = 'test_advert1':
  115. if $loc = 'pavCommercial':
  116. $result = '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>'
  117. NumberOfNewAdverts += 1
  118. else
  119. $result = '0,0,0,0'
  120. end
  121. end
  122. if $ARGS[0] = 'test_advert2':
  123. if $loc = 'pavCommercial':
  124. $result = '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>'
  125. NumberOfNewAdverts += 1
  126. else
  127. $result = '0,0,0,0'
  128. end
  129. end
  130. if $ARGS[0] = 'test_advert3':
  131. if $loc = 'pavCommercial':
  132. $result = '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>'
  133. NumberOfNewAdverts += 1
  134. else
  135. $result = '0,0,0,0'
  136. end
  137. end
  138. if $ARGS[0] = 'test_advert4':
  139. if $loc ! 'pavCommercial':
  140. $result = '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>'
  141. NumberOfNewAdverts += 1
  142. else
  143. $result = '0,0,0,0'
  144. end
  145. end
  146. if $ARGS[0] = 'test_advert5':
  147. if $loc ! 'pavCommercial':
  148. $result = '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>'
  149. NumberOfNewAdverts += 1
  150. else
  151. $result = '0,0,0,0'
  152. end
  153. end
  154. if $ARGS[0] = 'test_advert6':
  155. if $loc ! 'pavCommercial':
  156. $result = '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>'
  157. NumberOfNewAdverts += 1
  158. else
  159. $result = '0,0,0,0'
  160. end
  161. end
  162. --- noticeboard ---------------------------------