bayarookie

Трасса 32, наверное, стоило бы 350р

Если компы рядом, то вроде просто, а если через инет, то лучше через Open Battle.net, а иначе придётся мудрить со всякими хамачами и т.п. Насчёт рун лучше посмотреть всякие справочники по дьябло 2

это из энциклопции Skill Points ------------------------------------------- Summoning: Oak Sage 5-10 or Heart of Wolverine 5-10 Grizzly 10-20 or Dire Wolfs 10-20 Elemental: Tornado 1-5 Hurricane 20 Armageddon 20 Skill Points ------------------------------------------- Shape Shifting: Werewolf 20 Lycanthropy 20 Feral Rage 5 Fury 20 Summoning: Oak Sage 20 Grizzly 1~20 Skill Points ------------------------------------------- Shape Shifting: Werebear 20 Lycanthropy 20 Summoning Oak Sage 5-10 Heart of Wolverine 20 Grizzly 1~20 а по опыту скажу, что ближний бой на Hell не рулит вообще, скоро тоже попробую очередной раз друидом пройти Hell, только теперь буду первый вариант пробовать

games.gagnet.ru только там никого почти не бывает никогда почти что а вернуться на 1.11 проще заново переустановив, без этого можно только взять у кого-нибудь вот эти файлы: Bnclient.dll D2Client.dll D2CMP.dll D2Common.dll D2DDraw.dll D2Direct3D.dll D2Game.dll D2Gdi.dll D2gfx.dll D2Glide.dll D2Lang.dll D2Launch.dll D2MCPClient.dll D2Multi.dll D2Net.dll D2sound.dll D2VidTst.exe D2Win.dll Diablo II.exe Fog.dll Game.exe Storm.dll это официальная версия, во всяких самодельных модификациях увеличивают вот это всё

Внимание! Вы покидаете пятикопеечную зону =)

El_Matador а версия у тебя какая? Я там бываю, а версию специально поставил 1.11b, чтобы можно было к другим подцепляться, а на 1.12, кажется, почти никто не играет на гагнете

ProgressBar1.Max := FileContent.Count; for i := 0 to FileContent.Count - 1 do begin ProgressBar1.Position := i; ListBox1.Item.Add(тут что-то там Application.ProcessMessages; end; может напутал чего

проще было бы через Application.ProcessMessages сделать, в этих потоках легко запутаться, кинь куда-нибудь исходники, посмотрим.

http://regexpstudio.com/Downloads/regexpr_RU.rar ставишь, подцепляешь, много читаешь

У тебя n используется при вводе данных, то есть ограничиваешь бд тремя записями, а если добавить понадобится?

Cloud зачем вводить элемент, у тебя текущая позиция в бд хранится в переменной nn. Процедуры first и last я не доделал, потому что лень было расписывать их. А у тебя в first и last не хватает read(f, auto);

Cloud вместо n пиши что-нибудь другое, просто когда переделывал код TolkienDRR, то не посмотрел, что у тебя n уже используется

begin; reset (f); writeln('vvedite marku mashini'); readln(y); writeln('vvedite cvet mashini'); readln(g); while not eof(f) do begin read (f,auto); if (auto.marka=y) and (auto.coloour=g) then writeln('FIO vladelca: ',auto.FIO); end; close (f); writeln; end; procedure cvedeniya; Добавлено спустя 8 минут 43 секунды: Cloud next prev и тд возьми у TolkienDRR поменяй inc(n) на n:=n+1; а dec(n) на n:=n-1; Добавлено спустя 7 минут 27 секунд: begin n:=n+1; clrscr; reset(F); if n>=0 and n<=filesize(F) then begin seek(F,n); read(F,auto); end else n:=n-1; close(f); writeln(auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); end; procedure previos; begin n:=n-1; clrscr; reset(F); if n>=0 and n<=filesize(F) then begin seek(F,n); read(F,auto); end else n:=n+1; close(f); writeln(auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); end; procedure first; begin n:=0; end; procedure last; begin reset(f); n:=filesize(f); close(F); end;procedure next;

KoHoVaLOFF Профессиональная съёмка на видеоплёнку - способ переноса в цифру. Любительская на цифровые видеокамеры - обычно DVD. А с фотоаппаратов, мобильников, веб-камер - можно причислить к CAM. Оцифрованные оригиналы - VCD, DVD, HD-DVD, BD и что ещё?

только подправил чуть-чуть: uses crt; const n = 3; k = 0; type rec = record FIO: string [30]; marka: string [10]; colour: string [13]; number: integer; end; mas = array [1..n] of rec; var i, flag, kr, w: byte; f: file of rec; mashina: mas; auto: rec; procedure vvod; begin rewrite (f); for i:=1 to n do begin textcolor(15); write('FIO vladelca: '); readln(auto.FIO); textcolor(2); write(' marka avtomobilia: '); readln(auto.marka); textcolor(14); write(' cvet mashini: '); readln(auto.colour); textcolor(13); write(' nomer mashini: '); readln(auto.number); textcolor(4); write(f, auto); end; close (f); end; procedure vivod; begin reset(f); while not eof(f) do begin read(f, auto); writeln(auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); end; close(f); readkey; end; procedure belii; begin; reset (f); w := 0; while not eof(f) do begin read(f, auto); if auto.colour = 'belii' then inc(w); end; write('kolichestvo belih mashin: ', w); close(f); writeln; end; procedure next1; begin reset (f); //типа перемещение по бд seek(f, 1); read(f, auto); writeln(auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); seek(f, 0); read(f, auto); writeln(auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); close(f); writeln; end; begin clrscr; assign(f, 'automoto.dat'); flag := 0; textbackground(1); clrscr; window(10, 5, 70, 20); textbackground(0); clrscr; repeat writeln('1. vvod'); writeln('2. vivod'); writeln('3. belii'); writeln('0. vihod'); write('vvedite nomer: '); readln(kr); case kr of 1: vvod; 2: vivod; 3: belii; 4: next1; 0: break; end; flag := 1; until flag = 0; end. program automoto; а вообще я не программист, а слесарь, поэтому меня не спрашивайте и на паскале не писал никогда, сперва на фокспро, потом на дельфи