320_stol 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192
  1. # stol
  2. <<<<<<< 320_stol
  3. if $ARGS[0] = 'start':
  4. cla
  5. clr
  6. gs 'stat'
  7. 'Oddments drawer.'
  8. if Stolprezik > 0: 'In the drawer are <<Stolprezik>> condoms'
  9. if Stoltabletki > 0: 'In the drawer are <<Stoltabletki>> birth control pills'
  10. if Stollubri > 0: 'In the drawer is lubricant, enough for <<Stollubri>> uses.'
  11. !if prezik > 0: 'Packing condoms, it <<prezik>> pc.'
  12. !if tabletki > 0: 'Birth control pills <<tabletki>> pc.'
  13. !if lubri > 0: 'Lubricant, enough for <<lubri>> time.'
  14. if krem > 0: 'Sunblock <<krem>>'
  15. if abonement > 0: 'Subscription is valid for <<abonement>> Occupation'
  16. if dildo > 0: 'Realistic Dildo'
  17. act 'Close the drawer':
  18. cla
  19. gt 'stol','fin'
  20. end
  21. if prezik > 0:
  22. act 'Remove condoms from purse':
  23. stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <<prezik>> condoms.)")
  24. if stolIN <= 0 or stolIN > prezik:
  25. else
  26. set stolprezik += stolIN
  27. set prezik -= stolIN
  28. end
  29. gt 'stol','start'
  30. end
  31. end
  32. if Stolprezik > 0:
  33. act 'Get condoms from desk':
  34. stolOUT = input ("How many condoms to place in purse? (Desk has <<stolprezik>> condoms.)")
  35. if stolOUT <= 0 or stolOUT > stolprezik:
  36. else
  37. set stolprezik -= stolOUT
  38. set prezik += stolOUT
  39. end
  40. gt 'stol','start'
  41. end
  42. end
  43. if tabletki > 0:
  44. act 'Remove pills from purse':
  45. stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <<tabletki>> pills.)")
  46. if stolIN <= 0 or stolIN > tabletki:
  47. else
  48. set Stoltabletki += stolIN
  49. set tabletki -= stolIN
  50. end
  51. gt 'stol','start'
  52. end
  53. end
  54. if Stoltabletki > 0:
  55. act 'Get pills from desk':
  56. stolOUT = input ("How many birth control pills to place in purse? (Desk has <<Stoltabletki>> pills.)")
  57. if stolOUT <= 0 or stolOUT > Stoltabletki:
  58. else
  59. set Stoltabletki -= stolOUT
  60. set tabletki += stolOUT
  61. end
  62. gt 'stol','start'
  63. end
  64. end
  65. if lubri > 0:
  66. act 'Remove lubricant from purse':
  67. stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <<lubri/5>> uses.)")
  68. if stolIN <= 0 or stolIN > lubri/5:
  69. else
  70. set Stollubri += stolIN * 5
  71. set lubri -= stolIN * 5
  72. end
  73. gt 'stol','start'
  74. end
  75. end
  76. if Stollubri > 0:
  77. act 'Get lubricant from desk':
  78. stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <<Stollubri/5>> uses.)")
  79. if stolOUT <= 0 or stolOUT > Stollubri/5:
  80. else
  81. set Stollubri -= stolOUT * 5
  82. set lubri += stolOUT * 5
  83. end
  84. gt 'stol','start'
  85. end
  86. end
  87. if money > 0:
  88. act 'Put your money in the drawer':
  89. cla
  90. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> rubles.)")
  91. if stolIN <= 0 or stolIN > money:
  92. !'Not correct operation.'
  93. else
  94. set stolmoney += stolIN
  95. set money -= stolIN
  96. end
  97. gt 'stol','start'
  98. end
  99. end
  100. if stolmoney > 0:
  101. act 'Take money from the desk.':
  102. cla
  103. stolOUT = input ("How much money do you want place in your purse? (There is <<stolmoney>> rubles here.)")
  104. if stolOUT <= 0 or stolOUT > stolmoney:
  105. !'Not correct operation.'
  106. else
  107. set stolmoney -= stolOUT
  108. set money += stolOUT
  109. !'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
  110. end
  111. gt 'stol','start'
  112. end
  113. end
  114. =======
  115. if $ARGS[0]='start':
  116. cla
  117. clr
  118. gs'stat'
  119. 'Storage compartment.'
  120. if prezik > 0:'Packaging condoms, therein <<prezik>> Pieces.'
  121. if tabletki > 0:'birth control pills <<tabletki>> Pieces.'
  122. if lubri > 0:'lubricant, enough for <<lubri>> time.'
  123. if krem > 0:'Suntan cream <<krem>>'
  124. if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
  125. if dildo > 0:'faloimitator Realistika'
  126. act 'Close the drawer':
  127. cla
  128. gt'stol','fin'
  129. end
  130. if money>0:
  131. act 'Put money on the table':
  132. cla
  133. stolIN = input ("How much money you want to put on the table?")
  134. if stolIN <= 0 or stolIN > money:
  135. !'Not correct operation.'
  136. else
  137. set stolmoney = stolmoney + stolIN
  138. set money = money - stolIN
  139. end
  140. gt'stol','fin'
  141. end
  142. end
  143. if stolmoney>0:
  144. act 'Take the money from the table you <<stolmoney>> rubles in the table':
  145. cla
  146. stolOUT = input ("How much money do you want to take from the table?")
  147. if stolOUT <= 0 or stolOUT > stolmoney:
  148. !'Not correct operation.'
  149. else
  150. set stolmoney = stolmoney - stolOUT
  151. set money = money + stolOUT
  152. !'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
  153. end
  154. gt'stol','fin'
  155. end
  156. end
  157. >>>>>>> 320_stol
  158. end
  159. <<<<<<< 320_stol
  160. if $ARGS[0] = 'fin':
  161. cla
  162. gt $locM, $metkaM
  163. !'if housr = 1 and housrA = 1:
  164. set housrA = 0
  165. gt 'sitr'
  166. end'
  167. =======
  168. if $ARGS[0]='fin':
  169. cla
  170. gt $locM, $metkaM
  171. !'if housr = 1 and housrA = 1:
  172. set housrA = 0
  173. gt'sitr'
  174. end'
  175. >>>>>>> 320_stol
  176. end
  177. --- stol ---------------------------------