SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
year and a half

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



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

Here is my auto-talker and wc/droper.
Talker:

//Directions
//Set what u would like it to say(lines 9-12)
//Set how long until says next message(line 47)
//hit play
//press F12 to stop
program AutoTalk;

const
message1='cyan:slide:selling full iron';
message2='white:slide:selling full iron';
message3='Green:slide:selling full iron';
message4='red:slide:selling full iron';

procedure SendText(text: string);
var  i: Integer;
begin
   for i := 1 to Length(Text) do
   begin
     SendKeys(Text[i]);
     Wait(50+random(50));
   end;
   SendKeys(Chr(13));
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;


procedure nc4(wstatus:String; time:Integer);
begin
namechange(wstatus);
wait(time);
end;

procedure Talk;
begin
case random(4) of
0:SendText(message1);
1:SendText(message2);
2:SendText(message3);
3:SendText(message4);
end;
wait(2124+random(241));
end;
procedure nc(wstatus:String);
begin
nc4(wstatus, 250);
end;

procedure flashx;
begin
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
end;

procedure Animate;
begin
nc(' ');
nc('A');
nc('Au');
nc('Aut');
nc('Auto');
nc('Auto- ');
nc('Auto-T');
nc('Auto-Ta');
nc('Auto-Tal');
nc('Auto-Talk');
nc('Auto-Talke');
nc('Auto-Talker');
nc('--------------');
nc('Auto-Talker');
nc('--------------');
nc('By Diamondhero5');
flashx;
nc4('Auto-Talker - By Diamondhero5',5);
end;


procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero5-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

begin
Animate
ActivateClient
Thankyou
repeat
Talk;
until(IsFKeyDown(12))
end.

Wc/Droper:

//INSTRUCTIONS
//1. Fill in setup on lines 16-21.
//2. Add your players in Declare Players Lines 30-38.
//3. Drag Crosshair into RS window.
//By Diamondhero5

{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

Var
LoadNumber : Integer;
LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM : Integer;
StartXP, EndXP, TotalXP, TotalLogs : Integer;

Const
AmmountOfLoads = 1000;//How many loads you want to chop
TheTreeName    = 'Willow';//Tree name
Boxy           = True; // Use Box Solver?
Sandy          = True; // Use Sandwich Solver?
Treecolor = 1398848;//color of tree number1(use color picker)
Treecolor2 = 4477016;//color of tree number2

Procedure DeclarePlayers;
begin
Status('Loading Players')

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

Players[0].Name      := 'username goes here';
Players[0].Pass      := 'password goes here';
Players[0].Nick      := 'game';//2-4 characters
Players[0].Active    := True;

Players[1].Name      := 'username goes here';
Players[1].Pass      := 'password goes here';
Players[1].Nick      := 'game';//2-4 characters
Players[1].Active    := True;
end;
//can add more players if wanted

Procedure LoadDTMs;

begin
Status('Loading DTM''s')

LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
       '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
       'C41050B31FA8A698809AB384CD0100CBBD0D20');


AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
       '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
       'F81350F316A8C685809A97403541F8D50000D0090D3C');

RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
       '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
       '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
       'E0099720B7E');

end;

Procedure Setup;
Begin
Status('Set-Up')
SetupSRL;
DeclarePlayers;
LoadDTMs;
UseSandwichSolver := Sandy;
UseBoxSolver      := Boxy;
Begin
If (Not(LoggedIn)) then
Begin
Status('Logging In')
Loginplayer;
end;
end;
end;

Procedure AntiRandoms;
Begin
Status('Random Check')
FindNormalRandoms;
wait(10)
FindTalk;
wait(10)
if (FindFight) then
begin
RunAwayDirection('E');
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;

procedure TY;
begin
Writeln('...TY For using...')
Writeln('...Diamondhero5s..')
Writeln('....Wc/Droper.....')
Writeln('......ENJOY.......')
end;

Var
WCLEVEL, DONTBAN : Integer;

Procedure TheAntiBan;
begin
AntiRandoms;
Status('Preforming Antiban')
if ( not ( LoggedIn )) then Exit;
DONTBAN:= 1 + Random(140)
case DONTBAN of
1: RandomRClickEvery(2 + Random(10));
2: HoverSkill('woodcutting', false);
3: HoverSkill('random', false);
4: DoEmote(1 + Random(20));
6: PickUpMouse;
9: MMouse(MSX1,MSX2,10,10)
12: GameTab(1+random(7))
13: HighestAngle;
14: TypeSend('Lol my wc lvl is ' +IntToStr (WClevel)  + '.')
17: GetSkillLevel('WoodCutting')
18: GameTab(1+Random(7))
21: TypeSend('I''m lvl ' +IntToStr (WClevel) + ', but I want ' +IntToStr (WClevel + 3 + Random(8)) + '')
22: TypeSend('' +IntToStr (WClevel) + ' woodcuting.../')
23: TypeSend('I can''t wait till im lvl ' +IntToStr (WClevel + 4 + Random(7)) + '')

