Nashi
2007-07-03 05:56:25
<!– BEGIN TEMPLATE: formanswers –>
Nashi - SRL Member Application Form
Nashi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, HTML, JavaScript, Delphi, VB 6.0, Scar, ActionScript
Other Communitys
Moparisthebest
How Long have You Played Runescape
Umm Maybe 2+ Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, My Name Is Mitchell, I Prefer Tim though.
I started playing runescape sometime in 2005 and I was involved with scar from when 2.0 was out. I was somewhat a leecher, I did have basic knowledge of Scar though, I only used 3 scripts ever that I can remember though. Mad Cows 1337 Air Crafter (<3 Martin ;D) and A crafter and auto talker my friend made.
I was pretty much scared after the mass ban so I quit macroing for about a year.
I came back after becoming bored with runescape and learnt Kaitnieks.com was down & there was a new include in town(Even though I had no idea what an include was). Never the less, I somehow ended up learning SRL and Scar and wrote An alcher Under My old SRL forums name.
I've forgotten it and my pass so I made this new account.
I don't know why I want to be a SRL member, I barely ever use scripts and if I do, I prefer to use my own :P
I've recently come back to Scar and runescape and I've updated my powercutter and Finished my autofighter.
Anyways, I hope you consider my application and post your thoughts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
The Auto Fighter Is a Project because it has an image for the form
And heres the powercutter
——————————————————
<!– END TEMPLATE: formanswers –>
Nashi - SRL Member Application Form
Nashi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, HTML, JavaScript, Delphi, VB 6.0, Scar, ActionScript
Other Communitys
Moparisthebest
How Long have You Played Runescape
Umm Maybe 2+ Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, My Name Is Mitchell, I Prefer Tim though.
I started playing runescape sometime in 2005 and I was involved with scar from when 2.0 was out. I was somewhat a leecher, I did have basic knowledge of Scar though, I only used 3 scripts ever that I can remember though. Mad Cows 1337 Air Crafter (<3 Martin ;D) and A crafter and auto talker my friend made.
I was pretty much scared after the mass ban so I quit macroing for about a year.
I came back after becoming bored with runescape and learnt Kaitnieks.com was down & there was a new include in town(Even though I had no idea what an include was). Never the less, I somehow ended up learning SRL and Scar and wrote An alcher Under My old SRL forums name.
I've forgotten it and my pass so I made this new account.
I don't know why I want to be a SRL member, I barely ever use scripts and if I do, I prefer to use my own :P
I've recently come back to Scar and runescape and I've updated my powercutter and Finished my autofighter.
Anyways, I hope you consider my application and post your thoughts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
The Auto Fighter Is a Project because it has an image for the form
And heres the powercutter
{
CREDITS:
Secet - For his sexylicious FindBrokenAxe Function, I edited to suit this script
Weibs - I used his Antiban, I asked his permission for using it in another script
a while ago, so I presume it would still be alright. If not Pm me Weibs.
Ron - I dunno I had an extra space left and you are making nifty stuff a lot
You - For using meh script
}
program PowerCutter;
procedure LogNewPlayer; forward;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
//////////////////////////////////////////////////
/// SetUp Lines 32, 37, 41-45 && 67-71 ///
//////////////////////////////////////////////////
type
AUser = record
TreeToCut : String;
TreeC1 : Integer;
TreeC2 : Integer;
LogsToCut : Integer;
LogsChopped : Integer;
EXP : Integer;
end;
var
Player : array of AUser;
const
StartPlayer = 1; //Player To Start With
procedure DeclarePlayers;
begin
HowManyPlayers := 2; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer; // CurrentPlayer = Array Index
Players[0].Name := 'Z Level Z 3'; //Your Username
Players[0].Pass := ''; //Your Password
Players[0].Nick := 'eve'; //3 or 4 letters from your Username
Players[0].Skill := 'WoodCutting'; //The skill for when you get a lamp
Players[0].Active := False; //Will You Be Using This Player?
Players[1].Name := 'A Level A 3'; //Your Username
Players[1].Pass := ''; //Your Password
Players[1].Nick := 'eve'; //3 or 4 letters from your Username
Players[1].Skill := 'WoodCutting'; //The skill for when you get a lamp
Players[1].Active := True; //Will You Be Using This Player?
Writeln(IntToStr(HowManyPlayers) + ' Players');
end;
////////////////////////
/// EXP GUIDE ///
///Tree = 25 ///
///Oak = 37 ///
///Willow = 62 ///
///Teak = 100 ///
///Mahogany = 125 ///
///Yew = 175 ///
///Magic = 250 ///
////////////////////////
Procedure DeclarePlayerTree;
begin
SetArrayLength(Player, HowManyPlayers);
Player[0].TreeToCut := 'Oak'; //The Name of the Tree You Are Cutting
Player[0].TreeC1 := 1722424; //The Colour of the tree your are cutting
Player[0].TreeC2 := 872520; //Another Colour of the tree your are cutting
Player[0].LogsToCut := 100; //How many logs For This User to cut
Player[0].EXP := 37; //See Guide Above For EXP
Player[1].TreeToCut := 'Oak'; //The Name of the Tree You Are Cutting
Player[1].TreeC1 := 1722424; //The Colour of the tree your are cutting
Player[1].TreeC2 := 872520; //Another Colour of the tree your are cutting
Player[1].LogsToCut := 100; //How many logs For This User to cut
Player[1].EXP := 37; //See Guide Above For EXP
end;
{*******************************************************************************
function FindBrokenAxe: Boolean;
By: Secet
Description: Looks inventory for broken axe. Results true if found.
*******************************************************************************}
function FindBrokenAxe: Boolean;
var Broken,x,y: integer;
begin
Broken := DTMFromString('78DA6364676060606540011EF1990CFF81342' +
'310FF07024636208399010D302291409A9B48356C04D470020976' +
'22CCE126C21C1E026A40F670115003722F070135CC44AA6125A08' +
'695701802003CA406D8');
GameTab(4);
if (FindDTM(Broken,x,y,553,204,744,463)) then
begin
WriteLn('Ent broke our axe =(');
Result := True;
end else
FreeDTM(Broken);
end;
function FindAxeHeadColour: Boolean;
begin
GameTab(4);
wait(100 + random(200));
if ( ExistsItem ( 1 )) then
Mmouse(587, 219, 2, 2)
wait(200 + random(100));
if(IsUptext('Wield'))then
begin
HeadColor[0] := GetColor(590, 220);
HeadColor[1] := GetColor(587, 219);
HeadColor[2] := GetColor(588, 218);
Result:= true;
EquipAxe := False;
end;
If(Result = False)then
begin
GameTab(5);
wait(200 + random(200));
MMouse(592, 297, 2, 2);
wait(200 + random(100));
if(IsUptext('Remove'))then
begin
HeadColor[0] := GetColor(597, 294);
HeadColor[1] := GetColor(600, 295);
HeadColor[2] := GetColor(599, 298);
Result:= true;
EquipAxe := True;
end;
GameTab ( 4 );
end;
If(Result = true) then
begin
WriteLn('Axe head colors: ' + IntToStr(HeadColor[0]) + ' ' + IntToStr(HeadColor[1]) + ' ' +
IntToStr(HeadColor[1]));
end else
begin
writeln('');
writeln('ERROR! cannot find axe in screen, please put axe in inventory or your equip page and restart the script!');
writeln('');
end;
end;
function cBox2(X1, Y1, X2, Y2: Integer): TBox;
begin
Result.X1 := X1;
Result.X2 := X2;
Result.Y1 := Y1;
Result.Y2 := Y2;
end;
procedure LogIn;
begin
if (FindColor(x, y, 8353396, 262, 208, 262, 208)) then
begin
LogInPlayer;
end;
end;
procedure Report;
var
d: integer;
begin
if (not (Player[CurrentPlayer].LogsChopped >= Player[CurrentPlayer].LogsToCut)) then
begin
Writeln('<===========================================>');
Writeln(' You Are Using Nashi''s PowerCutter')
Writeln(' Worked For ' + TimeRunning);
for d := 0 to (HowManyPlayers-1) do
begin
if (Player[d].LogsChopped <> 0) then
begin
Writeln('---------------------------------------------');
Writeln(' ' + Players[d].Name + ' Has.......');
Writeln(' Cut & Dropped ' + IntToStr(Player[d].LogsChopped) + ' Logs!');
Writeln(' Gained ' + IntToStr(Player[d].LogsChopped * Player[d].EXP) + ' XP!');
end;
if (Players[d].Loc <> '') then
begin
Writeln('---------------------------------------------');
Writeln(' ' + Players[d].Name + '''s Loc Is: ' + Players[d].Loc);
end;
end;
Writeln('<===========================================>');
SRLRandomsReport;
end else
begin
Writeln(Players[CurrentPlayer].Name + ' Has Finished Cutting....Changing Player');
LogNewPlayer;
Exit;
end;
end;
procedure LogNewPlayer;
begin
LogOut;
Report;
NextPlayerOrder(False);
FindAxeHeadColour;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
function NoAxe: Boolean;
var
c: Integer;
begin
c := CreateBitmapMaskFromText('You do not have an axe', SmallChars);
if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then
begin
Result:= True;
end else
begin
Result:= False;
end;
end;
function ChopTree(Colour1, Colour2: integer; TreeToCut: String): Boolean;
var
Attempts: Integer;
Box, MainScreen: TBox;
begin
MarkTime(Attempts);
Result:= False;
MainScreen := cBox2(MSX1-3, MSY1-3, MSX1+1, MSY1+1);
Box := MainScreen
repeat
if FindColorSkipBox(x, y, Colour1, MSX1, MSY1, MSX2, MSY2, Box) then
begin
if FindColor(x, y, Colour2, x - 25, y - 25, x + 25, y + 25) then
begin
end;
MMouse(x, y, 5, 5);
GetMousePos(x, y);
wait(400);
FindEnt(Player[CurrentPlayer].TreeC1);
FindEnt(Player[CurrentPlayer].TreeC2);
if IsUpText('Chop down ' + TreeToCut) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, true);
Result := True;
FindEnt(Player[CurrentPlayer].TreeC1);
FindEnt(Player[CurrentPlayer].TreeC2);
Wait(1000);
if not NoAxe then
Exit
else begin
Result := False;
Exit;
end;
end else
begin
GetMousePos(x, y);
Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 3, y + 25);
LogIn;
case Random(11) of
0: begin
MakeComPass('N');
Box := MainScreen;
end;
1: begin
MakeComPass('E');
Box := MainScreen
end;
2: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
3: begin
MakeComPass('W');
Box := MainScreen
end;
4: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
5: begin
MakeComPass('S');
Box := MainScreen;
end;
6: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
7: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
8: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
9: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
10: Box := cBox2(MSX1 - 3, MSY1 - 3, MSX2 + 1, y + 25);
end;
end;
end;
until((TimeFromMark(Attempts) > 300000));
if not (Result) then
begin
Players[CurrentPlayer].Loc:= 'Unable To Find Tree';
LogNewPlayer;
end;
end;
procedure FFight(CheckAxe: Boolean);
begin
if (CheckAxe) then
begin
if (FindBrokenAxe) then
begin
Players[CurrentPlayer].Loc := 'Ent pwned your axe.';
TypeSend('Dangit >_<' + Chr(13));
LogNewPlayer;
end;
if (NoAxe) then
begin
Players[CurrentPlayer].Loc := 'No Usable Axe';
FindHead;
TypeSend('Argh....' + Chr(13));
if not (ChopTree(Player[CurrentPlayer].TreeC1, Player[CurrentPlayer].TreeC2, Player[CurrentPlayer].TreeToCut)) then
LogNewPlayer
else
Players[CurrentPlayer].Loc := '';
end;
end;
if (InBlack) then
begin
Players[CurrentPlayer].Loc := 'In Black';
LogNewPlayer;
end;
if (FindFight) then
begin
Writeln('Found Fight');
RunTo('W', True);
end;
if (WeAreDead) then
begin
Writeln('You Have Died....Changing Player');
Players[CurrentPlayer].Loc:= 'Died';
LogNewPlayer;
end;
end;
procedure NantiBan;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('random', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;
procedure NashiRandoms(CheckAxe, Nanti: Boolean);
begin
FindNormalRandoms;
FFight(CheckAxe);
if Nanti then
if Random(25) = 9 then
NantiBan;
end;
function DoneChop: boolean;
begin
if ((Player[CurrentPlayer].LogsChopped >= Player[CurrentPlayer].LogsToCut)) then
begin
Result:= True;
end else
begin
Result:= False;
end;
end;
procedure DropEm;
var
bmpLogMask: Integer;
begin
bmpLogMask := BitmapFromString(18, 14, 'z78DA3330A015704302' +
'067404F4B471D4AEA162D7D0F5911B5E405D3369E15ADA85C3504' +
'F27F40400D1E72874');
MMouse(584, 226, 5, 5);
Status('Dropping Logs');
Gametab(4);
Player[CurrentPlayer].LogsChopped := Player[CurrentPlayer].LogsChopped +
CountItemBmpMaskTol(bmpLogMask, 20, 25);
ClickAllItemsBmpMaskTolWait('rop', bmpLogMask, 20, 25, 30+Random(30));
if (DoneChop) then
begin
LogNewPlayer;
Exit;
end;
Report;
end;
procedure CutItDown;
var
Waited4: Integer;
begin
while (not (InvFull)) do
begin
repeat
LogIn;
Status('Searching For Tree');
until(ChopTree(Player[CurrentPlayer].TreeC1, Player[CurrentPlayer].TreeC2, Player[CurrentPlayer].TreeToCut));
Status('Cutting Tree');
MarkTime(Waited4);
Wait(350);
NashiRandoms(True, False);
repeat
FindEnt(Player[CurrentPlayer].TreeC1);
FindEnt(Player[CurrentPlayer].TreeC2);
Report;
NashiRandoms(False, True);
LogIn;
Wait(300 + 100);
until ((IsUpText('Chop down ' + Player[CurrentPlayer].TreeToCut) = False) or (TimeFromMark(Waited4) > 30000) or (InvFull));
end;
DropEm;
Wait(1000);
end;
begin
SetUpSRL;
BenMouse := True;
MouseSpeed := 1 + Random(10);
ClearDebug;
Writeln('Script Will Start In 3...');
Wait(1000);
Writeln('Script Will Start In 2...');
Wait(1000);
Writeln('Script Will Start In 1...');
Wait(1000);
Writeln('Thank You For Using Nashi''s PowerChopper');
Writeln('Hope You Dont Get Killed!');
DeclarePlayers;
DeclarePlayerTree;
DisguiseScar('No page to display - Microsoft Internet Explorer');
LogIn;
if not FindAxeHeadColour then
LogNewPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
CutItDown;
until (false);
end.
——————————————————
<!– END TEMPLATE: formanswers –>