SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Well my friend told me to come here and to script.. so i think thats what its asking lol

Programming Knowledge
no =\

Other Communitys
UberBroProductions

How Long have You Played Runescape
about 3 years now

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

Ok well… my friend told me about hacking on runescape and i was like ok… ill try it.. and at first i was just like using non srl stuff ( like fagex and stuff ) and i got banned =[ lol so then i came here and used some bots ( :( i was a leecher to be honest ) and then i was like hmmmmmmm i bet i could make a script… so i did lol and then it kept on getting better. And also, i can script all the time and summer is coming so i will be at my moms so i can stay up ALL night and script :) and i like to help others with scripting because the more scripters the more competiton for me :) so i need to keep getting better ( and i dont know if this has to do with this but im currently work on a hybrid hobgoblin script with a friend :D ) well.. i think this is more than a paragraph lol so… yeah… :spot:

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

program PowerCutter4;
///////////////////////////////////////////////////////
//                                                   //
//                    ---SCRIPT---                   //
//                ---POWER CUTTER 4---               //
//                                                   //
///////////////////////////////////////////////////////
//                                                   //
//                   ---AUTHOR---                    //
//                ---PWNT BY PWNT---                 //
//                                                   //
///////////////////////////////////////////////////////
//                                                   //
//                ---DESCRIPTION---                  //
//   ---CUTS TREES OR BANKS AND SWITCHES PLAYERS---  //
//    ---NEED TO STAND BY TREE YOU WANT TO CUT---    //
//   ---IF BANKING THERE MUST BE BANK IN MINIMAP---  //
//                                                   //
///////////////////////////////////////////////////////
//                                                   //
//                  ---VERSION---                    //
//                    ---FOUR---                     //
//                                                   //
///////////////////////////////////////////////////////

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/woodcutting.scar}

var Loads: Integer;

const
TreeColor = 4821128;//Set the color of the tree
TypeOfTree = 'Oak';//What Kind Of Tree To Chop
TimeToWait = 5000;//Time Before Clicking Next Tree
StartPlayer = 0;
NumberOfUsers = 6;
LoadsPerPerson = 15;//How many loads for each player?
Bank = True;//True To Bank False To Drop

//-----=-----=-----=-----=Player Setup=-----=-----=-----=-----\\
procedure DeclarePlayers;
begin

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

  Players[0].Name :='------------';
  Players[0].Pass :='--------------------';
  Players[0].Nick :='----';
  Players[0].Active:=True;
  
  Players[1].Name :='------------';
  Players[1].Pass :='--------------------';
  Players[1].Nick :='----';
  Players[1].Active:=True;
  
  Players[2].Name :='------------';
  Players[2].Pass :='--------------------';
  Players[2].Nick :='----';
  Players[2].Active:=True;
  
  Players[3].Name :='------------';
  Players[3].Pass :='--------------------';
  Players[3].Nick :='----';
  Players[3].Active:=True;
  
  Players[4].Name :='------------';
  Players[4].Pass :='--------------------';
  Players[4].Nick :='----';
  Players[4].Active:=True;
  
  Players[5].Name :='------------';
  Players[5].Pass :='--------------------';
  Players[5].Nick :='----';
  Players[5].Active:=True;
  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
 end;

