Найти победителя и попасть на Олимп Богов за минимум попыток
Минимум попыток - одна. Это удалось сделать Дональду Трампу - излечился сходу от коронавируса (см. предыдущую публикацию).
Левая часть композиции строится автоматически с помощью макроса, в которой нумерологические свертки зада.тся через поля координат Точки, портрет можно вставить через импорт рисунка (фотографии перципиента). Макрос СПОК-invariant.vbs в папке Tasks - ресурсы преподавателям.
' Листинг макрокоманды:
VbsMsg "Выиграть. Задать в коорд. точки три числа-сверток и через Техт - ФИО"
n1 = LastNmb
CurrObjNmb = n1-1
Set M = P(Ngpoint.x,Ngpoint.y,Ngpoint.z)
VbsMsg "M.x = " & M.x & "M.y = " & M.y & "M.z = " & M.z
xx = M.x
yy = M.y
zz = M.z
' Конюхов 11 88 75 = 22
' Пушкин_Александр_Сергеевич 88 55 26 = 77
' 33 99 23 64 99 71 = 54 Серге;й_Алекса;ндрович_Есе;нин 21 09 1895
' Профессор_БВП 62 88 77 11 88 44 22 86 62 88 77 = рекпюрн = 1
' Федор_Конюхов 16 67 99 44 ' 33 33 16 67 99 = ююфяб = 44
'Щербинин Владимир Васильевич 44 74 33 = еею = 44
CurrObjNmb = n1
VBSMsg Text.txt
FIO = Text.txt
VBSMsg "фАМИЛИЯ ИГРОКА = " & FIO _
& vbCrLf & "СВЕРТКА 1 " & xx _
& vbCrLf & "СВЕРТКА 2 " & yy _
& vbCrLf & "СВЕРТКА 3 " & zz
summa=0
nvs=0
' Выбор из 7
For m = 1 To 7 Step 1
randomize
nsluh = int(rnd(1)*7+1)
if nsluh = 5 Then
Summa=100
nvs =1
if nsluh < 6 Then nn14 = m
nsluh2 =nsluh
End if
nsluh=0
Next
nns3= "Вы проиграли и остались на Знмле"
'VBSMsg nns3
' 41
if FIO <> "Вайно" and FIO <> "Конюхов" and FIO <> "Болотов" and FIO <> "Студент:" Then
if nvs = 0 or nvs => 5 Then
Text.sss p(-5,-15,0), FIO, "Arial", 550
Text.sss p(5,-15,0), nns3, "Arial", 550
End if
End if
VbsMsg "nsluh2 = " & nsluh2
if FIO = "Вайно" Then '
nsluh2 = 5
nn14 = 1
End if
if FIO = "Конюхов" Then '
nsluh2 = 5
nn14 = 1
End if
if FIO = "Болотов" Then '
nsluh2 = 5
nn14 = 1
End if
if FIO = "Граф Ще" Then '
nsluh2 = 5
nn14 = 1
End if
if nsluh2 = 5 and nn14 =1 Then
nns1 = "Вы выиграли 15000$ и полет с ФК на Луну с 1 попытки"
End if
if nsluh2 = 5 and nn14 =2 Then
nns1 = "Вы попали на Олимп Богов и выиграли 12000$ со 2 попытки"
End if
if nsluh2 = 5 and nn14 =3 Then
nns1 = "Вы попали на Олимп Богов и выиграли 9000$ с 3 попытки"
End if
if nsluh2 = 5 and nn14 =4 Then
nns1 = "Вы попали на Олимп Богов и выиграли 6000$ с 4 попытки"
End if
if nsluh2 = 5 and nn14 =5 Then
nns1 = "Вы попали на Олимп Богов и выиграли 3000$ с 5-й попытки"
End if
if nn14 = 6 Then
nns1 = "Вы на Олимпе Богов"
End if
if nn14 > 6 Then
nns1 = "Вы проиграли, но попали на Олимп богов"
End if
if nsluh2 = 5 Then
Text.sss p(-5,-16,0), FIO, "Arial", 550
Text.sss p(5,-16,0), nns1, "Arial", 550
'Text.sss p(-5,-18,0), nns4, "Arial", 550
Text.sss p(16,-18,0), nn14, "Arial", 700
End if
Summa=10
'Delete n1
Import "C:\Program Files\MSUN\Vector\StdMacro\CINTO\Бордюр 3 строки.dxf",0
Obj.Uniform = 0
Obj.Scale = 2
Obj.Uniform = 1
Obj.Translate P(10, 0, 0)
n2 = LastNmb
' RandFillColor n2, 186, 239, 252
'n1 = LastNmb
'CurrObjNmb = n1
'VBSMsg Text.txt
'Delete n1
' RandColor n2, 10, -1, -1
list = 1
sv1=xx
sv2=yy
sv3=zz
n51= LastNmb()
For n = 0 To 2 Step 1
if n=0 then n21=sv1
if n=1 then n21=sv2
if n=3 then n21=sv3
'if n=4 then n21=sv4
if n=0 then
n1=sv1
n2=n1
n3=n1
n4=n1
n5=n1
n6=n1
n21=11
end if
if n=1 then
n1=sv2
n2=n1
n3=n1
n4=n1
n5=n1
n6=n1
n21=12
end if
if n=2 then
n1=sv3
n2=n1
n3=n1
n4=n1
n5=n1
n6=n1
n21=13
end if
'if n=3 then
'n1=sv4
'n2=n1
'n3=n1
'n4=n1
'n5=n1
'n21=14
'end if
zz1=xx
if zz1 > 20 and zz1 < 30 Then zz1=xx-1
if zz1 > 30 and zz1 < 40 Then zz1=xx-2
if zz1 > 40 and zz1 < 50 Then zz1=xx-3
if zz1 > 50 and zz1 < 60 Then zz1=xx-4
if zz1 > 60 and zz1 < 70 Then zz1=xx-5
if zz1 > 70 and zz1 < 80 Then zz1=xx-6
if zz1 > 80 and zz1 < 90 Then zz1=xx-7
if zz1 > 90 and zz1 < 100 Then zz1=xx-8
if n21=11 Then
num = zz1
if summa < 100 Then folder_name="\\msun.int\files\Папка Tasks\Болотов В. П\СПОК\СПОК"
ext = "jpg"
ImportNum folder_name, num, ext
obj.scale=0.5
Obj.Translate P(-5.5, 5.0, 0)
end if
zz1=yy
if zz1 > 20 and zz1 < 30 Then zz1=yy-1
if zz1 > 30 and zz1 < 40 Then zz1=yy-2
if zz1 > 40 and zz1 < 50 Then zz1=yy-3
if zz1 > 50 and zz1 < 60 Then zz1=yy-4
if zz1 > 60 and zz1 < 70 Then zz1=yy-5
if zz1 > 70 and zz1 < 80 Then zz1=yy-6
if zz1 > 80 and zz1 < 90 Then zz1=yy-7
if zz1 > 90 and zz1 < 100 Then zz1=yy-8
if n21=12 Then
' folder_name="C:\A_2016\Кислюк"
if summa < 100 Then folder_name="\\msun.int\files\Папка Tasks\Болотов В. П\СПОК\СПОК"
num = zz1
ext = "jpg"
ImportNum folder_name, num, ext
obj.scale=0.5
Obj.Translate P(-5.5, -2.0, 0)
end if
zz1=zz
if zz1 > 20 and zz1 < 30 Then zz1=zz-1
if zz1 > 30 and zz1 < 40 Then zz1=zz-2
if zz1 > 40 and zz1 < 50 Then zz1=zz-3
if zz1 > 50 and zz1 < 60 Then zz1=zz-4
if zz1 > 60 and zz1 < 70 Then zz1=zz-5
if zz1 > 70 and zz1 < 80 Then zz1=zz-6
if zz1 > 80 and zz1 < 90 Then zz1=zz-7
if zz1 > 90 and zz1 < 100 Then zz1=zz-8
if n21=13 Then
pp = "Маски3"
if summa < 100 Then folder_name="\\msun.int\files\Папка Tasks\Болотов В. П\СПОК\СПОК"
num = zz1
ext = "jpg"
ImportNum folder_name, num, ext
obj.scale=0.5
Obj.Translate P(-5.5, -11.0, 0)
end if
if summa <= 150 Then
if n1=11 Then nn1 = " Ножницы (11)"
if n1=12 Then nn1 = " Бумага (12)"
if n1=13 Then nn1 = " Камень (13)"
if n1=14 Then nn1 = " Ящерица (14)"
if n1=15 Then nn1 = " Студент: (15)"
if n1=16 Then nn1 = " Ножницы (16)"
if n1=17 Then nn1 = " Бумага (17)"
if n1=18 Then nn1 = " Камень Дун (18)"
if n1=19 Then nn1 = " Ящерица (19)"
if n1=21 Then nn1 = " Спок (21)"
if n1=22 Then nn1 = " Ножницы (22)"
if n1=23 Then nn1 = " Бумага (23)"
if n1=24 Then nn1 = " Камень (24)"
if n1=25 Then nn1 = " Ящерица (25)"
if n1=26 Then nn1 = " Студент(26)"
if n1=27 Then nn1 = " Ножницы (27)"
if n1=28 Then nn1 = " Бумага (28)"
if n1=29 Then nn1 = " Камень (29)"
...
if n1=91 Then nn1 = " Ножницы (91)"
if n1=92 Then nn1 = " Бумага (92)"
if n1=93 Then nn1 = " Камень (93)"
if n1=94 Then nn1 = " Ножницы (94)"
if n1=95 Then nn1 = " Бумага (95)"
if n1=96 Then nn1 = " Камень(96)"
if n1=97 Then nn1 = " Ножницы (97)"
if n1=98 Then nn1 = " Бумага (98)"
if n1=99 Then nn1 = " Камень (99)"
end if
n31= LastNmb
Text.sss p(1,3,0), nn1, "Arial", 550
Text.sss p(1,2,0), nn2, "Arial", 550
Text.sss p(1,1,0), nn3, "Arial", 550
Text.sss p(1,0,0), nn4, "Arial", 550
Text.sss p(1,-1,0), nn5, "Arial", 550
n32= LastNmb()
if n21=11 Then
MoveToGroup n31+1, n32+1, "txt1"
Obj.Translate P(-0.5, 7.5, 0)
end if
if n21=12 Then
MoveToGroup n31+1, n32+1, "txt2"
Obj.Translate P(-0.5, 0.5, 0)
end if
if n21=13 Then
MoveToGroup n31+1, n32+1, "txt3"
Obj.Translate P(-0.5, -8.0, z)
end if
Next
if xx >=11 and xx <= 19 Then i1= xx-11
if yy >=11 and yy <= 19 Then i2= yy-11
if zz >=11 and zz <= 19 Then i3= zz-11
if xx >=21 and xx <= 29 Then i1= xx-11
if yy >=21 and yy <= 29 Then i2= yy-11
if zz >=11 and zz <= 29 Then i3= zz-11
if xx >=31 and xx <= 39 Then i1= xx-11
if yy >=31 and yy <= 39 Then i2= yy-11
if zz >=31 and zz <= 39 Then i3= zz-11
if xx >=41 and xx <= 49 Then i1= xx-11
if yy >=41 and yy <= 49 Then i2= yy-11
if zz >=41 and zz <= 49 Then i3= zz-11
if xx >=51 and xx <= 59 Then i1= xx-11
if yy >=51 and yy <= 59 Then i2= yy-11
if zz >=51 and zz <= 59 Then i3= zz-11
if xx >=61 and xx <= 69 Then i1= xx-11
if yy >=61 and yy <= 69 Then i2= yy-11
if zz >=61 and zz <= 69 Then i3= zz-11
if xx >=71 and xx <= 79 Then i1= xx-11
if yy >=71 and yy <= 79 Then i2= yy-11
if zz >=71 and zz <= 79 Then i3= zz-11
if xx >=81 and xx <= 89 Then i1= xx-11
if yy >=81 and yy <= 89 Then i2= yy-11
if zz >=81 and zz <= 89 Then i3= zz-11
if xx >=91 and xx <= 99 Then i1= xx-11
if yy >=91 and yy <= 99 Then i2= yy-11
if zz >=91 and zz <= 99 Then i3= zz-11
CPi = CP(i1)+CP(i2)+CP(i3) ' 952
nns21= "Камень бьет ножницы = " & CPi
VBSMsg nns21
'VBSMsg CPi
n52= LastNmb()
if list =1 Then MoveToGroup n51+1, n52+1, "стран 1"
if list =1 Then SaveImage "C:\Temp\Ножницы-бумага-камень.jpg"
n62= LastNmb()
MoveToGroup n61+1, n62+1, "Группа"