Jump to content

bayarookie

Users
  • Content Count

    298
  • Joined

  • Last visited

Community Reputation

115 Хорошо

About bayarookie

  • Rank
    Активный пользователь
  1. bayarookie

    Diablo II

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

    Diablo II

    это из энциклопции 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 Sk
  3. bayarookie

    Diablo II

    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 это официальная версия, во всяких самодельных модификациях увеличивают вот это всё
  4. Внимание! Вы покидаете пятикопеечную зону =)
  5. bayarookie

    Diablo II

    El_Matador а версия у тебя какая? Я там бываю, а версию специально поставил 1.11b, чтобы можно было к другим подцепляться, а на 1.12, кажется, почти никто не играет на гагнете
  6. ProgressBar1.Max := FileContent.Count; for i := 0 to FileContent.Count - 1 do begin ProgressBar1.Position := i; ListBox1.Item.Add(тут что-то там Application.ProcessMessages; end; может напутал чего
  7. проще было бы через Application.ProcessMessages сделать, в этих потоках легко запутаться, кинь куда-нибудь исходники, посмотрим.
  8. http://regexpstudio.com/Downloads/regexpr_RU.rar ставишь, подцепляешь, много читаешь
  9. У тебя n используется при вводе данных, то есть ограничиваешь бд тремя записями, а если добавить понадобится?
  10. Cloud зачем вводить элемент, у тебя текущая позиция в бд хранится в переменной nn. Процедуры first и last я не доделал, потому что лень было расписывать их. А у тебя в first и last не хватает read(f, auto);
  11. Cloud вместо n пиши что-нибудь другое, просто когда переделывал код TolkienDRR, то не посмотрел, что у тебя n уже используется
  12. 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);
  13. KoHoVaLOFF Профессиональная съёмка на видеоплёнку - способ переноса в цифру. Любительская на цифровые видеокамеры - обычно DVD. А с фотоаппаратов, мобильников, веб-камер - можно причислить к CAM. Оцифрованные оригиналы - VCD, DVD, HD-DVD, BD и что ещё?
  14. только подправил чуть-чуть: 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);
×
×
  • Create New...