Глюки нового форума |
В этом форуме Вы можете предложить изменения на форуме или обсудить действия администрации.
Глюки нового форума |
Altair |
2.02.2005 19:29
Сообщение
#1
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Кажется совсем недавно обсуждали глюки нового форума (всего год назад) а уже снова новый
итак, я нашел следующие: 1. некоторые жалуются что не доконца грузиться. 2. у меня постоянно "невозможно отобразить страницу" при ответе в тему. (любую) -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
mj |
2.02.2005 21:35
Сообщение
#2
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Самое что прикольное, ставлю прокси, всё отлично работает...
|
Altair |
2.02.2005 21:49
Сообщение
#3
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
да, и еще, MJ, я добавил 2 типа файлов .rar и .pas -только включи функцию закачки
ЗЫ: налюбоваться не могу на тег codebox - просто конфетка! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
mj |
2.02.2005 22:05
Сообщение
#4
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
а ты его где нашёл?
|
Altair |
2.02.2005 22:13
Сообщение
#5
|
Ищущий истину Группа: Модераторы Сообщений: 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. Это просто код, но со скролом.. кстати, вопрос на засыпку - какой компилятор надо использовать что -бы скопилировать этот код? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
mj |
2.02.2005 22:22
Сообщение
#6
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
FPC, там же написано...
|
trminator |
3.02.2005 14:46
Сообщение
#7
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Не знаю уж, глюк или нет но в lite-версии форума нет формы ответа...
ЗЫЖ Lite-версия летает на наладонниках =) чувствую, на лекциях я ни фига слушать не буду... -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Dark |
5.02.2005 3:12
Сообщение
#8
|
Знаток Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
http://pascal.dax.ru/forum2/index.php?show...indpost&p=34820
Я написал сообщение будучи в guest'e И ШО Я ПОЛУЧИЛ???? АААААААААА!!! блин =) это какая кодировка???!!! -------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
Altair |
5.02.2005 9:04
Сообщение
#9
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
круто!
самое обидное что такую кодировку востановить просто невозможно! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Dark |
6.02.2005 2:39
Сообщение
#10
|
Знаток Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
Цитата(Oleg_Z @ 5.02.05 9:04) Глюк заключается в Опере. Она не может по автодетекту распознать кодировку форума, и поэтому там принудительно стоит Win1251, а когда надо напечатать сообщение снова ставишь в автодетект и печатаешь... потом снова переключаешь на WIn1251... Хрень -------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
virt |
6.02.2005 20:27
Сообщение
#11
|
Знаток Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: 6 |
у меня из под оперы какойто странный вид форума ,это у всех или только у меня?
-------------------- |
APAL |
7.02.2005 21:23
Сообщение
#12
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Кошмар какой-то....
То эксплорер не правильно определяет кодировку и надо вручную указывать... То вместо загрузки инфы выдает "The page cannot be displayed"... Все это конечно исправляется многократным Refresh'ом, но из-за этого глюки в качестве двойных сообщений, которые приходится потом удалять, а судя по тому что мне приходится иногда удалять такие "дубли" и у других пользователей, то делаю вывод - такие траблы не только у меня. -------------------- |
Altair |
7.02.2005 21:38
Сообщение
#13
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата То вместо загрузки инфы выдает "The page cannot be displayed"... Аналогично! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
volvo |
7.02.2005 21:42
Сообщение
#14
|
Гость |
А у меня не выдает никаких сообщений... Просто стопорится на каком-то этапе и все. (Но двойных сообщений у меня нет, я открываю еще один Tab и проверяю, запостилось ли сообщение... Если нет - Back -> Forward и посылаю еще раз ;))
|
klem4 |
8.02.2005 17:33
Сообщение
#15
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Когда просматриваю форум, рейтинг отображается только мой, у других не видно его...(
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Altair |
8.02.2005 17:50
Сообщение
#16
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Это не глюк. Включим.... просто я пока не нашел где эт овключать, админка здесь на английском, и раза в 2 больше настроек чем в старой версии...
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
8.02.2005 20:55
Сообщение
#17
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Не знаю, может мне это одному не нравится... время теперь вместо
20:54 8.54 PM ( Я не придераюсь, просто напрягает почему-то PM..AM , как-то не по русски Сообщение отредактировано: klem4 - 8.02.2005 20:57 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Altair |
8.02.2005 21:20
Сообщение
#18
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
ребята, вы сговорились кажется, но это бесполезно,
НУ НЕТУ БОЛЬШЕ СТАРОГО ФОРУМА, ВСЕ!!!!!!!!!! И его не будет, это я вам гвоорю 100% кто-то желает поспорить? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
mj |
11.02.2005 13:35
Сообщение
#19
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Что сейчас скажете?
|
mj |
11.02.2005 13:45
Сообщение
#20
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Ну уж настройте себе формат времени какой вам больше нравиться... у меня лично как было время, так и осталось (без АМ и РМ)...
|
Текстовая версия | 26.05.2024 22:07 |