1. Pascal / Говнокод #24060

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    procedure ustbet;
begin
if (200*GCtrl.CurLines>coins.realBalance) then  begin
if (150*GCtrl.CurLines>coins.realBalance) then  begin
if (100*GCtrl.CurLines>coins.realBalance) then  begin
if (50*GCtrl.CurLines>coins.realBalance) then  begin
    if (40*GCtrl.CurLines>coins.realBalance) then  begin
       if (30*GCtrl.CurLines>coins.realBalance) then  begin
         if (20*GCtrl.CurLines>coins.realBalance) then  begin
           if (15*GCtrl.CurLines>coins.realBalance) then  begin
             if (10*GCtrl.CurLines>coins.realBalance) then  begin
              if (5*GCtrl.CurLines>coins.realBalance) then  begin
                 if (4*GCtrl.CurLines>coins.realBalance) then  begin
                   if (3*GCtrl.CurLines>coins.realBalance) then  begin
                     if (2*GCtrl.CurLines>coins.realBalance) then  begin
                       if (1*GCtrl.CurLines>coins.realBalance) then  begin
 end else Coins.CurBet:=1
 end else Coins.CurBet:=2;
 end else Coins.CurBet:=3;
 end else Coins.CurBet:=4;
 end else Coins.CurBet:=5;
 end else Coins.CurBet:=10;
 end else Coins.CurBet:=15;
 end else Coins.CurBet:=20;
 end else Coins.CurBet:=30;
 end else Coins.CurBet:=40;
 end else Coins.CurBet:=50;
 end else Coins.CurBet:=100;
 end else Coins.CurBet:=150;
 end else Coins.CurBet:=200;
 coins.AllBet:=Coins.CurBet*gctrl.curlines;
end;

    Предположительно, установка текущей ставки в слотовой игре. Но это ещё далеко не самый трэш в этом говнопроекте.

    Запостил: SadButTrue, 03 Апреля 2018

    Комментарии (1) RSS

    Добавить комментарий