gaetano
2011-12-16 09:01:20
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
My general programming knowledge is Java currently, I am slowly pacing with srl and simba to help other people
Are you a member of any other communities?
Rsbots.net (Veteran Member)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
N/A
What is your general programming knowledge?
My general programming knowledge is Java currently, I am slowly pacing with srl and simba to help other people
Are you a member of any other communities?
Rsbots.net (Veteran Member)
Tell us about yourself…
From: gaetano
My name is Gaetano, I was born in 1994, I am currently turning 18 in 25 days. I love playing sports, especially hockey, and I love to script, I would LOVE to learn how to script fully in Srl :)
Please show us one (or multiple) of your scripts.
This is a script I edited for Hamster that helped him with his banking, and with the gate procedure which was a mess.
I edited this script to also make pouches into scrolls which is not only good summoning exp p hr, but amazing cash/hr
"{------------------------------Script Info------------------------------------- |
| ScriptName = FaT Summoner |
| Author = Hamster31 & Gaetano |
| Description = Tramsforms pouches into scrolls in Tavelery while starting in falador |
| Version = 0.4Beta _______________|
| Date = 12/15/11 |
| Credit for This Intro goes to Narcle :) |
|==============================================================================|
| Instructions |
|==============================================================================|
| |
| Setup: 1. Start in Falador West Bank |
| 2. Setup Inventory and Bank Tabs According to the Thread |
| 3. Start Script and just Wait :) |
|______________________________________________________________________________}
program PouchMaker;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
{$i ObjectDTM/ObjDTMInclude.simba}
{$DEFINE PAINT}
{$i srl/srl/misc\stats.simba}
var
xpgain, strtxp,endxp,pm:Integer;
/////////////////////////////////////////////////////////////////////////////
//-----\\\\\\\--\\\\\\\\\-----\\\\\\---------\\\\\\\\--- \\\\\\\\\\--------//
//-----\\-----------\\--------\\----\\-------\\-----\\--------\\-----------//
///////////////////////////// START--HERE /////////\\////////////////////////
//-----------\\-------\\--------\\----\\-------\\----\\---------\\---------//
//------\\\\\\\--------\\--------\\----\\-------\\-----\\--------\\--------//
/////////////////////////////////////////////////////////////////////////////
const
SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //The Number of Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
//Player[0] -- For Multiplayer - Replace 0 with the next digit Below..
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
// Player[1] --For Multiplayer - Set Active to TRUE //
//Players[1].Name := ''; // Username
//Players[1].Pass := ''; // Password
//Players[1].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
//Players[1].Active := False; // Set to true if you want to use Player 1
//Players[1].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
/////////////////////////////////////////////////////////////////////////////
//-------------\\\\\\\--\\\\\\\\\----\\\\\\\\-------\\\\\\\\\--------------//
//-------------\\-----------\\--------\\----\\-------\\-----\\-------------//
//////////////////////////// SETUP ENDS HERE /////////\\\\\\\\\//////////////
//-------------------\\-------\\--------\\----\\-------\\------------------//
//--------------\\\\\\\--------\\--------\\\\\\\\-------\\-----------------//
/////////////////////////////////////////////////////////////////////////////
function checkSummoning:Integer;
begin
endxp := getXP(SKILL_SUMMONING);
if(endxp=-1) then
endxp:=GetXP(SKILL_SUMMONING);
if(endxp=-1) then
endxp:=GetXP(SKILL_SUMMONING);
if(endxp=-1) then
endxp:=GetXP(SKILL_SUMMONING);
result:= endxp;
xpgain:=endxp-strtxp;
end;
procedure progress;
var
Texts: array of string;
I: Integer;
begin
Texts := [
'|---------------------------------------------|',
'|FaT Summoner Version 0.2Beta:',
'|---------------------------------------------|',
'|Worked for : ' + TimeRunning,
'|Pouches Made: ' + IntToStr(pm),
'|Experience Gained: ' + inttostr(xpgain),
'|---------------------------------------------|'];
ClearDebug;
for I := 0 to High(Texts) do
begin
WriteLn(Texts[I]);
end;
stats_IncVariable('Summoning EXP (Gained)',xpgain);
stats_IncVariable('Summoning Pouches (Made)',pm);
Stats_Commit;
end;
procedure Summoningsymbol;
var
x,y:integer;
begin
If (findsymbol(x,y,'summoning store')) then
begin
mouse(x,y,1,1,true);
Writeln('Symbol Found');
wait(280+random(220));
end else
begin
Writeln('Symbol Not Found');
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Walking to Summoning Store';
LogOut;
Exit;
end;
end;
procedure SummonWalk; //Map walks to the Location
var
Path:TStringArray;
I,x,y,t:Integer;
begin
t:=t+1;
Path := ['650:53:2:1:7:661:104:1:7:638:131',
'680:57:2:0:7:662:108:1:7:642:138',
'637:48:2:1:7:586:39:1:7:684:59',
'624:38:3:1:7:607:31:1:7:599:50:1:7:592:38',
'638:47:4:1:7:611:89:1:7:619:68:1:7:602:76:1:7:603:56',
'590:50:4:1:7:602:84:1:7:631:57:1:7:609:109:1:7:593:96',
'618:41:4:1:7:623:69:1:7:650:90:1:7:606:96:1:7:625:113',
'618:41:4:1:7:626:93:1:7:638:84:1:7:639:65:1:7:633:113',
'585:57:3:1:7:637:104:1:7:649:113:1:7:648:132']
for I := 0 to 4 do
begin
WriteLn(i);
ObjDTMWalk(Path[i], 0, 100, 80, True);
wait(500 + random(500));
end;
Makecompass('N');
Setangle(true);
repeat
wait(t);
until (Not IsMoving)
If findobjcustom(x,y,['usician'], [3809126, 1314405],20) then
begin
writeln('Musician Found');
if (Not runenergy(70)) then
begin
MMouse(x,y,1,1);
mousebox(x,y,x+1,y+2,2);
wait(400);
Chooseoption('isten-to');
wait(5000);
for I := 5 to 8 do
begin
WriteLn(i);
ObjDTMWalk(Path[i], 0, 100, 80, True);
wait(500 + random(500));
end;
end else
begin
writeln('No need for Musician');
for I := 5 to 8 do
begin
WriteLn(i);
ObjDTMWalk(Path[i], 0, 100, 80, True);
wait(500 + random(500));
end;
end;
end else
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Walking to Musician';
LogOut;
Exit;
end;
end;
procedure checkgate;
var
x,y:integer;
begin
Setangle(true);
if (findobjcustom(x,y,['lose'],[8420225,8354175,7959417],5)) then
begin
Writeln('Gate Open');
summoningsymbol;
end else
begin
Mouse(x,y,1,1,true);
Writeln('Gate Closed - Opening Gate');
summoningsymbol;
end;
end;
procedure BacktoBank; //Return Path to the Bank After teleport
var
x,y:integer;
t:integer;
begin
if FindNormalRandoms then
if not LoggedIn then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Inactive.';
Exit;
end else
t := t+100;
MakeCompass('N');
Mouse(565,96,2,2,true);
wait(500);
repeat
wait(t);
until (Not IsMoving)
if (findcolortolerance(x,y,4803234 or 4738201,MMX1,MMY1,MMX2,MMY2,20)) then
begin
mouse(x,y,2,2,true);
Writeln('Bank Found');
end else
if findsymbol(x,y,'bank') then
begin
Mouse(x,y,5,5,true);
Writeln('Could not find color but found the next best thing - Bank Symbol');
t:=0;
end
end;
procedure findTD;
var
x,y,t:integer;
begin
t:=t+100;
if (findobjcustom(x,y,['pen','limb'],[855309, 921102, 798517],5))then
begin
Writeln('TrapDoor found');
movemouse(x,y);
If(WaitUptext('Open', 300)) then
begin
Mouse(x, y, 0, 0, true);
repeat
wait(t);
until (not IsMoving)
wait(300);
mousebox(232,154,251,152,1);
end else
If(WaitUptext('Climb', 300)) then
begin
Mouse(x, y, 0, 0, true);
end;
end;
end;
procedure TrapDoor;
var
x,y,t: integer;
begin
repeat
wait(t);
until (Not isMoving)
Writeln('Trying to Find TrapDoor');
if FindNormalRandoms then
if not LoggedIn then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Inactive.';
Exit;
end else
t:=t+1000;
Makecompass(115+random(5));
setangle(true);
wait(1000 + random(500));
repeat
wait(t);
until (Not IsMoving)
if (Findcolortolerance(x,y,859681,MSX1,MSY1,MSX2,MSY2,30)) then
begin
findTD;
end else
begin
summoningsymbol;
repeat
wait(t);
until (Not IsMoving)
findTD;
end;
end;
procedure MakePouch;
var
x,y,c,t,a,b:integer;
begin
if FindNormalRandoms then
if not LoggedIn then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Inactive.';
Exit;
end else
c := 105 + random(30);
makecompass(c);
repeat
wait(t);
t := t+1;
until (not IsMoving) or (t>=1000)
wait(1000 + random(500));
if (findobjcustom(x,y,['nfuse','ouch'],[2389103, 2058596, 2058082,1992032],5)) then
begin
writeln('Obelisk Found');
movemouse(x,y);
wait(500+ random(250));
mouse(x,y,0,0,true);
repeat
wait(t);
until (Not IsMoving)
if (findcolor(a,b,105157,200,35,210,45)) then
begin
Mouse(133, 46, 10, 5, True);
Wait(750+Random(500))
Mousebox(50,71,75,80,3);
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(1000 + random(50));
ChooseOption('form-All');
Wait(1000 + random(500));
mousebox(690,222,710,227,1);
pm:=pm+24;
checksummoning;
end else
begin
Writeln('Checkbox not toggled - Toggling Checkbox');
wait(200);
Mousebox(200,35,210,45,1);
Mousebox(50,71,75,80,3);
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(1000 + random(50));
ChooseOption('use-All');
Wait(1000 + random(500));
mousebox(690,222,710,227,1);
pm:=pm+24;
checksummoning;
end;
end;
end;
procedure WithdrawItems;
var
x,y: integer;
begin
if FindNormalRandoms then //finds randoms and if in random, logs out if
if not LoggedIn then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Inactive.';
Exit;
end else
makecompass('N');
if OpenBank(Players[CurrentPlayer].Loc, False, False) then
begin
MouseBox(45, 100, 60, 113, 3);
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(380 + random(50));
ChooseOption('raw-All');
end;
end;
CloseBank;
MMouse(711,438,2,2);
wait(1000);
if (Waituptext('null',1000)) then
begin
logout;
TerminateScript;
end;
Wait(750 + random(200));
end;
procedure WithdrawBank; //Finding Bank Procedure
var
Tr, Bo: integer;
x, y: integer;
begin
Bo := 1;
if FindNormalRandoms then //finds randoms and if in random, logs out if
if not LoggedIn then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Inactive.';
Exit;
end else
makecompass('N');
setangle(false);
if BankScreen = false then
begin
writeln('Trying to open bank..');
MakeCompass('N');
SetAngle(true);
OpenBankFast('fwb');
end;
repeat
wait(10);
Tr := Tr +1;
until (Tr = 1000) or (BankScreen = true);
if BankScreen = True then
begin
Writeln('Bank successfully Opened');
wait(1000 + random(1000));
if BankScreen then
begin
Wait (200 + Random(300));
FixBank;
if (InvFull) then
Mousebox(570, 260, 585, 265, 3);
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
Wait(380 + random(50));
ChooseOption('sit-All');
end;
ActivateClient;
WithdrawItems;
end;
end else
if BankScreen = False then
begin
Bo := Bo + 1;
writeln('Lets Try that again - ' + IntToStr(Bo) + ' Times');
if (Bo >= 5) then
begin
writeln('Could not Find Bank, Logging Out Now'); //Logout;
NextPlayer(false);
TerminateScript;
end;
end;
CloseBank;
end;
Procedure Mainloop;
begin
Writeln('Lets Begin!');
repeat
repeat
withdrawbank; //Withdraws items
SummonWalk; // Walks to the the place
CheckGate; //Checks to see if gate is open
TrapDoor; //Finds and Enters Trapdoor
MakePouch; //Infuses Pouch
wait(6000 + random(2000)); //Random Wait
BacktoBank; //Walks back to Bank
progress;
until(not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until(false); //KEEPS ON GOING
end;
procedure stats;
begin
if (stats_Username = '') then
begin
stats_Username := 'Anonymous';
stats_Userpass := 'anon1337';
end;
end;
begin
smart_server := 1;
smart_members := true;
smart_signed := true;
smart_superDetail := false;
clearDebug();
setupSRL();
LoadObjects;
ActivateClient;
DeclarePlayers;
SetupSRLStats(329, SRLStats_User, SRLStats_Password);
if not loggedin then
loginplayer;
stats;
wait(500+ random(500));
strtxp:=GetXP(SKILL_SUMMONING)
Mainloop;
TerminateScript;
end."
Thank you for reading, hopefully I get accepted
PS: Go to hamsters Summoning thread, you will see how much I helped him :)