//-----=-----=-----=-----=Auto Responder=-----=-----=-----=-----\\
procedure Responder;
begin
 If(InChat('Wcing level') or
    InChat('Wcing level?') or
    InChat('Wcing levels') or
    InChat('Wcing levels?') or
    InChat('Wcing lvl') or
    InChat('Wcing lvl?') or
    InChat('Wcing lvls') or
    InChat('Wcing lvls?') or
    InChat('Woodcutting level') or
    InChat('Woodcutting level?') or
    InChat('Woodcutting levels') or
    InChat('Woodcutting levels?') or
    InChat('Woodcutting lvl') or
    InChat('Woodcutting lvl?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?') or
    InChat('Woodcuttin level') or
    InChat('Woodcuttin level?') or
    InChat('Woodcuttin levels') or
    InChat('Woodcuttin levels?') or
    InChat('Woodcuttin lvl') or
    InChat('Woodcuttin lvl?') or
    InChat('Woodcuttin lvls') or
    InChat('Woodcuttin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Woodcutting')));
   end;

 If(InChat('Mining level') or
    InChat('Mining level?') or
    InChat('Mining levels') or
    InChat('Mining levels?') or
    InChat('Mining lvl') or
    InChat('Mining lvl?') or
    InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Minin level') or
    InChat('Minin level?') or
    InChat('Minin levels') or
    InChat('Minin levels?') or
    InChat('Minin lvl') or
    InChat('Minin lvl?') or
    InChat('Minin lvls') or
    InChat('Minin lvls?') or
    InChat('Mine level') or
    InChat('Mine level?') or
    InChat('Mine levels') or
    inChat('Mine levels?') or
    InChat('Mine lvl') or
    InChat('Mine lvl?') or
    InChat('Mine lvls') or
    InChat('Mine lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Mining')));
   end;

 If(InChat('Fishing level') or
    InChat('Fishing level?') or
    InChat('Fishing levels') or
    InChat('Fishing levels?') or
    InChat('Fishing lvl') or
    InChat('Fishing lvl?') or
    InChat('Fishing lvls') or
    InChat('Fishing lvls?') or
    InChat('Fishin level') or
    InChat('Fishin level?') or
    InChat('Fishin levels') or
    InChat('Fishin levels?') or
    InChat('Fishin lvl') or
    InChat('Fishin lvl?') or
    InChat('Fishin lvls') or
    InChat('Fishin lvls?') or
    InChat('Fish level') or
    InChat('Fish level?') or
    InChat('Fish levels') or
    InChat('Fish levels?') or
    InChat('Fish lvl') or
    InChat('Fish lvl?') or
    InChat('Fish lvls') or
    InChat('Fish lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Fishing')));
   end;

 If(InChat('Cooking level') or
    InChat('Cooking level?') or
    InChat('Cooking levels') or
    InChat('Cooking levels?') or
    InChat('Cooking lvl') or
    InChat('Cooking lvl?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?') or
    InChat('Cookin level') or
    InChat('Cookin level?') or
    InChat('Cookin levels') or
    InChat('Cookin levels?') or
    InChat('Cookin lvl') or
    InChat('Cookin vl?') or
    InChat('Cookin lvls') or
    InChat('Cookin lvls?') or
    InChat('Cook level') or
    InChat('Cook level?') or
    InChat('Cook levels') or
    InChat('Cook levels?') or
    InChat('Cook lvl') or
    InChat('Cook lvl?') or
    InChat('Cook lvls') or
    InChat('Cook lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Cooking')));
   end;

 If(InChat('Firemaking level') or
    InChat('Firemaking level?') or
    InChat('Firemaking levels') or
    InChat('Firemaking levels?') or
    InChat('Firemaking lvl') or
    InChat('Firemaking lvl?') or
    InChat('Firemaking lvls') or
    InChat('Firemaking lvls?') or
    InChat('Fm level') or
    InChat('Fm level?') or
    InChat('Fm levels') or
    InChat('Fm levels?') or
    InChat('Fm lvl') or
    InChat('Fm lvl?') or
    InChat('Fm lvls') or
    InChat('Fm lvls?') or
    InChat('Firemakin level') or
    InChat('Firemakin level?') or
    InChat('Firemakin levels') or
    InChat('Firemakin levels?') or
    InChat('Firemakin lvl') or
    InChat('Firemakin lvl?') or
    InChat('Firemakin lvls') or
    InChat('Firemakin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Firemaking')));
   end;

 If(InChat('Smithing level') or
    InChat('Smithing level?') or
    InChat('Smithing levels') or
    InChat('Smithing levels?') or
    InChat('Smithing lvl') or
    InChat('Smithing lvl?') or
    InChat('Smithing lvls') or
    InChat('Smithing lvls?') or
    InChat('Smith level') or
    InChat('Smith level?') or
    InChat('Smith levels') or
    InChat('Smith levels?') or
    InChat('Smith lvl') or
    InChat('Smith lvl?') or
    InChat('Smith lvls') or
    InChat('Smith lvls?') or
    InChat('Smithin level') or
    InChat('Smithin level?') or
    InChat('Smithin levels') or
    InChat('Smithin levels?') or
    InChat('Smithin lvl') or
    InChat('Smithin lvl?') or
    InChat('Smithin lvls') or
    InChat('Smithin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Smithing')));
   end;

 If(InChat('Crafting level') or
    InChat('Crafting level?') or
    InChat('Crafting levels') or
    InChat('Crafting levels?') or
    InChat('Crafting lvl') or
    InChat('Crafting lvl?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?') or
    InChat('Craftin level') or
    InChat('Craftin level?') or
    InChat('Craftin levels') or
    InChat('Craftin levels?') or
    InChat('Craftin lvl') or
    InChat('Craftin lvl?') or
    InChat('Craftin lvls') or
    InChat('Craftin lvls?') or
    InChat('Craft level') or
    InChat('Craft level?') or
    InChat('Craft levels') or
    InChat('Craft levels?') or
    InChat('Craft lvl') or
    InChat('Craft lvl?') or
    InChat('Craft lvls') or
    InChat('Craft lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Crafting')));
   end;

 If(InChat('Runecrafting level') or
    InChat('Runecrafting level?') or
    InChat('Runecrafting levels') or
    InChat('Runecrafting levels?') or
    InChat('Runecrafting lvl') or
    InChat('Runecrafting lvl?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?') or
    InChat('Runecraftin level') or
    InChat('Runecraftin level?') or
    InChat('Runecraftin levels') or
    InChat('Runecraftin levels?') or
    InChat('Runecraftin lvl') or
    InChat('Runecraftin lvl?') or
    InChat('Runecraftin lvls') or
    InChat('Runecraftin lvls?') or
    InChat('Rc level') or
    InChat('Rc level?') or
    InChat('Rc levels') or
    InChat('Rc levels?') or
    InChat('Rc lvl') or
    InChat('Rc lvl?') or
    InChat('Rc lvls') or
    InChat('Rc lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Runecrafting')));
   end;

 If(InChat('Fletching level') or
    InChat('Fletching level?') or
    InChat('Fletching levels') or
    InChat('Fletching levels?') or
    InChat('Fletching lvl') or
    InChat('Fletching lvl?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?') or
    InChat('Fletch level') or
    InChat('Fletch level?') or
    InChat('Fletch levels') or
    InChat('Fletch levels?') or
    InChat('Fletch lvl') or
    InChat('Fletch lvl?') or
    InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletchin level') or
    InChat('Fletchin level?') or
    InChat('Fletchin levels') or
    InChat('Fletchin levels?') or
    InChat('Fletchin lvl') or
    InChat('Fletchin lvl?') or
    InChat('Fletchin lvls') or
    InChat('Fletchin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Fletching')));
   end;
   
 If(InChat('Hunter level') or
    InChat('Hunter level?') or
    InChat('Hunter levels') or
    InChat('Hunter levels?') or
    InChat('Hunter lvl') or
    InChat('Hunter lvl?') or
    InChat('Hunter lvls') or
    InChat('Hunter lvls?') or
    InChat('Hunting level') or
    InChat('Hunting level?') or
    InChat('Hunting levels') or
    InChat('Hunting levels?') or
    InChat('Hunting lvl') or
    InChat('Hunting lvl?') or
    InChat('Hunting lvls') or
    InChat('Hunting lvls?') or
    InChat('Huntin level') or
    InChat('Huntin level?') or
    InChat('Huntin levels') or
    InChat('Huntin levels?') or
    InChat('Huntin lvl') or
    InChat('Huntin lvl?') or
    InChat('Huntin lvls') or
    InChat('Huntin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Hunter')));
   end;
   
 If(InChat('Slayer level') or
    InChat('Slayer level?') or
    InChat('Slayer levels') or
    InChat('Slayer levels?') or
    InChat('Slayer lvl') or
    InChat('Slayer lvl?') or
    InChat('Slayer lvls') or
    InChat('Slayer lvls?') or
    InChat('Slaying level') or
    InChat('Slaying level?') or
    InChat('Slaying levels') or
    InChat('Slaying levels?') or
    InChat('Slaying lvl') or
    InChat('Slaying lvl?') or
    InChat('Slaying lvls') or
    InChat('Slaying lvls?') or
    InChat('Slayin levels') or
    InChat('Slayin level') or
    InChat('Slayin level?') or
    InChat('Slayin levels?') or
    InChat('Slayin lvl') or
    InChat('Slayin lvl?') or
    InChat('Slayin lvls') or
    InChat('Slayin lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Slayer')));
   end;
   
 If(InChat('Farming level') or
    InChat('Farming level?') or
    InChat('Farming level') or
    InChat('Farming levels?') or
    InChat('Farming lvl') or
    InChat('Farming lvl?') or
    InChat('Farming lvls') or
    InChat('Farming lvlv?') or
    InChat('Farmin level') or
    InChat('Farmin level?') or
    InChat('Farmin levels') or
    InChat('Farmin levels?') or
    InChat('Farmin lvl') or
    InChat('Farmin lvl?') or
    InChat('Farmin lvls') or
    InChat('Farmin lvls?') or
    InChat('Farm level') or
    InChat('Farm level?') or
    InChat('Farm levels') or
    InChat('Farm levels?') or
    InChat('Farm lvl') or
    InChat('Farm lvl?') or
    InChat('Farm lvls') or
    InChat('Farm lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Farming')));
   end;
    
 If(InChat('Prayer level') or
    InChat('Prayer level?') or
    InChat('Prayer levels') or
    InChat('Prayer levels?') or
    InChat('Prayer lvl') or
    InChat('Prayer lvl?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?') or
    InChat('Pray level') or
    InChat('Pray level?') or
    InChat('Pray levels') or
    InChat('Pray levels?') or
    InChat('Pray lvl') or
    InChat('Pray lvl?') or
    InChat('Pray lvls') or
    InChat('Pray lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')));
   end;

 If(InChat('Attack level') or
    InChat('Attack level?') or
    InChat('Attack levels') or
    InChat('Attack levels?') or
    InChat('Attack lvl') or
    InChat('Attack lvl?') or
    InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Attk level') or
    InChat('Attk level?') or
    InChat('Attk levels') or
    InChat('Attk levels?') or
    InChat('Attk lvl') or
    InChat('Attk lvl?') or
    InChat('Attk lvls') or
    InChat('Attk lvls?') or
    InChat('Atk level') or
    InChat('Atk level?') or
    InChat('Atk levels') or
    InChat('Atk levels?') or
    InChat('Atk lvl') or
    InChat('Atk lvl?') or
    InChat('Atk lvls') or
    InChat('Atk lvls?') or
    InChat('Attak level') or
    InChat('Attak level?') or
    InChat('Attak levels') or
    InChat('Attack levels?') or
    InChat('Attak lvl') or
    InChat('Attak lvl?') or
    InChat('Attak lvls') or
    InChat('Attak lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Attack')));
   end;

 If(InChat('Strength level') or
    InChat('Strength level?') or
    InChat('Strength levels') or
    InChat('Strength levels?') or
    InChat('Strength lvl') or
    InChat('Strength lvl?') or
    InChat('Strength lvls') or
    InChat('Strength lvls?') or
    InChat('Str level') or
    InChat('Str level?') or
    InChat('Str levels') or
    InChat('Str levels?') or
    InChat('Str lvl') or
    InChat('Str lvl?') or
    InChat('Str lvls') or
    InChat('Str lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Strength')));
   end;

 If(InChat('Defence level') or
    InChat('Defence level?') or
    InChat('Defence levels') or
    InChat('Defence lvls?') or
    InChat('Defence lvl') or
    InChat('Defence lvl?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?') or
    InChat('Def level') or
    InChat('Def level?') or
    InChat('Def levels') or
    InChat('Def levels?') or
    InChat('Def lvl') or
    InChat('Def lvl?') or
    InChat('Def lvls') or
    InChat('Def lvls?') or
    InChat('Defense level') or
    InChat('Defense level?') or
    InChat('Defense levels') or
    InChat('Defense levels?') or
    InChat('Defense lvl') or
    InChat('Defense lvl?') or
    InChat('Defense lvls') or
    InChat('Defense lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Defense')));
   end;

 If(InChat('Mage level') or
    InChat('Mage level?') or
    InChat('Mage levels') or
    InChat('Mage levels?') or
    InChat('Magic level') or
    InChat('Magic level?') or
    InChat('Magic levels') or
    InChat('Magic levels?') or
    InChat('Mage lvl') or
    InChat('Mage lvl?') or
    InChat('Mage lvls') or
    InChat('Magic lvl') or
    InChat('Magic lvl?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Magic')));
   end;

 If(InChat('Range level') or
    InChat('Ranged level') or
    InChat('Range level?') or
    InChat('Ranged level?') or
    InChat('Range levels') or
    InChat('Ranged levels') or
    InChat('Range levels?') or
    InChat('Ranged levels?') or
    InChat('Range lvl') or
    InChat('Ranged lvl') or
    InChat('Range lvl?') or
    InChat('Ranged lvl?') or
    InChat('Range lvls') or
    InChat('Ranged lvls') or
    InChat('Range lvls?') or
    InChat('Ranged lvls?') or
    InChat('Ranging level') or
    InChat('Ranging level?') or
    InChat('Ranging levels') or
    InChat('Ranging levels?') or
    InChat('Ranging lvl') or
    InChat('Ranging lvl?') or
    InChat('Ranging lvls') or
    InChat('Ranging lvls?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Ranged')));
   end;

 If(InChat('Hp level') or
    InChat('Hp level?') or
    InChat('Hp levels') or
    InChat('Hp levels?') or
    InChat('Hp lvl') or
    InChat('Hp lvl?') or
    InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint level') or
    InChat('Hitpoint level?') or
    InChat('Hitpoint levels') or
    InChat('Hitpoint levels?') or
    InChat('Hitpoint lvl') or
    InChat('Hitpoint lvl?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hp') or
    InChat('Hitpoints') or
    InChat('HitPonts?') or
    InChat('Hp?')) then
   begin
    TypeSend(IntToStr(GetSkillLevel('Hitpoints')));
   end;

 If(InChat('Hi') or
    InChat('Hey') or
    InChat('Hello') or
    InChat('Sup')) then
  begin
    TypeSend('Hey');
  end;
end;

//-----=-----=-----=-----=AntiBan=-----=-----=-----=-----\\
procedure StupidBan;
begin
if(random(100) < 10)then
begin
  case random(10) of
    0 : HoverSkill('random', False);
    1 : RotateEvery(20 + Random(10));
    2 : LeaveScreenEvery(5 + Random(5));
    3 : HoverEvery(15 + Random(5), 'random');
    4 : PickUpMouse;
    5 : BoredEvery(9 + Random(24));
    7 : DoEmote(1 + Random(20));
    8 : HoverSkill('magic',False);
    9 : begin
         GameTab(1+random(12));
         wait(100+random(100));
         GameTab(4);
        end;
  end;
end;
end;

//-----=-----=-----=-----=AntiRandoms=-----=-----=-----=-----\\
procedure DoAntiRandoms;
begin
 FindMod;
 FindDead;
 FindDemon;
 SolveCerter;
 FindTalk;
 FindName;
 FindLamp(Players[CurrentPlayer].Skill);
end;

//-----=-----=-----=-----=Ent/Axe Head Finding=-----=-----=-----=-----\\
function FindTheEnt(TreeColor: Integer): Boolean;
begin
 If(FindEnt(TreeColor))then
  begin
    Mouse(648,83,1,1,true);
    FTwait(30);
  end;
