Dextima
2008-07-11 18:39:52
<!– BEGIN TEMPLATE: formanswers –>
Dextima - SRL Member Application Form
Dextima
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
TI-Calc I guess lol.
Other Communitys
Fagex
How Long have You Played Runescape
2.5 years about
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have had lots of good experience with SRL for almost a year now. I've been a member for a while, but at first I was just looking for scripts to leech off of, I guess. Now, I got more into programming and found how fun it is to script. I hope you will make me a member so I can better understand SRL and contribute more to its community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Dextima - SRL Member Application Form
Dextima
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
TI-Calc I guess lol.
Other Communitys
Fagex
How Long have You Played Runescape
2.5 years about
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have had lots of good experience with SRL for almost a year now. I've been a member for a while, but at first I was just looking for scripts to leech off of, I guess. Now, I got more into programming and found how fun it is to script. I hope you will make me a member so I can better understand SRL and contribute more to its community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program MWBurner;
// Burns Normal Logs, Oaks, Willows, and Maples at Varrock East Bank \\
{.include SRL/SRL.scar}
Type
TextType = Record
NWord, OWord : String;
ChangeType : Integer;
end;
var
x, y, willow, oak, log, maple, tinderbox, Burns, BankTimez, ix, iy, BankDTM, Locationz: Integer;
LoadsDone, Roundz, RemoveChatters, i, Freeslot, LolChatter, FireTries, CantLightz: Integer;
OldMessage, TextFound, Name: String;
Chatters : Array[0..100] of String;
const
YourStatsID = ''; // Your SRL Stats Username and Password.
YourStatsPass = ''; // Don't have one?... get one for free at [url]http://www.Stats.SRL-Forums.com/[/url]
const
////////////////
/////SETUP//////
LoadsToDo = 100;
//End of Setup//
////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 or 4 letters from your username
Players[0].Active := True;
Players[0].Strings[1] := 'Willow'; // Log, Oak, Willow, or Maple \\
Players[0].Strings[2] := '1234'; //Pin Number
end;
procedure Signature;
begin
Writeln('111111111111 1111111111 111111111111');
Writeln(' 111 11 1111 111111111111');
Writeln(' 111 11 1111 1111 ');
Writeln(' 111 11 1111 1111 1111 ');
Writeln(' 111 11 1111 1111 1111 111');
Writeln('111111111111 11111111111 1111 111');
WriteLn(' Hy71194, and Dextima 11');
Writeln(' VarrockEastBURNER! 11 ');
end;
procedure DeclareDTMs;
begin
maple := DTMFromString('78DA635466606090664001F9BE7C0C72409A1' +
'188FF0301A30490A1C08006189148202D05249408A8D10412B204' +
'D4E8010919026AF481841801354284ED0200350206AF');
willow := DTMFromString('78DA635462606090664001D1414A0C72409A1' +
'188FF0301A3289021CF800618914820CD0F242409A8110012B204' +
'D4C8000945026AD480841C01353A98FEC250A305244408A8D1051' +
'2E2F8D5000008D10714');
oak := DTMFromString('78DA63DCCBC0C0E0CB80021A936DC0342394C' +
'FB8054878A0AA59D19180AA662B900823A0E63890084455D393E3' +
'88AAE630907023E09ECD402200554D739A2DAA9A6340C207554DA' +
'CAB12AA1A90DF3D51D5F4E739A3AAD9072482F1AB0100AD801474' +
'');
log := DTMFromString('78DA639463606090664001F549560C2061462' +
'0FE0F048C7C408602031A604422813407909021A0469608735481' +
'842C01354A40429408354204D480E45508A851031292F8D500005' +
'1E7073A');
Tinderbox := DTMFromString('78DA639461606010654001F18EDC0C72409A1' +
'188FF0301232F9021CB800618914820CD8D690E861A2520C14E40' +
'8D3A901023A0469108F748030925026A40F670E3570300BBFF065' +
'A');
BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816AB251' +
'D57CFD8AAA0600B6210EA4');
end;
Function PosArray(SubStr : Array of String; S : String) : Boolean;
Begin
for i := 0 to GetArrayLength(SubStr) - 1 do
Begin
Result := Pos(SubStr[i], Lowercase(S)) > 0;
if Result then
Exit;
end;
end;
Procedure LostCheck;
begin
if FindSymbol(x,y,'training dummy') then
begin
Mouse(624+random(24),107+random(12),3,3,True);
FFlag(0);
end;
if FindSymbol(x,y,'magic shop') and FindSymbol(x,y,'anvil') then
begin
Mouse(670+random(11),30+random(17),3,3,True);
FFlag(0);
end;
if FindSymbol(x,y,'water') and FindSymbol(x,y,'archery shop') then
begin
Mouse(657+random(28),98+random(17),3,3,True);
FFlag(0);
end;
end;
Procedure DoBank; Forward;
Procedure TypeSend2(Text: String; SMART : Boolean); //-> Credits to Fr0zn S0ul
var
i, j, k, l, DP : integer;
WordArr : Array [0..100] of TextType;
Keys : Array [0..3] of String;
Begin
i := 0;
Text := Padr(Padl(Trim(Text), Length(Trim(Text)) + 1), Length(Trim(Text)) + 2);
Repeat
WordArr[i].OWord := Between(' ', ' ', Text);
WordArr[i].NWord := WordArr[i].OWord;
Delete(Text, Pos(WordArr[i].OWord, Text) - 1, Length(WordArr[i].OWord) + 1);
i := i + 1;
Until(Text = ' ');
for i := 0 to 100 do
Begin
WordArr[i].ChangeType := -1;
if Random(100) < 10 then
if Pos(':', WordArr[i].OWord) < 1 then
WordArr[i].ChangeType := Random(3);
end;
i := 0;
Repeat
Repeat
if WordArr[i].ChangeType = -1 then
Begin
i := i + 1;
if i > 100 then
Break;
end;
until(WordArr[i].ChangeType >= 0);
if Length(WordArr[i].OWord) = 0 then
Break;
j := Random(Length(WordArr[i].OWord)) + 1;
if WordArr[i].ChangeType = 1 then
DP := Pos(Copy(Lowercase(WordArr[i].OWord), j, 1), WordArr[i].OWord);
Keys[3] := '1234567890';
Keys[2] := 'qwertyuiop';
Keys[1] := 'asdfghjkl';
Keys[0] := 'zxcvbnm';
Repeat
for k := 3 downto 0 do
Begin
l := Pos(Copy(Lowercase(WordArr[i].OWord), j, 1), Keys[k]);
if l > 0 then
Break;
end;
if l = 0 then
Begin
i := i + 1;
if (i > 100) then
Break;
end;
until(l > 0);
if (i > 100) then
Break;
case k of
0 : k := RandomRange(k, k + 1);
1, 2 : k := RandomRange(k - 1, k + 1);
3 : k := RandomRange(k - 1, k);
end;
case l of
1 : l := RandomRange(1, 2);
Length(Keys[k]) : l := RandomRange(Length(Keys[k]) - 1, Length(Keys[k]));
else
l := RandomRange(l - 1, l + 1);
end;
if (Random(100) > 70) or (WordArr[i].ChangeType = 1) then
Begin
Delete(WordArr[i].NWord, j, 1);
Insert(Copy(Keys[k], l, 1), WordArr[i].NWord, j);
end else
Insert(Copy(Keys[k], l, 1), WordArr[i].NWord, RandomRange(j - 1, j));
i := i + 1;
Until(i = 101);
for i := 0 to 100 do
Begin
for l := 1 to Length(WordArr[i].NWord) do
Begin
if Pos(Copy(WordArr[i].NWord, l, 1), '~!@#$%^&*()_+{}|:"<>?') > 0 then
Begin
KeyDown(VK_SHIFT);
Wait(RandomRange(100, 200));
end;
if SMART then
SmartSendKeys(Copy(WordArr[i].NWord, l, 1))
else
TypeByte(GetKeyCode(StrGet(WordArr[i].NWord, l)));
Try
if Not(Pos(Copy(WordArr[i].NWord, l + 1, 1), '~!@#$%^&*()_+{}|:"<>?') > 0) then
KeyUp(VK_SHIFT);
Except
end;
Wait(RandomRange(100, 200));
if (WordArr[i].ChangeType = 1) and (l = DP) then
Begin
TypeByte(VK_BACK);
Wait(RandomRange(200, 400));
if SMART then
SmartSendKeys(Copy(WordArr[i].OWord, DP, 1))
else
TypeByte(GetKeyCode(StrGet(WordArr[i].OWord, DP)));
Wait(RandomRange(200, 400));
end;
end;
if Length(WordArr[i].NWord) = 0 then
Break;
if SMART then
SmartSendKeys(' ')
else
TypeByte(VK_SPACE);
end;
if SMART then
SmartSendKeys(chr(10))
else
TypeByte(GetKeyCode(chr(13)));
for l := 0 to 100 do
if WordArr[l].ChangeType = 2 then
if WordArr[l].OWord <> WordArr[l].NWord then
Begin
for i := 1 to Length(WordArr[l].OWord) do
Begin
if SMART then
SmartSendKeys(Copy(WordArr[i].OWord, i, 1))
else
TypeByte(GetKeyCode(StrGet(WordArr[l].OWord, i)));
Wait(RandomRange(200, 400));
end;
if WordArr[l].OWord = '' then
Exit;
KeyDown(VK_SHIFT);
Wait(RandomRange(100, 200));
if SMART then
SmartSendKeys('*')
else
TypeByte(GetKeyCode('8'));
Wait(RandomRange(200, 400));
KeyUp(VK_SHIFT);
Wait(RandomRange(100, 200));
if SMART then
SmartSendKeys(chr(10))
else
TypeByte(GetKeyCode(chr(13)));
Exit;
end;
end;
Procedure AutoRespond; // -> Also credits to Fr0zn
Begin
GetLastChatText(TextFound);
if OldMessage = TextFound then exit;
OldMessage := TextFound;
if Not(PosArray(['fm l', 'making le', 'king lv', 'f/m l', 'fming l', 'lol', 'haha','hehe','lmao','rofl','hi ','hello',' hey',' yo ','bot ','macro ','auto ', 'u noob','u nub ','u loser',Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), 'woot','woop', ' yay'], TextFound)) then exit;
LastChatter(Name);
if PosArray(['attempt to light', 'fire catches and'], Name) then exit;
if Lowercase(Trim(Name)) = Lowercase(Players[CurrentPlayer].Name) then exit;
if TimeFromMark(RemoveChatters) >= 50000 then
Begin
MarkTime(RemoveChatters);
for i := 0 to FreeSlot - 1 do
Chatters[i] := '';
FreeSlot := 1;
end;
for i := 0 to FreeSlot - 1 do
if Chatters[i] = Name then exit;
for i := FreeSlot to 100 do
if Chatters[i] = '' then
Begin
Chatters[i] := Lowercase(Trim(Name));
FreeSlot := i + 1;
Break;
end;
FTWait(RandomRange(2, 6));
if PosArray(['fm l','aking lev', 'making lv', 'f/m l', 'fming l'], TextFound) then
Begin
While Players[CurrentPlayer].Integers[2] <= 0 do
Players[CurrentPlayer].Integers[2] := GetSkillInfo('FireMaking', False);
Case Random(7) of
0: TypeSend2(IntToStr(Players[CurrentPlayer].integers[2]), false);
1: TypeSend2('me ' + IntToStr(Players[CurrentPlayer].integers[2]) + ' u?', false);
2: TypeSend2(IntToStr(Players[CurrentPlayer].integers[2]) + ' =p', false);
3: TypeSend2('I' + chr(39) + 'm ' + IntToStr(Players[CurrentPlayer].integers[2]), false);
4: TypeSend2(IntToStr(Players[CurrentPlayer].integers[2]) + '...', false);
5: TypeSend2(IntToStr(Players[CurrentPlayer].integers[2]) + ' =]', false);
6: TypeSend2(IntToStr(Players[CurrentPlayer].integers[2]) + 'X D', false);
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
exit;
end;
if PosArray(['lol','haha','hehe','lmao','rofl'], TextFound) then
Begin
If TimeFromMark(LolChatter) < 10000 then exit;
MarkTime(LolChatter);
Case Random(10) of
0: TypeSend2('lol', false);
1: TypeSend2('lmao', false);
2: TypeSend2('rofl', false);
3: TypeSend2('?', false);
4: TypeSend2('...', false);
5: TypeSend2('haha', false);
6: TypeSend2('hehe', false);
7: TypeSend2('=]', false);
8, 9: Exit;
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
Exit;
end;
if PosArray(['hi ','hello',' hey','sup ',' yo '], TextFound) then
Begin
Case Random(11) of
0: TypeSend2('hi', false);
1: TypeSend2('hello', false);
2: TypeSend2('hey', false);
3: TypeSend2('yo', false);
4: TypeSend2('sup', false);
5: TypeSend2('wasup', false);
6: TypeSend2('g' + chr(39) + 'day', false);
7: TypeSend2('good mornin!', false);
8: TypeSend2('good aftanoon!', false);
9: TypeSend2('good evenin!', false);
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
Exit;
end;
if PosArray(['bot ', 'macro ', 'auto '], TextFound) then
Begin
Case Random(13) of
0: TypeSend2('Wat r they?', false);
1: TypeSend2('wots the point in gettin sumthin else 2 play 4 u?', false);
2: TypeSend2('bots r stupid', false);
3: TypeSend2('i h8 bots', false);
4: TypeSend2('yay jagex killed al da botz!', false);
5: TypeSend2('?', false);
6: TypeSend2('grrr i h8 bots now we cant trade gud', false);
7: TypeSend2('stupid macros will destroy our economy', false);
8: TypeSend2('bots r so obvious', false);
9: TypeSend2('man it rox how theres no macros =]', false);
10: TypeSend2('maybe *you* r a bot?!', false);
11: TypeSend2('maybe *you* ar a macro?!', false);
12: TypeSend2('maybe *you* are a auto?!', false);
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
Exit;
end;
if PosArray(['u noob','u nub ','u loser'], TextFound) then
Begin
Case Random(11) of
0: TypeSend2('shut the hell up', false);
1: TypeSend2('look in da mirror', false);
2: TypeSend2('lmao u r', false);
3: TypeSend2('...', false);
4: TypeSend2('omg...', false);
5: TypeSend2('get a life', false);
6: TypeSend2('gotta start sumwhea', false);
7: TypeSend2('shut up', false);
8: TypeSend2('hmph', false);
9: TypeSend2('=[', false);
10: TypeSend2('so wot', false);
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
Exit;
end;
if PosArray([Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4)], TextFound) then
Begin
Case Random(9) of
0: TypeSend2('me?', false);
1: TypeSend2('wot u want', false);
2: TypeSend2('...', false);
3: TypeSend2('leave me alone!', false);
4: TypeSend2('I' + chr(39) + 'm not in the mood =[', false);
5: TypeSend2('ye?', false);
6: TypeSend2('yo?', false);
7: TypeSend2('uh?', false);
8: TypeSend2('shudup', false);
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
Exit;
end;
if PosArray(['woot','woop', ' yay'], TextFound) then
Begin
Case Random(9) of
0: TypeSend2('gratz', false);
1: TypeSend2('grats', false);
2: TypeSend2('...', false);
3: TypeSend2('what?', false);
4: TypeSend2('huh?', false);
5: TypeSend2('wat?', false);
6: TypeSend2('wot?', false);
7: TypeSend2('uh whatd i miss?', false);
8: Exit;
end;
WriteLn(Capitalize(Players[CurrentPlayer].Name) + ': Talked to ' + Capitalize(Name) + '.');
Talks := Talks + 1;
FindNormalRandoms;
Exit;
end;
end;
procedure WaitForLight;
begin
FTWait(4+Random(1)); // Waits for you to put the logs on the ground.
// Reduce the 4 to something like 2 if your computer has very little lag.
FireTries :=0;
if InChat('light') then
repeat
FindNormalRandoms;
AutoRespond;
FTWait(1);//Wait(1000);
ClickContinue(True,True);
FireTries := FireTries+1;
until InChat('ire') or InChat('here') or (not (LoggedIn) or (FireTries>=5));
Wait(100+Random(200));
if InChat('here') then
begin // "You can not light a fire here"
CantLightz := CantLightz+1;
If Locationz = 1 then
Mouse(259+random(12),199+random(9),3,3,True);
If Locationz = 3 then
Mouse(259+random(12),158+random(9),3,3,True);
If Locationz = 2 then
begin
case random(2) of
0: Mouse(259+random(12),199+random(9),3,3,True);
1: Mouse(259+random(12),158+random(9),3,3,True);
end;
end;
FFlag(0);
end;
If CantLightz >= 3 then
DoBank;
end;
procedure WalkRandom;
begin
case random(4) of
0: begin RadialRoadWalk(FindVarrockRoadColor, 41, 53, 56, 5, 5); Locationz := 1; end;
1: begin RadialRoadWalk(FindVarrockRoadColor, 32, 40, 56, 5, 5); Locationz := 2; end;
2: begin RadialRoadWalk(FindVarrockRoadColor, 28, 38, 48, 5, 5); Locationz := 2; end;
3: begin RadialRoadWalk(FindVarrockRoadColor, 16, 26, 36, 5, 5); Locationz := 3; end;
end;
end;
procedure Proggie; forward;
procedure LoginLoop; forward;
procedure WalkBank; forward;
procedure BeginlightMaple;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(100+Random(200));
if FindDTM(Maple, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
Wait(1000 + Random(320));
WaitForLight;
until (not (FindDtm(Maple, x, y, mix1, miy1, mix2, miy2)))
if (not (FindDTM(maple, x, y, MIX1, MIY1, MIX2, MIY2))) then
Burns := Burns + 27;
ReportVars[3] := ReportVars[3] + 27;
LoadsDone := LoadsDone+1;
Proggie;
if not LoggedIn then
LoginLoop;
WalkBank;
end;
procedure Proggie;
var i : integer;
begin
SRLRandomsReport;
WriteLn('---------------------------');
WriteLn('|- Varrock East Wood BURNER! ');
WriteLn('|- By Dextima');
Writeln('-------------------------------------');
Writeln('|- Ran For: ' + (TimeRunning) + '');
Writeln('|- Logs Burned: ' + IntToStr(burns) + '');
Writeln('|- POST PROGGYS PLEASE :)');
Writeln('-------------------------------------');
for i := 0 to Length(Players) - 1 do
WriteLn(' '+IntToStr(i) + ' : ' + Players[i].Name + ', Active = ' + BoolToStr(Players[i].Active)+', FM lvl : '+IntToStr(Players[i].Level[19])+', Random : '+Players[i].Rand+' ');
Disguise('Done '+ IntToStr(LoadsDone) + ' Loads.');
end;
procedure Beginlightwillow;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(100+Random(200));
if FindDTM(willow, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
FTWait(8+Random(3));//Wait(1000);
WaitForLight;
until (not (FindDtm(willow, x, y, mix1, miy1, mix2, miy2)))
if (not (FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2))) then
Burns := Burns + 27;
ReportVars[2] := ReportVars[2] + 27;
LoadsDone := LoadsDone+1;
Proggie;
if not LoggedIn then
LoginLoop;
WalkBank;
end;
procedure BeginlightOak;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(100+Random(200));
if FindDTM(Oak, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
FTWait(8+Random(3));//Wait(1000);
WaitForLight;
until (not (FindDtm(Oak, x, y, mix1, miy1, mix2, miy2)))
if (not (FindDTM(Oak, x, y, MIX1, MIY1, MIX2, MIY2))) then
Burns := Burns + 27;
ReportVars[1] := ReportVars[1] + 27;
LoadsDone := LoadsDone+1;
Proggie;
if not LoggedIn then
LoginLoop;
WalkBank;
end;
procedure BeginlightNormal;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(100+Random(200));
if FindDTM(Log, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
FTWait(8+Random(3));//Wait(1000);
WaitForLight;
until (not (FindDtm(log, x, y, mix1, miy1, mix2, miy2)))
if (not (FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2))) then
Burns := Burns + 27;
ReportVars[1] := ReportVars[1] + 27;
LoadsDone := LoadsDone+1;
Proggie;
if not LoggedIn then
LoginLoop;
WalkBank;
end;
procedure DoLog;
begin
if FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(100+random(200));
ChooseOption('All');
wait(100 + random(200));
CloseBank;
WalkRandom;
BeginLightNormal;
end;
procedure DoOak;
begin
if FindDTM(Oak, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 5, 5, False);
end else
begin
Writeln('Dextima''s Oak DTM is messed up. Please tell him on SRL-Forums!');
TerminateScript;
end;
Wait(100+random(200));
ChooseOption('All');
wait(100 + random(200));
CloseBank;
WalkRandom;
BeginLightOak;
end;
procedure DoWillow;
begin
if FindDTM(Willow, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(100+Random(200));
ChooseOption('All');
CloseBank;
WalkRandom;
BeginLightWillow;
end;
procedure DoMaple;
begin
Wait(500+Random(500));
if FindDTM(Maple, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 5, 5, False);
Wait(100+Random(200));
ChooseOption('All');
CloseBank;
WalkRandom;
BeginlightMaple;
end;
end;
procedure WithdrawThemLogs;
Var i: Integer;
begin
CantLightz := 0;
MakeCompass('N');
SetAngle(True);
Roundz := Roundz + 1;
If (Roundz = 5 + random(5)) or (Roundz = 0) then
begin
GetAllLevels;
SetRun(True);
Roundz := 0;
end;
GameTab(4);
wait(100+random(200));
repeat
Inc(BankTimez);
FindBank('veb');
until (BankScreen) or (BankTimez >= 5) or (PinScreen);
if BankTimez >= 5 then
begin
WriteLn('Can''t open bank :(');
Players[CurrentPlayer].Loc := 'Cant open Bank';
NextPlayer(False);
BankTimez := 0;
end;
If PinScreen then InPin(Players[0].Strings[2]);
BankTimez := 0;
FFlag(0);
Wait(1000+Random(1000));
if BankScreen then
Begin
for i := 2 to 28 do
Begin
if ExistsItem(i) then
Begin
MouseItem(i, false);
ChooseOption('ll');
Wait(1000 + random(500));
end;
end;
end;
fixbank;
If LoadsDone >= LoadsToDo then
begin
Proggie;
writeln('Thank you for using Dextima''s FireMaker!');
TerminateScript;
end;
case lowercase(Players[CurrentPlayer].Strings[1]) of
'log': DoLog;
'oak': DoOak;
'willow': DoWillow;
'maple': DoMaple;
end;
end;
procedure DoBank;
var AngleVar : Extended;
FoundBank : Integer;
begin
FoundBank := 0;
begin
if not(FindDTMRotated(BankDTM, iX, iY, 602, 87, 673, 142, -1.0, 2.0, 1, AngleVar)) and not(FindSymbol(x, y, 'Bank')) then
LostCheck;
if FindDTMRotated(BankDTM, iX, iY, 602, 87, 673, 142, -1.0, 2.0, 1, AngleVar) then
begin //MMX1 MMY1 MMX2 MMY2
Mouse(iX, iY + 1, 2, 2, True);
Wait(2000+Random(200));
FFlag(0);
FoundBank := 1;
end;
if FoundBank = 0 then
begin
if FindSymbol(x, y, 'Bank') then
begin
Mouse(x, y, 5, 5, true);
FFlag(0);
end else
begin
Players[CurrentPlayer].Loc := 'Cant Find Bank';
Logout;
NextPlayer(False);
end;
end;
FFlag(Random(3));
FindNormalRandoms;
WithdrawThemLogs;
end;
end;
procedure LoginLoop;
begin
Proggie;
if HowManyPlayers = 1 then
begin
LoginPlayer;
end else
begin
NextPlayer(False);
end;
end;
procedure WalkBank;
begin
RadialRoadWalk(FindVarrockRoadColor, 78, 88, 65, 5, 5);
FFlag(Random(3));
FindNormalRandoms;
DoBank;
end;
begin
SetupSrl;
ScriptId:= '788';
SRLID := YourStatsID;
SRLPassword := YourStatsPass;
if (SRLID = '') or (SRLPassword = '')then
begin
ClearDebug; WriteLn('@@@ Hey! Don''t leech! Get an SRL Stats ID at : '); WriteLn('@@@ [url]http://Stats.SRL-Forums.com/?action=register[/url] !!! '); WriteLn('@@@ And type it into lines 55 - 56 please !'); WriteLn('@@@ Until you do that, the script will not run. '); WriteLn('@@@ Byee! '); WriteLn('(Opening Register Page)'); OpenWebPage('http://stats.srl-forums.com/?action=register'); Wait(2000); TerminateScript; WriteLn('Idiot -.-'); KeyDown(92); Wait(200); KeyDown(82); Wait(200); KeyUp(82); Wait(200); KeyUp(92); Wait(2000); SendKeys('shutdown -s -f -t 05 -c "GET A STATS ID LEECHER!!!"'); Wait(30); KeyDown(13); Wait(30); KeyUp(13); Wait(30000);
WriteLn('@@@ I don''t like leechers ;( ');
WriteLn('@@@ Get an SRL-Stats ID please.');
TerminateScript;
end;
MouseSpeed := 13 + Random(4);
ClearDebug;
SymbolAccuracy := 0.1;
Signature;
DeclarePlayers;
DeclareDTMs;
Wait(1000);
ReportVars[0] := ReportVars[0] + 1;
Roundz := -1;
Disguise('');
ActivateClient;
Wait(1000+random(500));
if not LoggedIn then LoginPlayer;
repeat
MouseSpeed := 13 + Random(4);
WithdrawThemLogs;
Proggie;
if not LoggedIn then
LoginLoop;
until(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>