Results 1 to 14 of 14

Thread: Near Reality Dice bot

  1. #1
    Join Date
    Jan 2012
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Near Reality Dice bot

    Made it for fun..

    http://www.youtube.com/watch?v=g3u3IGgeOaQ

    watch in best quality

    "!roll" will roll a 100 faced dice and say the result in green if 58 or over and in red if 57 and less.

    "!total" will display curent total rolls, wins and loss.

    Here is my code

    Code:
    program DiceBot;
    {$i srl/srl.simba}
    
    var
    X,Y,Roll,Count,DoWeRoll,DoWeTotal,CountL,CountW,counter:integer;
    
    procedure TypeSendExx(Text: string; PressEnter: Boolean);
    var
      I: Integer;
    begin
      for i := 1 to Length(Text) do
      begin
        {$IFDEF SIMBAMAJOR980}
        SendKeys(Text[i], 1 + Random(1));
        {$ELSE}
        SendKeys(Text[i], 1 + Random(1), 1 + Random(1));
        {$ENDIF}
        Wait(1);
      end;
    
      if (PressEnter) then
        TypeByte(VK_ENTER);
    end;
    
    function DaTotal:boolean;
    begin
    DoWeTotal := DTMFromString('mbgUAAHic7c7BCoMwDAbgtI/m+x/FzeFhoIM5hV2ttro/XYRSHBZ2beA7NPmbtiCiMsEVLlBBDTfpnWki90h74gGd4PMTBnhBD+OBXuaceyfidyZFtIKBGRaw4EBpBPQ3E9tnm9x3cm+RPUZ6cSY8m4N5uMMKfou5oGd//GHPKp3+T5+hLfNycanM+78+/dKs5w==');
    if finddtm(DoWeToTal,X,Y,34,444,250,455)then
    begin
    result:=true;
    end else
    begin
    result:=false;
    end;
    freedtm(DoWeTotal);
    end;
    
    function DaRoll:boolean;
    begin
    DoWeRoll := DTMFromString('mRAUAAHic5c3bCYAwDAXQdAdBreALBMdw/xnUWh9z6BUihFKw4mcDh6bkhgxElKh3aSDNbw4ZFB6a56WjgRoqaB1doD5QxbfumyNMMIOBBSyscMDOmaffeGY5a3h34pwkZ759+V8EN/flfkhuE4jOyMVdKnJ/6wIWV4Bf');
    if finddtm(DoWeRoll,X,Y,34,444,250,455)then
    begin
    result:=true;
    end else
    begin
    result:=false;
    end;
    freedtm(DoWeRoll);
    end;
    
    procedure Rolling;
    begin
      if(DaRoll=true)then
      begin
        repeat
        roll:=1+random(100);
        if (roll>=58)then
          begin
          wait(100);
          inc(CountW);
          typesendexx('green:The roll is -' + inttostr(roll) + '- you won',true);
        end else
          begin
          wait(100);
          inc(CountL);
          typesendexx('red:The roll is -' + inttostr(roll) + '- you lost',true);
          end;
        inc(count);
        inc(counter);
        wait(500);
        until(count=1);
        end else
        begin
        wait(10)
        end;
        if(DaTotal=true)then
        begin
        TypeSendexx('white:Total rolls: ' + IntToStr(Counter) + ' - Total wins: ' + IntToStr(CountW) + ' - Total loss: ' + inttostr(CountL),true);
        end;
    end;
    
    
    
    begin
    cleardebug;
    wait(2000);
    repeat
    cleardebug;
    count:=0
    rolling;
    until(iskeydown(27));
    end.

  2. #2
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Looks nice!
    i like the idea of "total wins: # | total lost: #

    I will try to answer all Runescape related questions!

  3. #3
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    May I suggest taking down that video, or at least editing it to get out your RSN...On a botting video...asking for a ban?

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  4. #4
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Quote Originally Posted by Rezozo View Post
    May I suggest taking down that video, or at least editing it to get out your RSN...On a botting video...asking for a ban?
    I am Zezima
    Really don't need to worry about it, Jagex simply cannot use these forums as evidence; nor would they waste that much man power to do it.




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  5. #5
    Join Date
    Dec 2011
    Location
    Nj
    Posts
    2,341
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    Yea, but YouTube can be used...Or is that protected too? Idk
    And marc, you have a nice account!!

    For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip

  6. #6
    Join Date
    Jan 2012
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Thanks to take care of my account but, as the title says it, its a rsps (a private server)

  7. #7
    Join Date
    Oct 2015
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    This still working?

  8. #8
    Join Date
    Jun 2007
    Location
    Michigan
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    141 Post(s)

    Default

    Quote Originally Posted by yaro1 View Post
    This still working?
    My guess is no, its two years old ha.

  9. #9
    Join Date
    Aug 2014
    Location
    Australia
    Posts
    932
    Mentioned
    53 Post(s)
    Quoted
    495 Post(s)

    Default

    Quote Originally Posted by IROC-Z View Post
    My guess is no, its two years old ha.
    Even worse, isn't that three years old?



    New to scripting? Procedures & Functions for Beginners
    Do you use your computer at night? Just get f.lux

  10. #10
    Join Date
    Jun 2007
    Location
    Michigan
    Posts
    269
    Mentioned
    2 Post(s)
    Quoted
    141 Post(s)

    Default

    Quote Originally Posted by Incurable View Post
    Even worse, isn't that three years old?
    No, I posted it 24 minutes after they did.

    edit: and apparently i think it is still 2014 hahaha

  11. #11
    Join Date
    Oct 2015
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by IROC-Z View Post
    My guess is no, its two years old ha.
    Could you help me with making one?

  12. #12
    Join Date
    Oct 2015
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Could you help me with making one?
    Quote Originally Posted by Incurable View Post
    Even worse, isn't that three years old?

  13. #13
    Join Date
    Aug 2014
    Location
    Australia
    Posts
    932
    Mentioned
    53 Post(s)
    Quoted
    495 Post(s)

    Default

    Quote Originally Posted by yaro1 View Post
    Could you help me with making one?
    Double-posting while simultaneously asking two different people to make you a bot? Niiiiiice.

    No.



    New to scripting? Procedures & Functions for Beginners
    Do you use your computer at night? Just get f.lux

  14. #14
    Join Date
    Jan 2016
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by [XoL] View Post
    I am Zezima
    Really don't need to worry about it, Jagex simply cannot use these forums as evidence; nor would they waste that much man power to do it.
    well they took it down due to copyright claims haha

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
  •