gdkkru 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. # gdkkru
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. frost = 0
  5. gs'stat'
  6. FColor = RGB(0,0,0)
  7. BColor = RGB(255,255,255)
  8. LColor = RGB(106,90,205)
  9. '<center><b><font color = maroon>The community center</font></b></center>'
  10. '<center><img src="images/lur/kru/gdkkru.jpg"></center>'
  11. act 'Logout':gt'gdk'
  12. if hour >= 12 and hour <= 20:
  13. 'Now the community center operate various circles.'
  14. if krumonth=month and kruyear=year:
  15. act'Going in a circle sewing':gt'krupo'
  16. else
  17. act'Going in a circle sewing':
  18. cls
  19. gs'stat'
  20. '<center><b><font color = maroon>Sewing circle</font></b></center>'
  21. '<center><img src="images/lur/kru/krupo.jpg"></center>'
  22. 'You went in a circle, where just walking classes and teacher looking at you said, that circle surcharge, costs 500 <b>₽</b> a month, You can go to any number, You can never go, classes for another month is not transferred.'
  23. if money>=500:
  24. act'Checkout':
  25. cls
  26. money-=500
  27. krumonth=month
  28. kruyear=year
  29. gs'stat'
  30. 'You tuition sewing circle.'
  31. act'Escape':gt $curloc
  32. end
  33. end
  34. act'Escape':gt $curloc
  35. end
  36. end
  37. if chessmonth=month and chessyear=year:
  38. act'Going in a circle of chess':gt'kruchess'
  39. else
  40. act'Going in a circle of chess':
  41. cls
  42. gs'stat'
  43. '<center><b><font color = maroon>Chess Circle</font></b></center>'
  44. '<center><img src="images/lur/kru/kruchess.jpg"></center>'
  45. 'You went in a circle, where the chess board decided the boy three studies under the guidance of coach, Coach explained to you that the circle surcharge, costs 500 <b>₽</b> a month, You can go to any number, You can never go, classes for another month is not transferred.'
  46. if money>=500:
  47. act'Checkout':
  48. cls
  49. money-=500
  50. chessmonth=month
  51. chessyear=year
  52. gs'stat'
  53. 'You pay the tuition in the circle of chess.'
  54. act'Escape':gt $curloc
  55. end
  56. end
  57. act'Escape':gt $curloc
  58. end
  59. end
  60. else
  61. 'Mugs closed'
  62. end
  63. --- gdkkru ---------------------------------