1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
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;