liamel 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  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 housr = 2:
  29. act '<b>Go home</b>':gt'korr2x'
  30. end
  31. act 'Stand':
  32. cla
  33. waiting = input ("How many minutes to wait? (Not more 120 minutes)")
  34. if waiting <= 0 or waiting > 120:
  35. minut = minut + 15
  36. elseif waiting > 0 and waiting <= 120:
  37. minut = minut + waiting
  38. end
  39. act 'Consult a watch':gt curloc
  40. end
  41. if housr = 2 and hour = meethour:
  42. if svidanieA = 1:'<b>Near the entrance you expect <a href="exec:GT ''meet'',''start''"><<$boyA>></a></b>'
  43. if svidanieB = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boyB>></a></b>'
  44. if svidanieC = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boyC>></a></b>'
  45. end
  46. streetrand = RAND(0,100)
  47. if streetrand >= 10 and bfa < 1:
  48. vnerand = RAND(0,1200)
  49. if vnerand <= vnesh:
  50. gs'boy'
  51. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
  52. 'The guy introduced himself as <<$boy>> and I asked for your telefonchik.'
  53. act 'Tell him your phone':
  54. cla
  55. gs'boyfrend','start'
  56. stopboy = 0
  57. '<<$boyA>> record your phone and left.'
  58. act 'Complete outing':gt $locM, $metkaM
  59. end
  60. end
  61. end
  62. --- liamel ---------------------------------