AntiRandoms:
end;

Procedure AxeColors;
Begin
GameTab(4)
Wait(1000 + Random(100))
FindAxeHeadColor;
Wait(1000 + Random(100))
MakeCompass('N')
end;

Var
EX, EY : integer;
FX, FY : integer;
Procedure EntChecker;
Begin
Status('Checking For Ent')
Flag;
If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
Begin
MMouse(Ex, EY, 0, 0)
If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
Begin
Status('Ent Found');
MouseFindFlag(648,83,5,5);
Wait(15000+Random(5000));
end;
end;
end;



Var
BX, BY, NX, NY : integer;

Procedure IsAxeBroken;
Begin
Status('Checking for broken axe')
GameTab(4)
Wait(400 + Random (100))
If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
Begin
Status('Axe Not Broken')
Exit;
end;
Begin
If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
(Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
Begin
Status('Broke an Axe, and you have no more.')
NextPlayer(True)
end;
end;
end;

Procedure TheFindAxe;
Begin
Status ('Looking For Axe')
FindHead;
end;

Var
  TX, TY : Integer;

Procedure StartChopping;
Begin
Repeat
Begin
IsAxeBroken;
Status('Looking For Willow')
If (InvFull) then
Begin
Exit;
end;
If ( Not (LoggedIn) ) Then NextPlayer (False)
EntChecker;
If ( Not (LoggedIn) ) Then NextPlayer (False)
If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
Begin
Mouse(TX, TY, 3, 3, True)
Wait( 100 + Random (200) )
AntiRandoms;
Wait(10)
TheAntiBan;
Wait(10)
If ( Not (LoggedIn) ) Then NextPlayer (False)
Wait(10)
EntChecker;
Wait(10)
TheFindAxe;
Wait(4000+Random(1000))
end;
end;
Until (InvFull)
end;

Var
LX, LY, DroppedLogsCount : Integer;

Procedure StartDropping;
Begin
If (InvFull) then
Begin
GameTab(4)
DroppedLogsCount := CountItemDtm(LogDTM) + 6
Repeat
GameTab(4)
If (FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)) then
begin
mouse(LX, LY, 8, 8, false)
ChooseOption(x,y,'Drop')
If ( Not (LoggedIn) ) Then NextPlayer (False)
AntiRandoms;
wait(400+random(100))
end;
Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
LoadNumber := LoadNumber + 1
end;
end;

begin
wait(1200)
Setup;
HighestAngle;
MakeCompass('W')
WCLEVEL :=  GetSkillLevel('WoodCutting')
TY;
Repeat
GetAxeColors;
StartXP := GetXp('Woodcutting')
Repeat
DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(AmmountOfLoads) + '] ' +(Players[CurrentPlayer].name) + '')
StartChopping;
If ( Not (LoggedIn) ) Then NextPlayer (False)
StartDropping;
EndXP := GetXp('Woodcutting')
TotalLogs := TotalLogs + DroppedLogsCount
TotalXP := (EndXP - StartXP) + (TotalXP)
ReportIt;
GetAxeColors;
Until (LoadNumber + Random (5) > AmmountOfLoads)
LogOut;
NextPlayer(True);
HighestAngle;
MakeCompass('W')
WCLEVEL :=  GetSkillLevel('WoodCutting')
If ( Not (LoggedIn) ) Then NextPlayer (False)
Until False;
end.

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

You aren't supposed to spam and post another appliance when you already have on.
You just applied yesterday and now youv made a whole other thread for this one.
Im just gonna go ahead and vote no because its obvious you made this script in one day.

Yesterday you i applied,
I told you to make a woodcutter or miner
And now today you have one.

You didn't listen to me saying that script should be worked hard on and take lots of time.
and you didn't listen to Boreas and learn standards.
Please don't make any more appliances until
ONE MONTH AFTER YOU ARE NOT ACCEPTED

EDIT:
Im also going to try to copy bust this,
i believe iv found something!
Copybust Pending

EDIT:
OWNED

You should have been smart and listened be Me and everyone else.
Take you time, learn to script, be a good guy.

But no, when you little 5 minute auto talker didnt make it you got mad and decided to just take the easy way out and copy a script.
So you went to sythes trying to be smart and thinking no one would catch you and one day later posted the script here.

Well im sorry but leechers never prosper

Silly Goose,
http://www.sythe.org/showthread.php?t=150940

=( Im deeply hurt, fourscape is a good friend of mine!

PS:
Dankness, please fix it so you also cant have two apps at once
I believe you made it so there is a one month wait only after you app gets locked or something?

Lol you had a chance, and now it's gone.

Oh dear.. i like the way he applied without filling in all the sections of the form too:duh: