SRL Archive - Archive

destroyface - SRL Member Application Form


destroyface

2007-07-20 02:54:15

<!– BEGIN TEMPLATE: formanswers –>
destroyface - SRL Member Application Form
destroyface

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
pascal for scar, and a little delphi, and html

Other Communitys
none

How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

well ive made script(/s) for your forums none of them really good but im learning. I have the willingness to learn and I learnt how to script scar (rank= begginer) in 1 day and took me a week to get to (rank= intermediate)….I am 13 years old i do good in school. i have no pets currently. I love your work with srl made scripting so much easier. I can make pretty good autoers if i have the time. I usally make purely my own script but in my fast pace I use when im tired I use your snippet section. I've used all levels of tutorial some to no sucess but im learning so give me a break, and finnaly my full name is Christopher William Lowe

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

My very first script v1 working on paths for auto banker and for auto login V2 is using your srl but is no were nere completion so enjoy my little crappy one:f: :f: :f: :f:
////////////////////////MEGA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////CHOP SHOP V1.0\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////BY Destroyface\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////Release Date of V1.5 beta test 07/31/07\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////Release Date of V2.0 08/10/07\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//V2 to include Draynor banker, auto log,anti random and anti ban\\\\\\\
{Instructions
1. log in and place yourself near the tree to cut
2. drag crosshair over Runescape client
4. press play and wait for full inv
5. dump your load or bank it and start again }
program PowerCutter;

{.include SRL\SRL.scar}


const
Treecolor = 4425848;
Treecolor2 = 4624512;

procedure DeclarePlayers;
begin
HowManyPlayers:= 0;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name:= '';
Players[0].Pass:= '';
Players[0].Nick:= '';
Players[0].Active:= True;

NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure FindCut;
begin
if(FindColor(x,y,Treecolor,0,0,700,700)) and (FindColor(x,y,Treecolor2,0,0,700,700)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
Wait(11000+random(4000));
ClickMouse(x,y,true);
end;
end;

begin
wait(2000)
repeat
FindCut;
wait(20000)
until(false)
end.
yes it does compile


////////////////////////MEGA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////CHOP SHOP V1.1\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////BY Destroyface\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////Release Date of V1.5 beta test 07/31/07\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////Release Date of V2.0 08/10/07\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//V2 to include Draynor banker, got it now auto log,anti random and anti ban\\\\\\\
{Instructions
1. log in and place yourself near the tree to cut
2. drag crosshair over Runescape client
4. press play and wait for full inv
5. dump your load or bank it and start again }
program PowerCutter;

{.include SRL\SRL.scar}
{.include SRL/SRL/misc/PlayerForm.scar}


const
Treecolor = 4425848;
Treecolor2 = 4624512;


Procedure SetUp;
begin
SetupSRL;
SetUpPlayers;
LoginPlayer;
end;

procedure FindCut;
begin
if(FindColor(x,y,Treecolor,0,0,700,700)) and (FindColor(x,y,Treecolor2,0,0,700,700)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
Wait(11000+random(4000));
ClickMouse(x,y,true);
end;
end;

begin
wait(2000)
SetUp;
repeat
FindCut;
wait(20000)
until(false)
end.

v 1.1 with auto login

——————————————————
<!– END TEMPLATE: formanswers –>

jhildy

2007-07-20 03:09:14

No antiban,poor standards,no antirandoms,no multiplayer

my vote goes for no cus its way too simple.

Pentti

2007-07-20 04:28:05

From: jhildy
No antiban,poor standards,no antirandoms,no multiplayer

my vote goes for no cus its way too simple.

…So what you are saying is: 90% is SRL. :D
(Player setup)

Yea dude, you need to make something not so simple.
Good start anyways, read some tutorials.

n3ss3s

2007-07-20 04:38:08

Yup, and a lil tip for a woodcutter… Make it drop or bank them :D

Santa_Clause

2007-07-20 05:21:23

Hehe. How can a powercutter bank the logs :p

n3ss3s

2007-07-20 05:29:44

If it is not a powercutter :p

destroyface

2007-07-20 05:48:25

ok man i got a auto dropper now and multi user i cant find out sorry ill post the new version if you want

Santa_Clause

2007-07-20 05:50:02

Doesn't really matter. It's not sophisticated enough to get a yes.

destroyface

2007-07-20 05:50:36

////////////////////////MEGA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////CHOP SHOP V1.1\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////BY Destroyface\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////Release Date of V1.5 beta test 07/31/07\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////Release Date of V2.0 08/10/07\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//V2 to include Draynor banker, got it now auto log,anti random and anti ban\\\\\\\
{Instructions
1. log in and place yourself near the tree to cut
2. drag crosshair over Runescape client
3. press play }
//CREDIT TIME
//JAD for his tutorial
//WhoCare357 for his tutorial
//me for some of the scripting
//and the ppl at srl for there ultimate help


program PowerCutter;

{.include SRL\SRL.scar}
{.include SRL/SRL/misc/PlayerForm.scar}
const
Treecolor = 4425848;
Treecolor2 = 4624512;

var
Clicks: Integer;
Loads: Integer;
OakTop1: integer;

procedure LoadBMP;
begin
OakTop := BitmapFromString2(False, 'a856E278DA3D50CB8D05310' +
'86B693018926332C9EBBFA43573D88B850CF287E7799E03C13396' +
'20D833E3369E8F994398D67C7E8718D15BBE8DBFFCE7E9BF9ECB8' +
'465BB99D997C5E6ABFAC6CA1B37681408272E570E0CBF6D1E8301' +
'FAD16C286CCBB8244E3CB1B5651CD9575CEFF9A2FAD26EB8B6C85' +
'9032B2D0F7EB1084C37D7D6CB2F2CB6946F84145427870FCEA4D4' +
'2C1652EEF2FD74A4CEC4FC78E74E7AF3AFED54374F293B66E7F74' +
'E6B4AAB87D82B7DC762A55C9424B0E3E540C9C5E43B19D6A898A1' +
'4E60D5D033520FF3C5E0C192CB01956DB97FEDE20F9A4');
end;





Procedure SetUp;
begin
SetupSRL;
SetUpPlayers;
LoginPlayer;
end;

//My sig if erased from script i will take action as the lvl 3 megasickmaniman
procedure Signature;
begin
ClearDebug;
writeln(' Destroyfaces oak chopper by Destroyface');
writeln(' |------\ ');
writeln(' | |--| \ ');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | |__| /');
writeln(' |______/ ');
wait(3000 + random(750));
end;

//My proggy thing thanks to JAD
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Wood Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads=27' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('to find out ur logs(loads x 27 ) ok ');
Writeln('[]========================================[]');
end;


//fixed it with help from JAD's tut
procedure Wait1;
begin
repeat
if FindBitmapToleranceIn(OakTop1, x, y, 560, 214, 734, 457, 25) then;
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;

//yet again thanks to jad's tut
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;

//thanks to JAD
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;


// my loop dont touch or wont work....maybe
begin
Signature;
LoadBMP;
wait(2000)
SetUp;
repeat
if(not(LoggedIn))then
Exit;
FindCut;
drop;
until(false)
end.

forgot to shrink my pic sorry lol takes up like 100 lines im fixing it right now auto drop and auto log and working on my multi user but could someone help?

n3ss3s

2007-07-20 05:50:58

You dont have to post the new version, it is still too simple.
Take a look at something like Penttis multi city miner, that a bit above the SRL Member becoming level but take a look at that, and other good scripts so you will learn sumting cool.

Santa_Clause

2007-07-20 05:55:06

What the!? What's with the Oak BMP? Still a no mate. Try something like my fighter. That's the average SRL Member script.

destroyface

2007-07-20 06:18:23

////////////////////////MEGA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////CHOP SHOP V1.1\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////BY Destroyface\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////Release Date of V1.5 beta test 07/31/07\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////Release Date of V2.0 08/10/07\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//V2 to include Draynor banker, got it now auto log,anti random and anti ban\\\\\\\
{Instructions
1. log in and place yourself near the tree to cut
2. drag crosshair over Runescape client
3. press play }
//CREDIT TIME
//JAD for his tutorial
//WhoCare357 for his tutorial
//me for some of the scripting
//and the ppl at srl for there ultimate help


program PowerCutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\misc\trade.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL/SRL/misc/PlayerForm.scar}
const
Treecolor = 4425848;
Treecolor2 = 4624512;

var
Clicks: Integer;
Loads: Integer;
OakTop1: integer;

procedure LoadBMP;
begin
OakTop1 := BitmapFromString2(False, 'a856E278DA3D50CB8D05310' +
'86B693018926332C9EBBFA43573D88B850CF287E7799E03C13396' +
'20D833E3369E8F994398D67C7E8718D15BBE8DBFFCE7E9BF9ECB8' +
'465BB99D997C5E6ABFAC6CA1B37681408272E570E0CBF6D1E8301' +
'FAD16C286CCBB8244E3CB1B5651CD9575CEFF9A2FAD26EB8B6C85' +
'9032B2D0F7EB1084C37D7D6CB2F2CB6946F84145427870FCEA4D4' +
'2C1652EEF2FD74A4CEC4FC78E74E7AF3AFED54374F293B66E7F74' +
'E6B4AAB87D82B7DC762A55C9424B0E3E540C9C5E43B19D6A898A1' +
'4E60D5D033520FF3C5E0C192CB01956DB97FEDE20F9A4');
end;





Procedure SetUp;
begin
SetupSRL;
SetUpPlayers;
LoginPlayer;
end;

//My sig if erased from script i will take action as the lvl 3 megasickmaniman
procedure Signature;
begin
ClearDebug;
writeln(' Destroyfaces oak chopper by Destroyface');
writeln(' |------\ ');
writeln(' | |--| \ ');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | |__| /');
writeln(' |______/ ');
wait(3000 + random(750));
end;

//My proggy thing thanks to JAD
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Wood Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads=27' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('to find out ur logs(loads x 27 ) ok ');
Writeln('[]========================================[]');
end;

procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // DO NOT TOUCH!

Players[0].Name :='user';
Players[0].Pass :='pass';
Players[0].Nick :='nick';
Players[0].Active:= True;

Players[1].Name :='user';
Players[1].Pass :='pass';
Players[1].Nick :='nick';
Players[1].Active:= True;

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);

