Free scarscape auths being handed out here. Scar scripters only please!

Sorry if you call this spam....But i was wondering if, WHEN you start selling auths, you will accept RS gp?

 

I dont know when, but it seems it's only dollars:

How much does it cost?

Auths are $10 per month for normal users. SCAR scripters recieve free auths provided that they submit two new quality SCAR scripts every month.

 

I started a month ago, so I'm VERY new. I would like the opportunity to write some scarscape compatible scripts though.

Once people see how good the SS scripts are, people will want to buy auths

 

That was the least helpful information you could have possibly given me....I know all that. I was asking if he accepts rs gp...

I want sythe or starblaster to answer please.

 

heres the script that got me srl members at villu.

Code:

{/ _ \| (_)_   _____ _ __/ |___ \ / _ \| ___|
| | | | | \ \ / / _ \ '__| | __) | | | |___ \
| |_| | | |\ V /  __/ |  | |/ __/| |_| |___) |
 \___/|_|_| \_/ \___|_|  |_|_____|\___/|____/

 ____   _____        _______ ____     ____ _   _  ___   ___  ____  _____ ____
|  _ \ / _ \ \      / / ____|  _ \   / ___| | | |/ _ \ / _ \|  _ \| ____|  _ \
| |_) | | | \ \ /\ / /|  _| | |_) | | |   | |_| | | | | | | | |_) |  _| | |_) |
|  __/| |_| |\ V  V / | |___|  _ <  | |___|  _  | |_| | |_| |  __/| |___|  _ <
|_|    \___/  \_/\_/  |_____|_| \_\  \____|_| |_|\___/ \___/|_|   |_____|_| \_\}


{/ \ / \ / \ / \ / \ / \ / \ / \ / \ / \    / \ / \ / \ / \ / \ / \ / \
( O | l | i | v | e | r | 1 | 2 | 0 | 5 )  ( S | c | r | i | p | t | s )
 \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/    \_/ \_/ \_/ \_/ \_/ \_/ \_/}
 
// Thanks To Dub For All The Help//
// Thanks To The Srl Community For The Sweet Include//
// Thanks To Surjad And RealRune For RFindObj//
// Thanks To 1337 Macro For Helping With A Few Things//




program Oliver1205_P0wer_Ch00per;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\WoodCutting.scar}

var
loadschopped :integer;
OliverAntiBan:integer;
PleaseDontBanMe : integer;
i,a1,b1 : integer;


const
TreeColor1=1585196;//Color Of Tree1
TreeColor2=5858585;//Color Of Tree2
TreeColor3=3030549;//Color Of Tree3
Text1='Maple';// Any 3 Letters Witch Appear In Top Left Ex. Yew= Yew Cho= Chop
//Dow=Down
Text2='Cho';// Look At Text1
Text3='Dow';// Look At Text 1
LogColor=4023940;//Log Color
amount=1; //Amount To Drop Before Switching Players
StartPlayer= 0; // Determines who will play first
TreeTolerance=10;//The Tolerance For Finding The Tree
TalkAboutWoodcutting=false;//Do You Want To Talk About Woodcutting?
UseMyAntiBan=true;//Would You Like To Use My Anti Ban?
LampSkill1='Crafting';//What Skill Would You Like To Use Your Lamp On?

//////////////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin
  HowManyPlayers  := 2;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := StartPlayer;

  Players[0].Name := 'nsepulveda'// Usernmae
  Players[0].Pass := 'football';//Password
  Players[0].Nick := 'sep';// 3 Letters From Your Name
  Players[0].Active:=True;
  
  Players[1].Name := 'nsepulveda';
  Players[1].Pass := 'football';
  Players[1].Nick := 'sep';
  Players[1].Active:=True;

end;
////////////////////////////////////////////////////////////////////////

Procedure SetUp;
begin
     SetupSRL;
     DeclarePlayers;
     LoginPlayer;
     PerfectNorth;
     SetRun (true);
     BenMouse:=False;
     ClearDebug;
end;
/////////////////////////////////////////////////////////////////////////

procedure OliversAntiBan;
 var PleaseDontBanMe: Integer;
 begin
 PleaseDontBanMe:= Random(4);
 case PleaseDontBanMe of

 1:  RotateEvery(5 + Random(10));

 2:  PickUpMouseEvery(6+random(8));

 3:  RandomRClickEvery(3+random(15));

 4:  BoredEvery(15+random(8));

