(N-IDE)RP_PDA_beta.pas

uses
  Crt;


uses
  aNotify;


var
  nik, inv, key, password, pass, id, idd, passwordd: string;
  textt: textFile;
  menu, statt, stat, i, ik: Integer;
  money, c: integer;
  moneys, niks: string;
  rank: string;
  lvl, life, il, rad, ir: integer;
  //авто

  avt: integer;
  //инвентарь

  effect:string;
  dolg:string;
  in1, in2, in3: integer;
  //аптечки

  in4, in5, in6: integer;
  //радиация

  kol: integer;
  kit, kitd: integer;


begin
  repeat
    kit := 1;
    in1 := 0;
    in2 := 0;
    in3 := 0;
    in4 := 0;
    in5 := 0;
    in6 := 0;
    life := 10;
    money := 0;
    stat := 1;
    i := 0;
    clrscr;
    writeln('PDA beta');
    writeln('1)register');
    writeln('2)login');
    //  writeln('3)автовход');
    writeln('-----------');
    write('>');
    read(menu);
    if menu = 1 then
      begin
        clrscr;
        writeln('_register_');
        write('user name:');
        readln(nik);
        write('id:');
        readln(id);
        write('password:');
        readln(password);
        id := id + '.txt';
        assign(textt, id);
        rewrite(textt);
        writeln(textt, nik);
        writeln(textt, password);
        writeln(textt, money);
        writeln(textt, stat);
        writeln(textt, kit);
        writeln(textt, in1);
        writeln(textt, in2);
        writeln(textt, in3);
        writeln(textt, in4);
        writeln(textt, in5);
        writeln(textt, in6);
        close(textt);
      end ;
    if menu = 2 then
      begin
        clrscr;
        writeln('_login_');
        write('id:');
        readln(idd);
        write('password:');
        readln(password);
        idd := idd + '.txt';
        assign(textt, idd);
        reset(textt);
        readln(textt, nik);
        readln(textt, passwordd);
        readln(textt, money);
        readln(textt, stat);
        readln(textt, kit);
        readln(textt, in1);
        readln(textt, in2);
        readln(textt, in3);
        readln(textt, in4);
        readln(textt, in5);
        readln(textt, in6);
        close(textt);
        if (password = passwordd) or (avt = 1) then
          begin
            while i = 0 do
              begin
                //rank
                if stat = 0 then
                  rank := 'админ' ;
                if stat = 1 then
                  rank := 'новичок' ;
                if stat = 2 then
                  rank := 'опытный' ;
                if stat = 3 then
                  rank := 'мастер' ;
                if (stat > 3) or (stat < 0) then
                  rank := 'читер' ;
                //автрвход
                //nortify
                if money < 0 then
                  dolg:='должник' else
                  dolg:='';

                str(money, moneys);
                moneys := moneys + ' руб  '+dolg;
                niks := 'PDA: ' + nik+'   '+effect;
                notify(niks, moneys);
                //pda
                clrscr;
                writeln('  _PDA beta_');
                writeln('--------------');
                writeln('user: ', nik);
                writeln('--------------');
                writeln('money: ', money, ' руб');
                writeln('--------------');
                writeln('rank: ', rank);
                writeln('--------------');
                //
                write('>');
                readln(key);
                //shop
                if key = 'admin' then
                  begin
                    clrscr;
                    writeln('введите пароль');
                    read(pass);
                    if pass = '4567' then
                      begin
                        money := money + 10000;
                        stat := 0;
                        assign(textt, idd);
                        rewrite(textt);
                        writeln(textt, nik);
                        writeln(textt, password);
                        writeln(textt, money);
                        writeln(textt, stat);
                        writeln(textt, kit);
                        writeln(textt, in1);
                        writeln(textt, in2);
                        writeln(textt, in3);
                        writeln(textt, in4);
                        writeln(textt, in5);
                        writeln(textt, in6);
                        close(textt);
                      end ;
                  end ;
                if (key = 'shop') and (rank <> 'читер') then
                  begin
                    clrscr;
                    writeln('_магазин_');
                    writeln('1)аптечки');
                    writeln('2)радиация');
                    write('>');
                    read(key);
                    if key = '1' then
                      begin
                        while true do
                          begin
                            clrscr;
                            writeln('_аптечки_ money:', money);
                            writeln('1)аптечка 100руб');
                            writeln('2)армейская аптечка 200руб');
                            writeln('3)научная аптечка 300руб');
                            write('>');
                            read(key);
                            if key = '1' then
                              begin
                                money := money - 100;
                                in1 := in1 + 1;
                              end ;
                            if key = '2' then
                              begin
                                money := money - 200;
                                in2 := in2 + 1;
                              end ;
                            if key = '3' then
                              begin
                                money := money - 300;
                                in3 := in3 + 1;
                              end ;
                            if key = 'end' then
                              break  ;
                          end;
                      end ;
                    if key = '2' then
                      begin
                        while true do
                          begin
                            clrscr;
                            writeln('_радиация_ money:', money);
                            writeln('1)водка 50руб');
                            writeln('2)антирадин 100руб');
                            writeln('3)супер антирадин 150руб');
                            write('>');
                            read(key);
                            if key = '1' then
                              begin
                                money := money - 50;
                                in4 := in4 + 1;
                                rad:=rad-5;

                              end ;
                            if key = '2' then
                              begin
                                money := money - 100;
                                in5 := in5 + 1;

                              end ;
                            if key = '3' then
                              begin
                                money := money - 150;
                                in6 := in6 + 1;

                              end ;
                            if key = 'end' then
                              break  ;
                          end;
                      end ;
                    assign(textt, idd);
                    rewrite(textt);
                    writeln(textt, nik);
                    writeln(textt, password);
                    writeln(textt, money);
                    writeln(textt, stat);
                    writeln(textt, kit);
                    writeln(textt, in1);
                    writeln(textt, in2);
                    writeln(textt, in3);
                    writeln(textt, in4);
                    writeln(textt, in5);
                    writeln(textt, in6);
                    close(textt);
                  end ;
                //
                if key = 'help' then
                  begin
                    clrscr;
                    writeln('_help_');
                    writeln('<kit>');
                    writeln('<inv>');
                    writeln('<user>');
                    writeln('<exit>');
                    writeln('<kill>');
                    writeln('<life>');
                    writeln('<shop>');
                    readln;
                  end ;
                //жизнь
                if key = 'life' then
                  begin
                    clrscr;
                    write('life:');
                    for il := 1 to life do
                      write('|');
                    writeln;
                    writeln('rad:');
                    for ir := 1 to rad do
                      write('|');
                    writeln;
                    readln;
                  end ;
                if key = 'kill' then
                  begin
                    clrscr;
                    for ik := 10downto 1 do
                      begin
                        clrscr;
                        writeln('до удаления аккаунта');
                        write(ik);
                        delay(1000);
                      end;
                    assign(textt, idd);
                    rewrite(textt);
                    close(textt);
                    break ;
                  end ;
                //вещи
                if key = 'kit' then
                  begin
                    clrscr;
                    if kit > 0 then
                      begin
                        kit := kit - 1;
                        in1 := in1 + 2;
                        in4 := in4 + 2;
                        money := money + 100;
                        assign(textt, idd);
                        rewrite(textt);
                        writeln(textt, nik);
                        writeln(textt, password);
                        writeln(textt, money);
                        writeln(textt, stat);
                        writeln(textt, kit);
                        writeln(textt, in1);
                        writeln(textt, in2);
                        writeln(textt, in3);
                        writeln(textt, in4);
                        writeln(textt, in5);
                        writeln(textt, in6);
                        close(textt);
                        writeln('кит был активирован');
                      end
                    else
                      writeln('у вас нету доступных китов');
                    readln;
                  end ;
                if key = 'kitd' then
                  begin
                    clrscr;
                    writeln('введите пароль');
                    read(pass);
                    if pass = '4567' then
                      begin
                        clrscr;
                        writeln('сколько прибавить китов');
                        read(kitd);
                        kit := kit + kitd;
                        assign(textt, idd);
                        rewrite(textt);
                        writeln(textt, nik);
                        writeln(textt, password);
                        writeln(textt, money);
                        writeln(textt, stat);
                        writeln(textt, kit);
                        writeln(textt, in1);
                        writeln(textt, in2);
                        writeln(textt, in3);
                        writeln(textt, in4);
                        writeln(textt, in5);
                        writeln(textt, in6);
                        close(textt);
                      end ;
                  end ;
                if key = 'invd' then
                  begin
                    clrscr;
                    writeln('введите пароль');
                    read(pass);
                    if pass = '4567' then
                      begin
                        clrscr;
                        writeln('какую вещь прибавить?');
                        writeln('1.аптечка x', in1);
                        writeln('2.армейская аптечка x', in2);
                        writeln('3.научная аптечка x', in3);
                        writeln('4.водка x', in4);
                        writeln('5.антирадин x', in5);
                        writeln('6.супер антирадин x', in6);
                        write('>');
                        read(key);
                        writeln('сколько прибавить');
                        read(kol);
                        if key = '1' then
                          in1 := in1 + kol ;
                        if key = '2' then
                          in2 := in2 + kol ;
                        if key = '3' then
                          in3 := in3 + kol ;
                        if key = '4' then

                          in4 := in4 + kol ;

                        if key = '5' then
                          in5 := in5 + kol ;
                        if key = '6' then
                          in6 := in6 + kol ;
                        assign(textt, idd);
                        rewrite(textt);
                        writeln(textt, nik);
                        writeln(textt, password);
                        writeln(textt, money);
                        writeln(textt, stat);
                        writeln(textt, kit);
                        writeln(textt, in1);
                        writeln(textt, in2);
                        writeln(textt, in3);
                        writeln(textt, in4);
                        writeln(textt, in5);
                        writeln(textt, in6);
                        close(textt);
                      end ;
                  end ;
                if key = 'inv' then
                  begin
                    if (stat > 3) or (stat < - 1) then
                      begin
                        clrscr;
                        writeln('_инвентарь_');
                        writeln('инвентарь заблокирован');
                        readln;
                      end ;
                    if stat = 1 then
                      begin
                        //2 ячейки
                        while true do
                          begin
                            clrscr;
                            writeln('<-- <end>');
                            writeln('_инвентарь_');
                            writeln('1.аптечка x', in1);
                            writeln('2.водка x', in4);
                            write('>');
                            read(key);
                            if key = '1' then
                              in1 := in1 - 1 ;
                            if key = '2' then
                              in4 := in4 - 1 ;
                            if key = 'end' then
                              break  ;
                          end;
                      end ;
                    if stat = 2 then
                      begin
                        //4 ячейки
                        while true do
                          begin
                            clrscr;
                            writeln('<-- <end>');
                            writeln('_инвентарь_');
                            writeln('1.аптечка x', in1);
                            writeln('2.армейская аптечка x', in2);
                            writeln('3.водка x', in4);
                            writeln('4.антирадин x', in5);
                            write('>');
                            read(key);
                            if key = '1' then
                              in1 := in1 - 1 ;
                            if key = '2' then
                              in2 := in2 - 1 ;
                            if key = '3' then
                              in4 := in4 - 1 ;
                            if key = '4' then
                              in5 := in5 - 1 ;
                            if key = 'end' then
                              break  ;
                          end;
                      end ;
                    if (stat = 3) or (stat = - 1) then
                      begin
                        //6 ячеек
                        while true do
                          begin
                            clrscr;
                            writeln('<-- <end>');
                            writeln('_инвентарь_');
                            writeln('1.аптечка x', in1);
                            writeln('2.армейская аптечка x', in2);
                            writeln('3.научная аптечка x', in3);
                            writeln('4.водка x', in4);
                            writeln('5.антирадин x', in5);
                            writeln('6.супер антирадин x', in6);
                            write('>');
                            read(key);
                            if key = '1' then
                              in1 := in1 - 1 ;
                            if key = '2' then
                              in2 := in2 - 1 ;
                            if key = '3' then
                              in3 := in3 - 1 ;
                            if key = '4' then
                              in4 := in4 - 1 ;
                            if key = '5' then
                              in5 := in5 - 1 ;
                            if key = '6' then
                              in6 := in6 - 1 ;
                            if key = 'end' then
                              break  ;
                          end;
                      end ;
                    assign(textt, idd);
                    rewrite(textt);
                    writeln(textt, nik);
                    writeln(textt, password);
                    writeln(textt, money);
                    writeln(textt, stat);
                    writeln(textt, kit);
                    writeln(textt, in1);
                    writeln(textt, in2);
                    writeln(textt, in3);
                    writeln(textt, in4);
                    writeln(textt, in5);
                    writeln(textt, in6);
                    close(textt);
                  end ;
                if key = 'invd' then
                  begin
                  end ;
                //pda
                if key = 'rank' then
                  begin
                    clrscr;
                    write('пароль:');
                    read(pass);
                    if pass = '4567' then
                      begin
                        clrscr;
                        writeln('1.новичок');
                        writeln('2.опытный');
                        writeln('3.мастер');
                        writeln('больше. читер');
                        read(stat);
                        assign(textt, idd);
                        rewrite(textt);
                        writeln(textt, nik);
                        writeln(textt, password);
                        writeln(textt, money);
                        writeln(textt, stat);
                        writeln(textt, kit);
                        writeln(textt, in1);
                        writeln(textt, in2);
                        writeln(textt, in3);
                        writeln(textt, in4);
                        writeln(textt, in5);
                        writeln(textt, in6);
                        close(textt);
                      end ;
                  end ;
                if key = 'user' then
                  begin
                    clrscr;
                    writeln('введите новое имя');
                    read(nik);
                    assign(textt, idd);
                    rewrite(textt);
                    writeln(textt, nik);
                    writeln(textt, password);
                    writeln(textt, money);
                    writeln(textt, stat);
                    writeln(textt, kit);
                    writeln(textt, in1);
                    writeln(textt, in2);
                    writeln(textt, in3);
                    writeln(textt, in4);
                    writeln(textt, in5);
                    writeln(textt, in6);
                    close(textt);
                  end ;
                if key = 'exit' then
                  begin
                    i := 1;
                  end ;
                if key = 'money' then
                  begin
                    clrscr;
                    write('пароль:');
                    read(pass);
                    if pass = '4567' then
                      begin
                        begin
                          clrscr;
                          writeln('1)прибавить');
                          writeln('2)убавить');
                          read(menu);
                          if menu = 1 then
                            begin
                              clrscr;
                              writeln('введите число +');
                              read(c);
                              money := money + c;
                              assign(textt, idd);
                              rewrite(textt);
                              writeln(textt, nik);
                              writeln(textt, password);
                              writeln(textt, money);
                              writeln(textt, stat);
                              writeln(textt, kit);
                              writeln(textt, in1);
                              writeln(textt, in2);
                              writeln(textt, in3);
                              writeln(textt, in4);
                              writeln(textt, in5);
                              writeln(textt, in6);
                              close(textt);
                            end ;
                          if menu = 2 then
                            begin
                              clrscr;
                              writeln('введите число -');
                              read(c);
                              money := money - c;
                              assign(textt, idd);
                              rewrite(textt);
                              writeln(textt, nik);
                              writeln(textt, password);
                              writeln(textt, money);
                              writeln(textt, stat);
                              writeln(textt, kit);
                              writeln(textt, in1);
                              writeln(textt, in2);
                              writeln(textt, in3);
                              writeln(textt, in4);
                              writeln(textt, in5);
                              writeln(textt, in6);
                              close(textt);
                            end ;
                        end;
                      end ;
                  end ;
              end;
          end
        else
          write('error');
      end ;
    delay(100);
  until (false);
end.