Raskolnikov
2007-11-30 19:06:36
<!– BEGIN TEMPLATE: formanswers –>
cut em2 it - SRL Member Application Form
cut em2 it
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C++, some JAVA
Other Communitys
Fagex, Sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have experience in radial walk and map walking. I understand find object custom well. I have knowledge on DTMs and Bitmaps. I know basic forms and I understand how to bank. I understand fail safes fully. I hope you accept me as a member.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
<!– END TEMPLATE: formanswers –>
cut em2 it - SRL Member Application Form
cut em2 it
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C++, some JAVA
Other Communitys
Fagex, Sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have experience in radial walk and map walking. I understand find object custom well. I have knowledge on DTMs and Bitmaps. I know basic forms and I understand how to bank. I understand fail safes fully. I hope you accept me as a member.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program ShrimpThenBank; //Credits to Timer150 for help on auto-updater :D
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{By Cut em2 it. Edit line 9,10 and 14-28, move your
characters to the Draynor fishing area, and run the script!(Have extra nets in first bank slot.)}
var
x, y, a, b, HowLoads, z, w, o, d, Time:integer;
const
YourSRLId = ''; //Leave blank if you don't have one.
YourSRLPassword = ''; //Leave blank if you don't have one
CurrentVersion = '2.14 BETA';//No Touchey!!!
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 letters of user name
Players[0].Integers[0] := 3; //How many loads for player to do
Players[0].Active := True; //Player active
{ Players[1].Name := ''; //username
Players[1].Pass := ''; //Password
Players[1].Nick := ''; //3-4 letters of user name
Players[1].Integers[0] := 2; //How many loads for player to do
Players[1].Active := True; //Player active
Players[2].Name := ''; //username
Players[2].Pass := ''; //Password
Players[2].Nick := ''; //3-4 letters of user name
Players[2].Integers[0] := 2; //How many loads for player to do
Players[2].Active := True; //Player active
Players[3].Name := ''; //username
Players[3].Pass := ''; //Password
Players[3].Nick := ''; //3-4 letters of user name
Players[3].Integers[0] := 2; //How many loads for player to do
Players[3].Active := True; //Player active
}
end;
procedure ChangeTimeNow;
begin
if HowLoads=Players[CurrentPlayer].Integers[0] then
begin
NextPlayer(False);
HowLoads := 0;
MakeCompass('N');
end;
if not LoggedIn then
begin
LoginPlayer;
MakeCompass('N');
end;
end;
procedure Progress;
begin
Writeln('This is my first auto fisher + banker.');
Writeln('By cut em2 it.');
Writeln('Did '+ IntToStr(HowLoads) +' loads.');
Writeln('Thanks for using my auto fisher!');
end;
procedure ScriptTerminate;
begin
Progress;
SendSRLReport;
Writeln('Script terminated');
end;
procedure Fish;
begin
repeat
FindTalk;
FindNormalRandoms;
FindNonInventoryRandoms;
if FindObjCustom(x, y,['Net', 'Ne'], [16315112, 15717304], 4) then
begin
Mouse(x,y,0,0,true);
if not LoggedIn then Exit;
Wait(6000+random(400));
if(FindFight)then
begin
RunAwayDirection('S');
Wait(10000+random(2000));
RunBack;
end;
FindTalk;
FindNormalRandoms;
end;
until(InvFull);
Writeln('Done fishing.');
ReportVars[0] := 27;
end;
procedure Bank;
begin
if not LoggedIn then
Exit;
MakeCompass('N');
if not(FindSymbol(o,d,'bank')) then
begin
MouseFlag(670, 57, 0, 0);
Flag;
end;
if not LoggedIn then Exit;
SymbolAccuracy := 0.5;
if not(FindSymbol(o,d,'bank')) then
begin
MouseFlag(675,60,2,2);
Flag;
end;
If FindSymbol(o,d,'bank') Then
Mouse(o,d,0,0,true);
Flag;
FindTalk;
FindNormalRandoms;
FindNonInventoryRandoms;
Wait(1000+(320));
repeat
if not LoggedIn then Exit;
FindObjCustom(z, w, ['Use','Booth'], [3421240,4937311], 5);
Mouse(z,w,0,0,false);
ChooseOption('Use-quickly');
Wait(300+random(12));
until(Bankscreen);
if(Bankscreen)then
begin
Wait(1000+random(103));
Writeln('Banking');
if (not(FindFishingEquipment(3097172,'Small fishing net'))) then
begin
Mouse(99,68,1,1,true);
end;
if not LoggedIn then Exit;
Deposit(2,28,1);
Wait(700+random(100));
CloseBank;
MouseFlag(633,121,6,6);
Flag;
FindSymbol(a,b,'fish');
Mouse(a,b,0,0,true);
Flag;
ReportVars[1] := 27;
end;
end;
Procedure CheckVersion;
var version, script : string;
STBFile : integer;
begin
Writeln('Checking Version...')
Version := GetPage('http://www.freewebs.com/cutem2it/Version.txt');
if not ( CurrentVersion = Version ) then
begin
Writeln('You Do Not Have the Latest Version...Updating')
Script := GetPage('http://www.freewebs.com/cutem2it/%5BSRL%204%5D%20Shrimp%'+
'20Then%20Bank%20Any%20And%20AllBETA%2D1.scar')
STBFile := RewriteFile(AppPath+'\Scripts\[SRL 4]Shrimp Then Bank V'+Version+'.scar',false)
WriteFileString( STBFile, Script );
end;
end;
begin
CheckVersion;
MarkTime( Time );
SRLID := YourSRLId;
SRLPassword := YourSRLPassword;
HowLoads := 0;
LoadSRLFishingBitmaps;
SetupSRL;
ScriptId := '477';
ActivateClient;
DeclarePlayers;
Wait(1000);
Repeat
Repeat
Fish;
Bank;
HowLoads := HowLoads + 1;
SRLRandomsReport;
Until(HowLoads = Players[CurrentPlayer].Integers[0]);
ChangeTimeNow;
Until( False );
end.
procedure OpenBankDeposit(FirstSlot, EndSlot: integer);
var
x, y: integer;
begin
repeat
FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
Mouse(x,y,1,1,false);
ChooseOption('Use-quickly');
Wait(1500+random(125));
until(BankScreen);
if BankScreen then
begin
Deposit(FirstSlot, EndSlot, 1);
end;
CloseBank;
end;
<!– END TEMPLATE: formanswers –>