end;

Function FindColors: Boolean;
begin
  GameTab(4);
  result := FindAxeHeadColor;
end;

Function FindAxeHead: Boolean;
begin
  AttachHead;
end;

//-----=-----=-----=-----=Proggy=-----=-----=-----=-----\\
procedure ProgressReport;
begin
ClearDebug;
    Writeln('| Power Cutter 4 |');
    Writeln('|                                             |');
    Writeln('| Did ' + IntToStr(Loads) + ' Loads |');
    Writeln('|                                             |');
    Writeln('| Time Worked: ' + (ScriptTime2(2)) +' |');
    Writeln('|                                             |');
    Writeln('| Power Cutter 4 |');
end;

//-----=-----=-----=-----=Tree Finding=-----=-----=-----=-----\\
procedure FindTheTree;
begin
 If(FindColorSpiral(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))and
 IsUpTextMulti('Cho','dow',TypeOfTree) then
  begin
   Writeln('Found Tree');
  end else
   If not(FindColorSpiral(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2)) then
   Exit;
end;

//-----=-----=-----=-----=Tree Cutting=-----=-----=-----=-----\\
procedure CutTheTree;
var
  WaitMark:Integer;
  TheMarkTime:Integer;
begin
MarkTime(WaitMark)
repeat
TheMarkTime:=TimeFromMark(WaitMark)
Writeln(inttostr(TheMarkTime))
Wait(50+random(51))
Cleardebug;
until(TheMarkTime>=TimeToWait)

