daily pastebin goal
56%
SHARE
TWEET

(N-IDE)RP_PDA_beta.pas

Stolar228 Apr 27th, 2018 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. uses
  3.   Crt;
  4.  
  5.  
  6. uses
  7.   aNotify;
  8.  
  9.  
  10. var
  11.   nik, inv, key, password, pass, id, idd, passwordd: string;
  12.   textt: textFile;
  13.   menu, statt, stat, i, ik: Integer;
  14.   money, c: integer;
  15.   moneys, niks: string;
  16.   rank: string;
  17.   lvl, life, il, rad, ir: integer;
  18.   //авто
  19.  
  20.   avt: integer;
  21.   //инвентарь
  22.  
  23.   effect:string;
  24.   dolg:string;
  25.   in1, in2, in3: integer;
  26.   //аптечки
  27.  
  28.   in4, in5, in6: integer;
  29.   //радиация
  30.  
  31.   kol: integer;
  32.   kit, kitd: integer;
  33.  
  34.  
  35. begin
  36.   repeat
  37.     kit := 1;
  38.     in1 := 0;
  39.     in2 := 0;
  40.     in3 := 0;
  41.     in4 := 0;
  42.     in5 := 0;
  43.     in6 := 0;
  44.     life := 10;
  45.     money := 0;
  46.     stat := 1;
  47.     i := 0;
  48.     clrscr;
  49.     writeln('PDA beta');
  50.     writeln('1)register');
  51.     writeln('2)login');
  52.     //  writeln('3)автовход');
  53.     writeln('-----------');
  54.     write('>');
  55.     read(menu);
  56.     if menu = 1 then
  57.       begin
  58.         clrscr;
  59.         writeln('_register_');
  60.         write('user name:');
  61.         readln(nik);
  62.         write('id:');
  63.         readln(id);
  64.         write('password:');
  65.         readln(password);
  66.         id := id + '.txt';
  67.         assign(textt, id);
  68.         rewrite(textt);
  69.         writeln(textt, nik);
  70.         writeln(textt, password);
  71.         writeln(textt, money);
  72.         writeln(textt, stat);
  73.         writeln(textt, kit);
  74.         writeln(textt, in1);
  75.         writeln(textt, in2);
  76.         writeln(textt, in3);
  77.         writeln(textt, in4);
  78.         writeln(textt, in5);
  79.         writeln(textt, in6);
  80.         close(textt);
  81.       end ;
  82.     if menu = 2 then
  83.       begin
  84.         clrscr;
  85.         writeln('_login_');
  86.         write('id:');
  87.         readln(idd);
  88.         write('password:');
  89.         readln(password);
  90.         idd := idd + '.txt';
  91.         assign(textt, idd);
  92.         reset(textt);
  93.         readln(textt, nik);
  94.         readln(textt, passwordd);
  95.         readln(textt, money);
  96.         readln(textt, stat);
  97.         readln(textt, kit);
  98.         readln(textt, in1);
  99.         readln(textt, in2);
  100.         readln(textt, in3);
  101.         readln(textt, in4);
  102.         readln(textt, in5);
  103.         readln(textt, in6);
  104.         close(textt);
  105.         if (password = passwordd) or (avt = 1) then
  106.           begin
  107.             while i = 0 do
  108.               begin
  109.                 //rank
  110.                 if stat = 0 then
  111.                   rank := 'админ' ;
  112.                 if stat = 1 then
  113.                   rank := 'новичок' ;
  114.                 if stat = 2 then
  115.                   rank := 'опытный' ;
  116.                 if stat = 3 then
  117.                   rank := 'мастер' ;
  118.                 if (stat > 3) or (stat < 0) then
  119.                   rank := 'читер' ;
  120.                 //автрвход
  121.                 //nortify
  122.                 if money < 0 then
  123.                   dolg:='должник' else
  124.                   dolg:='';
  125.                
  126.                 str(money, moneys);
  127.                 moneys := moneys + ' руб  '+dolg;
  128.                 niks := 'PDA: ' + nik+'   '+effect;
  129.                 notify(niks, moneys);
  130.                 //pda
  131.                 clrscr;
  132.                 writeln('  _PDA beta_');
  133.                 writeln('--------------');
  134.                 writeln('user: ', nik);
  135.                 writeln('--------------');
  136.                 writeln('money: ', money, ' руб');
  137.                 writeln('--------------');
  138.                 writeln('rank: ', rank);
  139.                 writeln('--------------');
  140.                 //
  141.                 write('>');
  142.                 readln(key);
  143.                 //shop
  144.                 if key = 'admin' then
  145.                   begin
  146.                     clrscr;
  147.                     writeln('введите пароль');
  148.                     read(pass);
  149.                     if pass = '4567' then
  150.                       begin
  151.                         money := money + 10000;
  152.                         stat := 0;
  153.                         assign(textt, idd);
  154.                         rewrite(textt);
  155.                         writeln(textt, nik);
  156.                         writeln(textt, password);
  157.                         writeln(textt, money);
  158.                         writeln(textt, stat);
  159.                         writeln(textt, kit);
  160.                         writeln(textt, in1);
  161.                         writeln(textt, in2);
  162.                         writeln(textt, in3);
  163.                         writeln(textt, in4);
  164.                         writeln(textt, in5);
  165.                         writeln(textt, in6);
  166.                         close(textt);
  167.                       end ;
  168.                   end ;
  169.                 if (key = 'shop') and (rank <> 'читер') then
  170.                   begin
  171.                     clrscr;
  172.                     writeln('_магазин_');
  173.                     writeln('1)аптечки');
  174.                     writeln('2)радиация');
  175.                     write('>');
  176.                     read(key);
  177.                     if key = '1' then
  178.                       begin
  179.                         while true do
  180.                           begin
  181.                             clrscr;
  182.                             writeln('_аптечки_ money:', money);
  183.                             writeln('1)аптечка 100руб');
  184.                             writeln('2)армейская аптечка 200руб');
  185.                             writeln('3)научная аптечка 300руб');
  186.                             write('>');
  187.                             read(key);
  188.                             if key = '1' then
  189.                               begin
  190.                                 money := money - 100;
  191.                                 in1 := in1 + 1;
  192.                               end ;
  193.                             if key = '2' then
  194.                               begin
  195.                                 money := money - 200;
  196.                                 in2 := in2 + 1;
  197.                               end ;
  198.                             if key = '3' then
  199.                               begin
  200.                                 money := money - 300;
  201.                                 in3 := in3 + 1;
  202.                               end ;
  203.                             if key = 'end' then
  204.                               break  ;
  205.                           end;
  206.                       end ;
  207.                     if key = '2' then
  208.                       begin
  209.                         while true do
  210.                           begin
  211.                             clrscr;
  212.                             writeln('_радиация_ money:', money);
  213.                             writeln('1)водка 50руб');
  214.                             writeln('2)антирадин 100руб');
  215.                             writeln('3)супер антирадин 150руб');
  216.                             write('>');
  217.                             read(key);
  218.                             if key = '1' then
  219.                               begin
  220.                                 money := money - 50;
  221.                                 in4 := in4 + 1;
  222.                                 rad:=rad-5;
  223.                          
  224.                               end ;
  225.                             if key = '2' then
  226.                               begin
  227.                                 money := money - 100;
  228.                                 in5 := in5 + 1;
  229.        
  230.                               end ;
  231.                             if key = '3' then
  232.                               begin
  233.                                 money := money - 150;
  234.                                 in6 := in6 + 1;
  235.                
  236.                               end ;
  237.                             if key = 'end' then
  238.                               break  ;
  239.                           end;
  240.                       end ;
  241.                     assign(textt, idd);
  242.                     rewrite(textt);
  243.                     writeln(textt, nik);
  244.                     writeln(textt, password);
  245.                     writeln(textt, money);
  246.                     writeln(textt, stat);
  247.                     writeln(textt, kit);
  248.                     writeln(textt, in1);
  249.                     writeln(textt, in2);
  250.                     writeln(textt, in3);
  251.                     writeln(textt, in4);
  252.                     writeln(textt, in5);
  253.                     writeln(textt, in6);
  254.                     close(textt);
  255.                   end ;
  256.                 //
  257.                 if key = 'help' then
  258.                   begin
  259.                     clrscr;
  260.                     writeln('_help_');
  261.                     writeln('<kit>');
  262.                     writeln('<inv>');
  263.                     writeln('<user>');
  264.                     writeln('<exit>');
  265.                     writeln('<kill>');
  266.                     writeln('<life>');
  267.                     writeln('<shop>');
  268.                     readln;
  269.                   end ;
  270.                 //жизнь
  271.                 if key = 'life' then
  272.                   begin
  273.                     clrscr;
  274.                     write('life:');
  275.                     for il := 1 to life do
  276.                       write('|');
  277.                     writeln;
  278.                     writeln('rad:');
  279.                     for ir := 1 to rad do
  280.                       write('|');
  281.                     writeln;
  282.                     readln;
  283.                   end ;
  284.                 if key = 'kill' then
  285.                   begin
  286.                     clrscr;
  287.                     for ik := 10downto 1 do
  288.                       begin
  289.                         clrscr;
  290.                         writeln('до удаления аккаунта');
  291.                         write(ik);
  292.                         delay(1000);
  293.                       end;
  294.                     assign(textt, idd);
  295.                     rewrite(textt);
  296.                     close(textt);
  297.                     break ;
  298.                   end ;
  299.                 //вещи
  300.                 if key = 'kit' then
  301.                   begin
  302.                     clrscr;
  303.                     if kit > 0 then
  304.                       begin
  305.                         kit := kit - 1;
  306.                         in1 := in1 + 2;
  307.                         in4 := in4 + 2;
  308.                         money := money + 100;
  309.                         assign(textt, idd);
  310.                         rewrite(textt);
  311.                         writeln(textt, nik);
  312.                         writeln(textt, password);
  313.                         writeln(textt, money);
  314.                         writeln(textt, stat);
  315.                         writeln(textt, kit);
  316.                         writeln(textt, in1);
  317.                         writeln(textt, in2);
  318.                         writeln(textt, in3);
  319.                         writeln(textt, in4);
  320.                         writeln(textt, in5);
  321.                         writeln(textt, in6);
  322.                         close(textt);
  323.                         writeln('кит был активирован');
  324.                       end
  325.                     else
  326.                       writeln('у вас нету доступных китов');
  327.                     readln;
  328.                   end ;
  329.                 if key = 'kitd' then
  330.                   begin
  331.                     clrscr;
  332.                     writeln('введите пароль');
  333.                     read(pass);
  334.                     if pass = '4567' then
  335.                       begin
  336.                         clrscr;
  337.                         writeln('сколько прибавить китов');
  338.                         read(kitd);
  339.                         kit := kit + kitd;
  340.                         assign(textt, idd);
  341.                         rewrite(textt);
  342.                         writeln(textt, nik);
  343.                         writeln(textt, password);
  344.                         writeln(textt, money);
  345.                         writeln(textt, stat);
  346.                         writeln(textt, kit);
  347.                         writeln(textt, in1);
  348.                         writeln(textt, in2);
  349.                         writeln(textt, in3);
  350.                         writeln(textt, in4);
  351.                         writeln(textt, in5);
  352.                         writeln(textt, in6);
  353.                         close(textt);
  354.                       end ;
  355.                   end ;
  356.                 if key = 'invd' then
  357.                   begin
  358.                     clrscr;
  359.                     writeln('введите пароль');
  360.                     read(pass);
  361.                     if pass = '4567' then
  362.                       begin
  363.                         clrscr;
  364.                         writeln('какую вещь прибавить?');
  365.                         writeln('1.аптечка x', in1);
  366.                         writeln('2.армейская аптечка x', in2);
  367.                         writeln('3.научная аптечка x', in3);
  368.                         writeln('4.водка x', in4);
  369.                         writeln('5.антирадин x', in5);
  370.                         writeln('6.супер антирадин x', in6);
  371.                         write('>');
  372.                         read(key);
  373.                         writeln('сколько прибавить');
  374.                         read(kol);
  375.                         if key = '1' then
  376.                           in1 := in1 + kol ;
  377.                         if key = '2' then
  378.                           in2 := in2 + kol ;
  379.                         if key = '3' then
  380.                           in3 := in3 + kol ;
  381.                         if key = '4' then
  382.                    
  383.                           in4 := in4 + kol ;
  384.                          
  385.                         if key = '5' then
  386.                           in5 := in5 + kol ;
  387.                         if key = '6' then
  388.                           in6 := in6 + kol ;
  389.                         assign(textt, idd);
  390.                         rewrite(textt);
  391.                         writeln(textt, nik);
  392.                         writeln(textt, password);
  393.                         writeln(textt, money);
  394.                         writeln(textt, stat);
  395.                         writeln(textt, kit);
  396.                         writeln(textt, in1);
  397.                         writeln(textt, in2);
  398.                         writeln(textt, in3);
  399.                         writeln(textt, in4);
  400.                         writeln(textt, in5);
  401.                         writeln(textt, in6);
  402.                         close(textt);
  403.                       end ;
  404.                   end ;
  405.                 if key = 'inv' then
  406.                   begin
  407.                     if (stat > 3) or (stat < - 1) then
  408.                       begin
  409.                         clrscr;
  410.                         writeln('_инвентарь_');
  411.                         writeln('инвентарь заблокирован');
  412.                         readln;
  413.                       end ;
  414.                     if stat = 1 then
  415.                       begin
  416.                         //2 ячейки
  417.                         while true do
  418.                           begin
  419.                             clrscr;
  420.                             writeln('<-- <end>');
  421.                             writeln('_инвентарь_');
  422.                             writeln('1.аптечка x', in1);
  423.                             writeln('2.водка x', in4);
  424.                             write('>');
  425.                             read(key);
  426.                             if key = '1' then
  427.                               in1 := in1 - 1 ;
  428.                             if key = '2' then
  429.                               in4 := in4 - 1 ;
  430.                             if key = 'end' then
  431.                               break  ;
  432.                           end;
  433.                       end ;
  434.                     if stat = 2 then
  435.                       begin
  436.                         //4 ячейки
  437.                         while true do
  438.                           begin
  439.                             clrscr;
  440.                             writeln('<-- <end>');
  441.                             writeln('_инвентарь_');
  442.                             writeln('1.аптечка x', in1);
  443.                             writeln('2.армейская аптечка x', in2);
  444.                             writeln('3.водка x', in4);
  445.                             writeln('4.антирадин x', in5);
  446.                             write('>');
  447.                             read(key);
  448.                             if key = '1' then
  449.                               in1 := in1 - 1 ;
  450.                             if key = '2' then
  451.                               in2 := in2 - 1 ;
  452.                             if key = '3' then
  453.                               in4 := in4 - 1 ;
  454.                             if key = '4' then
  455.                               in5 := in5 - 1 ;
  456.                             if key = 'end' then
  457.                               break  ;
  458.                           end;
  459.                       end ;
  460.                     if (stat = 3) or (stat = - 1) then
  461.                       begin
  462.                         //6 ячеек
  463.                         while true do
  464.                           begin
  465.                             clrscr;
  466.                             writeln('<-- <end>');
  467.                             writeln('_инвентарь_');
  468.                             writeln('1.аптечка x', in1);
  469.                             writeln('2.армейская аптечка x', in2);
  470.                             writeln('3.научная аптечка x', in3);
  471.                             writeln('4.водка x', in4);
  472.                             writeln('5.антирадин x', in5);
  473.                             writeln('6.супер антирадин x', in6);
  474.                             write('>');
  475.                             read(key);
  476.                             if key = '1' then
  477.                               in1 := in1 - 1 ;
  478.                             if key = '2' then
  479.                               in2 := in2 - 1 ;
  480.                             if key = '3' then
  481.                               in3 := in3 - 1 ;
  482.                             if key = '4' then
  483.                               in4 := in4 - 1 ;
  484.                             if key = '5' then
  485.                               in5 := in5 - 1 ;
  486.                             if key = '6' then
  487.                               in6 := in6 - 1 ;
  488.                             if key = 'end' then
  489.                               break  ;
  490.                           end;
  491.                       end ;
  492.                     assign(textt, idd);
  493.                     rewrite(textt);
  494.                     writeln(textt, nik);
  495.                     writeln(textt, password);
  496.                     writeln(textt, money);
  497.                     writeln(textt, stat);
  498.                     writeln(textt, kit);
  499.                     writeln(textt, in1);
  500.                     writeln(textt, in2);
  501.                     writeln(textt, in3);
  502.                     writeln(textt, in4);
  503.                     writeln(textt, in5);
  504.                     writeln(textt, in6);
  505.                     close(textt);
  506.                   end ;
  507.                 if key = 'invd' then
  508.                   begin
  509.                   end ;
  510.                 //pda
  511.                 if key = 'rank' then
  512.                   begin
  513.                     clrscr;
  514.                     write('пароль:');
  515.                     read(pass);
  516.                     if pass = '4567' then
  517.                       begin
  518.                         clrscr;
  519.                         writeln('1.новичок');
  520.                         writeln('2.опытный');
  521.                         writeln('3.мастер');
  522.                         writeln('больше. читер');
  523.                         read(stat);
  524.                         assign(textt, idd);
  525.                         rewrite(textt);
  526.                         writeln(textt, nik);
  527.                         writeln(textt, password);
  528.                         writeln(textt, money);
  529.                         writeln(textt, stat);
  530.                         writeln(textt, kit);
  531.                         writeln(textt, in1);
  532.                         writeln(textt, in2);
  533.                         writeln(textt, in3);
  534.                         writeln(textt, in4);
  535.                         writeln(textt, in5);
  536.                         writeln(textt, in6);
  537.                         close(textt);
  538.                       end ;
  539.                   end ;
  540.                 if key = 'user' then
  541.                   begin
  542.                     clrscr;
  543.                     writeln('введите новое имя');
  544.                     read(nik);
  545.                     assign(textt, idd);
  546.                     rewrite(textt);
  547.                     writeln(textt, nik);
  548.                     writeln(textt, password);
  549.                     writeln(textt, money);
  550.                     writeln(textt, stat);
  551.                     writeln(textt, kit);
  552.                     writeln(textt, in1);
  553.                     writeln(textt, in2);
  554.                     writeln(textt, in3);
  555.                     writeln(textt, in4);
  556.                     writeln(textt, in5);
  557.                     writeln(textt, in6);
  558.                     close(textt);
  559.                   end ;
  560.                 if key = 'exit' then
  561.                   begin
  562.                     i := 1;
  563.                   end ;
  564.                 if key = 'money' then
  565.                   begin
  566.                     clrscr;
  567.                     write('пароль:');
  568.                     read(pass);
  569.                     if pass = '4567' then
  570.                       begin
  571.                         begin
  572.                           clrscr;
  573.                           writeln('1)прибавить');
  574.                           writeln('2)убавить');
  575.                           read(menu);
  576.                           if menu = 1 then
  577.                             begin
  578.                               clrscr;
  579.                               writeln('введите число +');
  580.                               read(c);
  581.                               money := money + c;
  582.                               assign(textt, idd);
  583.                               rewrite(textt);
  584.                               writeln(textt, nik);
  585.                               writeln(textt, password);
  586.                               writeln(textt, money);
  587.                               writeln(textt, stat);
  588.                               writeln(textt, kit);
  589.                               writeln(textt, in1);
  590.                               writeln(textt, in2);
  591.                               writeln(textt, in3);
  592.                               writeln(textt, in4);
  593.                               writeln(textt, in5);
  594.                               writeln(textt, in6);
  595.                               close(textt);
  596.                             end ;
  597.                           if menu = 2 then
  598.                             begin
  599.                               clrscr;
  600.                               writeln('введите число -');
  601.                               read(c);
  602.                               money := money - c;
  603.                               assign(textt, idd);
  604.                               rewrite(textt);
  605.                               writeln(textt, nik);
  606.                               writeln(textt, password);
  607.                               writeln(textt, money);
  608.                               writeln(textt, stat);
  609.                               writeln(textt, kit);
  610.                               writeln(textt, in1);
  611.                               writeln(textt, in2);
  612.                               writeln(textt, in3);
  613.                               writeln(textt, in4);
  614.                               writeln(textt, in5);
  615.                               writeln(textt, in6);
  616.                               close(textt);
  617.                             end ;
  618.                         end;
  619.                       end ;
  620.                   end ;
  621.               end;
  622.           end
  623.         else
  624.           write('error');
  625.       end ;
  626.     delay(100);
  627.   until (false);
  628. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top