400_avt1 960 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. # avt1
  2. *PL 'Game rules are very simple: toss a coin 10 rubles and you pull the lever. Jackpot 100 thousand rubles.'
  3. *P '<center><img src="images\casino\avt.jpg"></center>'
  4. ACT 'Pull the lever':
  5. if money >= 10:
  6. x_10 = rand(1,1000)
  7. set money -= 10
  8. if x_10 = 1000:
  9. set money += 100000
  10. msg 'You won the jackpot! Congratulations!'
  11. end
  12. if x_10 < 1000 and x_10 >= 850:
  13. set money += 20
  14. msg 'Congratulations, you have won 20 rubles'
  15. end
  16. if x_10 >= 500 and x_10 < 850:
  17. set money += 10
  18. msg 'Congratulations, you have won 10 rubles'
  19. end
  20. if x_10 < 500:
  21. set minut += 10
  22. msg 'Alas, you lost, try again'
  23. end
  24. clr
  25. gt 'avt1'
  26. else
  27. msg 'And how are you going to play without money? Come back when you find the necessary amount'
  28. gt 'avt1'
  29. end
  30. END
  31. ACT 'Back to the Hall':
  32. gt 'igravt'
  33. END
  34. clr
  35. gs 'stat'
  36. set minut += 10
  37. !PL 'In the bag: <<money>> rub.'
  38. --- avt1 ---------------------------------