Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Simple Hosting

Pages: [1]
1
Общие вопросы / Re: Подскажите, как сделать генератор для Библии?
« on: November 19, 2019, 07:45:19 PM »
Quote from: Vint on November 18, 2019, 10:40:13 PM
Специальных команд нет. Только если прослойку сделать. Никому не нужно было.
Нет так нет - СПАСИБО!!!

Quote from: Vint on November 18, 2019, 10:40:13 PM
А почему здесь и канон и не канон?
У меня в телефоне есть программа - MyBible, у нее есть виджет, виджет генерит случайный стих и не учитывает неканонические книги, когда только для себя этого достаточно, но со временем интересные цитаты начал показывать друзьям в соц. сетях. Я считаю, что это неправильное ограничение, т.к. взял бумажную Библию и там есть и неканонические книги.

Quote from: Vint on November 18, 2019, 10:47:34 PM
Там же можно не прописывать количество книг
СПАСИБО!!!

Code: (Clickermann) [Select]
UNDEFINE($books)
UNDEFINE($chapters)
 
ARRPUSH($books, "Бытие,31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26")
ARRPUSH($books, "Исход,22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38")
ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")
ARRPUSH($books, "Числа,54,34,51,49,31,27,89,26,23,36,35,15,34,45,41,50,13,32,22,29,35,41,30,25,18,65,23,31,39,17,54,42,56,29,34,13")
ARRPUSH($books, "Второзаконие,46,37,29,49,33,25,26,20,29,22,32,32,18,29,23,22,20,22,21,20,23,30,25,22,19,19,26,68,29,20,30,52,29,12")
ARRPUSH($books, "Иисус Навин,18,24,17,24,16,26,26,35,27,43,23,24,33,15,63,10,18,28,51,9,45,34,16,36")
ARRPUSH($books, "Судьи,36,23,31,24,31,40,25,35,57,18,40,15,25,20,20,31,13,31,30,48,25")
ARRPUSH($books, "Руфь,22,23,18,22")
ARRPUSH($books, "1-я Царств,28,36,21,22,12,21,17,22,27,27,15,25,23,52,35,23,58,30,24,43,15,23,28,23,44,25,12,25,11,31,13")
ARRPUSH($books, "2-я Царств,27,32,39,12,25,23,29,18,13,19,27,31,39,33,37,23,29,33,43,26,22,51,39,25")
ARRPUSH($books, "3-я Царств,53,46,28,34,18,38,51,66,28,29,43,33,34,31,34,34,24,46,21,43,29,53")
ARRPUSH($books, "4-я Царств,18,25,27,44,27,33,20,29,37,36,21,21,25,29,38,20,41,37,37,21,26,20,37,20,30")
ARRPUSH($books, "1-я Паралипоменон,54,55,24,43,26,81,40,40,44,14,47,40,14,17,29,43,27,17,19,8,30,19,32,31,31,32,34,21,30")
ARRPUSH($books, "2-я Паралипоменон,17,18,17,22,14,42,22,18,31,19,23,16,22,15,19,14,19,34,11,37,20,12,21,27,28,23,9,27,36,27,21,33,25,33,27,23,12")
ARRPUSH($books, "Ездра,11,70,13,24,17,22,28,36,15,44")
ARRPUSH($books, "Неемия,11,20,32,23,19,19,73,18,38,39,36,47,31")
ARRPUSH($books, "2-я Ездры *,58,31,24,63,70,34,15,92,55")
ARRPUSH($books, "Товит *,22,14,17,21,22,18,17,21,6,13,18,22,18,15")
ARRPUSH($books, "Иудифь *,16,28,10,15,24,21,32,36,14,23,23,20,20,19,14,25")
ARRPUSH($books, "Есфирь,22,23,15,17,14,14,10,17,32,3")
ARRPUSH($books, "Иов,22,13,26,21,27,30,21,22,35,22,20,25,28,22,35,22,16,21,29,29,34,30,17,25,6,14,23,28,25,31,40,22,33,37,16,33,24,41,35,27,26,17,6")
ARRPUSH($books, "Псалтирь,6,12,9,9,13,11,18,10,39,7,9,6,7,5,11,15,51,15,10,14,32,6,10,22,12,14,9,11,13,25,11,22,23,28,13,40,23,14,18,14,12,5,27,18,12,10,15,21,23,21,11,7,9,24,14,12,12,18,14,9,13,12,11,14,20,8,36,37,6,24,20,28,23,11,13,21,72,13,20,17,8,19,13,14,17,7,19,53,17,16,16,5,23,11,13,12,9,9,5,8,29,22,35,45,48,43,14,31,7,10,10,9,26,9,10,2,29,176,7,8,9,4,8,5,6,5,6,8,8,3,18,3,3,21,26,9,8,24,14,10,7,12,15,21,10,11,9,14,9,6,7")
ARRPUSH($books, "Притчи,33,22,35,29,23,35,27,36,18,32,31,28,26,35,33,33,28,25,29,30,31,29,35,34,28,28,27,28,27,33,31")
ARRPUSH($books, "Екклесиаст,18,26,22,17,19,12,29,17,18,20,10,14")
ARRPUSH($books, "Песня Песней,16,17,11,16,16,12,14,14")
ARRPUSH($books, "Премудрости Соломона *,16,24,19,20,24,27,30,21,19,21,27,28,19,31,19,29,20,25,21")
ARRPUSH($books, "Сирах *,6,30,18,31,35,18,37,39,22,23,34,34,18,32,27,20,31,31,33,28,31,31,31,37,37,29,27,33,30,31,27,37,25,33,26,23,29,34,39,42,32,29,26,36,27,31,23,31,28,18,31,38")
ARRPUSH($books, "Исаия,31,22,25,6,30,13,25,22,21,34,16,6,22,32,9,14,14,7,25,6,17,25,18,23,12,21,13,29,24,33,9,20,24,17,10,22,38,22,8,31,29,25,28,28,25,13,15,22,26,11,23,15,12,17,13,12,21,14,21,22,11,12,19,12,25,24")
ARRPUSH($books, "Иеремия,19,37,25,31,31,30,34,22,26,25,23,17,27,22,21,21,27,23,15,18,14,30,40,10,38,24,22,17,32,24,40,44,26,22,19,32,21,28,18,16,18,22,13,30,5,28,7,47,39,46,64,34")
ARRPUSH($books, "Плач Иеремии,22,22,66,22,22")
ARRPUSH($books, "Послание Иеремии *,72")
ARRPUSH($books, "Варух *,22,35,38,37,9")
ARRPUSH($books, "Иезекииль,28,10,27,17,17,14,27,18,11,22,25,28,23,23,8,63,24,32,14,49,32,31,49,27,17,21,36,26,21,26,18,32,33,31,15,38,28,23,29,49,26,20,27,31,25,24,23,35")
ARRPUSH($books, "Даниил,21,49,100,34,31,28,28,27,27,21,45,13,64,42")
ARRPUSH($books, "Осия,11,23,5,19,15,11,16,14,17,15,12,14,15,10")
ARRPUSH($books, "Иоиль,20,32,21")
ARRPUSH($books, "Амос,15,16,15,13,27,14,17,14,15")
ARRPUSH($books, "Авдий,21")
ARRPUSH($books, "Иона,16,11,10,11")
ARRPUSH($books, "Михей,16,13,12,13,15,16,20")
ARRPUSH($books, "Наум,15,13,19")
ARRPUSH($books, "Аввакум,17,20,19")
ARRPUSH($books, "Софония,18,15,20")
ARRPUSH($books, "Аггей,15,23")
ARRPUSH($books, "Захария,21,13,10,14,11,15,14,23,17,12,17,14,9,21")
ARRPUSH($books, "Малахия,14,17,18,6")
ARRPUSH($books, "1-я Маккавейская *,64,70,60,61,68,63,50,32,73,89,74,53,53,49,41,24")
ARRPUSH($books, "2-я Маккавейская *,36,33,40,50,27,31,42,36,29,38,38,45,26,46,39")
ARRPUSH($books, "3-я Маккавейская *,25,24,22,16,36,37,20")
ARRPUSH($books, "3-я Ездры *,40,48,36,52,56,59,70,63,47,60,46,51,58,48,63,78")
ARRPUSH($books, "От Матфея,25,23,17,25,48,34,29,34,38,42,30,50,58,36,39,28,27,35,30,34,46,46,39,51,46,75,66,20")
ARRPUSH($books, "От Марка,45,28,35,41,43,56,37,38,50,52,33,44,37,72,47,20")
ARRPUSH($books, "От Луки,80,52,38,44,39,49,50,56,62,42,54,59,35,35,32,31,37,43,48,47,38,71,56,53")
ARRPUSH($books, "От Иоанна,51,25,36,54,47,71,53,59,41,42,57,50,38,31,27,33,26,40,42,31,25")
ARRPUSH($books, "Деяния,26,47,26,37,42,15,60,40,43,48,30,25,52,28,41,40,34,28,40,38,40,30,35,27,27,32,44,31")
ARRPUSH($books, "Иакова,27,26,18,17,20")
ARRPUSH($books, "1-е Петра,25,25,22,19,14")
ARRPUSH($books, "2-е Петра,21,22,18")
ARRPUSH($books, "1-е Иоанна,10,29,24,21,21")
ARRPUSH($books, "2-е Иоанна,13")
ARRPUSH($books, "3-е Иоанна,15")
ARRPUSH($books, "Иуды ,25")
ARRPUSH($books, "К Римлянам,32,29,31,25,21,23,25,39,33,21,36,21,14,26,33,24")
ARRPUSH($books, "1-е Коринфянам,31,16,23,21,13,20,40,13,27,33,34,31,13,40,58,24")
ARRPUSH($books, "2-е Коринфянам,24,17,18,18,21,18,16,24,15,18,32,21,13")
ARRPUSH($books, "К Галатам,24,21,29,31,26,18")
ARRPUSH($books, "К Ефесянам,23,22,21,32,33,24")
ARRPUSH($books, "К Филиппийцам,30,30,21,23")
ARRPUSH($books, "К Колоссянам,29,23,25,18")
ARRPUSH($books, "1-е Фессалоникийцам,10,20,13,18,28")
ARRPUSH($books, "2-е Фессалоникийцам,12,17,18")
ARRPUSH($books, "1-е Тимофею,20,15,16,16,25,21")
ARRPUSH($books, "2-е Тимофею,18,26,17,22")
ARRPUSH($books, "К Титу,16,15,15")
ARRPUSH($books, "К Филимону,25")
ARRPUSH($books, "К Евреям,14,18,19,16,14,20,28,13,28,39,40,29,25")
ARRPUSH($books, "Откровение,20,29,22,11,14,17,17,13,21,11,19,17,18,20,8,21,18,24,21,15,27,21")
 
