Ultra
2008-01-22 15:45:31
<!– BEGIN TEMPLATE: formanswers –>
U L T R A - SRL Member Application Form
U L T R A
What is the meaning to life?
Work, learn, make smart decisions.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, Little of Java.
Other Communitys
Moparscape.org, sythe.org.
How Long have You Played Runescape
2.5-3.2 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I like scripting pretty, i think i learn stuff pretty fast about scar. I take computer programming languages every week. At SRL-Forums i help new people, help them set up scripts, help them learning script basics etc…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here is my power chopper i made, it works with the latest srl.
——————————————————
<!– END TEMPLATE: formanswers –>
U L T R A - SRL Member Application Form
U L T R A
What is the meaning to life?
Work, learn, make smart decisions.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML, Little of Java.
Other Communitys
Moparscape.org, sythe.org.
How Long have You Played Runescape
2.5-3.2 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I like scripting pretty, i think i learn stuff pretty fast about scar. I take computer programming languages every week. At SRL-Forums i help new people, help them set up scripts, help them learning script basics etc…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here is my power chopper i made, it works with the latest srl.
{COPYRIGHT (C) U L T R A Scripts}
{
___ ____ .____ ___________ __________ _____
| | \ | | \__ ___/ \______ \ / _ \
| | / | | | | | _/ / /_\ \
| | / | |___ | | | | \ / | \
|______/ |_______ \ |____| |____|_ / \____|__ /
\/ \/ \/
_________ .__ __
/ _____/ ___________|__|______/ |_ ______
\_____ \_/ ___\_ __ \ \____ \ __\/ ___/
/ \ \___| | \/ | |_> > | \___ \
/_______ /\___ >__| |__| __/|__| /____ >
\/ \/ |__| \/
}
{ Instructions.
Run at low detail, wear your axe, set up const & declare players, drag the cross-hair onto
the runescape window, start logged in, hit run and enjoy.
Instructions. }
{This script currently powercuts: Yew, teak, willow, oak, and tree.}
{.This script is usable for one player only. For now.}
Program ULTRAPowerChopper;
{.Include SRL/SRL.Scar}
Var
TreeTypeName : String;
TreeTypeColor : Integer;
LogsCut : Integer;
LoadsCut : Integer;
Ents : Integer;
X, Y : Integer;
Const
Yew = 2184775;
Teak = 6071180;//Members Only.
Willow = 2332288;
Oak = 2188891;
Tree = 4483941;
Version = '1.4';
{SET UP HERE}
Const
LoadsToCut = 50;//How Many Loads Of Logs You Want To Cut.
TreeTolerance = 7;//Tolerance Of The Tree.
MaxSeconds = 3;//Maximum Seconds To Wait While Cutting A Tree.
RunAwayToDirection = 'S';//Direction To Run Away To If Find Ent Or Fight.
TreeType = 'Willow';//Yew, Teak, Willow, Oak, Tree. Capitalized.
SRLStatsID = '';//SRL STATS ID.
SRLStatsPW = '';//SRL STATS PASSWORD.
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
End;
{END OF SETUP}
Procedure ShowSignature;
Begin
ClearDebug;
Begin
WriteLn(' ___ ____ .____ ___________ __________ _____');
Wait(200+random(300));
WriteLn('| | \ | | \__ ___/ \______ \ / _ \');
Wait(300+random(200));
WriteLn('| | / | |___ | | | | \ / | \');
Wait(200+random(300));
WriteLn('|______/ |_______ \ |____| |____|_ / \____|__ /');
Wait(1000+random(4000));
End;
End;
Procedure DeclareTreeType;
Begin
If(TreeType = 'Yew')Then
Begin
TreeTypeName := 'ew';
TreeTypeColor := Yew;
End Else
If(TreeType = 'Teak')Then
Begin
TreeTypeName := 'eak';
TreeTypeColor := Teak;
End Else
If(TreeType = 'Willow')Then
Begin
TreeTypeName := 'illo';
TreeTypeColor := Willow;
End Else
If(TreeType = 'Oak')Then
Begin
TreeTypeName := 'ak';
TreeTypeColor := Oak;
End Else
If(TreeType = 'Tree')Then
Begin
TreeTypeName := 'ree';
TreeTypeColor := Tree;
End;
End;
{Procedure : RandomHoverMMouse)}
{Author : U L T R A.}
{Description : Randomly moves the mouse somewhere.}
Procedure RandomHoverMMouse;
Begin
Case Random(6)Of
0:MMouse(random(250), random(250), 10, 10);
1:MMouse(random(100), random(100), 50, 50);
2:MMouse(random(50), random(50), 150, 150);
3:MMouse(100, 100, 150, 150);
4:MMouse(300, 300, 100, 100);
5:MMouse(200, 200, 50, 50);
End;
End;
Procedure RandomlyDisguise;
Begin
Case Random(4)Of
0:Disguise('Google');
1:Disguise('Windows Media Player');
2:Disguise('Paint');
3:Disguise('Mozilla Firefox');
End;
End;
Procedure SetUpPowerChopper;
Begin
MakeCompass('N');
GameTab(4);
RandomlyDisguise;
If(MaxSeconds <= 1)Then
Begin
WriteLn('Maximum Seconds To Wait Is ' + IntToStr(MaxSeconds) + '! Seconds Too Low! Re-Set It To 5 to 15!');
TerminateScript;
End;
End;
Procedure URunTo(Direction : String);
Begin
If(Direction = 'N')Or(Direction = 'n')Then
Begin
Mouse(644, 25, 5, 5, True);
Flag;
End Else
If(Direction = 'E')Or(Direction = 'e')Then
Begin
Mouse(703, 80, 5, 5, True);
Flag;
End Else
If(Direction = 'S')Or(Direction = 's')Then
Begin
Mouse(642, 139, 5, 5, True);
Flag;
End Else
If(Direction = 'W')Or(Direction = 'w')Then
Begin
Mouse(582, 88, 5, 5, True);
Flag;
End;
End;
Procedure URunBack;
Begin
If(RunAwayToDirection = 'N')Then
Begin
URunTo('S');
End Else
If(RunAwayToDirection = 'E')Then
Begin
URunTo('W');
End Else
If(RunAwayToDirection = 'S')Then
Begin
URunTo('N');
End Else
If(RunAwayToDirection = 'W')Then
Begin
URunTo('E');
End;
End;
Function SolveEnt : Boolean;
Begin
If(FindColorTolerance(x, y, 56797, 25, 16, 99, 17, 5))And(IsUpText(TreeTypeName))Then
Begin
WriteLn('Found Ent!');
URunTo(RunAwayToDirection);
Wait(10000+random(5000));
URunBack;
Ents := Ents + 1;
ReportVars[2] := ReportVars[2] + 1;
Result := True;
End Else
Result := False;
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;
LogOut;
Exit;
End;
End;
7: Begin
If InBlack Then
Begin
Result := True;
LogOut;
Exit;
End;
End;
8: RC;
End;
FTWait(1);
End;
End;
Procedure SolveFight;
Begin
If(FindFight)Then
Begin
MakeCompass('N');
URunTo(RunAwayToDirection);
Wait(10000+random(5000));
URunBack;
End;
FindNormalRandoms;
End;
Procedure FindRandoms;
Begin
FindNormalRandoms;
FindFastRandoms;
SolveEnt;
SolveFight;
End;
Function WaitCount(SecondTimeOut : Integer) : Boolean;
Var
TimesCount : Integer;
Begin
TimesCount := 0;
Begin
Repeat
Wait(1000);
TimesCount := TimesCount + 1;
If(TimesCount < 10)Then WriteLn('Waited ' + IntToStr(TimesCount) + '000 M.Seconds.');
Wait(100);
If(TimesCount > 10)Then WriteLn('Waited ' + IntToStr(TimesCount) + '0000 M.Seconds.');
Wait(100);
Until(TimesCount >= SecondTimeOut)Or(SecondTimeOut >= 100)Or(FindFastRandoms)Or(Not(LoggedIn));
If(TimesCount >= SecondTimeOut)Then Result:=True;
End;
End;
Procedure TextWait;
Begin
Repeat
Wait(500+random(500));
SolveEnt;
FindRandoms;
Until(WaitCount(MaxSeconds))Or(Not(IsUpText(TreeTypeName)))Or(SolveEnt = True)Or(Not(LoggedIn))Or(InvFull)Or(ClickToContinue)Or(FindFastRandoms);
If(WaitCount(MaxSeconds))Then
Begin
Exit;
End;
End;
Procedure Cut;
Begin
If(FindObj(x, y, TreeTypeName, TreeTypeColor, TreeTolerance))Then
Begin
Mouse(x, y, 5, 5, True);
WriteLn('Clicked The ' + TreeType + '.');
TextWait;
SolveEnt;
FindRandoms;
End;
End;
Procedure DropAllItems;
Var
I : Integer;
Begin
I := 1;
Begin
Repeat
FindRandoms;
DropItem(I);
I := I + 1;
Until(I >= 28);
End;
End;
Procedure MainCut;
Begin
Repeat
Cut;
SolveEnt;
FindRandoms;
Until(InvFull);
If(InvFull)Then
Begin
DropAllItems;
LogsCut := LogsCut + 27;
LoadsCut := LoadsCut + 1;
ReportVars[0] := ReportVars[0] + 27;
ReportVars[1] := ReportVars[1] + 1;
End;
End;
Procedure WoodcuttingTalk;
Begin
Case Random(17)Of
0:TypeSend('Woodcutting levels?');
1:TypeSend('Woodcutting lvls?');
2:TypeSend('Wc levels?');
3:TypeSend('Wc lvls?');
4:TypeSend('Lol');
5:TypeSend('Lmao');
6:TypeSend('Lmfao');
7:TypeSend('Rofl');
8:TypeSend('Roflmao');
9:TypeSend('Roflmfao');
10:TypeSend('So bored');
11:TypeSend('So tired');
12:TypeSend('Iam exousted');
13:TypeSend('Iam so bored');
14:TypeSend('Iam so tired');
15:TypeSend('Omg');
16:TypeSend('Omfg');
End;
End;
Procedure AntiBan;
Begin
Case Random(3) Of
0:Begin
RandomHoverMMouse;
WriteLn('Used Anti-Ban - Randomly Moved The Mouse.');
End;
1:Begin
Wait(1000+random(4000));
WriteLn('Used Anti-Ban - Waited 1-5 Seconds.');
End;
2:Begin
WoodcuttingTalk;
WriteLn('Used Anti-Ban - Talked In Woodcutting Type.');
End;
End;
End;
Procedure Report;
Begin
ClearDebug;
Begin
WriteLn('--------------------------------------------------------------------');
WriteLn('Power Chopper Version ' + Version + '.');
WriteLn('Made By U L T R A.');
WriteLn('--------------------------------------------------------------------');
WriteLn('Ran For ' + TimeRunning + '.');
WriteLn('Cut ' + IntToStr(LoadsCut) + ' Loads.');
WriteLn('Cut ' + IntToStr(LogsCut) + ' ' + TreeType + ' Logs.');
WriteLn('Avoided ' + IntToStr(Ents) + ' Ents.');
WriteLn('--------------------------------------------------------------------');
End;
End;
Procedure SetUpSRLStats;
Begin
ScriptID := '569';
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
If(SRLStatsID = '')Or(SRLStatsPW = '')Then
Begin
WriteLn('Register At SRL Stats And Fill Everything!');
TerminateScript;
End;
End;
Begin
SetUpSRL;
SetUpSRLStats;
ShowSignature;
ActivateClient;
DeclarePlayers;
If(Not(LoggedIn))Then LogInPlayer;
Wait(1000+random(4000));
If(InvFull)Then DropAllItems;
DeclareTreeType;
SetUpPowerChopper;
Begin
Repeat
Report;
MainCut;
SolveEnt;
FindRandoms;
AntiBan;
Until(LoadsCut >= LoadsToCut)Or(Not(LoggedIn));
If(LoadsCut >= LoadsToCut)Or(Not(LoggedIn))Then
Begin
Report;
Exit;
TerminateScript;
End;
End;
End.——————————————————
<!– END TEMPLATE: formanswers –>