Код чего?
Одного редактора маловато будет, ла и игра не только из кода состоит
Другие языки программирования и технологии
Можно на Notepad++ написать игру? Если можно то киньте, пожалуйста, код.
Он плагины поддерживает, туда вообще что угодно можно всобачить.
Что такое "кинуть палку" - знаю, а вот "кинуть код" - это какое-то новое извращение...
Что такое "кинуть палку" - знаю, а вот "кинуть код" - это какое-то новое извращение...
да пожалуйста, бери любую опенсорсную игру и копайся себе в коде
правда, в notepad-е ли её писали, ты вряд ли узнаешь
правда, в notepad-е ли её писали, ты вряд ли узнаешь
Тут надо языки программирования учить, затем на этих языках писать игру, затем скачивать компиляторы, прикручивать их к notepad++ и компилить код, который вы написали в собственно приложение.
Как ты себе это представляешь? В нем можно только если код для игры написать
Написать-то можно, только код не скомпилируешь и не интерпретируешь!
гениально, но почему-же никто до такого рньше недодумался кроме остапа бендер
Set y = CreateObject("Scripting.FileSystemObject")
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox "Я загадал число от 1 до 100, попробуй отгадать",64,"Угадайка"
Do
a = a + 1
c = InputBox("Угадай число." & vbCrLf & vbCrLf & "Попытка: " & a & vbCrLf & vbCrLf & "Чтобы посмотреть результаты введите число." & vbCrLf & vbCrLf & "Для выхода оставьте поле пустым." & vbCrLf & vbCrLf,"Угадайка")
If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:\Windows\Result.dll",3,True : Exit Do
If c <> "" Then
If IsNumeric(c) = True Then
If CInt(c) < Number Then MsgBox "Нет, это не " & c & ". Я загадал число больше",64,"Угадайка"
If CInt(c) > Number Then MsgBox "Нет, это не " & c & ". Я загадал число меньше",64,"Угадайка"
If CInt(c) = Number Then
Set y = CreateObject("Scripting.FileSystemObject")
MsgBox "Количество попыток: " & a, 64,"Угадайка"
If MsgBox ("Правильно, это было число " & c & ". Начать заново?",36+0,"Угадайка") = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox "Это не число!",16,"Угадайка"
a = a - 1
End If
Else
a = a - 1
l = MsgBox ("Ты ничего не ввел. Выйти?",64+4,"Угадайка")
If l = 6 Then WScript.Quit
End If
Loop
loop
Файл - Сохранить как Угадайка. vbs и запускаем
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox "Я загадал число от 1 до 100, попробуй отгадать",64,"Угадайка"
Do
a = a + 1
c = InputBox("Угадай число." & vbCrLf & vbCrLf & "Попытка: " & a & vbCrLf & vbCrLf & "Чтобы посмотреть результаты введите число." & vbCrLf & vbCrLf & "Для выхода оставьте поле пустым." & vbCrLf & vbCrLf,"Угадайка")
If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:\Windows\Result.dll",3,True : Exit Do
If c <> "" Then
If IsNumeric(c) = True Then
If CInt(c) < Number Then MsgBox "Нет, это не " & c & ". Я загадал число больше",64,"Угадайка"
If CInt(c) > Number Then MsgBox "Нет, это не " & c & ". Я загадал число меньше",64,"Угадайка"
If CInt(c) = Number Then
Set y = CreateObject("Scripting.FileSystemObject")
MsgBox "Количество попыток: " & a, 64,"Угадайка"
If MsgBox ("Правильно, это было число " & c & ". Начать заново?",36+0,"Угадайка") = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox "Это не число!",16,"Угадайка"
a = a - 1
End If
Else
a = a - 1
l = MsgBox ("Ты ничего не ввел. Выйти?",64+4,"Угадайка")
If l = 6 Then WScript.Quit
End If
Loop
loop
Файл - Сохранить как Угадайка. vbs и запускаем
Похожие вопросы
- Господа! Напишите (если такое конечно возможность) пример двоичного кода, который невозможно сжать (более 10 символов)
- Напишите пожалуйста код простейшей программы вычисления значения 2 в степени N.
- Народ, напишите пожалуйста код, задание ниже. Думаю, для тех кто разбирается это на раз-два. Сам не понимаю этого :(
- ПОДСКАЖИТЕ ПОЖАЛУЙСТА код разблокировки баннера билайн
- Напишите пожалуйста код на C#
- c++ напишите решение задачи, пожалуйста (код)
- Игра в турбо паскале Киньте программу на любую игру в турбо паскале
- Как написать игру?
- Как написать игру на есемблере
- Выручайте. Составьте пожалуйста код на С++. Задание по практике.