SRL Archive

kooldude

2007-04-19 16:03:08

EDIT: NO MORE SCRIPT DELETED IT, WAS Detectedable

JAD

2007-04-19 17:09:44

I'd make it so you have something in the constants that says IsAxeWeilded = True/False. Then, have it do something like this in the dropping procedure:


Procedure Dropage;
begin
  if(IsAxeWeilded = true)then
  begin
    DropAll; //or you could have DropTo(1,28);, doesn't matter.
  end;
  if(IsAxeWeilded = false)then
  begin
    Drop(2,28);
  end;
end;

Going to look over it more and give you more feedback on this post if needed. I'll edit it. Good job for your first script though (If it is) Keep it up.

Edit: You have it ask if axe is weilded, just use that for dropping 2,28 or all, or else its not really used much then is it? :p

Edit2: You have RunAwayDirection('E'); // N, E , S, W, (North, East, South, West)
Keep in mind, you should never have the user need to setup anything except the player arrays, and the constants. Have a constant called something, then make it like RunAwayDirection(constantyoudeclared) And then the user can set it. Not everybody is a good scripter so you need to make it user compatible for the noobiest of noobs ;)

Edit3: Your standards are way off ;) You should learn how to use proper standards and impliment them in your script. You also need to look for the color with tolerance, and you could look for a few colors like

if(FindColorTolerance(x,y,Color1….etc))or
(FindColorTolerance(x,y,Color2….etc))then
begin……….etc.

You really need to check for randoms more, look for IsUpText so it doesn't click on something besides the tree, and not have it wait just 10000 seconds, have it wait until the text isn't up of the tree. Good try, you just need a lot more in it to make it good ;)

kooldude

2007-04-19 17:32:49

From: JAD
I'd make it so you have something in the constants that says IsAxeWeilded = True/False. Then, have it do something like this in the dropping procedure:
Procedure Dropage;
begin
  if(IsAxeWeilded = true)then
  begin
    DropAll; //or you could have DropTo(1,28);, doesn't matter.
  end;
  if(IsAxeWeilded = false)then
  begin
    Drop(2,28);
  end;
end;
Going to look over it more and give you more feedback on this post if needed. I'll edit it. Good job for your first script though (If it is) Keep it up.

Edit: You have it ask if axe is weilded, just use that for dropping 2,28 or all, or else its not really used much then is it? :p

Edit2: You have RunAwayDirection('E'); // N, E , S, W, (North, East, South, West)
Keep in mind, you should never have the user need to setup anything except the player arrays, and the constants. Have a constant called something, then make it like RunAwayDirection(constantyoudeclared) And then the user can set it. Not everybody is a good scripter so you need to make it user compatible for the noobiest of noobs ;)

Edit3: Your standards are way off ;) You should learn how to use proper standards and impliment them in your script. You also need to look for the color with tolerance, and you could look for a few colors like

if(FindColorTolerance(x,y,Color1….etc))or
(FindColorTolerance(x,y,Color2….etc))then
begin……….etc.

You really need to check for randoms more, look for IsUpText so it doesn't click on something besides the tree, and not have it wait just 10000 seconds, have it wait until the text isn't up of the tree. Good try, you just need a lot more in it to make it good ;)

Wow tyvm , Yea ths is my first script, Other than an auto talker >< lol but yea im trying out bitmaps, Ill post script, Can u tell me if its right? :)

{ //-------------------------------------------------------------\\
  ||                         INSTRUCTIONS                        ||
  ||-------------------------------------------------------------||
  ||        BY:  Kooldude                                        ||
  ||                                                             ||
  ||  1. Axe in first INV slot...                                ||
  ||  2. Drag Crosshair into RS window.                          ||
  ||  3. Hit play and fill out forms.                            ||
  ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
  ||-------------------------------------------------------------||
  ||                          INSTRUCTIONS                       ||
  \\-------------------------------------------------------------//
                                                                   }
program Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

var
Startxp, Totallogs, TotalXP,EndXP :integer;

const
TreeColor= 4024416;  //Color of tree

////////////Declaring PLayers/////////////
Procedure DeclarePlayers;
Begin

     HowManyPlayers := 3;
     CurrentPlayer:= 0;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name     := '';
     Players[0].Pass     := '';
     Players[0].Nick     := '';     //3 Lowercase Letters of your username
     Players[0].Integer1 := 35;     //Loads For Player
     Players[0].Boolean1 := False;  //Equip Axe?
     Players[0].Active   := True;

     Players[1].Name     := '';
     Players[1].Pass     := '';
     Players[1].Nick     := '';
     Players[1].Integer1 := 35;
     Players[1].Boolean1 := False;
     Players[1].Active   := True;

     Players[2].Name     := '';
     Players[2].Pass     := '';
     Players[2].Nick     := '';
     Players[2].Integer1 := 35;
     Players[2].Boolean1 := False;
     Players[2].Active   := True;

End;

/////////////////Loading Bitmaps////////////////////////
Var
xii,yii,Bitmap:integer;

Procedure DeclareBMPS;
begin
Bitmap := BitmapFromString(110, 15, 'z78DAED994116C2300844A' +
       'FE4A27D5EC0E7FD8FE4A29BB49171C268833A59B0203C02E13725' +
       'ED7A5B97E5BA5A5A9691170F8F92C3CFA665B513D2BB61599FC97' +
       'B33369B561359D6CFBACFEB7BEAB5C58C22676CB025EFE14C26FB' +
       'AAED633E6ACCA4993C9F49BECA66B21A93ADE63F9964F8D4ED751' +
       'AA3ECF8D8B01E7738B98C18DE62D2FAF75D86C9FDECF3C8B5D9F7' +
       '33C9779EEDEAD89EB1CC3D355107321A1BB37BD1EA7C46984946A' +
       '39C93BA676EF60C2671DD193D633937B6962885F9D10E30A7D199' +
       'CCD13B8B49A5BEDFC8241E8AFF5F61124B9649863433893D7F82C' +
       '9918A1F4FE2D94CF6916498C45D10FE1694BB4760CFD852EF2773' +
       '2B4631E35C14265F91A9DE6546EF38F1CEE078D8FDACF9DDC67F9' +
       'AFC1FC74C5ACE65F2015BA88D2F');
end;

Procedure ClickBMPS;
begin
wait(300+random(32))
movemousesmooth(xii,yii)
wait(32+random(16))
clickmouse(xii,yii,true)
end;

Procedure FindBMPS;
begin
if(FindBitmap(Bitmap,xii,yii))then
ClickBMPS;
end;


///////////////Anti Randomz/////////////// Credits to fourscape :)
Procedure TheAntiRandoms;
Begin
 Status('Random Check')
  FindNormalRandoms;
   wait(10)
    FindTalk;
     wait(10)
  if (FindFight) then
  begin
 Status('Running From a fight.')
  RunAwayDirection('E');   // N, E , S, W, (North, East, South, West)
   Wait(8500 + random(3500));
    RunBack;
end;
 Wait(10);
  FindTalk;
end;

////////////////Finding Tree/////////////////

Procedure FindTree;
begin;
 repeat
 if FindColor(x,y,TreeColor,0,0,765,500) then
   begin
     Wait(10000+random(234))
     Mouse(x,y,10,13,true)
     TheAntiRandoms;
   end else
     Writeln('Cant Find Willows')
 until (InventoryFull);
 if (InventoryFull) then
  DropTo(2,28)
  Totallogs := Totallogs + 27;
end;

/////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
Function CharmEnt(ex, ey: Integer): Boolean;
Var
Xe, Ye: Integer;
Begin

 Status('FindEnt');

 If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
  Begin
   MMouse(Xe, Ye, 5, 5);
   Wait(100+Random(50));
  End else
  Begin
   Exit;
  End

 If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
   Begin
    If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
       (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
        (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
      Begin
        EntsAvoided:= EntsAvoided + 1;
        Result:= True;
      End else
        Result:= False;
        Exit;

  End

End;

//////////////////Progress Report////////////////////
Procedure ProgressReport;
Begin
  SRLRandomsReport;
  WriteLn('[>-----------------------Rayz Report-----------------------<]')
  WriteLn('[>Script Time: ' + (TimeRunning) + '')
  WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) +  '')
  WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
  WriteLn('[>----------------------------------------------------------<]')
end;

/////////////////Progress///////////////////
Procedure Progress;
begin
 StartXP := GetXp('Woodcutting')
      EndXP := GetXp('Woodcutting')
      TotalXP := (EndXP - StartXP) + (TotalXP)
      ProgressReport;
end;

//////////////////MainLoop////////////////////// Credits To Fugate
begin
SetupSrl;
 DeclarePlayers;
 Totallogs:= 0;
  If (Not(LoggedIn)) then LoginPlayer;
   FindAxeHeadColor;
repeat
      If (Not(LoggedIn)) then LoginPlayer;
      ProgressReport;
      FindTree;
      loginplayer;
      until(false)
      wait(1300)
      DeclareBMPS;
      FindBMPS;
      until(false);
end.

JAD

2007-04-19 18:15:50

wait(300+random(32))
movemousesmooth(xii,yii)
wait(32+random(16))
clickmouse(xii,yii,true)

That Will get you banned! What is the bitmap of anyways? And what does it click on?

kooldude

2007-04-19 20:05:53

Can a mod Lock this Thread?

Arvenzis

2007-05-02 04:48:49

Can anybody help me out? Becouse not any script work! And i can't write Scar scripts self. I just wanna have an normal woodcutting script that works on my computer. Every time if i find a script and try it, there is something wrong into the script. Most time it says: Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.SCAR does not exist. But i don't think that something is wrong with the version of SCAR becouse i have got version 2.03 and 3.01! Please help me! :(

Arvenzis

2007-05-02 04:53:50

Can anybody help me out? Becouse not any script work! And i can't write Scar scripts self. I just wanna have an normal woodcutting script that works on my computer. Every time if i find a script and try it, there is something wrong into the script. Most time it says: Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.SCAR does not exist. But i don't think that something is wrong with the version of SCAR becouse i have got version 2.03 and 3.01! Please help me! :(

manak99

2007-07-22 05:48:39

begin
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
/////////////////////////////////////////////////////
//{/ Flax0r //}/
//{/ By //}/
//{/ || //}/
//{/ || //}/
//{/ || //}/
//{/ \/ //}/
//{/ |****************************************| //}/
//{/ |* _ _ _____ _ _ __ __ *| //}/
//{/ |* | | | | | ____| | | | | \ \ / / *| //}/
//{/ |* | |_| | | |__ | | | | \ \/ / *| //}/
//{/ |* | _ | | __| | | | | } { *| //}/
//{/ |* | | | | | |___ | |___ | | / /\ \ *| //}/
//{/ |* |_| |_| |_____| |_____| |_| /_/ \_\ *| //}/
//{/ |****************************************| //}/
//{/ Version 2.1 //}/
//////////////////////////////////////////////////////

{ V.1 - Pick flax, with banking errors ]
[ V.2 - Fixed banking errors, now working on report ]
[ V1 - Everything seems to be working, pretty sweet ]
[ V1.1 - Fixed some minor bugs, and added ending ]
[ V2 - Uses Si, has a more proficient/faster picking system ]
[ V2.1 - Added Anti-Ban features }

{ Instructions: ]
[ 1. Fill out the setup. ]
[ 2. Open ScarScape in High Quality ]
[ 3. Start in the bank, or in the flax field ]
[ 4. Enjoy the script ]
[ USE SCAR Version 2.02 }

{ Credit: ]
[ Idiota - Previous Versions were based on the way she did it. ]
[ Swift - Tested it, and reported bugs, made the top presentation. ]
[ POP - I kinda used his idea with the ending art. ]
[ RancidKraut - Gave me the idea to redo it for 2.02, and use si. ]
[ JaC - Helped with the conversion between changing it to si. ]
[ TheFinalExodus - Helped with multiple pathing, and syntax. ]
[ Thanks for the help! }

Program flax0r;
const
{ Main Setup }

Lamp = 'fletching' ; // Skill for lamp random
Flax = 8000 ; // Number of flax to pick

{ ANTI-BAN Features Setup }
// Random Login/Logout
UserNumber = 1 ; // User set in si.scar, needs to be setup in your si.scar if your using RandomLogout
RandomLogout = True ; // Logs out at a given time, and logs back in with your UserNumber
Intime = 120 ; // Time it keeps you logged in, in minutes
Outtime = 3 ; // Time it keeps you logged out, in minutes
CheckMod = True ; // Checks for mods
// Random Talking UNDER CONSTRUCTION
TalkRandom = True ; // Randomly Talks

{ COLORS Setup }

mmLadder = 2873 ; // Color of Ladder on minimap
mmTree = 90625 ; // Color of Tree symbol on minimap
FlaxColor = 12288 ; // 14999696 (old color) | Color of the flax

var sst,cst,wst,wet,awt,srt,tih,tim,tis,Trips,FlaxPicked,rantalk,kthx,randertalk,x,y:integer;

{.include si.scar}

procedure ProgressReport;
begin
ClearReport;
AddToReport('[ - Flax Picker by heliX - ]');
AddToReport('[ - Progress Report - ]');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
AddToReport('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
AddToReport('Completed: ' + inttostr(Trips) + ' trips');
AddToReport('Picked: ' + inttostr(FlaxPicked) + ' Flax');
AddToReport('Picking Approximately '+inttostr((FlaxPicked/(srt/60))*60)+' Flax per Hour');
end;

procedure Randoms;
begin
CheckRandoms(UserNumber,Lamp,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox]);
end;

procedure BankPro;
begin
Randoms; OpenBank;
Mouse(585,230,2,2,false); wait(500+random(250));
ClickText('Store All',553,205,740,463);
CloseWindow;
end;

procedure ToFlax;
begin
SetRun(true);
if(FindColorRight(x,y,mmtree,579,119,740,164))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmtree,578,112,740,164))then
begin Mouse(x+12+random(3),y+20+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,603,64,712,100))then
begin Mouse(x+22+random(3),y+34+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,598,2,642,40))then
begin Mouse(x+64+random(3),y+71+random(3),0+random(3),0+random(3),true); Flag;
end;
end;
end;
end;
end;

procedure PickFlax;
begin
repeat
if(findobj(x,y,'Pick',FlaxColor,0))then
getmousepos(x,y);
mouse(x,y,0,0,true)
wait(600+random(250))
randoms;
until(invincount=28)
end;

procedure ToBank;
begin
SetRun(false);
Mouse(606,64,1,1,true); Flag;
if(findcolorRight(x,y,mmLadder,558,5,671,122))then
begin Mouse(x+random(3),y+26+random(3),0+random(3),0+random(3),true);Flag;
if(FindColorRight(x,y,mmLadder,554,6,693,141))then
begin Mouse(x-26+random(3),y-23+random(3),0+random(3),0+random(3),true); Flag;
if(findcolorright(x,y,mmTree,557,1,741,47))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmTree,549,2,750,95))then
begin Mouse(x-13+random(3),y-40+random(3),0+random(3),0+random(3),true); wait(1000+random(250)); Flag;
end;
end;
end;
end;
end;

function FindMod1(acc: Integer):boolean;
var
t, tx, ty:Integer;
begin
if(FindBitmapToleranceIn(bmpMod,tx,ty,1,345,110,430,15)) or
(FindBitmapToleranceIn(bmpAdmin,tx,ty,1,345,110,430,15))then
begin
result:=true;
randertalk:=(random(2))
if (randertalk = 1) then
wait(3000+random(2000))
speak('parents g2g')
wait(2000+random(1000))
LogOut;
if (randertalk = 2) then
wait(3000+random(2000))
speak('so hungry bbl')
wait(2000+random(1000))
LogOut;
repeat
Wait(60000);
t:=t+1;
until(t>=30+random(30));
Login(acc);
end;
end;

procedure banprotect;
begin
If (CheckMod = true ) then
FindMod1(UserNumber);
if (randomlogout = true) then
AntiBan(Intime, Outtime, UserNumber)
end;

procedure randomtalk;
begin
rantalk:=(random(5)+1)
if (rantalk = 1) and (talkrandom = true) then
begin
speak('picking flax gets so boring');
end;
if (rantalk = 2) and (talkrandom = true) then
begin
speak('cant wait until i sell this');
end;
if (rantalk = 3) and (talkrandom = true) then
begin
speak('If your happy and you know it clap your hands!');
end;
begin
if (rantalk = 4) and (talkrandom = true) then
speak('omg getting tired of this');
end;
if (rantalk = 5) and (talkrandom = true) then
begin
speak('i cant wait until i have alot of flax');
end;
ChatsOff;
end;

