Mat
2012-01-27 10:25:47
Here is XNoobsNatcrafter, its wrong to link it, but I was wondering if he is doing anything that could hack my account?
Here's the Link.
http://naturecrafter.elementfx.com/RC.simba
Thanks
Mat :)
Wow he's also using a auth code system :o
Edit two
Summoning File
Here's the Link.
http://naturecrafter.elementfx.com/RC.simba
Thanks
Mat :)
Wow he's also using a auth code system :o
Edit two
Summoning File
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Summoning routines --//
//-----------------------------------------------------------------//
// * Function UsingFamiliar: Boolean;
// * Function WhichPouch: String;
// * Function GetSummonPoints: Integer;
// * Function InteractFamiliar: Boolean;
// * Function GetPouchFromBank :Boolean;
// * Function SetupSummoning:Boolean;
{$DEFINE SMART}
Var
X,Y, KindOfPouch:Integer;
{*******************************************************************************
Function WhichPouch: Option:String;
By: XNoob
Description: Determines What Kind Of Pouch To Summon
*******************************************************************************}
Procedure WhichPouch(Option: String);
begin
if (Option = 'Graahk') then
begin
KindOfPouch := DTMFromString('mlwAAAHicY2dgYHBhYmDwAWJPIHYCYjsgdgNiWyB+CpR/AsT3oPgtEL9hgIhfrXJk2L5pHkNZlBMYH9m/kmH29DaG6ZObGYyA8rgwIx4MBQBbPhTm');
end else;
end;
{**
For Castle War Banking
**}
Function XY:Boolean;
Var
X, Y, BankChest, BankChest2:Integer;
Begin
BankChest := DTMFromString('mrAAAAHic42BgYNBhZGCwAGJjIFYDYmUg1gZiMyh7OVDNMiCeAcTTgXgzEG+B0iDxgpQwhgB3W4YVCxcy1OTFg+mitAiG6+fOMZw+fIiBH6gGH2YkgGEAAOijFD8=');
BankChest2 := DTMFromString('mrAAAAHic42BgYNBhZGCwAGIzINYCYmUgVmCEiBsB8TKgmllAvBKIpwPxciDeBsQ7gXgHEBekhDHkZWYyhHg7MqxdtpTh1MGDDCZGRgybVq1iuHzqFIMcUA0+zEgAwwAA5dgUTw==');
//('Finding Chest');
If FindDTM(BankChest,X,Y,MSX1,MSY1,MSX2,MSY2) or FindDTM(BankChest2,X,Y,MSX1,MSY1,MSX2,MSY2) then
//If FindObjTPA(X,Y,5332586, 3 , -15, 20, 30, 50, ['Bank chest']) then
Begin
MMouse(X,Y,6,6);
ClickMouse2(True);
//('Clicking Chest');
Wait(100+Random(50));
If PinScreen then
begin
Wait(1400+Random(300));
InPin(Players[CurrentPlayer].Pin);
end;
If BankScreen then
begin
Result:= True;
end;
end;
FreeDTM(BankChest);
End;
{*******************************************************************************
Function GetPouchFromBank(Option:String;Bank:String):Boolean;
By: XNoob
Description: Determines Which Bank to Withdraw Specified Pouch From. And returns
true if withdrawed and summoned.
Example : GetPouchFromBank('Graahk','CW');
*******************************************************************************}
Function GetPouchFromBank(Option:String;Bank:String):Boolean;
Var ToBank:TPointArray;
begin
WhichPouch(Option);
if (Bank = 'CW') then
begin
Writeln('Using Castle Wars Bank');
SPS_Setup(RUNESCAPE_SURFACE,['4_10','3_10','4_11']);
ToBank := [Point(1618,4330), Point(1620, 4336)];
If SPS_WalkPath(ToBank) then
begin
writeln('Walking to bank.');
//If Pouch is Found within Inventory then Summon it.
if FindDTM(KindOfPouch, X, Y, MIX1, MIY1, MIX2, MIY2) then
Begin
CloseBank;
writeln('Found Pouch in Inventory.');
MMouse(X,Y,6,6);
ClickMouse2(False);
Wait(400+Random(50));
ChooseOption('Summon');
Result := true;
End else
//If Not Found then Open Bank
Begin
Repeat
XY;
Wait(500+Random(200));
Until(XY or Bankscreen);
If PinScreen then
Wait(1400+Random(300));
InPin(Players[CurrentPlayer].Pin);
Wait(1400+Random(300));
If BankScreen then
Begin
WhichPouch(Option);
Wait(100+Random(200));
if FindDTM(KindOfPouch, X, Y, MBX1, MBY1, MBX2, MBY2) then
Begin
MMouse(X,Y,6,6);
ClickMouse2(True);
wait(100);
if FindBlackChatMessage('have enough inventory') then
begin
Deposit(1,2,false);
if FindDTM(KindOfPouch, X, Y, MBX1, MBY1, MBX2, MBY2) then
Begin
MMouse(X,Y,6,6);
ClickMouse2(True);
CloseBank;
writeln('close');
if FindDTM(KindOfPouch, X, Y, MIX1, MIY1, MIX2, MIY2) then
Begin
writeln('found');
MMouse(X,Y,6,6);
ClickMouse2(False);
Wait(400+Random(50));
ChooseOption('Summon');
Result := true;
End else
//Error Cannot Summon Pouch
Result := false;
end else
//Not In Bank
if not FindDTM(KindOfPouch, X, Y, MBX1, MBY1, MBX2, MBY2) then
begin
WriteLn('Error: Could not Withdraw Pouch Specified.');
Result:= false;
end;
end else
//Found in Bank, Summon the Pouch.
if FindDTM(KindOfPouch, X, Y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X,Y,6,6);
ClickMouse2(False);
Wait(400+Random(50));
ChooseOption('Summon');
Result := true;
end;
end else
//No More Pouches in Bank
CloseBank;
result := false;
End;
end;
end;
//Not Walking to Bank
end;
//Not Using CW
end;
{*******************************************************************************
Function UsingFamiliar: Boolean;
By: Flight
Description: Returns if we currently have a Summoning familiar.
*******************************************************************************}
Function UsingFamiliar: Boolean;
Var
X,Y: Integer;
begin
if FindColorTolerance(X,Y,11192179,695,130,720,155,20) or FindBlackChatMessage('have a follower')then
begin
Result := true;
Wait(130+Random(80));
end;
end;
{*******************************************************************************
Function GetSummonPoints: Integer;
By: Flight
Description: Returns our current number of Summoning points remaining.
*******************************************************************************}
Function GetSummonPoints: Integer;
Var
Color: String;
begin
Result := Round(GetMMLevels('summon',Color));
end;
{*******************************************************************************
Function InteractFamiliar: Boolean;
By: Flight
Description: Handles all interactions between our familiar,
returns true if successful.
Options:
-'' : Will left click on interaction tab
-'Attack','Cast','Interact,'Renew','Take','Dismiss','Call','Details','Select'
*******************************************************************************}
Function InteractFamiliar(Option:String): Boolean;
begin
if (not LoggedIn) then exit;
if UsingFamiliar then
begin
if (Option = '') then
begin
MouseBox(695,140,740,155,1);
Result := True;
end else
begin
MouseBox(695,140,740,155,2);
if ChooseOption(Option) then
Result := True
else
srl_Warn('InteractFamiliar', 'Incorrect option', warn_AllVersions);
end;
end else
srl_Warn('InteractFamiliar', 'No familiar present!', warn_AllVersions);
Wait(100 + Random(50));
end;
{*******************************************************************************
procedure SetupSummoning;
By: XNoob
Description: Sets Up Summoning and returns true if SetUp, false if not.
*******************************************************************************}
Function SetupSummoning(Option:String ; Bank:String):Boolean;
begin
if (not LoggedIn) then exit;
if not UsingFamiliar then
begin
if (Option = 'Graahk') then
begin
writeln('Using Spirit Graahk');
if GetPouchFromBank(Option,Bank) then
begin
Result := true;
Writeln('True.');
end;
end else
if (Option = '') then
begin
end else;
Result:= False;
end else
result:= true;
end;
