joery
2007-03-06 20:47:54
<!– BEGIN TEMPLATE: formanswers –>
joery - SRL Member Application Form
joery
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
java,php,html,vb6
Other Communitys
moparisthebest,moparscape,fagex,impsoft,rsr
How Long have You Played Runescape
4years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi i'm joery
i code for about 3years now.
started with html
then php
then vb6
then java
then SCAR
i'm am also in the projects called I-Bot and ARGA
on both of these programs i helped devoleping..
and i must say i'm doing pretty well at coding.
i'm Also SRL member on moparisthebest.org
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
joery - SRL Member Application Form
joery
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
java,php,html,vb6
Other Communitys
moparisthebest,moparscape,fagex,impsoft,rsr
How Long have You Played Runescape
4years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi i'm joery
i code for about 3years now.
started with html
then php
then vb6
then java
then SCAR
i'm am also in the projects called I-Bot and ARGA
on both of these programs i helped devoleping..
and i must say i'm doing pretty well at coding.
i'm Also SRL member on moparisthebest.org
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoAlcher;
const
x =711; //These might need to be edited.
y =326;
twait = 200;
Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
holdmouse(x, y, left);
wait(40 + random(50));
releasemouse(x, y, left);
End;
begin
repeat
wait(2100+random(twait));
clickhuman(x+random(3), y+random(4), true)
until(false);
end.{//////////////////////////////////////////////////////////////////////////////} program
Flaxer By Joery;
{.include SRL/SRL.scar}
{//////////////////////////////////////////////////////////////////////////////
Setup
' Low or High detail, low detail reccomended
' Map facing pretty much north
' Have camera at highest view point
' Start any where between flax and bank, bank is reccomended
//////////////////////////////////////////////////////////////////////////////}
const
HowTrips = 40 ; // How Many Trips ?
UserName = '' ; //RS UserName
PassWord = '' ; //RS PassWord
Treesym = 1936927; //Color of the tree symbol on minimap
Flaxcol = 12677752; //Color of the flax on the mini
Banksym = 6479870; //Color of the Bank symbol on the mimimap
FlaxMSC = 14934154; //Color of the flax on the MainScreen
{//////////////////////////////////////////////////////////////////////////////
Script Procedures
//////////////////////////////////////////////////////////////////////////////}
var
trips, PerHours: integer;
i: integer;
blarg: integer;
procedure Randoms;
begin
FindNormalRandoms;
// if(FindFight)then RunAway;
end;
procedure RandomWait(waittime, randtime: integer);
begin
if(randtime = waittime)then
begin
randtime := waittime + 2;
end;
wait(100 * waittime + random(100 * randtime));
end;
procedure NotFind(Col: string);
begin
Logout;
Writeln('Could not find the ' + col);
Writeln('Restart the script please.');
Terminatescript;
end;
procedure WalkFlax;
var
x, y: integer;
begin
x := 647;
y := 77;
if(FindColorSpiral(x, y, Banksym, 581, 15, 738, 132))then
begin
Mouse(x, y + 17, 2, 2, True);
end else
begin
NotFind('bank symbol');
end;
RandomWait(3, 5);
HumanFlag(10);
x := 650;
y := 121;
if(FindColorSpiral(x, y, Treesym, 555, 99, 749, 156))then
begin
Mouse(x - 12, y + 27, 3, 2, True);
end else
begin
NotFind('tree symbol(First Step)');
end;
SetRun(True);
GameTab(4);
RandomWait(3, 5);
flag;
x := 653;
y := 121;
if(FindColorSpiral(x, y, Treesym, 565, 114, 744, 163))then
begin
Mouse(x + 11, y + 19, 2, 2, True);
end else
begin
NotFind('tree symbol(Second step)');
end;
RandomWait(3, 5);
HumanFlag(10);
x := 638;
y := 49;
if(FindColorSpiral(x, y, Treesym, 595, 48, 668, 107))then
begin
Mouse(x + 50, y + 41, 4, 4, True);
end else
begin
NotFind('tree symbol(Third step)');
end;
RandomWait(3, 5);
flag;
x := 648;
y := 83;
if(FindColorSpiral(x, y, Flaxcol, 542, 11, 754, 161))then
begin
Mouse(x, y, 5, 2, True);
end else
begin
NotFind('flax color');
end;
RandomWait(3, 5);
HumanFlag(10);
end;
procedure WalkBank;
var
x, y, i: integer;
begin
While(not(Findcolor(x, y, Treesym, 576, 44, 654, 89)) and (i < 5))do
begin
Mouse(614, 74, 5, 5, True);
if(Trips < 4 + random(3))then
SetRun(False);
HumanFlag(5);
i := i + 1;
end;
x := 541;
y := 87;
if(FindColorSpiral(x, y, Treesym, 566, 36, 711, 138))then
begin
Mouse(x + 47, y - 18, 2, 2, True);
end else
begin
NotFind('tree symbol(To bank)');
end;
RandomWait(3, 5);
flag;
x := 631;
y := 80;
if(FindColorSpiral(x, y, Treesym, 588, 50, 646, 97))then
begin
Mouse(x + 7, y - 36, 2, 2, True);
end else
begin
NotFind('tree symbol(Step two towards the bank)');
end;
RandomWait(3, 5);
flag;
x := 647;
y := 43;
if(FindColorSpiral(x, y, Treesym, 607, 26, 715, 103))then
begin
Mouse(x - 15, y - 12, 2, 2, True);
end else
begin
NotFind('tree symbol(Step three towards the bank)');
end;
RandomWait(3, 5);
Flag;
x := 647;
y := 29;
If(FindColorSpiral(x, y, Banksym, 547, 8, 733, 61))then
if(random(2) = 0)then
begin
Mouse(x, y + 3, 2, 2, True);
RandomWait(3, 5);
HumanFlag(7);
end else
begin
Mouse(x, y + 3, 3, 3, True);
RandomWait(3, 5);
HumanFlag(7);
end;
end;
procedure PickingFlax;
var
x, y :integer;
begin
randoms;
repeat
if(findobj(x,y,'Pick',FlaxMSC,10))then
mouse(x,y,1,1,true)
Flag;
wait(250+random(170))
until(InvFull)or(IsChatMessage('carry'))
randoms;
end;
procedure OpenBank5;
var
x, y, fs, fs2: Integer;
begin
if not BankScreen then
repeat
if(FindObj(x, y, 'Use Bank', 2842230, 10))then
Mouse(x,y,4,4,False)
else
if(FindObj(x, y, 'Use Bank', 12611, 10))then
Mouse(x,y,4,4,False)
Wait(250);
if(ClickOption('quickly', 1))then
begin
Flag;
repeat
Wait(100);
fs := fs+1
until(BankScreen) or (fs>=50);
end;
fs2 := fs2+1
until(BankScreen) or (fs2>5);
end;
procedure Bank;
var
x, y: integer;
begin
if(Findcolor(x, y, BankSym, 619, 40, 680, 117))then
begin
MMouse(x,y,255,130)
OpenBank5;
RandomWait(2, 5);
DepositAll;
RandomWait(2, 5);
CloseWindow;
RandomWait(1, 3);
end else
if(FindColor(x, y, BankSym, 558, 12, 743, 115))then
begin
Mouse(x, y, 3, 3, True);
Flag;
MMouse(x,y,255,130)
OpenBank5;
RandomWait(2, 5);
DepositAll;
RandomWait(2, 5);
CloseWindow;
RandomWait(1, 3);
end else
begin
Writeln('You'#39're not in the bank!');
LogOut;
TerminateScript;
end;
end;
procedure ProgressReport;
begin
PerHours := (Trips * 28) / ScriptTime(2) * 60;
ClearDebug;
Writeln(' ');
Writeln(' Pwnd'#39's Flax0r, kthx.');
Writeln(' ');
Writeln('You'#39've picked ' + inttostr(Trips * 28) + ' flax!');
Writeln(' Travelled '+inttostr(Trips)+'/'+inttostr(HowTrips)+' Trips To Flax Field ')
Writeln('Script has been running for ' + ScriptTime2(2));
Writeln('That is roughly ' + inttostr(PerHours) + ' per hour.');
end;
procedure StartTehScriptPlocks;
begin
if((UserName = '') and (PassWord = ''))then
begin
Writeln('Please, Put your UserName And Password On correct lines');
Writeln('Fix this and restart the script please.');
LogOut;
TerminateScript;
end else
if((not(UserName = '')) and (not(PassWord = '')))then
begin
Cleardebug;
Writeln('Thanks to Pwnd Because of this awsome Script.. I tried to update it to SRL..')
Writeln('Hello ' + UserName);
Writeln('Welcome and have fun!');
Writeln('The Flax0r will begin soon, kthx!');
Wait(2000 + random(1000));
Writeln('Now!');
end;
end;
begin
SetupSRL;
Trips := 0;
StartTehScriptPlocks;
if(FindColor(x, y, BankSym, 550, 6, 738, 149))then
begin
repeat
WalkFlax;
PickingFlax;
Walkbank;
Bank;
Trips := Trips + 1;
ProgressReport;
until(Trips >=HowTrips);
logout;
end else
if(FindColor(x, y, FlaxMSC, 5, 5, 545, 340))then
begin
blarg:=1;
repeat
if(isfunctionkeydown(1)) then
blarg:=0
PickingFlax;
WalkBank;
Bank;
WalkFlax;
Trips := Trips + 1;
ProgressReport;
until (blarg=1)
if(Trips mod 4 = 0)then
MakeCompass('N');
end else
begin
ClearDebug;
While(i < 4)do
begin
Writeln(' ');
i := i + 1;
end;
LogOut;
Writeln('Pmg, the colors! Set the correctly!');
TerminateScript;
end;
end.
program Fletcher;
{.include Si.scar}
const BowType = 1; // 0 = short, 1 = long, 2 = stock
TotalLogs = 773;
LogOutWhenDone = false;
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(800+random(1500));
SendText('555'+chr(13)); // 5 has a raised bump on the numpad.
wait(800+random(800));
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.——————————————————
<!– END TEMPLATE: formanswers –>