IPB
ЛогинПароль:

> Прочтите, прежде чем создать тему.

В этом форуме Вы можете предложить изменения на форуме или обсудить действия администрации.

> Глюки нового форума
Altair
сообщение 2.02.2005 19:29
Сообщение #1


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Кажется совсем недавно обсуждали глюки нового форума (всего год назад) а уже снова новый smile.gif

итак, я нашел следующие:
1. некоторые жалуются что не доконца грузиться.
2. у меня постоянно "невозможно отобразить страницу" при ответе в тему. (любую)


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
Altair
сообщение 2.02.2005 22:13
Сообщение #2


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Ну у нас есть такой тег...
вот:
Исходный код

{$APPTYPE GUI}
uses Windows,BassFPC,
Graphix,GxCRT,Gx2D,
GxIMG,gximeff,gxtext,gxdrw;
type

TBass = object
Stream :Array[1..80] of HStream;
Procedure InitBass;
Procedure load_music(name:string;num:integer);
Procedure play_music(num:integer);
end;
// TBass.
Procedure TBass.InitBass;
Begin
if BASS_GetVersion() <> MAKELONG(2,0) then begin Halt; end;
if not BASS_Init(1, 44100, 0, 0, nil) then begin end;
End;

Procedure TBass.load_music(name:string;num:integer);
var
p : PChar;
Begin
p := PChar(name);
stream[num] := BASS_StreamCreateFile(FALSE,p,0,0,0);
if (stream[num] = 0) then begin end;
End;

Procedure TBass.play_music(num:integer);
Begin
if not BASS_StreamPlay(stream[num], FALSE, 0) then begin end;
End;
//var
var
sound:TBass;
image1,image2,p:Pointer; { gamer }
wimage1,wimage2,wp:Pointer; { 2 player }
bum,wins,wars,gras:pointer; {system}
c:byte;
w,ww:longint;
x,y,wx,wy,tx,ty:longint;
rk:boolean;
CHsys:PFontFNT;
s:string;
life1,life2:byte;
rp1,rp2:record len,x,y,w:longint end;
p1,p2,win:boolean;
v:word;
rotatewar:boolean;

