X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2Frandoms.mpsrc;h=d4e8dea8279b2fe7c23650b1a5ada694d81c3198;hp=47208986a7c3ec5ee5961b0963535515e0d27b8e;hb=90bc20fc7666db31948953ec7ae11f6f5f90f509;hpb=1ef13d5bd0592dde48cc837e05b13e93e82db25b

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