Richard
2008-02-17 06:38:14
<!– BEGIN TEMPLATE: formanswers –>
dude_richard - SRL Member Application Form
dude_richard
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Very basic HTML
Other Communitys
Sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Before I came to SRL (month and a half ago) I hadn't even heard of SCAR and SRL, but my friend said to me about autoing on runescape so I decided to come here and get some script, then I got into writing them and I've had quite alot of fun doing it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
dude_richard - SRL Member Application Form
dude_richard
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Very basic HTML
Other Communitys
Sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Before I came to SRL (month and a half ago) I hadn't even heard of SCAR and SRL, but my friend said to me about autoing on runescape so I decided to come here and get some script, then I got into writing them and I've had quite alot of fun doing it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
// Any longbow maker by DR v1.3
// By: Dude_Richard
// Version: 1.0
// Last update: 13/02/2007
// Category: Fletching (cutter)
// Instrutions
// 1.) Drag the crosshair that is in the toolbar of SCAR onto
// the Runescape sclient you are using.
// 2.) Fill out your stats information if you would like on
// the form.
// 3.) Place your player in a bank (see list below to see the
// valid banks)with a knife AND a full invent of any logs.
// 4.) Click run in the toolbar of SCAR
// 5.) Fill out the form that should apear
// 6.) You should now be autoing completely fine
// Working Banks
// Here is the list of banks that work, put the name in ()s
// into the form.
// Al Kharid (akb), Lumbridge (lb), Varrock East (veb)
// Varrock West (vwb), Falador East (feb), Falador West (fwv)
// Draynor (db), Edgeville (eb), Pest Control (pc)
// If there are any banks you would like included, please pm me
// and I will add them in.
// Stats Notes
// Enter your SRL stats ID (this is the up to 4 digit number you got,
// NOT the username you use.
// If you don't know SRL stats its basically a way for people to show
// off their scripts and how much they have autoed, to register simply
// go to [url]http://stats.srl-forums.com[/url] and it tells you what you have
// to do there. If you like this script, I would apreciate if you were
// to use this feature.
// Version History
// V1.0: This version, nothing new added as it is still the
// first version!
// V1.1: Added a better proggy and made it run more smoothly
// V1.2: Made the banking better and made better standards
// V1.3: Added more banks and PC bank! This is v1.3 so look at
// what has changed!
// Credits to NaumanAkhlaq for the banking procedure and editing
// to make it run flawlessly
// Please post your proggies and errors on the thread which has
// this script
Program LongbowFletcher;
{.include srl/srl.scar}
{.include srl/srl/misc/Users.scar}
{.include SRL/SRL/skill/Fighting.scar}
var
Loads, Tries, x, y, AntiBanned, Responded, runTime: integer;
frmDesign : TForm;
GroupBox1 : TGroupBox;
CheckBox1 : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Button1 : TButton;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Loads1 : integer;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure StartClick(sender: TObject);
begin
frmDesign.ModalResult:= mrOk;
Loads1:= StrToInt(Edit5.text)
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Form;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 173;
frmDesign.Width := 386;
frmDesign.Height := 286;
frmDesign.Caption := 'Any Longbow Maker';
frmDesign.Color := clMaroon;
frmDesign.Font.Color := clRed;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 8;
GroupBox1.Top := 8;
GroupBox1.Width := 353;
GroupBox1.Height := 233;
GroupBox1.Caption := 'DR'#39's any longbow maker setup';
GroupBox1.Font.Color := clRed;
GroupBox1.Font.Height := -11;
GroupBox1.Font.Name := 'Comic Sans MS';
GroupBox1.Font.Style := [];
GroupBox1.ParentFont := False;
GroupBox1.TabOrder := 0;
CheckBox1 := TCheckBox.Create(GroupBox1);
CheckBox1.Parent := GroupBox1;
CheckBox1.Left := 24;
CheckBox1.Top := 168;
CheckBox1.Width := 121;
CheckBox1.Height := 41;
CheckBox1.Caption := 'Use every 50 sleep?';
CheckBox1.Checked := True;
CheckBox1.State := cbChecked;
CheckBox1.TabOrder := 0;
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 144;
Edit1.Top := 40;
Edit1.Width := 73;
Edit1.Height := 23;
Edit1.TabOrder := 1;
Edit1.Text := 'Password';
Edit2 := TEdit.Create(GroupBox1);
Edit2.Parent := GroupBox1;
Edit2.Left := 24;
Edit2.Top := 40;
Edit2.Width := 73;
Edit2.Height := 23;
Edit2.TabOrder := 2;
Edit2.Text := 'Username';
Edit3 := TEdit.Create(GroupBox1);
Edit3.Parent := GroupBox1;
Edit3.Left := 24;
Edit3.Top := 80;
Edit3.Width := 73;
Edit3.Height := 23;
Edit3.TabOrder := 3;
Edit3.Text := 'PIN';
Edit4 := TEdit.Create(GroupBox1);
Edit4.Parent := GroupBox1;
Edit4.Left := 144;
Edit4.Top := 80;
Edit4.Width := 73;
Edit4.Height := 23;
Edit4.TabOrder := 4;
Edit4.Text := 'Nickname';
Edit5 := TEdit.Create(GroupBox1);
Edit5.Parent := GroupBox1;
Edit5.Left := 24;
Edit5.Top := 120;
Edit5.Width := 73;
Edit5.Height := 23;
Edit5.TabOrder := 5;
Edit5.Text := 'Loads';
Button1 := TButton.Create(GroupBox1);
Button1.Parent := GroupBox1;
Button1.Left := 176;
Button1.Top := 168;
Button1.Width := 145;
Button1.Height := 41;
Button1.Caption := 'Start Any Longbow Maker';
Button1.TabOrder := 6;
Button1.OnClick := @StartClick
Edit6 := TEdit.Create(GroupBox1);
Edit6.Parent := GroupBox1;
Edit6.Left := 144;
Edit6.Top := 120;
Edit6.Width := 73;
Edit6.Height := 23;
Edit6.TabOrder := 7;
Edit6.Text := 'Log type';
Edit7 := TEdit.Create(GroupBox1);
Edit7.Parent := GroupBox1;
Edit7.Left := 256;
Edit7.Top := 40;
Edit7.Width := 73;
Edit7.Height := 23;
Edit7.TabOrder := 8;
Edit7.Text := 'Which Bank';
Edit8 := TEdit.Create(GroupBox1);
Edit8.Parent := GroupBox1;
Edit8.Left := 256;
Edit8.Top := 80;
Edit8.Width := 73;
Edit8.Height := 23;
Edit8.TabOrder := 9;
Edit8.Text := 'Stats ID';
Edit9 := TEdit.Create(GroupBox1);
Edit9.Parent := GroupBox1;
Edit9.Left := 256;
Edit9.Top := 120;
Edit9.Width := 73;
Edit9.Height := 23;
Edit9.TabOrder := 10;
Edit9.Text := 'Stats Pass';
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Var
Knife, Log: integer;
Procedure LoadDTMs;
Begin
Knife := DTMFromString('78DA6354626060906000036608C550535CCC2' +
'007A41981F83F1030AA001952A86AD62F5E045703028C208E3CAA' +
'9A504B2E54350A404201554DB6072FAA1A6920A18AAAA6A7A9115' +
'50DC82DEAA86A4A737351D5A861FA0B248BAC06000BE50E33');
Log := DTMFromString('78DA639CC9C4C0F088010514FAF2318832323' +
'00011C37F2060EC06AA79CC800618914820DD0154F386809A5940' +
'35EF08A8590254F38A809AC940351FF0AB0100D0AD0DF2');
End;
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Edit2.text;
Players[0].Pass := Edit1.text;
Players[0].Nick := Edit4.text;
Players[0].Integers[0] := Loads1;
Players[0].Strings[0] := Edit3.text;
Players[0].Active := True;
Players[0].Strings[1] := Edit6.text;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure TheDisguise; forward;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Proggy (Clear : Boolean); forward;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Fletch;
Begin
If not (LoggedIn) then
Exit;
If (FindDTM(Knife,x,y,MIX1,MIY1,MIX2,MIY2))then
Begin
Disguise('Beginning to fletch');
Mouse(x, y, 1, 1, true);
WriteLN('Clicked Knife');
WriteLN('Clicking log');
end;
Wait (500 + random(300));
If not (FindDTM(Knife,x,y,MIX1,MIY1,MIX2,MIY2))then
Begin
WriteLN('Couldnt find knife');
WriteLN('Make sure one was in your inventory');
WriteLN('Logging out and terminating script');
Logout;
Exit;
TerminateScript;
end;
If (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
Begin
Mouse(x, y, 2, 2, true);
WriteLN('Clicked Log');
WriteLN('Waiting to make longbow');
Wait(500 + random(300));
end;
If not (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
Begin
WriteLN('Couldnt find any logs');
WriteLN('Must have had an error banking');
WriteLN('Logging out and terminating script');
Logout;
Exit;
TerminateScript;
end;
Wait(500 + random(300));
Begin
MouseBox(290, 383, 351, 449, 2);
ChooseOption('X');
Wait(1000);
TypeSend('27');
Disguise('Making longs(u)');
end;
Wait(1000 + random(3000));
TheDisguise;
ReportVars[0] := ReportVars[0] + 1;
ReportVars[1] := ReportVars[1] + 27;
SendSRLReport;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure GetThingFromBank; //Credits to NaumanAkhlaq for this
Var
Resultx : Boolean;
Begin
If not LoggedIn then
Exit;
If InvFull Then
Begin
GameTab(4);
Begin
Repeat
SetAngle(true);
If Edit7.Text = 'pc' then OpenBankGlass('veb', True, False)
Else OpenBankFast(Edit7.Text);
Wait(1000+Random(2000));
Tries:=Tries+1;
If PinScreen Then
InPin(Players[CurrentPlayer].Strings[1]);
FixBank;
ResultX := BankScreen;
Until(BankScreen) or (Tries >= 6);
If BankScreen then
Begin
MouseBox(610, 220, 634, 245, 2);
Chooseoption('All');
Disguise('Banking');
MMouse(95-Random(5), 77+Random(5),2,2);
If IsUpText('ogs') then
Begin
Mouse(95-Random(5), 77+Random(5),2,2,False);
ChooseOption('All');
wait(1000+Random(200));
CloseBank;
TheDisguise;
end;
end;
end;
Loads := Loads + 1;
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure LoginSleepLogout;
Begin
If (CheckBox1.checked) then
Begin
If(runTime = 0) Then
MarkTime(runTime)
Else If(TimeFromMark(runTime)>=(3000000)) Then
Begin
Disguise('Sleeping...zzz...');
Logout;
Wait(300000 + random (60000));
TheDisguise
LoginPlayer;
MarkTime(runTime);
End;
End;
End;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure AntiBan;
Begin
If not LoggedIn then
Exit;
Case random(14) of
1: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
KeyDown(VK_Up);
Wait(500 + random(1000));
KeyUp(VK_Up);
MakeCompass('n');
GameTab(4);
Wait(48000+random(3000));
end;
2: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
MakeCompass('n');
GameTab(4);
Wait(48000+random(3000));
end;
3: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
MakeCompass('n');
GameTab(4);
Wait(48000+random(3000));
end;
4: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
MakeCompass('n');
GameTab(4);
Wait(48000+random(3000));
end;
5: Begin
PickupMouse;
Wait(48000+random(3000));
end;
6: Begin
BoredHuman;
Wait(48000+random(3000));
end;
7,8,9,10: Begin
MMouse(116-Random(100), 285-Random(256),60,60);
Wait(48000+random(3000));
end;
11,12,13,14: Begin
MMouse(MSX1,MSY1,1,1);
Wait(48000+random(3000));
end;
end;
AntiBanned := AntiBanned + 1;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure DetailsCheck;
Begin
If ((Players[CurrentPlayer].Name) = 'Username') then
Begin
ClearDebug;
WriteLn('You need to enter a username to run this');
Wait(1000);
WriteLn('Please restart script and enter the correct details');
Wait(1000);
TerminateScript;
end;
If ((Players[CurrentPlayer].Pass) = 'Password') then
Begin
ClearDebug;
WriteLn('You need to enter a password to run this');
Wait(1000);
WriteLn('Please restart script and enter the correct details');
Wait(1000);
TerminateScript;
end;
If ((Players[CurrentPlayer].Nick) = 'Nickname') then
Begin
ClearDebug;
WriteLn('You need to enter a nickname to run this');
Wait(1000);
WriteLn('Please restart script and enter the correct details');
Wait(1000);
TerminateScript;
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure StatsCheck;
Begin
If ((Edit8.text) = 'Stats ID') then
Begin
ClearDebug;
WriteLn('You haven'#39't entered a stats ID');
Wait(1000);
WriteLn('Script will continue but you can'#39't use stats');
Wait(1500);
Exit;
end;
If ((Edit9.text) = 'Stats Pass') then
Begin
ClearDebug;
WriteLn('You haven'#39't entered a stats pass');
WriteLn('Script will continue but you can'#39't use stats');
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Function InChatLine(myString: string): Boolean;
Begin
Result := ( pos(myString, TheLine) <> 0 );
End;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Function ChatBack: Boolean;
Begin
SaveToChatLog;
if ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
Exit;
if InChatLine(Players[CurrentPlayer].Nick) then
Begin
Wait(1000 + Random(500));
case Random(6) of
0: TypeSend('hello');
1: TypeSend('hi');
2: TypeSend('hey');
3: TypeSend('hey you');
4: TypeSend('yo');
5: TypeSend('sup?');
End;
Result := True;
Exit;
End;
if InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
InChatLine('whats up') then
Begin
Wait(1000 + Random(500));
case Random(4) of
0: TypeSend('hello');
1: TypeSend('hey');
2: TypeSend('hey there');
3: TypeSend('hi');
End;
Result := True;
Exit;
End;
if InChatLine('lol') or InChatLine('hehe') or InChatLine('hihi') or
InChatLine('haha') then
Begin
Wait(1000 + Random(500));
case Random(4) of
0: TypeSend('...');
1: TypeSend('lool');
2: TypeSend('rofl');
End;
Result := True;
Exit;
End;
Result := True;
Exit;
Responded := Responded + 1;
End;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
procedure LevelRespond;
var
Chats : TStringArray;
I, L: Integer;
Begin
If not LoggedIn then
Exit;
Chats := ['tching l', 'hing lv', 'hing le', 'tchin lvl', 'etch lv'];
for I := 0 to 4 do
begin
if InChat(Chats[i]) then
begin
inc(Responded);
L := GetSkillInfo('fletching', False);
case Random(11) of
0: TypeSend(IntToStr(L)+', close to'+IntToStr(L+1));
1: TypeSend('Me '+ IntToStr(L));
2: TypeSend(IntToStr(L) + ' over here');
3: Begin
TypeSend('Lemme check...');
Wait(500 + random(3000));
TypeSend('...' + IntToStr(L));
end;
4: TypeSend('Im ' + IntToStr(L));
5: TypeSend('only ' + IntToStr(L));
6: TypeSend('Pfft, only ' + IntToStr(L));
7: begin
TypeSend('onky ' + IntToStr(L));
TypeSend('*only');
end;
8: TypeSend('My Fletching is only ' + IntToStr(L) + ' ...lol');
9: TypeSend('Not very good...only '+IntToStr(L));
10: TypeSend(IntToStr(L) + ', going for 99')
end;
wait(1000 + Random(500));
Exit;
end;
Responded := Responded + 1;
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure FreeDTMs;
Begin
If (Loads >= Players[CurrentPlayer].Integers[0]) then
Begin
FreeDTM(log);
FreeDTM(knife);
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Siggy;
Begin
ClearDebug;
WriteLN('Dude_Richard.......')
Wait(1000)
WriteLN('Presents.......')
Wait(1200)
WriteLN('The One the Only.......')
Wait(1300)
WriteLN('Any Longbow Maker v1.0!')
Wait(1500)
End;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Proggy(Clear : Boolean);
Begin
if clear then
ClearDebug;
WriteLn('<<<<<<<<<<<<Any Longbow Fletcher>>>>>>>>>>>>');
WriteLn('Fletched '+Players[CurrentPlayer].Strings[1] +' logs for ' + TimeRunning + ' ');
WriteLn('Made ' + IntToStr(Loads * 27) + ' Longbows (u)');
case Lowercase(players[CurrentPlayer].Strings[1]) of
'normal': WriteLn('Earnt ' + IntToStr(Loads * 27 * 10) +' XP');
'oak': WriteLn('Earnt ' + IntToStr(Loads * 27 * 25) +' XP');
'willow': WriteLn('Earnt ' + IntToStr(Loads * 27 * 41) +' XP');
'maple': WriteLn('Earnt ' + IntToStr(Loads * 27 * 58) +' XP');
'yew': WriteLn('Earnt ' + IntToStr(Loads * 27 * 75) +' XP');
'magic': WriteLn('Earnt ' + IntToStr(Loads * 27 * 91) +' XP');
end;
WriteLn('Did ' + IntToStr(AntiBanned) + ' Antibans');
WriteLn('Responded ' + IntToStr(Responded) + ' times');
WriteLn('<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>');
WriteLn('Thanks for using and please use again!')
Wait(2000 + random(200))
SRLRandomsReport;
End;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure TheDisguise;
Begin
Case random(8) of
1: Disguise('iTunes');
2: Disguise('Windows Live Messenger');
3: Disguise('AIM');
4: Disguise('Internet Explorer ');
5: Disguise('Google');
6: Disguise('Microsoft Word');
7: Disguise('Control Panel');
8: Disguise('Windows Help Centre');
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure TheMainThing;
Begin
If not LoggedIn then
Exit;
Repeat
GetThingFromBank;
Fletch;
AntiBan;
Proggy(True);
until(loads>=Players[CurrentPlayer].Integers[0]);
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure AntiRandoms;
Begin
FindNormalRandoms;
ChatBack;
If (FindFight) then
Begin
MakeCompass('N');
RunAway('W', true, 1, 1000);
RunAway('N', true, 1, 10000);
RunAway('S', true, 1, 1000);
RunAway('E', true, 1, 1000);
end;
FindTalk;
SRLRandomsReport;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure Setup;
Begin
SetupSRL;
ScriptID := '640';
SRLID := Edit8.Text;
SRLPassword := Edit9.Text;
LoadDTMs;
StatsCheck;
TheDisguise;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure ScriptEnd;
Begin
If (loads>=Players[CurrentPlayer].Integers[0]) then
Begin
Logout;
FreeDTMs;
SendSRLReport;
SRLRandomsReport;
Proggy(false);
end;
end;
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Begin
Siggy;
SafeInitForm;
SafeShowFormModal;
DeclarePlayers;
Setup;
DetailsCheck;
ActivateClient;
LoginPlayer;
Loads:=Loads -1;
LevelRespond;
LoginSleepLogout;
Antirandoms;
TheMainThing;
ScriptEnd;
end.
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////——————————————————
<!– END TEMPLATE: formanswers –>