Log in

View Full Version : Need help with this script im a first-timer at this



greenieman
06-05-2008, 03:25 PM
begin
YEntBmp:= BitmapFromString(2, 10, 'z78DA73357135317074452' +
'29D5D9D5D0D8C70B24D8950834B3D121B00ADF01C47');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('Start in the bank with the banksymbol visible');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Starting Up');
writeln('Starting Up');
wait(1000);
LoadInclude(youtube.com);
SetAccount(1, user, pass);
GetAxeColors(wield);
T1:=Tree1; 276788
T2:=Tree2; 2115390
T3:=Tree3; 276788
BankS:=BankSymb; 873070
Killed:=0;
if(BankS = 0)then
BankS:= GetSymbolColor('873070');
if(BankS = 0)then
begin
writeln('Color finding failed... please input colors urself');
writeln('Color finding failed... please input colors urself');
Logout;
TerminateScript;
end;
if(FindColor(tx, ty, BankS, 573, 8, 723, 158) = true)then
begin
SetRun(true);
BankToYews;
SetRun(false);
end;
repeat
repeat
CutTree(276788, 2115390, 276788, 'down Y');
if(Full = false)then
begin
SwitchTrees;
CuttingRandoms;
end;
if(Broke = true)then
NewAxe;
AntiBan2(inTime, outTime, 1);
until(full = true);
if(Full = true)then
begin
Times:=times + 1;
ClearInv;
Report;
end;
AntiBan2(inTime, outTime, 1);
until(times = trips) or (times > trips);
end.





thats it plz help me use it on runescape

markuska815
06-05-2008, 04:50 PM
First of all, Could you please place the code in [SCAR] tags next time. And what exactly do you need help with?

greenieman
06-05-2008, 05:23 PM
I dont have much a clue what im doing and i need help editing it to make it work

greenieman
06-05-2008, 05:28 PM
i know i got colors right and my username and pass ill keep to myself
but whenever i try to get it to work it says:

Unknown identifier 'YEntBmp' in script C:\Program Files\scripts\scripts.scar

Smite A Whip
06-05-2008, 06:36 PM
I'm not that good at this stuff either,I'm still learning.

Dusk412
06-05-2008, 07:20 PM
Changed some stuff and improved a little. Make SURE YOU USE GOOD SCRIPTING STANDARDS! Phew...

program Test; //need program name

//---USE GOOD SCRIPTING STANDARDS!!!---//

var
YEntBmp : Integer; // need to declare variable at top

begin
YEntBmp:= BitmapFromString(2, 10, 'z78DA73357135317074452' +
'29D5D9D5D0D8C70B24D8950834B3D121B00ADF01C47');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('Start in the bank with the banksymbol visible');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Starting Up');
writeln('Starting Up');
wait(1000+random(250));//always add random
LoadInclude(youtube.com);
SetAccount(1, user, pass);
GetAxeColors(wield);
T1:=Tree1; 276788
T2:=Tree2; 2115390
T3:=Tree3; 276788
BankS:=BankSymb; 873070
Killed:=0;
if(BankS = 0)then //you had same if statement twice?
begin
BankS:= GetSymbolColor('873070');
writeln('Color finding failed... please input colors urself');
writeln('Color finding failed... please input colors urself');
Logout;
TerminateScript;
end;
if(FindColor(tx, ty, BankS, 573, 8, 723, 158) = true)then
begin
SetRun(true);
BankToYews;
SetRun(false);
end;
repeat
repeat
CutTree(276788, 2115390, 276788, 'down Y');
if(Full = false)then
begin
SwitchTrees;
CuttingRandoms;
end;
if(Broke = true)then // added a begin and an end
begin
NewAxe;
AntiBan2(inTime, outTime, 1);
end;
until(full = true);
if(Full = true)then
begin
Times:=times + 1;
ClearInv;
Report;
end;
AntiBan2(inTime, outTime, 1);
until(times = trips) or (times > trips);
end.

greenieman
06-05-2008, 09:57 PM
it now says:
:1): Unknown identifier 'LoadInclude' in script C:\Program Files\SCAR 3.15\Scripts\helo.scar

can u help with this from Dusks post.

Waddo
06-05-2008, 11:21 PM
erm loadinclude? i dont think ive ever seen that is it supposed to be disgiuse('youtube.com') possibly?

greenieman
06-05-2008, 11:45 PM
ya

Waddo
06-05-2008, 11:56 PM
really? wow what a geuss lol any more problems?

greenieman
06-06-2008, 12:20 AM
what should i use for it and how

Waddo
06-06-2008, 12:23 AM
what do you mean?

greenieman
06-06-2008, 12:29 AM
i barely have a clue what im doing
and i dont know what to fill in there

greenieman
06-06-2008, 12:37 AM
can u hep me get it to work
?????????????????????????????????????????????????? ????????????????????????

itSchRis917
06-06-2008, 02:00 AM
Try not to double post, someone will get to your post. It doesnt look like you need to fill anything out, unless there is more to the script, so just make sure the client is set and you are logged into RS. Hit the run button(green arrow) and minimize SCAR so it doesn't get in the way.

Waddo
06-06-2008, 11:28 AM
wel i would say it looks like a wc script butit doesnt looklikeitall did you make this? as if your as clueless as you say how do you know how to do DTM's?

but you could put activateclient;
after the setup stuff then you wont need to minimize scar

and dont forget to drag the crosshiar ontothe client

greenieman
06-06-2008, 12:07 PM
ty for all ur help guys i got it from here
:) :) :)