BigRedJapan
2012-06-01 01:56:45
How Long have You Played Runescape?
2 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
2 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java
Are you a member of any other communities?
No
Tell us about yourself…
From: Rules of Joe
I am Joe From Cali.
I Scripted for powerbot!
Moved onto RSbuddy!
Then found Simba!
was on Simba for a couple months and got tired of just being a leecher and decided to learn to script for simba!
Thanks to YoHoJo's Tut i learned the Basics!
Please show us one (or multiple) of your scripts.
program TearOfGuthix;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i sps/sps.simba}
{$i SRL\SRL\Misc\Debug.simba}
Const
SRLStats_Username = '';// Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
Version = '1.0'; //NO TOUCHY!
StartPlayer = 0; // Player to start! (0 means first char)
Var
myPath:TPointArray;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
for i := 0 to 1-1 do
Players[i].BoxRewards := ['ook', 'amp', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4;
Integers[2] := 4;
end;
end;
Procedure StatsGuise(wat:String); //writes text
Begin
Status(wat);
Disguise(wat);
End;
Function TalkJuna:Boolean;
Var
seX, seY: Integer;
Begin
Wait(2000);
seX:=MSCX;
seY:=MSCY;
If FindObjTPA(seX, seY, 4943978, 10, 1, 25, 60, 400, ['Tal', '-to', 'Jun']) Then
Begin
StatsGuise('Found Juna');
WriteLn('Found Juna');
GetMousePos(seX, seY);
Mouse(seX, seY, 5, 5, False);
WaitOption('Talk-to Juna', 500);
end;
end;
Procedure Talk;
Begin
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse(261, 468, 1);
Wait(1000);
WriteLn('Continue');
MMouse(266, 386, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Okay');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 2');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 3');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 4');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 5');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 6');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 7');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue 8');
MMouse(261, 468, 5, 5);
Wait(2000);
ClickMouse2(True);
Wait(1000);
WriteLn('Talk Finish');
end;
Procedure WalktoHill;
Begin;
SPS_Setup(RUNESCAPE_OTHER,['misthalin_underground']);
myPath := [Point(179, 68), Point(172, 62), Point(165, 54),
Point(160, 51), Point(157, 41), Point(149, 42)];
SPS_WalkPath(myPath);
Flag;
end;
Procedure ClimbRocks;
Var
cX, cY: Integer;
Begin
Wait(2000);
cX:=MSCX;
cY:=MSCY;
If FindObjTPA(cX, cY, 3948351, 10, 1, 50, 70, 400, ['Clim', 'Roc']) Then
Begin
StatsGuise('Found Rock');
WriteLn('Found Rock');
GetMousePos(cX, cY);
Mouse(cX, cY, 5, 5, False);
WaitOption('Climb Rock', 500);
end;
end;
Procedure FindLantern;
Var
lX, lY, LanternDTM:Integer;
Begin
FindNormalRandoms;
LanternDTM := DTMFromString('mrAAAAHic42BgYHBmYmBwAmIvIPYGYg8gtgJiCyj9HKjmBhDfA+JXQPwRil8C8UMgdopZAiSZ4FhaSoqBmUsKzv/FgB8wEsAwAACuKwwe');
If FindDTM(LanternDtm, lX, lY, MIX1, MIY1, MIX2, MIY2) Then
Begin
writeln('found DTM');
Mouse(lx,ly,3,3,mouse_right);
wait(200+random(200));
ChooseOption('Use');
End else
writeln('did not find DTM');
freeDTM(LanternDTM);
End;
Procedure UseonLight;
Var
gX, gY: Integer;
Begin
Wait(1000);
if FindColorSpiralTolerance(gX, gY, 12228456, 31, 5, 315, 97, 25)Then
Begin
WriteLn('Found Light');
Mouse(gX, gY, 5, 5, mouse_Right);
WaitOption('se Sap', 2000);
end;
end;
Procedure FindRock;
Var
rX, rY, RockDTM:Integer;
Begin
FindNormalRandoms;
RockDTM := DTMFromString('mrAAAAHic42BgYBAAYl4gFgNiSSDmB2JWBggA0RxQNgdUThCI+YCYE4gZgVhfX5fB09ONwcrKHIz5+HgZpKWlGFRVVcB8QoCRAIYBAOshBQk=');
If FindDTM(RockDtm, rX, rY, MSX1, MSY1, MSX2, MSY2) Then
Begin
writeln('found DTM');
Mouse(rx,ry,3,3,mouse_right);
wait(200+random(200));
ChooseOption('Mine');
End else
writeln('did not find DTM');
freeDTM(RockDTM);
End;
Procedure CraftStone;
Var
mX, mY, MagicDTM:Integer;
Begin
FindNormalRandoms;
MagicDTM := DTMFromString('mFQEAAHic42VgYOABYhEgFoViEagYGxAzMSAAMxBzALEAEHNB5UG0IJpeQah+FiBmhOoFmRMcHA5lEY/lGEgHjGRgFAAAzhICaA==');
If FindDTM(MagicDtm, mX, mY, MIX1, MIY1, MIX2, MIY2) Then
Begin
writeln('found DTM');
Mouse(mx,my,3,3,mouse_left);
writeln('Made Bowl');
End else
writeln('did not find DTM');
freeDTM(MagicDTM);
End;
Procedure WalkHill2;
Begin
SPS_Setup(RUNESCAPE_OTHER,['misthalin_underground']);
myPath := [Point(83, 151), Point(91, 146), Point(100, 146),
Point(109, 143), Point(116, 140), Point(124, 143)];
SPS_WalkPath(myPath);
Flag;
end;
Procedure ClimbDown;
Var
dX, dY: Integer;
Begin
Wait(1000);
if FindColorSpiralTolerance(dX, dY, 5329237, 269, 107, 330, 138, 15)Then
Begin
WriteLn('Found Rocks');
Mouse(dX, dY, 5, 5, mouse_left);
end;
end;
Procedure WalktoJuna;
Begin
SPS_Setup(RUNESCAPE_OTHER,['misthalin_underground']);
myPath := [Point(149, 144), Point(153, 128), Point(159, 114),
Point(167, 97), Point(173, 86), Point(175, 76)];
SPS_WalkPath(myPath);
Flag;
end;
Procedure Talk2;
Begin
MMouse(261, 468, 5, 5);
ClickMouse2(True);
Wait(1000);
WriteLn('Continue');
MMouse(261, 468, 5, 5);
ClickMouse2(True);
Wait(1000);
WriteLn('I have a Bowl');
MMouse(261, 468, 5, 5);
ClickMouse2(True);
Wait(1000);
WriteLn('Juna Will Keep Bowl');
MMouse(261, 468, 5, 5);
ClickMouse2(True);
Wait(1000);
WriteLn('Tell Storie');
End;
Procedure Finish;
Begin
WriteLn('Quest Complete! Gratzzzzz');
Logout;
TerminateScript;
end;
begin
Smart_Server := 123;
Smart_Members := True;
Smart_Signed := True;
SetUpSRL;
DeclarePlayers;
SetAngle(SRL_ANGLE_LOW);
MakeCompass('E');
TalkJuna
Talk
WalktoHill
MakeCompass('W');
ClimbRocks
MakeCompass('W');
SetAngle(SRL_ANGLE_LOW);
FindLantern
UseonLight
MakeCompass('S');
SetAngle(SRL_ANGLE_LOW);
FindRock
CraftStone
WalkHill2
MakeCompass('E');
ClimbDown
WalktoJuna
MakeCompass('E');
TalkJuna
Talk2
Finish
end.
