noticeboard 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  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. *pl '<map name="noticemap">'+ _
  22. '<area shape="rect" coords="<<$advert0>>" href="exec:gt ''noticeboard'', ''advert0''" alt="XX1XX">'+ _
  23. '<area shape="rect" coords="<<$advert1>>" href="exec:gt ''noticeboard'', ''advert1''" alt="XX2XX">'+ _
  24. '<area shape="rect" coords="<<$advert2>>" href="exec:gt ''noticeboard'', ''advert2''" alt="XX3XX">'+ _
  25. '</map>'+ _
  26. '<center><img <<$set_imgh>> src="images/locations/shared/notboard/noticeboard_<<$loc>>.jpg" USEMAP="#noticemap"></center>'
  27. if NumberOfNewAdverts = 0: *nl 'There are no new adverts.'
  28. if NumberOfNewAdverts = 1: *nl 'There is one new advert.'
  29. if NumberOfNewAdverts > 1: *nl 'There are <<NumberOfNewAdverts>> new adverts'
  30. act 'Leave the board': gt 'restoreposition'
  31. end
  32. if $ARGS[0] = 'advert0':
  33. 'Wanted dog walker!'
  34. minut +=2
  35. gs 'stat'
  36. act 'Call the number': gs 'telefon', 'phone_call_reject'
  37. act 'Record the phone number':
  38. gs 'telefon','Add_contact','images/system/phone/icons/icon_na.png',' gs ''telefon'', ''phone_call_reject'' '
  39. gt 'noticeboard','look'
  40. end
  41. act 'Continue': gt 'noticeboard','look'
  42. end
  43. if $ARGS[0] = 'advert1':
  44. '<center><table bgcolor="#FFFF66" width="60%" cellspacing="30"><tr><th align="center"><h3>Pavlovsk police department newsletter</h3></th></tr><tr><td align="left">'+ _
  45. '&nbsp;&nbsp;&nbsp;The Pavlovsk police department recently investigated the rumours that a secret prostitution ring was being run from the Pavlovsk hotel.<p>'+ _
  46. '&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.'+ _
  47. '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>'
  48. minut +=2
  49. gs 'stat'
  50. act 'Continue': gt 'noticeboard','look'
  51. end
  52. if $ARGS[0] = 'advert2':
  53. '<center><table bgcolor="#FF66B2" width="60%" cellspacing="30"><tr><th align="center"><h4>'+ _
  54. '<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>'+ _
  55. 'Lessons range from beginner to expert level.<p>FUN for girls of any skill level.<p>'+ _
  56. '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>'+ _
  57. 'Stop by today and dance your problems away!</h4></th></tr></table></center>'
  58. minut +=2
  59. gs 'stat'
  60. act 'Continue': gt 'noticeboard','look'
  61. end
  62. !! possible coordinates
  63. !! upper row
  64. !! 1 '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>' - taken by advert0
  65. !! 2 '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>'
  66. !! 3 '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>'
  67. !! 4 '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>' - taken by advert2
  68. !! lower row
  69. !! 5 '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>'
  70. !! 6 '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>' - taken by advert1
  71. !! 7 '<<13*givemeheight>>,<<12*givemeheight>>,<<17*givemeheight>>,<<18*givemeheight>>'
  72. !! 8 '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>'
  73. if $ARGS[0] = 'test_advert0':
  74. if hour >= 9:
  75. $result = '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>'
  76. NumberOfNewAdverts += 1
  77. else
  78. $result = '0,0,0,0'
  79. end
  80. end
  81. if $ARGS[0] = 'test_advert1':
  82. if $loc = 'pavCommercial':
  83. $result = '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>'
  84. NumberOfNewAdverts += 1
  85. else
  86. $result = '0,0,0,0'
  87. end
  88. end
  89. if $ARGS[0] = 'test_advert2':
  90. if $loc = 'pavCommercial':
  91. $result = '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>'
  92. NumberOfNewAdverts += 1
  93. else
  94. $result = '0,0,0,0'
  95. end
  96. end
  97. --- noticeboard -------------------------------------