ShowerThoughts
2007-09-09 07:29:01
hermpie - SRL Member Application Form
hermpie
What is the meaning to life?
just make fun and more stuff afcorse
srl is much of it
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
sythe(*shame*), moppar(sometime)
How Long have You Played Runescape
3+ years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hello fellow scripters.
my real name is hermen now you know why my username is hermpie;).
like 3 months ago i started to visit the community, after a month my dream was getting SRL member, so i started learning it in the begin i was unpatient but i learned from that i think.
i made a few not finished script but that few can proof i can do it and i made 1(2//the hidetanner is 99% working almost) working script
info:
i will post
Ultimate Thea-cup Thiever v 0.1//for the script just evrything but not multiplayer
hide tanner//for the script and multiplayer//only the walking doesnt work for the rest it works great
restlessghost//not finished yet but yeah the stuff in it is okay..
ow and that i got 600+ post pls don't think i am spammer i just like to be here online you know.//i would i could acces from school but they monitor the computers they can see what your doing..
if you got questions or critism pls post it i wanna learn from it
if there a few small mistakes and i can't get in then pm me
just pm if there mistakes;)
the most important thing is i wanna learn from it.
i did my best on english
about: my experience i didnt do one launge before but i am good wit h computer and i bought one for myself with my own cash on age 10 (i hope you get that i love computers);) not that i think i am good now just wanna say i love computers!and now i love srl!
hermpie
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Ultimate Thea-cup Thiever v 0.1
v0.2 beta under it not much diff
//IF THE WALKING TO THE BANK IS NOT WORKING VERY GOOD THEN GO TO LINE 173 and remove the // for radialwalk
//if you did that then put on line 172 2x// for radial walk because otherwise it wil do the same 2 times..
program theacup;
{.include SRL/SRL.scar}
var
X, Y, Loads, VarockSand, VarockSandColor,
TheaSeller, Times, startskill, endskill : integer;
const
Load= 50;//how many loads to do
//dont use this srl thingy is a bit outdated
Drop=False;//IF THIS IS TRUE IT WONT BANK THE CUP OF THEA
//dont change this only if its clicks to fast at stealing
TimeToWait=5500;//
procedure LoadBitmap;
begin
VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
'02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
'5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
'B9FBB86E4F1526A5E1D559FB9FF901944');
TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
'4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
'088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
'9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
'4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
'735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
end;
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
end;
end;
procedure antiban;
begin
Case Random(10) Of
1 : HoverSkill('Thieving', False);
2 : HoverSkill('thieving', False);
3 : begin
GameTab(1+Random(12));
Wait(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(x,y,333,273);
end;
end;
end;
procedure GetVarockSandColor;
begin
LoadBitmap;
FindFastRandoms;
VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
FreeBitmap(VarockSand);
end;
procedure StealFromTheaStall;
begin
Makecompass('E');
lowestangle;
GameTab(4);
antiban;
repeat
FindFastRandoms;
if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(x,y,0,0,False);
if ChooseOption('rom') then
begin
WriteLN('did steal the stall');
end;
if invfull then
exit;
else
wait(TimeToWait + random (233));
end;
until(InvFull);
if (InvFull) then
begin
Loads :=Loads + 1
end;
end;
procedure ToBank;
begin
MakeCompass('N');
SetRun(true);
GameTab(2);
endskill:=GetSkillLevel('thieving');
Highestangle;
FindVarrockRoadColor;
FindFastRandoms;
if FindBank('veb')then
begin
Exit;
end else
FindFastRandoms;
RadialRoadWalk(VarockSandColor,340,0,70,0,0);//IF IT DOESNT WALK PERFEXT TO BANK THEN PUT A // FOR THIS LINE(RADIAL)
//RadialRoadWalk(VarockEastColor,340,0,70,0,0);//AND REMOVE THE // FOR THIS LINE
FindBank('veb');
end;
procedure HandleBank;
begin
DepositAll;
Closebank;
GameTab(4);
if (invfull) then
begin
OpenBankQuiet('veb');
DepositAll;
Closebank;
GameTab(4);
end;
end;
Procedure ToTheaStall;
begin
Setrun(False);
GetVarockSandColor;
RadialRoadWalk(VarockSandColor,90,160,65,0,0);
Wait(3000 + random(500));
repeat
FindFastRandoms;
Times:=Times + 1
if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
begin
Mouse(x,y,0,0,true);
wait(1);
Flag;
while Flag do
wait(1);
FlagPresent;
if FlagPresent Then
wait(6500+random(200));
end;
until(Times=10)
FreeBitmap(TheaSeller);
end;
procedure proggy;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads did : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;
procedure proggy1;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads dropped : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;
procedure SetupClient;
begin
ActivateClient;
Wait(1000);
GameTab(2);
startskill:=GetSkillLevel('thieving');
gametab(12);
setbar('Brightness',4);
GameTab(4);
MakeCompass('N');
Highestangle;
antiban;
end;
{===============]
mainloop
[===============}
begin
SetupSRL;
SetupClient
repeat
if drop then
begin
FindFastRandoms;
stealfromtheastall;
antiban;
FindFastRandoms;
dropall;
proggy1;
end else
ToTheaStall;
FindFastRandoms;
stealfromtheastall;
antiban;
toBank;
handlebank;
Proggy;
until(loads=load)
GameTab(2);
endskill:=GetSkillLevel('thieving');
Proggy;
end.if this one is not working good then its because i lend a member account for 1 time and after that i couldnt acces it anymore for some reasons
v0.2 beta
//IF THE WALKING TO THE BANK IS NOT WORKING VERY GOOD THEN GO TO LINE 173 and remove the // for radialwalk
//if you did that then put on line 172 2x// for radial walk because otherwise it wil do the same 2 times..
program theacup;
{.include SRL/SRL.scar}
{.include SRL\SRL\Misc\trade.scar}
var
X, Y, Loads, VarockSand, VarockSandColor, TheaSeller, Times, startskill, endskill : integer;
const
Load= 50;//how many loads to do
//dont use this srl thingy is a bit outdated
DropTea=False;//drops tea
//LET THIS//if it clicks steal tea to fast than change this
TimeToWait=5500;//
procedure LoadBitmap;
begin
VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
'02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
'5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
'B9FBB86E4F1526A5E1D559FB9FF901944');
TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
'4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
'088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
'9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
'4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
'735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
end;
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 12 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
12: If ClickToContinue Then
Result := True;
end;
end;
end;
procedure antiban;
begin
Case Random(20) Of
1 : HoverSkill('Thieving', False);
2 : HoverSkill('thieving', False);
3 : begin
GameTab(1+Random(12));
Wait(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(x,y,333,273);
end;
end;
end;
procedure GetVarockSandColor;
begin
LoadBitmap;
FindFastRandoms;
VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
FreeBitmap(VarockSand);
end;
procedure StealFromTheaStall;
begin
Makecompass('E');
lowestangle;
GameTab(4);
repeat
FindFastRandoms;
if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(x,y,0,0,False);
if ChooseOption('rom') then
begin
WriteLN('did steal the stall');
end;
if invfull then
exit;
else
antiban;
wait(TimeToWait + random (233));
end;
until(InvFull);
if (InvFull) then
begin
Loads :=Loads + 1
end;
end;
procedure ToBank;
begin
MakeCompass('N');
SetRun(true);
GameTab(2);
endskill:=GetSkillLevel('thieving');
GameTab(4);
Highestangle;
FindVarrockRoadColor;
FindFastRandoms;
if FindBank('veb')then
begin
Exit;
end else
FindFastRandoms;
RadialRoadWalk(VarockSandColor,270,340,70,0,0);//IF IT DOESNT WALK PERFEXT TO BANK THEN PUT A // FOR THIS LINE(RADIAL)
//RadialRoadWalk(VarockEastColor,340,0,70,0,0);//AND REMOVE THE // FOR THIS LINE
FindBank('veb');
end;
procedure HandleBank;
begin
DepositAll;
Closebank;
GameTab(4);
if (invfull) then
begin
OpenBankQuiet('veb');
DepositAll;
Closebank;
GameTab(4);
end;
end;
Procedure ToTheaStall;
begin
Setrun(False);
GetVarockSandColor;
linearroadwalk(VarockSandColor,100,75,x,y);
Wait(3000 + random(500));
repeat
FindFastRandoms;
Times:=Times + 1
if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
begin
Mouse(x,y,0,0,true);
wait(1);
Flag;
while Flag do
wait(1);
FlagPresent;
if FlagPresent Then
wait(6500+random(200));
end;
until(Times=10)
FreeBitmap(TheaSeller);
end;
procedure proggy;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads did : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;
procedure proggy1;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads dropped : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;
procedure SetupClient;
begin
ActivateClient;
Wait(1000);
gametab(12);
setbar('Brightness',4);
GameTab(2);
startskill:=GetSkillLevel('thieving');
MakeCompass('N');
Highestangle;
antiban;
end;
{===============]
mainloop
[===============}
begin
SetupSRL;
SetupClient
repeat
if droptea then
begin
FindFastRandoms;
stealfromtheastall;
antiban;
FindFastRandoms;
dropall;
proggy1;
end else
ToTheaStall;
FindFastRandoms;
stealfromtheastall;
antiban;
toBank;
handlebank;
Proggy;
until(loads=load)
GameTab(2);
endskill:=GetSkillLevel('thieving');
Proggy;
end.dont know ecxactly the diff between 0.1 and 2 beta but they both work and 2 got 10 more lines ..
hide tanner it works great but only the walking is a prob the rest works great ehm i am gonna use dtm or ddtms for it but i will do that later ,i know how to use them but i dont got much time
*finly stopped talking*
here
program HideTannerAndCrafter;
{.include srl/srl.scar}
var
x, y ,cy,cx:integer;
Tan, kebabcolor,Kebab :integer;
TanColor, hide, H,Hi:integer;
HideText,loads,load:integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :=''; // runescape username
Players[0].Pass :=''; // runescape password
Players[0].Nick :='ran'; // nick, 3 - 4 letters of username
Players[0].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[0].Integers[1] := 5; //howman
Players[0].Active:=True; // active player
writeln(inttostr(HowManyPlayers)+' Players');
end;
{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
end;
end;
procedure LoadDtms;
begin
hide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
'8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
'2301249809A891041202F8D50000C82E06DB');
HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
'4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
'19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
'8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
'4F40CD6622D2CF66C2691500FDE0200E');
HI := DTMFromString('78DA635CCFC0C0B09001159CF8C1C005A4188' +
'1F83F1030AE0332E63360058C307A13916A961150B38EB01A001A' +
'D60C6B');
end;
function FindHideText1:boolean;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not loggedin then exit;
LoopInteger := 0;
LoopBrake := False;
loaddtms;
repeat
LoopInteger:= LoopInteger + 1
if FindDTM(HideText,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,5,5);
wait(100+random(300));
GetMousePos(x,y);
mouse(x,y,0,0,false);
LoopBrake := True;
end;
until((LoopInteger>=10)or(LoopBrake))
if loopbrake then
logout;
nextplayer(False);
end;
function FindHideText:boolean;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not loggedin then exit;
LoopInteger := 0;
LoopBrake := False;
loaddtms;
repeat
LoopInteger:= LoopInteger + 1
if FindDTM(HI,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,5,5);
wait(100+random(300));
GetMousePos(x,y);
mouse(x,y,0,0,false);
result:=true;
LoopBrake := True;
end else
result:=false
logout;
until((LoopInteger>=10)or(LoopBrake))
if not((LoopInteger>=10)or(LoopBrake)) then
logout;
nextplayer(False);
end;
procedure GetHides;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
If Not LoggedIn Then Exit;
makecompass('N')
Highestangle;
wait(100);
OpenBankFast('akb');//leave this
wait(100);
fixbank;
LoopInteger := 0;
LoopBrake := False;
repeat
LoopInteger:= LoopInteger + 1
if FindObj(X, Y,'oins', 2084091,10) then
loopbrake:=true
Mouse(x,y,0,0,false);
begin
if chooseoption('X') then
begin
wait(1000);
writeln('found money taking money from bank');
typesend('81');
loopbrake:=true
end;
end;
wait(1000+random(500));
until((loopinteger>=10) or (loopbrake))
loaddtms;
if FindDTM(hide,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,1,0);
mouse(x,y,2,1,false);
if chooseoption('All') then
begin
writeln('found hides in bank');
closebank;
exit;
end else
writeln('cant find cowhide in bankscreen');
closebank;
logout;
end;
end;
procedure GetKebabColor;
begin
Kebab := BitmapFromString2(False, 'a8189178DA45CCBB11C0200C' +
'03D09584F187169378FF91402948F34EA7930D00F91C10FDA06D1' +
'E6D38B545F5BD5986FE7D71E3C253AD644EA3839547BB19DDBEFF' +
'AB4CA6847544D506C26');
KebabColor:=AutoColorThis(Kebab,200 , MMX1, MMY1, MMX2, MMY2);
WriteLn('KebabColor: '+IntToStr(kebabColor));
FreeBitmap(Kebab);
end;
procedure GetTanColor;
begin
tan := BitmapFromString2(False, 'a51C4C78DA45CC410E80300' +
'844D12B8DA543E9D26AB9FF91044C74F3F2432600C0DD02D81928' +
'2D64DFD9E89F34CD962B6C561766D3EB5E0FC6AAFD38B2EBC3AB2' +
'E66CF1A4D4F65DBA08ABAFF3E8FF');
TanColor:=AutoColorThis(Tan, 100, MMX1, MMY1, MMX2, MMY2);
WriteLn('TanColor: '+IntToStr(TanColor));
FreeBitmap(Tan);
end;
function ToHideTanner:boolean;
begin
if not loggedin then exit;
if findcolorspiraltolerance(x,y,2566901,MMX1,MMY1,MMX2,MMY2,50) then
mmouse(x,y,0,0);
mouse(x,y,0,0,true);
wait(10500+random(200));
GetTAnCOlor;
radialroadwalk(TanColor,300,360,60,0,0);
flag;
end;
function TalkToEllis:boolean;
var
LoopInteger: Integer;
begin
if not loggedin then exit;
LoopInteger := 0;
repeat
LoopInteger := LoopInteger + 1
wait(100+random(300));
if (FindColorTolerance(x, y, 5208536, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
Mouse(x, y, 6, 6, false);
wait(100+random(300));
ChooseOption('ade');
markTime(H);
Wait(1000+random(1000));
end;
until FindHideText or findhidetext1 or(LoopInteger >= 15)
begin
if findhidetext1 then
begin
logout;
nextplayer(False);
end else
chooseoption('ll');
wait(500+random(50))
end;
end;
function ToBank:boolean;
begin
If Not LoggedIn Then Exit;
setrun(true);
radialroadwalk(2566901,130,200,65,x,y);
if findcolorspiraltolerance(x,y,1390414,MMX1,MMY1,MMX2,MMY2,10) then
begin
mmouse(x,y,0,0);
mouse(x,y,3,3,true);
Flag;
end;
if findcolorspiraltolerance(x,y,5166057,MMX1,MMY1,MMX2,MMY2,10) then
begin
mmouse(x,y,0,0);
mouse(x,y,3,3,true);
flag;
end;
end;
procedure StoreTannedHides;
begin
If Not LoggedIn Then Exit;
openbankfast('akb');//leave this
depositall;
load:=load + 1
end;
procedure setupclient;
begin
LoadDtms;
activateclient;
wait(1000);
declareplayers;
loginplayer;
end;
{====================]
mainloop
[====================}
begin
setupsrl;
setupclient;
repeat
Gethides; //takes the hide and money out of bank
ToHideTanner;//goes to hide tanner
TalkToEllis;//talks to hideranner and tans the hides
tobank;//goes to bank
storeTannedHides;//stores the tanned hides
Until Load = Players[CurrentPlayer].Integers[1]
if (Load >= Players[CurrentPlayer].Integers[1]) then
begin
NextPlayer(True);
Loads := 0;
end;
end.and my autorestless ghost quester is not finished yet..did 50% of it maybe less i quited it to learn ddmts now i know how to use them but working on a other script
program restlessghost;
{.include SRL/SRL.scar}
{.include srl/srl/core/doorprofiles.scar}
{.include SRL/SRL/skill/magic.scar}
var
FindNorMalRandomsTime, SST1, SST2, FindFastRandomsTime, door, PleaseWait, H:integer;
zy, zx, y, Hx, hy, x, k, talked :integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :=''; // runescape username
Players[0].Pass :=''; // runescape password
Players[0].Nick :='atts'; // nick, 3 - 4 letters of username
Players[0].Loc :='Areck'; // you can use 'somewhere' or 'Aereck'
Players[0].Active:=True; // active player
writeln(inttostr(HowManyPlayers)+' Players');
end;
{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
end;
end;
//credits to WT-FAWAKI-----------------------------------------//
// -- Performs Wait and FindTalk. + calls FindNormalRandoms every 10 secs and
// -- FindFastRandoms every 3 secs.
//----------------------------------------------------------------------------//
Procedure WaitPlus(Time:Integer);
var T: integer;
begin
For T := 1 to Time do
begin
if not LoggedIn then exit;
Wait(200 + Random(50));
FindTalk;
RC;
end;
FindTalk;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
begin
FindNorMalRandoms;
MarkTime(SST1);
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
begin
FindFastRandoms;
MarkTime(SST2);
end;
end;
{===============================================]
this procedure do,s antiban //by: me =)
[===============================================}
procedure antiban;
begin
Case Random(10) Of
1 : HoverSkill('defense', False);
2 : HoverSkill('strenght', False);
3 : begin
GameTab(1+Random(12));
waitplus(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(zx,zy,333,273);
end;
end;
end;
{===============================================]
loads bitmaps //by: me =)
[===============================================}
procedure loadbitmaps;
begin
PleaseWait := BitmapFromString(60, 2, 'z78DA33300001373030C060E30' +
'294A8A7C41C52012EF3F1DB458C4A4C71FC2A872BA08F1F890F4F' +
'00A555AC21');
door := BitmapFromString2(False, 'aDD43D78DAC59241128330084' +
'5AFF4090984A53572FF232966615DD8493B6365F12603FF6D0800' +
'30D50D287340E32D940E72F453CD31ED1997E8C71032455F8B1FB' +
'418506B1BF39E7FB02A74495E595F675EE54B6326EAD6620EE777' +
'8E5B8A429C3BEFB0146262FFB47C4F8D583DFFACF5F92ABEDDC39' +
'535788176FEDFFB2C9D55521BB9D8DF6A05CAB');
end;
{===================================================================]
casts hometeleport and checks if you already did it //by: me =)
[===================================================================}
Procedure casthometeleport;
begin
gametab(7);
cast('home teleport');
wait(15000);
end;
{============================================================]
made by nielsie and a very BIG UPDATE by: me =)
[============================================================}
Function InTalk: Boolean;
begin
if (FindColorTolerance(x, y, 128, 220, 360, 365, 370, 5)) then
Result := True;
end;
{============================================================]
i updated a function from srl with an extra//by : me XD
[============================================================}
function ClickTextX(b: Integer; txt: string; Left:Boolean): Boolean;
var
a : integer;
begin
repeat
ClickNpcChatText(txt,left);
a := a + 1;
talked := talked + 1
until(b = a);
writeln('talked ' + intToStr(talked) +' time(s)');
end;
{===============================================]
find and talk stuff //by: me =)
[===============================================}
function FindAndTalkToAereck:boolean;
var
X:integer;
begin
repeat
X := X + 1
if (FindObj(Hx, Hy, 'ereck', 6984382, 10)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('to');
markTime(H);
waitplus(1);
end;
until(InTalk) or (X > 10);
if (InTalk) then
begin
writeln('in talk with father Aereck');
ClickTextX (1,'continue',true);
ClickTextX (1,'looking',true);
ClickTextX (2,'continue',true);
ClickTextX (1,'help',true);
ClickTextX (9,'continue',true);
end;
end;
{===============================================]
somthing with the door //by: boreas
[===============================================}
procedure GotoSecondEasternMostDoor;
var
MyDoors: array of DoorProfile;
f:integer;
mytpa:array of tpoint;
begin
activateclient;
MyDoors:=GetDoors;
setarraylength(mytpa,getarraylength(mydoors));
for f:= 0 to getarraylength(MyDoors)-1 do
begin
mytpa[f]:=MyDoors[f].midpoint;
end;
mytpa:= RearrangeTPA(mytpa,0,0,true,false);
mouse(mytpa[0].x,mytpa[0].y,2,2,true);
flag;
end;
{===============================================]
handles the door at father Aereck //by: me =)
[===============================================}
function HandleDoor:boolean;
begin
gotosecondeasternmostdoor;
makecompass('E');
lowestangle;
if findcolorspiraltolerance( x, y,2309965,MSx1, MSy1, MSx2, MSy2,75) then
begin
writeln('color found');
mmouse(x,y,0,0);
mouse(x, y, 0, 0, false);
waitplus(150);
if isuptextmulti('Open','pen','open') then
begin
mouse(x, y, 0, 0, true);
result:=true
writeln('opened door')
end else
if isuptextmulti('ose','Close','lose') then
begin
result:=true
writeln('door already opened' )
end;
end;
end;
{===============================================]
walkings and stuff //by: me =)
[===============================================}
function WalkToUrhney :boolean;
begin
writeln('walking to Urhney')
RadialWalk( 1597519, 170, 180, 65, x, y);
LinearWalk(0,185,65,x,y);
end;
{===============================================]
find and talk stuff //by: me =)
[===============================================}
procedure FindAndTalkToUrhney;
begin
if (FindObj(Hx, Hy, 'rhney', 7028284, 5)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('alk-to');
markTime(H);
repeat
waitplus(500);
until(InTalk) or (TimeFromMark(k) >= 10000);
if (InTalk) then
begin
waitplus(900 + random(400));
writeln('in talk with father Urhney');
ClickTextX (1,'continue',true);
ClickTextX (1,'sent',true);
ClickTextX (2,'continue',true);
ClickTextX (1,'haunting',true);
ClickTextX (11,'continue',true);
end;
end;
end;
{======================================]
walks to ghost // by: me =)
[======================================}
procedure WalkToGhost;
begin
end;
{======================================]
find and talks ghost // by: me =)
[======================================}
procedure FindAndTalkToGhost;
begin
if (FindObj(Hx, Hy, 'ghost', 10661538, 5)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('alk-to');
markTime(H);
repeat
waitplus(500);
until(InTalk) or (TimeFromMark(k) >= 5000);
if (InTalk) then
begin
waitplus(900 + random(400));
writeln('in talk with restless ghost');
ClickTextX (4,'continue',true);
ClickTextX (1,'problem',true);
ClickTextX (12,'continue',true);
end;
end;
end;
{===================================================]
walks to wizard towe for the skull // by: me =)
[===================================================}
procedure WalkToSkull;
begin
end;
{======================================]
takes the skull from altar // by: me =)
[======================================}
procedure GetSkull;
begin
end;
{====================================================]
goes back to ghost and ends the quest// by: me =)
[====================================================}
procedure EndQuest;
begin
end;
{===============================]
signature
[===============================}
procedure sign;
begin
writeln(' 111111111 111111111 111111 111 111 11111 1111111111111 111111111111 ')
writeln(' 11 111 111111111 1111111 111 111 111111111111 11111111111 111111111111 ')
writeln(' 11 111 111 1111 111 111 11 11 11 1111 ')
writeln(' 11 11 111 111 111 111 111 111 11 1111 ')
writeln(' 1111111 11111111 11111111 111 1111111 1111111111 111 111 1111111111 1111 ')
writeln(' 111111 11111111 11111111 111 1111111 1111111111 111 111 1111111111 1111 ')
writeln(' 11 111 111 111 111 111 111 111 111 11 1111 ')
writeln(' 11 111 111111111 111111111111 111 111 111 111 11 1111 ')
writeln(' 11 111 111111111 1111111111 111 111 11111111111 11111111111 1111 ')
end;
{===============================]
proggy
[===============================}
procedure proggy;
begin
writeln(' --------------------------------')
writeln(' thank you that you used ')
writeln(' my auto-quester, remember to ')
writeln(' post bugs/proggy,s on my thread.')
writeln(' --------------------------------')
writeln(' progess-report ')
writeln('---------------------------------')
writeln(' ran for' + TimeRunning+' ')
writeln(' ')
writeln('---------------------------------')
end;
{==============================]
setups the client //by: me=)
[==============================}
procedure setupclient;
begin
setupsrl;
sign;
wait(2000);
declareplayers;
activateclient;
wait(500);
loginplayer;
highestangle;
makecompass('N')
end;
{===============================================]
MAINLOOP //by: me =)
[===============================================}
begin
setupclient;
if players[currentplayer].loc='somewhere' then
begin
casthometeleport;
end;
writeln('starting script');
findandtalktoAereck;
writeln('talked to Aereck');
HandleDoor;
writeln('handled door');
WalkToUrhney;
writeln('walked to urhney');
FindAndTalkToUrhney;
writeln('talked to urhney');
walktoghost;
writeln('walked to ghost');
findandtalktoghost;
writeln('talked ghost');
walktoskull;
writeln('walked to skull');
getskull;
writeln('took skull');
endquest;
writeln('quest completed heres the proggy :');
proggy;
end.credits to
-n3ss3s for helping me scripting and learning good stuff, thank you
-cathering for helping me scripting to
-boreas for something with a door click on mm map procedure in the autoquester
-itschris917/for helping me learning scripting
-some other people i cant remember//all thanks!
i made the ultimate….. on my own only findfastrandoms is not mine the hidetanner is fully mine but not the ffrandoms ehm and if it is somhing from some1 else its credited
i had some help with restlesghost
what i learned
-basics
-multiplayer
-autcolor with bitmaps and dtms//not the hard ones
-using bitmaps and dtms and almost ddtms
- how to make a ussefull script(finish a script)
-all the walkings you can use//i stil not fixed how to walk in the hidetanner succesfully
-just stuff like evrthing out of core.//dont know how to explain
all people thanks for helping me scripting!(if i need to add info in the script what this does and that does you know then say it)
now just waiting…
any questions pm me
or contact me at [email]kotsz@live.nl[/email]
hermpie
——————————————————
<!– END TEMPLATE: formanswers –>