begin
InitGraphiX(ig_col16,ig_col16);
SetModeGraphiX(1024,768,ig_col16);
bar(0,0,getmaxx,getmaxy,rgbcolorrgb(24,146,91));
new(CHsys,LoadFont('font1.fnt'));
CHsys^.outtext(getmaxx div 2,getmaxy div 2,'LOAD ...',rgbcolorrgb(255,255,255));
Sound.initBass;
LoadImageFile(itGIF,'tank.gif',image1,0);
LoadImageFile(itGif,'tankwar.gif',wimage1,0);
LoadImageFile(itGif,'bum.gif',bum,0);
LoadImageFile(itGif,'win.gif',wins,0);
LoadImageFile(itGif,'wars.gif',wars,0);
sound.load_music('p.wav',1);
randomize;
bar(0,0,getmaxx,getmaxy,rgbcolorrgb(24,146,91));
delay(1);
CHsys^.outtext(10,30,'press any key...',rgbcolorrgb(255,255,255));
readkey;
bar(0,0,getmaxx,getmaxy,rgbcolorrgb(24,146,91));
p:=cloneimage(image1);
wp:=CloneImage(wimage1);
x:=100; y:=100;
wx:=900; wy:=600;
life1:=100;
life2:=100;
image2:=rotateimage(CopyImage(p,image1),image1,20,25,20,25,41,47,w);
PutimageC(x,y,image2);
{player2}
ww:=0;
wimage2:=rotateimage(CopyImage(wp,wimage1),wimage1,20,25,20,25,41,47,ww);
PutimageC(wx,wy,wimage2);
Win:=false;
repeat
v:=random(60000);
{室 Їа®вЁў­ЁЄ }
case v of
1..10: begin {а §ў®а®в }
ww:=ww+$500;
bar(wx-10,wy-10,wx+50,wy+60,rgbcolorrgb(24,146,91));
wimage2:=rotateimage(CopyImage(wp,wimage1),wimage1,20,25,20,25,41,47,ww);
PutimageC(wx,wy,wimage2);
end;
11..20: begin
ww:=ww-$500;
bar(wx-10,wy-10,wx+50,wy+60,rgbcolorrgb(24,146,91));
wimage2:=rotateimage(CopyImage(wp,wimage1),wimage1,20,25,20,25,41,47,ww);
PutimageC(wx,wy,wimage2);
end;
21..30: begin {¤ўЁЈ вмбп}
bar(wx-10,wy-10,wx+50,wy+60,rgbcolorrgb(24,146,91));
If (round((wx-2*sin((ww/181)*pi/180)))>20) and (round((wx-4*sin((ww/181)*pi/180)))<getmaxx-40)
and (round((wy-2*cos((ww/181)*pi/180)))>20) and (round((wy-4*cos((ww/181)*pi/180)))<getmaxy-40) then
begin
wx:=round((wx-2*sin((ww/181)*pi/180)));
wy:=round((wy-2*cos((ww/181)*pi/180)));
end else
begin
if random(3)=1 then ww:=ww+3*$500 else ww:=ww-3*$500;
bar(wx-10,wy-10,wx+50,wy+60,rgbcolorrgb(24,146,91));
end;
wimage2:=rotateimage(CopyImage(wp,wimage1),wimage1,20,25,20,25,41,47,ww);
PutimageC(wx,wy,wimage2);
end;
31:begin
If Random(20)=1 then
begin
sound.play_music(1);
If wy-y<>0 then ww:=round(arctan((wx-x)/(wy-y))*181*190/pi);
if (rp2.len=0) or (rp2.len>100) then
begin
bar(rp2.x,rp2.y,rp2.x+10,rp2.y+10,rgbcolorrgb(24,146,91));
rp2.len:=1;
rp2.x:=round(wx+20-50*sin((ww/181)*pi/180));
rp2.y:=round(wy+25-50*cos((ww/181)*pi/180));
rp2.w:=ww
end
end
end; {fire}
end;
If (rp1.len<>0) and (random(2000)=34) then
begin
bar(rp1.x,rp1.y,rp1.x+10,rp1.y+10,rgbcolorrgb(24,146,91));
Inc(rp1.len,1);
If rp1.len=1000 then rp1.len:=0;
rp1.x:=round(rp1.x-6*sin((rp1.w/181)*pi/180));
rp1.y:=round(rp1.y-6*cos((rp1.w/181)*pi/180));
if rp1.len<>0 then PutImageC(rp1.x,rp1.y,bum);
If (rp1.x>wx+10) and (rp1.x<wx+31) and (rp1.y>wy+10) and (rp1.y<wy+33) then p1:=true;
end;
{---}
If (rp2.len<>0) and (random(2000)=34) then
begin
bar(rp2.x,rp2.y,rp2.x+10,rp2.y+10,rgbcolorrgb(24,146,91));
Inc(rp2.len,1);
If rp2.len=1000 then rp2.len:=0;
rp2.x:=round(rp2.x-6*sin((rp2.w/181)*pi/180));
rp2.y:=round(rp2.y-6*cos((rp2.w/181)*pi/180));
if rp2.len<>0 then PutImageC(rp2.x,rp2.y,bum);
If (rp2.x>x) and (rp2.x<x+41) and (rp2.y>y) and (rp2.y<y+47) then p2:=true;
end;
if keypressed then
begin
c:=ord(readkey);
If c=0 then begin c:=ord(readkey); rk:=true end else rk:=false;
case c of
32:begin
sound.play_music(1);
bar(rp1.x,rp1.y,rp1.x+10,rp1.y+10,rgbcolorrgb(24,146,91));
rp1.len:=1;
rp1.x:=round(x+20-50*sin((w/181)*pi/180));
rp1.y:=round(y+25-50*cos((w/181)*pi/180));
rp1.w:=w
end;
75:begin
bar(x-10,y-10,x+50,y+60,rgbcolorrgb(24,146,91));
w:=w+$500;
image2:=rotateimage(CopyImage(p,image1),image1,20,25,20,25,41,47,w);
If w=65280 then w:=0;
PutimageC(x,y,image2);
{--}
{ CHsys^.outtext(0,10,s,rgbcolorrgb(255,255,255));}

