The devil
2007-05-25 23:35:14
<!– BEGIN TEMPLATE: formanswers –>
The devil - SRL Member Application Form
The devil
What is the meaning to life?It means Everthing to us.
Where you Referred to SRL? If yes, by whom?
yes
Friend
Programming Knowledge
Java,C
Other Communitys
RST,Sythe.
How Long have You Played Runescape
4 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Lol how should i start all the developers probably no me from before well let me say im a 13 year old that wants to script i made this powercuter i took some parts off from other scripts and put it in mine but i used my own work i hope you judge me from this script and i know what i did before 2x.
But i did tell use that i will try to learn about scripting thanks people.
Use could take parts off my scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{Date = 26,May,2007
{Destination = Near the willows in draynor.
(Enjoy
{Thank you = _ChArMz,Fourscape,Fugate and thats about it.
program The devils Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
Startxp, Totallogs, TotalXP,EndXP :integer;
const
TreeColor= 2459760; //Color of tree
IsAxeWeilded = True; // Change to True If Axe Is Weilded
TreeFindTime = 1000; // Time In Miliseconds Till u click next tree
// 1000 MiliSeconds = 1 Second
////////////Declaring PLayers/////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers := 3;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 Lowercase Letters of your username
Players[0].Integer1 := 35; //Loads For Player
Players[0].Boolean1 := False; //Equip Axe?
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Integer1 := 35;
Players[1].Boolean1 := False;
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Integer1 := 35;
Players[2].Boolean1 := False;
Players[2].Active := True;
End;
///////////////Anti Randomz/////////////// fourscape :)
Procedure TheAntiRandoms;
Begin
Status('Random Check')
FindNormalRandoms;
wait(10)
FindTalk;
wait(10)
if (FindFight) then
begin
Status('Running From a fight.')
RunAwayDirection('E');
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;
////////////////Finding Tree/////////////////
Procedure FindTree;
begin;
repeat
if FindColor(x,y,TreeColor,0,0,305, 82)then
begin
Wait(TreeFindTime)
MMouse(x,y,2,2)
if(IsUpText('Willow'))then
begin
Mouse(x,y,2,2,true)
Writeln('Clicked Tree!')
end;
TheAntiRandoms;
end else
Writeln('Cant Find Willows')
until (InventoryFull);
end;
////////////////////Dropage//////////////////
Procedure Dropage;
begin
if(IsAxeWeilded = true)then
begin
DropAll;
end;
if(IsAxeWeilded = false)then
begin
Dropto(2,28);
end;
end;
/////////////////Ent//////////////////// <— Charmz!!!
Function CharmEnt(ex, ey: Integer): Boolean;
Var
Xe, Ye: Integer;
Begin
Status('FindEnt');
If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
Begin
MMouse(Xe, Ye, 5, 5);
Wait(100+Random(50));
End else
Begin
Exit;
End
If(IsUpTextMulti('chop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
Begin
If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
(FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
(FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
Begin
EntsAvoided:= EntsAvoided + 1;
Result:= True;
End else
Result:= False;
Exit;
End
End;
//////////////////Progress Report////////////////////
Procedure ProgressReport;
Begin
SRLRandomsReport;
ClearDebug;
WriteLn('[>———————–Devils 3633256Report———————–<]')
WriteLn('[>Script Time: ' + (TimeRunning) + '')
WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) + '')
WriteLn('[>XP Gained: ' + IntToStr (TotalXP) + '')
WriteLn('[>———————————————————-<]')
end;
/////////////////Progress///////////////////
Procedure Progress;
begin
StartXP := GetXp('Woodcutting')
EndXP := GetXp('Woodcutting')
TotalXP := (EndXP - StartXP) + (TotalXP)
ProgressReport;
end;
//////////////////MainLoop////////////////////// Credits To Fugate
begin
SetupSrl;
DeclarePlayers;
Totallogs:= 0;
If (Not(LoggedIn)) then LoginPlayer;
FindAxeHeadColor;
repeat
If (Not(LoggedIn)) then LoginPlayer;
ProgressReport;
Progress;
FindTree;
Dropage;
loginplayer;
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>
The devil - SRL Member Application Form
The devil
What is the meaning to life?It means Everthing to us.
Where you Referred to SRL? If yes, by whom?
yes
Friend
Programming Knowledge
Java,C
Other Communitys
RST,Sythe.
How Long have You Played Runescape
4 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Lol how should i start all the developers probably no me from before well let me say im a 13 year old that wants to script i made this powercuter i took some parts off from other scripts and put it in mine but i used my own work i hope you judge me from this script and i know what i did before 2x.
But i did tell use that i will try to learn about scripting thanks people.
Use could take parts off my scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{Program = The Devils Powercutter{Date = 26,May,2007
{Destination = Near the willows in draynor.
(Enjoy
{Thank you = _ChArMz,Fourscape,Fugate and thats about it.
program The devils Powercutter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
Startxp, Totallogs, TotalXP,EndXP :integer;
const
TreeColor= 2459760; //Color of tree
IsAxeWeilded = True; // Change to True If Axe Is Weilded
TreeFindTime = 1000; // Time In Miliseconds Till u click next tree
// 1000 MiliSeconds = 1 Second
////////////Declaring PLayers/////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers := 3;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 Lowercase Letters of your username
Players[0].Integer1 := 35; //Loads For Player
Players[0].Boolean1 := False; //Equip Axe?
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Integer1 := 35;
Players[1].Boolean1 := False;
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Integer1 := 35;
Players[2].Boolean1 := False;
Players[2].Active := True;
End;
///////////////Anti Randomz/////////////// fourscape :)
Procedure TheAntiRandoms;
Begin
Status('Random Check')
FindNormalRandoms;
wait(10)
FindTalk;
wait(10)
if (FindFight) then
begin
Status('Running From a fight.')
RunAwayDirection('E');
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;
////////////////Finding Tree/////////////////
Procedure FindTree;
begin;
repeat
if FindColor(x,y,TreeColor,0,0,305, 82)then
begin
Wait(TreeFindTime)
MMouse(x,y,2,2)
if(IsUpText('Willow'))then
begin
Mouse(x,y,2,2,true)
Writeln('Clicked Tree!')
end;
TheAntiRandoms;
end else
Writeln('Cant Find Willows')
until (InventoryFull);
end;
////////////////////Dropage//////////////////
Procedure Dropage;
begin
if(IsAxeWeilded = true)then
begin
DropAll;
end;
if(IsAxeWeilded = false)then
begin
Dropto(2,28);
end;
end;
/////////////////Ent//////////////////// <— Charmz!!!
Function CharmEnt(ex, ey: Integer): Boolean;
Var
Xe, Ye: Integer;
Begin
Status('FindEnt');
If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
Begin
MMouse(Xe, Ye, 5, 5);
Wait(100+Random(50));
End else
Begin
Exit;
End
If(IsUpTextMulti('chop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
Begin
If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
(FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
(FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
Begin
EntsAvoided:= EntsAvoided + 1;
Result:= True;
End else
Result:= False;
Exit;
End
End;
//////////////////Progress Report////////////////////
Procedure ProgressReport;
Begin
SRLRandomsReport;
ClearDebug;
WriteLn('[>———————–Devils 3633256Report———————–<]')
WriteLn('[>Script Time: ' + (TimeRunning) + '')
WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) + '')
WriteLn('[>XP Gained: ' + IntToStr (TotalXP) + '')
WriteLn('[>———————————————————-<]')
end;
/////////////////Progress///////////////////
Procedure Progress;
begin
StartXP := GetXp('Woodcutting')
EndXP := GetXp('Woodcutting')
TotalXP := (EndXP - StartXP) + (TotalXP)
ProgressReport;
end;
//////////////////MainLoop////////////////////// Credits To Fugate
begin
SetupSrl;
DeclarePlayers;
Totallogs:= 0;
If (Not(LoggedIn)) then LoginPlayer;
FindAxeHeadColor;
repeat
If (Not(LoggedIn)) then LoginPlayer;
ProgressReport;
Progress;
FindTree;
Dropage;
loginplayer;
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>