Melon
2008-12-10 13:58:15
<!– BEGIN TEMPLATE: formanswers –>
Melon - SRL Member Application Form
Melon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
none
How Long have You Played Runescape
since 2002 or 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Um yes , when i first found this place i didnt understand anything at all :O Then , after few months i started to intres what is srl and scar , so i wanted to read some tutorials and start my own script!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This script is still not advenced / full functional , but im still working on it. There are lot of draynor willow cutters , but i started with this becouse i think it is the most easy to do it.
After this is done , i will turn to do Yew's and normal trees , oaks ;) i hope you will enyoj my script.
——————————————————
<!– END TEMPLATE: formanswers –>
Melon - SRL Member Application Form
Melon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
none
How Long have You Played Runescape
since 2002 or 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Um yes , when i first found this place i didnt understand anything at all :O Then , after few months i started to intres what is srl and scar , so i wanted to read some tutorials and start my own script!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program MElon_cutar;
{.include Srl/Srl.scar}
{.include Srl/Srl/Skill/Woodcutting.scar}
const
Loads = 99;
bankboothcolor1 = 4413795;
bankboothcolor2 = 5400949;
var
x, y,LvlUps: integer;
procedure WalkToWillow;
begin
SymbolAccuracy := 0.45;
if (FindSymbol(x, y, 'fish')) then
begin
setrun (false);
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('esam klaat , atradu zivs simbolu <><, varam saakt cirst');
if not (FindSymbol(x, y, 'fish')) then
begin
writeln ('neatrdau zivi <>< <>< <>< <>< <>< ');
logout;
exit;
end;
end;
end;
Procedure TalkAboutWc;
Begin
Case Random(300) Of
0: TypeSend('woodcutting is so boring');
1: TypeSend('wc is so booring ;p');
2: TypeSend('so booring...');
End;
End;
Function FindBankers (Var Bank: TPoint; Var Angle: Extended): Boolean;
Var
I: Integer;
B, gB: TPointArray;
aTPA: T2DPointArray;
Begin
Result := False;
FindColorsSpiralTolerance(MMCX, MMY2, B, 60909, MMX1, MMY1, MMX2, MMY2, 0);
aTPA := SplitTPA(B, 10);
SortATPASize(aTPA, True);
If Length(aTPA) = 0 Then
Exit;
B := aTPA[0];
For I := 0 To High(B) - 1 Do
Begin
If (Abs(B[I].Y - B[I + 1].Y) < 15) And (Abs(B[I].X - B[I + 1].X) < 60) Then
Begin
SetLength(gB, Length(gB) + 1);
gB[High(gB)] := B[I];
If High(gB) > 3 Then // 4 bankers.
Begin
Bank := MiddleTPA(gB);
Bank.Y := Bank.Y - 5;
Angle := Degrees(ArcTan2(gB[0].y - gB[High(gB)].y, gB[0].x - gB[High(gB)].x)) + 90;
If Angle < 0 Then
Angle := 90 - (Angle * -1) + 270;
Result := True;
Exit;
End;
End
Else
SetLength(gB, 0);
End;
End;
procedure antiRand;
begin
FindNormalRandoms;
FindTalk;
if (FindFight) then
begin
RunAway('n', True, 1, 10000 + random(5000));
FTWait(20 + random(10));
end;
end;
function AreWeLevelUp: boolean;
begin
if not LoggedIn then Exit;
if ClickContinue(True, False) then
begin
if FindNPCChatText('lations', Nothing) then
begin
Writeln('Yay, we got a new level!');
Lvlups := Lvlups + 1;
Inc(ReportVars[3]);
ClickContinue(True, True);
Result := True;
Exit;
end;
end;
end;
procedure uzBANKU;
begin
SymbolAccuracy := 0.45;
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('maucam uz banku ;D');
wait (11000+random(2000))
end;
end;
procedure Aban;
begin
case Random(30) of
1: HoverSkill('Woodcutting', False);
2: HoverSkill('random', False);
end;
end;
procedure bankoties;
begin
writeln ('liekam iekshaa ')
MakeCompass('W');
if FindObjCustom(x, y, ['ank', 'ooth'], [bankboothcolor1,bankboothcolor2], 7) then
begin
Mouse( x, y, 0, 0, False)
FTWait(8);
Flag;
ChooseOption('Use-quickly')
FTWait(10);
Deposit(2, 28, true);
CloseBank;
if not FindObjCustom(x, y, ['ank', 'ooth'], [bankboothcolor1,bankboothcolor2], 7) then
writeln ('neatradu banku ');
logout;
End;
end;
Procedure chop;
var CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('N');
repeat
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
begin
Mouse(x,y,0,0,false);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('hop')
antiRand;
Aban;
AreWeLevelUp;
TalkAboutWc;
wait (5800 + (random(200)));
if (not (FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('neatradu vitolu. mauciba.');
Logout;
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
procedure SetupScript;
begin
SetupSRL;
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'erna';
Players[0].Active := True;
end;
procedure Proggy;
begin
cleardebug;
writeln('+++++++++++++++++++++++++++++++++++++');
writeln('Thank you for using Melon_cutter');
writeln('Ran for ' +TimeRunning);
writeln('+++++++++++++++++++++++++++++++++++++');
end;
procedure MAIN;
begin
SetupSRL;
DeclarePlayers;
WalkToWillow;
wait ( 10000);
chop;
uzBANKU;
wait (10000);
bankoties;
Proggy;
end;
begin
MAIN;
repeat
MAIN;
until (false)
end.This script is still not advenced / full functional , but im still working on it. There are lot of draynor willow cutters , but i started with this becouse i think it is the most easy to do it.
After this is done , i will turn to do Yew's and normal trees , oaks ;) i hope you will enyoj my script.
——————————————————
<!– END TEMPLATE: formanswers –>