end;


//fixed it with help from JAD's tut
procedure Wait1;
begin
repeat
if FindBitmapToleranceIn(OakTop1, x, y, 560, 214, 734, 457, 25) then;
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;

//yet again thanks to jad's tut
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;

//thanks to JAD's TUT
procedure antirandoms;
var thechattext:string;

/////////i used Timothegreat's auto responder cause im to lazy to write it all
////////out =D who by the way gives credit to pentti for this hehehehe
////geuss were both to lazy =D

begin
if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallchars,False,True,0,0,0))then //SRL: GetLastChatText
TheChatText:=Trim(GetTextAtEx(x+8,415,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars))

ChatBoxRespond(TheChatText,'Wc lvls',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvl?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvl',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvls?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvls',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvl?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvl',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvls?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Defenc lvls',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Def lvl',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Def lvl?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvl',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvl?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defenc lvls?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvls',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvls?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Hp lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Pray lvls',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvls',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvl',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvl?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvl',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvl?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvls?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvls?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Hi','Wazzup')
ChatBoxRespond(TheChatText,'Hi','Wazzup')
ChatBoxRespond(TheChatText,'Hey','Wazzup')
ChatBoxRespond(TheChatText,'Hey','Wazzup')
ChatBoxRespond(TheChatText,'Hello','Wazzup')
ChatBoxRespond(TheChatText,'Hello','Wazzup')
ChatBoxRespond(TheChatText,'Sup','Not much')
ChatBoxRespond(TheChatText,'Sup','Not much')
ChatBoxRespond(TheChatText,'Sup?','Not much')
ChatBoxRespond(TheChatText,'Wassup','Not much')
ChatBoxRespond(TheChatText,'Wasup','Not much')
ChatBoxRespond(TheChatText,'Wassup?','Not much')
ChatBoxRespond(TheChatText,'Wasup?','Not much')
ChatBoxRespond(TheChatText,'Max hit','Idk')
ChatBoxRespond(TheChatText,'Max hit?','Idk')
ChatBoxRespond(TheChatText,'Max hit','Idk')
ChatBoxRespond(TheChatText,'Max?','Idk')
ChatBoxRespond(TheChatText,'Max','Idk')
ChatBoxRespond(TheChatText,'Bye','later dude')
ChatBoxRespond(TheChatText,'See ya','later dude')
ChatBoxRespond(TheChatText,'C ya','later dude')
ChatBoxRespond(TheChatText,'Cya','later dude')
ChatBoxRespond(TheChatText,'C ya later','later dude')
ChatBoxRespond(TheChatText,'C ya l8ter','later dude')
ChatBoxRespond(TheChatText,'See ya later','later dude')
ChatBoxRespond(TheChatText,'See ya l8ter','later dude')
ChatBoxRespond(TheChatText,'C ya l8er','later dude')
ChatBoxRespond(TheChatText,'See ya l8er','later dude')
ChatBoxRespond(TheChatText,'C you later','later dude')
ChatBoxRespond(TheChatText,'See you later','later dude')
ChatBoxRespond(TheChatText,'See u l8ter','later dude')
ChatBoxRespond(TheChatText,'C u l8ter','later dude')
ChatBoxRespond(TheChatText,'See u later','later dude')
ChatBoxRespond(TheChatText,'C u later','later dude')
ChatBoxRespond(TheChatText,'lol','rofl')
ChatBoxRespond(TheChatText,'lolz','hehe')
ChatBoxRespond(TheChatText,'killed','hmm...')
ChatBoxRespond(TheChatText,'noob','who me?')
ChatBoxRespond(TheChatText,'Not much','cool')
ChatBoxRespond(TheChatText,'Lol','rofl')
end;


