Всем привет!
Уверен, многие знакомы с VBS, но не многие знают, что на этом языке можно не только управляющие скрипты писать, но и полноценные 2D игры.
Язык, созданный компанией Microsoft на основе языка Visual Basic( или если вам ближе QB, QBasic ), достаточно прост в изучении, не требует специальных инструментов и всегда находится под рукой.
Т.е. любой файл, который имеет расширение ".vbs" система попытается интерпретировать в машинные команды и выполнить.
В принципе, для написания простейшей программы понадобится только Блокнот (notepad.exe). Уверен, каждый сможет запустить его на своём компьютере!
Если всё же не приходилось этого делать, то нажмите сочетание клавиш Win + R , наберите в строке notepad.exe , нажмите кнопку "OK" вы увидите окно Блокнота.
Напечатайте в окне редактора следующий текст:


Сохраните в любое место этот файл с именем msg.vbs. Запустите на выполнение и вы увидите на экране окошко - стандартное сообщение Widows

Поздравляю! Вы написали программу на VBS. Если это ваша первая программа, и вы намерены написать свою первую настоящую игру, то вам придётся изучить кое-какие основы программирования на VBS, благо, информации о языке предостаточно. http://scriptcoding.ru/category/vbscript-znakomstvo/page/2/
Достаточно будет изучить основные конструкции : переменные, циклы, условные операторы. Или вникать по ходу дела.
И так, начнём. Что обычно делает любая игра? Как она выглядит? На заре компьютеризации, когда компьютеры были большие, игры были текстовые. Игра выглядела как набор повествований и вопросов , от ответов на которые зависел дальнейший ход событий и собственно исход игры. В то же время возникли псевдографические игры, это когда вы управляете какой либо буквой, и она стреляет в другую вражескую букву знаками препинания. По легенде буквы могли быть космическими кораблями, или воинами. Воображение рисовало красочные картины боя.
Теперь плохие новости. У VBS совершенно нет даже такой возможности. Он не умеет рисовать даже буквы в произвольном месте экрана. Всё, на что он способен, это вывести сообщение в окошке типа MsgBox принять строку в окошке InputBox. Текстовую игру написать мы ещё сможем, например "Угадай число":


  То стрелять буквами в буквы точно нет.
  А тем более, мы собрались писать достаточно современные игры, с изображениями, музыкой и анимацией! Как быть? Обычно, даже те языки программирования, на которых серьёзные дядьки пишут настоящие программы и то не умеют ни чего такого. Для того, что бы они обрели такую возможность к ним подключают специальные библиотеки. Под Microsoft Windows для облегчения программирования игр существует DirectX. Это огромный набор API который содержит готовые классы, процедуры, функции, структуры и константы, существенно упрощающие процесс создания различного ПО, как 2D, так и 3D.
  Нам с вами весь этот набор не нужен. Нам нужны основные операции. Тем более только 2D - загрузка изображений, вывод их на экран, вывод на экран текста, рисование примитивов- линий, кругов, прямоугольников, воспроизведение звуков и музыки, управление всем этим хозяйством при помощи мышки и клавиатуры. В общем подобрать небольшую библиотеку, которая всё это умеет.
  Вторая плохая новость. VBS не умеет работать с библиотеками. Штатными средствами ну ни как не подключить внешнюю DLL. И тут опять нашлись добрые люди, которые создали библиотеку dynwrap.dll - небольшой ActiveX, который может быть использован в любых средах, которые в состоянии выступить в роли OLE-клиента в административных скриптах Windows (.vbs и .js).
  Описание и библиотеку можно посмотреть тут http://script-coding.com/dynwrap.html
  Библиотека обеспечивает подобие инструкции "Declare" в VBScript. Это позволяет вызывать произвольные функции из DLL-библиотек (например, win32 функции API).
  Бинго! Мы подобрались к сути того, как это возможно на VBS свободно писать 2D игры, как на любом другом языке программирования!
  Мы скачиваем dynwrap.dll (она есть уже в папке с игрой, её не обязательно скачивать отдельно) Регистрируем в системе библиотеку с помощью regsvr32.exe.
  Командная строка регистрации библиотеки (файл регистрации BAT есть в папке с игрой ) может выглядеть, например, так:
   regsvr32.exe "C:\WINDOWS\system32\dynwrap.dll"
  Далее подключаем к коду на VBS библиотеку для 2D игр (она есть уже в папке с игрой, её не надо скачивать отдельно), её регистрировать не надо, надо просто положить в папку с будущей игрой, подбираем нужные изображения, звуки, музыку, и пишем управляющий код на VBS. Синтаксис стандартный BASIC микрософт.

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. ' Pong VBS
2. Set Wrap = CreateObject("DynamicWrapper")
3.  
4. Rem ********** Объявления функций библиотеки 2d_game*************
5. Wrap.Register "g2d.dll", "RunScreen", "i=ll", "f=s", "r=l"                                     ' открываем экран с разрешением
6. Wrap.Register "g2d.dll", "PrintText", "i=llsll", "f=s", "r=l"                                     ' (x,y,text$,color=0,Size=18)
7. Wrap.Register "g2d.dll", "AnimateSprite", "i=lllllllll", "f=s", "r=l"                          ' № спрайта, координаты x,y, размер одного кадра W,H, кол-во столбцов, первый кадр, последний кадр, задержка  
8. Wrap.Register "g2d.dll", "ExamineInput", "i=l","f=s", "r=l"                                  ' управляет клавой, мышкой, очисткой экрана цветом Колор
9. Wrap.Register "g2d.dll", "InputKey", "i=l", "f=s", "r=l"                                         ' Ждет нажатия указанной клавиши, возвращает 1
10. Wrap.Register "g2d.dll", "ImageLoad", "i=lsl", "f=s", "r=l"                                  ' Грузит файл BMP,PNG,JPG и делает из него спрайт с указанной прозрачностью
11. Wrap.Register "g2d.dll", "PrintImage", "i=llllll", "f=s", "r=l"                                  ' Выводит спрайт на экран
12. Wrap.Register "g2d.dll", "RotateSprite", "i=llllllll", "f=s", "r=l"                             ' Выводит спрайт на экран с поворотом на угол Im,x,y,W=-1,H=-1,Angle=0, Mode=1, Transparensy=255
13. Wrap.Register "g2d.dll", "GrabImg", "i=lllll", "f=s", "r=l"                                      ' Создает новый спрайт с экрана GrabImg(img.l, x.l, y.l, Width.l, Height.l)
14. Wrap.Register "g2d.dll", "XMouse", "f=s", "r=l"                                                  '  возвращает  х коордтнату мыши
15. Wrap.Register "g2d.dll", "YMouse", "f=s", "r=l"                                                  '  возвращает  у коордтнату мыши
16. Wrap.Register "g2d.dll", "MouseKl", "i=l", "f=s", "r=l"                                        ' Ждет клика указанной кнопки мыши, возвр 1
17. Wrap.Register "g2d.dll", "CollisionImage", "i=llllll", "f=s", "r=l"                         ' возвращает 1 если есть коллизии в спрайтах (Рисунок1,x1,y1,Рисунок2,x2,y2)
18. Wrap.Register "g2d.dll", "PrintBox", "i=lllll", "f=s", "r=l"                                    ' рисует прямоугольник x.l,y.l,Width.l, Height.l,Color.l=0
19. Wrap.Register "g2d.dll", "PrintLine", "i=lllll", "f=s", "r=l"                                    ' рисует линию x.l,y.l,x2.l, y2.l,Color.l=0
20. Wrap.Register "g2d.dll", "PrintPoint", "i=llll", "f=s", "r=l"                                    ' рисует точку  x.l,y.l,Size.l,Color.l=0
21. Wrap.Register "g2d.dll", "StopScreen","f=s", "r=l"                                            ' Закрытие экрана
22. '**************** Конец функций 2d_game*************************
23.  
24. ' Регистрируем API функцию Beep
25. Wrap.Register "KERNEL32.DLL", "Beep", "i=ll", "f=s", "r=l"
26. ' Регистрируем API функцию PlaySound
27. Wrap.Register "winmm.dll", "PlaySoundA", "i=sll", "f=s", "r=l"
28. ' Регистрируем API функцию Sleep
29. Wrap.Register "kernel32", "Sleep","i=l"
30. '  GetTickCount извлекает число миллисекунд, которые истекли с тех пор как система была запущена.
31. Wrap.Register "KERNEL32.DLL", "GetTickCount", "r=l"
32.  
33. ' Параметры экрана
34. ScrW = 800
35. ScrH = 600
36.  
37. Wrap.RunScreen ScrW, ScrH
38.  
39. Start = Wrap.GetTickCount()
40. ' загрузка всех изображений
41. Wrap.ImageLoad 0, "plato.jpg", RGB(255, 255, 255) ' Фоновое изображение
42. Wrap.ImageLoad 1, "tens2.png", 0'RGB(255, 255, 255) ' шар
43. Wrap.ImageLoad 2, "bitaCpu.bmp", RGB(255, 255, 255) ' бита компа
44. Wrap.ImageLoad 3, "bitaGmr.bmp", RGB(255, 255, 255) ' бита игрока
45.  
46. ' папка нашего скрипта
47. strSFN = WScript.ScriptFullName
48. strSFN = Left(strSFN,InStrRev(strSFN,"\"))
49.  
50.  
51. 'заставка перед игрой
52. Do Until Ext = 1 ' Пока не нажата любая клавиша -
53.  Ext = Wrap.InputKey(-1)
54.  resi = Wrap.ExamineInput(0)
55.  Wrap.PrintText ScrW/4, ScrH/2, "####### ИГРА Пинг-Понг #######", RGB(0, 255, 0), 15
56.  Wrap.PrintText 5, ScrH - 20, "Для продолжения нажмите любую клавишу", RGB(255,0 , 0), 8
57.  
58.  Stp = Wrap.GetTickCount()
59.  itg = Stp - Start
60.  if itg < 1000 then
61.     f = f+1
62.  else
63.     fps = f
64.     f = 0
65.     Start = Wrap.GetTickCount()
66.  end if
67.  
68.  Wrap.PrintText 5, 5, "FPS = " & fps, RGB(255,0 , 0), 8
69.  Loop
70.  
71. Wrap.PlaySoundA strSFN & "start.wav", 0, &H20000 or &H1
72.  
73.  
74. Ext = 0
75. Wrap.Sleep 1000 ' Задержка на 1 секунду
76. GameGo = 0 ' признак начала игры
77. Cpu = 0
78. Gmr = 0
79. sharX = ScrW/2-15 ' половина размера спрайта
80. sharY = ScrH/2-15
81. bitaGmrX = ScrW - 11
82. bitaGmrY = ScrH/2
83. bitaCpuX = 1
84. bitaCpuY = ScrH/2
85. SpeedGamer = 3
86. SpeedCpu = 3
87. SpeedSharX = 4
88. SpeedSharY = 4
89. ' Главный цикл игры
90. Do Until Ext = 1 ' Пока не нажата esc
91.  
92. Ext = Wrap.InputKey(1) ' ожидание клавиши ESC
93. resi = Wrap.ExamineInput(0)' Опрос клавиатуры и мыши
94. ' вывод на экран игрового поля
95. Wrap.PrintImage 0, 0, 0, ScrW, ScrH, 255
96. Wrap.PrintText 10, 10, "## Компьютер = " & Cpu & " ##", RGB(0, 255, 0), 15
97. Wrap.PrintText ScrW - 200, 10, "## Игрок = " & Gmr & " ##", RGB(0, 0, 255), 15
98.  
99. 'Wrap.PrintImage 1, sharX,sharY , -1, -1, 255 ' шар на экран
100. Wrap.AnimateSprite 1,sharX,sharY, 30,30,4,1,16,8   ' № спрайта, координаты x,y, размер одного кадра W,H, кол-во столбцов, первый кадр, последний кадр, задержка  
101. Wrap.PrintImage 2, bitaCpuX,bitaCpuY , -1, -1, 255 ' бита компа на экран
102. Wrap.PrintImage 3, bitaGmrX,bitaGmrY , -1, -1, 255 ' бита геймера на экран
103. if Wrap.InputKey(200) = 1 Then' нажата коавиша Вверх
104.  GameGo = 1 ' Начало игры после движения игока ввверх
105.  if bitaGmrY > 1 Then
106.      bitaGmrY = bitaGmrY - SpeedGamer
107.   end if
108.  end if
109. if Wrap.InputKey(208) = 1 Then' нажата коавиша Вниз
110.  if bitaGmrY < ScrH - 150 Then
111.      bitaGmrY = bitaGmrY + SpeedGamer
112.  end if
113. end if
114. If GameGo = 1 Then
115.     sharX = sharX + SpeedSharX
116.     sharY = sharY + SpeedSharY
117.     ' Одно очко геймеру
118.     If sharX <= 1 Then
119.     SpeedSharX = SpeedSharX * -1
120.     Wrap.PlaySoundA strSFN & "over.wav", 0, &H20000 or &H1
121.     Gmr = Gmr + 1
122.     end If
123.     ' Одно очко компу
124.     If sharX >= ScrW-30 Then ' минус размер спрайта
125.     SpeedSharX = SpeedSharX * -1
126.     Wrap.PlaySoundA strSFN & "over.wav", 0, &H20000 or &H1
127.     Cpu = Cpu + 1
128.     End If
129.  
130.     If sharY <= 1 Then  SpeedSharY = SpeedSharY * -1: Wrap.PlaySoundA strSFN & "blip1.wav", 0, &H20000 or &H1
131.     If sharY >= ScrH-30 Then  SpeedSharY = SpeedSharY * -1: Wrap.PlaySoundA strSFN & "blip1.wav", 0, &H20000 or &H1
132.     ' Комп следит за шаром
133.     If sharY > bitaCpuY Then bitaCpuY = bitaCpuY + SpeedCpu
134.     If sharY < bitaCpuY Then bitaCpuY = bitaCpuY - SpeedCpu
135.  
136.  
137.  
138.     If Wrap.CollisionImage(1, sharX, sharY, 3,bitaGmrX, bitaGmrY) Then ' встреча с битой игрока
139.         Wrap.PlaySoundA strSFN & "blip2.wav", 0, &H20000 or &H1
140.         if Wrap.InputKey(208) = 1 Then
141.            SpeedSharX = SpeedSharX * -1
142.            SpeedSharY = SpeedSharY * -1
143.         else
144.            SpeedSharX = SpeedSharX * -1
145.         end if
146.  
147.     end if
148.  
149.     If Wrap.CollisionImage(1, sharX, sharY, 2,bitaCpuX, bitaCpuY) Then ' встреча с битой компа
150.         Wrap.PlaySoundA strSFN & "blip2.wav", 0, &H20000 or &H1
151.         SpeedSharX = SpeedSharX * -1
152.     end if
153.  
154. End If
155. ' Считаем FPS
156.  Stp = Wrap.GetTickCount()
157.  itg = Stp - Start
158.  if itg < 1000 then
159.     f = f+1
160.  else
161.     fps = f
162.     f = 0
163.     Start = Wrap.GetTickCount()
164.  end if
165.  
166.  Wrap.PrintText 405, 5, "FPS = " & fps, RGB(255,0 , 0), 8
167.  
168.  
169.  Loop
170.  
171.  st= Wrap.StopScreen()' закрываем экран

  Список функций игровой библиотеки указаны в комментариях при декларировании этой библиотеки.
Скачивайте архив, распаковывайте в папку, к которой имеете доступ (касается систем, где не вы хозяин, а она решает, что и где вам разрешить), регистрируйте dynwrap.dll запустив regdynwrap.bat (возможно от админа!) и после чего запускайте сам файл Pong.vbs.
Если тема понравится, то опубликую ещё несколько игр, типа космической стрелялки, автогонки, воздушный бой и т.п.

Господи сын..
Но прикольно однозначно. Тупа лике

Прикольно. Прикольнее только в экселе делать игры

Ну ты попробуй сделать кое-что 3д проект на ексел

MasterOS, уже написал - https://habr.com/ru/post/348704/

Витаминыч, Ты чёртого геный

Pro_grammer, Прикольно!