$book = RND(1, ARRSIZE($books))
STRSEPARATE($books[$book-1], ",", $chapters)
print("Книга: ", $chapters[0])
 
$chapter = RND(1, ARRSIZE($chapters)-1)
$verse = RND(1, $chapters[$chapter])
 
print("Глава: ", $chapter, " из (", ARRSIZE($chapters)-1, ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter], ")")
print("")
HALT

2
Общие вопросы / Clickermann поддерживает базы?
« on: November 18, 2019, 08:42:47 PM »
Осталось всего лишь:
  • ARRPUSH - 77 штук;
  • $books - 79 штуки.

СПАСИБО!!!

Clickermann поддерживает базы?

Code: (Clickermann) [Select]
UNDEFINE($books)
UNDEFINE($chapters)
 
ARRPUSH($books, "Бытие,31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26")
ARRPUSH($books, "Исход,22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38")
ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")
ARRPUSH($books, "Числа,54,34,51,49,31,27,89,26,23,36,35,16,33,45,41,50,13,32,22,29,35,41,30,25,18,65,23,31,40,16,54,42,56,29,34,13")
ARRPUSH($books, "Второзаконие,46,37,29,49,33,25,26,20,29,22,32,32,18,29,23,22,20,22,21,20,23,30,25,22,19,19,26,68,29,20,30,52,29,12")
ARRPUSH($books, "Иисус Навин,18,24,17,24,15,27,26,35,27,43,23,24,33,15,63,10,18,28,51,9,45,34,16,33")
ARRPUSH($books, "Судьи,36,23,31,24,31,40,25,35,57,18,40,15,25,20,20,31,13,31,30,48,25")
ARRPUSH($books, "Руфь,22,23,18,22")
ARRPUSH($books, "1-я Царств,28,36,21,22,12,21,17,22,27,27,15,25,23,52,35,23,58,30,24,42,15,23,29,22,44,25,12,25,11,31,13")
ARRPUSH($books, "2-я Царств,27,32,39,12,25,23,29,18,13,19,27,31,39,33,37,23,29,33,43,26,22,51,39,25")
ARRPUSH($books, "3-я Царств,53,46,28,34,18,38,51,66,28,29,43,33,34,31,34,34,24,46,21,43,29,53")
ARRPUSH($books, "4-я Царств,18,25,27,44,27,33,20,29,37,36,21,21,25,29,38,20,41,37,37,21,26,20,37,20,30")
ARRPUSH($books, "1-я Паралипоменон,54,55,24,43,26,81,40,40,44,14,47,40,14,17,29,43,27,17,19,8,30,19,32,31,31,32,34,21,30")
ARRPUSH($books, "2-я Паралипоменон,17,18,17,22,14,42,22,18,31,19,23,16,22,15,19,14,19,34,11,37,20,12,21,27,28,23,9,27,36,27,21,33,25,33,27,24")
ARRPUSH($books, "Ездра,11,70,13,24,17,22,28,36,15,44")
ARRPUSH($books, "Неемия,11,20,32,23,19,19,73,18,38,39,36,47,31")
ARRPUSH($books, "2-я Ездры *,58,31,24,63,70,34,15,92,55")
ARRPUSH($books, "Товит *,22,14,17,21,22,18,17,21,6,13,18,22,18,15")
ARRPUSH($books, "Иудифь *,16,28,10,15,24,21,32,36,14,23,23,20,20,19,14,25")
ARRPUSH($books, "Есфирь,22,23,15,17,14,14,10,17,32,3")
ARRPUSH($books, "Иов,22,13,26,21,27,30,21,22,35,22,20,25,28,22,35,22,16,21,29,29,34,30,17,25,6,14,23,28,25,31,40,22,33,37,16,33,24,41,30,24,34,17")
ARRPUSH($books, "Псалтирь,6,12,8,8,12,10,17,9,20,18,7,8,6,7,5,11,15,50,14,9,13,31,6,10,22,12,14,9,11,12,24,11,22,22,28,12,40,22,13,17,13,11,5,26,17,11,9,14,20,23,19,9,6,7,23,13,11,11,17,12,8,12,11,10,13,20,7,35,36,5,24,20,28,23,10,12,20,72,13,19,16,8,18,12,13,17,7,18,52,17,16,15,5,23,11,13,12,9,9,5,8,28,22,35,45,48,43,13,31,7,10,10,9,8,18,19,2,29,176,7,8,9,4,8,5,6,5,6,8,8,3,18,3,3,21,26,9,8,24,13,10,7,12,15,21,10,20,14,9,6,7")
ARRPUSH($books, "Притчи,33,22,35,27,23,35,27,36,18,32,31,28,25,35,33,33,28,24,29,30,31,29,35,34,28,28,27,28,27,33,31")
ARRPUSH($books, "Екклесиаст,18,26,22,16,20,12,29,17,18,20,10,14")
ARRPUSH($books, "Песня Песней,17,17,11,16,16,13,13,14")
ARRPUSH($books, "Премудрости Соломона *,16,24,19,20,24,27,30,21,19,21,27,28,19,31,19,29,20,25,21")
ARRPUSH($books, "Сирах *,6,30,18,31,35,18,37,39,22,23,34,34,18,32,27,20,31,31,33,28,31,31,31,37,37,29,27,33,30,31,27,37,25,33,26,23,29,34,39,42,32,29,26,36,27,31,23,31,28,18,31")
ARRPUSH($books, "Исаия,31,22,26,6,30,13,25,22,21,34,16,6,22,32,9,14,14,7,25,6,17,25,18,23,12,21,13,29,24,33,9,20,24,17,10,22,38,22,8,31,29,25,28,28,25,13,15,22,26,11,23,15,12,17,13,12,21,14,21,22,11,12,19,12,25,24")
ARRPUSH($books, "Иеремия,19,37,25,31,31,30,34,22,26,25,23,17,27,22,21,21,27,23,15,18,14,30,40,10,38,24,22,17,32,24,40,44,26,22,19,32,21,28,18,16,18,22,13,30,5,28,7,47,39,46,64,34")
ARRPUSH($books, "Плач Иеремии,22,22,66,22,22")
ARRPUSH($books, "Послание Иеремии *,72")
ARRPUSH($books, "Варух *,22,35,38,37,9")
ARRPUSH($books, "Иезекииль,28,10,27,17,17,14,27,18,11,22,25,28,23,23,8,63,24,32,14,49,32,31,49,27,17,21,36,26,21,26,18,32,33,31,15,38,28,23,29,49,26,20,27,31,25,24,23,35")
ARRPUSH($books, "Даниил,21,49,100,34,31,28,28,27,27,21,45,13,64,42")
ARRPUSH($books, "Осия,11,23,5,19,15,11,16,14,17,15,12,14,16,9")
ARRPUSH($books, "Иоиль,20,32,21")
ARRPUSH($books, "Амос,15,16,15,13,27,14,17,14,15")
ARRPUSH($books, "Авдий,21")
ARRPUSH($books, "Иона,17,10,10,11")
ARRPUSH($books, "Михей,16,13,12,13,15,16,20")
ARRPUSH($books, "Наум,15,13,19")
ARRPUSH($books, "Аввакум,17,20,19")
ARRPUSH($books, "Софония,18,15,20")
ARRPUSH($books, "Аггей,15,23")
ARRPUSH($books, "Захария,21,13,10,14,11,15,14,23,17,12,17,14,9,21")
ARRPUSH($books, "Малахия,14,17,18,6")
ARRPUSH($books, "1-я Маккавейская *,64,70,60,61,68,63,50,32,73,89,74,53,53,49,41,24")
ARRPUSH($books, "2-я Маккавейская *,36,33,40,50,27,31,42,36,29,38,38,45,26,46,39")
ARRPUSH($books, "3-я Маккавейская *,25,24,22,16,36,37,20")
ARRPUSH($books, "3-я Ездры *,40,48,36,52,56,59,70,63,47,60,46,51,58,48,63,78")
ARRPUSH($books, "От Матфея,25,23,17,25,48,34,29,34,38,42,30,50,58,36,39,28,27,35,30,34,46,46,39,51,46,75,66,20")
ARRPUSH($books, "От Марка,45,28,35,41,43,56,37,38,50,52,33,44,37,72,47,20")
ARRPUSH($books, "От Луки,80,52,38,44,39,49,50,56,62,42,54,59,35,35,32,31,37,43,48,47,38,71,56,53")
ARRPUSH($books, "От Иоанна,51,25,36,54,47,71,53,59,41,42,57,50,38,31,27,33,26,40,42,31,25")
ARRPUSH($books, "Деяния,26,47,26,37,42,15,60,40,43,48,30,25,52,28,41,40,34,28,41,38,40,30,35,27,27,32,44,31")
ARRPUSH($books, "Иакова,27,26,18,17,20")
ARRPUSH($books, "1-е Петра,25,25,22,19,14")
ARRPUSH($books, "2-е Петра,21,22,18")
ARRPUSH($books, "1-е Иоанна,10,29,24,21,21")
ARRPUSH($books, "2-е Иоанна,13")
ARRPUSH($books, "3-е Иоанна ,14")
ARRPUSH($books, "Иуды ,25")
ARRPUSH($books, "К Римлянам,32,29,31,25,21,23,25,39,33,21,36,21,14,23,33,27")
ARRPUSH($books, "1-е Коринфянам,31,16,23,21,13,20,40,13,27,33,34,31,13,40,58,24")
ARRPUSH($books, "2-е Коринфянам,24,17,18,18,21,18,16,24,15,18,33,21,14")
ARRPUSH($books, "К Галатам,24,21,29,31,26,18")
ARRPUSH($books, "К Ефесянам,23,22,21,32,33,24")
ARRPUSH($books, "К Филиппийцам,30,30,21,23")
ARRPUSH($books, "К Колоссянам,29,23,25,18")
ARRPUSH($books, "1-е Фессалоникийцам,10,20,13,18,28")
ARRPUSH($books, "2-е Фессалоникийцам,12,17,18")
ARRPUSH($books, "1-е Тимофею,20,15,16,16,25,21")
ARRPUSH($books, "2-е Тимофею,18,26,17,22")
ARRPUSH($books, "К Титу,16,15,15")
ARRPUSH($books, "К Филимону,25")
ARRPUSH($books, "К Евреям,14,18,19,16,14,20,28,13,28,39,40,29,25")
ARRPUSH($books, "Откровение,20,29,22,11,14,17,17,13,21,11,19,17,18,20,8,21,18,24,21,15,27,21")
 
