kemico2
2007-06-26 19:05:47
<!– BEGIN TEMPLATE: formanswers –>
kemico2 - SRL Member Application Form
kemico2
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
Mopar and 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 started auoting about a year into my playing of runescape. I went to this websight and it had scar for sale i didnt have the money to buy it so I searched for a free program. It turned out that that websight was a scam and that it could be downloaded for free from dylock.net. After running Solmen Wishes ess miner for a while I fould villu-reborn and applied here. I Really wanted to learn to script for myself and found out that in a cheeting community the people are actually very nice and genorus. I read many tutorials and helped some people with their first scripts. I even wrote a few scripts of my own.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
kemico2 - SRL Member Application Form
kemico2
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
Mopar and 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 started auoting about a year into my playing of runescape. I went to this websight and it had scar for sale i didnt have the money to buy it so I searched for a free program. It turned out that that websight was a scam and that it could be downloaded for free from dylock.net. After running Solmen Wishes ess miner for a while I fould villu-reborn and applied here. I Really wanted to learn to script for myself and found out that in a cheeting community the people are actually very nice and genorus. I read many tutorials and helped some people with their first scripts. I even wrote a few scripts of my own.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program DraynorWillowCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/woodcutting.scar}
const
BankSymbolColor=11250352;
willowcolor1=2902351;
willowcolor2=3686456;
willowcolor3=2971728;
loadsperplayer=2;
PickWielded=true;
var
logs : integer; Trees : integer; loads : integer; tries : integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=6; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Loc1';
Players[0].Skill:='woodcutting';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Loc1';
Players[1].Skill:='';
Players[1].Active:=false;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Loc1';
Players[2].Skill:='';
Players[2].Active:=false;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Loc1';
Players[3].Skill:='';
Players[3].Active:=false;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Loc1';
Players[4].Skill:='';
Players[4].Active:=false;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Loc1';
Players[5].Skill:='';
Players[5].Active:=false;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
writeln(inttostr(HowManyPlayers)+' Players');
end;
procedure LoadDtms;
begin;
Logs:= DTMFromString('78DA63F460626078CA80021C2CC5C1342394C' +
'F180854731B558DAB2D9A9A60A09AD7A86AFC5C2551D53801D5BC' +
'4355939F668BAAC606D33D9E4E68E63802D5DC455563652282A20' +
'60013200B2C');
end;
Procedure ProgressReport;
begin;
Writeln('[]-------------------------------------------[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Cut '+ IntToStr(trees) + ' Willows');
Writeln('Did '+ intToStr(loads) + ' loads');
Writeln('[]--------------------------------------------[]');
end;
Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure sig;
begin;
writeln(' ____ __. .__ ')
writeln('| |/ _|____ _____ |__| ____ ____ ')
Writeln('| <_/ __ \ / \| |/ ___\/ _ \ ')
Writeln('| | \ ___/| Y Y \ \ \__( <_> )')
Writeln('|____|__ \___ >__|_| /__|\___ >____/ ')
Writeln(' \/ \/ \/ \/ ')
end;
Procedure PrepCharacter;
begin
If (not(loggedin)) Then nextplayer(false);
Activateclient;
wait(30)
MakeCompass('N');
wait(30)
setchat('Hide',1)
setchat('friends',2)
setchat('off',3)
highestangle;
end;
procedure ToTrees;
begin
setrun(true)
case random(3) of
0: Mouse(640,125,2,2,true);
1: Mouse(628,126,2,2,true);
2: Mouse(645,144,2,2,true);
3: Mouse(621,117,2,2,true);
end
end;
procedure Antirandoms1;
begin
Findtalk;
FindFight;
If(findFight = true)then
begin
RunAwayDirection('N')
wait(10000+random(3000))
Runback;
If(findent(willowcolor1))or
(findent(willowcolor2))or
(findent(willowcolor3))then
begin
RunAwayDirection('N')
Wait(10000+random(2000))
runback;
end
end
end;
Procedure antirandoms2;
begin;
FindFastRandoms;
FindNormalRandoms;
end;
Procedure Antiban;
begin
If(not(loggedin))then
Exit;
Case Random(5)of
0 : HoverSkill('WoodCutting',false)
1 : RandomRClick;
2 : PickUpMouse;
3 : AlmostLogOut;
5 : begin
Lowestangle;
Wait(10+random(10))
HighestAngle;
end
end
end;
Procedure CutTrees;
begin
wait(6000+random(2000))
MakeCompass('N')
repeat
AntiRandoms2;
FindHead;
If(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
(findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
(findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
begin
Mmouse(x,y,2,2);
If(IsUpText('illow'))then
begin
Mouse(x,y,2,2,false)
AntiRandoms1;
chooseoption(x,y,'own')
AntiBan;
wait(4000+random(3000))
end
end
Until(InvFull)
end;
Procedure ToBank;
begin
If(findSymbol(x,y,'bank'))then
begin
Mouse(x,y,2,2,true)
Wait(5000+random(2000))
end else
begin
If(FindCOlorTOlerance(x,y,7302775,594,24,700,120,10)) then
Mouse(x,y,2,2,true)
Wait(5000+random(2000));
end
end;
Procedure OpenDaBank;
begin;
repeat
openbank3
wait(200+random(300));
tries:= tries + 1;
until(tries = 20);
makecompass('w')
repeat
openbank3;
wait(200+random(300))
until(bankscreen)
end;
procedure BankWillows;
begin
If(Pickwielded=true)then
DepositAll;
If(pickwielded=false)then
Deposit(2,28,2)
trees:= trees + 28;
loads:= loads + 1;
end;
begin;
setupsrl;
sig;
repeat
toTrees;
CutTrees;
tobank;
opendabank;
bankwillows;
until(loads=loadsperplayer)
ProgressReport;
NextPlayer(false);
end.——————————————————
<!– END TEMPLATE: formanswers –>