budilnik.qsrc 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211
  1. # budilnik
  2. menu_off = 1
  3. if $ARGS[0] = 'start':
  4. *clr & cla
  5. gs 'stat'
  6. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/bed2.jpg"></center>'
  7. *nl
  8. *nl
  9. if numbud = 4:'<center><b><<bud1>><<bud2>>:<<bud3>><<bud4>></b></center>'
  10. if numbud = 3:'<center><b><<bud1>><<bud2>>:<<bud3>></b><<bud4>></center>'
  11. if numbud = 2:'<center><b><<bud1>><<bud2>></b>:<<bud3>><<bud4>></center>'
  12. if numbud = 1:'<center><b><<bud1>></b><<bud2>>:<<bud3>><<bud4>></center>'
  13. if numbud = 0:'<center><<bud1>><<bud2>> : <<bud3>><<bud4>></center>'
  14. *nl
  15. '<center><b><a href="exec:gt ''budilnik'', ''1''">1</a> <a href="exec:gt ''budilnik'', ''2''">2</a> <a href="exec:gt ''budilnik'', ''3''">3</a></b></center>'
  16. '<center><b><a href="exec:gt ''budilnik'', ''4''">4</a> <a href="exec:gt ''budilnik'', ''5''">5</a> <a href="exec:gt ''budilnik'', ''6''">6</a></b></center>'
  17. '<center><b><a href="exec:gt ''budilnik'', ''7''">7</a> <a href="exec:gt ''budilnik'', ''8''">8</a> <a href="exec:gt ''budilnik'', ''9''">9</a></b></center>'
  18. '<center><b><a href="exec:gt ''budilnik'', ''0''">0</a></b></center>'
  19. '<center><b><a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Reset''">Reset (week)</a> <a href="exec: bud_weekend = 0 & gt ''budilnik'', ''Time''">Set this time for the week</a></b></center>'
  20. '<center><b><a href="exec: bud_weekend = 1 & gt ''budilnik'', ''Reset''">Reset (weekend)</a> <a href="exec: bud_weekend = 1 & gt ''budilnik'', ''Time''">Set this time for the weekend</a></b></center>'
  21. if Storyline > 0 and alarm_holiday = 0:
  22. '<center><b><a href="exec: alarm_holiday = 1 & gt ''budilnik'', ''start''">Use weekend alarm for holidays</a></b></center>'
  23. elseif Storyline > 0 and alarm_holiday = 1:
  24. '<center><b><a href="exec: alarm_holiday = 0 & gt ''budilnik'', ''start''">Stop using weekend alarm for holidays</a></b></center>'
  25. end
  26. *nl
  27. if budilnikOn = 0:
  28. '<center>Your alarm is currently turned <a href="exec: budilnikOn = 1 & gt ''budilnik'', ''start''"><b>off</a></b></center>'
  29. else
  30. '<center>Your alarm is currently turned <a href="exec: budilnikOn = 0 & gt ''budilnik'', ''start''"><b>on</b></a></center>'
  31. '<center>The alarm is set to '+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+' during the week and to '+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+' during the weekend.</center>'
  32. end
  33. act 'Finish':
  34. cla
  35. bud1 = 0
  36. bud2 = 0
  37. bud3 = 0
  38. bud4 = 0
  39. numbud = 0
  40. gt 'budilnik', 'fin'
  41. end
  42. end
  43. if $ARGS[0] = 'Time':
  44. cla
  45. budilnikOn = 1
  46. if bud_weekend = 1:
  47. timerEnd = bud1 * 10 + bud2
  48. timerEndM = bud3 * 10 + bud4
  49. if timerEnd > 23:timerEnd = 0
  50. if timerEndM > 60:timerEndM = 0
  51. else
  52. timer = bud1 * 10 + bud2
  53. timerM = bud3 * 10 + bud4
  54. if timer > 23:timer = 0
  55. if timerM > 60:timerM = 0
  56. end
  57. gt 'budilnik', 'start'
  58. end
  59. if $ARGS[0] = '1':
  60. cla
  61. !!if numbud = 4:end
  62. if numbud = 3:bud4 = 1 & numbud = 4
  63. if numbud = 2:bud3 = 1 & numbud = 3
  64. if numbud = 1:bud2 = 1 & numbud = 2
  65. if numbud = 0:bud1 = 1 & numbud = 1
  66. gt 'budilnik', 'start'
  67. end
  68. if $ARGS[0] = '2':
  69. cla
  70. !!if numbud = 4:end
  71. if numbud = 3:bud4 = 2 & numbud = 4
  72. if numbud = 2:bud3 = 2 & numbud = 3
  73. if numbud = 1:bud2 = 2 & numbud = 2
  74. if numbud = 0:bud1 = 2 & numbud = 1
  75. gt 'budilnik', 'start'
  76. end
  77. if $ARGS[0] = '3':
  78. cla
  79. !!if numbud = 4:end
  80. if numbud = 3:bud4 = 3 & numbud = 4
  81. if numbud = 2:bud3 = 3 & numbud = 3
  82. if numbud = 1:bud2 = 3 & numbud = 2
  83. if numbud = 0:bud1 = 3 & numbud = 1
  84. gt 'budilnik', 'start'
  85. end
  86. if $ARGS[0] = '4':
  87. cla
  88. !!if numbud = 4:end
  89. if numbud = 3:bud4 = 4 & numbud = 4
  90. if numbud = 2:bud3 = 4 & numbud = 3
  91. if numbud = 1:bud2 = 4 & numbud = 2
  92. if numbud = 0:bud1 = 4 & numbud = 1
  93. gt 'budilnik', 'start'
  94. end
  95. if $ARGS[0] = '5':
  96. cla
  97. !!if numbud = 4:end
  98. if numbud = 3:bud4 = 5 & numbud = 4
  99. if numbud = 2:bud3 = 5 & numbud = 3
  100. if numbud = 1:bud2 = 5 & numbud = 2
  101. if numbud = 0:bud1 = 5 & numbud = 1
  102. gt 'budilnik', 'start'
  103. end
  104. if $ARGS[0] = '6':
  105. cla
  106. !!if numbud = 4:end
  107. if numbud = 3:bud4 = 6 & numbud = 4
  108. if numbud = 2:bud3 = 6 & numbud = 3
  109. if numbud = 1:bud2 = 6 & numbud = 2
  110. if numbud = 0:bud1 = 6 & numbud = 1
  111. gt 'budilnik', 'start'
  112. end
  113. if $ARGS[0] = '7':
  114. cla
  115. !!if numbud = 4:end
  116. if numbud = 3:bud4 = 7 & numbud = 4
  117. if numbud = 2:bud3 = 7 & numbud = 3
  118. if numbud = 1:bud2 = 7 & numbud = 2
  119. if numbud = 0:bud1 = 7 & numbud = 1
  120. gt 'budilnik', 'start'
  121. end
  122. if $ARGS[0] = '8':
  123. cla
  124. !!if numbud = 4:end
  125. if numbud = 3:bud4 = 8 & numbud = 4
  126. if numbud = 2:bud3 = 8 & numbud = 3
  127. if numbud = 1:bud2 = 8 & numbud = 2
  128. if numbud = 0:bud1 = 8 & numbud = 1
  129. gt 'budilnik', 'start'
  130. end
  131. if $ARGS[0] = '9':
  132. cla
  133. !!if numbud = 4:end
  134. if numbud = 3:bud4 = 9 & numbud = 4
  135. if numbud = 2:bud3 = 9 & numbud = 3
  136. if numbud = 1:bud2 = 9 & numbud = 2
  137. if numbud = 0:bud1 = 9 & numbud = 1
  138. gt 'budilnik', 'start'
  139. end
  140. if $ARGS[0] = '0':
  141. cla
  142. !!if numbud = 4:end
  143. if numbud = 3:bud4 = 0 & numbud = 4
  144. if numbud = 2:bud3 = 0 & numbud = 3
  145. if numbud = 1:bud2 = 0 & numbud = 2
  146. if numbud = 0:bud1 = 0 & numbud = 1
  147. gt 'budilnik', 'start'
  148. end
  149. if $ARGS[0] = 'Reset':
  150. cla
  151. if bud_weekend = 1:
  152. timerEnd = 0
  153. timerEndM = 0
  154. else
  155. timer = 0
  156. timerM = 0
  157. end
  158. bud1 = 0
  159. bud2 = 0
  160. bud3 = 0
  161. bud4 = 0
  162. numbud = 0
  163. gt 'budilnik', 'start'
  164. end
  165. if $ARGS[0] = 'fin': gt $loc, $metka
  166. --- budilnik ---------------------------------