1
0

stol 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. # stol
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. gs 'stat'
  6. 'Oddments drawer.'
  7. if prezik > 0:'Packing condoms, it <<prezik>> pc.'
  8. if tabletki > 0:'Birth control pills <<tabletki>> pc.'
  9. if lubri > 0:'Lubricant, enough for <<lubri>> time.'
  10. if krem > 0:'Sunblock <<krem>>'
  11. if abonement > 0:'Subscription is valid for <<abonement>> Occupation'
  12. if dildo > 0:'Realistic Dildo'
  13. act 'Close the drawer':
  14. cla
  15. gt 'stol', 'fin'
  16. end
  17. if money > 0:
  18. act 'Put your money in the drawer':
  19. cla
  20. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> rubles.)")
  21. if stolIN <= 0 or stolIN > money:
  22. !!'Not correct operation.'
  23. else
  24. set stolmoney += stolIN
  25. set money -= stolIN
  26. end
  27. gt 'stol', 'start'
  28. end
  29. end
  30. if stolmoney > 0:
  31. act 'Take money from the desk.':
  32. cla
  33. stolOUT = input ("How much money do you want place in your purse? (There is <<stolmoney>> rubles here.)")
  34. if stolOUT <= 0 or stolOUT > stolmoney:
  35. !!'Not correct operation.'
  36. else
  37. set stolmoney -= stolOUT
  38. set money += stolOUT
  39. !!'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
  40. end
  41. gt 'stol', 'fin'
  42. end
  43. end
  44. end
  45. if $ARGS[0] = 'fin':
  46. cla
  47. gt $locM, $metkaM
  48. !'if housr = 1 and housrA = 1:
  49. set housrA = 0
  50. gt 'sitr'
  51. end'!
  52. end
  53. --- stol ---------------------------------