daily pastebin goal
33%
SHARE
TWEET

ugadayka

a guest May 28th, 2018 95 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. print(" Добро пожаловать в игру Угадай-ка\n Вам нужно угадать число, загаданное программой")
  2. ::start::
  3. print("Введите максимально возможное число")
  4. max = io.read()
  5. ::popit::
  6. print("Выберите сложность:\n 1 - 10 попыток\n 2 - 5 попыток\n 3 - 3 попытки\n 4 - 1 попытка")
  7. min = io.read()
  8.   if min == "1" then pop = 10
  9.     elseif min == "2" then pop = 5
  10.       elseif min == "3" then pop = 3
  11.         elseif min == "4" then pop = 1
  12.   else print("Неверная сложность"); goto popit
  13. end
  14. cpop = tonumber(max)
  15. vr = pop/cpop*100
  16. print("Вероятность победы: "..vr.."%")
  17. chislo = math.random(max)
  18. print("Введите предпологаемое число")
  19. ::s1::
  20. zn = io.read()
  21. if zn == "iacheater" then goto cheat
  22. end
  23. n = tonumber(zn)
  24. if chislo == n then print("Ты выигал! \n Нажмите любую кнопку чтобы начать заново, чтобы покинуть игру введите - q"); goto restart
  25. else pop= pop - 1; print("Ответ не верный осталось ".. pop .." попыток");
  26. end
  27. if pop == 0 then goto bad
  28. else goto s1
  29. end
  30. ::cheat::
  31. print("фуу читер.")
  32. goto s1
  33. ::bad::
  34. print("Попытки закончились, нажми любую клавишу чтобы\n начать заново, либо q чтобы выйти.")
  35. ans2 = io.read()
  36. if ans2 == "q" then goto kon
  37. else goto start
  38. end
  39. ::restart::
  40. ans = io.read()
  41. if ans == "q" then goto kon
  42. else goto start
  43. end
  44. ::kon::
  45. -- Made by Vlad3 from computercraft.ru 2018
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