The devil
2007-05-22 05:58:23
<!– BEGIN TEMPLATE: formanswers –>
The devil - SRL Member Application Form
The devil
What is the meaning to life?It means everything.
Where you Referred to SRL? If yes, by whom?
yes
My friend
Programming Knowledge
Java,C.
Other Communitys
Sythe,Rst.
How Long have You Played Runescape
3years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Umm well im a 13 year old that like scaring.
I will take the responsibilities of being a good srl member.
I want to code till i become a pro.
And i know i need to make some of my scripts better but im still learning and yeh thats about it.
I just want to know abou scar even if im not goodill get help from ppl
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
The devil - SRL Member Application Form
The devil
What is the meaning to life?It means everything.
Where you Referred to SRL? If yes, by whom?
yes
My friend
Programming Knowledge
Java,C.
Other Communitys
Sythe,Rst.
How Long have You Played Runescape
3years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Umm well im a 13 year old that like scaring.
I will take the responsibilities of being a good srl member.
I want to code till i become a pro.
And i know i need to make some of my scripts better but im still learning and yeh thats about it.
I just want to know abou scar even if im not goodill get help from ppl
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = Willow chop choper
# Author = Ruler
# Description = Chop & Banks Willows at Draynor
# Version = My first 1
# Date = March 13, 2007
# Comments =
/Script Info}
program Willow chop choper;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
TreeName1,TreeName2,TreeName3:string;
TreeColor,DTMBrokenAxe,DTMNormalAxe,Load,LoadTarget,DTMAxeHandle:integer;
Banked,Ran,Ent,NewAxe:integer;
//Setup//
procedure Setup;
begin;
Status('Procedure Setup;');
SetupSRL;
TreeColor:= 4415576;
LoadTarget:= 5; //Number of loads until it switches characters
end;
procedure DeclarePlayers;
begin
Status('Procedure DeclarePlayers;');
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=true;
end;
//End Of Setup//
procedure SetupScript;
begin
Status('Procedure SetupScript;');
FindAxeHeadColor;
Wait(10 + Random(100));
MakeCompass('N');
Wait(10 + Random(100));
HighestAngle;
Wait(10 + Random(100));
Load:= 0;
Banked:= 0;
Ran:= 0;
Ent:= 0;
NewAxe:= 0;
Wait(10 + Random(100));
end;
procedure LoadingDTMBitmaps;
begin
Status('Procedure LoadDTMBitmaps;');
DTMBrokenAxe:= DTMFromString('78DA633CCCC4C0B091910119D4C4F13180444' +
'0F83F10301E02AA5987AA06220B2381F459A09AF504D49C03AAD9' +
'4040CD19A09ACD4498B38D809AD340353B08A8390A54B385809AD' +
'D403527F0AB0100F014127B');
DTMNormalAxe:= DTMFromString('78DA637CCDC4C0B09E9101197467083280444' +
'0F83F1030BE02AA598DAA06220B2381F47BA09A3504D47C2642CD' +
'57A09A7544A8D94840CD27A09AAD04D43C02AA398A5F0D002B8D1' +
'231');
DTMAxeHandle:= DTMFromString('78DA63F4616260F8C6800618914820ED0B54F' +
'385801A4FA09A3F44A8F941408D3D500D1F237E35DE986EAE88E2' +
'63E042520300750807A0');
end;
procedure RunAway;
begin
Status('Procedure RunAway;');
Ran:= (Ran + 1);
SetRun(true);
MouseFindFlag(MMCX + 40,MMCY + 40,5,5);
Wait(15000 + Random(5000));
MouseFindFlag(MMCX - 40,MMCY - 40,5,5);
Flag;
Wait(100 + Random(100));
end;
procedure Ents;
begin
Status('Procedure Ents;');
if(not(FindColorTolerance(x,y,55769,85,15,115,15,25)))then
begin
Exit;
end;
if(FindColorTolerance(x,y,55769,85,15,115,15,25))then
begin
Ent:= (Ent + 1);
SetRun(true);
MouseFindFlag(MMCX + 3,MMCY + 3,2,2);
Wait(15000 + Random(5000));
MouseFindFlag(MMCX - 3,MMCY - 3,2,2);
Flag;
Wait(500 + Random(100));
end;
end;
procedure SpecialAntiRandoms;
begin
Status('Procedure SpecialAntiRandoms;');
FindNormalRandoms;
DwarfItem;
FindLamp('Woodcutting');
OpenBox;
SolveBox;
if(DetectFrogCave)then SolveFrogSwamp;
if(InBlack)then Logout;
if(FindFight)then RunAway;
if(TalkToRand)then
begin
repeat
ClickToContinue;
until(not(TalkToRand));
end;
if(WeAreDead)then
begin
Logout;
Players[CurrentPlayer].Active:= False;
NextPlayer(True);
end;
end;
procedure SpecialAntiBan;
var RX:integer;
begin
Status('Procedure SpecialAntiBan;');
RX:=Random(19);
case RX of
0 : HoverSkill('Woodcutting',false);
1 : PickUpMouse;
2 : Wait(100 + Random(10));
3 : Wait(100 + Random(10));
4 : SpecialAntiRandoms;
5 : Wait(100 + Random(10));
6 : Wait(100 + Random(10));
7 : Wait(100 + Random(10));
8 : begin; GameTab(Random(7) + 1) Wait(300 + Random(50)) end;
9 : SpecialAntiRandoms;
10 : Wait(100 + Random(10));
11 : Wait(100 + Random(10));
12 : Wait(100 + random(10));
13 : begin; GameTab(Random(7) + 1) Wait(300 + Random(50)) end;
14 : Wait(100 + Random(10));
15 : Wait(100 + Random(10));
16 : Wait(100 + Random(10));
17 : PickUpMouse;
18 : Wait(100 + Random(10));
19 : PickUpMouse;
end;
end;
procedure WithdrawAxe;
var BX,BY,BT:integer;
begin
Status('Procedure WithdrawAxe;');
BT:= 0;
if(not(FindDtm(DTMNormalAxe,BX,BY,MSX1,MSY1,MSX2,MSY2)))then
begin
Status('You Have No More Axes Logging Out...');
Logout;
Players[CurrentPlayer].Active:= False;
Nextplayer(true);
end;
if(FindDtm(DTMNormalAxe,BX,BY,MSX1,MSY1,MSX2,MSY2))then
begin
repeat
BT:= (BT + 1);
Mouse(BX,BY,1,1,True);
Wait(700 + Random(200));
until(FindDtm(DTMNormalAxe,BX,BY,MIX1,MIY1,MIX2,MIY2)or(BT > 5));
FindAxeHeadColor;
end;
end;
procedure DepositBrokenAxe;
var BX,BY,BT:integer;
begin
Status('Procedure DepositBrokenAxe;');
BT:= 0;
if(not(FindDtm(DTMBrokenAxe,BX,BY,MIX1,MIY1,MIX2,MIY2)))then
begin
Exit;
end;
if(FindDtm(DTMBrokenAxe,BX,BY,MIX1,MIY1,MIX2,MIY2))then
begin
repeat
BT:= (BT + 1);
Mouse(BX,BY,1,1,True);
Wait(700 + Random(200));
until(not(FindDtm(DTMBrokenAxe,BX,BY,MIX1,MIY1,MIX2,MIY2))or(BT >= 5));
end;
end;
procedure DepositAxeHandle;
var BX,BY,BT:integer;
begin
Status('Procedure DepositAxeHandle;');
BT:= 0;
if(not(FindDtm(DTMAxeHandle,BX,BY,MIX1,MIY1,MIX2,MIY2)))then
begin
Exit;
end;
if(FindDtm(DTMAxeHandle,BX,BY,MIX1,MIY1,MIX2,MIY2))then
begin
repeat
BT:= (BT + 1);
Mouse(BX,BY,1,1,True);
Wait(700 + Random(200));
until(not(FindDtm(DTMAxeHandle,BX,BY,MIX1,MIY1,MIX2,MIY2))or(BT >= 5));
end;
end;
procedure BankNewAxe;
begin
Status('Procedure BankNewAxe;');
NewAxe:= (NewAxe + 1);
SetRun(true);
Wait(100);
FindSymbol(x,y,'bank');
Status('Trees -> Bank;');
Wait(100);
Mouse(x,y,1,1,true);
Flag;
Wait(500 + Random(100));
if(FindObj(x,y,'ooth',3552827,5))then
begin
Mouse(x,y,0,0,false);
Wait(1000 + Random(500));
PopUp('ickl');
Flag;
Wait(1000 + Random(500));
DepositBrokenAxe;
Wait(1000 + Random(500));
DepositAxeHandle;
Wait(1000 + Random(500));
Wait(1000 + Random(500));
WithdrawAxe;
end;
CloseBank;
Wait(100 + Random(100));
MouseFindFlag(MMCX - 30,MMCY + 30,3,3);
Status('Bank -> Trees;');
end;
procedure AxeBroken;
begin
Status('Procedure AxeBroken;');
GameTab(4)
Wait(100 + Random(100))
if(not(FindDTM(DTMBrokenAxe,x,y,MIX1,MIY1,MIX2,MIY2)))then
begin
Status('No Broken Axe;');
Exit;
end;
if(FindDTM(DTMBrokenAxe,x,y,MIX1,MIY1,MIX2,MIY2 )and(not(FindDTM(DTMNormalAxe, x, y, MIX1, MIY1, MIX2, MIY2))))then
begin
Status('Found a Broken Axe / No More in Inventory;');
BankNewAxe;
end;
end;
procedure AxeFinder;
begin
Status('Procedure AxeFinder;');
LoadingDTMBitmaps;
Wait(100 + Random(100));
if(not(FindDTM(DTMAxeHandle,x,y,MIX1,MIY1,MIX2,MIY2)))then
begin
Status('AxeHandle not Found;');
Exit;
end;
if(FindDTM(DTMAxeHandle,x,y,MIX1,MIY1,MIX2,MIY2)or(InChatMulti('ot ha','ch yo','ing le')))then
begin
Status('AxeHandle Found;');
FindHead;
Wait(100 + Random(100));
AttachHead;
Wait(100 + Random(100));
BankNewAxe;
end;
end;
procedure Banking;
var BX,BY,BAX,BAY,PP:integer;
begin
PP:= 0;
Status('Procedure Banking;');
if(not(FindSymbol(BX,BY,'bank')))then
begin
Status('Procedure Banking - [BankSymbol not Found];');
Mouse(660, 50,1,1,true);
Wait(100);
Flag;
Wait(1000 + Random(100));
end;
if(FindSymbol(BX,BY,'bank'))then
begin
SetRun(true);
Wait(100);
Mouse(BX,BY,1,1,true);
Wait(100);
Flag;
Wait(1000 + Random(100));
end;
Wait(1000 + Random(500));
if(FindObj(BAX,BAY,'booth',3552827,5))then
begin
Mouse(BAX,BAY,1,1,false);
Wait(400 + Random(200));
PopUp('ickl');
end;
Wait(1000 + Random(500));
begin
repeat
if(FindItemName('Wil')or(FindItemName('ogs')))then
begin
PP:= (PP + 1);
Mouse(x,y,1,1,false);
Wait(500 + Random(100));
ChooseOption(BX,BY,'All')
Banked:= (Banked + 1);
Wait(200 + Random(100));
end;
until((not(FindItemName('Wil'))or(not(FindItemName('ogs')))or(PP >= 2)));
end;
Wait(100 + Random(50));
DepositBrokenAxe;
Wait(100 + Random(50));
CloseBank;
Wait(100 + Random(100));
MouseFindFlag(MMCX - 30,MMCY + 30,3,3);
Flag;
Wait(200 + Random(200));
end;
function StillCutting: Boolean;
var XT,YT:integer;
begin
Status('Function StillCutting;');
if(IsUpText('alk')or(IsUpText('lk he')or(IsUpText('her'))))then
begin
result:= false;
end;
if(IsUpText('hop')or(IsUpText('own')or(IsUpText(TreeName2))))then
begin
result:= true;
end;
if(result = true)then
begin
Status('Procedure StillCutting - [result = true];');
Exit;
end;
if(result = false)then
begin
Status('Procedure StillCutting - [result = false];');
FindObjMultiText(XT,YT,'Wil','illo','llow',TreeColor,3)
Wait(500 + Random(100));
Ents;
Mouse(XT,YT,1,1,True);
AxeFinder;
AxeBroken;
SpecialAntiRandoms;
end;
end;
procedure TreeTime;
var XT,YT,TTol:integer;
begin
Status('Procedure TreeTime;');
TTol:= 3
if(not(LoggedIn))then
begin
NextPlayer(false);
Exit;
end;
Wait(1000 + Random(500));
AxeBroken;
if(not(FindObjMultiText(XT,YT,'Wil','illo','llow',TreeColor,TTol)))then
begin
repeat
TTol:= (TTol + 1);
until(FindObjMultiText(XT,YT,'Wil','illo','llow',TreeColor,TTol));
end;
if(FindObjMultiText(XT,YT,'Wil','illo','llow',TreeColor,TTol)or(IsUpTextMulti('hop down','down','own'))or(IsUpTextMulti(TreeName1,TreeName2,TreeName3)))then
begin
Wait(100 + Random(10));
Ents;
Mouse(XT,YT,1,1,True);
Wait(100 + Random(100));
SpecialAntiRandoms;
AxeFinder;
Flag;
Wait(100 + Random(10));
SpecialAntiBan;
Wait(100 + Random(10));
StillCutting;
Wait(2000 + Random(1000));
end;
if(InvFull)then
begin
Banking;
end;
end;
procedure ProgressReport;
begin
Writeln(' Special Woodcutter ');
Writeln('');
Writeln(' Time Ran: ' + TimeRunning + ' ');
Writeln(' Loads Banked: ' + inttostr(Banked) + ' ');
Writeln(' Ran Away: ' + inttostr(Ran) + ' ');
Writeln(' Ents Avoided: ' + inttostr(Ent) + ' ');
Writeln(' Axes Withdrawn: ' + inttostr(NewAxe) + ' ');
Writeln('');
end;
procedure SpecialTree;
begin
Status('Procedure SpecialTree;');
repeat
begin
Wait(100);
TreeTime;
Wait(100);
end;
until(InvFull);
Banking;
ProgressReport;
end;
begin
ClearDebug;
Status('- Main Loop -');
Wait(1500);
Setup;
DisguiseScar('Ventrilo');
LoadingDTMBitmaps;
DeclarePlayers;
ClearDebug;
if(not(LoggedIn))then Loginplayer;
begin
SetupScript;
repeat
begin
repeat
if(not(LoggedIn))then
begin
NextPlayer(False);
Exit;
end;
SpecialTree;
ProgressReport;
until(Load > (Random(5) + LoadTarget));
end;
LogOut;
NextPlayer(True);
ProgressReport;
until(false);
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>