impiwimpi
2009-01-09 12:48:42
<!– BEGIN TEMPLATE: formanswers –>
impiwimpi - SRL Member Application Form
impiwimpi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C, Java (only the basics) and Lua(Half-Life 2)
Other Communitys
9Lives(Dutch Gaming Community), Dale-Mason(SourceForts)
How Long have You Played Runescape
Approx. 3.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I played Runescape from when I was 10 till I was 13, just for fun. I started again when I was 14 but I didn't had the patience no-more…
So I started to Google and after a while I found out about SCAR,SRl,etc.
First I only used SRL just to auto(I know that sounds like a leecher), but after a while I also wanted to make my own script. My only experience with programming is that I maintaned some game-servers(CSS,HL2,etc.). Together with some friends I also created a mod for Half Life 2. For which I did the scripting. I see the scripting in SCAR more as a way to improve my scripting skills, then actually playing a game. Basically I just wanted to show-off my first script here. So here it is…
(I would prefer that if you think it's bad, that you then say what my faults are. So don't just say it's rubbish.)–>which it probably is xD
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
impiwimpi - SRL Member Application Form
impiwimpi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C, Java (only the basics) and Lua(Half-Life 2)
Other Communitys
9Lives(Dutch Gaming Community), Dale-Mason(SourceForts)
How Long have You Played Runescape
Approx. 3.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I played Runescape from when I was 10 till I was 13, just for fun. I started again when I was 14 but I didn't had the patience no-more…
So I started to Google and after a while I found out about SCAR,SRl,etc.
First I only used SRL just to auto(I know that sounds like a leecher), but after a while I also wanted to make my own script. My only experience with programming is that I maintaned some game-servers(CSS,HL2,etc.). Together with some friends I also created a mod for Half Life 2. For which I did the scripting. I see the scripting in SCAR more as a way to improve my scripting skills, then actually playing a game. Basically I just wanted to show-off my first script here. So here it is…
(I would prefer that if you think it's bad, that you then say what my faults are. So don't just say it's rubbish.)–>which it probably is xD
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{
Money Calculator
}
program MoneyCalculator;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{.include srl/srl/reflection/reflection.scar}
const
SRLID = '6785';
SRLPassword = 'bzFvCL2qxt';
var
locations: Array of String;
CoinsValue: String;
Tries: Integer;
x,y: Integer;
rx,ry: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Runescape User Name
Players[0].Pass := ''; // Runescape Password
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Loc := ''; // If you are in a bank, type which bank; feb(Falador East Bank),fwb(Falador West Bank),
end; //veb(Varrock East Bank),vwb(Varrock West Bank),lb(Lumbridge Bank),db(Draynor Bank) and
//akb(Al Kharid Bank). If you aren't in a bank, then just leave it blank.
procedure DisguiseSCAR;
begin
Disguise('Calculator');
end;
procedure SetupSmart;
begin
SmartSetupEx(113, false, false, false);
ClearDebug;
WriteLn('Setting up Smart... Please Wait...');
Wait(10000 + random(5000));
SetTargetDC(SmartGetDC);
end;
procedure MySignature;
begin
Writeln(' _____ _ _ _____ ')
Writeln(' \_ \_ __ ___ _ __ (_)_ _(_)_ __ ___ _ __ \_ \ ')
Writeln(' / /\/ _ ` _ \| _ \| \ \ /\ / / | _ ` _ \| _ \ / /\/ ')
Writeln('/\/ /_ | | | | | | |_) | |\ V V /| | | | | | | |_) /\/ /_ ')
Writeln('\____/ |_| |_| |_| .__/|_| \_/\_/ |_|_| |_| |_| .__/\____/ ')
Writeln(' |-| |_| ')
Writeln('-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-')
Writeln('- MoneyCalculator _')
Writeln('-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-')
if PlayerSrlId = '' then
begin
Writeln('OMG Leecher Alert!!!')
TerminateScript;
end;
end;
procedure DeclareLocations;
begin
SetArrayLength(locations,7);
locations[0] := 'feb';
locations[1] := 'fwb';
locations[2] := 'veb';
locations[3] := 'vwb';
locations[4] := 'lb';
locations[5] := 'db';
locations[6] := 'akb';
end;
procedure Report;
begin
Writeln('-------------------------------------------');
Writeln('--------------MoneyCalculator--------------');
Writeln('-------------------------------------------');
Writeln('Amount Of Coins: ' + CoinsValue + '--------');
Writeln('-------------------------------------------');
Writeln('---I know this script is pretty useless----');
Writeln('---and it will not save you any time,------');
Writeln('---but it is a good example of a script----');
Writeln('-------of an enthusiastic beginner!--------');
end;
procedure CheckBank;
Begin
SearchBank ('coins');
CoinAmount('Bank');
CoinsValue := inttostr (CoinAmount('Bank'));
end;
function LoadPath: TPointArray;
begin
SetLength(Result, 4);
Result[0] := Point(3222, 3219);
Result[1] := Point(3215, 3219);
Result[2] := Point(3214, 3210);
Result[3] := Point(3206, 3210);
end;
procedure WalkThePath;
Var
I: Integer;
Path: TPointArray;
Begin
Path := LoadPath;
for i := 0 to High(Path) do
Begin
WalkToTile(Path[i], 3, 0);
end;
Wait(500+Random(300));
end;
procedure FindStairCase;
begin
if not LoggedIn then
Exit;
if (not (FindObjCustom(x, y, ['Stair', 'case'], [6975859, 3819862, 6712686], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 20)then
begin
Logout;
Exit;
end else
if FindObjCustom(x, y, ['Stair', 'case'], [69758591, 3819862, 6712686], 7) then
Mouse(x, y, 4, 4,false);
ChooseOption('up');
end;
procedure FindSecondStairCase;
begin
if not LoggedIn then
Exit;
if (not (FindObjCustom(x, y, ['Stair', 'case'], [6975859, 3819862, 6712686], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 20)then
begin
Logout;
Exit;
end else
if FindObjCustom(x, y, ['Stair', 'case'], [69758591, 3819862, 6712686], 7) then
Mouse(x, y, 4, 4,false);
ChooseOption('up');
end;
procedure RunToBank;
begin
if (FindSymbol(rx, ry, 'bank')) then
begin
Mouse(rx, ry, 5, 5, true);
end;
end;
procedure TeleportToLumbridge;
begin
Writeln('You are not in a bank,you will be teleported to Lumbridge');
Wait(5000)
Cast('Home Teleport');
Wait(12000)
MakeCompass ('n')
Wait(2000)
SetRun(true)
WalkThePath
SetAngle(true)
SetRun(true)
Wait(12000)
FindStairCase
Wait(2000)
FindSecondStairCase
RunTo('n',false)
Wait(4000)
OpenBankFast('lb');
SearchBank ('coins');
CoinAmount('Bank');
CoinsValue := inttostr (CoinAmount('Bank'));
end;
begin
SetupSRL;
SetupSmart;
DeclarePlayers;
DisguiseSCAR;
MySignature
ActivateClient;
Wait(5000);
LoginPlayer;
Wait(6000)
DeclareLocations
if OpenBankFast(Players[0].Loc) then
CheckBank;
if (not(OpenBankFast(Players[0].Loc))) then
TeleportToLumbridge;
LogOut;
Report;
Disguise(Coinsvalue + ' coins')
end.
——————————————————
<!– END TEMPLATE: formanswers –>