Goobs
2008-08-25 02:19:24
<!– BEGIN TEMPLATE: formanswers –>
ProphesyOfWolf - SRL Member Application Form
ProphesyOfWolf
What is the meaning to life?
To learn, to love, and to liquor. :f:
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
Sythe.org
How Long have You Played Runescape
~8 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello there ^.^
My name is ProphesyOfWolf (Also known as Faelstorm). I'd like to take a second to explain a few things..
I created this account first when I joined SRL-Forums. I didn't get the activation email, and wasn't sure how to go about getting it activated, so I made Faelstorm. I got Jr Members with him, and released a few *now horribly made* scripts.
Eventually, I asked someone (can't remember who) to resend me an activation email for ProphesyOfWolf. I got it registered, then got to Jr Members yesterday. This account has been activated for a few months; I just hadn't gotten around to getting Jr. Members.
I know my post count is low, and that's not because I'm a leecher (which I'm not). I have a job, and work quite alot, so I don't have much time to browse the forums. Of course, now that schools starting, I will have more time at home, which I can use to post more.
I wanted ProphesyOfWolf to be my main SRL Members account because that's my favorite alias. Faelstorm was just an account to get to Jr Members to see what awesome scripts laid in wait for me.
After that long break, and alot of learning, I have come up with my own script, called PoW Ecto Runner. It crushes bones, fills buckets with EctoPlasm, and Worships at the Ectofuntus (and everything inbetween.).
Instructions are in the script! (I used SRLPlayerForm, so yeah.)
Please vote me for SRL Members! I have wanted to be one of you for a very long time now.
Thanks for your time,
ProphesyOfWolf
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
ProphesyOfWolf - SRL Member Application Form
ProphesyOfWolf
What is the meaning to life?
To learn, to love, and to liquor. :f:
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
Sythe.org
How Long have You Played Runescape
~8 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello there ^.^
My name is ProphesyOfWolf (Also known as Faelstorm). I'd like to take a second to explain a few things..
I created this account first when I joined SRL-Forums. I didn't get the activation email, and wasn't sure how to go about getting it activated, so I made Faelstorm. I got Jr Members with him, and released a few *now horribly made* scripts.
Eventually, I asked someone (can't remember who) to resend me an activation email for ProphesyOfWolf. I got it registered, then got to Jr Members yesterday. This account has been activated for a few months; I just hadn't gotten around to getting Jr. Members.
I know my post count is low, and that's not because I'm a leecher (which I'm not). I have a job, and work quite alot, so I don't have much time to browse the forums. Of course, now that schools starting, I will have more time at home, which I can use to post more.
I wanted ProphesyOfWolf to be my main SRL Members account because that's my favorite alias. Faelstorm was just an account to get to Jr Members to see what awesome scripts laid in wait for me.
After that long break, and alot of learning, I have come up with my own script, called PoW Ecto Runner. It crushes bones, fills buckets with EctoPlasm, and Worships at the Ectofuntus (and everything inbetween.).
Instructions are in the script! (I used SRLPlayerForm, so yeah.)
Please vote me for SRL Members! I have wanted to be one of you for a very long time now.
Thanks for your time,
ProphesyOfWolf
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{##############################################################################
###############################################################################
##########################ProphesyOfWolf Presents:#############################
###############################################################################
######################### Ecto Runner Pub V. 1.0 ##############################
### ###
###############################################################################
#### For instructions on how to use this script, ####
#### go to (Future Thread that I will release this in) ####
###############################################################################
For SRL Members and Devs: To use this script, equip a GhostSpeak amulet, and have your ectophial
in your first inventory spot. In your bank, have dragon bones in your first slot (multiple of 12 + 1),
Pots in the second (same rule as bones), and buckets in the third (same). Start standing next to the
Ectofuntus. It will completely automate the ecto worshipping process, with lots of antiban and
antirandoms. I know it's not perfect, and I didn't use the DTM's as much as I'd have liked to. But, I
did it so the leechers would have a reason to post (They post, hence I am motivated to take the time
to make more advanced functions.) So, enjoy! If I get SRL Members with this script, I'll release~)
~PoW
}
program PoWEctoRunner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Users.scar}
var
x, y, EX, EY, EctophialDTM, DgnBnDTM, PotDTM, BucketDTM, I, IC: Integer;
SlimeDTM, PPrayer, BonesCrushed, BucketsFilled: Integer;
TB: TBox;
TimesWorshipped, TotalExp: Integer;
PPin : String;
FB, FE, FW, DE: Boolean;
procedure SetupScript; forward;
procedure DeclareDTMs;
begin
EctophialDTM := DTMFromString('78DA63E465606090624001214B72C1342394C' +
'FC805242451D584AE294455C30D24C4D0CC59918FAA86074888A0' +
'AAF16F8A4755C38FA9462BC81C558D00A67B6CB2BC30CD5140551' +
'3342B13550D1F905024A08607534DC8CA02CCF041B32B747D11AA' +
'1A4E202183AA266C43318A1A00F84E0FE3');
DgnBnDTM := DTMFromString('78DA6314646060E0674001FBB66E01D38C503' +
'E23489E0755CDB17DFB50D50800096E543597CF9E455503328303' +
'554D567232AA1A9019ECA86A36AF588E690E2BAA9A8BA74E61BA0' +
'7CD9C1307F6A3AA1101129CA86AB6AF5D83AA461253CDEE4D1B51' +
'D54803092E0276C9618621869B15808400AA9A5913FA51D588030' +
'9215435A70E1FC274B30801BB40EE11435533B5BB0BD31C095435' +
'2DD55598EE413367D786F598E12C8CAA66F582F998F12E88AAC6D' +
'BCD0D550D3BA69A8EFA3A54352C986188919E3930D3FCE9234750' +
'D5F002095E54353BD7AD4351030022663125');
PotDTM := DTMFromString('78DA6314656060106140018B0A6CC0342394C' +
'FC803244451D56CAA76C2542384AA6643A523AA1A7E20C18DAA66' +
'6E8E15AA1A4120C189AA26CC420C550DC82DECA86A26A698A1AA9' +
'1C054B3A2D80E558D2C90E0415593E7A389AA460ED35FE96E6A98' +
'6AC451D524BBA8A0AA910112B20C688011D35F686AA6A4996386A' +
'134AA9AA545B6A86A7881041F7E35008EF3111F');
BucketDTM := DTMFromString('78DA63E4676060106540018BDB7CC1342394C' +
'FC889A9A629DB0E538D20AA9AD63C7B4C353CA86A927DA550D580' +
'E4B950D5A40748A3AA01D9C38DAA26DE5312558D28A69A8CC4444' +
'C3542A86A663778A2AA11061212A86A26B6B7A3AA110012D2A86A' +
'E6357963FA0B4DCD8472175435DC986AFA4A9D51D40000D8720FF' +
'F');
SlimeDTM := DTMFromString('78DA63146160609062400179117A609A11CA6' +
'7E4031292A86A127D3550D5F00309415435FACA9CA86A8431D508' +
'6E154355230E240450D594E5E4A0AA91C634C7DD941F558D0CA6B' +
'F3A732D31D5C831A001464CF728A0AAE8696C40552384A9A6A9A2' +
'1C337C6451D594C41AA0AA01058532AA9A858DCEA86A40F1254C2' +
'00C8908670092710FB8');
end;
procedure AntiBan;
begin
Case random(50) of
0: RandomRClick;
1: PickUpMouse;
2: RandomMovement;
3: BoredHuman;
end;
end;
procedure DoGrind(Stage: Integer);
begin
If(Stage = 1) then
begin
IC := InvCount;
Mouse(x, y, 2, 2, False);
ChooseOption('Use');
If(FindObjTPA(x, y, 3758393, 8, -1, 10, 10, 15, ['oader'])) then
begin
Mouse(x, y, 2, 2, True);
repeat
Wait(random(50));
until(IC > InvCount)
FindNormalRandoms;
AntiBan;
Wait(1000 +random(100));
end;
end;
If(Stage = 2) then
begin
If(FindObjTPA(x, y, 9023880, 8, -1, 10, 10, 15, ['ind', 'one', 'rinde'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(3000 +random(750));
end;
end;
If(Stage = 3) then
begin
IC := CountItems(PotDTM, 'DTM', [0]);
If(FindObjTPA(x, y, 3558965, 4, -1, 7, 7, 10, ['mpty', 'in'])) then
begin
Mouse(x, y, 2, 2, True);
repeat
Wait(random(50));
until(IC > CountItems(PotDTM, 'DTM', [0]));
end;
end;
end;
procedure TeleToEctofuntus;
begin
GameTab(4);
MakeCompass('N');
SetAngle(True);
FindNormalRandoms;
If(FindDTM(EctophialDTM, EX, EY, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(EX, EY, 2, 2, True);
repeat
Wait(50);
until(FindColor(x, y, 7833437, MMX1, MMY1, MMX2, MMY2))
Wait(500 +random(250));
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['ctofu'])) then
begin
Mouse(EX, EY, 2, 2, True);
Mouse(x, y, 2, 2, True);
FindNormalRandoms;
AntiBan;
end
else
If(FindColor(x, y, 4934481, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 2, 2, True);
Flag;
FindNormalRandoms;
AntiBan;
Mouse(EX, EY, 2, 2, True);
MakeCompass('W');
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['ctofu'])) then
begin
Mouse(x, y, 3, 3, True);
Flag;
Wait(250 +random(250));
FindNormalRandoms;
AntiBan;
MakeCompass('N');
end;
end;
end;
end;
procedure GrinderStairs;
begin
If(FindColor(x, y, FindLadderColor, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y + 8, 2, 2, True);
MakeCompass('E');
AntiBan;
FFlag(10);
If(FindObjTPA(x, y, 3822919, 4, -1, 10, 10, 8, ['limb', 'aircas'])) then
begin
Mouse(x, y, 5, 3, True);
FindNormalRandoms;
repeat
Wait(50);
until(not(FindColor(x, y, 10456191, MMX1, MMY1, MMX2, MMY2)))
end;
MakeCompass('N');
RadialWalk(4412238 , 294, 327, 40, 2, 2);
Flag;
Wait(750 +random(200));
SetAngle(True);
MakeCompass('N');
end;
end;
procedure TrapDoor;
begin
SetAngle(True);
MakeCompass('N');
AntiBan;
FindNormalRandoms;
RadialWalk(65536 , 215, 280, 40, 0, 0);
Flag;
Wait(1000 +random(500));
If(FindObjTPA(x, y, 2834219, 1, -1, 15, 15, 23, ['pen', 'door'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Flag;
Wait(2000 +random(250));
end;
If(FindObjTPA(x, y, 1381655, 1, -1, 15, 15, 23, ['rapdoo'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Flag;
Wait(1200 +random(250));
end;
end;
procedure PathAndFill;
begin
FindNormalRandoms;
AntiBan;
SetRun(True);
Mouse(700, 80, 2, 2, True);
Wait(7500 +random(2000));
Flag;
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 1519909, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
FindNormalRandoms;
AntiBan;
end;
If(FindColor(x, y, 238, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 3, 3, True);
FindNormalRandoms;
AntiBan;
Flag;
end;
If(FindObjTPA(x, y, 1123355, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
FindNormalRandoms;
AntiBan;
end;
Mouse(675, 85, 2, 2, True);
FindNormalRandoms;
AntiBan;
Flag;
If(FindObjTPA(x, y, 1519909, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
FindNormalRandoms;
AntiBan;
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
end;
If(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Wait(300 +random(250));
Mouse(195, 175, 4, 4, True);
repeat
Wait(50 +random(20));
until(not(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)))
FindNormalRandoms;
AntiBan;
end;
end;
procedure WalkToBank;
begin
MakeCompass('N');
SetRun(True);
FindNormalRandoms;
AntiBan;
RadialWalk(5597787, 150, 190, 60, 2, 2);
SetAngle(False);
I := 5;
repeat
If(FindObjTPA(x, y, 7638635, i, -1, 10, 10, 15, ['nerg', 'arrie'])) then
begin
Break;
end;
I := I + 3;
until(false);
Mouse(x, y, 2, 2, False);
ChooseOption('Pay-toll');
Wait(1400 +random(100));
Flag;
SetAngle(True);
RadialRoadWalk(5597787, 170, 185, 70, 3, 3);
RadialRoadWalk(5597787, 150, 180, 60, 3, 3);
RadialRoadWalk(5597787, 109, 121, 68, 3, 3);
MakeCompass('S');
If(FindColor(x, y, 1365483, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 2, 2, True);
Flag;
SetAngle(True);
end;
end;
procedure TalkToDisciple;
begin
Wait(1000 +random(250));
ClickToContinue;
Wait(1000 +random(250));
ClickToContinue;
Wait(1000 +random(250));
end;
procedure FindDisciple;
begin
repeat
If(FindObjTPA(x, y, 9483162, 10, -1, 15, 15, 20, ['host', 'iscipl'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, False);
ChooseOption('isciple');
Flag;
repeat
Wait(50);
until(InConvo)
TalkToDisciple;
Exit;
end
else
If(FindColor(x, y, 4934481, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y + 5, 2, 2, True);
Flag;
For I := 0 to 360 do
begin
repeat
MakeCompass(''+IntToStr(I));
I := I + 45;
If(FindObjTPA(x, y, 9483162, 10, -1, 15, 15, 20, ['host', 'iscipl'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, False);
ChooseOption('isciple');
Flag;
repeat
Wait(50)
until(InConvo)
TalkToDisciple;
Exit;
end;
until(false)
end;
end;
until(false);
end;
procedure WorshipEctofuntus;
begin
repeat
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['orsh', 'ctofu'])) then
begin
Mouse(x, y, 3, 3, True);
Wait(1000 +random(250));
end;
until(not(FindColor(x, y, 2145817, MIX1, MIY1, MIX2, MIY2)))
end;
procedure Bank1;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
repeat
Wait(random(125));
until((PinScreen) or (BankScreen))
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
wait(random(75))
until(BankScreen)
Withdraw(1, 1, 12);
repeat
Wait(random(75));
until(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))
Withdraw(2, 1, 12);
repeat
Wait(random(75));
until(FindDTM(PotDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;
procedure Bank2;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
Wait(random(75));
until(BankScreen);
Withdraw(3, 1, 12);
repeat
Wait(random(75));
until(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;
procedure Bank3;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
Wait(random(75));
until(BankScreen)
Deposit(15, 28, True);
repeat
Wait(random(75));
until(not(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)))
Withdraw(1, 1, 12);
repeat
Wait(random(75));
until(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;
procedure SetupScript;
begin
SetupSRL;
DeclareDTMs;
ScriptId := '970';
SRLPlayerForm(True, ['Use SMART?', 'Signed client?'], ['SMART World?', 'How many bones to do'], ['Bank Pin', 'SRL ID', 'SRL Password'], []);
SRLID := Players[CurrentPlayer].Strings[1];
SRLPassword := Players[CurrentPlayer].Strings[2];
PPin := Players[CurrentPlayer].Strings[0];
If(Players[CurrentPlayer].Booleans[0]) then
begin
// SmartSetupEx(Players[CurrentPlayer].Integers[0], True, Players[CurrentPlayer].Booleans[1], False);
// SetTargetDC(SmartGetDC);
end
else
ActivateClient;
Wait(1000 +random(250));
end;
procedure ProgressReport;
begin
If(FB) then
begin
ReportVars[1] := 12;
BonesCrushed := BonesCrushed + 12;
FB := False;
end;
If(FE) then
begin
ReportVars[0] := 12;
BucketsFilled := BucketsFilled + 12;
FE := False;
end;
If(FW) then
begin
ReportVars[2] := 12;
TimesWorshipped := TimesWorshipped + 12;
ReportVars[3] := 288;
TotalExp := TotalExp + 288;
FW := False;
end;
SRLRandomsReport;
ClearDebug;
WriteLN('/\/\/\/\/\/\/\PoW Ecto Runner');
WriteLN('##Ran for: '+TimeRunning+'.');
WriteLN('##Crushed '+IntToStr(BonesCrushed)+' bones,');
WriteLN('##got '+IntToStr(BucketsFilled)+' buckets of ectoplasm,');
WriteLN('##and worshipped '+IntToStr(TimesWorshipped)+' times,');
WriteLN('##gaining you '+IntToStr(TotalExp)+' exp!');
WriteLN('#########################');
end;
procedure ClearAllVars;
begin
BonesCrushed := 0;
BucketsFilled := 0;
TimesWorshipped := 0;
TotalExp := 0;
end;
procedure MainLoop;
begin
repeat
If(not(LoggedIn)) then
begin
LoginPlayer;
end;
MakeCompass('N');
PPrayer := GetSkillLevel('Prayer');
WalkToBank;
Wait(750 +random(150));
Bank1;
TeleToEctofuntus;
repeat
MakeCompass('N');
GrinderStairs;
Wait(1000 +random(250));
for I := 1 to 28 do
begin
TB := InvBox(I);
if ExistsItem(I) then
begin
If(FindDTM(DgnBnDTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2)) then
begin
DoGrind(1);
DoGrind(2);
DoGrind(3);
end;
If(not(FindDTM(DgnBnDTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2))) then
begin
If(not(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Break;
end;
end;
end;
end;
TeleToEctofuntus;
FB := True;
ProgressReport;
Wait(1000 +random(500));
WalkToBank;
Wait(500 +random(200));
Bank2;
TeleToEctofuntus;
Wait(750 +random(150));
TrapDoor;
Wait(750 +random(150));
PathAndFill;
Wait(750 +random(150));
TeleToEctofuntus;
FE := True;
ProgressReport;
Wait(750 +random(150));
WorshipEctofuntus;
FW := True;
ProgressReport;
If(Players[CurrentPlayer].Integers[2] >= 24) then
begin
WalkToBank;
Bank3;
TeleToEctofuntus;
end;
until(TimesWorshipped = Players[CurrentPlayer].Integers[2])
LogOut;
ClearAllVars;
NextPlayer(False);
until(false)
end;
begin
SetupScript;
MainLoop;
end.——————————————————
<!– END TEMPLATE: formanswers –>