0
0

531_authors1 1000 B

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