1
0

stol 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  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. stolmoney += stolIN
  25. money -= stolIN
  26. end
  27. gt 'stol', 'fin'
  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. stolmoney -= stolOUT
  38. 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. !'
  49. if housr = 1 and housrA = 1:
  50. housrA = 0
  51. gt 'sitr'
  52. end
  53. '!
  54. end
  55. --- stol ---------------------------------