end;
 end;
/////////////////////////////////////////////////////////////////////////
// ------- Taken from Realrune's:  SRL Willow Killer + Banker ( From Oliver1205 ) Witch I got From Surjads TSA 1.02 ------ \\
function RFindObj(var cx, cy: Integer; Text, Text2, Text3: String; color, color2, color3, tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2 : Integer;
begin
  if (FindMSColorTol(x, y, color, tolerance)) or (FindMSColorTol(x, y, color3, tolerance)) or (FindMSColorTol(x, y, color3, tolerance)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        break;
      a := a + 1;
      if (a = 1) then
        c := c + 1;
      if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end;
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end;
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end;
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color2, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color3, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 0, 0)
          cx:=x;cy:=y;
          if (IsUpTextMulti(Text, Text2, Text3)) then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;
// ------- End of Realrune's nice RFindObj ( from Oliver1205) Thanks To Both Of You  ------ \\

Procedure ChopEmAll;
begin
 repeat
   FindNormalRandoms;
if  (RFindObj(a, b, Text1, Text2, Text3, TreeColor1, TreeColor2, TreeColor3, TreeTolerance)) then
wait(1000+random(500));
begin
   Mouse(x,y,2,2,true);
   wait(200+random(100));
   ChooseOption(x,y,'Chop');
   FindEnt(TreeColor1);
   FindEnt(TreeColor2);
   FindEnt(TreeColor3);
   FindHead;
   AttachHead;
   wait(3000+random(1000));
   OliversAntiBan;
 if(not(LoggedIn)) then NextPlayer(False);
end;
  Until InvFull;
   GameTab(4)
end;
/////////////////////////////////////////////////////////////////////////

procedure DropLogs;
var
rx, ry, m, n : Integer;
begin
     Status('Dropping Logs');
  Gametab(4)
begin
for M:=1 to 7 do
begin
for n:=1 to 4 do
begin
 rx := 544 + (n * 42)
  ry := 192 + (m * 36)
  mmouse(rx, ry, 0, 0)
wait(100 + random(100));
if (IsTextAt2(9, 9, 'Wield', 100)) or
 (IsTextAt2(9, 9, 'Search Bird', 100)) or
 (IsTextAt2(9, 9, 'Use Knife', 100)) or
 (IsTextAt2(9, 9, 'Use Tinder', 100)) then
Chopped := Chopped - 1;
if not (IsTextAt2(9, 9, 'Wield', 100)) and
not (IsTextAt2(9, 9, 'Use Knife', 100)) and
not (IsTextAt2(9, 9, 'Search Bird', 100)) and
not (IsTextAt2(9, 9, 'Use Tinder', 100)) then
begin
  getmousepos(x, y)
  mouse(x, y, 5, 5, false);
  wait(100 + random(50));
 if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
begin
  wait(150 + random(210));
end else
    mmouse(233, 123, 50, 50)
end;
end;
end;
end;
end;

//////////////////////////////////////////////////////////////////////////
procedure LogMyAssIn;
begin
     if(not(loggedin))then
  begin
 LoginPlayer;
 HighestAngle;
 PerfectNorth;
 end;
end;
////////////////////////////////////////////////////////////////////////

   procedure AxeColor;
begin
   FindAxeHeadColor;
end;

//////////////////////////////////////////////////////////////////////////

procedure OliversAntiRandoms;
begin
     FindLamp(LampSkill);
     FindNormalRandoms;
 if ( UseMyAntiBan  = True) then OliversAntiBan;
 if ( TalkAboutWoodcutting  = True) then GhostSpeak( 'Woodcuttin Lvls' );
 if ( FindFight ) then
begin
 Writeln('Shit! Fight Found! Lets Bounce.');
 RunTo('N',True);
 wait(8000+random(5000));
 Writeln('Sucker! Cant Touch This.');
end;
 if (not (FindColorSpiral(x, y, 4345174, 616, 118, 623, 123)) )then
begin
 writeln('GodDamn Lets Look For Axe Head');
 FindHead;
end;
end;
//////////////////////////////////////////////////////////////////////////
     
                 // T3h Main Loop//
begin
repeat
   if (not (LoggedIn)) then break;
     SetupSrl;
     Setup;
     FindNormalRandoms;
     OliversAntiBan;
     ChatsOff;
     ClearDebug;
     repeat
     OliversAntiBan;
     AxeColor;
     ChopEmAll;
      until(invcount>27);
     DropLogs;
     SrlRandomsReport;
     i:=0;
     loadschopped:= loadschopped+1;until
     loadschopped>=Amount;
     NextPlayer(true);
  if (Not (LoggedIn)) then NextPlayer(True);
end.

 

Yes, but will you accept rs gp? The was my question to start with untill secet posted a stupid answer.

Mind answering? ^_^

Thanks.

 

Sythe, is your msn [email protected]?

 

heres my powerminer. im working on v 1.1 atm.

Code:

{#######                                         ######  #     #
#     # #      # #    # ###### #####   ####     #     # ##   ##
#     # #      # #    # #      #    # #         #     # # # # #
#     # #      # #    # #####  #    #  ####     ######  #  #  #
#     # #      # #    # #      #####       #    #       #     #
#     # #      #  #  #  #      #   #  #    #    #       #     #
####### ###### #   ##   ###### #    #  ####     #       #     #

This will mine you a full load of any ore and drop it. I suggest you
use multiple players. Set up lines 20-32. Post all bugs/proggies/errors
on my thread, at Fagex. I would like to thanks 1337 Macro and Dub for
some help}


{ / \ / \ / \ / \ / \ / \   / \ / \ / \ / \ / \ / \ / \ / \ / \
( ~ | F | a | g | e | x ) ( S | c | r | i | p | t | i | n | g )
 \_/ \_/ \_/ \_/ \_/ \_/   \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/
  _   _   _   _   _
 / \ / \ / \ / \ / \
( C | r | e | w | ~ )
 \_/ \_/ \_/ \_/ \_/}


program Olivers_Power_Miner;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}

