SHARE
TWEET

Untitled

Sparta252 Mar 22nd, 2019 71 in 249 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- 1.15
  2. -- 4x4
  3. -- 4x6
  4. -- 4x8
  5. -- 4x10
  6. klikanie = null KLIKANIE = 1 -- klikanie
  7. a = null  A = 0  P1 = 20    S1 = 0.1      -- Sporenie
  8. b = null  B = 0  P2 = 100   S2 = 0.25   -- Brigada
  9. c = null  C = 0  P3 = 250   S3 = 0.5        -- Praca
  10. d = null  D = 0  P4 = 750   S4 = 1      -- Podnikanie
  11. e = null  E = 0  P5 = 1250  S5 = 2.05       -- Firma
  12. f = null  F = 0  P6 = 3000  S6 = 6      -- Tovarne
  13. g = null  G = 0  P7 = 10000 S7 = 16     -- Banky
  14. h = null  H = 0  P8 = 25000 S8 = 40     -- Stat
  15.  
  16.  M = 0 -- Money
  17.  
  18.  
  19. m = peripheral.wrap("right")
  20. --m.clear()
  21. --m.setBackgroundColor(colors.lightBlue)
  22. m.setTextColor(colors.magenta)
  23. --m.clear()
  24.  m.setTextColor(colors.black)
  25.  m.setCursorPos(4, 3)
  26.  m.write("Co ".."     Kupene  ".."  Cena noveho".."   Zarabas za 0.1s")
  27.  m.setTextColor(colors.blue)
  28.  m.setCursorPos(17, 4)
  29.  m.write(tostring(A).."   ".. tostring(P1).. " $".."           "..tostring(S1*A).. " $")
  30.  m.setCursorPos(17, 6)
  31.  m.write(tostring(B).."   ".. tostring(P2).. " $".."           "..tostring(S2*B).. " $")
  32.  m.setCursorPos(17, 8)
  33.  m.write(tostring(C).."   ".. tostring(P3).. " $".."           "..tostring(S3*C).. " $")
  34.  m.setCursorPos(17, 10)
  35.  m.write(tostring(D).."   ".. tostring(P4).. " $".."           "..tostring(S4*D).. " $")
  36.  m.setCursorPos(17, 12)
  37.  m.write(tostring(E).."   ".. tostring(P5).. " $".."           "..tostring(S5*E).. " $")
  38.  m.setCursorPos(17, 14)
  39.  m.write(tostring(F).."   ".. tostring(P6).. " $".."           "..tostring(S6*F).. " $")
  40.  m.setCursorPos(17, 16)
  41.  m.write(tostring(G).."   ".. tostring(P7).. " $".."           "..tostring(S7*G).. " $")
  42.  m.setCursorPos(17, 18)
  43.  m.write(tostring(H).."   ".. tostring(P8).. " $".."           "..tostring(S8*H).. " $")
  44.  
  45.  
  46. m.setTextColor(colors.magenta)
  47. m.setCursorPos(4, 4) -- 4 - (4
  48. m.write("Sporenie")
  49. m.setCursorPos(4,6)
  50. m.write("Brigada")
  51. m.setCursorPos(4,8)
  52. m.write("Praca")
  53. m.setCursorPos(4,10)
  54. m.write("Podnikanie")
  55. m.setCursorPos(4,12)
  56. m.write("Firma")
  57. m.setCursorPos(4,14)
  58. m.write("Tovarne")
  59. m.setCursorPos(4,16)
  60. m.write("Banky")
  61. m.setCursorPos(4,18)
  62. m.write("Stat")
  63.  
  64. m.setTextColor(colors.lime)
  65. m.setCursorPos(30,17)
  66. m.write("[KLIKNI]")
  67.  
  68.  
  69. m.setCursorPos(29, 20)
  70. m.write("0", " ", "$")
  71. repeat
  72.  m.setTextColor(colors.blue)
  73.  summary = A + B + C + D + E + F + G + H
  74.  
  75.  if summary >= 1 then
  76.  m.setCursorPos(17, 4)
  77.  m.write(tostring(A).."   ".. tostring(P1).. " $".."           "..tostring(S1*A).. " $")
  78.  m.setCursorPos(17, 6)
  79.  m.write(tostring(B).."   ".. tostring(P2).. " $".."           "..tostring(S2*B).. " $")
  80.  m.setCursorPos(17, 8)
  81.  m.write(tostring(C).."   ".. tostring(P3).. " $".."           "..tostring(S3*C).. " $")
  82.  m.setCursorPos(17, 10)
  83.  m.write(tostring(D).."   ".. tostring(P4).. " $".."           "..tostring(S4*D).. " $")
  84.  m.setCursorPos(17, 12)
  85.  m.write(tostring(E).."   ".. tostring(P5).. " $".."           "..tostring(S5*E).. " $")
  86.  m.setCursorPos(17, 14)
  87.  m.write(tostring(F).."   ".. tostring(P6).. " $".."           "..tostring(S6*F).. " $")
  88.  m.setCursorPos(17, 16)
  89.  m.write(tostring(G).."   ".. tostring(P7).. " $".."           "..tostring(S7*G).. " $")
  90.  m.setCursorPos(17, 18)
  91.  m.write(tostring(H).."   ".. tostring(P8).. " $".."           "..tostring(S8*H).. " $")
  92.  sleep(0)
  93.  
  94.  M = M + A * 0.1 -- od tade
  95.  M = M + B * 0.25
  96.  M = M + B * 0.5
  97.  M = M + D * 1   -- po tade
  98.  M = M + E * 2.05
  99.  M = M + F * 6
  100.  M = M + G * 16
  101.  M = M + H * 40
  102.  
  103.  m.setTextColor(colors.red)
  104.  m.setCursorPos(29, 20)
  105.  m.write(M.." ".."$")
  106.  end
  107.  if summary >= 1 then
  108.  autochange = os.startTimer(0.5)
  109.  end
  110.  e, p1, x, y = os.pullEvent()
  111.  x, y = tonumber(x), tonumber(y)
  112.    
  113.  if e == "timer" and p1 == "autochange" then
  114.   ran = math.random(1, 4)
  115.   cof = {0.05, 0.25, 0.5, 1, 2.05, 6, 16, 40, }
  116.   M = M + tonumber(cof[ran])
  117.  elseif e == "monitor_touch" then
  118.  if x > 3 and x < 12 and y == 4 and M >= P1 then
  119.   a = true
  120.   M = M - P1
  121.   P1 = P1 * 1.15
  122.  end
  123.  if x > 3 and x < 11 and y == 6 and M >= P2 then
  124.   b = true
  125.   M = M - P2
  126.   P2 = P2 * 1.15
  127.  end
  128.  if x > 3 and x < 9 and y == 8 and M >= P3 then
  129.   c = true
  130.   M = M - P3
  131.   P3 = P3 * 1.15
  132.  end
  133.  if x > 3 and x < 14 and y == 10 and M >= P4 then
  134.   d = true
  135.   M = M - P4
  136.   P4 = P4 * 1.15
  137.  end
  138.  if x > 3 and x < 10 and y == 12 and M >= P5 then
  139.   e = true
  140.   M = M - P5
  141.   P5 = P5 * 1.15
  142.  end
  143.  if x > 3 and x < 11 and y == 14 and M >= P6 then
  144.   f = true
  145.   M = M - P6
  146.   P6 = P6 * 1.15
  147.  end
  148.  if x > 3 and x < 9 and y == 16 and M >= P7 then
  149.   g = true
  150.   M = M - P7
  151.   P7 = P7 * 1.15
  152.  end
  153.  if x > 3 and x < 9 and y == 18 and M >= P8 then
  154.   h = true
  155.   M = M - P8
  156.   P8 = P8 * 1.15
  157.  end
  158.  if x > 30 and x < 37 and y == 17 then
  159.   M = M + 1
  160.   m.setCursorPos(29, 20)
  161.   m.write(M.." ".."$")
  162.  end
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  end
  169.  if a == true then
  170.   A = A + 1
  171.   a = false
  172.  end
  173.  if b == true then
  174.   B = B + 1
  175.   b = false
  176.  end
  177.  if c == true then
  178.   C = C + 1
  179.   c = false
  180.  end
  181.  if d == true then
  182.   D = D + 1
  183.   d = false
  184.  end
  185.   if e == true then
  186.   E = E + 1
  187.   e = false
  188.  end
  189.   if f == true then
  190.   F = F + 1
  191.   f = false
  192.  end
  193.   if g == true then
  194.   G = G + 1
  195.   g = false
  196.  end
  197.   if h == true then
  198.   H = H + 1
  199.   h = false
  200.  end
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  sleep(0)
  215.  
  216. until nil
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top