procedure ending;
begin
writeln('.__ .__ .__ ');
writeln('| |__ ____ | | |__|__ ___');
writeln('| | \_/ __ \| | | \ \/ /');
writeln('| \ ___/| |_| |> < ');
writeln('|___| /\___ >____/__/__/\_ \');
writeln(' \/ \/ \/');
end;

procedure kthxtalk;
begin
kthx:=(random(12))
if (TalkRandom = True) and (kthx = 5) then
randomtalk;
end;

begin
LoadInclude('Microsoft Word - Document1',false);
ChatsOff; Randoms;
FlaxPicked:=0;
Trips:=0;
sst:=GetSystemTime;
repeat
ToFlax;
PickFlax;
FlaxPicked:=FlaxPicked+28;
Trips:=FlaxPicked/28;
banprotect;
ToBank;
BankPro;
ProgressReport;
banprotect;
kthxtalk;
until(FlaxPicked>=Flax-27)
ending;
logout;
end.
_________________________________________________________________
i get this message…
Line 46: [Error] (46:1): Identifier expected in script

manak99

2007-07-22 05:50:57

begin
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
/////////////////////////////////////////////////////
//{/ Flax0r //}/
//{/ By //}/
//{/ || //}/
//{/ || //}/
//{/ || //}/
//{/ \/ //}/
//{/ |****************************************| //}/
//{/ |* _ _ _____ _ _ __ __ *| //}/
//{/ |* | | | | | ____| | | | | \ \ / / *| //}/
//{/ |* | |_| | | |__ | | | | \ \/ / *| //}/
//{/ |* | _ | | __| | | | | } { *| //}/
//{/ |* | | | | | |___ | |___ | | / /\ \ *| //}/
//{/ |* |_| |_| |_____| |_____| |_| /_/ \_\ *| //}/
//{/ |****************************************| //}/
//{/ Version 2.1 //}/
//////////////////////////////////////////////////////

{ V.1 - Pick flax, with banking errors ]
[ V.2 - Fixed banking errors, now working on report ]
[ V1 - Everything seems to be working, pretty sweet ]
[ V1.1 - Fixed some minor bugs, and added ending ]
[ V2 - Uses Si, has a more proficient/faster picking system ]
[ V2.1 - Added Anti-Ban features }

{ Instructions: ]
[ 1. Fill out the setup. ]
[ 2. Open ScarScape in High Quality ]
[ 3. Start in the bank, or in the flax field ]
[ 4. Enjoy the script ]
[ USE SCAR Version 2.02 }

{ Credit: ]
[ Idiota - Previous Versions were based on the way she did it. ]
[ Swift - Tested it, and reported bugs, made the top presentation. ]
[ POP - I kinda used his idea with the ending art. ]
[ RancidKraut - Gave me the idea to redo it for 2.02, and use si. ]
[ JaC - Helped with the conversion between changing it to si. ]
[ TheFinalExodus - Helped with multiple pathing, and syntax. ]
[ Thanks for the help! }

Program flax0r;
const
{ Main Setup }

Lamp = 'fletching' ; // Skill for lamp random
Flax = 8000 ; // Number of flax to pick

{ ANTI-BAN Features Setup }
// Random Login/Logout
UserNumber = 1 ; // User set in si.scar, needs to be setup in your si.scar if your using RandomLogout
RandomLogout = True ; // Logs out at a given time, and logs back in with your UserNumber
Intime = 120 ; // Time it keeps you logged in, in minutes
Outtime = 3 ; // Time it keeps you logged out, in minutes
CheckMod = True ; // Checks for mods
// Random Talking UNDER CONSTRUCTION
TalkRandom = True ; // Randomly Talks

{ COLORS Setup }

mmLadder = 2873 ; // Color of Ladder on minimap
mmTree = 90625 ; // Color of Tree symbol on minimap
FlaxColor = 12288 ; // 14999696 (old color) | Color of the flax

var sst,cst,wst,wet,awt,srt,tih,tim,tis,Trips,FlaxPicked,rantalk,kthx,randertalk,x,y:integer;

{.include si.scar}

procedure ProgressReport;
begin
ClearReport;
AddToReport('[ - Flax Picker by heliX - ]');
AddToReport('[ - Progress Report - ]');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
AddToReport('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
AddToReport('Completed: ' + inttostr(Trips) + ' trips');
AddToReport('Picked: ' + inttostr(FlaxPicked) + ' Flax');
AddToReport('Picking Approximately '+inttostr((FlaxPicked/(srt/60))*60)+' Flax per Hour');
end;

procedure Randoms;
begin
CheckRandoms(UserNumber,Lamp,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox]);
end;

procedure BankPro;
begin
Randoms; OpenBank;
Mouse(585,230,2,2,false); wait(500+random(250));
ClickText('Store All',553,205,740,463);
CloseWindow;
end;

procedure ToFlax;
begin
SetRun(true);
if(FindColorRight(x,y,mmtree,579,119,740,164))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmtree,578,112,740,164))then
begin Mouse(x+12+random(3),y+20+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,603,64,712,100))then
begin Mouse(x+22+random(3),y+34+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,598,2,642,40))then
begin Mouse(x+64+random(3),y+71+random(3),0+random(3),0+random(3),true); Flag;
end;
end;
end;
end;
end;

