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

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

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

6 страниц V  1 2 3 > »   
Closed Topic Открыть новую тему 
> Глюки нового форума
сообщение
Сообщение #1


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

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

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


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

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


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


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

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


Самое что прикольное, ставлю прокси, всё отлично работает...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


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

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

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


да, и еще, MJ, я добавил 2 типа файлов .rar и .pas -только включи функцию закачки smile.gif

ЗЫ: налюбоваться не могу на тег codebox smile.gif - просто конфетка!


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


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

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


а ты его где нашёл?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


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

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

Репутация: -  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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

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


FPC, там же написано...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

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


Не знаю уж, глюк или нет smile.gif но в lite-версии smile.gif форума нет формы ответа...

ЗЫЖ Lite-версия летает на наладонниках =) чувствую, на лекциях я ни фига слушать не буду...


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Знаток
****

Группа: Пользователи
Сообщений: 408
Пол: Мужской

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


http://forum.pascal.net.ru/index.php?show...indpost&p=34820


Я написал сообщение будучи в guest'e И ШО Я ПОЛУЧИЛ???? АААААААААА!!!
блин =) это какая кодировка???!!!


--------------------
- Где я?
- Во тьме.
- В какой тьме?
- Во тьме твоего мозга.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


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

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

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


круто!
самое обидное что такую кодировку востановить просто невозможно!


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


Знаток
****

Группа: Пользователи
Сообщений: 408
Пол: Мужской

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


Цитата(Oleg_Z @ 5.02.05 9:04)
круто!
самое обидное что такую кодировку востановить просто невозможно!
*


Глюк заключается в Опере. Она не может по автодетекту распознать кодировку форума, и поэтому там принудительно стоит Win1251, а когда надо напечатать сообщение снова ставишь в автодетект и печатаешь... потом снова переключаешь на WIn1251... Хрень


--------------------
- Где я?
- Во тьме.
- В какой тьме?
- Во тьме твоего мозга.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Знаток
****

Группа: Пользователи
Сообщений: 419
Пол: Мужской

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


у меня из под оперы какойто странный вид форума ,это у всех или только у меня?


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Кошмар какой-то....
То эксплорер не правильно определяет кодировку и надо вручную указывать...
То вместо загрузки инфы выдает "The page cannot be displayed"...
Все это конечно исправляется многократным Refresh'ом, но из-за этого глюки в качестве двойных сообщений, которые приходится потом удалять, а судя по тому что мне приходится иногда удалять такие "дубли" и у других пользователей, то делаю вывод - такие траблы не только у меня.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


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

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

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


Цитата
То вместо загрузки инфы выдает "The page cannot be displayed"...

Аналогично!


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


Гость






А у меня не выдает никаких сообщений... Просто стопорится на каком-то этапе и все. (Но двойных сообщений у меня нет, я открываю еще один Tab и проверяю, запостилось ли сообщение... Если нет - Back -> Forward и посылаю еще раз ;))
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Когда просматриваю форум, рейтинг отображается только мой, у других не видно его...(


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


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

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

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


Это не глюк. Включим.... просто я пока не нашел где эт овключать, админка здесь на английском, и раза в 2 больше настроек чем в старой версии...


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


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Не знаю, может мне это одному не нравится... время теперь вместо
20:54 8.54 PM sad.gif(

Я не придераюсь, просто напрягает почему-то PM..AM , как-то не по русски smile.gif

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


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

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

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


ребята, вы сговорились кажется, но это бесполезно,
НУ НЕТУ БОЛЬШЕ СТАРОГО ФОРУМА, ВСЕ!!!!!!!!!!
И его не будет, это я вам гвоорю 100%
кто-то желает поспорить?


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


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

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


Что сейчас скажете?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

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


Ну уж настройте себе формат времени какой вам больше нравиться... у меня лично как было время, так и осталось (без АМ и РМ)...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 28.09.2021 14:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name