liamel 2.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. # liamel
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. gs'dinam'
  5. '<center><B>Quiet Street</B></center>'
  6. '<center><img src="images/lmps/liamel.jpg" ></center>'
  7. 'Pretty, quiet street of the old town'
  8. CLOSE ALL
  9. clr
  10. gs'stat'
  11. gs 'outdoors'
  12. set palMir=0
  13. set bordysh=0
  14. set housrA=0
  15. set palMir=0
  16. set obdysh=0
  17. set tanhouse1=0
  18. set obMir=0
  19. set obLoker=0
  20. set houseob=0
  21. set borMir=0
  22. set borLoker=0
  23. set minut+=10
  24. '<a href="exec:GT ''larek'',''start''">shop</a>'
  25. 'Close by is a narrow <a href="exec:GT ''dvor'',''start''">street</a> looping between houses.'
  26. 'A street runs straight to the <a href="exec:GT ''liam'',''start''">Town center</a>.'
  27. 'A street leading to the <a href="exec:GT ''liames'',''start''">High Street</a>.'
  28. if hour >= 10 and hour <= 22: 'A <a href="exec:GT ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside it''s door.'
  29. if housr = 2:
  30. act '<b>Go home</b>':gt'korr2x'
  31. end
  32. act 'Stand':
  33. cla
  34. waiting = input ("How many minutes to wait? (Not more 120 minutes)")
  35. if waiting <= 0 or waiting > 120:
  36. minut = minut + 15
  37. elseif waiting > 0 and waiting <= 120:
  38. minut = minut + waiting
  39. end
  40. act 'Consult a watch':gt curloc
  41. end
  42. if housr = 2 and hour = meethour:
  43. if svidanieA = 1:'<b>Near the entrance you expect <a href="exec:GT ''meet'',''start''"><<$boyA>></a></b>'
  44. if svidanieB = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boyB>></a></b>'
  45. if svidanieC = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boyC>></a></b>'
  46. end
  47. streetrand = RAND(0,100)
  48. if streetrand >= 10 and bfa < 1:
  49. vnerand = RAND(0,1200)
  50. if vnerand <= vnesh:
  51. gs'boy'
  52. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
  53. 'The guy introduced himself as <<$boy>> and I asked for your telefonchik.'
  54. act 'Tell him your phone':
  55. cla
  56. gs'boyfrend','start'
  57. stopboy = 0
  58. '<<$boyA>> record your phone and left.'
  59. act 'Complete outing':gt $locM, $metkaM
  60. end
  61. end
  62. end
  63. if stallionQ = 3:
  64. *clr & cla
  65. '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.'
  66. act 'Use the Men''s Restroom':GT 'stallion','start'
  67. act 'Hold it':stallionQ = 1 & gt 'liamel'
  68. end
  69. --- liamel ---------------------------------