SRL Archive - Archive

lalaji - SRL Member Application Form

Lalaji

2007-05-12 13:17:28

<!– BEGIN TEMPLATE: formanswers –>
lalaji - SRL Member Application Form
lalaji

What is the meaning to life?

Where you Referred to SRL? If yes, by whom?
yes
Thickasblood

Programming Knowledge
Scar.

Other Communitys
sythe.org, runekeep.com, moparisthebest.com

How Long have You Played Runescape
3 years (never on rsc)

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

This is my first script after my auto talker. I know this is not as good as some of you guy's creations but this is the best i can do (for now). But i will keep trying and get better.

Thank you for giving my this chance!

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program FireMaker;


var
i,x,y,r,s : integer;
         a: string;
         b: string;
         c: string;
         d: string;
         e: string;
    
const
Wtc = 500;             // Should be fine.
Wlc = 3000;            // Time between making a fire. "1000 = 1 sec"
Wtb = True;            // Walk to bank after all the logs are burned?
Tak = True;            // Talk? ANTI-BANN
Kpl = True;            // Keep player logged in after the logs are burned?
rts = True;            // Rotate screen?. ANTI-BANN
Bsc= 4508383;          // DO NOT TOUCH
                      ////
procedure fire;    /////////
begin///////////////////////////////////////////////////////////////////
     /// a,b,c,d will only work if line 64 is true./////////////////////
a:= 'This takes for ever...';        // Your text here./////////////////
b:= 'firemaking is so boaring';      // Text 2 here or leave blank./////
c:= 'almost all out of willows';     // Text 3 here or leave blank./////
d:= 'almost 60 firemaking!!!! :)';   // Text 4 here or leave blank./////

If(findcolortolerance(r,s,1590132,757,382,785,405,20)) then
  begin
    moveMouseSmooth(r+random(10),s+random(10));
    Wait(Wtc+random(100));
    ClickMouse(r+random(10),s+random(10),true);
  end else
    MoveMouseSmooth(83+random(10),396+random(10));
    Wait(Wtc+random(100));
    ClickMouse(83+random(10),396+random(10),true);
    Writeln('inventory tab not found. Useing backup.');

