liames 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. # liames
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. gs'dinam'
  5. '<center><B>High street</B></center>'
  6. '<center><img src="images/pic/liames.jpg" ></center>'
  7. 'If so it can be called,connection of several streets where there are cafe and a small <a href="exec:GT ''larek'',''start''">shop</a> '
  8. CLOSE ALL
  9. clr
  10. gs'stat'
  11. gs'time'
  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. 'Turn <a href="exec:GT ''liamel'',''start''">street</a> looping between houses.'
  25. '<a href="exec:GT ''spusk'',''start''">Climb to the top</a> .'
  26. 'Street leads to the Old Town <a href="exec:GT ''parks'',''start''">park</a>.'
  27. temp = RAND(1,100)
  28. if temp >= 90:
  29. cls
  30. minut += 5
  31. gs'stat'
  32. '<center><img src="images/lmps/liamhud1.jpg"></center>'
  33. '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'
  34. act 'Further':gt'liames'
  35. end
  36. if hour >= 15 and hour <= 22 and tusa = 0:
  37. act'Local Hangout':
  38. cls
  39. cla
  40. gs'stat'
  41. gs'time'
  42. gs'dibodi'
  43. minut += 20
  44. tusa = 0
  45. '<center><img src="images/lmps/photo.jpg"></center>'
  46. 'Local youth get-together.'
  47. act 'Discovering':dynamic $sgtusa
  48. end
  49. end
  50. if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! day:
  51. act'Local Hangout':
  52. cls
  53. cla
  54. gs'stat'
  55. gs'time'
  56. gs'dibodi'
  57. minut += 20
  58. '<center><img src="images/lmps/photo.jpg"></center>'
  59. 'You came to talking to girls and boys and greeted.'
  60. 'In response, you, too, greeted.'
  61. if tanga = 0 and sttan = 0:
  62. '- A <<$nickname>> campaign wears panties - said one of the boys.'
  63. act 'And che you with this?':dynamic $sotusa
  64. end
  65. !{
  66. if sttan = 1 and tanga = 0:
  67. '- <<$nickname>>, and you again without panties, - said one of the boys - Pussy pokezh?'
  68. '- And yet to show? - you said - How do I want and go.'
  69. act 'Further':gt'etoexhib','os2'
  70. end
  71. if sttan = 1 and tanga = 1:
  72. '- Vav <<$name>> truselya put.'
  73. act 'Answer':gt'etoexhib','os3'
  74. end
  75. }
  76. act'Escape':gt 'liames'
  77. end
  78. end
  79. --- liames ---------------------------------