MylesMadness
2008-01-05 15:55:33
Mylesmadness - SRL Member Application Form
Mylesmadness
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Little java and html
Other Communitys
Kyab.asssoft.org
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 all,
This would be my 3rd and hopefully final time applying. The first time was horrible. I used an auto buyer… The second time I used this script, and the only thing that people said was the “walking doesn’t have fail-safes”. Well I’ve changed that and more. I'm a Kyab member if that means anything to you (Probably doesn't). Well if you say no please tell my why and I will fix it ASAP. None of this would be possible with out all you guys.
Thanks for reading,
~MylesMadness
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{=========================================================================]
[ NAME : MEM ]
[ WRITER : MylesMadness ]
[ CATEGORY : Mineing ]
[ DESCRIPTION : Mines Iron and Banks It ]
[ USAGE : Start In Varock East Bank ]
[ AUTOCOLOR : Yes ]
[ NOTES : Pick must be in inventory ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. Start script Logged In! ]
[=========================================================================}
program MEM;
{.include srl/srl.scar}
var
x, y, Loads, Item, RRoadDTM, BrokenPick: integer;
RoadMP: TDTMPointDef;
RoadSP: array[0..2] of TDTMPointDef;
RoadDTM: TDTM;
function FindVarrockRoadColor2: Integer; //Tarajunky <3
var
GC, a, l, TestColor, Red, Green, Blue: integer;
var
P: array of Tpoint;
begin
GC := 7304312;
Flag;
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
l := GetArrayLength(P);
for a := 1 to l - 1 do
begin
if rs_OnMinimap(P[a].x, P[a].y) then
begin
TestColor := GetColor(P[a].x, P[a].y);
if SimilarColors(TestColor, GC, 60) then
begin
red := (TestColor mod 256);
green := ((TestColor / 256) mod 256);
blue := ((TestColor / 256) / 256);
if Red - Blue <= 12 then if Red - Blue >= 8 then
if Red - Green <= 6 then if Red - Green >= -1 then
if Green - Blue <= 10 then if Green - Blue >= 4 then
if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
if GetColor(P[a].x, P[a].y + 5) = TestColor then
if GetColor(P[a].x + 5, P[a].y) = TestColor then
if GetColor(P[a].x, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y) = TestColor then
if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
begin
Result := TestColor;
Exit;
end;
end;
end;
end;
WriteLn('Could not find Varrock Road Color!');
Result := 0;
end;
procedure LoadDDTM;
begin
RoadMP.x := 623;
RoadMP.y := 60;
RoadMP.areasize := 1;
RoadMP.areashape := 0;
RoadMP.color := FindVarrockRoadColor2;
RoadMP.tolerance := 6;
RoadSP[0].x := 632;
RoadSP[0].y := 30;
RoadSP[0].areasize := 5;
RoadSP[0].areashape := 0;
RoadSP[0].color := FindVarrockRoadColor2;
RoadSP[0].tolerance := 6;
RoadSP[1].x := 637;
RoadSP[1].y := 84;
RoadSP[1].areasize := 5;
RoadSP[1].areashape := 0;
RoadSP[1].color := FindVarrockRoadColor2;
RoadSP[1].tolerance := 6;
RoadSP[2].x := 600;
RoadSP[2].y := 62;
RoadSP[2].areasize := 5;
RoadSP[2].areashape := 0;
RoadSP[2].color := FindVarrockRoadColor2;
RoadSP[2].tolerance := 6;
RoadDTM.MainPoint := RoadMP;
RoadDTM.SubPoints := RoadSP;
RRoadDTM := AddDTM(RoadDTM);
end;
procedure LoadBitmaps; //From Mineing.scar. I just didn't want to include it
begin
BrokenPick := BitmapFromString(11, 6, 'z78DA73730301038A811' +
'B55CDA18569B800E5F662EA722311407401000F035515');
end;
procedure NoBan;
var
OldTab, I, R: integer;
begin
if (not (LoggedIn)) then
Exit;
case Random(250) of
0, 10, 11, 12, 13, 14: MMouse(Random(MSX2), Random(MSY2), random(5), random(5))
1, 15, 16, 17:
begin
R := Random(3) + 1;
repeat
MMouse(Random(MSX2), Random(MSY2), random(5), random(5))
Inc(I)
until (I = R)
end;
2, 18, 19, 20:
begin
HoverSkill('Mining', false);
GameTab(4)
end;
3, 21, 22, 23:
begin
HoverSkill('random', false);
GameTab(4);
end;
4, 24, 25:
begin
OldTab := GetCurrentTab;
GameTab(Random(14) + 1)
GameTab(OldTab)
end;
5: PickUpMouse;
6: AlmostLogOut;
7: RandomRClick;
8: begin
case random(5) of
0: TypeSend('Whats up?');
1: TypeSend('Mining lvls?');
2: TypeSend('Mine levels?');
3: TypeSend('Sup?');
end;
end;
9: begin
MakeCompass('N');
wait(10 + random(5));
MakeCompass('S');
wait(10 + random(5));
MakeCompass('N');
end;
10: begin
LowestAngle;
wait(10 + random(10));
HighestAngle;
end;
11: begin
LowestAngle;
wait(10 + random(5));
Makecompass('E')
wait(10 + random(5));
HighestAngle;
wait(10 + random(5));
Makecompass('S')
wait(10 + random(5));
lowestAngle;
wait(10 + random(5));
Makecompass('W')
wait(10 + random(5));
HighestAngle;
wait(10 + random(5));
Makecompass('N')
wait(10 + random(5));
end;
end;
end;
procedure RespondBack(Find, Say: TStringArray);
var
I, R: Integer;
begin
for I := 0 to GetArrayLength(Find) - 1 do
if InChat(Find[I]) then
begin
Writeln('Found Text ' + Find[I] + ', Responding')
R := Random(GetArrayLength(say));
Typesend(Say[R])
Writeln('Said ' + Say[R])
exit;
end;
end;
procedure DoResponding;
begin
if (not (LoggedIn)) then
Exit;
RespondBack(['hello', 'hi', 'yo', 'Hey'], ['hello', 'hi', 'yo', 'Hey'])
RespondBack(['mining lvls', 'mine lvls'], ['Im ' + IntToStr(Players[CurrentPlayer].level[15]), 'Im ' + IntToStr(Players[CurrentPlayer].level[15]) + '. You?', IntToStr(Players[CurrentPlayer].level[15])])
RespondBack(['respond', 'talk'], ['what?', 'no', 'why?'])
end;
procedure WalkMine;
begin
if (not (LoggedIn)) then
Exit;
makecompass('s')
highestangle;
RadialRoadWalk(FindVarrockRoadColor2, 90, 30, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 70, 110, 70, 2, 2);
if (FindDTM(RRoadDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
RadialRoadWalk(FindVarrockRoadColor2, 165, 125, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 160, 190, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 180, 210, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 165, 200, 70, 2, 2);
If findSymbol(x, y, 'mining site') then
begin
Mouse(x, y, 2, 2, True)
flag;
end else
begin
Mouse(602, 129, 6, 6, True)
Flag;
end;
if not (findSymbol(x, y, 'mining site')) then
begin
Writeln('We are lost. Logging out')
Logout;
end;
end else
begin
Writeln('We are lost. Logging out')
Logout;
end;
end;
procedure WalkBank;
begin
if (not (LoggedIn)) then
Exit;
makecompass('n')
RadialRoadWalk(FindVarrockRoadColor2, 0, 20, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 330, 360, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 355, 325, 70, 2, 2);
RadialRoadWalk(FindVarrockRoadColor2, 330, 300, 70, 2, 2);
if (FindDTM(RRoadDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
RadialRoadWalk(FindVarrockRoadColor2, 285, 260, 70, 2, 2);
if FindSymbol(x, y, 'Bank') then
begin
Mouse(x, y, 2, 2, True)
Flag;
end else
begin
mouse(582, 113, 2, 2, true)
flag;
end;
end else
begin
writeln('Were lost. Logging out')
Logout;
end;
end;
procedure Bankit;
begin
if (not (LoggedIn)) then
Exit;
if (findbank('veb')) then
begin
Deposit(2, 28, 2)
Loads := Loads + 1;
end else
begin
Writeln('We couldnt find the bank. Logging out')
logout;
end;
end;
procedure HitRock;
var
trys: integer;
begin
if (not (LoggedIn)) then
Exit;
repeat
if (FindObjCustom(x, y, ['Mine'], [2832993], 6)) then
begin
Mouse(x, y, 1, 1, True);
exit;
end else
begin
Inc(trys)
end;
until (trys > 5)
Writeln('I Think were lost. Logging out')
Logout;
end;
function FindGas: boolean; //Colors from Masterkills Varock miner
begin
if not LoggedIn then exit;
if FindColorTolerance(x, y, 10596274, 200, 150, 500, 500, 1)
or FindColorTolerance(x, y, 8950933, 200, 150, 500, 500, 1)
or FindColorTolerance(x, y, 9017755, 200, 150, 500, 500, 1)
or FindColorTolerance(x, y, 7900302, 200, 150, 500, 500, 1) then
Result := True;
end;
procedure DoAntiGasStuff;
begin
if (not (LoggedIn)) then
Exit;
if FindGas then
begin
Mouse(MSCX, MSCY, 7, 8, True)
flag;
GameTab(4)
if not (FindBitmap(BrokenPick, x, y)) then
begin
Writeln('We avoided the gas')
end else
begin
Writeln('We Lost The Pick :( Logging out')
Logout;
end;
end;
end;
procedure Mine1;
var
MineTime: integer;
begin
if (not (LoggedIn)) then
Exit;
Item := 1;
repeat
HitRock;
MarkTime(MineTime)
Item := Item + 1
DoAntiGasStuff
FindNormalRandoms
repeat
NoBan;
DoResponding;
until ExistsItem(Item) or (TimeFromMark(MineTime) > 5000)
until (invfull)
end;
begin
SRLPlayerForm(True, [], ['Loads'], [], [])
setupsrl;
LoadBitmaps;
ActivateClient;
if (not (LoggedIn)) then Loginplayer;
repeat
Players[CurrentPlayer].level[15] := GetSkillLevel('mining')
LoadDDTM;
repeat
WalkMine;
Mine1;
WalkBank;
Bankit;
until (not (LoggedIn) or (Players[CurrentPlayer].Integers[0] = Loads))
NextPlayer(LoggedIn)
Loads := 0;
until (false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>