const
  RockColor1 = 3890560;  // Color Of The Rock You Want To Mine
  RockColor2 = 4483988;  // Sencond Color
  RockColor3 = 3299472;  // Last Color
  StartPlayer = 0;  // Player You Would Like To Star
  LoadsToDrop = 20;  // How Many Loands To Drop Before Switching Players
  Text1 = 'Ock';  // Leave This
  Text2 = 'Ine';  // Leave This Also
  Text3 = 'Min';  // Guest What? No Touchie
  LampSkill1 = 'Crafting';  // Skill To Use Lamp On
  OreTol = 10;  // Tolerance To Mine The Ore
  UseMyAntiBan = True; // Would You Like To Use My AntiBan
  TalkAboutMining = True; // Want To Talk About Mining
  RunawayDirection = 'W'; // Dont Touch
/////////////////////////////////////////////////////////////////////
  
var
  OliversAntiBan, Clay, MinedOre: integer;
  PleaseDontBanMe: integer;
  i: integer;
  a1: integer;
  b1, loads: integer;
  Oretol2, AnyOre, Ores: integer;
  ux,uy, uix, uiy: integer;
  Text: string;

////////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin
  HowManyPlayers  := 1;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := StartPlayer;

  Players[0].Name := '';  // Usernmae
  Players[0].Pass := '';  //Password
  Players[0].Nick := '';  // 3 Letters From Your Name
  Players[0].Active:=True;  // No Touchie
  end;
//////////////////////////////////////////////////////////////////////
procedure TheRandoms;
begin
  FindLamp(LampSkill);
  if( TalkAboutMining = True) then GhostSpeak( 'Mining Lvls?');
  if(GasFound(ux, uy)) or (FindGas(uix, uiy))then
begin
  Writeln('I Found Gas');
  MouseFlag( 648, 82, 2, 2);
end;
if ( FindFight ) then
begin
 Writeln('Shit! Fight Found! Lets Bounce.');
 RunTo('N',True);
 wait(8000+random(5000));
 Writeln('Sucker! Cant Touch This.');
end;
 wait(200);
 FindNormalRandoms;
 wait(200);
end;
////////////////////////////////////////////////////////////////////////

