Results 1 to 6 of 6

Thread: Chance script

  1. #1
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default Chance script

    i made this out of sheer boredom

    SCAR Code:
    program Chance;

    var
      h, t, rolled, fliped  : integer;
      number1, number2, number3, number4, number5, number6 : integer;

    const
      tries = 10; //how many times would you like to give your shot at chance?
      option = 'dice';
      {valid options:
             dice
             coin }

     
    procedure flip;
    begin
      case random(2) of
        0: inc(h);
        1: inc(t);
      end;
      inc(fliped);
      wait(1);
    end;

    procedure coincheck;
    begin
      while fliped < tries do flip;
      writeln('out of ' + inttostr(tries) + ' flips');
      writeln(inttostr(h) + ' have been heads');
      writeln('and ' + inttostr(t) + ' have been tails');
      writeln(' ');
      writeln(' ');
    end;

    function coin : boolean;
    begin
      if option = 'coin' then
      begin
        coincheck;
        result := true;
      end;
    end;

    procedure roll;
    begin
      case random(6) of
        0: inc(number1);
        1: inc(number2);
        2: inc(number3);
        3: inc(number4);
        4: inc(number5);
        5: inc(number6);
      end;
      inc(rolled);
      wait(1);
    end;

    procedure dicecheck;
    begin
      while rolled < tries do roll;
      writeln('out of ' + inttostr(tries) + ' tries');
      writeln('you rolled the number 1 ' + inttostr(number1) + ' times');
      writeln('you rolled the number 2 ' + inttostr(number2) + ' times');
      writeln('you rolled the number 3 ' + inttostr(number3) + ' times');
      writeln('you rolled the number 4 ' + inttostr(number4) + ' times');
      writeln('you rolled the number 5 ' + inttostr(number5) + ' times');
      writeln('you rolled the number 6 ' + inttostr(number6) + ' times');
      writeln(' ');
    end;

    function dice : boolean;
    begin
      if option = 'dice' then
      begin
        dicecheck;
        result := true;
      end;
    end;


    procedure play;
    begin
      coin;
      dice;
    end;

    begin
      cleardebug;
      play;
    end.

    instructions:
    put in how many times you want to roll the dice/ flip the coin
    select if you want to roll the dice or flip the coin

    maybe if i'm really bored later i'll add more to it, like forms and mathematical stuff
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  2. #2
    Join Date
    May 2008
    Location
    Canada
    Posts
    665
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    comon... THAT bored? I find being as bored... as bored as you say, is quite hard for me. I just get games (usually not from a store xD) if that ever happens to me... or read SRL tuts =D.

  3. #3
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    haha, when im bored i make random scar/ srl stuff, and stop when im not so bored or i think of something to do.

    i actually finished this(unlike every other script i try to make :P) and thought it was fun, and said why not post this and get feed back
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  4. #4
    Join Date
    May 2009
    Location
    Texas
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default :P

    nice. seems like something id be doing though. not you :P

  5. #5
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by [Ethan] View Post
    nice. seems like something id be doing though. not you :P
    like i said ethan, i was uber bored :P

    and yes, you will be doing something like this later on
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  6. #6
    Join Date
    Nov 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Cool Ingame runescape dice bot

    I have seen about 3 FC's with a bot that randomly rolls a number on a 100 sided dice and it only activates when a rank/person types !Roll in the fc. The bot then says
    (Username) Rolled A {number} on a 100 side dice
    Now if someone could recreate that bot then i would be so happy!

    According to other scripters it would be simple code.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •