Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement