Printable View
I'M DONE! It chops the willows, brings them to the bank and deposits them. The only problem is that once it deposits the willows, the camera turns north to the highest angle, cutting off view of the willows, thus preventing the script continuing without human intervention. Can you tell me how to fix this? Thanx! :D
not bad, try finish it before posting.. anyway heres something without errors, that compiles.( did the chop part to not sure it works )
check attachment
Hey guys i'd like to do a willow/banker in draynor, where is a good guide to make
it?
just try some tutorials and with some little improvise you can do it :)
Here's your edited script. I added a proggy :D:
SCAR Code:program WillowBanker;
{.include srl/srl.scar}
Const
WillowColor=2185809;
BankSymbolColor=4901104;
Var Chopped: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers:= 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := 'Username'; //UserName
Players[0].Pass := 'Password'; //Password
Players[0].Nick := 'Nick'; //2-4 letters of username
Players[0].Integers[1] := 10; //Number of loads before switching
Players[0].Booleans[1] := True; //Is the axe wielded?
Players[0].Active := True; //Active
Players[1].Name := 'Username'; //UserName
Players[1].Pass := 'Password'; //Password
Players[1].Nick := 'Nick'; //2-4 letters of username
Players[1].Integers[1] := 10; //Number of loads before switching
Players[1].Booleans[1] := True; //Is the axe wielded?
Players[1].Active := True;
Players[2].Name := 'Username'; //UserName
Players[2].Pass := 'Password'; //Password
Players[2].Nick := 'Nick'; //2-4 letters of username
Players[2].Integers[1] := 10; //Number of loads before switching
Players[2].Booleans[1] := True; //Is the axe wielded?
Players[2].Active := True; //Active
Players[3].Name := 'Username'; //UserName
Players[3].Pass := 'Password'; //Password
Players[3].Nick := 'Nick'; //2-4 letters of username
Players[3].Integers[1] := 10; //Number of loads before switching
Players[3].Booleans[1] := True; //Is the axe wielded?
Players[3].Active := True; //Active
Players[4].Name := 'Username'; //UserName
Players[4].Pass := 'Password'; //Password
Players[4].Nick := 'Nick'; //2-4 letters of username
Players[4].Integers[1] := 10; //Number of loads before switching
Players[4].Booleans[1] := True; //Is the axe wielded?
Players[4].Active := True; //Active
Players[5].Name := 'Username'; //UserName
Players[5].Pass := 'Password'; //Password
Players[5].Nick := 'Nick'; //2-4 letters of username
Players[5].Integers[1] := 10; //Number of loads before switching
Players[5].Booleans[1] := True; //Is the axe wielded?
Players[5].Active := True; //Active
Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
procedure DoChats;
begin
if (not(LoggedIn)) then
Exit;
SetChat('off', 1);
SetChat('friends', 2);
SetChat('on', 3);
SetChat('off', 4);
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunBack;
end;
end;
procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;
procedure Chop;
begin
if Findcolor(x,y,WillowColor,333,218,350,230) then
mouse(x, y, 1, 1, false);
if IsupText('willow') then
chooseoption('chop');
status('chopped down a willow');
Chopped := Chopped + 1;
end;
begin // These functions will start te script ( login player find window ect..)
SetupSRL;
FindWindowBySize(766, 504);
Activateclient;
DeclarePlayers;
LoginPlayer;
repeat // all function below here will repeat untill false.
FindFastRandoms;
FindRandoms;
Antiban;
Chop;
// bank needs here if you made a bank function
WriteLn('Chopped '+ IntToStr(Chopped) + ' willows!');
until(false);
end.
Is there s certain spot you are supposed to start out on this? I started it in the draynor bank and the mouse just moved around in random places and did nothing. Although it did exam the ground once. The script I was using was the one dumpin posted
LOL?! thats my script... not his... you just added a writeln and removed the spaces between the declare players? lol
good script, ran it for a while nice :DQuote:
Originally Posted by Choob'R'Us
Hey I want to try out this script but when I try to run it I get this.
Line 7: [Error] (7:11): Identifier expected in script C:\DOCUME~1\MATTPR~1\LOCALS~1\Temp\First Script.scar
Line 7: [Error] (7:13): colon (':') expected in script C:\DOCUME~1\MATTPR~1\LOCALS~1\Temp\First Script.scar
Can someone please tell me what this means because I am a noob at scar.
My first scrip is compleated...aside from the fact it needs fixing up a bit. See first post for details.:D
Revised Final Version Completed: See first post for more details.
Try if findobj. Because then it will hover over the same colors which is very detectable.
->{Nauman}<-
final version is pretty good , good job !
I Havent tried it yet but it looks pretty good - ill leave an edit in a min.
Line 27: [Error] (14707:32): Identifier expected in script C:\Documents and Settings\Home\Desktop\Draynor Wood Cutter and Banker.scar - doesnt want to work for me - nothing does.
Pretty solid for your first script man. you got to post the finished master piece up man.. keep it dude
l8rs
West syd:google:
sorry man didnt mean to add the last icon.. but still keep it up man
good job man
lol ^^ stop spamming or your post count will be 0 and you never will be junior member
lol im saying what i think about it... lol
Nauman... How would if Findobj keep the script flowing? The problem is that there are no willows on screen after it deposits the willows in the bank. I don't see how if Findobj would fix that...
cool
good SCRIPT !!
thanks...Quote:
Originally Posted by derrick slay
I'm suprised on how good I did for my first script.
It still has a few bugs to work out though...
i got error