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

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.