MoveMouseSmooth(586+random(5),238+random(5));
Wait(Wtc+random(100));
ClickMouse(586+random(5),238+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(627+random(5),232+random(5));
Wait(Wtc+random(100));
ClickMouse(627+random(5),232+random(5),true);
Wait(Wlc+random(1000));
if(rts=true) then
begin
keydown(38);
Wait(80+random(10));
keydown(37);
Wait(1000+random(200));
keyup(38);
Wait(80+random(10));
keyup(37);
end else
Writeln('Not rotating the screen. See line 66 for more info.');
MoveMouseSmooth(587+random(5),232+random(5));
Wait(Wtc+random(100));
ClickMouse(587+random(5),233+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(675+random(5),227+random(5));
Wait(Wtc+random(100));
ClickMouse(675+random(5),226+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(587+random(5),235+random(5));
Wait(Wtc+random(100));
if(tak=true) then
  begin
    sendkeys(a + chr(13))
  end else
    Writeln('Not talking. See line 63 for more info.')
ClickMouse(587+random(5),236+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(712+random(5),231+random(5));
Wait(Wtc+random(100));
ClickMouse(711+random(5),232+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(590+random(5),236+random(5));
Wait(Wtc+random(100));;
ClickMouse(590+random(5),237+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(586+random(5),263+random(5));
Wait(Wtc+random(100));
ClickMouse(586+random(5),264+random(5),true);
Wait(Wlc+random(1000));
if(rts=true) then
begin
keydown(40);
Wait(1000+random(500));
Keyup(40);
end else
writeln('Not rotating the screen. See line 66 for more info.');
MoveMouseSmooth(583+random(5),228+random(5));
Wait(Wtc+random(100));
ClickMouse(584+random(5),228+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(623+random(5),265+random(5));
if(tak=true) then
 begin
   sendkeys(b + chr(13))
 end else
   Writeln('Not talking. See line 63 for more info.')
Wait(Wtc+random(100));
ClickMouse(623+random(5),264+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(587+random(5),236+random(5));
Wait(Wtc+random(100));
ClickMouse(587+random(5),234+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(664+random(5),262+random(5));
Wait(Wtc+random(100));
ClickMouse(664+random(5),259+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(591+random(5),236+random(5));
Wait(Wtc+random(100));
ClickMouse(591+random(5),235+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(707+random(5),266+random(5));
Wait(Wtc+random(100));
ClickMouse(707+random(5),265+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(582+random(5),227+random(5));
Wait(Wtc+random(100));
ClickMouse(581+random(5),227+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(586+random(5),298+random(5));
Wait(Wtc+random(100));
ClickMouse(586+random(5),299+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(581+random(5),228+random(5));
Wait(Wtc+random(100));
ClickMouse(581+random(5),229+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(628+random(5),298+random(5));
Wait(Wtc+random(100));
ClickMouse(628+random(5),299+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(589+random(5),232+random(5));
Wait(Wtc+random(100));
ClickMouse(588+random(5),233+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(664+random(5),298+random(5));
Wait(Wtc+random(100));
ClickMouse(664+random(5),298+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(584+random(5),226+random(5));
Wait(Wtc+random(100));
ClickMouse(584+random(5),227+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(717+random(5),304+random(5));
Wait(Wtc+random(100));
ClickMouse(717+random(5),305+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(584+random(5),225+random(5));
Wait(Wtc+random(100));
ClickMouse(584+random(5),229+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(590+random(5),334+random(5));
Wait(Wtc+random(100));
ClickMouse(590+random(5),335+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),230+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),232+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(627+random(5),341+random(5));
Wait(Wtc+random(100));
ClickMouse(627+random(5),342+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),228+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),229+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(668+random(5),336+random(5));
Wait(Wtc+random(100));
ClickMouse(670+random(5),336+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(586+random(5),235+random(5));
Wait(Wtc+random(100));
ClickMouse(586+random(5),235+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(709+random(5),342+random(5));
Wait(Wtc+random(100));
ClickMouse(709+random(5),342+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),233+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),236+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(578+random(5),375+random(5));
Wait(Wtc+random(100));
ClickMouse(577+random(5),375+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(580+random(5),226+random(5));
Wait(Wtc+random(100));
if(tak=true) then
  begin
    sendkeys(c + chr(13))
  end else
    Writeln('Not talking. See line 63 for more info.')
ClickMouse(580+random(5),226+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(628+random(5),370+random(5));
Wait(Wtc+random(100));
ClickMouse(628+random(5),369+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(583+random(5),231+random(5));
Wait(Wtc+random(100));
ClickMouse(583+random(5),230+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(668+random(5),376+random(5));
Wait(Wtc+random(100));
ClickMouse(668+random(5),376+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(591+random(5),226+random(5));
Wait(Wtc+random(100));
ClickMouse(590+random(5),227+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(709+random(5),370+random(5));
Wait(Wtc+random(100));
ClickMouse(710+random(5),370+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),223+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),226+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(571+random(5),407+random(5));
Wait(Wtc+random(100));
ClickMouse(571+random(5),407+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(590+random(5),227+random(5));
Wait(Wtc+random(100));
ClickMouse(590+random(5),226+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(631+random(5),404+random(5));
Wait(Wtc+random(100));
ClickMouse(631+random(5),405+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(583+random(5),226+random(5));
Wait(Wtc+random(100));
if(rts=true) then
begin
keydown(40);
Wait(80+random(10));
keydown(38);
Wait(1000+random(200));
keyup(40);
Wait(80+random(10));
keyup(38);
end else
writeln('Not rotating the screen. See line 66 for more  info.');
ClickMouse(583+random(5),226+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(665+random(5),405+random(5));
Wait(Wtc+random(100));
ClickMouse(665+random(5),406+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(578+random(5),230+random(5));
Wait(Wtc+random(100));
ClickMouse(578+random(5),230+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(708+random(5),408+random(5));
Wait(Wtc+random(100));
ClickMouse(708+random(5),409+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(583+random(5),230+random(5));
Wait(Wtc+random(100));
ClickMouse(583+random(5),231+random(5),true);
Wait(Wtc+random(100));
if(tak=true) then
  begin
    sendkeys(d + chr(13))
  end else
    Writeln('Not talking. See line 63 for more info.')
MoveMouseSmooth(583+random(5),442+random(5));
Wait(Wtc+random(100));
ClickMouse(582+random(5),442+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(591+random(5),233+random(5));
Wait(Wtc+random(100));
ClickMouse(591+random(5),233+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(629+random(5),447+random(5));
Wait(Wtc+random(100));
ClickMouse(629+random(5),446+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(587+random(5),230+random(5));
Wait(Wtc+random(100));
ClickMouse(587+random(5),230+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(664+random(5),440+random(5));
Wait(Wtc+random(100));
ClickMouse(664+random(5),440+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(583+random(5),231+random(5));
Wait(Wtc+random(100));
ClickMouse(583+random(5),233+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(711+random(5),444+random(5));
Wait(Wtc+random(100));
ClickMouse(711+random(5),445+random(5),true);
Wait(Wlc+random(100));
end;

procedure walk;
begin
  If(Wtb=true) then
    begin
      if(findcolor(x,y,4508383,556,3,749,169)) then
        begin
        MoveMouseSmooth(x+random(10),y+random(10));
        keydown(4)
        Wait(500+random(500));
        ClickMouse(x,y,true);
        Keyup(4)
          if(rts=true) then
            begin
              keydown(40);
              Wait(80+random(10));
              keydown(37);
              Wait(2000+random(200));
              keyup(37);
              Wait(30+random(30));
             keyup(40);
           end else
        Writeln('Not rotating the screen. See line 66 for more  info.')
      end else
        if(tak=true) then
          begin
          sendkeys('where did the bank go?' + chr(13))
        end else
          Writeln('Not talking. See line 63 for more info.')
  end else;
    writeln('Did not walk to the bank. Line 62 is false or did not find the right color.')
end;

procedure login;
begin
if(kpl=true) then
  begin
    i:= 0
      repeat
      i:= i+190;
      e:= 'Waited about'                                                                       This takes for ever...
      
        MoveMouse(6+random(760),2+random(100));
        Wait(20000+random(20000));
        MoveMouse(6+random(760),2+random(100));
        Wait(20000+random(20000));
        MoveMouse(6+random(760),2+random(100));;
        Wait(20000+random(20000));
        MoveMouse(6+random(760),2+random(100));
        Wait(20000+random(20000));
        MoveMouse(6+random(760),2+random(100));
        Wait(20000+random(20000));

        Writeln(e + ' ' + IntToStr(i) + ' seconds.');
      Until(i<=1)
  End else
    Writeln('Account will log out in about 90 secs.');
    Writeln('see line 64 for more info.');
end;

procedure siggy;
begin
Cleardebug;
Writeln('                    ~Lalaji Fire Maker~                ');
Writeln('    _   Thank you for useing Lalaji Fire Maker         ');
Writeln('   | |       ______   _       ______     _______   _   ');
Writeln('   | |      |  __  | | |     |  __  |   |__   __| | |  ');
Writeln('   | |      | |__| | | |     | |__| |      | |    | |  ');
Writeln('   | |      |  __  | | |     |  __  |      | |    | |  ');
Writeln('   | |      | |  | | | |     | |  | |  _   | |    | |  ');
Writeln('   | |____  | |  | | | |___  | |  | | | |__/ /    | |  ');
Writeln('   |______| |_|  |_| |_____| |_|  |_|  \____/     |_|  ');
Writeln('=======================================================');
end;
begin
  siggy;
  fire;
  walk;
  login;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

bullzeye95

2007-05-12 13:22:32

No SRL = insta-no. MoveMouseSmooth and ClickMouse = insta-ban. Use SRL next time.

Lalaji

2007-05-12 13:32:27

Ill make a willow cutter + fm maker or dropper. (with SRL)

Should that be good enough?

omgh4x0rz

2007-05-12 13:38:35

From: lalaji
Ill make a willow cutter + fm maker or dropper. (with SRL)

Should that be good enough?

If it is well made. It's the quality that matters.

Also, make sure to include more procedures. The fire procedure in this script is pretty massive and ugly.

Also, I'm sure you could find a way to simplify this with some sort of loop.


MoveMouseSmooth(584+random(5),226+random(5));
Wait(Wtc+random(100));
ClickMouse(584+random(5),227+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(717+random(5),304+random(5));
Wait(Wtc+random(100));
ClickMouse(717+random(5),305+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(584+random(5),225+random(5));
Wait(Wtc+random(100));
ClickMouse(584+random(5),229+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(590+random(5),334+random(5));
Wait(Wtc+random(100));
ClickMouse(590+random(5),335+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),230+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),232+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(627+random(5),341+random(5));
Wait(Wtc+random(100));
ClickMouse(627+random(5),342+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),228+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),229+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(668+random(5),336+random(5));
Wait(Wtc+random(100));
ClickMouse(670+random(5),336+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(586+random(5),235+random(5));
Wait(Wtc+random(100));
ClickMouse(586+random(5),235+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(709+random(5),342+random(5));
Wait(Wtc+random(100));
ClickMouse(709+random(5),342+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(585+random(5),233+random(5));
Wait(Wtc+random(100));
ClickMouse(585+random(5),236+random(5),true);
Wait(Wtc+random(100));
MoveMouseSmooth(578+random(5),375+random(5));
Wait(Wtc+random(100));
ClickMouse(577+random(5),375+random(5),true);
Wait(Wlc+random(1000));
MoveMouseSmooth(580+random(5),226+random(5));
Wait(Wtc+random(100));

Lalaji

2007-05-12 14:05:09

well i could use

begin
repeat
x := X + 50 // just guessing 50
y := y + 50 // just guessing 50
//something
MoveMouse(x+random(5),y+random(5));
//Something
until(x=500); // or something

Thanks for the tip!!!

YoHoJo

2007-05-12 14:19:52

Dont use ClickMouse or MoveMouseSmooth At alL!
They get oyu banned instantly
You need to learn SRL and use
MMouse
And
Mouse

They are less detectable and wont get you banned.
Try reading some tuts at 'Tutorial Island' section of the forums

rkroxpunk

2007-05-13 01:23:40

whats so special about ClickMouse and MoveMouse that makes them so detectable?

YoHoJo

2007-05-13 01:33:50

ClickMouse Clicks so fast
That thers barely a Wait(1) between the click down and the unclick.

Movemouse jumps the mouse from where it is, to where you want it.
It doesnt even really 'move' just jumps to wanted area.

n3ss3s

2007-05-13 02:30:49

got no balws to make a loop?!?!?