endr1x
2007-04-20 18:41:19
<!– BEGIN TEMPLATE: formanswers –>
endr1x - SRL Member Application Form
endr1x
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java,C++,Learning Delphi
Other Communitys
Mopars,Impsoft
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Meh, don't really know what to write here. I came to this forums a while back. I came here to learn scar scripting. I first created my autotalker , then my hide tanner. I'm in the middle of a major update with my tanner. Bit im going on holidays , so i'm placing application now. Thanks for reading.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Heres some progress reports:
( I didn't want to test any longer, only testing on 1 char).
I've included my hide tanner + auto talker, i've included the auto talker because it demonstrates my ability to use forms.
For some reason, the attachments button is giving me "you do not have permission to access this page" error.
——————————————————
<!– END TEMPLATE: formanswers –>
endr1x - SRL Member Application Form
endr1x
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java,C++,Learning Delphi
Other Communitys
Mopars,Impsoft
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Meh, don't really know what to write here. I came to this forums a while back. I came here to learn scar scripting. I first created my autotalker , then my hide tanner. I'm in the middle of a major update with my tanner. Bit im going on holidays , so i'm placing application now. Thanks for reading.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Heres some progress reports:
( I didn't want to test any longer, only testing on 1 char).
I've included my hide tanner + auto talker, i've included the auto talker because it demonstrates my ability to use forms.
For some reason, the attachments button is giving me "you do not have permission to access this page" error.
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Using Hide Tanner BETA by [Endr1x]
Have Tanned : 810 of green hides for :username
Tanned : 810 in total.
Script Worked for : 58 Minutes, and 45 Seconds
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Using Hide Tanner BETA by [Endr1x]
Have Tanned : 3240 of green hides for :username
Tanned : 3240 in total.
Script Worked for : 3 hours 48 minutes and 11 seconds
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
program AutoTanner;
{.include SRL/SRL.scar}
var
q, s, d, f, TannedHides, NHidesToTan, SandColour, GreyBuildingColour, banksymb, rx, ry, TotalHides: integer; // variables
HidesToTan: string;
const
//195836
//soft,hard,green,blue,red,black,snake1,snake2
EllisColour = 4285110; // colour of ellis ( the orange) ( don't touch).
{/////////////////////////////////////////////
Declares the players
//////////////////////////////////////////// }
procedure DeclarePlayers;
begin
HowManyPlayers := 6; // how many players
CurrentPlayer := 0; // player to start on
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := '3-4 letters of user';
Players[0].Loc := 'Alkarid';
Players[0].String1 := 'green'; // type of hide to tan (listed above)
Players[0].Integer1 := 10000; // number of hides to tan
Players[0].Active := True;
Players[1].Name := 'username';
Players[1].Pass := 'password';
Players[1].Nick := '3-4 letters of user';
Players[1].Loc := 'Alkarid';
Players[1].String1 := 'soft'; // type of hide to tan (listed above)
Players[1].Integer1 := 1000; // number of hides to tan
Players[1].Active := True;
Players[2].Name := 'username';
Players[2].Pass := 'password';
Players[2].Nick := '3-4 letters of user';
Players[2].Loc := 'Alkarid';
Players[2].String1 := 'soft'; // type of hide to tan (listed above)
Players[2].Integer1 := 1000; // number of hides to tan
Players[2].Active := True;
Players[3].Name := 'username';
Players[3].Pass := 'password';
Players[3].Nick := '3-4 letters of user';
Players[3].Loc := 'Alkarid';
Players[3].String1 := 'soft'; // type of hide to tan (listed above)
Players[3].Integer1 := 1000; // number of hides to tan
Players[3].Active := True;
Players[4].Name := 'username';
Players[4].Pass := 'password';
Players[4].Nick := '3-4 letters of user';
Players[4].Loc := 'Alkarid';
Players[4].String1 := 'soft'; // type of hide to tan (listed above)
Players[4].Integer1 := 1000; // number of hides to tan
Players[4].Active := True;
Players[5].Name := 'username';
Players[5].Pass := 'password';
Players[5].Nick := '3-4 letters of user';
Players[5].Loc := 'Alkarid';
Players[5].String1 := 'soft'; // type of hide to tan (listed above)
Players[5].Integer1 := 1000; // number of hides to tan
Players[5].Active := True;
end;
{/////////////////////////////////////////////
Sets up the script
//////////////////////////////////////////// }
procedure SetupReady;
begin
if not (LoggedIn) then
LoginPlayer;
SetRun(true);
HighestAngle;
PerfectNorth;
FindNormalRandoms;
end;
{/////////////////////////////////////////////
Finds Bank and opens.
//////////////////////////////////////////// }
function BankOpenQuick(WaitTime0, MaxTries0, BBColour0: integer): boolean; // Finds bank by colour +
// wait Time + Max tries.
var TT, MM: integer; // Don't like the SRL bank openers ;(
begin
MarkTime(TT);
if (WaitTime0 = 0) then WaitTime0 := 20000; // none set/0 = default
if (MaxTries0 = 0) then MaxTries0 := 20; // none set/0 = default
if (BBColour0 = 0) then BBColour0 := 7236460; // none set/0 = default.
repeat
MM := +1;
wait(3000);
if (FindObj(x, y, 'ank b', BBColour0, 7))
then
begin
Mouse(x, y, 1, 1, False);
Flag;
ClickOption('uick', 1);
wait(1000 + random(200));
if (BankScreen) then break;
end
until (TimeFromMark(TT) >= (WaitTime0)) or (BankScreen)
or (MM >= (MaxTries0))
if (BankScreen) then result := true;
if (not (BankScreen)) then
begin
result := false;
writeln('Could not find Bank');
end;
end;
{/////////////////////////////////////////////
Walks to the Kebab shop seller
//////////////////////////////////////////// }
procedure WalkKebab;
begin
q := 0;
s := 0;
MarkTime(Mark);
repeat
//70
if RadialWalk(SandColour, -30, 42, 60, 0, 0) then
begin
writeln('Walking to kebab shop');
FindNormalRandoms;
Flag;
break;
end else
//70
if not RadialWalk(SandColour, -30, 42, 60, 0, 0) then
begin
writeln('Walking Failed');
s := s + 1;
wait(3000 + random(500));
FindNormalRandoms;
end;
until (TimeFromMark(Mark) > 45000 + random(500))
if (s > 10) then
begin
writeln('Quitting could not walk correctly');
Players[CurrentPlayer].Loc := ('Got lost walking');
end;
FindNormalRandoms;
Flag;
end;
{/////////////////////////////////////////////
Walks to the Tanner
//////////////////////////////////////////// }
procedure GetTanner;
begin
q := 0;
s := 0;
banksymb := 0;
MarkTime(Mark);
banksymb := GetSymbolColor(rx, ry, 'tanner');
repeat
if FindMMColorTol(x, y, banksymb, 5) and (not (banksymb = 0)) then
begin
Mouse(x, y, 1, 1, true);
Flag;
FindNormalRandoms;
writeln('Walk succesfull');
break;
end else
if (not (FindMMColorTol(x, y, banksymb, 5)))
or (banksymb = 0) then
begin
writeln('Walking failed!');
banksymb := GetSymbolColor(rx, ry, 'tanner');
s := s + 1;
wait(3000 + random(500));
FindNormalRandoms;
end;
until (TimeFromMark(Mark) > 45000 + random(500))
or (q = 1)
if (s > 10) then
begin
writeln('Quitting , we failed! ');
Players[CurrentPlayer].Loc := 'Got lost walking';
end;
FindNormalRandoms;
end;
{/////////////////////////////////////////////
Finds the tanner man + trades him
//////////////////////////////////////////// }
procedure FindTanner;
begin
q := 0;
s := 0;
MarkTime(Mark);
repeat
if (FindColorTolerance(x, y, EllisColour, MSX1, MSY1, MSX2, MSY2, 10))
then
begin
Mouse(x, y, 1, 1, false);
ClickOption('Trade', 1);
Flag;
wait(500 + random(200));
end else
begin
writeln(' Cannot find Ellis.. trying again');
s := s + 1;
wait(5000 + (200));
FindNormalRandoms;
end;
until (GetColor(146, 42) = 2070783)
or (TimeFromMark(Mark) > 45000 + random(500))
or (q = 1)
if (s >= 15) then
begin
writeln('Quitting could not find Ellis');
Players[CurrentPlayer].Loc := 'Could not find Ellis';
end;
end;
{/////////////////////////////////////////////
Tans the correct type.
//////////////////////////////////////////// }
procedure TanHides;
begin
//soft,hard,green,blue,red,black,snake1,snake2
case Players[CurrentPlayer].String1 of
'soft': d := 97; //x
'hard': d := 204; //x
'green': d := 89; //x
'blue': d := 202; //x
'red': d := 318; //x
'black': d := 430; //x
'snake1': d := 313; //x
'snake2': d := 422; //x
end;
case Players[CurrentPlayer].String1 of
'soft': f := 108; //y
'hard': f := 107; //y
'green': f := 233; //y
'blue': f := 234; //y
'red': f := 235; //y
'black': f := 233; //y
'snake1': f := 105; //y
'snake2': f := 107; //y
end;
q := 0;
wait(2000 + random(1000));
MarkTime(Mark);
FindNormalRandoms;
repeat
if (GetColor(146, 42) = 2070783)
then
begin
Mouse(d, f, 5, 5, false);
wait(500 + random(50));
ClickOption('All', 1);
wait(500 + random(50));
break;
end;
until (TimeFromMark(Mark) > 30000 + random(1000))
if (GetColor(146, 42) = 2070783) then
Mouse(486, 38, 2, 2, true);
FindNormalRandoms;
end;
{/////////////////////////////////////////////
Walks back to kebab man
//////////////////////////////////////////// }
procedure BackKebab;
begin
q := 0;
s := 0;
MarkTime(Mark);
Flag;
repeat //70
if RadialWalk(SandColour, 211, 142, 60, 0, 0) then
begin
Flag;
FindNormalRandoms;
break;
end else
//70
if not RadialWalk(SandColour, 211, 142, 60, 0, 0) then
begin
writeln('Could not walk back, quitting...');
s := s + 1;
wait(3000 + random(500));
FindNormalRandoms;
Flag;
end;
until (TimeFromMark(Mark) > 45000 + random(500))
if (s > 15) then
begin
writeln('Quitting could not find colours...');
Players[CurrentPlayer].Loc := 'Got lost walking';
end;
FindNormalRandoms;
Flag;
end;
{/////////////////////////////////////////////
Walks back to bank
//////////////////////////////////////////// }
procedure BackToBank;
begin
MarkTime(Mark);
banksymb := 0;
q := 0;
Flag;
// 245, 172, 52 //177, 148, 41
if RadialWalk(GreyBuildingColour, 177, 148, 41, 0, 0) then
writeln('RadialWalked to bank');
Flag;
repeat
banksymb := GetSymbolColor(rx, ry, 'bank') // finds colour
if FindMMColorTol(x, y, banksymb, 5)
and not (banksymb = 0) then
begin
writeln('Found BankSymbol');
Mouse(x, y, 2, 2, true);
Flag;
FindNormalRandoms;
break;
end else
if not FindMMColorTol(x, y, banksymb, 5)
or (banksymb = 0)
then
begin
writeln('Did not find bank symbol');
FindNormalRandoms;
LowestAngle;
end;
until (TimeFromMark(Mark) > 10000 + random(1000))
Flag;
MakeCompass('W');
end;
{/////////////////////////////////////////////
Opens up Bank + does req stuff
//////////////////////////////////////////// }
procedure OpenBankUp;
begin
q := 0;
MarkTime(Mark);
FindNormalRandoms;
repeat
if (BankOpenQuick(0, 0, 0)) then
wait(2000);
until (BankScreen)
or (TimeFromMark(Mark) > 45000 + random(2000))
if (not (BankScreen)) then
FindBank('akb'); // last resort
if (BankScreen) then
begin
FixBank;
Deposit(2, 28, 2);
Withdraw(1, 1, 0);
CloseBank;
end;
TannedHides := TannedHides + 27;
TotalHides := TotalHides + 27;
FindNormalRandoms;
end;
procedure ProgReport;
begin
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
writeln(' Using Hide Tanner BETA by [Endr1x] ');
writeln(' Have Tanned : ' + inttostr(TannedHides) + ' of ' + (Players[CurrentPlayer].String1) + ' hides for :' + Players[CurrentPlayer].Name);
writeln(' Tanned : ' + inttostr(TotalHides) + ' in total. ');
writeln(' Script Worked for : ' + ScriptTime2(2));
writeln(' ');
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
end;
procedure ConvertPlay;
begin
HidesToTan := Players[CurrentPlayer].String1;
NHidesToTan := Players[CurrentPlayer].Integer1;
end;
procedure AutoColorSet;
begin
GreyBuildingColour := (GetColor(637, 64)); // Grey Colour
SandColour := (GetColor(677, 91)); // Sand Colour
SymbolAccuracy := 0.7;
end;
begin
SetupSRL;
DeclarePlayers;
HighestAngle;
PerfectNorth;
wait(500 + random(50));
AutoColorSet;
repeat
SetupReady; // sets up for new player.
AutoColorSet; // on player switch get new colours
TotalHides := TotalHides + TannedHides;
TannedHides := 0;
LoginPlayer;
repeat
BenMouse := True;
ConvertPlay;
SetupReady;
WalkKebab;
GetTanner;
FindTanner;
TanHides;
BackKebab;
BackToBank;
OpenBankUp;
SRLRandomsReport;
ProgReport;
until not (Players[CurrentPlayer].Loc = 'Alkarid')
or (Players[CurrentPlayer].Active = False)
or (NHidesToTan <= TannedHides)
NextPlayer(true);
writeln(' Switched players over correctly');
Logout;
LoginPlayer;
until (not (loggedin))
NextPlayer(false);
end.
program AutoTalker;
{.include SRL/SRL.scar}
var
frmDesign: TForm;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
const Text1 = 'Text1 Goes Here';
const Text2 = 'Text2 Goes Here';
const Text3 = 'Text3 Goes Here';
procedure buttonclick(sender: TObject);
begin
frmDesign.ModalResult := mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 271;
frmDesign.Height := 215;
frmDesign.Caption := 'Endr1x .::Auto Talker::.';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 66;
Label1.Top := 30;
Label1.Width := 30;
Label1.Height := 13;
Label1.Caption := 'Text1:';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 66;
Label2.Top := 57;
Label2.Width := 30;
Label2.Height := 13;
Label2.Caption := 'Text2:';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 67;
Label3.Top := 86;
Label3.Width := 30;
Label3.Height := 13;
Label3.Caption := 'Text3:';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 108;
Edit1.Top := 25;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'Text Goes Here';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 109;
Edit2.Top := 54;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Text Goes Here';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 108;
Edit3.Top := 84;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := 'Text Goes Here';
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 80;
Button1.Top := 122;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 11;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure CheckKey;
begin
if IsFKeyDown(12) then TypeSend(Text3);
if IsFKeyDown(10) then TypeSend(Text1);
if IsFKeyDown(11) then TypeSend(Text2);
if IsFKeyDown(2) then TerminateScript;
end;
begin
SafeInitForm;
SafeShowFormModal;
repeat
CheckKey;
until (false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>