hedgewars/uRandom.pas
changeset 2924 908851e59958
parent 2716 b9ca1bfca24f
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2923:e33ecd95aa1a 2924:908851e59958
    19 {$INCLUDE "options.inc"}
    19 {$INCLUDE "options.inc"}
    20 
    20 
    21 unit uRandom;
    21 unit uRandom;
    22 interface
    22 interface
    23 uses uFloat;
    23 uses uFloat;
    24 {$INCLUDE "proto.inc"}
    24 {$INCLUDE "config.inc"}
    25 
    25 
    26 procedure init_uRandom;
    26 procedure init_uRandom;
    27 procedure free_uRandom;
    27 procedure free_uRandom;
    28 
    28 
    29 procedure SetRandomSeed(Seed: shortstring);
    29 procedure SetRandomSeed(Seed: shortstring);