Results 1 to 12 of 12

Thread: non runescape script

  1. #1
    Join Date
    Jan 2008
    Location
    england
    Posts
    232
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default non runescape script

    i need help with this script

    its for http://apps.facebook.com/mindjolt/games/hover

    i dont know what ive forgotten it just dosent seem to work ?

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try editing this (In Scripts/Flash Games):
    SCAR Code:
    // Script created for game:
    // [url]http://albinoblacksheep.com/flash/kick-ups.php[/url]
    // by JangleBits
    program KickUps;
    var
      x, y: Integer;
    begin
      repeat
        if(FindColorTolerance(x, y, 52479, 1, 1, 350, 320, 25))then
        begin
          MoveMouse(x, y);
          ClickMouse(x, y, True);
          Wait(100);
        end;
      until(False)
    end.

  3. #3
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by 99_ aka ian. View Post
    Try editing this (In Scripts/Flash Games):
    SCAR Code:
    // Script created for game:
    // [url]http://albinoblacksheep.com/flash/kick-ups.php[/url]
    // by JangleBits
    program KickUps;
    var
      x, y: Integer;
    begin
      repeat
        if(FindColorTolerance(x, y, 52479, 1, 1, 350, 320, 25))then
        begin
          MoveMouse(x, y);
          ClickMouse(x, y, True);
          Wait(100);
        end;
      until(False)
    end.

    That wont work. It changes colours.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  4. #4
    Join Date
    Jan 2008
    Location
    england
    Posts
    232
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    yea. the ball changes colour several times as the game goes on

  5. #5
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I can fix this. One second.

    SCAR Code:
    program New;
    var
      DTM, x, y: Integer;
     
    procedure ScriptTerminate;
    begin
      FreeDTM(DTM);
    end;

    begin
      DTM := DTMFromString('78DA631465626010046234F01F88194134103' +
           '08A01E59F32E25403026035764CF8D53801E58509A8790964F1E1' +
           '570300F4090BD5');
      repeat
        if(FindDTM(DTM, x, y, 0, 0, 1000, 1000))then
          MoveMouse(x, y);
      until(False);
    end.

    Hmm.. If it goes partially off screen it gets messed up. I'll make a smaller DTM. Possibly multiple? Not sure yet.
    Last edited by ian.; 07-14-2009 at 10:39 PM.

  6. #6
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    That probably wont find the Circle when its not completely visible :P

  7. #7
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by caused View Post
    That probably wont find the Circle when its not completely visible :P
    Found that out I'm trying to make a square one (had one that worked but forgot to add tolerance/save :'() but none are working :/

  8. #8
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    This One should run endless... Or Until lag occurs xD

    Code:
    program New;
    var
    x,y,xw,xh,newc,black : integer;
    
    begin
    GetClientDimensions(xw,xh);
      black := BitmapFromString(45, 21, 'beNrtwQEBAAAAgiD/r25IQAE' +
           'AwLUBCxMAAQ==');
    
    
    repeat
    wait(10);
    If FindBitmapIn(black,x,y,0,0,xw, xh) then
    begin
    
    MoveMouse(x+20,y+20);
    
    end else
    begin
    GetMousePos(x,y);
    newc := GetColor(x,y);
    If ( FindColor(x,y,NewC,0,0,xw,xh)) then
    begin
    if not((newc = 0)and(newc = 16016386))  then
    MoveMouse(x+20,y+20);
    
    end;
    
    end;
    
    
    
    until(false);
    
    
    
    end.
    Last edited by caused; 07-14-2009 at 11:52 PM. Reason: Some Lag Reduction

  9. #9
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bravo, caused. Would've been easier if I slept.. Been awake for two days :/ Still debating killing myself >.>

  10. #10
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by 99_ aka ian. View Post
    Bravo, caused. Would've been easier if I slept.. Been awake for two days :/ Still debating killing myself >.>
    OMG xD ... How Come ? ... Well dont kill yourself and sleep it over please o_o...

    ~caused

  11. #11
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    It doesnt go on forever...
    I dont know why though...

    T~M

  12. #12
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by The Man View Post
    It doesnt go on forever...
    I dont know why though...

    T~M
    I stopped it after 1000 seconds *_*.. It should really run forever though.

    hmn... Maybe ill add some lag reduction *_*...

    And btw, The Man *_*... I'm still mad at you....,like that: ->

    //Updated the script. Check my other post O_O
    Last edited by caused; 07-14-2009 at 11:54 PM.

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
  •