purebasic.info

PureBasic forum
Текущее время: Пн дек 10, 2018 2:06 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 45 ]  На страницу Пред.  1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 7:35 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пн ноя 27, 2006 2:43 pm
Сообщений: 933
Откуда: Санкт-Петербург
Благодарил (а): 1 раз.
Поблагодарили: 12 раз.
Пункты репутации: 15
у меня видеоряд со звуком совпадает

intro пока всего 15кб можно еще продолжить :roll:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 7:54 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Простите, да в начале действительно сцена заканчивается реньше чем музка, это можно исправить, да и вторую сцену тоже надо координально переделать, а кому интересно могу скинуть вообще все ресурсы, картинка, музка, два кода, один собсно сцена, второе редактор....

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 8:34 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
А вот и новый INTRO, но эти если вы непротив я буду называть INPIS

http://pbasic.spb.ru/files/up/INPIS.exe[/url]

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 8:54 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пн ноя 27, 2006 2:43 pm
Сообщений: 933
Откуда: Санкт-Петербург
Благодарил (а): 1 раз.
Поблагодарили: 12 раз.
Пункты репутации: 15
да на код посмотреть было бы интересно


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 8:57 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
только не пугайтесь на корявость кода....

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
InitSprite()
InitSprite3D()
InitKeyboard()
InitMovie()
 
OpenScreen(1024,768,16,"Dolina_Bukv")
 
DataSection
button:
IncludeBinary "button.bmp"
EndDataSection
 
DataSection
s1s:
IncludeBinary "01.mid"
s1t:
EndDataSection
 
DataSection
s2s:
IncludeBinary "02.mid"
s2t:
EndDataSection
 
DataSection
p1s:
IncludeBinary "present.txt"
p1t:
EndDataSection
 
CreateFile(1,"1.mid")
CreateFile(2,"2.mid")
CreateFile(3,"3.txt")
size1=?s1t-?s1s
size2=?s2t-?s2s
size3=?p1t-?p1s
b1=AllocateMemory(size1)
b2=AllocateMemory(size2)
b3=AllocateMemory(size3)
b1=?s1s
b2=?s2s
b3=?p1s
WriteData(1,b1,size1)
WriteData(2,b2,size2)
WriteData(3,b3,size3)
CloseFile(1)
CloseFile(2)
CloseFile(3)
 
