Я получил ответ на похожий вопрос, который я задал: как я могу сделать кости за R? Ответом была программа для R в дополнение к программе для «интимных кубиков». Я не уверен, в каком фильме заинтересованы Алиса и Боб, но я предлагаю использовать R в дополнение к удаленному рабочему столу, чтобы каждый игрок мог видеть, что другой не обманывает.
Я не знаю, как писать коды, поэтому я скопировал / вставил полученный ответ:
Если вы хотите делать кости в статистической программе R. Начните с загрузки здесь: http://cran.r -project.org / .
Чтобы сделать нормальные кости, используйте следующий скрипт:
# Функция броска костей
RollDie = функция (n) выборка (1: 6, n, замена = T)
#use Die
RollDie (п)
#If you'd like to spice things up a bit and make a dice for safe and consensual adult
#activities then use the following series of scripts:
#Creating the function, use this script:
#Intimate dice function
Actions= c("kiss","lick","suck","bite",
"spank","blow", "stroke",
"tickle","pinch",
"torment")
Body= c("lips","arms","chest","thighs",
"neck","ear", "wrist",
"navel","nipples",
"the good stuff")
Action= function(n) sample(Actions[1:10],n,replace=T)
Area= function(n) sample(Body[1:10],n,replace=T)
Action(1)
Area(1)
#If you'd like the dice saved to the R global environment so you can be ready for when
the mood is right use the following script:
#Save the following script as yourfile.R in something like this location "C:\\Documents
and Settings\\yourfile.R"
#Intimate dice
Action(1)
Area(1)
#yes
#Now create the following function to save to R's global environment with the following:
#Run all
source("C:\\Documents and Settings\\yourfile.R",echo=T)
hi<-function(){source("C:\\Documents and Settings\\yourfile.R",echo=T)}
#ok
#close and save your R workspace
#upon opening run the following function:
hi()
#If this has been done properly then you should see something along the lines of this:
#Intimate dice
Action(1)
[1] "bite"
Area(1)
[1] "ear"
#yes
#Here's to one more reason for celebrating math & science