1
0

food_menu.qsrc 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175
  1. # food_menu
  2. if night_mode = 1:
  3. $fcolor1 = '#FFFFFF'
  4. $bcolor1 = '#202020'
  5. $bcolor2 = '#303030'
  6. else
  7. $fcolor1 = '#000000'
  8. $bcolor1 = '#FFFFFF'
  9. $bcolor2 = '#e6f2ff'
  10. end
  11. if $ARGS[0] = 'diner':
  12. *clr & cla
  13. act 'Back':gt $loc, $metka
  14. killvar '$_eat'
  15. $_eat['0,name'] = 'Onion Rings'
  16. $_eat['0,type'] = 'onring'
  17. $_eat['0,price'] = 80
  18. $_eat['1,name'] = 'Vegie Burger'
  19. $_eat['1,type'] = 'vegburg'
  20. $_eat['1,price'] = 240
  21. $_eat['2,name'] = 'Turkey Burger'
  22. $_eat['2,type'] = 'turburg'
  23. $_eat['2,price'] = 260
  24. $_eat['3,name'] = 'Battered Fish & Fries'
  25. $_eat['3,type'] = 'batfish'
  26. $_eat['3,price'] = 290
  27. $_eat['4,name'] = 'Cheeseburger & Fries'
  28. $_eat['4,type'] = 'cheburg'
  29. $_eat['4,price'] = 310
  30. $_str = '<table border="0" width="400" cellpadding="0" cellspacing="1">'
  31. i = 0
  32. :loop_diner_food
  33. $_str += '<tr bgcolor='+iif(i mod 2 = 0,'<<$bcolor1>>','<<$bcolor2>>')+'><td height="30" width="80%" align="center"><font color="<<$fcolor1>>">'+$_eat['<<i>>,name']+'</td><td height="30" width="20%" align="right">'+iif(money >= val($_eat['<<i>>,price']),'<a href="exec:gt''food'',$_eat[''<<i>>,type''],<<i>>">'+$_eat['<<i>>,price']+'</a>',$_eat['<<i>>,price'])+'<font color="<<$fcolor1>>"><b> ₽. </b></td></tr>'
  34. i += 1
  35. if i < arrsize('$_eat')/3:jump 'loop_diner_food'
  36. $_str += '</table></center></font>'
  37. '<center><img <<$set_imgh>> src="images/shared/food/dinerfood.jpg"</center><br>'
  38. 'Your food order:<br><br>'+$_str
  39. killvar '$_str'
  40. killvar '$fcolor1'
  41. killvar '$bcolor1'
  42. killvar '$bcolor2'
  43. end
  44. if $ARGS[0] = 'gcafe':
  45. *clr & cla
  46. act 'Back':gt $loc, $metka
  47. killvar '$_eat'
  48. $_eat['0,name'] = 'Vegatarian Piroshki'
  49. $_eat['0,type'] = 'pirosh'
  50. $_eat['0,price'] = 0
  51. $_eat['1,name'] = 'Herring Blini'
  52. $_eat['1,type'] = 'blini'
  53. $_eat['1,price'] = 0
  54. $_eat['2,name'] = 'Golubtsy'
  55. $_eat['2,type'] = 'golub'
  56. $_eat['2,price'] = 0
  57. $_eat['3,name'] = 'Pozharsky Cutlets'
  58. $_eat['3,type'] = 'pozhar'
  59. $_eat['3,price'] = 0
  60. $_eat['4,name'] = 'Rueben Sandwich'
  61. $_eat['4,type'] = 'reuben'
  62. $_eat['4,price'] = 0
  63. $_str = '<table border="0" width="400" cellpadding="0" cellspacing="1">'
  64. i = 0
  65. :loop_gcafe_food
  66. $_str += '<tr bgcolor='+iif(i mod 2 = 0,'<<$bcolor1>>','<<$bcolor2>>')+'><td height="30" width="80%" align="center"><font color="<<$fcolor1>>">'+$_eat['<<i>>,name']+'</td><td height="30" width="20%" align="center"><a href="exec:gt''food'',$_eat[''<<i>>,type''],<<i>>">Free</a><font color="<<$fcolor1>>"><b></b></td></tr>'
  67. i += 1
  68. if i < arrsize('$_eat')/3:jump 'loop_gcafe_food'
  69. $_str += '</table></center></font>'
  70. '<center><img <<$set_imgh>> src="images/shared/food/cafefood.jpg"</center><br>'
  71. 'Your food order:<br><br>'+$_str
  72. killvar '$_str'
  73. killvar '$fcolor1'
  74. killvar '$bcolor1'
  75. killvar '$bcolor2'
  76. end
  77. if $ARGS[0] = 'cafe':
  78. *clr & cla
  79. act 'Back':gt $loc, $metka
  80. killvar '$_eat'
  81. $_eat['0,name'] = 'Vegatarian Piroshki'
  82. $_eat['0,type'] = 'pirosh'
  83. $_eat['0,price'] = 100
  84. $_eat['1,name'] = 'Herring Blini'
  85. $_eat['1,type'] = 'blini'
  86. $_eat['1,price'] = 190
  87. $_eat['2,name'] = 'Golubtsy'
  88. $_eat['2,type'] = 'golub'
  89. $_eat['2,price'] = 210
  90. $_eat['3,name'] = 'Pozharsky Cutlets'
  91. $_eat['3,type'] = 'pozhar'
  92. $_eat['3,price'] = 290
  93. $_eat['4,name'] = 'Rueben Sandwich'
  94. $_eat['4,type'] = 'reuben'
  95. $_eat['4,price'] = 340
  96. $_str = '<table border="0" width="400" cellpadding="0" cellspacing="1">'
  97. i = 0
  98. :loop_cafe_food
  99. $_str += '<tr bgcolor='+iif(i mod 2 = 0,'<<$bcolor1>>','<<$bcolor2>>')+'><td height="30" width="80%" align="center"><font color="<<$fcolor1>>">'+$_eat['<<i>>,name']+'</td><td height="30" width="20%" align="right">'+iif(money >= val($_eat['<<i>>,price']),'<a href="exec:gt''food'',$_eat[''<<i>>,type''],<<i>>">'+$_eat['<<i>>,price']+'</a>',$_eat['<<i>>,price'])+'<font color="<<$fcolor1>>"><b> ₽. </b></td></tr>'
  100. i += 1
  101. if i < arrsize('$_eat')/3:jump 'loop_cafe_food'
  102. $_str += '</table></center></font>'
  103. '<center><img <<$set_imgh>> src="images/shared/food/cafefood.jpg"</center><br>'
  104. 'Your food order:<br><br>'+$_str
  105. killvar '$_str'
  106. killvar '$fcolor1'
  107. killvar '$bcolor1'
  108. killvar '$bcolor2'
  109. end
  110. if $ARGS[0] = 'fancy':
  111. *clr & cla
  112. act 'Back':gt $loc, $metka
  113. killvar '$_eat'
  114. $_eat['0,name'] = 'Vareniki with Potatoes'
  115. $_eat['0,type'] = 'varenfan'
  116. $_eat['0,price'] = 760
  117. $_eat['1,name'] = 'Borscht and French Baguette'
  118. $_eat['1,type'] = 'borfan'
  119. $_eat['1,price'] = 900
  120. $_eat['2,name'] = 'Atlantic Salmon Steak'
  121. $_eat['2,type'] = 'salfan'
  122. $_eat['2,price'] = 1000
  123. $_eat['3,name'] = 'Beef & Mushroom Stroganoff'
  124. $_eat['3,type'] = 'strofan'
  125. $_eat['3,price'] = 1200
  126. $_eat['4,name'] = 'Red Caviar Blinchiki'
  127. $_eat['4,type'] = 'blifan'
  128. $_eat['4,price'] = 1360
  129. $_str = '<table border="0" width="400" cellpadding="0" cellspacing="1">'
  130. i = 0
  131. :loop_fancy_food
  132. $_str += '<tr bgcolor='+iif(i mod 2 = 0,'<<$bcolor1>>','<<$bcolor2>>')+'><td height="30" width="80%" align="center"><font color="<<$fcolor1>>">'+$_eat['<<i>>,name']+'</td><td height="30" width="20%" align="right">'+iif(money >= val($_eat['<<i>>,price']),'<a href="exec:gt''food'',$_eat[''<<i>>,type''],<<i>>">'+$_eat['<<i>>,price']+'</a>',$_eat['<<i>>,price'])+'<font color="<<$fcolor1>>"><b> ₽. </b></td></tr>'
  133. i += 1
  134. if i < arrsize('$_eat')/3:jump 'loop_fancy_food'
  135. $_str += '</table></center></font>'
  136. '<center><img <<$set_imgh>> src="images/shared/food/fancyfood.jpg"</center><br>'
  137. 'Your food order:<br><br>'+$_str
  138. killvar '$_str'
  139. killvar '$fcolor1'
  140. killvar '$bcolor1'
  141. killvar '$bcolor2'
  142. end
  143. if $ARGS[0] = 'pub':
  144. *clr & cla
  145. act 'Back':gt $loc, $metka
  146. killvar '$_eat'
  147. $_eat['0,name'] = 'Toasted rye snacks'
  148. $_eat['0,type'] = 'ryesna'
  149. $_eat['0,price'] = 30
  150. $_eat['1,name'] = 'Bowl of flavoured crisps'
  151. $_eat['1,type'] = 'crisps'
  152. $_eat['1,price'] = 40
  153. $_str = '<table border="0" width="400" cellpadding="0" cellspacing="1">'
  154. i = 0
  155. :loop_pub_food
  156. $_str += '<tr bgcolor='+iif(i mod 2 = 0,'<<$bcolor1>>','<<$bcolor2>>')+'><td height="30" width="80%" align="center"><font color="<<$fcolor1>>">'+$_eat['<<i>>,name']+'</td><td height="30" width="20%" align="right">'+iif(money >= val($_eat['<<i>>,price']),'<a href="exec:gt''food'',$_eat[''<<i>>,type''],<<i>>">'+$_eat['<<i>>,price']+'</a>',$_eat['<<i>>,price'])+'<font color="<<$fcolor1>>"><b> ₽. </b></td></tr>'
  157. i += 1
  158. if i < arrsize('$_eat')/3:jump 'loop_pub_food'
  159. $_str += '</table></center></font>'
  160. '<center><img <<$set_imgh>> src="images/shared/food/barfood.jpg"</center><br>'
  161. 'Your food order:<br><br>'+$_str
  162. killvar '$_str'
  163. killvar '$fcolor1'
  164. killvar '$bcolor1'
  165. killvar '$bcolor2'
  166. end
  167. --- food_menu ---------------------------------