LoadMovie(1,"1.mid")
LoadMovie(2,"2.mid")
CatchSprite(0,?button,#PB_Sprite_Texture)
CreateSprite3D(0,0)
 
Structure letter
x.w
y.w
sx.w
sy.w
image.w
EndStructure
 
Global NewList letter.letter()
 
Procedure addbutton(sprite,x,y,sx,sy)
AddElement(letter())
letter()\x=x
letter()\y=y
letter()\sx=sx
letter()\sy=sy
letter()\image=sprite
EndProcedure
 
so1=1
so2=0
OpenFile(3,"3.txt")
Repeat
FlipBuffers()
ClearScreen(0)
ExamineKeyboard()
While present=0
FlipBuffers()
ClearScreen(0)
ExamineKeyboard()
 
If so1=1
PlayMovie(1,ScreenID())
so1=0
EndIf
 
StartDrawing(ScreenOutput())
DrawText(0,0,Str(count))
StopDrawing()
 
count+1
If count>1000
If bb>0
DeleteElement(letter())
bb-1
EndIf
EndIf
 
 
 
While Eof(3)=0
sx=Val(ReadString(3))
sy=Val(ReadString(3))
addbutton(0,Random(1024),Random(768),sx,sy)
bb+1
Wend
 
If bb=0
present=1
endof=1
count=0
StopMovie(1)
 
EndIf
 
ResetList(letter())
While NextElement(letter())
DisplayTransparentSprite(letter()\image,letter()\x,letter()\y)
If letter()\x<letter()\sx
letter()\x+1
EndIf
If letter()\x>letter()\sx
letter()\x-1
EndIf
If letter()\y<letter()\sy
letter()\y+1
EndIf
If letter()\y>letter()\sy
letter()\y-1
EndIf
Wend
Wend
PlayMovie(2,ScreenID())
While endof=1
FlipBuffers()
ClearScreen(0)
ExamineKeyboard()
 
While a<100
addbutton(0,Random(1024),Random(768),Random(1024),Random(768))
a+1
Wend
 
count+1
 
 
ResetList(letter())
While NextElement(letter())
DisplayTransparentSprite(letter()\image,letter()\x,letter()\y)
If letter()\x<letter()\sx
letter()\x+1
EndIf
If letter()\x>letter()\sx
letter()\x-1
EndIf
If letter()\y<letter()\sy
letter()\y+1
EndIf
If letter()\y>letter()\sy
letter()\y-1
EndIf
 
If count>1000
letter()\x=letter()\x+Cos(count)*8
letter()\y=letter()\y-Sin(count)*8
EndIf
 
If count>2000
letter()\x=letter()\x+Cos(count)*16
letter()\y=letter()\y-Sin(count)*16
EndIf
 
If count>3000
letter()\x=letter()\x+Cos(count)*32
letter()\y=letter()\y-Sin(count)*32
EndIf
 
If count>3500
DeleteFile("1.mid")
DeleteFile("2.mid")
CloseFile(3)
DeleteFile("3.txt")
End
EndIf
 
Wend
 
 
Wend
Until KeyboardReleased(#PB_Key_Escape)
End


_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 9:02 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пн ноя 27, 2006 2:43 pm
Сообщений: 933
Откуда: Санкт-Петербург
Благодарил (а): 1 раз.
Поблагодарили: 12 раз.
Пункты репутации: 15
а где ты берешь музыку?
(я еще арканоид делаю и тоже хотелось бы добавить звуки)

за код спасибо, щас поэкспериментирую...

в последней сцене музыки чуть не хватило и если еще разные цвета использовать :D :D


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 9:12 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Если тебя интересует источник, то это всё писал не я, вообще их очень много у тебя на компьютере.

Сделай поиск файлов с таким фильтром *.mid
ты их очень много найдёшь

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 9:15 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пн ноя 27, 2006 2:43 pm
Сообщений: 933
Откуда: Санкт-Петербург
Благодарил (а): 1 раз.
Поблагодарили: 12 раз.
Пункты репутации: 15
можешь выложить все вместе в архиве?
bmp mid txt


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 9:36 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
могу
это где буквы находят свои места...
http://pbasic.spb.ru/files/up/Dolina.rar
а это где компьютер сам рисует
http://pbasic.spb.ru/files/up/Kilosoft.rar

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб ноя 10, 2007 11:26 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Теперь немного в цвете....

http://pbasic.spb.ru/files/up/INPIS.rar

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс ноя 11, 2007 6:16 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6412
Благодарил (а): 21 раз.
Поблагодарили: 200 раз.
Пункты репутации: 52
22vlad писал(а):
а где ты берешь музыку?
(я еще арканоид делаю и тоже хотелось бы добавить звуки)



Есть сайт midi.ru - там миллионы файлов с музыкой!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс ноя 11, 2007 1:59 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
А где взять сентизатор под Midas11.dll чтоб можно было в треки сохранять...

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн ноя 12, 2007 1:25 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Люди, почему кроме меня и Квитали никто больше не далает INTRO?

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн ноя 12, 2007 11:09 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Сб авг 18, 2007 6:26 pm
Сообщений: 605
Откуда: Северодвинск/Питер
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Ой. Извините, народ, я тут был занят(ммм, конец модуля, зачёты...). Если могу помочь, буду рад. Пока своё интро не пишу, но могу помочь с разрабатывающимися... :) Честно... :oops:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср ноя 14, 2007 4:24 pm 
Не в сети
док

Зарегистрирован: Вт сен 18, 2007 9:16 am
Сообщений: 162
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Артём писал(а):
А где взять сентизатор под Midas11.dll чтоб можно было в треки сохранять...


http://websound.ru/soft-editors_r.htm
ищи раздел Трекеры (редакторы модулей .XM, .IT, .S3M, .MOD и т.д.)

_________________
Люди!! Уважайте друг друга!


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 45 ]  На страницу Пред.  1, 2, 3  След.

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB