Results 1 to 13 of 13

Thread: Need Help Autoing Another Game

  1. #1
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help Autoing Another Game

    Ok according to SCAR the device is used to auto ALL online MMORPGs so what im trying to do is make a auto fighter for another game... but i need it to exit when it comes across a certain monster... Jungle King to be exact... i got a BMP of it and everything but its not compiling heres the script

    SCAR Code:
    program MythWarMokkaFinder;
    {.include SRL/SRL.scar}
    var
    WormBMP:Integer;
    x,y,x1,y1:integer;


    Procedure FightWorms;
    begin
    WormBMP:= BitmapFromString(9,4,'z787DAA58BB11180300C03577'+
    'AC73E2297C461FF95F03100057CA142D2C3778C239CD0D460A130'+
    '36627029E59D67B8D6B3BE589836B3DA22CBD5564537D99F3FDC0'+
    'CDB2AAD');
    if(FindBitMap(WormBMP,x,y))then
    begin
    If (FindColorTolerance(x,y,524352,MSX1,MSY1,MSX2,MSY2,15)then
    Mouse(x,y,0,0,True)
    end;
    end.

    P.S. this is just the start >_>

  2. #2
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    link for game maybe?

  3. #3
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here is the script all fixed up. Comments in the script included to show what you did wrong.
    SCAR Code:
    program MythWarMokkaFinder;
    {.include SRL/SRL.scar}
    var
    WormBMP:Integer;
    x1,y1:integer;             //x and y are already in SRL


    Procedure FightWorms;
    begin
      WormBMP:= BitmapFromString(9,4,'z787DAA58BB11180300C03577'+
      'AC73E2297C461FF95F03100057CA142D2C3778C239CD0D460A130'+
      '36627029E59D67B8D6B3BE589836B3DA22CBD5564537D99F3FDC0'+
      'CDB2AAD');
      if(FindBitMap(WormBMP,x,y))then
      begin
        If (FindColorTolerance(x,y,524352,MSX1,MSY1,MSX2,MSY2,15))then  //Didn't put a extra )
        Mouse(x,y,0,0,True);
      end;
    end; //Forgot a end

    begin         //Forgot main loop begin
      SetupSRL;    //forgot to SetupSRL;
      repeat
        FightWorms;   //Didn't put this into the main loop
      until(false);
    end.

    EDIT: Repeats now :O
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

  5. #5
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    You forgot to do the main loop. This is the fixed version

    SCAR Code:
    program MythWarMokkaFinder;
    {.include SRL/SRL.scar}
    var
    WormBMP:Integer;
    x1,y1:integer;


    Procedure FightWorms;
    begin
    WormBMP:= BitmapFromString(9,4,'z787DAA58BB11180300C03577'+
    'AC73E2297C461FF95F03100057CA142D2C3778C239CD0D460A130'+
    '36627029E59D67B8D6B3BE589836B3DA22CBD5564537D99F3FDC0'+
    'CDB2AAD');
    if(FindBitMap(WormBMP,x,y))then
    begin
    If (FindColorTolerance(x,y,524352,MSX1,MSY1,MSX2,MSY2,15))then
    Mouse(x,y,0,0,True)
    end;
    End;

    Begin
    Repeat
    FightWorms;
    Wait(500);
    Until False
    End.

    Edit: That dude beat me . But his doesnt repeat .

  6. #6
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  7. #7
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Omg I Hit Another Error

    ok this is pretty much the same as b4 but i went through and checked to make sure all the mistakes i made last time weren't there... so i cant figure it out...

    SCAR Code:
    program MythWarMokkaFinder;
    {.include SRL/SRL.scar}
    var
    WormBMP:Integer;
    x1,y1:integer;
    JungleKingBMP:Integer;
    escape:Integer;

    Procedure CauseAFight;
    begin
    mouse(7, 363,0,0,true);
    mouse(791,327,0,0,true);
    mouse(791,327,0,0,true);
    end;

    Procedure FindJungleKing;
    begin
    JungleKingBMP:=BitmapFromString(9,3,'z78DA3330201FB8185'+
    '85A184349530B5313530B630B130B2703630313134B286962606A'+
    'E26440090000F71D1F44');
    escape:=BitmapFromString(3,8,'z78DA3330C00E9C0C2C0D4C2D'+
    '0CF002330B530323743526060400A6C98640080300C7A11B74');
    IF (FindBitmap(x,y,JungleKingBMP,MSX1,MSY1,MSX2,MSY2,15))then
    Begin
    if(FindBitMap(x,y,escape,MSX1,MSY1,MSX2,MSY2,15))then
    Mouse(x,y,0,0,true);
    end;
    end;


    Procedure FindAuto;
    begin
    Auto:=BitmapFromString(10,3,'z78DA330A014185B18391B5AB'+
    '81A381998581802A18185B1055018461A183A1B1840648D0D402A'+
    '29B6D000004D9F22C8');

    If(FindBitmap(x,y,Auto,MSX1,MSY1,MSX2,MSY2,15)) then
    Mouse(x,y,0,0,true)
    end;
    End;

    Begin
    SetupSRL;
    Repeat
    FindAuto;
    FindJungleKing;
    Wait(500);
    Until (False);
    End.

  8. #8
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program MythWarMokkaFinder;
    {.include SRL/SRL.scar}
    var
    WormBMP:Integer;
    x1,y1:integer;
    JungleKingBMP, auto :Integer; //Needed to add auto to variables
    escape:Integer;

    Procedure CauseAFight;
    begin
    mouse(7, 363,0,0,true);
    mouse(791,327,0,0,true);
    mouse(791,327,0,0,true);
    end;

    Procedure FindJungleKing;
    begin
    JungleKingBMP:=BitmapFromString(9,3,'z78DA3330201FB8185'+
    '85A184349530B5313530B630B130B2703630313134B286962606A'+
    'E26440090000F71D1F44');
    escape:=BitmapFromString(3,8,'z78DA3330C00E9C0C2C0D4C2D'+
    '0CF002330B530323743526060400A6C98640080300C7A11B74');

    IF (FindBitmapToleranceIn(JungleKingBMP,x,y,MSX1,MSY1,MSX2,MSY2,15))then // procedure name had to be FindBitmapToleranceIn
    Begin
    if(FindBitMapToleranceIn(escape,x,y,MSX1,MSY1,MSX2,MSY2,15))then
    Mouse(x,y,0,0,true);
    end;
    end;


    Procedure FindAuto;
    begin
    Auto:=BitmapFromString(10,3,'z78DA330A014185B18391B5AB'+
    '81A381998581802A18185B1055018461A183A1B1840648D0D402A'+
    '29B6D000004D9F22C8');

    If(FindBitmapToleranceIn(Auto,x,y,MSX1,MSY1,MSX2,MSY2,15)) then
    Mouse(x,y,0,0,true);
    End;      //to many ends

    Begin
    SetupSRL;
    Repeat
    FindAuto;
    FindJungleKing;
    Wait(500);
    Until (False);
    End.
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

  9. #9
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  10. #10
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not for me..
    Successfully compiled
    Line 168: [Hint] (177:1): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Globals.scar
    Line 5: [Hint] (14415:1): Variable 'WORMBMP' never used in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Globals.scar
    Line 6: [Hint] (14416:1): Variable 'X1' never used in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Globals.scar
    Line 6: [Hint] (14416:1): Variable 'Y1' never used in script C:\Program Files\SCAR 3.06\includes\srl\srl\core\Globals.scar
    SRL Compiled in 16msec.
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

  11. #11
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use tims, or just delete MSX1, MSY1, MSX2, MSY2, 15 from the find bitmaps, then at the top near

    replace
    SCAR Code:
    JungleKingBMP:Integer;

    with

    SCAR Code:
    JungleKingBMP, auto :Integer;

  12. #12
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  13. #13
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    remember to look at your other thread too.. http://www.villavu.com/forum/showthread.php?t=11948
    @ my last post.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. my first Java game (shooter game)
    By Lorax in forum Java Help and Tutorials
    Replies: 19
    Last Post: 08-18-2008, 10:48 PM
  2. The Word Game Game
    By Putnam in forum The Bashing Club / BBQ Pit
    Replies: 5
    Last Post: 04-02-2008, 03:07 AM
  3. Autoing and playing a game at the same time.
    By banaantje12 in forum News and General
    Replies: 28
    Last Post: 09-15-2007, 08:14 PM
  4. VB6 Autoing...
    By Jason2gs in forum C#/Visual Basic Help and Tutorials
    Replies: 4
    Last Post: 05-19-2007, 09:03 AM

Posting Permissions

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