begin
repeat
MMouse(x,y,0,0);
  Until IsUpTextMulti('Cho','dow',TypeOfTree);
  If IsUpTextMulti('Cho','dow',TypeOfTree) then
  begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,false);
    wait(1000+random(100));
    ChooseOption(x,y,''+TypeOfTree+'');
    wait(100+random(10));
    DoAntiRandoms;
   If(IsFKeyDown(12))then terminatescript;
  end;
 end;
  If not (FindColorSpiral(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2)) then
  begin
   HighestAngle;
   PerfectNorth;
 end;
end;

//-----=-----=-----=-----=Dropping Or Banking=-----=-----=-----=-----\\
procedure DropOrBank;
 begin
  If (Bank=True) then
   begin
    Repeat
     CutTheTree;
      until (InvFull);
       HighestAngle;
       MakeCompass('N');
       GetSymbolColor(x,y,'bank');
       Mouse(x,y,0,0,true);
       OpenBankGlass('db',false,false);
       DepositAll;
       CloseBank;
       Mouse(x,y,3,3,true);
       CutTheTree;
     Loads:= Loads + 1
    end;

   If (Bank=False) then
    begin
     repeat
      DropAllLogs;
    until(InvEmpty)
   Loads:= Loads + 1
 end;
end;

//-----=-----=-----=-----=Main Loop=-----=-----=-----=-----\\
Procedure MainLoop;
begin
 ActivateClient;
 ClearDebug;
 SetupSRL;
 DeclarePlayers;