Procedure MineOre;
begin
  repeat
   If (FindColorSpiral(x, y, RockColor1, 197, 61,384,204))  or
   (FindColorSpiral(x, y, RockColor2, 197, 61,384,204)) or
   (FindColorSpiral(x, y, RockColor3, 197, 61,384,204)) then
  wait(1000+random(2000));
  FindNormalRandoms;
begin
  Mouse(x, y,6,6,true);
  wait(1000+random(500));
  if (IsTextAt2(x, y, 'ine', 5) = True) then
Begin
  Mouse(x, y, 1, 1, True)
  Flag;
   FindNormalRandoms;
   wait(1000+random(500))
end;
 end;
  Until(InvFull);
  if (invfull )= true then
  loads := Loads + 1;
  if(not(LoggedIn)) then NextPlayer(false);
end;
/////////////////////////////////////////////////////////////////////////

procedure DropAllOres; // Edited from StarBlaster100's log dropping procedure, so cred to him. i got This from Gof's Miner, graicas
var
  rx, ry, m, n : Integer;
begin
  Loads:=loads+1;
   MinedOre:=MinedOre+27;
   Status('Dropping ores');
    Gametab(4)
     FindNormalRandoms;
    begin
      for M:=1 to 7 do
      begin
        for n:=1 to 4 do
        begin
          rx := 544 + (n * 42)
          ry := 192 + (m * 36)
          mmouse(rx, ry, 0, 0)
          wait(100 + random(100));
          if (IsTextAt2(9, 9, 'Wield', 100)) or
             (IsTextAt2(9, 9, 'pickaxe', 100)) then
              MinedOre:=MinedOre-1;
          if not (IsTextAt2(9, 9, 'Wield', 100)) and
             not (IsTextAt2(9, 9, 'pickaxe', 100)) then
             begin
               getmousepos(x, y)
               mouse(x, y, 5, 5, false);
               wait(100 + random(50));
               if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
               begin
                 wait(150 + random(210));
               end else
                 mmouse(233, 123, 50, 50)
             end;
          end;
      end;
   end;
end;
///////////////////////////////////////////////////////////////////////
procedure AutoTalk;
var i: integer;
    Talk: array[1..30] of String;
begin
     i:=0;
     Talk[1]:='Hey Doods';
     Talk[2]:='Updates For Non Mems!';
     Talk[3]:='Fruitloops Dude';
     Talk[4]:='I cant wait for mining guild!';
     Talk[5]:='Be nice to noobs';
     Talk[6]:='Free st00f pl0x';
     Talk[7]:='If rs goes offline ill cry';
     Talk[8]:='Mining is boringgggggg';
     Talk[9]:='I am icecream man running fat kids over in my van';
     Talk[10]:='Ballin!';
     Talk[11]:='If your a noob and you no it clap your hands';
     Talk[12]:='Minin Levels everyone';
     Talk[13]:='Usa!usa!usa!';
     Talk[14]:='New Orleans Saints own all';
     Talk[15]:='I h8 autoer nubs!';
     Talk[16]:='Minin lvls chumps?';
     Talk[17]:='If you aint me or Dub u a nub!';
     Talk[18]:='Whats good in the hood';
     Talk[19]:='Smack tht all on the floor smak tht till she get sore!';
     Talk[20]:='I just farted lol';
     Talk[21]:='The name is Tony Montana meet my lil friend';
     Talk[22]:='Like OMG';
     Talk[23]:='need a gf';
     Talk[25]:='Now i can be richer then all my friends!';
     Talk[26]:='Dont h8 me cuz u aint me';
     Talk[27]:='Meh this is borin';
     Talk[28]:='i g2g to bed soon guys';
     Talk[29]:='I like apples and bananas!';
     Talk[30]:='Im flyyy';
      if (Random(10)>5) then
begin
 i:=(random(29)+1);
 TypeSend(Talk[i]);
 wait(300);
 ChatsOff;
end;
 end;
 
  
Procedure PickColor;
begin
  FindPickHeadColor;
end;
///////////////////////////////////////////////////////////////////////

procedure OliversAntiBan1;
 var PleaseDontBanMe: Integer;
 begin
 PleaseDontBanMe:= Random(4);
 case PleaseDontBanMe of

 1:  RotateEvery(5 + Random(10));

 2:  PickUpMouseEvery(6+random(8));

 3:  RandomRClickEvery(3+random(15));

 4:  BoredEvery(15+random(8));

