532_authors2 921 B

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