end;
77:begin
bar(x-10,y-10,x+50,y+60,rgbcolorrgb(24,146,91));
w:=w-$500;
image2:=rotateimage(CopyImage(p,image1),image1,20,25,20,25,41,47,w);
If w=-65280 then w:=0;
PutimageC(x,y,image2);
end;
72:begin {run}

bar(x-10,y-10,x+50,y+60,rgbcolorrgb(24,146,91));
If (round((x-4*sin((w/181)*pi/180)))>20) and (round((x-4*sin((w/181)*pi/180)))<getmaxx-40)
and (round((wy-4*cos((ww/181)*pi/180)))>20) and (round((wy-4*cos((ww/181)*pi/180)))<getmaxy-40) then
begin
x:=round((x-6*sin((w/181)*pi/180)));
y:=round((y-6*cos((w/181)*pi/180)));
end;
image2:=rotateimage(CopyImage(p,image1),image1,20,25,20,25,41,47,w);
PutimageC(x,y,image2);
end;
80:begin
bar(x-10,y-10,x+50,y+60,rgbcolorrgb(24,146,91));
x:=round((x+sin((w/181)*pi/180)));
y:=round((y+cos((w/181)*pi/180)));
image2:=rotateimage(CopyImage(p,image1),image1,20,25,20,25,41,47,w);
PutimageC(x,y,image2);
end
end
end; {if keeypressed}
If p1 or p2 then win:=true;
until (c=27) or (Win);
If p1 then
begin
PutImageC(GetMaxX div 2 -150,GetmaxY div 2 -50,Wins);
delay(1000);
readkey
end else
begin
PutImageC(GetMaxX div 2 -150,GetmaxY div 2 -50,Wars);
delay(1000);
readkey
end;
end.