$book = RND(1, 77)
STRSEPARATE($books[$book-1], ",", $chapters)
print("Книга: ", $chapters[0])
 
$chapter = RND(1, ARRSIZE($chapters)-1)
$verse = RND(1, $chapters[$chapter])
 
print("Глава: ", $chapter, " из (", ARRSIZE($chapters)-1, ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter], ")")
print("")
HALT

3
Общие вопросы / Возможно ли уменьшить код программы?
« on: November 17, 2019, 02:55:26 PM »
Подытожим:
  • case - 120 штук;
  • print - 123 штуки;
  • RND - 121 штука;
  • Стих - 117 штук.
И это только 3-и книги, возможно ли уменьшить код программы?

Code: (Clickermann) [Select]
$book = RND(1,3)
switch($book)
 
   case(1)
      print("Книга: ", "Бытие")
      $verse = RND(1,50)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,31))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,24))
         case(4)
            print("Стих: ", RND(1,26))
         case(5)
            print("Стих: ", RND(1,32))
         case(6)
            print("Стих: ", RND(1,22))
         case(7)
            print("Стих: ", RND(1,24))
         case(8)
            print("Стих: ", RND(1,22))
         case(9)
            print("Стих: ", RND(1,29))
         case(10)
            print("Стих: ", RND(1,32))
         case(11)
            print("Стих: ", RND(1,32))
         case(12)
            print("Стих: ", RND(1,20))
         case(13)
            print("Стих: ", RND(1,18))
         case(14)
            print("Стих: ", RND(1,24))
         case(15)
            print("Стих: ", RND(1,21))
         case(16)
            print("Стих: ", RND(1,16))
         case(17)
            print("Стих: ", RND(1,27))
         case(18)
            print("Стих: ", RND(1,33))
         case(19)
            print("Стих: ", RND(1,38))
         case(20)
            print("Стих: ", RND(1,18))
         case(21)
            print("Стих: ", RND(1,34))
         case(22)
            print("Стих: ", RND(1,24))
         case(23)
            print("Стих: ", RND(1,20))
         case(24)
            print("Стих: ", RND(1,67))
         case(25)
            print("Стих: ", RND(1,34))
         case(26)
            print("Стих: ", RND(1,35))
         case(27)
            print("Стих: ", RND(1,46))
         case(28)
            print("Стих: ", RND(1,22))
         case(29)
            print("Стих: ", RND(1,35))
         case(30)
            print("Стих: ", RND(1,43))
         case(31)
            print("Стих: ", RND(1,55))
         case(32)
            print("Стих: ", RND(1,32))
         case(33)
            print("Стих: ", RND(1,20))
         case(34)
            print("Стих: ", RND(1,31))
         case(35)
            print("Стих: ", RND(1,29))
         case(36)
            print("Стих: ", RND(1,43))
         case(37)
            print("Стих: ", RND(1,36))
         case(38)
            print("Стих: ", RND(1,30))
         case(39)
            print("Стих: ", RND(1,23))
         case(40)
            print("Стих: ", RND(1,23))
         case(41)
            print("Стих: ", RND(1,57))
         case(42)
            print("Стих: ", RND(1,38))
         case(43)
            print("Стих: ", RND(1,34))
         case(44)
            print("Стих: ", RND(1,34))
         case(45)
            print("Стих: ", RND(1,28))
         case(46)
            print("Стих: ", RND(1,34))
         case(47)
            print("Стих: ", RND(1,31))
         case(48)
            print("Стих: ", RND(1,22))
         case(49)
            print("Стих: ", RND(1,33))
         case(50)
            print("Стих: ", RND(1,26))
      end_switch
 
   case(2)
      print("Книга: ", "Исход")
      $verse = RND(1,40)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,22))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,22))
         case(4)
            print("Стих: ", RND(1,31))
         case(5)
            print("Стих: ", RND(1,23))
         case(6)
            print("Стих: ", RND(1,30))
         case(7)
            print("Стих: ", RND(1,25))
         case(8)
            print("Стих: ", RND(1,32))
         case(9)
            print("Стих: ", RND(1,35))
         case(10)
            print("Стих: ", RND(1,29))
         case(11)
            print("Стих: ", RND(1,10))
         case(12)
            print("Стих: ", RND(1,51))
         case(13)
            print("Стих: ", RND(1,22))
         case(14)
            print("Стих: ", RND(1,31))
         case(15)
            print("Стих: ", RND(1,27))
         case(16)
            print("Стих: ", RND(1,36))
         case(17)
            print("Стих: ", RND(1,16))
         case(18)
            print("Стих: ", RND(1,27))
         case(19)
            print("Стих: ", RND(1,25))
         case(20)
            print("Стих: ", RND(1,26))
         case(21)
            print("Стих: ", RND(1,36))
         case(22)
            print("Стих: ", RND(1,31))
         case(23)
            print("Стих: ", RND(1,33))
         case(24)
            print("Стих: ", RND(1,18))
         case(25)
            print("Стих: ", RND(1,40))
         case(26)
            print("Стих: ", RND(1,37))
         case(27)
            print("Стих: ", RND(1,21))
         case(28)
            print("Стих: ", RND(1,43))
         case(29)
            print("Стих: ", RND(1,46))
         case(30)
            print("Стих: ", RND(1,38))
         case(31)
            print("Стих: ", RND(1,18))
         case(32)
            print("Стих: ", RND(1,35))
         case(33)
            print("Стих: ", RND(1,23))
         case(34)
            print("Стих: ", RND(1,35))
         case(35)
            print("Стих: ", RND(1,35))
         case(36)
            print("Стих: ", RND(1,38))
         case(37)
            print("Стих: ", RND(1,29))
         case(38)
            print("Стих: ", RND(1,31))
         case(39)
            print("Стих: ", RND(1,43))
         case(40)
            print("Стих: ", RND(1,38))
      end_switch
 
   case(3)
      print("Книга: ", "Левит")
      $verse = RND(1,27)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,17))
         case(2)
            print("Стих: ", RND(1,16))
         case(3)
            print("Стих: ", RND(1,17))
         case(4)
            print("Стих: ", RND(1,35))
         case(5)
            print("Стих: ", RND(1,19))
         case(6)
            print("Стих: ", RND(1,30))
         case(7)
            print("Стих: ", RND(1,38))
         case(8)
            print("Стих: ", RND(1,36))
         case(9)
            print("Стих: ", RND(1,24))
         case(10)
            print("Стих: ", RND(1,20))
         case(11)
            print("Стих: ", RND(1,47))
         case(12)
            print("Стих: ", RND(1,8))
         case(13)
            print("Стих: ", RND(1,59))
         case(14)
            print("Стих: ", RND(1,56))
         case(15)
            print("Стих: ", RND(1,33))
         case(16)
            print("Стих: ", RND(1,34))
         case(17)
            print("Стих: ", RND(1,16))
         case(18)
            print("Стих: ", RND(1,30))
         case(19)
            print("Стих: ", RND(1,37))
         case(20)
            print("Стих: ", RND(1,27))
         case(21)
            print("Стих: ", RND(1,24))
         case(22)
            print("Стих: ", RND(1,33))
         case(23)
            print("Стих: ", RND(1,44))
         case(24)
            print("Стих: ", RND(1,23))
         case(25)
            print("Стих: ", RND(1,55))
         case(26)
            print("Стих: ", RND(1,46))
         case(27)
            print("Стих: ", RND(1,34))
      end_switch
 