procedure Autoresponder2;
begin
if (InChat('Attack lvls')or
InChat('Attack lvl?')or
InChat('Attack lvl')or
InChat('Attack lvls?')or
InChat('Atack lvls')or
InChat('Atack lvls?')or
InChat('Attac lvls')or
InChat('Atk lvls?')or
InChat('Atk lvls')or
InChat('Atk lvl')or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('attack')))
end;
if (InChat('Strength lvl' + Players[CurrentPlayer].Name)or
InChat('Strength lvls')or
InChat('Strength lvls?')or
InChat('Strength lvl')or
InChat('Strength lvl?')or
InChat('Str lvls')or
InChat('Str lvls?')or
InChat('Str lvl')or
InChat('Str lvl?'))then
begin
TypeSend(IntToStr(GetSkillLevel('strength')))
end;
if (InChat('Defenc lvls')or
InChat('Def lvl')or
InChat('Def lvl?')or
InChat('Defence lvl')or
InChat('Defence lvl?')or
InChat('Defenc lvls?')or
InChat('Defence lvls')or
InChat('Defence lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('defence')))
end;
if (InChat('Hp lvl')or
InChat('Hp lvl?')or
InChat('Hitpoint lvl')or
InChat('Hitpoint lvl?')or
InChat('Hitpoints lvl?')or
InChat('Hp lvls')or
InChat('Hp lvls?')or
InChat('Hitpoint lvls')or
InChat('Hitpoint lvls?')or
InChat('Hitpoints lvls')or
InChat('Hitpoints lvls?')or
InChat('Hit lvl')or
InChat('Hit lvl?')or
InChat('Hit lvls')or
InChat('Hit lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('hitpoints')))
end;
if (InChat('Range lvls')or
InChat('Range lvls?')or
InChat('Rnge lvls')or
InChat('Rnge lvls?')or
InChat('Rng lvls')or
InChat('Rng lvls?')or
InChat('Range lvl')or
InChat('Range lvl?')or
InChat('Ranged lvl')or
InChat('Ranged lvl?')or
InChat('Ranged lvls')or
InChat('Ranged lvls?')or
InChat('Ranging lvls')or
InChat('Ranging lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('panged')))
end;
if (InChat('Pray lvls')or
InChat('Prayer lvls')or
InChat('Pray lvl')or
InChat('Pray lvl?')or
InChat('Prayer lvl')or
InChat('Prayer lvl?')or
InChat('Pray lvls?')or
InChat('Prayer lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('prayer')))
end;
if (InChat('Wc lvls')or
InChat('Wc lvls?')or
InChat('Wc lvl')or
InChat('Wc lvl?')or
InChat('Wc lvl')or
InChat('Wc lvl?')or
InChat('Wc lvls')or
InChat('Woodcutting')or
InChat('Wc lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('woodcutting')))
end;
if (InChat('Hi' + Players[CurrentPlayer].Name)or
InChat('Hi')or
InChat('Hey' + Players[CurrentPlayer].Name)or
InChat('Hey')or
InChat('Hello' + Players[CurrentPlayer].Name)or
InChat('Hello'))then
begin
TypeSend('Hi')
end;
if (InChat('Sup' + Players[CurrentPlayer].Name)or
InChat('Sup')or
InChat('Sup?')or
InChat('Wassup')or
InChat('Wasup')or
InChat('Wassup?')or
InChat('Wasup?'))then
begin
TypeSend('Sup dawgs')
end;
if (InChat('Max hit' + Players[CurrentPlayer].Name)or
InChat('Max hit?')or
InChat('Max hit')or
InChat('Max?')or
InChat('Max'))then
begin
TypeSend('Idk')
end;
if (InChat('Bye' + Players[CurrentPlayer].Name)or
InChat('See ya')or
InChat('C ya')or
InChat('Cya')or
InChat('C ya later')or
InChat('C ya l8ter')or
InChat('See ya later')or
InChat('See ya l8ter')or
InChat('C ya l8er')or
InChat('See ya l8er')or
InChat('C you later')or
InChat('See you later')or
InChat('See u l8ter')or
InChat('C u l8ter')or
InChat('See u later')or
InChat('C u later')or
InChat('Bye'))then
begin
TypeSend('Bye')
end;

if (InChat(Players[CurrentPlayer].Name)or
InChat('autoing')or
InChat('utoing')or
InChat('Autoing')or
InChat('Macroing')or
InChat('acroing')or
InChat('oob'))then
begin
TypeSend('what???')
end;

if (InChat('How much')or
InChat('willow logs')or
InChat('ow much')or
InChat('illow logs')or
InChat('illow log')or
InChat('How much are')or
InChat('llow logs'))then
begin
TypeSend('stfu nubs, u all know the prices')
end;
if (InChat('Nub')or
InChat('Noob')or
InChat('u are the noob')or
InChat('u noob')or
InChat('wtf'))then
begin
TypeSend('wow')
end;
end;


// my loop dont touch or wont work....maybe
begin
DisguiseScar('My Meatloaf Recipe!');
Signature;
LoadBMP
wait(2000)
DeclarePlayers;
wait(1000+random(2000))
loginplayer;
repeat
MakeCompass('N');
FindCut;
drop;
ProgressReport
if(not(LoggedIn))then
Exit;
until(false)
end.

destroyface

2007-07-20 06:19:44

and ok i will look at them

btw i used a bitmap for my tree because the color randomly clicked on different trees

Santa_Clause

2007-07-20 06:22:45

Hmm ok…

Pentti

2007-07-20 06:29:43

/////////i used Timothegreat's auto responder cause im to lazy to write it all
////////out =D who by the way gives credit to pentti for this hehehehe
////geuss were both to lazy =D

Its not Timothegreat's auto responder btw.
And if you want to get it work you need to change 415 to 412

n3ss3s

2007-07-20 06:29:50

Cmon… Your script even doesnt have a FindCut procedure but still you have one called in your main loop. Good job with the responding but that is still clearly too simple! You can stop posting updated versions here :) Yes, look at santys fighter, when your script looks like that you propably get in.

Your script is good have
DTMS (or bitmaps)
RadialWalk (or DDTMS)
Antiban, antirandoms
Failsafes. ( yes what to do if it doesnt find the tree?)
Complex script.

EDIT :
Its not Timothegreat's auto responder btw.
And if you want to get it work you need to change 415 to 412

Isnt it yours?

destroyface

2007-07-20 06:38:52

ok will do and im currently reading all the TUT's in that mega reading Janilabo Massive Package of Resources for SCAR so hopefully next month ill have a good auto WC banker with willow, oak, and tree options as for me i dont need to be told 10000000 times that its way to simple so goodbye all……FOR NOW


btw its still going to be called MegaChopShopV2 just for memory purposes ok

n3ss3s

2007-07-20 06:41:23

Try to make better than S+L's willow chopper :D

destroyface

2007-07-20 06:55:18

keyword's who are they????

and if is mega awsome supreme the answer to the make it better than theres

YA F***IN RIGHT such high expectations of the mega noob of new orleans

Santa_Clause

2007-07-20 22:41:29

:p

Just try a Willow Chopper and banker..it's bound to get you in.

destroyface

2007-07-21 01:34:54

lol what about a oak chopper?

Santa_Clause

2007-07-21 22:40:34

It should get you in…

Pancakes

2007-07-21 22:58:44

Dude that is way too simple for an SRL application. I voted no because:

Poor standards.
No Multiplayer.
No antirandoms.
No antiban.
Forms would be nice.
WAY too simple.
No failsafes.

Also, there are countless scripts for a powercutter, why would you want to make another one? Its always good to see scripts for original ideas…

Pancakes.