Advertisement
ktostam450

BATCH LuckyTest

Sep 20th, 2012
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 0.48 KB | None | 0 0
  1. :main
  2. cls
  3. set /a luck=0
  4. set /a number=1
  5.  
  6. :luck
  7. cls
  8. title Luck - %luck%%
  9. set /a rand=%random% %% 0 + %number%
  10. cls
  11. echo Masz %luck% procent
  12. echo Wybierz numerek od 0 do %number%
  13. set/p "cho=>"
  14. if %cho%==%rand% goto h
  15. goto unluck
  16.  
  17. :h
  18. set /a number=%number%+1
  19. if %number% geq 10 goto win
  20. goto luck
  21.  
  22. :unluck
  23. cls
  24. echo Masz %luck% procent szczescia! Poprawnie: %rand%. Niestety, przegrales.
  25. pause
  26. goto main
  27.  
  28. :win
  29. cls
  30. echo Yeah, you win. Congrats.
  31. pause
  32. goto main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement