1
0

noticeboard 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179
  1. # noticeboard
  2. !! use gs 'noticeboard','start'
  3. $location_type = 'public_indoors'
  4. if $ARGS[0] = 'start':
  5. gs 'saveposition'
  6. gt 'noticeboard','look'
  7. end
  8. if $ARGS[0] = 'look':
  9. if $set_imgh!'':givemeheight=val(mid($set_imgh,10,len($set_imgh)-9))/20 else givemeheight = 30
  10. NumberOfNewAdverts = 0
  11. $advert0 = func('noticeboard','test_advert0')
  12. $advert1 = func('noticeboard','test_advert1')
  13. $advert2 = func('noticeboard','test_advert2')
  14. $advert3 = func('noticeboard','test_advert3')
  15. $advert4 = func('noticeboard','test_advert4')
  16. $advert5 = func('noticeboard','test_advert5')
  17. $advert6 = func('noticeboard','test_advert6')
  18. !!$advert7 = func('noticeboard','test_advert7')
  19. !!$advert8 = func('noticeboard','test_advert8')
  20. !!$advert9 = func('noticeboard','test_advert9')
  21. $noticeboardmap = '<map name="noticemap">'
  22. $noticeboardmap += '<area shape="rect" coords="<<$advert0>>" href="exec:gt ''noticeboard'', ''advert0''" alt="--0--">'
  23. $noticeboardmap += '<area shape="rect" coords="<<$advert1>>" href="exec:gt ''noticeboard'', ''advert1''" alt="--1--">'
  24. $noticeboardmap += '<area shape="rect" coords="<<$advert2>>" href="exec:gt ''noticeboard'', ''advert2''" alt="--2--">'
  25. $noticeboardmap += '<area shape="rect" coords="<<$advert3>>" href="exec:gt ''noticeboard'', ''advert3''" alt="--3--">'
  26. $noticeboardmap += '<area shape="rect" coords="<<$advert4>>" href="exec:gt ''noticeboard'', ''advert4''" alt="--4--">'
  27. $noticeboardmap += '<area shape="rect" coords="<<$advert5>>" href="exec:gt ''noticeboard'', ''advert5''" alt="--5--">'
  28. $noticeboardmap += '<area shape="rect" coords="<<$advert6>>" href="exec:gt ''noticeboard'', ''advert6''" alt="--6--">'
  29. $noticeboardmap += '</map>'
  30. $noticeboardmap += '<center><img <<$set_imgh>> src="images/locations/shared/notboard/noticeboard_<<$loc>>.jpg" USEMAP="#noticemap"></center>'
  31. *pl $noticeboardmap
  32. killvar '$noticeboardmap'
  33. if NumberOfNewAdverts = 0: *nl 'There are no interesting adverts at the board.'
  34. if NumberOfNewAdverts = 1: *nl 'There is one interesting advert at the board.'
  35. if NumberOfNewAdverts > 1: *nl 'There are <<NumberOfNewAdverts>> interesting adverts at the board.'
  36. act 'Leave the board': gt 'restoreposition'
  37. end
  38. if $ARGS[0] = 'advert0':
  39. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/Old Town.jpg"></td></tr></table></center>'
  40. minut +=2
  41. gs 'stat'
  42. act 'Continue': gt 'noticeboard','look'
  43. !! 'Wanted dog walker!'
  44. !! act 'Call the number': gs 'telefon', 'phone_call_reject'
  45. !! act 'Record the phone number':
  46. !! gs 'telefon','Add_contact','images/system/phone/icons/icon_na.png',' gs ''telefon'', ''phone_call_reject'' '
  47. !! gt 'noticeboard','look'
  48. !! end
  49. end
  50. if $ARGS[0] = 'advert1':
  51. '<center><table bgcolor="#FFFF66" width="60%" cellspacing="30"><tr><th align="center"><h3>Pavlovsk police department newsletter</h3></th></tr><tr><td align="left">'+ _
  52. '&nbsp;&nbsp;&nbsp;The Pavlovsk police department recently investigated the rumours that a secret prostitution ring was being run from the Pavlovsk hotel.<p>'+ _
  53. '&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.'+ _
  54. '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>'
  55. minut +=2
  56. gs 'stat'
  57. act 'Continue': gt 'noticeboard','look'
  58. end
  59. if $ARGS[0] = 'advert2':
  60. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/starletsposter.jpg"></td></tr></table></center>'
  61. !! '<center><table bgcolor="#FF66B2" width="60%" cellspacing="30"><tr><th align="center"><h4>'+ _
  62. !! '<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>'+ _
  63. !! 'Lessons range from beginner to expert level.<p>FUN for girls of any skill level.<p>'+ _
  64. !! '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>'+ _
  65. !! 'Stop by today and dance your problems away!</h4></th></tr></table></center>'
  66. minut +=2
  67. gs 'stat'
  68. act 'Continue': gt 'noticeboard','look'
  69. end
  70. if $ARGS[0] = 'advert3':
  71. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/therapy.jpg"></td></tr></table></center>'
  72. minut +=2
  73. gs 'stat'
  74. act 'Continue': gt 'noticeboard','look'
  75. end
  76. if $ARGS[0] = 'advert4':
  77. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/diner.jpg"></td></tr></table></center>'
  78. minut +=2
  79. gs 'stat'
  80. act 'Continue': gt 'noticeboard','look'
  81. end
  82. if $ARGS[0] = 'advert5':
  83. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/singing.jpg"></td></tr></table></center>'
  84. minut +=2
  85. gs 'stat'
  86. act 'Continue': gt 'noticeboard','look'
  87. end
  88. if $ARGS[0] = 'advert6':
  89. '<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/sports.jpg"></td></tr></table></center>'
  90. minut +=2
  91. gs 'stat'
  92. act 'Continue': gt 'noticeboard','look'
  93. end
  94. !! possible coordinates
  95. !! upper row
  96. !! 1 '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>' - taken by advert0
  97. !! 2 '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>' - taken by advert3
  98. !! 3 '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>' - taken by advert5
  99. !! 4 '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>' - taken by advert2
  100. !! lower row
  101. !! 5 '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>' - taken by advert6
  102. !! 6 '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>' - taken by advert1
  103. !! 7 '<<13*givemeheight>>,<<12*givemeheight>>,<<17*givemeheight>>,<<18*givemeheight>>'
  104. !! 8 '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>' - taken by advert4
  105. if $ARGS[0] = 'test_advert0':
  106. if $loc ! 'pavCommercial':
  107. $result = '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>'
  108. NumberOfNewAdverts += 1
  109. else
  110. $result = '0,0,0,0'
  111. end
  112. end
  113. if $ARGS[0] = 'test_advert1':
  114. if $loc = 'pavCommercial':
  115. $result = '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>'
  116. NumberOfNewAdverts += 1
  117. else
  118. $result = '0,0,0,0'
  119. end
  120. end
  121. if $ARGS[0] = 'test_advert2':
  122. if $loc = 'pavCommercial':
  123. $result = '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>'
  124. NumberOfNewAdverts += 1
  125. else
  126. $result = '0,0,0,0'
  127. end
  128. end
  129. if $ARGS[0] = 'test_advert3':
  130. if $loc = 'pavCommercial':
  131. $result = '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>'
  132. NumberOfNewAdverts += 1
  133. else
  134. $result = '0,0,0,0'
  135. end
  136. end
  137. if $ARGS[0] = 'test_advert4':
  138. if $loc ! 'pavCommercial':
  139. $result = '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>'
  140. NumberOfNewAdverts += 1
  141. else
  142. $result = '0,0,0,0'
  143. end
  144. end
  145. if $ARGS[0] = 'test_advert5':
  146. if $loc ! 'pavCommercial':
  147. $result = '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>'
  148. NumberOfNewAdverts += 1
  149. else
  150. $result = '0,0,0,0'
  151. end
  152. end
  153. if $ARGS[0] = 'test_advert6':
  154. if $loc ! 'pavCommercial':
  155. $result = '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>'
  156. NumberOfNewAdverts += 1
  157. else
  158. $result = '0,0,0,0'
  159. end
  160. end
  161. --- noticeboard ---------------------------------