If(not(LoggedIn)) then
 LoginPlayer;
 DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd - Microsoft Internet Explorer');
 FindAxeHeadColor;
repeat
 NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
 FindColors;
 FindTheTree;
 CutTheTree;
 Responder;
 FindTheEnt(TreeColor);
 FindAxeHead;
 AttachHead;
 StupidBan;
 DropOrBank;
  If(Loads = LoadsPerPerson)then NextPlayer(False);
   ProgressReport;
    until(Players[CurrentPlayer].Active=False);
  end;
  
begin
 repeat
 MainLoop;
  until(False);
end.

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

No, sorry.

I think you need to learn more about the player array. You have declare players, but don't even utilize the power of it by switching players if someone gets in trouble. Which brings me to another point, I don't see very many failsafes to handle problems if something unexpected happens.

And I don't think you're banking is going to be very reliable either. From my experience with my own woodcutting scripts, the srl banking functions need some backup because they don't work 100%.


It is definitely a good start though. I'm sure you will become a good scripter with a little more practice. Keep up the good work.

Sorry pwnt, but I'm going to have to vote no. Almost all of this script is an auto responder, which is really easy and I see this exact same auto responder all the time.

You don't look for the color with tolerance, not enough fail safes, no random parameters for clicking.

And in your banking or dropping procedure, you have it bank no matter what the user set, then if they put bank to false, it will drop the logs which you just deposited.

Sorry, its a no from me for now. Script is too simple.

Keep at it though if you don't get in this time.

