evil dark
2007-03-21 08:50:20
<!– BEGIN TEMPLATE: formanswers –>
evil dark - SRL Member Application Form
evil dark
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i was script for my self
Programming Knowledge
c++
Other Communitys
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi
im worken in scripting and i like the scar programs and all thats
and now i try to make my self a good scripter and im not really a good scripter but i have the chance to be good scripter and i can do some scripts by my self that what i will post now and i will show u some of my works its not much and thes is my script its a power cutter i know its not much thes what im good in and soon i will make a power miner
then varrock east bank miner and with my brother help i will make a guild miner that can mine caols and miths then go bank to bank
and thes all wat i can do now thanks to all who vote for me and the others who will not make me not a member :)
best wishes for all.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
evil dark - SRL Member Application Form
evil dark
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i was script for my self
Programming Knowledge
c++
Other Communitys
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi
im worken in scripting and i like the scar programs and all thats
and now i try to make my self a good scripter and im not really a good scripter but i have the chance to be good scripter and i can do some scripts by my self that what i will post now and i will show u some of my works its not much and thes is my script its a power cutter i know its not much thes what im good in and soon i will make a power miner
then varrock east bank miner and with my brother help i will make a guild miner that can mine caols and miths then go bank to bank
and thes all wat i can do now thanks to all who vote for me and the others who will not make me not a member :)
best wishes for all.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoWoodCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/woodcutting.scar}
var Loads: Integer;
LogsDTM: Integer;
const
TreeColor = 4878432;//Set the color of the tree,already set to normal/oaks
StartPlayer = 0;
NumberOfUsers = 6;
LoadsPerPerson = 15;//How many loads for each player?
procedure LoadDTMs;
begin
Logs := DTMFromString('78DA633CCCC0C0B095010D302291407A37903' +
'84940CD7920B197809A1340E21801359B81C47EFC6A001D5B0798' +
'');
end;
procedure DeclarePlayers;
begin
HowManyPlayers:= 6;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer :=0;
Players[0].Name :='UserName';
Players[0].Pass :='PassWord';
Players[0].Nick :='3-4 Letters Of UserName';
Players[0].Active:=True;
Players[1].Name :='UserName';
Players[1].Pass :='PassWord';
Players[1].Nick :='3-4 Letters Of UserName';
Players[1].Active:=True;
Players[2].Name :='UserName';
Players[2].Pass :='PassWord';
Players[2].Nick :='3-4 Letters Of UserName';
Players[2].Active:=True;
Players[3].Name :='UserName';
Players[3].Pass :='PassWord';
Players[3].Nick :='3-4 Letters Of UserName';
Players[3].Active:=True;
Players[4].Name :='UserName';
Players[4].Pass :='PassWord';
Players[4].Nick :='3-4 Letters Of UserName';
Players[4].Active:=True;
Players[5].Name :='UserName';
Players[5].Pass :='PassWord';
Players[5].Nick :='3-4 Letters Of UserName';
Players[5].Active:=True;
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;
function DoAntiBan: Boolean;
begin
Wait(50 + random(100));
BoredEvery(4 + random(7));
Wait(100 + random(100))
RotateEvery(3 + random(3));
Wait(750 + random(250));
LeaveScreenEvery(6 + random(2));
Wait(500 + random(150));
HoverEvery(4+random(6),'WoodCutting')
Wait(1000+random(100));
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('S');
Wait(10000 + random(2000));
RunBack;
end;
end;
Function FindColors: Boolean;
begin
GameTab(4);
result := FindAxeHeadColor;
end;
Function FindAxeHead: Boolean;
begin
AttachHead;
end;
procedure RepeatClicking;
begin
repeat
if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
begin
MMouse(x,y,0,0);
Wait(100+random(10));
Mouse(x,y,0,0,false);
wait(1000+random(100));
ChooseOption(x,y,'Cho');
wait(2500+random(250));
DoAntiRandoms;
If(isFKeyDown(12))then terminatescript;
end;
If not (FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
begin
KeyDown(VK_Down);
Wait(500+random(50));
KeyUp(VK_Down);
end;
until(InvFull);
end;
function FindTheEnt(TreeColor: Integer): Boolean;
begin
If(FindEnt(4878432))then
begin
Mouse(648,83,1,1,true);
FTwait(30);
end;
end;
procedure Drop;
begin
repeat
if(FindDTM(Logs,x,y,0,0,764,700)) then
begin
MMouse(x,y,0,0);
wait(100+random(10));
Mouse(x,y,0,0,false);
ChooseOption(x,y,'rop');
end;
until not (FindDTM(Logs,x,y,0,0,764,700))
Loads:= Loads + 1
end;
begin
ActivateClient;
LoadDTMs;
ClearDebug;
SetupSRL;
DeclarePlayers;
If(not(LoggedIn)) then
LoginPlayer;
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd - Microsoft Internet Explorer');
FindAxeHeadColor;
repeat
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
FindColors;
RepeatClicking;
FindTheEnt(TreeColor);
FindAxeHead;
AttachHead;
DoAntiBan;
Drop;
ProgressReport;
If(Loads = LoadsPerPerson)then NextPlayer(False);
until(false) or
(IsFKeyDown(12));
end.——————————————————
<!– END TEMPLATE: formanswers –>