authors3 888 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. # authors3
  2. clr
  3. minut += 10
  4. gs 'stat'
  5. '<center><img src="images/casino/avt.jpg"></center>'
  6. 'Rules of the game are very simple:toss a coin 1000 <b>₽</b> and pull lever. jackpot 10,000,000 <b>₽</b>.'
  7. act 'Pull the lever':
  8. if money >= 1000:
  9. clr
  10. money -= 1000
  11. x_10 = rand(1, 1000)
  12. if x_10 = 1000:
  13. money += 10000000
  14. msg 'You won the jackpot! Congratulations!'
  15. elseif x_10 < 1000 and x_10 >= 990:
  16. money += 2000
  17. msg 'Congratulations, you have won 2000 <b>₽</b>'
  18. elseif x_10 >= 850 and x_10 < 990:
  19. money += 1000
  20. msg 'congratulations, you have won 1,000 <b>₽</b>'
  21. elseif x_10 < 850:
  22. msg 'Alas you lose, try again'
  23. end
  24. gt 'authors3'
  25. else
  26. msg 'And how are you going to play without money? Come back when you find the necessary amount'
  27. gt 'authors3'
  28. end
  29. end
  30. act 'Back to the hall':gt 'igravt'
  31. --- authors3 ---------------------------------