end_switch 
 
HALT

4
Общие вопросы / Re: Подскажите, как сделать генератор для Библии?
« on: November 17, 2019, 09:35:08 AM »
СПАСИБО!!!

5
Общие вопросы / Re: Подскажите, как сделать генератор для Библии?
« on: November 16, 2019, 09:58:58 PM »
Остановлюсь на таком варианте:
Code: (Clickermann) [Select]
$book = RND(1,3)

switch($book)
case(1)
   print("Книга: ", "Бытие")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)
   if($verse = 1)
      print("Стих: ", RND(1,31))
   end_if

   if($verse = 2)
      print("Стих: ", RND(1,25))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,24))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,26))
   end_if

case(2)
   print("Книга: ", "Исход")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)   
   if($verse = 1)
      print("Стих: ", RND(1,22))
   end_if
   if($verse = 2)
      print("Стих: ", RND(1,25))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,22))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,31))
   end_if

case(3)
   print("Книга: ", "Левит")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)
   if($verse = 1)
      print("Стих: ", RND(1,17))
   end_if
   if($verse = 2)
      print("Стих: ", RND(1,16))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,17))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,35))
   end_if

end_switch

HALT

6
Общие вопросы / Подскажите, как сделать генератор для Библии?
« on: November 16, 2019, 11:54:25 AM »
Если нужен генератор только для стихов книги Бытие, для первой главы тогда так:
Code: (Clickermann) [Select]
print(RND(1,31))
Если нужен генератор по главам книги Бытие, тогда так:
Code: (Clickermann) [Select]
print(RND(1,50))
Если нужен генератор по книгам, тогда так:
Code: (Clickermann) [Select]
print(RNDFROM("Бытие", "Исход", "Левит"))
Подскажите пожалуйста, как учесть вложение книг, глав и стихов?

