402_avt3 916 B

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