vokzaltorg 2.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. # vokzaltorg
  2. $d_kachatprava = {
  3. act 'swing right':
  4. cls
  5. money = 0
  6. tovarL = 0
  7. minut += 120
  8. manna = 0
  9. gs 'stat'
  10. '<center><img src="images/qwest/vokzal/katalkin.jpg"></center>'
  11. 'You have decided to shake their rights, Police responded to what is to be expected, dragged you to the department, money seized and confiscated goods. Once you promuryzhili two o''clock, you still released.'
  12. act 'Leave':minut += 1 & gt 'vokzalGin'
  13. end
  14. }
  15. cls
  16. minut += 30
  17. prodskill = vnesh + will + dom
  18. if prodskill < 20:prodskill = 20
  19. if prodskill > 150:minimumtov = 3
  20. if prodskill > 100 and prodskill <= 150:minimumtov = 2
  21. if prodskill < 100:minimumtov = 1
  22. tovarand = rand(minimumtov, prodskill / 10)
  23. if tovarand > tovarL:tovarand = tovarL
  24. tovpay = tovarand * 300
  25. money += tovpay
  26. tovarL -= tovarand
  27. will += rand(0, 1)
  28. TorgVokzalTimes += 1
  29. dom += 1
  30. gs 'stat'
  31. '<center><img src="images/qwest/vokzal/peron.jpg"></center>'
  32. 'You managed vtyuhat <<tovarand>> One unit of product, while earning <<tovpay>> rubles.'
  33. act 'Leave':
  34. cls
  35. gs 'stat'
  36. '<center><img src="images/qwest/vokzal/katalkin.jpg"></center>'
  37. 'Near the platform you are already waiting for the police. "breach? Trade without proper papers?"'
  38. if money >= 500:
  39. act 'Pay (500 rubles)':
  40. cls
  41. money -= 500
  42. gs 'stat'
  43. '<center><img src="images/qwest/vokzal/katalkin.jpg"></center>'
  44. 'you paid 500 rubles police. He took the money and immediately lost interest to you.'
  45. act 'Leave':minut += 1 & gt 'vokzalGin'
  46. end
  47. end
  48. act 'persuaded to forgive':
  49. cls
  50. gs 'stat'
  51. '<center><img src="images/qwest/vokzal/katalkin.jpg"></center>'
  52. 'You started to persuade police captain forgive you and release.'
  53. if katalkinSexOnce >= 1:
  54. if katalkinSexDay+7 >= daystart:
  55. 'captain grinned "Well."'
  56. act 'Leave':minut += 1 & gt 'vokzalGin'
  57. elseif katalkinSexDay + 7 < daystart:
  58. 'The captain frowned "You long ago to me did not come, avoiding?"'
  59. act 'No, what do you, simply no':
  60. cls
  61. gs 'stat'
  62. '<center><img src="images/qwest/vokzal/katalkin.jpg"></center>'
  63. 'You started arguing opravdyvatsya, that you just do not have enough time. captain grinned "Come then now the Department. Carry out bodily searches."'
  64. act 'Go to the police':minut += 5 & katalkinNoexit = 1 & gt 'katalkin'
  65. end
  66. end
  67. elseif katalkinSexOnce = 0:
  68. schtraf = 500
  69. 'captain grinned "Come then now the Department. there shall understand."'
  70. act 'Go to the police':minut += 5 & katalkinNoexit = 1 & gt 'katalkin'
  71. end
  72. end
  73. dynamic $d_kachatprava
  74. end
  75. --- vokzaltorg ---------------------------------