neeger
2009-02-24 13:44:07
<!– BEGIN TEMPLATE: formanswers –>
neeger - SRL Member Application Form
neeger
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, RapidQ, and novice about C++ and Java
Other Communitys
PHP Classes
How Long have You Played Runescape
Over 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting with scar almost 2 years-but not so largely all the time.
Started off simple scripts-AutoTalker, HighAlcher… walked slowly up to Wc-ers and fletchers, atm working on AutoTanner and fighter.
I have in mind a unique hybrid script, because its less detectabel but thats future-i wish to make one in some day… :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
neeger - SRL Member Application Form
neeger
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, RapidQ, and novice about C++ and Java
Other Communitys
PHP Classes
How Long have You Played Runescape
Over 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting with scar almost 2 years-but not so largely all the time.
Started off simple scripts-AutoTalker, HighAlcher… walked slowly up to Wc-ers and fletchers, atm working on AutoTanner and fighter.
I have in mind a unique hybrid script, because its less detectabel but thats future-i wish to make one in some day… :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program New;
{.include srl/srl.scar}
//-=Al-kharid Any Hide Tanner by Neeger v1.0=-//
{ SETUP
-> Place ur chars in Al-Kharid bank(near the bank booths) and put
money in first inventory slot(nothing else)!
-> Have hides what you wish to tann in first bank slot!
-> Declare players in line 34 and fill up line 25 & 29
-> Run very bright, 32bit true color
-> Post reports, bugs and suggestions =)
}
var
x, y, MS, count, h1x, h1y, Hides, l1x,
l2x, l3x, l4x, l1y, l2y, w, RoadColor1, RoadColor2: Integer;
const
leather = 'green'; // Fill in what hide u wish to make: soft, hard, green,
// blue,red, black, snake, snake2
Invs = 100; // Fill in how many inventorys to tann...
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // How many players
CurrentPlayer := 0; // Witch player starts
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'user'; // Username
Players[0].Pass := 'pass'; // Password
Players[0].Nick := 'user'; // 3-4 letters of your username
Players[0].Pin:= '0000'; // Bank pin-if u have one
Players[0].Active := True;
{ Players[1].Name := ''; // Add more than 1 player if u want...
Players[1].Pass := '';
Players[1].Nick := ''; //3-4 letters of your name
Players[1].Pin:= '0000'; // Bank pin-if u have one...
Players[1].Active := True;
{ Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := ''; //3-4 letters of your name
Players[2].Pin:= '0000'; // Bank pin-if u have one...
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := ''; //3-4 letters of your name
Players[3].Pin:= '0000'; // Bank pin-if u have one...
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := ''; //3-4 letters of your name
Players[4].Pin:= '0000'; // Bank pin-if u have one...
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := ''; //3-4 letters of your name
Players[5].Pin:= '0000'; // Bank pin-if u have one...
Players[5].Active := True; }
end;
procedure Report;
begin
Writeln(' ');
Writeln('---===Al-kharid Any Hide Tanner by Neeger v1.0===---');
Writeln(' -> Tanned: ' + IntToStr(Hides) + ' hides =) ');
Writeln(' -> Worked for: ' + TimeRunning + ' ');
Writeln(' -> Post Reports to: [url]http://www.villavu.com/forum/showthread.php?t=42418?p=550414#post550414[/url] ');
Writeln(' ');
end;
procedure LogOff;
begin
if not LoggedIn then Exit;
Logout;
Report;
end;
procedure IntoEllisHouse;
begin
if not LoggedIn then Exit;
SymbolAccuracy:= 0.8;
w:= 0;
repeat
if findsymbol(x, y, 'tanner') then
begin
Mouse(x, y, 5, 5, True);
Wait(900+random(200));
FFlag(5);
Wait(2300+random(200));
end;
w:= w + 1;
SymbolAccuracy:= SymbolAccuracy - 0.05;
until (w = 8) or findsymbol(x, y, 'tanner');
if (w > 8) then
begin
writeln('Cant find Ellis house :S');
LogOff;
NextPlayer(False);
end;
end;
procedure ClickRoad;
begin
if not LoggedIn then Exit;
MakeCompass('N');
RoadColor1 := (GetColor(665, 70));
RoadColor2 := (GetColor(655, 75));
if not(RadialRoadWalk(RoadColor1, 40, 55, 60, -1, 0)) then
begin
if not(RadialRoadWalk(RoadColor2, 35, 60, 60, -1, 0)) then
begin
writeln('Cant find road :S');
LogOff;
NextPlayer(False);
Exit;
end else
begin
Wait(1000+random(200));
FFlag(10);
Exit;
end;
end else
begin
writeln('esimene läks läbi');
Wait(1000+random(200));
FFlag(10);
Exit;
end;
end;
procedure ToBank;
begin
if not LoggedIn then Exit;
SymbolAccuracy:= 0.8;
w:= 0;
repeat
if findsymbol(x, y, 'bank') then
begin
Mouse(x, y, 5, 5, True);
Wait(1000+random(200));
Flag;
Exit;
end;
w:= w + 1;
SymbolAccuracy:= SymbolAccuracy - 0.05;
until (w = 8)
or findsymbol(x, y, 'tanner');
if (w > 8) then
begin
writeln('Cant find Ellis house :S');
LogOff;
NextPlayer(False);
Exit;
end;
end;
procedure ClickRoad2;
begin
if not LoggedIn then Exit;
MakeCompass('N');
RoadColor1 := (GetColor(645, 150));
RoadColor2 := (GetColor(630, 150));
if not(RadialRoadWalk(RoadColor1, 165, 185, 60, -1, 0)) then
begin
if not(RadialRoadWalk(RoadColor2, 160, 190, 60, -1, 0)) then
begin
writeln('Cant find road back :S');
LogOff;
NextPlayer(False);
Exit;
end else
begin
Wait(1000+random(200));
FFlag(10);
Exit;
end;
end else
begin
Wait(1000+random(200));
FFlag(10);
Exit;
end;
end;
procedure HidesToInv;
begin
if not LoggedIn then Exit;
Wait(650+random(100));
h1x:= 41 + random(15);
h1y:= 97 + random(15);
Mouse(h1x,h1y,0,0,false)
Wait(650+random(83));
if not ChooseOption('ll') then
begin
writeln('Cant widraw hides :S');
LogOff;
NextPlayer(False);
end;
Wait(1600+random(150));
end;
procedure TannAllHides;
begin
Wait(3000+random(250));
case (leather) of
'soft' : begin
l1x:= 60 + random(15);
l1y:= 90 + random(20);
Mouse(l1x,l1y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann softleather...');
NextPlayer(False);
Logoff;
end;
Wait(600+random(150));
end;
'hard': begin
l2x:= 170 + random(15);
l1y:= 90 + random(20);
Mouse(l2x,l1y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann hardleather...');
NextPlayer(False);
Logoff;
end;
Wait(600+random(150));
end;
'snake': begin
l3x:= 290 + random(15);
l1y:= 90 + random(20);
Mouse(l3x,l1y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann snake...');
NextPlayer(False);
Logoff;
end;
Wait(600+random(150));
end;
'snake2': begin
l4x:= 410 + random(15);
l1y:= 90 + random(20);
Mouse(l4x,l1y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann snake...');
NextPlayer(False);
Logoff;
end;
Wait(600+random(150));
end;
'green': begin
l1x:= 60 + random(15);
l2y:= 215 + random(20);
Mouse(l1x,l2y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann greendragonhide...');
LogOff;
NextPlayer(False);
end;
Wait(600+random(150));
end;
'blue': begin
l2x:= 170 + random(15);
l2y:= 215 + random(20);
Mouse(l2x,l2y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann bluedragonhide...');
Logoff;
NextPlayer(False);
end;
Wait(600+random(150));
end;
'red': begin
l3x:= 570 + random(15);
l2y:= 215 + random(20);
Mouse(l3x,l2y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann reddragonhide...');
Logoff;
NextPlayer(False);
end;
Wait(600+random(150));
end;
'black': begin
l4x:= 410 + random(15);
l2y:= 215 + random(20);
Mouse(l4x,l2y,0,0,false);
Wait(450+random(200));
if not ChooseOption('ll') then
begin
Writeln('Cant tann snakeskin...');
Logoff;
NextPlayer(False);
end;
Wait(600+random(150));
end;
end;
end;
function FindEllis(which: String): boolean;
var
TPA: TPointArray;
UpTextArray: TStringArray;
i, time, x, y: integer;
begin
case lowercase(which) of
'ellis': begin
UpTextArray := ['Ellis','llis', 'lis'];
FindColorsSpiralTolerance(x, y, TPA, 3300744, MSX1, MSY1, MSX2, MSY2, 5);
end;
end;
MarkTime(Time);
if(Length(TPA) > 0)then
begin
for i:= 0 to High(TPA) do
begin
MMouse(TPA[i].x, TPA[i].y, 1, 1);
Wait(350+random(83));
if(IsUpTextMultiCustom(UpTextArray))then
begin
Mouse(TPA[i].x, TPA[i].y, 1, 1, false);
if(lowercase(which)='ellis')then ChooseOption('rade');
Result := true;
Exit;
end else Result := false;
if(TimeFromMark(Time) > 5000)then Exit;
end;
end else Result := false;
end;
begin
SetUpSRL;
ActivateClient;
Wait(1000);
ClearDebug;
DeclarePlayers;
MS := 9 + random(3)
Mousespeed := MS
Disguise('Teen Porn'{xDD});
Wait(2000);
LoginPlayer;
Setrun(true);
Wait(450+random(200));
MakeCompass('N');
SetAngle(true);
Wait(250+random(200));
GameTab(4);
repeat
if not OpenBankFast('akb') then
begin
Writeln('Didnt find Bank =(');
LogOff;
NextPlayer(False);
end else
begin
FixBank;
count:= 0;
repeat
HidesToInv;
CloseBank;
ClickRoad;
IntoEllisHouse;
FindEllis('Ellis');
TannAllHides;
count:= count + 1;
Hides:= count*27
Setrun(true);
ClickRoad2;
ToBank;
if not OpenBankFast('akb') then
begin
Writeln('Didnt find Bank =(');
LogOff;
NextPlayer(False);
end;
Wait(1800+random(200));
if BankScreen then Deposit(2, 28, True);
Report;
until(count >= Invs);
end;
if (count >= Invs) then
begin
Writeln('Player did all loads successfully =)');
LogOff;
NextPlayer(True);
end else
begin
Writeln('Playr has failed =(');
LogOff;
NextPlayer(False);
end;
until (CurrentPlayer > HowManyPlayers - 1)
end.——————————————————
<!– END TEMPLATE: formanswers –>
