SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Town of Sythe.org forum

Programming Knowledge
HTML, and i can always learn something new

Other Communitys
Sythe.org forum

How Long have You Played Runescape
I don't play RS

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

Hi. I am new in world of Scar. I want to learn it language and "Town" from Sythe.org Said that he don't recommend none SRL scripts (like mine) so i wanted to check what is SRL. I have found a link to this place. I have posted my script for harvesting Barley in Dofus at one map (it must be correct one so the bank function will work).

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

program DofusFarmer;
var
x, y, z, ile: integer;

Procedure Bank;
 begin
  MoveMouseSmooth(600, 761);
  clickmouse(600,761,true);
  wait(5000);
  MoveMouseSmooth(769, 761);
  clickmouse(769, 761, true);
  wait(5000);
  MoveMouseSmooth(50, 620);
  clickmouse(50, 620, true);
  wait(5000);
  MoveMouseSmooth(957, 761);
  clickmouse(957, 761, true);
  wait(5000);
  MoveMouseSmooth(506, 761);
  clickmouse(506, 761, true);
  wait(5000);
  MoveMouseSmooth(689, 761);
  clickmouse(689, 761, true);
  wait(5000);
  MoveMouseSmooth(600, 761);
  clickmouse(600, 761, true);
  wait(5000);
  MoveMouseSmooth(500, 761);
  clickmouse(500, 761, true);
  wait(5000);
  MoveMouseSmooth(600, 761);
  clickmouse(600, 761, true);
  wait(5000);
  MoveMouseSmooth(1049, 225);
  clickmouse(1049, 225, true);
  wait(5000);
  WriteLN('Opening bank')
  if FindColor(x, y, 2451885, 6, 44, 1270, 778) then
  begin
  MoveMouseSmooth(x, y);
  ClickMouse(x+20, y+20, true);
  wait(1000);
  MoveMouseSmooth(200, 460);
  ClickMouse(200, 460, true);
  MoveMouseSmooth(975, 350);
  holdmouse(975, 350, true);
  MoveMouseSmooth(160, 500);
  releasemouse(975,350,true);
  sendkeys('9999'+chr(13));
  MoveMouseSmooth(1233, 210);
  Clickmouse(1233,210,true);
  end;
  WriteLN('Closing bank');
    MoveMouseSmooth(370, 650);
  clickmouse(370,650,true);
  wait(5000);
  MoveMouseSmooth(645, 90);
  clickmouse(645, 790, true);
  wait(5000);
  MoveMouseSmooth(50, 620);
  clickmouse(50, 620, true);
  wait(5000);
  MoveMouseSmooth(600, 70);
  clickmouse(600, 70, true);
  wait(5000);
  MoveMouseSmooth(690, 75);
  clickmouse(690, 75, true);
  wait(5000);
  MoveMouseSmooth(690, 70);
  clickmouse(690, 70, true);
  wait(5000);
  MoveMouseSmooth(600, 70);
  clickmouse(600, 761, true);
  wait(5000);
  MoveMouseSmooth(960, 70);
  clickmouse(500, 761, true);
  wait(5000);
  MoveMouseSmooth(1227, 580);
  clickmouse(600, 761, true);
  wait(5000);
  MoveMouseSmooth(780, 70);
  clickmouse(1049, 225, true);
  wait(5000);
  MoveMouseSmooth(600, 70);
  clickmouse(1049, 225, true);
  wait(5000);
  ile:= 0;
  WriteLN('Back to harvesting');
 end;

Procedure Kolor;
begin
 z:=100+random(100);
 if FindColortolerance(x, y, 28768, 6, 44, 1270, 778, 1) then
  begin
    MoveMouseSmooth(x, y);
    wait(z);
    clickmouse(x,y,true);
    wait(1200);
    ClickMouse(x+20, y+50, true);
    movemousesmooth(0,0);
    wait(14000);
    ile:=ile+1
    WriteLN('Finished ' + InttoStr(ile) + '\30');
  end;
   if FindColortolerance(x, y, 880383, 6, 44, 1270, 778, 3) then
  begin
    MoveMouseSmooth(x, y);
    wait(z);
    clickmouse(x,y,true);
  end;
end;
begin
 ClearDebug;
 repeat
  wait(1000);
  Kolor;
  if (ile=30) then
   Begin
    WriteLN('Launching Bank Function');
    Bank;
   end;
 until(false);
end.

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

uhm… try to read some srl functions, this is prob ban… and not really hard… try to read some tuts…

From: iloveit8
uhm… try to read some srl functions, this is prob ban… and not really hard… try to read some tuts…

Well i happen to find it an amazing script and im sure you'll do great[/Sarcasm]

didnt see the sarcasm part in ispy, so i was all shocked and stuff lol

Ya just try to read some SRL Functions and use them, also this script is way to simple.

MoveMouseSmooth and CLickMouse get you banned
Please learn how to script with SRL and try again.
Try reading some tutorials in the 'tutorial island' section of the forums.