SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
z0rb - SRL Member Application Form
z0rb

What is the meaning to life?
I play runescape :)

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
C+ little only.

Other Communitys


How Long have You Played Runescape
2 years played and 2 years macroing = 4 years :)

Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.

Hi my name Sami. I play runescape and counter-strike!
I start game 2002 and now i macroing and staking!
Im 17 years old :) i live in finland!
I need accept this application :)
I have girlfriend :)

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program pdFletcher;
{.include Si.scar}

const BowType = 1; // 0 = short, 1 = long, 2 = stock
TotalLogs = 280;
LogOutWhenDone = true;

const siUsername = '';
siPassword = '';
siLoggedIn = 120; // mins to run before sleeping
siLoggedOut = 60; // mins to sleep before restarting
siRunDirection = 'S'; // I use seer's
siLampSkill = 'Fletching'; // skill to use lamp on
siTakeScreens = true; // do you want screens of randoms?

var TotalDone, MakeX, count : integer;

procedure LoadBmps;
begin;
MakeX := BitmapFromString(42, 3, 'z78DA33753135313137' +
'05936E48C0000C4C91648957430C492D73A865A31B06C02F3B' +
'B4FC8E692F7EDFE10743DDEF00D948ACB1');
end;

procedure HandleRandoms;
begin
CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;

procedure closebank;
begin
if(BankScreen)then
wait(200+random(200));
mouse(486,42,2,2,true)
end;

procedure WithdrawLogs;
begin
if(not(BankScreen))then
OpenBank;
wait(200+random(200));
Mouse(476,77,2,2,true);
wait(200+random(200));
Withdraw(1, 1, 0);
wait(200+random(200));
closebank;
end;

procedure DepositBows;
begin
OpenBank;
wait(600+random(400));
Deposit(1, 2, 0);
wait(400+random(600));
end;

procedure CutBows;
var x, y: integer;
begin
UseItem(1);
UseItem(2);
wait(900+random(300));

// no error checking. let's hope you got it right.
case BowType of
0: ClickTextCoords('Make X', 105, 403, 3, 3);
1: ClickTextCoords('Make X', 251, 407, 3, 3);
2: ClickTextCoords('Make X', 416, 401, 3, 3);
end;

wait(500+random(1500));
SendText('55'+chr(13)); // 5 has a raised bump on the numpad.
wait(500+random(500));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
TotalDone := TotalDone + 27;
end;

procedure ScriptInit;
begin
LoadInclude('', false);
LoadBmps;
SetAccount(1, siUsername, siPassword);
ChatsOff;

TotalDone := 0;
end;

begin
ScriptInit;

repeat
begin
AntiBan(siLoggedIn, siLoggedOut, 1);
WithdrawLogs;
HandleRandoms;
CutBows;
HandleRandoms;
DepositBows;
end;
until(TotalDone >= TotalLogs);
CloseWindow;

if(LogOutWhenDone)then
LogOut;
end.


But this this is very old.

Using SI include, sorry no. make a script with SRL include.
And you maybe should learn more in here first.

(Hahaa! Suomesta, munki nimi on Sami muute. :D)

no go :) this is SRL forums, woot im from finland too!

This is Pwnds OOOOLLLLDDDD fletcher.
It doesnt work, and its not yours

http://www.fagex.net/showthread.php?t=27585