Rewrite ore generation

[cavecraft.git] / src / randoms.mpsrc

diff --git a/src/randoms.mpsrc b/src/randoms.mpsrc
index 47208986a7c3ec5ee5961b0963535515e0d27b8e..d4e8dea8279b2fe7c23650b1a5ada694d81c3198 100644 (file)
--- a/src/randoms.mpsrc
+++ b/src/randoms.mpsrc
@@ -6,6 +6,9 @@ interface
  function rnd(max:integer):integer;//Возвращает число от 0 до max\r
  function rnd_pr(pr,p1,p2:integer):integer;\r
 \r
+ (* Возвращает true с вероятностью x/y *)\r
+ function RandomBoolean(x, y : Integer) : Boolean;\r
+\r
 implementation\r
  var\r
   next:integer;\r
@@ -34,4 +37,9 @@ implementation
    if pr>=rnd(101) then rnd_pr:=p1; else rnd_pr:=p2;\r
   end;\r
 \r
-end.
\ No newline at end of file
+ function RandomBoolean(x, y : Integer) : Boolean;\r
+   begin\r
+     RandomBoolean := rnd(y) <= x;\r
+   end;\r
+\r
+end.\r