Понедельник, 08 Марта 2021, 13:18

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Записи участника » voyage [2]
Результаты поиска
voyageДата: Пятница, 23 Октября 2020, 07:07 | Сообщение # 1 | Тема: Small Basic
уже был
Сейчас нет на сайте
Попробуйте программу "Ковер"
Прикольно рисует ковры.
Если есть у кого желание видоизменить программу, выкладываем решения здесь. ( с разрешения администратора).

GraphicsWindow.Width = 1820
GraphicsWindow.Height = 980
GraphicsWindow.PenColor="Gray"
GraphicsWindow.DrawRectangle(1,1,1818,978)
GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillRectangle(3,3,1815,975)
x=3
y=3
r=110
b=150
g=100
For i=1 To 100000000
c=Math.GetRandomNumber(100000)
If c<2 Then
r=Math.GetRandomNumber(255)
g=Math.GetRandomNumber(255)
b=Math.GetRandomNumber(255)
EndIf
Color=GraphicsWindow.GetColorFromRGB(r,g,b)
a=Math.GetRandomNumber(200)
a1=Math.GetRandomNumber(200)
If a<100 Then
a=-1
else
a=1
EndIf
If a1<100 Then
a1=-1
Else
a1=1
EndIf
x=x+a
y=y+a1
If x<3 Then
x=x+2
EndIf

If y<3 Then
y=y+2
EndIf
If x>1815 Then
x=x-2
EndIf
If y>975 Then
y=y-2
EndIf
x1= 1813 -x
y1= 983-y
x11=1813-y
y11=983-x
x2= 1813 -x
y2=y
x22=y
y22=983-x
x3=x
y3=983-y
x33=1813-y
y33=x
x4=912+x
y4=490+y
x5=912-x
y5=490-y
x6=912+x
y6=490-y
x7=912-x
y7=490+y

GraphicsWindow.SetPixel(x,y,color)
GraphicsWindow.SetPixel(y,x,color)
GraphicsWindow.SetPixel(x1,y1,color)
GraphicsWindow.SetPixel(x11,y11,color)
GraphicsWindow.SetPixel(x2,y2,color)
GraphicsWindow.SetPixel(x22,y22,color)
GraphicsWindow.SetPixel(x3,y3,color)
GraphicsWindow.SetPixel(x33,y33,color)
GraphicsWindow.SetPixel(x4,y4,color)
GraphicsWindow.SetPixel(x5,y5,color)
GraphicsWindow.SetPixel(x6,y6,color)
GraphicsWindow.SetPixel(x7,y7,color)
EndFor



Сообщение отредактировал voyage - Пятница, 23 Октября 2020, 16:36
voyageДата: Суббота, 13 Сентября 2014, 20:35 | Сообщение # 2 | Тема: Уроки по созданию браузерной игры
уже был
Сейчас нет на сайте
1 шаг и сразу косяк. Вставил вfo SQL запрос в XAMPP, запустил и вот результат:

Ошибка
SQL запрос:

CREATE DATABASE testgame DEFAULT CHARACTER SET cp1251 COLLATE cp1251_general_ci;
Ответ MySQL: Документация

#1007 - Can't create database 'testgame'; database exists

Подскажите в чем беда?


Сообщение отредактировал voyage - Суббота, 13 Сентября 2014, 20:38
Форум игроделов » Записи участника » voyage [2]
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2021
free games download
Рейтинг