authors3 883 B

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. # authors3
  2. *pl 'Rules of the game are very simple:toss a coin 1000 rubles and pull lever. jackpot 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 -= 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 win 2000 rubles'
  15. end
  16. if x_10 >= 850 and x_10 < 990:
  17. set money += 1000
  18. msg 'congratulations, you win 1000 rubles'
  19. end
  20. if x_10 < 850:msg 'Alas you lose, try again'
  21. clr
  22. gt 'authors3'
  23. else
  24. msg 'And how are you going to play without money? Come back when you find the necessary amount'
  25. gt 'authors3'
  26. end
  27. end
  28. act 'Back to the hall':gt 'igravt'
  29. clr
  30. gs 'stat'
  31. set minut += 10
  32. --- authors3 ---------------------------------