procedure PickFlax;
begin
repeat
if(findobj(x,y,'Pick',FlaxColor,0))then
getmousepos(x,y);
mouse(x,y,0,0,true)
wait(600+random(250))
randoms;
until(invincount=28)
end;

procedure ToBank;
begin
SetRun(false);
Mouse(606,64,1,1,true); Flag;
if(findcolorRight(x,y,mmLadder,558,5,671,122))then
begin Mouse(x+random(3),y+26+random(3),0+random(3),0+random(3),true);Flag;
if(FindColorRight(x,y,mmLadder,554,6,693,141))then
begin Mouse(x-26+random(3),y-23+random(3),0+random(3),0+random(3),true); Flag;
if(findcolorright(x,y,mmTree,557,1,741,47))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmTree,549,2,750,95))then
begin Mouse(x-13+random(3),y-40+random(3),0+random(3),0+random(3),true); wait(1000+random(250)); Flag;
end;
end;
end;
end;
end;

function FindMod1(acc: Integer):boolean;
var
t, tx, ty:Integer;
begin
if(FindBitmapToleranceIn(bmpMod,tx,ty,1,345,110,430,15)) or
(FindBitmapToleranceIn(bmpAdmin,tx,ty,1,345,110,430,15))then
begin
result:=true;
randertalk:=(random(2))
if (randertalk = 1) then
wait(3000+random(2000))
speak('parents g2g')
wait(2000+random(1000))
LogOut;
if (randertalk = 2) then
wait(3000+random(2000))
speak('so hungry bbl')
wait(2000+random(1000))
LogOut;
repeat
Wait(60000);
t:=t+1;
until(t>=30+random(30));
Login(acc);
end;
end;

procedure banprotect;
begin
If (CheckMod = true ) then
FindMod1(UserNumber);
if (randomlogout = true) then
AntiBan(Intime, Outtime, UserNumber)
end;

procedure randomtalk;
begin
rantalk:=(random(5)+1)
if (rantalk = 1) and (talkrandom = true) then
begin
speak('picking flax gets so boring');
end;
if (rantalk = 2) and (talkrandom = true) then
begin
speak('cant wait until i sell this');
end;
if (rantalk = 3) and (talkrandom = true) then
begin
speak('If your happy and you know it clap your hands!');
end;
begin
if (rantalk = 4) and (talkrandom = true) then
speak('omg getting tired of this');
end;
if (rantalk = 5) and (talkrandom = true) then
begin
speak('i cant wait until i have alot of flax');
end;
ChatsOff;
end;

procedure ending;
begin
writeln('.__ .__ .__ ');
writeln('| |__ ____ | | |__|__ ___');
writeln('| | \_/ __ \| | | \ \/ /');
writeln('| \ ___/| |_| |> < ');
writeln('|___| /\___ >____/__/__/\_ \');
writeln(' \/ \/ \/');
end;

procedure kthxtalk;
begin
kthx:=(random(12))
if (TalkRandom = True) and (kthx = 5) then
randomtalk;
end;

begin
LoadInclude('Microsoft Word - Document1',false);
ChatsOff; Randoms;
FlaxPicked:=0;
Trips:=0;
sst:=GetSystemTime;
repeat
ToFlax;
PickFlax;
FlaxPicked:=FlaxPicked+28;
Trips:=FlaxPicked/28;
banprotect;
ToBank;
BankPro;
ProgressReport;
banprotect;
kthxtalk;
until(FlaxPicked>=Flax-27)
ending;
logout;
end.
_________________________________________________________________
i get this message…
Line 46: [Error] (46:1): Identifier expected in script:confused: :confused: im new to this….

EVERSCREAMTODIE

2007-12-01 08:41:27

Awww .. I think it would be a good script if non detectable

Harry

2007-12-01 08:43:36

04-19-2007, 04:03 PM
Yo, don't gravedig. (h)

SRL Archive - RS3 Outdated / Broken Scripts

My Power Cutter :)

kooldude

JAD

kooldude

JAD

kooldude

Arvenzis

Arvenzis

manak99

manak99

EVERSCREAMTODIE

Harry