end;
 end;
/////////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
  Writeln('===============================================');
  Writeln('         Oliver1205         ');
  Writeln('  Worked '+ScriptTime2(2));
  writeln('      Mined '+inttostr(i)+' times');
  Writeln('================================================');
begin
    SRLRandomsReport;
  end;
end;
/////////////////////////////////////////////////////////////////////////
          // T3h Main Loop//

procedure Mainloop;
begin
repeat
  SrlRandomsReport;
  ProgressReport;
repeat
  TheRandoms;
  AutoTalk;
  MineOre;
  wait(1000+random(500));
until(InvFull) or (not(LoggedIn))
  DropAllOres;
until (Loads=LoadsToDrop);
   Loads:=0;
   logout;
  NextPlayer(true);
if (not(Loggedin)) then NextPlayer(False);
  Mainloop;
end;
/////////////////////////////////////////////////////////////////////////

begin
  Loads:=0;
  SetUpSrl;
  SrlRandomsReport;
  DeclarePlayers;
  if (loggedin = false) then
  LoginPlayer;
  wait(1000+random(500))
  setrun(true);
  FindPickHeadColor;
  mainloop;
end.

Here is my first srl script

Code:

/////////////////////////Oliver1205 Proudly Presents//////////////////////
/////////////////////////OliversHiAlcher//////////////////////////////////

///////////////////////////~ SetUp ~//////////////////////////////////////
//Weild Fire Staff. Have Nats In Sencond Inventory Spot. Have the noted
//items you want to alch in the 15th inventory spot.Run the script with
//your inventory open. Set how many items you want to alch on line 29-31.////

{ Note- This Script Only Hi Alches For Now, Considering Not A Lot Of People
Low Alch}

//// Thanks To Dub for tips and help. Thanks to the entire SRL community
//// for the great include////



program OliversHiAlcher;
{.include SRL\SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}

var
i :integer;

PleaseDontBan :integer;


const

HowManyToHiAlch= 3;// How Many Items Do You Want To Alch
ColorOfNotedYews= 8037299;// The Color Of The Yew Long In The Note
RenameScar= ('scar ownz');// Put What You Want Scars Name To Change To



procedure setmage;
begin
gametab(7)
findnormalrandoms;
end;

procedure clickyewlong;
begin
wait(10+random(30));
mouse(718,334,5,5,true)
end;

procedure makeupascarname;
begin
DisguiseScar(RenameScar);
end;

procedure OliverAntiBan;
var PleaseDontBanMe : Integer;
begin
PleaseDontBanMe:= Random(2);
case PleaseDontBan of

1: RotateEvery(5 + Random(10));

2: PickUpMouse;

end;
end;

procedure Dubclicksalchforoliver;
begin
wait(100+random(101))
Mouse(850,491,2,2,true);
wait(112+random(132))
end;


procedure ProgressReport;
begin
writeln('');
writeln(' ================================================== ');
writeln(' Olivers Alcher');
writeln(' Made By Oliver1205');
writeln(' "Dont Auto And Drive"');
writeln(' Alched '+inttostr(i)+' times');
writeln(' ================================================== ');
end;


begin
SetupSrl;
makeupascarname;
ClearDebug;
ChatsOff;
OliverAntiBan;
setmage;
Dubclicksalchforoliver;
clickyewlong;
repeat
i:=0;
i:= i + 1;
until(i >= HowManyToHiAlch);
ProgressReport;
logout;
terminatescript;
end.

 

i wana learn how to make scripts idk how :'(

 

Guys if your a scripter I would suggest getting an auth I have one ...

 

Thank you Sythe for the Auth Code. I will post my work I have already done there and get started on new Scripts.

Thanks,
Pked_J00

 

I actually might take up scripting here like in a few months... Looks neat

 

hit me up sythe.

i been scripting for a year now

 

Blizzind taught me the basics. You can ask him about it, I don't know much, but I'm willing to learn more.

 

hey i am a SRL member at www.srl-forums.com and www.moparisthebest.com i have written a few scripts an people from those communities may no me. i want to help make scarscape scripts so scar never dies!!!

 

Ive never scripted scar, but I know some java, c++ and fluently q basic (school class not the best spent 2 semesters). Would it be that much diffrent?