Это просто код, но со скролом..
кстати, вопрос на засыпку - какой компилятор надо использовать что -бы скопилировать этот код? smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Altair   Глюки нового форума   2.02.2005 19:29
mj   Самое что прикольное, ставлю прокси, всё отлично р...   2.02.2005 21:35
Altair   да, и еще, MJ, я добавил 2 типа файлов .rar и .pa...   2.02.2005 21:49
mj   а ты его где нашёл?   2.02.2005 22:05
Altair   Ну у нас есть такой тег... вот: {$APPTYPE GU...   2.02.2005 22:13
mj   FPC, там же написано...   2.02.2005 22:22
trminator   Не знаю уж, глюк или нет :) но в lite-версии :) фо...   3.02.2005 14:46
Dark   http://pascal.dax.ru/forum2/index.php?show...indpo...   5.02.2005 3:12
Altair   круто! самое обидное что такую кодировку воста...   5.02.2005 9:04
Dark   Глюк заключается в Опере. Она не может по автодет...   6.02.2005 2:39
virt   у меня из под оперы какойто странный вид форума ,э...   6.02.2005 20:27
APAL   Кошмар какой-то.... То эксплорер не правильно опре...   7.02.2005 21:23
Altair   Аналогично!   7.02.2005 21:38
volvo   А у меня не выдает никаких сообщений... Просто сто...   7.02.2005 21:42
klem4   Когда просматриваю форум, рейтинг отображается тол...   8.02.2005 17:33
Altair   Это не глюк. Включим.... просто я пока не нашел гд...   8.02.2005 17:50
klem4   Не знаю, может мне это одному не нравится... время...   8.02.2005 20:55
Altair   ребята, вы сговорились кажется, но это бесполезно,...   8.02.2005 21:20
mj   Что сейчас скажете?   11.02.2005 13:35
mj   Ну уж настройте себе формат времени какой вам боль...   11.02.2005 13:45
Флогримм   где можно достать список тегов, которые можно прим...   27.02.2005 3:49
Altair   вообще-то под смайликами есть ссылка Помощь по код...   27.02.2005 10:20
SKVOZNJAK   На pascal.dax.ru нет ссылки на форум, нужно набира...   18.03.2005 19:33
Altair   Как это нет ссылки??? Скриншот в студию!   18.03.2005 19:37
virt   SKVOZNJAK, это ты наверное под оперой сидишь. У ме...   18.03.2005 20:01
suriv   у иеня опера(7.54) и все норм тока другой баг: наж...   18.03.2005 20:50
virt   suriv :p4: теперь тоже 7.54   18.03.2005 21:34
SKVOZNJAK   Под оперой 7.50 всё норм, а под 7.23, которой обыч...   19.03.2005 3:42
Altair   MJ переписывает движок форума. В связи с этим возм...   19.03.2005 10:37
Lik   В легкой версии сайта остался глюк с кодировкой. Я...   23.03.2005 11:41
mj   Можно поподробнее, чё то не понял? Вы имеете ввид...   23.03.2005 18:29
Altair   он имеет ввиду легкую версию форума, MJ, многие кт...   23.03.2005 18:36
mj   Сегодня исправлю...   23.03.2005 19:15
xds   Замечания по работе галереи: 1) глюк: добавлять из...   25.03.2005 2:43
mj   1. Это фича а не баг, так нужно... 2. сортируетьс...   25.03.2005 6:12
Altair   Анекдот:   25.03.2005 6:50
xds   1) ...но, скажу я Вам, очень сомнительная: если о...   25.03.2005 10:31
mj   Я подумаю как это исправить...   25.03.2005 16:47
xds   Впрочем, здравый смысл подсказывает, что это долж...   25.03.2005 10:49
mj   vмы е правим исходники (за исключением исправлени...   25.03.2005 16:46
xds   Перестала работать конструкция "< Предыдущ...   28.03.2005 16:26
xds   ...Зато в управлении албомами появились какие-то п...   28.03.2005 17:53
APAL   Зашел в "Галереи участников", внизу надп...   30.03.2005 14:22
xds   Так когда же? ;)   7.04.2005 6:12
Altair   Галерея пока не работает.   7.04.2005 16:06
xds   Ой, правда? :D   8.04.2005 2:13
Altair   честное слово!   8.04.2005 13:11
klem4   хмм, может быть это только у меня ... если заходит...   6.06.2005 18:07
suriv   Это не только у тебя   6.06.2005 18:20
volvo   :blink: Только что проверил - заходит без проблем....   6.06.2005 18:21
Altair   не ну можетбыть такое и возможно у некоторых... де...   6.06.2005 18:54
hiv   Должно быть ( r ) и ( с ), а вместо этого замена н...   7.06.2005 10:07
suriv   если зайти на pascal.dax.ru и на форум попытаться ...   7.06.2005 10:27
klem4   а я вот что хочу сказать, может это только у меня ...   20.09.2005 8:06
Altair   у меня работает... попробуй очисти кэш браузера.....   20.09.2005 8:14
GoodWind   а меня напрегает каждый раз нажимать "Новые с...   20.09.2005 21:06
Atos   Судя по списку участников, на форуме всего 41 чело...   12.10.2005 12:24
Malice   А так ни у кого не бывает:   14.10.2005 21:46
volvo   Atos, :blink: Это все, что у тебя показывает? Смо...   12.10.2005 12:34
Atos   :D Ага... Так вот как работал драндулет... :D   12.10.2005 13:00
Altair   41 пользователь с фото это круто!   12.10.2005 15:09
Atos   Круто в смысле много или в смысле мало? ;)   14.10.2005 6:13
Altair   бывает иногда... кэш виноват. помогает перегрузка ...   14.10.2005 22:19
volvo   Вчера обнаружилось, что хотя "Тестовый" ...   28.10.2005 9:42
Altair   ну это не глюк а моя ошибка с выставлением масок д...   28.10.2005 20:49
GoodWind   такая вот штука...   11.11.2005 7:47
volvo   :wacko: GoodWind, кэш давно чистил? Ссылки на ...   11.11.2005 9:08
GoodWind   о кэше не может быть и речи =) я захожу на форум с...   11.11.2005 9:44
Altair   Этого глюка не может быть в принципе. Это у тебя п...   11.11.2005 20:15
APAL   Если выходил из сетки, то возможно через прокси-се...   11.11.2005 23:00
GoodWind   выхожу через локальный прокси-сервер (хз, где нахо...   14.11.2005 8:00
xds   "Новое письмо" (ПМ): при нажатии "П...   22.11.2005 4:26
Atos   Вчера днём, где-то около трёх по Москве, не мог за...   22.11.2005 6:02
klem4   Да, вчера форум не работал у меня с утра тоже и у ...   22.11.2005 7:13
Altair   Логи еще не смотрел.. такое же у кого-то было ? в...   22.11.2005 7:24
Altair   Логи еще не смотрел.. такое же у кого-то было ? в...   22.11.2005 7:24
Altair   мда у меня сейчас у самого такое было... из-за эт...   22.11.2005 7:26
Atos   Вот-вот, примерно такое и было хотя нет, не совсе...   22.11.2005 7:32
mj   На скоко мне известно, хостинг производил обновлен...   22.11.2005 8:58
GoodWind   Олег, копирайты выставляй =)) это мой bug-report О...   23.11.2005 17:09
APAL   Статистика по рекорду посещаемости опять глючит......   13.01.2006 11:52
Altair   я пока не разобрался что такое. Почему то иногда (...   13.01.2006 12:46
klem4   При попытке зати в олимпиадные задачи проявил себя...   14.01.2006 13:29
volvo   Да, этот глюк проявляется только на прикрепленных ...   14.01.2006 13:40
Fang   Заметил глюк небольшой. У меня не работает счётчик...   14.01.2006 13:47
Altair   Fang, в некоторых форумах отключе счетчик (наприме...   14.01.2006 14:31
Дож   Гм, все рисунки сдвинулись вверх и не много искази...   15.01.2006 12:26
GoodWind   все нормально, из virt`а мы новый смайл сделали ...   15.01.2006 12:47
volvo   Странно... :blink: Каким браузером пользуешься...   15.01.2006 12:48
Дож   Почистил несколько раз, n глюков исчезло(например...   15.01.2006 16:33
Altair   Все глюки которые создают браузеры на их совести. ...   15.01.2006 16:34
virt   Вы главное копилефт на смайл поставьте..   16.01.2006 0:51
GoodWind   интересно... после того, как noof поменял дату ро...   7.03.2006 19:55
Altair   просто события дня кешируются 1 раз в начале су...   7.03.2006 19:57
Noof   у меня тоже файрфокс... ребята, народ ен так пойме...   7.03.2006 20:00
Altair   Я обновил кеш. Браузер здесь ни при чем.   7.03.2006 20:02
Noof   мда... сегодня мне 10. ок. а извенятся? хотя знаю ...   7.03.2006 20:04
GoodWind   кончай флейм   7.03.2006 20:04
Altair   что ? :mad:   7.03.2006 20:04
Noof   я спокоен и рад :) Спасибо за поправку.   7.03.2006 20:06
2 страниц V  1 2 >


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 10.07.2025 23:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"