P.S. You should read my tutorial (links in sig) Learning the things to become a SRL member.

hmmmmmmm yeah… i dont really think im gonna become a member but i like the suggestions from good scripters… and ill do some stuff about that…thanks…

Good that u atleast had a script to apply with, but theres a few things in there i didnt really like.

Well, standards .. U should download a program (cant remember link right now) to make proper indenting.

Loops without failsafes.

repeat
MMouse(x,y,0,0);
  Until IsUpTextMulti('Cho','dow',TypeOfTree);

Even with failsafes this doesnt make much sense to me because there isnt anything to search the color there so it wont move the mouse anywhere.

That autoresponder is just huge and not really necessary and might lagg too.

GetSymbolColor(x,y,'bank');

what if theres no symbol around?

The functions FindColors; and FindAxeHead; are not really necessary because u could just use the Attachead; for example instead of making a new procedure just to use that.

Im sorry, but no, still needs some improvements, but after some improving could be good enough.

well if theres no bank symbol there shouldnt be banking and it will drop it…

woo! 400% no :)

…can everyone just vote no… i wanna do somethin

Pwnt I would like to point out that on a forum its bad style to make many posts one after another, instead you should use the edit button.

Meh i totaly get rid of that autotalker.
They make so mad mad, they are very stupid and unnecessary.
Work more on the actaul coding of the script =)
Id try making more failsafes, you have a bunch of repeat untils without failsafes.
Try addding a timer to all of the so its like

Until SOMETHING or TimeFromMark(ASDF)>30000

ok… now i have some good ides, but i have to wait a month to apply again right?

EDIT: yeah.. sorry about that =\

From: Pwnt by Pwnt
ok… now i have some good ides, but i have to wait a month to apply again right?

\

At least you are trying, Chances are this application will be up for a few days, so if you have another script or can work some real magic with this…Show us what you are made of…Otherwise, yes, please take a month to read up and practice a bit more, Good Luck, RAM

oh ok thanks :)

I'm glad that you applied with good app but the script seems to simple and as other people said, well over half is autoresponder.

suggestions from good scripters

He knows what hes talking about hehe :D
I, The Great n3ss3s assign you on a quest for the SRL MultiPlayer UberMiner
I got in with a powerminer which ofcourse got boreas shaking in his boots.
The shaking was because I didnt have standards there hehe. Good thing you have standards, the script is not too bad but its maybe not enough. I vote to that which has more votes.

I like you, i wish you could be a SRL member, But. This script is basicaly made out of anti-Ban :/ and for you're choping procedure have FindObjTol( I think thats it?) or just FindObj, or FindObj3(It looks from center out), Its better then if isuptext…Well…hope that helped :)


-Ashur

:P it's just findobj. It already contains tol

hmmmmmmm idk if im supposed to post here… but i was just gonna say TYSM for all the somments and criticism ( I have NO idea how to spell that lol ) :D but im gonna stop making power choppers :) and im making a new alkharid fisher/banker/cooker :o i just started and its 138 lines :) ( only 23 lines are auto responder

procedure LOLResponder;
begin
 If(Responder = True) then
  begin
   If(GetMessage('Hey') or
      GetMessage('Sup') or
      GetMessage('Hello') or
      GetMessage('Hi')) then
     begin
      RandomReply:= Random(4)+1;
     Case (RandomReply) of
      0 : Responce:= ('I Hate You');
      1 : Responce:= ('Go Away');
      2 : Responce:= ('I Hate People!!! I Hate You!!! You Ruin My Life');
      3 : Responce:= ('Stop Talking To Me Or Im Going To Go Cut My Wrists');
      4 : Responce:= ('You Make My Ears Bleed! Let Me Be Alone');
     end;
    TypeSend(Responce+' '+Name'!!!');
   end;
  If(Responder = False) then
 begin
  TypeSend('??? No Ingles...')
 end;
end;

see? :D ) lol and its good so far :) well again, thank you SOOOO much for the comments :) be prepared to be amazed ( … lol ) when u see my fisher :D ( its net OR rod fishing :spot: ) lol ok im done now.. :D