1
0

liames 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139
  1. # liames
  2. $metka = ''
  3. $loc = 'liames'
  4. $location_type = 'public_outdoors'
  5. CLOSE ALL
  6. clr
  7. gs'stat'
  8. set palMir=0
  9. set bordysh=0
  10. set housrA=0
  11. set palMir=0
  12. set obdysh=0
  13. set tanhouse1=0
  14. set obMir=0
  15. set obLoker=0
  16. set houseob=0
  17. set borMir=0
  18. set borLoker=0
  19. set minut+=10
  20. '<center><B>High street</B></center>'
  21. '<center><img src="images/pic/liames.jpg" ></center>'
  22. 'Not so much of a street, more of a connection of several streets including cafes and shops.'
  23. 'A street runs straight to the <a href="exec:GT ''liam'',''start''">Town center</a>.'
  24. 'Street leads to the Old Town <a href="exec:GT ''parks'',''start''">park</a>.'
  25. if hour >= 8 and hour <= 20:'A small <a href="exec:GT ''larek'',''start''">shop</a> is currently open.'
  26. if hour >= 10 and hour <= 22: 'A <a href="exec:GT ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside it''s door.'
  27. if housr = 2:
  28. act '<b>Go home</b>':gt'korr2x'
  29. end
  30. act 'Kill some time looking at the shops':
  31. cla
  32. waiting = input ("How many minutes do you wish to spend looking around the shops? (Not more 120 minutes)")
  33. if waiting <= 0 or waiting > 120:
  34. minut = minut + 15
  35. elseif waiting > 0 and waiting <= 120:
  36. minut = minut + waiting
  37. end
  38. act 'Consult a watch':gt curloc
  39. end
  40. if housr = 2 and hour = meethour:
  41. if svidanieA = 1:'<b>Near the entrance you expect <a href="exec:GT ''meet'',''start''"><<$boydescA>></a></b>'
  42. if svidanieB = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boydescB>></a></b>'
  43. if svidanieC = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boydescC>></a></b>'
  44. end
  45. streetrand = RAND(0,100)
  46. if streetrand >= 10 and bfa < 1:
  47. vnerand = RAND(0,1200)
  48. if vnerand <= vnesh:
  49. gs'boy'
  50. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
  51. 'The guy introduced himself as <<$boydesc>> and I asked for your telephone number.'
  52. act 'Tell him your telephone number':
  53. cla
  54. gs'boyfrend','start'
  55. stopboy = 0
  56. '<<$boydescA>> record your phone and left.'
  57. act 'Complete outing':gt 'liames'
  58. end
  59. end
  60. end
  61. if stallionQ = 3:
  62. *clr
  63. cla
  64. 'There is a rumbling in your stomach, you need to use the restroom. Luckily there appears to be a public restroom tucked into the corner of a building. Unluckily, the female one has a sign saying it is out of order.'
  65. act 'Use the Men''s Restroom':GT 'stallion','start'
  66. act 'Hold it':stallionQ = 1 & gt 'liames'
  67. end
  68. temp = RAND(1,100)
  69. if temp >= 90:
  70. cls
  71. minut += 5
  72. gs'stat'
  73. '<center><img src="images/lmps/liamhud1.jpg"></center>'
  74. 'You have seen both a sitting area-the artist, here the artist girl came and sat opposite him,and the artist began to paint it'
  75. act 'Further':gt'liames'
  76. end
  77. if hour >= 15 and hour <= 22 and tusa = 0:
  78. act'Local Hangout':
  79. cls
  80. gs'stat'
  81. gs'dibodi'
  82. minut += 20
  83. tusa = 0
  84. '<center><img src="images/lmps/photo.jpg"></center>'
  85. 'Local youth get-together.'
  86. act 'Discovering':gt 'dibodi', 'sgtusa'
  87. end
  88. end
  89. if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! day:
  90. act'Local Hangout':
  91. cls
  92. gs'stat'
  93. gs'dibodi'
  94. minut += 20
  95. '<center><img src="images/lmps/photo.jpg"></center>'
  96. 'You came to talking to girls and boys and greeted you.'
  97. 'In response you too greeted them.'
  98. if tanga = 0 and sttan = 0:
  99. '- A <<$pcs_nickname>> campaign wears panties - said one of the boys.'
  100. act 'And she trusted you with this?':gt 'dibodi', 'sotusa'
  101. end
  102. !! if sttan = 1 and tanga = 0:
  103. !! '- <<$pcs_nickname>>, and you again without panties, - said one of the boys - Pussy pokezh?'
  104. !! '- And yet to show? - you said - How do I want and go.'
  105. !! act 'Further':gt'etoexhib','pos2'
  106. !! end
  107. !! if sttan = 1 and tanga = 1:
  108. !! '- Vav <<$pcs_nickname>> truselya put.'
  109. !! act 'Answer':gt'etoexhib','pos3'
  110. !! end
  111. act'Escape':gt 'liames'
  112. end
  113. end
  114. --- liames ---------------------------------