7
Использование / Немного подправил
« on: October 05, 2018, 10:03:05 AM »
Боже, чёрный котик - спасибо тебе.
Code: (clickermann) [Select]
#name "LogPass"

TFREADARR("LogPass.txt", $arr_t)
$r = RND(3,4) // случайное количество считываемых строк 3-4
$i2 = 0
FOR($i = ARRSIZE($arr_t)-1, ($i>-1)&($i2<$r), -1)
   INC($i2,1)
   $n = RND(0,$i)
   $log = STRCUT2 ($arr_t[$n], 1, STRPOS ($arr_t[$n], ":")-1)
   $pass = STRCUT2 ($arr_t[$n], STRPOS ($arr_t[$n], ":")+1, STRLEN ($arr_t[$n]))

   LCLICK(1070,355) // клик по полю логина (координаты свои)
   WAITMS (50)

   TOCLIP($log) // скопировать логин в буфер
   WAITMS (50)

   KEYDOWN (#CTRL) // вставить
   WAITMS (50)
   KEYPRESS(#V)
   WAITMS (50)
   KEYUP (#CTRL)
   WAITMS (50)

   KEYPRESS(#TAB)
   WAIT(2)

   TOCLIP($pass) // скопировать пароль в буфер
   WAITMS (50)

   KEYDOWN (#CTRL) // вставить
   WAITMS (50)
   KEYPRESS(#V)
   WAITMS (50)
   KEYUP (#CTRL)
   WAITMS (100)

   KEYPRESS(#ENTER) // войти
   WAIT (5)
   LCLICK(1240,120) // выйти
   WAIT (5)
   //   Каждый новый проход будет считываться новая строка с логином и паролем

   $arr_t[$n] = $arr_t[$i]
   $tmp = ARRPOP($arr_t)
END_CYC
UNDEFINE($arr_t)
HALT

8
Использование / Re: Ввод текста
« on: October 05, 2018, 08:56:04 AM »
Ладно пусть будет так:
Создаю папку "CMD"

1.cmd
Code: (cmd) [Select]
type LogPass.txt | shuffle.cmd > result.txt
2delstr.cmd
Code: (cmd) [Select]
@echo off
set "file=result.txt"
>.tmp more +10 "%file%"& >nul move .tmp "%file%"
exit/b
3.cmd
Code: (cmd) [Select]
del "D:\Portable\PortableApps\Clickermann v4.13 x64\LogPass.txt"
copy "result.txt" "D:\Portable\PortableApps\Clickermann v4.13 x64\LogPass.txt"
del *.tmp
del result.txt
shuffle.cmd
Code: (cmd) [Select]
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET TmpFile=tmp%RANDOM%%RANDOM%.tmp
TYPE NUL >%Tmpfile%
FOR /F "tokens=*" %%i IN ('MORE') DO SET Key=!RANDOM!!RANDOM!!RANDOM!000000000000& ECHO !Key:~0,15!%%i>> %TmpFile%
FOR /F "tokens=*" %%i IN ('TYPE %TmpFile% ^| SORT') DO SET Line=%%i&ECHO.!Line:~15!
::DEL %TmpFile%
ENDLOCAL
P.S.:
Как рандомно перемешать все строки в очень большом файле?
https://toster.ru/q/336263

Удаление первых 6-ти строк во всех текстовых файлах, находящихся в определённой папке
http://www.cyberforum.ru/cmd-bat/thread1596355.html

9
Использование / Случайные строки
« on: September 29, 2018, 09:32:32 AM »
Code: (clickermann) [Select]
// InstantCMS
#name "LogPass - InstantCMS"

//Создаешь рядом со скриптом файл "LogPass.txt" и в него записываешь строки по образцу

//Тест1@mail.ru:111111111
//Тест2@mail.ru:абвгд
//Тест3@mail.ru:тестТестТЕСТ

//Сам скрипт:

IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   HALT
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))

LCLICK(1070,355) // клик по полю логина (координаты свои)
WAITMS (50)
TOCLIP($log) // скопировать логин в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (50)

KEYPRESS(#TAB)
WAIT(2)

TOCLIP($pass) // скопировать пароль в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // войти
WAIT(5)
LCLICK(1240,120)  // выйти

// тут команды после входа
WAIT(5)

//Каждый новый проход будет считываться новая строка с логином и паролемПодскажите, как можно отобрать случайные строки, скажем запускаешь первый раз и вставляется: 1-я, 7-я и 12-я строка, в следующий раз: 4-я, 9-я, 10-я, 12-я и 14-я строка...?

Pages: [1]